]> 4ch.mooo.com Git - 16.git/blob - 16/ADT2PLAY/parserio.pas
i hate being tired wwww i will work on the project some more sometime wwww
[16.git] / 16 / ADT2PLAY / parserio.pas
1 unit ParserIO;
2 interface
3
4 type
5   tDUMMY_BUFF = array[0..PRED(655350)] of Byte;
6
7 function Scan(var buf; skip,size: Longint; str: String): Longint;
8 function SensitiveScan(var buf; skip,size: Longint; str: String): Longint;
9 function Compare(var buf1,buf2; size: Longint): Boolean;
10 function Empty(var buf; size: Longint): Boolean;
11 function CountLines(var buf; size: Longint): Longint;
12 function Update16(var buf; size: Longint; crc: Word): Word;
13 function Update32(var buf; size: Longint; crc: Longint): Longint;
14
15 implementation
16
17 var
18   CRC16_table: array[BYTE] of Word;
19   CRC32_table: array[BYTE] of Longint;
20
21 function Scan(var buf; skip,size: Longint; str: String): Longint; assembler;
22 asm
23         mov     edi,[str]
24         mov     esi,[str]
25         xor     eax,eax
26         lodsb
27         stosb
28         xor     ecx,ecx
29         mov     ecx,eax
30         xor     ebx,ebx
31         mov     ebx,eax
32         jecxz    @@9
33 @@1:    lodsb
34         cmp     al,'a'
35         jb      @@2
36         cmp     al,'z'
37         ja      @@2
38         sub     al,20h
39 @@2:    stosb
40         loop    @@1
41         sub     edi,ebx
42         mov     esi,[buf]
43         add     esi,skip
44         mov     ecx,size
45         sub     ecx,skip
46         jecxz   @@8
47         cld
48         sub     ecx,ebx
49         jb      @@8
50         inc     ecx
51 @@4:    mov     ah,[edi]
52         and     ah,NOT 20h
53 @@5:    lodsb
54         and     al,NOT 20h
55         cmp     al,ah
56         loopne  @@5
57         jne     @@8
58         dec     esi
59         mov     edx,ecx
60         mov     ecx,ebx
61 @@6:    repe    cmpsb
62         je      @@10
63         mov     al,[esi-1]
64         cmp     al,'a'
65         jb      @@7
66         cmp     al,'z'
67         ja      @@7
68         sub     al,20h
69 @@7:    cmp     al,[edi-1]
70         je      @@6
71         sub     ecx,ebx
72         add     esi,ecx
73         add     edi,ecx
74         inc     esi
75         mov     ecx,edx
76         jne     @@4
77 @@8:    xor     eax,eax
78         jmp     @@11
79 @@9:    mov     eax,1
80         jmp     @@11
81 @@10:   sub     esi,ebx
82         mov     eax,esi
83         sub     eax,dword ptr buf
84         inc     eax
85 @@11:   dec     eax
86 end;
87
88 function SensitiveScan(var buf; skip,size: Longint; str: String): Longint; assembler;
89 asm
90         mov     edi,[buf]
91         add     edi,skip
92         mov     esi,[str]
93         mov     ecx,size
94         sub     ecx,skip
95         xor     eax,eax
96         jecxz   @@3
97         cld
98         lodsb
99         cmp     al,1
100         jb      @@5
101         ja      @@1
102         lodsb
103         repne   scasb
104         jne     @@3
105         jmp     @@5
106 @@1:    xor     ah,ah
107         mov     ebx,eax
108         dec     ebx
109         mov     edx,ecx
110         sub     edx,eax
111         jb      @@3
112         lodsb
113         add     edx,2
114 @@2:    dec     edx
115         mov     ecx,edx
116         repne   scasb
117         jne     @@3
118         mov     edx,ecx
119         mov     ecx,ebx
120         rep     cmpsb
121         je      @@4
122         sub     ecx,ebx
123         add     esi,ecx
124         add     edi,ecx
125         inc     edi
126         or      edx,edx
127         jne     @@2
128 @@3:    xor     eax,eax
129         jmp     @@6
130 @@4:    sub     edi,ebx
131 @@5:    mov     eax,edi
132         sub     eax,dword ptr buf
133 @@6:    dec     eax
134 end;
135
136 function Compare(var buf1,buf2; size: Longint): Boolean; assembler;
137 asm
138         xor     edx,edx
139         mov     eax,size
140         cmp     eax,16
141         jb      @@3
142         mov     ecx,4
143         div     ecx
144         mov     ecx,eax
145         jecxz   @@1
146         mov     esi,[buf1]
147         mov     edi,[buf2]
148         cld
149         repz    cmpsd
150         jnz     @@2
151         mov     ecx,edx
152         jecxz   @@1
153         repz    cmpsb
154         jnz     @@2
155 @@1:    mov     al,1
156         jmp     @@6
157 @@2:    xor     al,al
158         jmp     @@6
159 @@3:    mov     ecx,size
160         jecxz   @@4
161         mov     esi,[buf1]
162         mov     edi,[buf2]
163         cld
164         repz    cmpsb
165         jnz     @@5
166 @@4:    mov     al,1
167         jmp     @@6
168 @@5:    xor     al,al
169 @@6:
170 end;
171
172 function Empty(var buf; size: Longint): Boolean; assembler;
173 asm
174         xor     edx,edx
175         mov     eax,size
176         cmp     eax,16
177         jb      @@3
178         mov     ecx,4
179         div     ecx
180         mov     ecx,eax
181         jecxz   @@1
182         mov     edi,[buf]
183         xor     eax,eax
184         repz    scasd
185         jnz     @@2
186         mov     ecx,edx
187         jecxz   @@1
188         repz    scasb
189         jnz     @@2
190 @@1:    mov     al,1
191         jmp     @@6
192 @@2:    xor     al,al
193         jmp     @@6
194 @@3:    mov     ecx,size
195         jecxz   @@4
196         mov     edi,[buf]
197         xor     eax,eax
198         repz    scasb
199         jnz     @@5
200 @@4:    mov     al,1
201         jmp     @@6
202 @@5:    xor     al,al
203 @@6:
204 end;
205
206 function CountLines(var buf; size: Longint): Longint; assembler;
207 asm
208         mov     edi,[buf]
209         mov     ecx,size
210         mov     edx,edi
211         add     edx,ecx
212         xor     ebx,ebx
213         jecxz   @@3
214 @@1:    mov     al,0dh
215         repnz   scasb
216         jnz     @@3
217         cmp     byte ptr [edi],0ah
218         jnz     @@2
219         inc     edi
220         inc     ebx
221 @@2:    cmp     edi,edx
222         jb      @@1
223 @@3:    mov     eax,ebx
224 end;
225
226 function Update16(var buf; size: Longint; crc: Word): Word; assembler;
227 asm
228         mov     esi,[buf]
229         lea     edi,[CRC16_table]
230         mov     bx,crc
231         mov     ecx,size
232         jecxz   @@2
233 @@1:    xor     ax,ax
234         lodsb
235         mov     dl,bh
236         xor     dh,dh
237         xor     bh,bh
238         xor     bx,ax
239         and     ebx,000000ffh
240         shl     ebx,1
241         mov     bx,[edi+ebx]
242         xor     bx,dx
243         loop    @@1
244 @@2:    mov     ax,bx
245 end;
246
247 function Update32(var buf; size: Longint; crc: Longint): Longint; assembler;
248 asm
249         mov     esi,[buf]
250         lea     edi,[CRC32_table]
251         mov     ebx,crc
252         mov     ecx,size
253         jecxz   @@2
254 @@1:    xor     eax,eax
255         lodsb
256         xor     ebx,eax
257         mov     edx,ebx
258         and     ebx,000000ffh
259         shl     ebx,2
260         mov     ebx,[edi+ebx]
261         shr     edx,8
262         and     edx,00ffffffh
263         xor     ebx,edx
264         loop    @@1
265 @@2:    mov     eax,ebx
266 end;
267
268 procedure make_table_16bit;
269
270 var
271   crc: Word;
272   n,index: Byte;
273
274 begin
275   For index := 0 to 255 do
276   begin
277     crc := index;
278     For n := 1 to 8 do
279       If Odd(crc) then crc := crc SHR 1 XOR $0a001
280       else crc := crc SHR 1;
281     CRC16_table[index] := crc;
282   end;
283 end;
284
285 procedure make_table_32bit;
286
287 var
288   crc: DWord;
289   n,index: Byte;
290
291 begin
292   For index := 0 to 255 do
293     begin
294       crc := index;
295       For n := 1 to 8 do
296         If Odd(crc) then crc := crc SHR 1 XOR $0edb88320
297         else crc := crc SHR 1;
298       CRC32_table[index] := crc;
299     end;
300 end;
301
302 begin
303   make_table_16bit;
304   make_table_32bit;
305 end.