blob: f61c3c66a534a079ec9c9b25f6e512fd8632585b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
5000 REM ===============================
5001 REM Build a post page
5002 REM INPUT - SFL$ File list
5003 REM TIT$ Title list
5004 REM LC List length
5005 REM FINDEX File to build
5006 REM DIREC$ Posts src dir
5007 REM HFILE$ Header template
5008 REM FFILE$ Footer template
5009 REM OUTFILE$ Output file
5010 REM LBL$ Template labels
5011 REM REPL$ Template
5012 REM replacements
5013 REM ILBL Length of template
5014 REM labels
5009 REM ===============================
5020 OPEN OUTFILE$ FOR OUTPUT AS #13
5030 REM Header template right now
5040 TMPLATE$ = HFILE$
5050 FOR I = 1 TO ILBL
5060 IF LBL$[I] = "title" THEN REPL$[I] = TIT$[FINDEX]
5070 IF LBL$[I] <> "next" THEN 5100
5080 IF FINDEX < LC THEN LINKURL$ = SFL$[FINDEX+1]:LINKLBL$ = "Next: "+TIT$[FINDEX+1]:GOSUB 19000 ELSE LINKHTML$=""
5090 REPL$[I] = LINKHTML$
5100 IF LBL$[I] <> "previous" THEN 5130
5110 IF FINDEX > 1 THEN LINKURL$ = SFL$[FINDEX-1]:LINKLBL$ = "Previous: "+TIT$[FINDEX-1]:GOSUB 19000 ELSE LINKHTML$=""
5120 REPL$[I] = LINKHTML$
5130 NEXT I
5140 GOSUB 18000
5150 PRINT#13, TTEXT$
5500 REM Process textile now
5510 TFILE$ = DIREC$ + "\" + SFL$[FINDEX]
5520 HFILE$ = "WORK.TMP"
5530 GOSUB 10000
5540 OPEN "WORK.TMP" FOR INPUT AS #1
5550 WHILE NOT EOF(1)
5560 LINE INPUT#1, ONEL$
5570 PRINT#13, ONEL$
5580 WEND
5590 CLOSE #1
5600 SHELL "DEL WORK.TMP"
5700 REM Process the footer
5710 TMPLATE$ = FFILE$
5720 GOSUB 18000
5730 PRINT#13, TTEXT$
5770 REM And close our post!
5780 CLOSE #13
5790 RETURN
6000 REM ===============================
6001 REM Build a regular page
6002 REM INPUT - TFILE$ Page file
6003 REM PTITL$ Page title
6004 REM HFILE$ Header template
6005 REM FFILE$ Footer template
6006 REM OUTFILE$ Output file
6007 REM LBL$ Template labels
6008 REM REPL$ Template
6009 REM replacements
6010 REM ILBL Length of template
6011 REM labels
6012 REM ===============================
6020 OPEN OUTFILE$ FOR OUTPUT AS #13
6030 REM Header template right now
6040 TMPLATE$ = HFILE$
6050 FOR I = 1 TO ILBL
6060 IF LBL$[I] = "title" THEN LBL$[I] = PTITL$:GOTO 5080
6070 NEXT I
6080 GOSUB 18000
6090 PRINT#13, TTEXT$
6100 REM Process textile now
6110 HFILE$ = "WORK.TMP"
6120 GOSUB 10000
6130 OPEN "WORK.TMP" FOR INPUT AS #1
6140 WHILE NOT EOF(1)
6150 LINE INPUT#1, ONEL$
6160 PRINT#13, ONEL$
6170 WEND
6180 CLOSE #1
6190 SHELL "DEL WORK.TMP"
6200 REM Process the footer
6210 TMPLATE$ = FFILE$
6220 GOSUB 18000
6230 PRINT#13, TTEXT$
6250 REM And close our post!
6260 CLOSE #13
6270 RETURN
|
