blob: d141223b7678fc38433e739e5f0482b5fbfa7f8f (
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
|
24000 REM ============================
24001 REM Config Entry Counter
24002 REM
24003 REM INPUT - CURDIR$ dir of blog
24003 REM OUTPUT - CFGCNT # of config
24004 REM entries
24005 REM ===========================
24010 ON ERROR GOTO 24040
24015 CFGCNT = 0
24020 OPEN CURDIR$+"\config.ini" FOR INPUT AS #9
24030 GOTO 24050
24040 GOTO 24098
24050 WHILE(NOT EOF(9))
24060 LINE INPUT #9, CFGLINE$
24070 IF LEN(CFGLINE$) = 0 OR MID$(CFGLINE$,1,1) = "#" THEN GOTO 24090
24080 CFGCNT = CFGCNT + 1
24090 WEND
24095 CLOSE #9
24098 ON ERROR GOTO 0
24099 RETURN
24100 REM =============================
24101 REM Config file parser
24102 REM
24103 REM INPUT - LBL$ List of labels
24104 REM REPL$ List of values
24105 REM ILBL # of labels
24106 REM already set
24107 REM CURDIR$ dir of blog
24108 REM =============================
24110 CFGIDX = ILBL
24120 OPEN CURDIR$+"\config.ini" FOR INPUT AS #9
24130 WHILE(NOT EOF(9))
24140 LINE INPUT #9, CFGLINE$
24150 IF LEN(CFGLINE$) = 0 OR MID$(CFGLINE$,1,1) = "#" THEN GOTO 24210
24160 CFGIDX = CFGIDX + 1
24170 EQSIGN = 1:WHILE(MID$(CFGLINE$,EQSIGN,1) <> "="):EQSIGN = EQSIGN + 1:WEND
24180 LBL$[CFGIDX] = MID$(CFGLINE$, 1, EQSIGN-1)
24190 REPL$[CFGIDX] = MID$(CFGLINE$, EQSIGN+1, LEN(CFGLINE$)-EQSIGN)
24210 WEND
24220 CLOSE #9
24230 RETURN
24300 REM =============================
24301 REM Retrieve one config string
24302 REM index
24303 REM
24304 REM INPUT - LBL$ List of labels
24305 REM ILBL # of labels
24306 REM already set
24307 REM SEARCH$ Label to
24308 REM find
24309 REM OUTPUT - IFOUND Index of
24310 REM label or -1
24311 REM =============================
24320 FOR IFOUND=1 TO ILBL
24330 IF LBL$(IFOUND) = SEARCH$ THEN GOTO 24360
24340 NEXT IFOUND
24350 IFOUND = -1
24360 RETURN
|
