blob: 2f1ca827355abd216c1684ffecb0f056845e135a (
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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
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 HDRFILE$ Header template
5008 REM FTRFILE$ 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$ = HDRFILE$
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$ = FTRFILE$
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 HDRFILE$ Header template
6005 REM FTRFILE$ 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$ = HDRFILE$
6050 FOR I = 1 TO ILBL
6060 IF LBL$[I] = "title" THEN REPL$[I] = PTITL$:GOTO 6080
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$ = FTRFILE$
6220 GOSUB 18000
6230 PRINT#13, TTEXT$
6250 REM And close our post!
6260 CLOSE #13
6270 RETURN
6500 REM ===============================
6501 REM Build a regular page with
6502 REM known text
6503 REM INPUT - HTMLTEXT$ Page content
6504 REM PTITL$ Page title
6505 REM HDRFILE$ Header template
6506 REM FTRFILE$ Footer template
6507 REM OUTFILE$ Output file
6508 REM LBL$ Template labels
6509 REM REPL$ Template
6510 REM replacements
6511 REM ILBL Length of template
6512 REM labels
6513 REM ===============================
6520 OPEN OUTFILE$ FOR OUTPUT AS #13
6530 REM Header template right now
6540 TMPLATE$ = HDRFILE$
6550 FOR I = 1 TO ILBL
6560 IF LBL$[I] = "title" THEN REPL$[I] = PTITL$
6562 IF LBL$[I] = "next" THEN REPL$[I] = ""
6565 IF LBL$[I] = "previous" THEN REPL$[I] = ""
6570 NEXT I
6580 GOSUB 18000
6590 PRINT#13, TTEXT$
6600 PRINT#13, HTMLTEXT$
6605 REM Process the footer
6610 TMPLATE$ = FTRFILE$
6620 GOSUB 18000
6630 PRINT#13, TTEXT$
6650 REM And close
6660 CLOSE #13
6670 RETURN
|
