'===========================================================================
' Subject: LIBRARY HELPFILE GENERATOR Date: 04-10-00 (11:22)
' Author: Andreas van Cranenburgh Code: QB, QBasic, PDS
' Origin: andreaswolf@mail.com Packet: HTML.ABC
'===========================================================================
'Make library description in HTML format By Andreas van Cranenburgh (C) 2000
' Mail any suggestions and bug reports to andreaswolf@mail.com
q$ = CHR$(34)
ON ERROR GOTO errorhandler
FILES
INPUT "Input file: ", infile$
INPUT "Output file: ", outfile$
PRINT "Opening files... ";
OPEN infile$ FOR INPUT AS #1
OPEN outfile$ FOR OUTPUT AS #2
bodytag$ = ""
PRINT #2, ""
PRINT #2, "" + infile$ + ""
PRINT #2, ""
PRINT #2, "" + bodytag$
PRINT #2, "Description of SUBs and FUNCTIONs in " + infile$ + "
"
COLOR 2, 0: PRINT "done": COLOR 7, 0
PRINT "Adding SUBs TOC... ";
PRINT #2, "SUBs
"
DO 'Phase: Table of contents - SUBs
LINE INPUT #1, line$
IF LEFT$(LTRIM$(UCASE$(line$)), 3) = "SUB" THEN
line$ = line$ + " ' "
IF INSTR(line$, "(") = 0 THEN
PRINT #2, "- " + RTRIM$(MID$(line$, 5, INSTR(line$, "'") - 6)) + "
"
ELSE
PRINT #2, "- " + RTRIM$(MID$(line$, 5, INSTR(line$, "(") - 6)) + "
"
END IF
END IF
LOOP UNTIL EOF(1)
PRINT #2, "
"
SEEK #1, 1
COLOR 2, 0: PRINT "done": COLOR 7, 0
PRINT "Adding FUNCTIONs TOC ";
PRINT #2, "FUNCTIONs
"
DO 'Phase: Table of contents - FUNCTIONs
LINE INPUT #1, line$
IF LEFT$(LTRIM$(UCASE$(line$)), 8) = "FUNCTION" THEN
line$ = line$ + " ' "
IF INSTR(line$, "(") = 0 THEN
PRINT #2, "- " + RTRIM$(MID$(line$, 10, INSTR(line$, "'") - 11)) + "
"
ELSE
PRINT #2, "- " + RTRIM$(MID$(line$, 10, INSTR(line$, "(") - 11)) + "
"
END IF
END IF
LOOP UNTIL EOF(1)
PRINT #2, "
"
SEEK #1, 1
COLOR 2, 0: PRINT "done": COLOR 7, 0
PRINT "Adding SUBs... ";
DO 'Phase: SUBs
LINE INPUT #1, line$
IF LEFT$(LTRIM$(UCASE$(line$)), 3) = "SUB" THEN
IF INSTR(line$, "(") = 0 THEN line$ = line$ + " ()"
PRINT #2, "
"
PRINT #2, "" + RTRIM$(LEFT$(line$, INSTR(line$, "(") - 1)) + "
"
PRINT #2, "Syntax: " + MID$(line$, 5) + ""
DO
LINE INPUT #1, line$
IF LEFT$(LTRIM$(line$), 1) = "'" AND NOT EOF(1) THEN PRINT #2, MID$(LTRIM$(line$), 2)
LOOP WHILE LEFT$(LTRIM$(line$), 1) = "'" AND NOT EOF(1)
PRINT #2, "
"
END IF
LOOP UNTIL EOF(1)
COLOR 2, 0: PRINT "done": COLOR 7, 0
PRINT "Adding FUNCTIONs... ";
SEEK #1, 1
DO 'Phase: FUNCTIONs
LINE INPUT #1, line$
IF LEFT$(LTRIM$(UCASE$(line$)), 8) = "FUNCTION" THEN
IF INSTR(line$, "(") = 0 THEN line$ = line$ + " ()"
PRINT #2, "
"
PRINT #2, "" + RTRIM$(LEFT$(line$, INSTR(line$, "(") - 1)) + "
"
PRINT #2, "Syntax: " + MID$(line$, 10) + ""
DO
LINE INPUT #1, line$
IF LEFT$(LTRIM$(line$), 1) = "'" AND NOT EOF(1) THEN PRINT #2, MID$(LTRIM$(line$), 2)
LOOP WHILE LEFT$(LTRIM$(line$), 1) = "'" AND NOT EOF(1)
PRINT #2, "
"
END IF
LOOP UNTIL EOF(1)
COLOR 2, 0: PRINT "done": COLOR 7, 0
PRINT "Finishing file ";
PRINT #2, ""
COLOR 2, 0: PRINT "done": COLOR 7, 0
PRINT outfile$ + " is ready"
CLOSE #2
CLOSE #1
END
errorhandler:
COLOR 4, 0: PRINT "Failed": COLOR 7, 0
RESUME NEXT