6 ENUM ERR_NONE
,ERR_ARGS
,ERR_OPEN
8 RAISE ERR_ARGS
IF ReadArgs()=NIL
,
9 ERR_OPEN
IF Open()=ZERO
12 DEF rda
=NIL
,in
=ZERO
,out
=ZERO
,str
[257]:STRING,q
13 DEF a
[2]:ARRAY OF LONG
14 rda
:=ReadArgs('FROM/A,TO/A',a
,NIL
)
15 in
:=Open(a
[0],OLDFILE
)
16 out
:=Open('t:makefunc.temp',NEWFILE
)
17 WHILE
Fgets(in
,str
,256)
18 IF StrCmp(str
,'\t\t/* ',STRLEN
)
19 IF q
:=InStr(str
,'=')+1 THEN Fputs(out
,str
+q
)
23 out
:=Open('t:makefunc.header',NEWFILE
)
24 Fputs(out
,'\e[1mFunctions in alphabetical order\e[22m\n\n')
26 StringF(str
,'Sort t:makefunc.temp t:makefunc.sorted\n'+
27 'Join t:makefunc.header t:makefunc.sorted AS \s',a
[1])
28 SystemTagList(str
,NIL
)
29 DeleteFile('t:makefunc.temp')
30 DeleteFile('t:makefunc.header')
31 DeleteFile('t:makefunc.sorted')
35 IF rda
THEN FreeArgs(rda
)
37 CASE ERR_ARGS
; PrintFault(IoErr(),'MakeFunc cannot read args')
38 CASE ERR_OPEN
; PrintFault(IoErr(),'MakeFunc cannot open file')