9
9
10
10
#define CREATE_SIZE 1
11
11
12
- extern symbol *
12
+ symbol *
13
13
create_s (void )
14
14
{
15
15
symbol * p = (symbol * ) (HEAD + (char * ) malloc (HEAD + (CREATE_SIZE + 1 ) * sizeof (symbol )));
@@ -21,13 +21,13 @@ create_s(void)
21
21
return p ;
22
22
}
23
23
24
- extern void
24
+ void
25
25
lose_s (symbol * p )
26
26
{
27
27
free ((char * ) p - HEAD );
28
28
}
29
29
30
- extern int
30
+ int
31
31
in_grouping (struct SN_env * z , unsigned char * s , int min , int max )
32
32
{
33
33
if (z -> c >= z -> l )
@@ -44,7 +44,7 @@ in_grouping(struct SN_env * z, unsigned char *s, int min, int max)
44
44
return 1 ;
45
45
}
46
46
47
- extern int
47
+ int
48
48
in_grouping_b (struct SN_env * z , unsigned char * s , int min , int max )
49
49
{
50
50
if (z -> c <= z -> lb )
@@ -61,7 +61,7 @@ in_grouping_b(struct SN_env * z, unsigned char *s, int min, int max)
61
61
return 1 ;
62
62
}
63
63
64
- extern int
64
+ int
65
65
out_grouping (struct SN_env * z , unsigned char * s , int min , int max )
66
66
{
67
67
if (z -> c >= z -> l )
@@ -77,7 +77,7 @@ out_grouping(struct SN_env * z, unsigned char *s, int min, int max)
77
77
return 1 ;
78
78
}
79
79
80
- extern int
80
+ int
81
81
out_grouping_b (struct SN_env * z , unsigned char * s , int min , int max )
82
82
{
83
83
if (z -> c <= z -> lb )
@@ -94,7 +94,7 @@ out_grouping_b(struct SN_env * z, unsigned char *s, int min, int max)
94
94
}
95
95
96
96
97
- extern int
97
+ int
98
98
in_range (struct SN_env * z , int min , int max )
99
99
{
100
100
if (z -> c >= z -> l )
@@ -110,7 +110,7 @@ in_range(struct SN_env * z, int min, int max)
110
110
return 1 ;
111
111
}
112
112
113
- extern int
113
+ int
114
114
in_range_b (struct SN_env * z , int min , int max )
115
115
{
116
116
if (z -> c <= z -> lb )
@@ -126,7 +126,7 @@ in_range_b(struct SN_env * z, int min, int max)
126
126
return 1 ;
127
127
}
128
128
129
- extern int
129
+ int
130
130
out_range (struct SN_env * z , int min , int max )
131
131
{
132
132
if (z -> c >= z -> l )
@@ -141,7 +141,7 @@ out_range(struct SN_env * z, int min, int max)
141
141
return 1 ;
142
142
}
143
143
144
- extern int
144
+ int
145
145
out_range_b (struct SN_env * z , int min , int max )
146
146
{
147
147
if (z -> c <= z -> lb )
@@ -156,7 +156,7 @@ out_range_b(struct SN_env * z, int min, int max)
156
156
return 1 ;
157
157
}
158
158
159
- extern int
159
+ int
160
160
eq_s (struct SN_env * z , int s_size , symbol * s )
161
161
{
162
162
if (z -> l - z -> c < s_size ||
@@ -166,7 +166,7 @@ eq_s(struct SN_env * z, int s_size, symbol * s)
166
166
return 1 ;
167
167
}
168
168
169
- extern int
169
+ int
170
170
eq_s_b (struct SN_env * z , int s_size , symbol * s )
171
171
{
172
172
if (z -> c - z -> lb < s_size ||
@@ -176,19 +176,19 @@ eq_s_b(struct SN_env * z, int s_size, symbol * s)
176
176
return 1 ;
177
177
}
178
178
179
- extern int
179
+ int
180
180
eq_v (struct SN_env * z , symbol * p )
181
181
{
182
182
return eq_s (z , SIZE (p ), p );
183
183
}
184
184
185
- extern int
185
+ int
186
186
eq_v_b (struct SN_env * z , symbol * p )
187
187
{
188
188
return eq_s_b (z , SIZE (p ), p );
189
189
}
190
190
191
- extern int
191
+ int
192
192
find_among (struct SN_env * z , struct among * v , int v_size )
193
193
{
194
194
int i = 0 ;
@@ -280,7 +280,7 @@ find_among(struct SN_env * z, struct among * v, int v_size)
280
280
281
281
/* find_among_b is for backwards processing. Same comments apply */
282
282
283
- extern int
283
+ int
284
284
find_among_b (struct SN_env * z , struct among * v , int v_size )
285
285
{
286
286
int i = 0 ;
@@ -364,7 +364,7 @@ find_among_b(struct SN_env * z, struct among * v, int v_size)
364
364
}
365
365
366
366
367
- extern symbol *
367
+ symbol *
368
368
increase_size (symbol * p , int n )
369
369
{
370
370
int new_size = n + 20 ;
@@ -380,7 +380,7 @@ increase_size(symbol * p, int n)
380
380
s_size symbols at s
381
381
*/
382
382
383
- extern int
383
+ int
384
384
replace_s (struct SN_env * z , int c_bra , int c_ket , int s_size , const symbol * s )
385
385
{
386
386
int adjustment = s_size - (c_ket - c_bra );
@@ -416,26 +416,26 @@ slice_check(struct SN_env * z)
416
416
}
417
417
}
418
418
419
- extern void
419
+ void
420
420
slice_from_s (struct SN_env * z , int s_size , symbol * s )
421
421
{
422
422
slice_check (z );
423
423
replace_s (z , z -> bra , z -> ket , s_size , s );
424
424
}
425
425
426
- extern void
426
+ void
427
427
slice_from_v (struct SN_env * z , symbol * p )
428
428
{
429
429
slice_from_s (z , SIZE (p ), p );
430
430
}
431
431
432
- extern void
432
+ void
433
433
slice_del (struct SN_env * z )
434
434
{
435
- slice_from_s (z , 0 , 0 );
435
+ slice_from_s (z , 0 , NULL );
436
436
}
437
437
438
- extern void
438
+ void
439
439
insert_s (struct SN_env * z , int bra , int ket , int s_size , symbol * s )
440
440
{
441
441
int adjustment = replace_s (z , bra , ket , s_size , s );
@@ -446,7 +446,7 @@ insert_s(struct SN_env * z, int bra, int ket, int s_size, symbol * s)
446
446
z -> ket += adjustment ;
447
447
}
448
448
449
- extern void
449
+ void
450
450
insert_v (struct SN_env * z , int bra , int ket , symbol * p )
451
451
{
452
452
int adjustment = replace_s (z , bra , ket , SIZE (p ), p );
@@ -457,7 +457,7 @@ insert_v(struct SN_env * z, int bra, int ket, symbol * p)
457
457
z -> ket += adjustment ;
458
458
}
459
459
460
- extern symbol *
460
+ symbol *
461
461
slice_to (struct SN_env * z , symbol * p )
462
462
{
463
463
slice_check (z );
@@ -472,7 +472,7 @@ slice_to(struct SN_env * z, symbol * p)
472
472
return p ;
473
473
}
474
474
475
- extern symbol *
475
+ symbol *
476
476
assign_to (struct SN_env * z , symbol * p )
477
477
{
478
478
int len = z -> l ;
@@ -484,7 +484,7 @@ assign_to(struct SN_env * z, symbol * p)
484
484
return p ;
485
485
}
486
486
487
- extern void
487
+ void
488
488
debug (struct SN_env * z , int number , int line_count )
489
489
{
490
490
int i ;
0 commit comments