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
|
% Changes to adapt tie to web2c.
% Copyright 2001 by Olaf Weber
% This file is in the Public Domain.
@x Already in cpascal.h.
@d incr(v) v+=1 /* increase a variable by unity */
@d decr(v) v-=1 /* decrease a variable by unity */
@y
@z
@x
@ Furthermore we include the additional types |boolean| and |string|.
@d false 0
@d true 1
@<Global types@>=
typedef int boolean;
typedef char* string;
@y
@ Furthermore we include the additional types |boolean| and |string|.
/* boolean, false, true; string; all from cpascal.h */
@z
@x -- we need more input files.
#define max_file_index 9
/* we don't think that anyone needs more than 9 change files,
@y
#define max_file_index 32
/* we don't think that anyone needs more than 32 change files,
@z
@x -- add to global includes.
#include <stdio.h>
@y
#include "cpascal.h"
#include <stdio.h>
/* Also redefine usage to avoid clash with function from lib. */
#define usage tieusage
@z
@x
void get_line(i)
file_index i;
@y
void get_line P1C(file_index, i)
@z
@x
void err_loc(i) /* prints location of error */
int i;
@y
void err_loc P1C(int, i) /* prints location of error */
@z
@x
boolean lines_dont_match(i,j)
file_index i,j;
@y
boolean lines_dont_match P2C(file_index, i, file_index, j)
@z
@x
void init_change_file(i,b)
file_index i; boolean b;
@y
void init_change_file P2C(file_index, i, boolean, b)
@z
@x
void put_line(j)
file_index j;
@y
void put_line P1C(file_index, j)
@z
@x
boolean e_of_ch_module(i)
file_index i;
@y
boolean e_of_ch_module P1C(file_index, i)
@z
@x
boolean e_of_ch_preamble(i)
file_index i;
@y
boolean e_of_ch_preamble P1C(file_index, i)
@z
@x
void usage()
@y
void usage P1H(void)
@z
@x
main(argc,argv)
int argc; string *argv;
@y
int main P2C(int, argc, string *, argv)
@z
@x
print_ln(banner); /* print a ``banner line'' */
print_ln(copyright); /* include the copyright notice */
@y
print(banner); /* print a ``banner line'' */
print_ln(versionstring); /* Web2C version */
print_ln(copyright); /* include the copyright notice */
@z
|
