interpreters/nitfol.patch

   1 diff -P'aurx.*' nitfol-0.5/automap.c nitfol-chimara/automap.c
   2 --- nitfol-0.5/automap.c        1999-10-20 02:09:46.000000000 +0200
   3 +++ nitfol-chimara/automap.c    2009-09-10 21:39:06.000000000 +0200
   4 @@ -1066,6 +1066,8 @@
   5
   6  #else
   7
   8 +char *roomsymbol = NULL;
   9 +
  10  BOOL automap_unexplore(void)
  11  {
  12    return FALSE;
  13 diff -P'aurx.*' nitfol-0.5/automap.h nitfol-chimara/automap.h
  14 --- nitfol-0.5/automap.h        1999-10-25 02:55:13.000000000 +0200
  15 +++ nitfol-chimara/automap.h    2009-09-10 21:39:11.000000000 +0200
  16 @@ -26,6 +26,7 @@
  17  BOOL automap_unexplore (void);
  18
  19  #else
  20 +extern char * roomsymbol;
  21  BOOL automap_unexplore (void);
  22
  23  #endif
  24 Only in nitfol-0.5: copying.c
  25 Only in nitfol-0.5: dbg_help.h
  26 Only in nitfol-0.5: dbg_help.texi
  27 Only in nitfol-0.5: gi_blorb.h
  28 Only in nitfol-0.5: glk.h
  29 Only in nitfol-0.5: glkstart.h
  30 Only in nitfol-0.5: inform.c
  31 Only in nitfol-0.5: inform.hhh
  32 diff -P'aurx.*' nitfol-0.5/inform.y nitfol-chimara/inform.y
  33 --- nitfol-0.5/inform.y 1999-10-25 02:37:17.000000000 +0200
  34 +++ nitfol-chimara/inform.y     2009-09-10 21:38:56.000000000 +0200
  35 @@ -304,7 +304,7 @@
  36  /* :: Show the current source language. */
  37         | LANGUAGE              { infix_print_string("The current source language is \"inform\".\n"); }
  38  /* :: Get information on the current source file. */
  39 -       | INFOSOURCE            { infix_print_string("Current source file is "); infix_print_string(cur_file->filename); infix_print_string("\nContains "); infix_print_number(cur_file->num_lines); infix_print_string(" lines.\nSource language is inform.\n"); }
  40 +       | INFOSOURCE            { infix_print_string("Current source file is "); infix_print_string(cur_file?cur_file->filename:"unknown"); infix_print_string("\nContains "); infix_print_number(cur_file?cur_file->num_lines:0); infix_print_string(" lines.\nSource language is inform.\n"); }
  41  /* :: List source files. */
  42         | INFOSOURCES           { infix_print_string("Source files for which symbols have been read in:\n\n"); infix_list_files(); infix_print_char('\n'); }
  43  /* :: Show licensing information. */
  44 @@ -346,9 +346,9 @@
  45  */
  46  ;
  47
  48 -linespec: NUM                  { if($1.t == Z_ROUTINE) $$ = infix_get_routine_PC($1.v); else { infix_location l; infix_decode_fileloc(&l, cur_file->filename, $1.v); $$ = l.thisPC; } }
  49 -       | '+' NUM               { infix_location l; infix_decode_fileloc(&l, cur_file->filename, cur_line + $2.v); $$ = l.thisPC; }
  50 -       | '-' NUM               { infix_location l; infix_decode_fileloc(&l, cur_file->filename, cur_line - $2.v); $$ = l.thisPC; }
  51 +linespec: NUM                  { if($1.t == Z_ROUTINE) $$ = infix_get_routine_PC($1.v); else { infix_location l; infix_decode_fileloc(&l, cur_file?cur_file->filename:"", $1.v); $$ = l.thisPC; } }
  52 +       | '+' NUM               { infix_location l; infix_decode_fileloc(&l, cur_file?cur_file->filename:"", cur_line + $2.v); $$ = l.thisPC; }
  53 +       | '-' NUM               { infix_location l; infix_decode_fileloc(&l, cur_file?cur_file->filename:"", cur_line - $2.v); $$ = l.thisPC; }
  54         | DFILE ':' NUM         { if($3.t == Z_ROUTINE) $$ = UNPACKR($3.v); else { infix_location l; infix_decode_fileloc(&l, $1->filename, $3.v); $$ = l.thisPC; } }
  55         | '*' NUM               { $$ = $2.v;                    }
  56  ;
  57 @@ -388,6 +388,7 @@
  58  /* Expressions with conditions */
  59  condexp:
  60         exp CONDITION { cond_list newcond; newcond.val = $1.v; newcond.condfunc = $2.condfunc; newcond.opposite = $2.opposite; LEaddm(condlist, newcond, n_rmmalloc); } orlist { if($4) ignoreeffects--; $$.v = $4; $$.t = Z_BOOLEAN; LEremovem(condlist, n_rmfreeone); }
  61 +;
  62
  63  /* Expressions without commas */
  64  exp:     NUM
  65 diff -P'aurx.*' nitfol-0.5/init.c nitfol-chimara/init.c
  66 --- nitfol-0.5/init.c   1999-10-24 17:38:06.000000000 +0200
  67 +++ nitfol-chimara/init.c       2009-09-10 21:38:52.000000000 +0200
  68 @@ -250,7 +250,10 @@
  69    z_synonymtable  = MSBdecodeZ(header + HD_ABBREV);
  70
  71    switch(zversion) {
  72 -  case 1: case 2: case 3:
  73 +  case 1: case 2:
  74 +    game_size     = filesize;
  75 +    break;
  76 +  case 3:
  77      game_size     = ((offset) MSBdecodeZ(header + HD_LENGTH)) * 2;
  78      break;
  79    case 4: case 5:
  80 @@ -329,13 +332,15 @@
  81      n_show_fatal(E_SYSTEM, "unexpected number of bytes read", bytes_read);
  82
  83    z_checksum = 0;
  84 -  for(i = 0x40; i < game_size; i++)
  85 -    z_checksum += HIBYTE(i);
  86 -  z_checksum = ARITHMASK(z_checksum);
  87 -
  88 -  if(z_checksum != LOWORD(HD_CHECKSUM)) {
  89 -    n_show_error(E_CORRUPT, "Checksum does not match", z_checksum);
  90 -    check_ascii_mode();
  91 +  if (zversion >= 3) {
  92 +    for(i = 0x40; i < game_size; i++)
  93 +      z_checksum += HIBYTE(i);
  94 +    z_checksum = ARITHMASK(z_checksum);
  95 +
  96 +    if(LOWORD(HD_CHECKSUM) != 0 && z_checksum != LOWORD(HD_CHECKSUM)) {
  97 +      n_show_error(E_CORRUPT, "Checksum does not match", z_checksum);
  98 +      check_ascii_mode();
  99 +    }
 100    }
 101
 102
 103 diff -P'aurx.*' nitfol-0.5/io.c nitfol-chimara/io.c
 104 --- nitfol-0.5/io.c     1999-10-22 04:53:34.000000000 +0200
 105 +++ nitfol-chimara/io.c 2009-09-10 21:41:59.000000000 +0200
 106 @@ -103,9 +103,9 @@
 107                     stylehint_Proportional, 0);
 108    glk_stylehint_set(wintype_TextBuffer, style_BlockQuote,
 109                     stylehint_Justification, stylehint_just_Centered);
 110 -#ifdef stylehint_Reverse
 111 +#ifdef stylehint_ReverseColor
 112    glk_stylehint_set(wintype_TextBuffer, style_BlockQuote,
 113 -                   stylehint_Reverse, 1);
 114 +                   stylehint_ReverseColor, 1);
 115  #endif
 116
 117    /* User1 will be used for bold italics */
 118 @@ -410,7 +410,7 @@
 119
 120    upper_win->win = glk_window_open(game_windows[0].win,
 121                                     winmethod_Above | winmethod_Fixed,
 122 -                                   upper_height,
 123 +                                   1, /* XXX huh? upper_height, */
 124                                     wintype_TextGrid, 1);
 125
 126    if(upper_win->win == 0) {
 127 diff -P'aurx.*' nitfol-0.5/main.c nitfol-chimara/main.c
 128 --- nitfol-0.5/main.c   1999-10-18 01:14:39.000000000 +0200
 129 +++ nitfol-chimara/main.c       2009-09-10 21:42:28.000000000 +0200
 130 @@ -90,17 +90,33 @@
 131    if(!current_zfile) {
 132      winid_t tempwin;
 133      tempwin = glk_window_open(0, 0, 100, wintype_TextBuffer, 0);
 134 -    while(!current_zfile) {
 135 -      strid_t z = n_file_prompt(fileusage_Data | fileusage_BinaryMode,
 136 -                               filemode_Read);
 137 -      if(!z) {
 138 -       w_glk_put_string_stream(glk_window_get_stream(tempwin),
 139 -                               "File not found.");
 140 -       continue;
 141 -      }
 142 -      set_zfile(z);
 143 -    }
 144 -    glk_window_close(tempwin, NULL);
 145 +       glk_set_window(tempwin);
 146 +       glk_set_style(style_Preformatted);
 147 +       glk_put_string(
 148 +"Usage: nitfol [OPTIONS] gamefile\n"
 149 +" -i, -ignore      Ignore Z-machine strictness errors\n"
 150 +" -f, -fullname    For running under Emacs or DDD\n"
 151 +" -x, -command     Read commands from this file\n"
 152 +" -P, -pirate      Aye, matey\n"
 153 +"     -spell       Perform spelling correction\n"
 154 +"     -expand      Expand one letter abbreviations\n"
 155 +" -s, -symbols     Specify symbol file for game\n"
 156 +" -t, -tandy       Censors some Infocom games\n"
 157 +" -T, -transcript  Write transcript to this file\n"
 158 +" -d, -debug       Enter debugger immediatly\n"
 159 +"     -prompt      Specify debugging prompt\n"
 160 +"     -autoundo    Ensure '@save_undo' is called every turn\n"
 161 +" -S, -stacklimit  Exit when the stack is this deep\n"
 162 +" -a, -alias       Specify an alias\n"
 163 +"     -ralias      Specify an recursive alias\n"
 164 +"     -unalias     Remove an alias\n"
 165 +" -r, -random      Set random seed\n"
 166 +"     -mapsym      Specify mapping glyphs\n"
 167 +"     -mapsize     Specify map size\n"
 168 +"     -maploc      Specify map location\n"
 169 +"     -terpnum     Specify interpreter number\n"
 170 +"     -terpver     Specify interpreter version\n");
 171 +    glk_exit();
 172    }
 173    z_init(current_zfile);
 174    if(savefile) {
 175 Only in nitfol-0.5: Make.dummy
 176 Only in nitfol-0.5: Makefile
 177 diff -P'aurx.*' nitfol-0.5/Makefile.am nitfol-chimara/Makefile.am
 178 --- nitfol-0.5/Makefile.am      1970-01-01 01:00:00.000000000 +0100
 179 +++ nitfol-chimara/Makefile.am  2009-09-10 00:04:11.000000000 +0200
 180 @@ -0,0 +1,58 @@
 181 +PLUGIN_LIBTOOL_FLAGS=-module -avoid-version -export-symbols-regex "^glk"
 182 +
 183 +GRAPHICS = no_graph.c no_graph.h
 184 +# GRAPHICS = graphics.c graphics.h
 185 +BLORB = blorb.c
 186 +# BLORB = no_blorb.c
 187 +SOUND = no_snd.c no_snd.h
 188 +# SOUND = sound.c sound.h
 189 +
 190 +dist_noinst_SCRIPTS = copying.awk opt2glkc.pl y2help.pl
 191 +
 192 +pkglib_LTLIBRARIES = nitfol.la
 193 +nitfol_la_SOURCES = automap.c automap.h binary.h copying.h debug.c debug.h \
 194 +       decode.c decode.h errmesg.c errmesg.h globals.c globals.h hash.c hash.h \
 195 +       iff.c iff.h infix.c infix.h inform.y inform.h init.c init.h io.c \
 196 +       linkevil.h main.c main.h nio.h nitfol.h no_blorb.h objects.c objects.h \
 197 +       op_call.c op_call.h op_jmp.c op_jmp.h oplist.c oplist.h op_math.c \
 198 +       op_math.h op_save.c op_save.h op_table.c op_table.h op_v6.c op_v6.h \
 199 +       portfunc.c portfunc.h quetzal.c quetzal.h solve.c solve.h stack.c stack.h \
 200 +       struct.c struct.h tokenise.c tokenise.h undo.c undo.h z_io.c z_io.h \
 201 +       zscii.c zscii.h \
 202 +       $(GRAPHICS) \
 203 +       $(BLORB) \
 204 +       $(SOUND)
 205 +nodist_nitfol_la_SOURCES = copying.c dbg_help.h startunix.c
 206 +nitfol_la_CPPFLAGS = -I$(top_srcdir) -I$(top_srcdir)/libchimara \
 207 +       -DSMART_TOKENISER -DUSE_INLINE
 208 +nitfol_la_LDFLAGS = $(PLUGIN_LIBTOOL_FLAGS)
 209 +
 210 +info_TEXINFOS = nitfol.texi
 211 +nitfol_TEXINFOS = dbg_help.texi options.texi
 212 +# man_MANS = nitfol.6
 213 +
 214 +BUILT_SOURCES = copying.c dbg_help.h startunix.c
 215 +CLEANFILES = $(BUILT_SOURCES) dbg_help.texi nitfol.6 options.texi
 216 +
 217 +dbg_help.h: inform.y y2help.pl
 218 +       $(PERL) $(srcdir)/y2help.pl $(srcdir)/inform.y
 219 +
 220 +dbg_help.texi: inform.y y2help.pl
 221 +       $(PERL) $(srcdir)/y2help.pl $(srcdir)/inform.y
 222 +
 223 +copying.c: COPYING copying.awk
 224 +       $(AWK) --file $(srcdir)/copying.awk <$(srcdir)/COPYING >copying.c
 225 +
 226 +# nitfol.6: nitfol.opt opt2glkc.pl
 227 +#      $(PERL) $(srcdir)/opt2glkc.pl -man $(srcdir)/nitfol.opt
 228 +
 229 +options.texi: nitfol.opt opt2glkc.pl
 230 +       $(PERL) $(srcdir)/opt2glkc.pl -info $(srcdir)/nitfol.opt
 231 +
 232 +startunix.c: nitfol.opt opt2glkc.pl
 233 +       $(PERL) $(srcdir)/opt2glkc.pl -unix $(srcdir)/nitfol.opt
 234 +
 235 +EXTRA_DIST = nitfol.opt crashme.inf test.inf
 236 +
 237 +nitfoldocdir = $(datadir)/doc/$(PACKAGE)/nitfol
 238 +dist_nitfoldoc_DATA = ChangeLog COPYING INSTALL README
 239 Only in nitfol-0.5: nitfol
 240 Only in nitfol-0.5: nitfol.6
 241 diff -P'aurx.*' nitfol-0.5/nitfol.h nitfol-chimara/nitfol.h
 242 --- nitfol-0.5/nitfol.h 1999-10-24 16:56:06.000000000 +0200
 243 +++ nitfol-chimara/nitfol.h     2009-09-10 21:56:44.000000000 +0200
 244 @@ -30,11 +30,12 @@
 245  #define NITFOL_MINOR 5
 246
 247  /* Change these next few typedefs depending on your compiler */
 248 -typedef unsigned char zbyte;
 249 +#include <stdint.h>
 250 +typedef uint8_t zbyte;
 251
 252  #ifdef FAST_SHORT
 253 -typedef unsigned short zword;
 254 -typedef unsigned long offset;
 255 +typedef uint16_t zword;
 256 +typedef uint32_t offset;
 257
 258  #ifdef TWOS16SHORT
 259  #define FAST_TWOS16SHORT
 260 @@ -43,11 +44,11 @@
 261  #else
 262
 263  #ifdef FAST_SIGNED
 264 -typedef int zword;
 265 -typedef long offset;
 266 +typedef int32_t zword;
 267 +typedef int32_t offset;
 268  #else
 269 -typedef unsigned int  zword;  /* Needs to be >= real zword */
 270 -typedef unsigned long offset;
 271 +typedef uint32_t zword;  /* Needs to be >= real zword */
 272 +typedef uint32_t offset;
 273  #endif
 274
 275  #endif
 276 Only in nitfol-0.5: nitfol.html
 277 Only in nitfol-0.5: nitfol.info
 278 diff -P'aurx.*' nitfol-0.5/nitfol.opt nitfol-chimara/nitfol.opt
 279 --- nitfol-0.5/nitfol.opt       1999-10-24 16:56:06.000000000 +0200
 280 +++ nitfol-chimara/nitfol.opt   2009-09-10 21:56:44.000000000 +0200
 281 @@ -3,7 +3,7 @@
 282  # You can alter the 'default' part to change the game's default options.
 283
 284  # Longest name         Long    short   description                             type    default code
 285 - "Ignore errors"               ignore  i       "Ignore Z-machine strictness errors"    flag    1       { ignore_errors = flag; }
 286 + "Ignore errors"               ignore  i       "Ignore Z-machine strictness errors"    flag    1       { ignore_errors = flag; }
 287  Normally nitfol checks for illegal and undefined Z-machine behaviour and alerts the user.  If you're playing someone else's buggy game, this can be annoying and you should use this option.
 288
 289  "Inferior debugger"    fullname f      "For running under Emacs or DDD"        flag    0       { fullname = flag; }
 290 Only in nitfol-0.5: options.texi
 291 Only in nitfol-0.5: rg_qsort.h
 292 Only in nitfol-0.5: startdos.c
 293 Only in nitfol-0.5: startmac.c
 294 Only in nitfol-0.5: startunix.c
 295 Only in nitfol-0.5: startwin.c
 296 diff -P'aurx.*' nitfol-0.5/z_io.c nitfol-chimara/z_io.c
 297 --- nitfol-0.5/z_io.c   1999-10-24 19:20:50.000000000 +0200
 298 +++ nitfol-chimara/z_io.c       2009-04-05 19:17:51.000000000 +0200
 299 @@ -900,13 +900,14 @@
 300
 301    length = n_read(text + 1, maxlen, operand[1], 0,
 302                   operand[2], operand[3], &term);
 303 -  if(!read_abort)
 304 +  if(!read_abort) {
 305      LOBYTEwrite(text + 1 + length, 0);  /* zero terminator */
 306
 307 -  if(allow_saveundo) {
 308 -    if(!has_done_save_undo && auto_save_undo)
 309 -      saveundo(FALSE);
 310 -    has_done_save_undo = FALSE;
 311 +    if(allow_saveundo) {
 312 +      if(!has_done_save_undo && auto_save_undo)
 313 +        saveundo(FALSE);
 314 +      has_done_save_undo = FALSE;
 315 +    }
 316    }
 317  }
 318
 319 @@ -928,12 +929,12 @@
 320    if(!read_abort) {
 321      LOBYTEwrite(text + 1, length);
 322      mop_store_result(term);
 323 -  }
 324 -
 325 -  if(allow_saveundo) {
 326 -    if(!has_done_save_undo && auto_save_undo)
 327 -      saveundo(FALSE);
 328 -    has_done_save_undo = FALSE;
 329 +
 330 +    if(allow_saveundo) {
 331 +      if(!has_done_save_undo && auto_save_undo)
 332 +        saveundo(FALSE);
 333 +      has_done_save_undo = FALSE;
 334 +    }
 335    }
 336  }
 337
 338 @@ -1094,5 +1095,38 @@
 339
 340  void op_print_unicode(void)
 341  {
 342 -  output_char(operand[0]);
 343 +  if(!allow_output)
 344 +    return;
 345 +  if(operand[0] >= 256 || (operand[0] > 127 && operand[0] < 160)) {
 346 +    output_char('?');
 347 +    return;
 348 +  }
 349 +  if(output_stream & STREAM3) {
 350 +    if(operand[0] >= 160) {
 351 +      const unsigned char default_unicode_zscii_translation[] = {
 352 +        0x00, 0xde, 0x00, 0xdb, 0x00, 0x00, 0x00, 0x00,
 353 +        0x00, 0x00, 0x00, 0xa3, 0x00, 0x00, 0x00, 0x00,
 354 +        0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
 355 +        0x00, 0x00, 0x00, 0xa2, 0x00, 0x00, 0x00, 0xdf,
 356 +        0xba, 0xaf, 0xc4, 0xd0, 0x9e, 0xca, 0xd4, 0xd6,
 357 +        0xbb, 0xb0, 0xc5, 0xa7, 0xbc, 0xb1, 0xc6, 0xa8,
 358 +        0xda, 0xd1, 0xbd, 0xb2, 0xc7, 0xd2, 0x9f, 0x00,
 359 +        0xcc, 0xbe, 0xb3, 0xc8, 0xa0, 0xb4, 0xd9, 0xa1,
 360 +        0xb5, 0xa9, 0xbf, 0xcd, 0x9b, 0xc9, 0xd3, 0xd5,
 361 +        0xb6, 0xaa, 0xc0, 0xa4, 0xb7, 0xab, 0xc1, 0xa5,
 362 +        0xd8, 0xce, 0xb8, 0xac, 0xc2, 0xcf, 0x9c, 0x00,
 363 +        0xcb, 0xb9, 0xad, 0xc3, 0x9d, 0xae, 0xd7, 0xa6
 364 +      };
 365 +      unsigned char c = default_unicode_zscii_translation[operand[0] - 160];
 366 +      output_char(c == 0 ? '?' : c);
 367 +    } else if(operand[0] == 10) {
 368 +      output_char(13);
 369 +    } else {
 370 +      output_char(operand[0]);
 371 +    }
 372 +  } else {
 373 +    if(output_stream & STREAM1) {
 374 +      z_put_char(current_window, operand[0]);
 375 +    }
 376 +  }
 377  }
 378 diff -P'aurx.*' nitfol-0.5/zscii.c nitfol-chimara/zscii.c
 379 --- nitfol-0.5/zscii.c  1999-10-18 01:14:45.000000000 +0200
 380 +++ nitfol-chimara/zscii.c      2009-04-05 19:17:51.000000000 +0200
 381 @@ -41,7 +41,7 @@
 382
 383
 384  /* Returns character for given alphabet, letter pair */
 385 -static char alphabetsoup(unsigned spoon, unsigned char letter)
 386 +static unsigned char alphabetsoup(unsigned spoon, unsigned char letter)
 387  {
 388    const char *alphabet;
 389