Atari FTP/ATARI_FTP_0693.zip/ATARI_FTP_0693/Tex/texchang.arc/bibtex

Text File | 1990-03-16 | 8KB | 373 lines

BibTeX change file for the Atari ST
Author: Nico Poppelier.
Date  : December 27, 1988.

Since the Prospero Pascal compiler strictly adheres to the
ISO Pascal standard (level 0), all occurrences of ':0' or ': 0'
in write and writeln statements have to be replaced by
':1' and ': 1', respectively.
(This was reported to Oren Patashnik, see TeXhax of Dec 88).

@x
@d banner=='This is BibTeX, Version 0.99c' {printed when the program starts}
@y
@d banner=='This is BibTeX, Version 0.99c for the Atari ST' {printed when the pr
   ogram starts}
@z

@x
@d term_out == tty
@d term_in == tty
@y
Files 'input' and 'output' are used for terminal input and output.
Prospero Pascal for the Atari ST requires us to mention
|input| and |output| in the program header.
@d term_out == output
@d term_in == input
@z

@x
@d debug == @{          { remove the `|@{|' when debugging }
@d gubed == @t@>@}      { remove the `|@}|' when debugging }
@y
@d debug ==             { we are debugging }
@d gubed == @t@>
@z

@x
@d stat == @{           { remove the `|@{|' when keeping statistics }
@d tats == @t@>@}       { remove the `|@}|' when keeping statistics }
@y
@d stat ==              { we are keeping statistics }
@d tats == @t@>
@z

@x
@d othercases == others: {default for cases not listed explicitly}
@y
@d othercases == otherwise {default for cases not listed explicitly}
@z

@x
program BibTEX;                 {all files are opened dynamically}
@y
program BibTEX(@!input,@!output); {these files have to be specified here}
@z

@x
@<Compiler directives@>=
@{@&$C-,A+,D-@}  {no range check, catch arithmetic overflow, no debug overhead}
@!debug @{@&$C+,D+@}@+ gubed  {but turn everything on when debugging}
@y
On the Atari ST, things are different: Prospero Pascal does
not allow in-comment directives
@<Compiler directives@>=
@z

@x
    write_ln (term_out,bad:0,' is a bad bad');
@y
    write_ln (term_out,bad:1,' is a bad bad');
@z

@x
@!alpha_file=packed file of text_char;  {files that contain textual data}
@y
@!alpha_file=text;      {files that contain textual data}
@z

@x
@d reset_OK(#)==erstat(#)=0
@d rewrite_OK(#)==erstat(#)=0
@y
@d reset_OK(#)==fstat(#)
@d rewrite_OK(#)==fstat(#)
@z

@x
function erstat(var f:file):integer; extern; {in the runtime library}
@y
@z

@x
begin reset(f,name_of_file,'/O'); a_open_in:=reset_OK(f);
@y
begin assign(f,name_of_file);
      reset(f); a_open_in:=reset_OK(name_of_file);
@z

@x
begin rewrite(f,name_of_file,'/O'); a_open_out:=rewrite_OK(f);
@y
begin assign(f,name_of_file);
      rewrite(f); a_open_out:=rewrite_OK(name_of_file);
@z

@x
procedure a_close(var f:alpha_file);  {close a text file}
begin close(f);
@y
procedure a_close(var f:alpha_file);  {close a text file}
begin close(f, true);
@z

@x
@d overflow(#)==begin           {fatal error---close up shop}
                print_overflow;
                print_ln(#:0);
@y
@d overflow(#)==begin           {fatal error---close up shop}
                print_overflow;
                print_ln(#:1);
@z

@x
    confusion ('Illegal string number:',s:0);
@y
    confusion ('Illegal string number:',s:1);
@z

@x
print ('---line ',cur_aux_line:0,' of file ');
@y
print ('---line ',cur_aux_line:1,' of file ');
@z

@x
print ('A level-',aux_ptr:0,' auxiliary file: ');
@y
print ('A level-',aux_ptr:1,' auxiliary file: ');
@z

@x
print ('--line ',bst_line_num:0,' of file ');
@y
print ('--line ',bst_line_num:1,' of file ');
@z

@x
  trace_pr_ln (' is an integer literal with value ',token_value:0);
@y
  trace_pr_ln (' is an integer literal with value ',token_value:1);
@z

@x
    print (single_ptr + wiz_def_ptr : 0,': ');
@y
    print (single_ptr + wiz_def_ptr : 1,': ');
@z

@x
print ('--line ',bib_line_num:0,' of file ');
@y
print ('--line ',bib_line_num:1,' of file ');
@z

@x
    print ('Database file #',bib_ptr+1:0,': ');
@y
    print ('Database file #',bib_ptr+1:1,': ');
@z

@x
    print_ln (total_fields:0,' fields:');
@y
    print_ln (total_fields:1,' fields:');
@z

@x
bib_err ('Your field is more than ',buf_size:0,' characters');
@y
bib_err ('Your field is more than ',buf_size:1,' characters');
@z

@x
    bib_err ('You''ve exceeded ',max_bib_files:0,' preamble commands');
@y
    bib_err ('You''ve exceeded ',max_bib_files:1,' preamble commands');
@z

@x
  trace_pr_ln ('Sorting ',left_end:0,' through ',right_end:0);
@y
  trace_pr_ln ('Sorting ',left_end:1,' through ',right_end:1);
@z

@x
    stk_int : trace_pr_ln (lit_stack[lit_stk_ptr]:0);
@y
    stk_int : trace_pr_ln (lit_stack[lit_stk_ptr]:1);
@z

@x
    stk_int : print (stk_lt:0,' is an integer literal');
@y
    stk_int : print (stk_lt:1,' is an integer literal');
@z

@x
    stk_int : print_ln (stk_lt:0);
@y
    stk_int : print_ln (stk_lt:1);
@z

@x
    print_ln ('ptr=',lit_stk_ptr:0,', stack=');
@y
    print_ln ('ptr=',lit_stk_ptr:1,', stack=');
@z

@x
      print_ln ('Pointer is ',str_ptr:0,' but should be ',cmd_str_ptr:0);
@y
      print_ln ('Pointer is ',str_ptr:1,' but should be ',cmd_str_ptr:1);
@z

@x
        bst_string_size_exceeded (ent_str_size:0,', the entry');
@y
        bst_string_size_exceeded (ent_str_size:1,', the entry');
@z

@x
            bst_string_size_exceeded (glob_str_size:0,', the global');
@y
            bst_string_size_exceeded (glob_str_size:1,', the global');
@z

@x
        print ('There aren''t ',pop_lit2:0,' names in "');
@y
        print ('There aren''t ',pop_lit2:1,' names in "');
@z

@x
                print ('Name ',pop_lit2:0,' in "');
@y
                print ('Name ',pop_lit2:1,' in "');
@z

@x
    print ('Too many commas in name ',pop_lit2:0,' of "');
@y
    print ('Too many commas in name ',pop_lit2:1,' of "');
@z

@x
print ('Name ',pop_lit2:0,' of "');
@y
print ('Name ',pop_lit2:1,' of "');
@z

@x
    bst_ex_warn (pop_lit1:0,' isn''t valid ASCII');
@y
    bst_ex_warn (pop_lit1:1,' isn''t valid ASCII');
@z

@x
    print ('Aborted at line ',bib_line_num:0,' of file ');
@y
    print ('Aborted at line ',bib_line_num:1,' of file ');
@z

@x
    trace_pr_ln ('The ',num_bib_files:0,' database files are');
@y
    trace_pr_ln ('The ',num_bib_files:1,' database files are');
@z

@x
    trace_pr ('all_marker=',all_marker:0,', ');
@y
    trace_pr ('all_marker=',all_marker:1,', ');
@z

@x
    trace_pr_ln ('old_num_cites=',old_num_cites:0)
@y
    trace_pr_ln ('old_num_cites=',old_num_cites:1)
@z

@x
trace_pr ('The ',num_cites:0);
@y
trace_pr ('The ',num_cites:1);
@z

@x
if (type_list[cite_ptr] = undefined) then
    undefined : trace_pr ('unknown')
@y
if (type_list[cite_ptr] = undefined) then
    trace_pr ('unknown')
@z

@x
        trace_pr (' ',entry_ints[int_ent_ptr]:0);
@y
        trace_pr (' ',entry_ints[int_ent_ptr]:1);
@z

@x
            trace_pr_ln (wiz_fn_ptr:0,'--end-of-def--')
@y
            trace_pr_ln (wiz_fn_ptr:1,'--end-of-def--')
@z

@x
            trace_pr (wiz_fn_ptr:0,'  quote_next_function    ')
@y
            trace_pr (wiz_fn_ptr:1,'  quote_next_function    ')
@z

@x
            trace_pr (wiz_fn_ptr:0,'  `');
@y
            trace_pr (wiz_fn_ptr:1,'  `');
@z

@x
stat_pr ('You''ve used ',num_cites:0);
@y
stat_pr ('You''ve used ',num_cites:1);
@z

@x
stat_pr_ln ('            ',wiz_def_ptr:0,' wiz_defined-function locations,');
@y
stat_pr_ln ('            ',wiz_def_ptr:1,' wiz_defined-function locations,');
@z

@x
stat_pr_ln ('            ',str_ptr:0,' strings with ',str_start[str_ptr]:0,
@y
stat_pr_ln ('            ',str_ptr:1,' strings with ',str_start[str_ptr]:1,
@z

@x
stat_pr_ln ('and the built_in function-call counts, ', total_ex_count:0,
@y
stat_pr_ln ('and the built_in function-call counts, ', total_ex_count:1,
@z

@x
    stat_pr_ln (' -- ',execution_count[blt_in_ptr]:0);
@y
    stat_pr_ln (' -- ',execution_count[blt_in_ptr]:1);
@z

@x
                          print_ln ('(There were ',err_count:0,' warnings)');
@y
                          print_ln ('(There were ',err_count:1,' warnings)');
@z

@x
                        print_ln ('(There were ',err_count:0,
@y
                        print_ln ('(There were ',err_count:1,
@z