/[james]/territories/Source/Utilities/CharsTable
ViewVC logotype

Annotation of /territories/Source/Utilities/CharsTable

Parent Directory Parent Directory | Revision Log Revision Log


Revision 19 - (hide annotations) (download)
Tue Feb 11 11:05:25 2003 UTC (21 years, 8 months ago) by james
File size: 3496 byte(s)
Initial import.

1 james 19 REM > Territories:Utilities.CharsTable
2    
3     ONERRORONERROROFF:ERROR0,REPORT$+" ("+STR$ERL+"/&"+STR$~ERR+")":END
4    
5     DIM lower% 255, upper% 255, control% 255, plain% 255, value% 255, properties% 32 * 11
6     PROCTB_Init
7    
8     ONERRORONERROROFF:PROCTB_Quit:ERROR0,REPORT$+" ("+STR$ERL+"/&"+STR$~ERR+")":END
9    
10     INPUT "Character set: "c$
11    
12     f% = OPENIN("Territories:Tables." + c$ + ".!Chars")
13     IF f% = 0 THEN ERROR 1, "Could not open file Territories:Tables." + c$ + ".!Chars‘"
14    
15     ONERRORONERROROFF:CLOSE#f%:PROCTB_Quit:ERROR0,REPORT$+" ("+STR$ERL+"/&"+STR$~ERR+")":END
16    
17     PROCTB_File("Territories:Tables." + c$ + ".!Chars")
18    
19     FOR b% = 0 TO 32 * 11 STEP 4
20     properties%!b% = 0
21     NEXT
22    
23     l% = 0
24     err% = FALSE
25    
26     REPEAT
27     l$ = GET$#f%
28     l% += 1
29     UNTIL LEFT$(l$, 1) <> "#"
30    
31     FOR c% = 0 TO 255
32     IF FNchar(FNcut(l$)) <> c% THEN PROCTB_Throwback(l%, 1, "Wrong or missing character, should be "+STR$c%): err% = TRUE
33    
34     lower%?c% = FNchar(FNcut(l$))
35     upper%?c% = FNchar(FNcut(l$))
36     control%?c% = FNchar(FNcut(l$))
37     plain%?c% = FNchar(FNcut(l$))
38     value%?c% = FNchar(FNcut(l$))
39    
40     IF LENl$ <> 11 THEN PROCTB_Throwback(l%, 1, "Properties wrong or missing"): err% = TRUE
41    
42     FOR p% = 0 TO 10
43     IF LEFT$(l$, 1) = "1" THEN properties%?(32 * p% + (c% DIV 8)) = properties%?(32 * p% + (c% DIV 8)) OR (1 << (c% MOD 8))
44     l$ = MID$(l$, 2)
45     NEXT
46    
47     IF EOF#f% AND c% <> 255 THEN PROCTB_Throwback(l%, 1, "Unexpected end of file"): err% = TRUE: GOTO 520
48    
49     l$ = GET$#f%
50     l% += 1
51     NEXT
52    
53     CLOSE#f%
54     PROCTB_Quit
55    
56     IF err% THEN PRINT"Failed due to errors": END
57    
58     ONERRORONERROROFF:ERROR0,REPORT$+" ("+STR$ERL+"/&"+STR$~ERR+")":END
59    
60     SYS"OS_File", 10, "Territories:Tables." + c$ + ".LowerCase", &FFD,, lower%, lower% + 256
61     SYS"OS_File", 10, "Territories:Tables." + c$ + ".UpperCase", &FFD,, upper%, upper% + 256
62     SYS"OS_File", 10, "Territories:Tables." + c$ + ".Control", &FFD,, control%, control% + 256
63     SYS"OS_File", 10, "Territories:Tables." + c$ + ".Plain", &FFD,, plain%, plain% + 256
64     SYS"OS_File", 10, "Territories:Tables." + c$ + ".Value", &FFD,, value%, value% + 256
65     SYS"OS_File", 10, "Territories:Tables." + c$ + ".Property", &FFD,, properties%, properties% + 32 * 11
66    
67     END
68    
69     REM ˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜
70    
71     DEF FNcut(RETURN o$)
72     LOCAL p$
73     p$ = LEFT$(o$, INSTR(o$, CHR$9) - 1)
74     o$ = MID$(o$, INSTR(o$, CHR$9) + 1)
75     =p$
76    
77    
78     DEF FNchar(c$)
79     IF LENc$ = 1 THEN =ASCc$
80     IF LEFT$(c$, 1) = "." THEN =VAL(MID$(c$, 2))
81     PROCTB_Throwback(l%, 1, "Character " + c$ + "‘ not understood")
82     err% = TRUE
83     =0
84    
85     REM ˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜
86    
87     DEF PROCTB_Init
88     TB_Started% = FALSE
89     SYS"XOS_CLI", "RMEnsure DDEUtils 0.00 RMLoad System:Modules.DDEUtils"
90     SYS"XOS_SWINumberFromString",, "DDEUtils_ThrowbackStart" TO ;f%
91     IF f% AND 1 THEN TB_DDE% = FALSE ELSE TB_DDE% = TRUE
92     ENDPROC
93    
94     DEF PROCTB_File(File$)
95     TB_File$ = File$
96     ENDPROC
97    
98     DEF PROCTB_Throwback(Line%, Severity%, Message$)
99     IF TB_DDE% THEN
100     IF NOT TB_Started% THEN
101     SYS"DDEUtils_ThrowbackStart"
102     TB_Started% = TRUE
103     ENDIF
104     SYS"DDEUtils_ThrowbackSend", 1,, TB_File$, Line%, Severity%, Message$
105     ELSE
106     IF NOT TB_Started% THEN
107     PRINT "Errors in file " + TB_File$ + "‘:"
108     TB_Started% = TRUE
109     ENDIF
110     PRINT "Line " + STR$Line% + ": ";
111     IF Severity% = 0 THEN PRINT "Warning: "; ELSE PRINT "Error: ";
112     PRINT Message$
113     ENDIF
114     ENDPROC
115    
116     DEF PROCTB_Quit
117     IF TB_DDE% AND TB_Started% THEN SYS"DDEUtils_ThrowbackEnd"
118     ENDPROC

  ViewVC Help
Powered by ViewVC 1.1.26