[ssr] / StraySrc / Utilities / b / templaof.bas

REM
REM templAOF
REM
REM Mangle template files into an easily extractable form
REM
REM © 1995-1998 Straylight
REM

REM ----- Licensing note ----------------------------------------------------
REM
REM This file is part of Straylight's core utilities (coreutils)
REM
REM Coreutils is free software; you can redistribute it and/or modify
REM it under the terms of the GNU General Public License as published by
REM the Free Software Foundation; either version 2, or (at your option)
REM any later version
REM
REM Coreutils is distributed in the hope that it will be useful,
REM but WITHOUT ANY WARRANTY; without even the implied warranty of
REM MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
REM GNU General Public License for more details.
REM
REM You should have received a copy of the GNU General Public License
REM along with Coreutils.  If not, write to the Free Software Foundation,
REM 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

ON ERROR ERROR EXT 0,REPORT$+" ["+STR$(ERL)+"]"

SYS "OS_GetEnv" TO comm$
IF INSTR(comm$,"-quit")=0 THEN ERROR 1,"templAOF must be started using *Run"
comm$=MID$(comm$,INSTR(comm$,"""")+1)
comm$=MID$(comm$,INSTR(comm$," ")+1)
comm$=LEFT$(comm$,INSTR(comm$,"""")-1)

tfile$=FNword(comm$)
out$=FNword(comm$)
header$=FNword(comm$)
IF tfile$="" OR out$="" THEN ERROR 0,"Syntax: templAOF <in> <out> [<header>]"

IF header$<>"" THEN
  hdr%=OPENOUT(header$)
  BPUT #hdr%,";"
  BPUT #hdr%,"; Template symbols [generated by templAOF]"
  BPUT #hdr%,";"
  BPUT #hdr%,""
  BPUT #hdr%,CHR$(9)+CHR$(9)+"["+CHR$(9)+":LNOT::DEF:tpl__dfn"
  BPUT #hdr%,CHR$(9)+CHR$(9)+"GBLL"+CHR$(9)+"tpl__dfn"
  BPUT #hdr%,""
  ON ERROR CLOSE #hdr%:ERROR EXT 0,REPORT$+" ["+STR$(ERL)+"]"
ELSE
  hdr%=0
ENDIF

PROCassemble

LIBRARY "libs:bas"
PROCbas_init

SYS "OS_File",17,tfile$ TO ,,,,tsize%
DIM tfile% tsize%
SYS "OS_File",16,tfile$,tfile%,0

PROCbas_aofInit(tsize%*5)
FOR pass=4 TO 6 STEP 2
  [ opt pass
    FNpass
    FNarea("Resources$$Data","CODE,READONLY")
  ]
  index%=tfile%+16
  WHILE index%!0
    CASE index%!8 OF
      WHEN 1
        PROCloadWindow(index%!0+tfile%,index%)
      OTHERWISE
        IF hdr% THEN CLOSE #hdr%
        ERROR 1,"Template type "+STR$(index%!0)+" unrecognised"
    ENDCASE
    index%+=24
  ENDWHILE
NEXT

PROCbas_aofSaveAs(out$)
IF hdr% THEN
  BPUT #hdr%,""
  BPUT #hdr%,CHR$(9)+CHR$(9)+"]"
  BPUT #hdr%,""
  BPUT #hdr%,CHR$(9)+CHR$(9)+"END"
  CLOSE #hdr%
  SYS "OS_File",1,header$,&FFFFFF3A,&BD896000,,3
ENDIF
END

DEF PROCloadWindow(addr%,index%)
name$=FNgetString(index%+12)

REM --- Build template info block ---

[ opt pass
.template
]

A%=O%
B%=index%
C%=tfile%
l%=USR(tpl_window)-A%
P%+=l%
O%+=l%

[ opt pass
  FNalign
  FNexportAs("template","tpl_"+name$)
]
IF hdr%<>0 AND pass=6 THEN BPUT #hdr%,CHR$(9)+CHR$(9)+"IMPORT"+CHR$(9)+"tpl_"+name$
ENDPROC

DEF FNgetString(a%)
LOCAL s$
WHILE ?a%>=32
  s$+=CHR$(?a%)
  a%+=1
ENDWHILE
=s$

DEF FNword(RETURN line$)
LOCAL word$
IF INSTR(line$," ") THEN
  word$=LEFT$(line$,INSTR(line$," ")-1)
  line$=MID$(line$,INSTR(line$," ")+1)
ELSE
  word$=line$
  line$=""
ENDIF
=word$

DEF FNupper(line$)
LOCAL i%
$q%=line$
FOR i%=0 TO LEN(line$)-1
  IF q%?i%>=97 AND q%?i%<=122 THEN q%?i%-=32
NEXT
=$q%

DEF PROCassemble
DIM code% 4096
FOR o=0 TO 2 STEP 2
P%=code%
[ opt o


; --- tpl_window ---
;
; entry; r0 == output pointer
;        r1 == pointer to index entry
;        r2 == pointer to template file base
; exit;  r0 == new output pointer

.tpl_window
  stmfd r13!,{r14}
  add r11,r0,#12
  mov r10,r0
  mov r9,r2
  ldr r14,[r1,#0]
  add r8,r9,r14

  ; --- Build relocation table ---

  mov r14,#64
  orr r14,r14,#1<<28
  str r14,[r11],#4

  ldr r0,[r8,#56]
  add r1,r8,#72
  bl tpl_doReloc

  ldr r7,[r8,#84]
  add r6,r8,#88

.loop
  subs r7,r7,#1
  ldrcs r0,[r6,#16]
  addcs r1,r6,#20
  blcs tpl_doReloc
  addcs r6,r6,#32
  bcs loop

  ; --- Add in offset entry for window definition ---

  sub r14,r11,r10
  str r14,[r10,#0]

  ; --- Now copy over the window definition ---

  mov r14,r8
  mov r7,#72

.loop
  subs r7,r7,#16
  ldmcsia r14!,{r0-r3}
  stmcsia r11!,{r0-r3}
  bcs loop
  ldmia r14!,{r0,r1}
  stmia r11!,{r0,r1}

  ldr r0,[r8,#56]
  add r1,r8,#72
  mov r5,#0
  bl tpl_writeData

  ldr r7,[r8,#84]
  str r7,[r11],#4
  add r6,r8,#88

.loop
  subs r7,r7,#1
  ldmcsia r6,{r0-r3,r14}
  stmcsia r11!,{r0-r3,r14}
  ldrcs r0,[r6,#16]
  addcs r1,r6,#20
  blcs tpl_writeData
  addcs r6,r6,#32
  bcs loop

  ; --- Add in offset for this ---

  sub r14,r11,r10
  str r14,[r10,#4]

  ; --- Finally copy over the indirected data ---

  ldr r0,[r8,#56]
  add r1,r8,#72
  bl tpl_copyData

  ldr r7,[r8,#84]
  add r6,r8,#88

.loop
  subs r7,r7,#1
  ldrcs r0,[r6,#16]
  addcs r1,r6,#20
  blcs tpl_copyData
  addcs r6,r6,#32
  bcs loop

  ; --- Put in the last offset and return ---

  sub r14,r11,r10
  str r14,[r10,#8]

  mov r0,r11
  ldmfd r13!,{pc}^


; --- tpl_doReloc ---
;
; entry; r0 == icon flags word
;        r1 == pointer to icon data
;        r8 == base of window definition
;        r11 == output pointer
; exit;  r0-r5 corrupted

.tpl_doReloc
  tst r0,#&100
  moveqs pc,r14

  stmfd r13!,{r14}
  sub r14,r1,r8
  str r14,[r11],#4

  and r14,r0,#&3
  cmp r14,#&2
  beq tpl_drSprite

  ldr r14,[r1,#4]
  cmn r14,#-(-1)
  subne r14,r1,r8
  addne r14,r14,#4
  strne r14,[r11],#4
  ldmfd r13!,{pc}^

.tpl_drSprite
  sub r14,r8,r1
  add r14,r14,#4
  orr r14,r14,#(2<<28)
  str r14,[r11],#4
  ldmfd r13!,{pc}^


; --- tpl_writeData ---
;
; entry; r0 == icon flags word
;        r1 == pointer to icon data
;        r5 == indirection offset
;        r8 == base of window definition
;        r11 == output pointer
; exit;  r5 updated
;        r0-r4 corrupted

.tpl_writeData
  tst r0,#&100
  beq tpl_wdNotInd

  stmfd r13!,{r14}
  str r5,[r11],#4
  ldr r14,[r1,#8]
  add r5,r5,r14

  and r14,r0,#&3
  cmp r14,#&2
  beq tpl_wdSprite
  ldr r14,[r1,#4]
  cmn r14,#-(-1)
  beq tpl_wdNoValid

  str r5,[r11],#4
  add r2,r8,r14

.loop
  ldrb r14,[r2],#1
  add r5,r5,#1
  cmp r14,#&20
  bcs loop

  b tpl_wdCont

.tpl_wdSprite
  mov r14,#1
.tpl_wdNoValid
  str r14,[r11],#4

.tpl_wdCont
  ldr r14,[r1,#8]
  str r14,[r11],#4

  ldmfd r13!,{pc}^

.tpl_wdNotInd
  ldmia r1,{r0-r2}
  stmia r11!,{r0-r2}
  movs pc,r14


; --- tpl_copyData ---
;
; entry; r0 == icon flags
;        r1 == pointer to icon data
;        r8 == base of window definition
;        r11 == output pointer
; exit;  r0-r5 corrupted

.tpl_copyData
  tst r0,#&100
  moveqs pc,r14

  stmfd r13!,{r14}
  mov r2,r11
  ldr r14,[r1,#0]
  add r3,r8,r14

.loop
  ldrb r14,[r3],#1
  cmp r14,#&20
  movcc r14,#0
  strb r14,[r2],#1
  bcs loop

  ldr r14,[r1,#8]
  add r11,r11,r14
  mov r14,#0

.loop
  cmp r2,r11
  strccb r14,[r2],#1
  bcc loop

  tst r0,#1
  ldrne r14,[r1,#4]
  cmnne r14,#-(-1)
  beq tpl_cdSkip

  add r2,r8,r14

.loop
  ldrb r14,[r2],#1
  cmp r14,#&20
  movcc r14,#0
  strb r14,[r11],#1
  bcs loop

.tpl_cdSkip
  ldmfd r13!,{pc}^

]
NEXT
ENDPROC
Commit	Line	Data
c1b567d8 MW	1	REM
	2	REM templAOF
	3	REM
	4	REM Mangle template files into an easily extractable form
	5	REM
	6	REM © 1995-1998 Straylight
	7	REM
	8
	9	REM ----- Licensing note ----------------------------------------------------
	10	REM
	11	REM This file is part of Straylight's core utilities (coreutils)
	12	REM
	13	REM Coreutils is free software; you can redistribute it and/or modify
	14	REM it under the terms of the GNU General Public License as published by
	15	REM the Free Software Foundation; either version 2, or (at your option)
	16	REM any later version
	17	REM
	18	REM Coreutils is distributed in the hope that it will be useful,
	19	REM but WITHOUT ANY WARRANTY; without even the implied warranty of
	20	REM MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	21	REM GNU General Public License for more details.
	22	REM
	23	REM You should have received a copy of the GNU General Public License
	24	REM along with Coreutils. If not, write to the Free Software Foundation,
	25	REM 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
	26
	27	ON ERROR ERROR EXT 0,REPORT$+" ["+STR$(ERL)+"]"
	28
	29	SYS "OS_GetEnv" TO comm$
	30	IF INSTR(comm$,"-quit")=0 THEN ERROR 1,"templAOF must be started using *Run"
	31	comm$=MID$(comm$,INSTR(comm$,"""")+1)
	32	comm$=MID$(comm$,INSTR(comm$," ")+1)
	33	comm$=LEFT$(comm$,INSTR(comm$,"""")-1)
	34
	35	tfile$=FNword(comm$)
	36	out$=FNword(comm$)
	37	header$=FNword(comm$)
	38	IF tfile$="" OR out$="" THEN ERROR 0,"Syntax: templAOF <in> <out> [<header>]"
	39
	40	IF header$<>"" THEN
	41	hdr%=OPENOUT(header$)
	42	BPUT #hdr%,";"
	43	BPUT #hdr%,"; Template symbols [generated by templAOF]"
	44	BPUT #hdr%,";"
	45	BPUT #hdr%,""
	46	BPUT #hdr%,CHR$(9)+CHR$(9)+"["+CHR$(9)+":LNOT::DEF:tpl__dfn"
	47	BPUT #hdr%,CHR$(9)+CHR$(9)+"GBLL"+CHR$(9)+"tpl__dfn"
	48	BPUT #hdr%,""
	49	ON ERROR CLOSE #hdr%:ERROR EXT 0,REPORT$+" ["+STR$(ERL)+"]"
	50	ELSE
	51	hdr%=0
	52	ENDIF
	53
	54	PROCassemble
	55
	56	LIBRARY "libs:bas"
	57	PROCbas_init
	58
	59	SYS "OS_File",17,tfile$ TO ,,,,tsize%
	60	DIM tfile% tsize%
	61	SYS "OS_File",16,tfile$,tfile%,0
	62
	63	PROCbas_aofInit(tsize%*5)
	64	FOR pass=4 TO 6 STEP 2
65	[ opt pass
66	FNpass
67	FNarea("Resources$$Data","CODE,READONLY")
68	]
69	index%=tfile%+16
70	WHILE index%!0
71	CASE index%!8 OF
72	WHEN 1
73	PROCloadWindow(index%!0+tfile%,index%)
74	OTHERWISE
75	IF hdr% THEN CLOSE #hdr%
76	ERROR 1,"Template type "+STR$(index%!0)+" unrecognised"
77	ENDCASE
78	index%+=24
79	ENDWHILE
80	NEXT
81
82	PROCbas_aofSaveAs(out$)
83	IF hdr% THEN
84	BPUT #hdr%,""
85	BPUT #hdr%,CHR$(9)+CHR$(9)+"]"
86	BPUT #hdr%,""
87	BPUT #hdr%,CHR$(9)+CHR$(9)+"END"
88	CLOSE #hdr%
89	SYS "OS_File",1,header$,&FFFFFF3A,&BD896000,,3
90	ENDIF
91	END
92
93	DEF PROCloadWindow(addr%,index%)
94	name$=FNgetString(index%+12)
95
96	REM --- Build template info block ---
97
98	[ opt pass
99	.template
100	]
101
102	A%=O%
103	B%=index%
104	C%=tfile%
105	l%=USR(tpl_window)-A%
106	P%+=l%
107	O%+=l%
108
109	[ opt pass
110	FNalign
111	FNexportAs("template","tpl_"+name$)
112	]
113	IF hdr%<>0 AND pass=6 THEN BPUT #hdr%,CHR$(9)+CHR$(9)+"IMPORT"+CHR$(9)+"tpl_"+name$
114	ENDPROC
115
116	DEF FNgetString(a%)
117	LOCAL s$
118	WHILE ?a%>=32
119	s$+=CHR$(?a%)
120	a%+=1
121	ENDWHILE
122	=s$
123
124	DEF FNword(RETURN line$)
125	LOCAL word$
126	IF INSTR(line$," ") THEN
127	word$=LEFT$(line$,INSTR(line$," ")-1)
128	line$=MID$(line$,INSTR(line$," ")+1)
129	ELSE
130	word$=line$
131	line$=""
132	ENDIF
133	=word$
134
135	DEF FNupper(line$)
136	LOCAL i%
137	$q%=line$
138	FOR i%=0 TO LEN(line$)-1
139	IF q%?i%>=97 AND q%?i%<=122 THEN q%?i%-=32
140	NEXT
141	=$q%
142
143	DEF PROCassemble
144	DIM code% 4096
145	FOR o=0 TO 2 STEP 2
146	P%=code%
147	[ opt o
148
149
150	; --- tpl_window ---
151	;
152	; entry; r0 == output pointer
153	; r1 == pointer to index entry
154	; r2 == pointer to template file base
155	; exit; r0 == new output pointer
156
157	.tpl_window
158	stmfd r13!,{r14}
159	add r11,r0,#12
160	mov r10,r0
161	mov r9,r2
162	ldr r14,[r1,#0]
163	add r8,r9,r14
164
165	; --- Build relocation table ---
166
167	mov r14,#64
168	orr r14,r14,#1<<28
169	str r14,[r11],#4
170
171	ldr r0,[r8,#56]
172	add r1,r8,#72
173	bl tpl_doReloc
174
175	ldr r7,[r8,#84]
176	add r6,r8,#88
177
178	.loop
179	subs r7,r7,#1
180	ldrcs r0,[r6,#16]
181	addcs r1,r6,#20
182	blcs tpl_doReloc
183	addcs r6,r6,#32
184	bcs loop
185
186	; --- Add in offset entry for window definition ---
187
188	sub r14,r11,r10
189	str r14,[r10,#0]
190
191	; --- Now copy over the window definition ---
192
193	mov r14,r8
194	mov r7,#72
195
196	.loop
197	subs r7,r7,#16
198	ldmcsia r14!,{r0-r3}
199	stmcsia r11!,{r0-r3}
200	bcs loop
201	ldmia r14!,{r0,r1}
202	stmia r11!,{r0,r1}
203
204	ldr r0,[r8,#56]
205	add r1,r8,#72
206	mov r5,#0
207	bl tpl_writeData
208
209	ldr r7,[r8,#84]
210	str r7,[r11],#4
211	add r6,r8,#88
212
213	.loop
214	subs r7,r7,#1
215	ldmcsia r6,{r0-r3,r14}
216	stmcsia r11!,{r0-r3,r14}
217	ldrcs r0,[r6,#16]
218	addcs r1,r6,#20
219	blcs tpl_writeData
220	addcs r6,r6,#32
221	bcs loop
222
223	; --- Add in offset for this ---
224
225	sub r14,r11,r10
226	str r14,[r10,#4]
227
228	; --- Finally copy over the indirected data ---
229
230	ldr r0,[r8,#56]
231	add r1,r8,#72
232	bl tpl_copyData
233
234	ldr r7,[r8,#84]
235	add r6,r8,#88
236
237	.loop
238	subs r7,r7,#1
239	ldrcs r0,[r6,#16]
240	addcs r1,r6,#20
241	blcs tpl_copyData
242	addcs r6,r6,#32
243	bcs loop
244
245	; --- Put in the last offset and return ---
246
247	sub r14,r11,r10
248	str r14,[r10,#8]
249
250	mov r0,r11
251	ldmfd r13!,{pc}^
252
253
254	; --- tpl_doReloc ---
255	;
256	; entry; r0 == icon flags word
257	; r1 == pointer to icon data
258	; r8 == base of window definition
259	; r11 == output pointer
260	; exit; r0-r5 corrupted
261
262	.tpl_doReloc
263	tst r0,#&100
264	moveqs pc,r14
265
266	stmfd r13!,{r14}
267	sub r14,r1,r8
268	str r14,[r11],#4
269
270	and r14,r0,#&3
271	cmp r14,#&2
272	beq tpl_drSprite
273
274	ldr r14,[r1,#4]
275	cmn r14,#-(-1)
276	subne r14,r1,r8
277	addne r14,r14,#4
278	strne r14,[r11],#4
279	ldmfd r13!,{pc}^
280
281	.tpl_drSprite
282	sub r14,r8,r1
283	add r14,r14,#4
284	orr r14,r14,#(2<<28)
285	str r14,[r11],#4
286	ldmfd r13!,{pc}^
287
288
289	; --- tpl_writeData ---
290	;
291	; entry; r0 == icon flags word
292	; r1 == pointer to icon data
293	; r5 == indirection offset
294	; r8 == base of window definition
295	; r11 == output pointer
296	; exit; r5 updated
297	; r0-r4 corrupted
298
299	.tpl_writeData
300	tst r0,#&100
301	beq tpl_wdNotInd
302
303	stmfd r13!,{r14}
304	str r5,[r11],#4
305	ldr r14,[r1,#8]
306	add r5,r5,r14
307
308	and r14,r0,#&3
309	cmp r14,#&2
310	beq tpl_wdSprite
311	ldr r14,[r1,#4]
312	cmn r14,#-(-1)
313	beq tpl_wdNoValid
314
315	str r5,[r11],#4
316	add r2,r8,r14
317
318	.loop
319	ldrb r14,[r2],#1
320	add r5,r5,#1
321	cmp r14,#&20
322	bcs loop
323
324	b tpl_wdCont
325
326	.tpl_wdSprite
327	mov r14,#1
328	.tpl_wdNoValid
329	str r14,[r11],#4
330
331	.tpl_wdCont
332	ldr r14,[r1,#8]
333	str r14,[r11],#4
334
335	ldmfd r13!,{pc}^
336
337	.tpl_wdNotInd
338	ldmia r1,{r0-r2}
339	stmia r11!,{r0-r2}
340	movs pc,r14
341
342
343	; --- tpl_copyData ---
344	;
345	; entry; r0 == icon flags
346	; r1 == pointer to icon data
347	; r8 == base of window definition
348	; r11 == output pointer
349	; exit; r0-r5 corrupted
350
351	.tpl_copyData
352	tst r0,#&100
353	moveqs pc,r14
354
355	stmfd r13!,{r14}
356	mov r2,r11
357	ldr r14,[r1,#0]
358	add r3,r8,r14
359
360	.loop
361	ldrb r14,[r3],#1
362	cmp r14,#&20
363	movcc r14,#0
364	strb r14,[r2],#1
365	bcs loop
366
367	ldr r14,[r1,#8]
368	add r11,r11,r14
369	mov r14,#0
370
371	.loop
372	cmp r2,r11
373	strccb r14,[r2],#1
374	bcc loop
375
376	tst r0,#1
377	ldrne r14,[r1,#4]
378	cmnne r14,#-(-1)
379	beq tpl_cdSkip
380
381	add r2,r8,r14
382
383	.loop
384	ldrb r14,[r2],#1
385	cmp r14,#&20
386	movcc r14,#0
387	strb r14,[r11],#1
388	bcs loop
389
390	.tpl_cdSkip
391	ldmfd r13!,{pc}^
392
393	]
394	NEXT
395	ENDPROC
396