% 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
