home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / x / volume17 / xdvi / patch13 < prev    next >
Encoding:
Text File  |  1992-04-07  |  38.3 KB  |  1,598 lines
  1. Newsgroups: comp.sources.x
  2. Path: uunet!haven.umd.edu!darwin.sura.net!mips!msi!dcmartin
  3. From: vojta@math.berkeley.edu (Paul Vojta)
  4. Subject: v17i053: xdvi, Patch13, Part01/01
  5. Message-ID: <1992Apr8.163536.16361@msi.com>
  6. Originator: dcmartin@fascet
  7. Sender: dcmartin@msi.com (David C. Martin - Moderator)
  8. Nntp-Posting-Host: fascet
  9. Organization: Molecular Simulations, Inc.
  10. References: <csx-17i053-xdvi/patch13@uunet.UU.NET>
  11. Date: Wed, 8 Apr 1992 16:35:36 GMT
  12. Approved: dcmartin@msi.com
  13.  
  14. Submitted-by: vojta@math.berkeley.edu (Paul Vojta)
  15. Posting-number: Volume 17, Issue 53
  16. Archive-name: xdvi/patch13
  17. Patch-To: xdvi: Volume 17, Issues 23, 24, 25, 40, 41, 27
  18.  
  19.      This patch implements the standard TeXXeT .dvi op codes to accommodate
  20. right-to-left languages (Hebrew, Arabic, etc.).  It also fixes some bugs,
  21. including one concerned with changing the shrink factor.
  22.  
  23.      Many thanks to Michael Pak <misha@cs.huji.ac.il> for help with this.
  24.  
  25. --Paul Vojta, vojta@math.berkeley.edu
  26.  
  27. -- cut here --
  28. diff -cr xdvi_old/README xdvi_new/README
  29. *** xdvi_old/README    Tue Mar 17 17:03:10 1992
  30. --- xdvi_new/README    Fri Mar 27 21:03:14 1992
  31. ***************
  32. *** 77,82 ****
  33. --- 77,84 ----
  34.       A4        (xdvi.c)  Use European size paper by default.
  35.       NOQUERY        (xdvi.c)  Set this if you have trouble compiling the
  36.               definition of drawingWidgetClass.
  37. +     TEXXET        (everything)  Enables op-codes 250 and 251 (used for
  38. +             right-to-left languages).
  39.   
  40.   All flags should be set in the appropriate Makefile via the variable ``DEFS''.
  41.   
  42. ***************
  43. *** 239,244 ****
  44.   --  Patchlevel 12: --
  45.      29.  Implemented virtual fonts (this does not include built-in
  46.       Postscript<tm> fonts!!!).
  47. !    30.    Numerous bug fixes, and X11R5 support.
  48.   
  49.   Paul Vojta, vojta@math.berkeley.edu
  50. --- 241,248 ----
  51.   --  Patchlevel 12: --
  52.      29.  Implemented virtual fonts (this does not include built-in
  53.       Postscript<tm> fonts!!!).
  54. !    30.    X11R5 support, and numerous bug fixes.
  55. ! --  Patchlevel 13: --
  56. !    31.  Added support for TeXXeT.
  57.   
  58.   Paul Vojta, vojta@math.berkeley.edu
  59. diff -cr xdvi_old/dvi.h xdvi_new/dvi.h
  60. *** xdvi_old/dvi.h    Sun Jan 19 14:41:15 1992
  61. --- xdvi_new/dvi.h    Fri Mar 27 12:27:15 1992
  62. ***************
  63. *** 56,60 ****
  64. --- 56,62 ----
  65.   #define    PRE        247
  66.   #define    POST        248
  67.   #define    POSTPOST    249
  68. + #define    SREFL        250
  69. + #define    EREFL        251
  70.   
  71.   #define    TRAILER        223    /* Trailing bytes at end of file */
  72. diff -cr xdvi_old/dvi_draw.c xdvi_new/dvi_draw.c
  73. *** xdvi_old/dvi_draw.c    Tue Feb 11 13:22:33 1992
  74. --- xdvi_new/dvi_draw.c    Sat Mar 28 13:00:26 1992
  75. ***************
  76. *** 13,18 ****
  77. --- 13,19 ----
  78.    * 2/1989    Added tpic support    --Jeffrey Lee, U of Toronto
  79.    * 4/1989    Modified for System V by Donald Richardson, Clarkson Univ.
  80.    * 3/1990    Added VMS support    --Scott Allendorf, U of Iowa
  81. +  * 7/1990    Added reflection mode    --Michael Pak, Hebrew U of Jerusalem
  82.    *
  83.    *    Compilation options:
  84.    *    SYSV    compile for System V
  85. ***************
  86. *** 25,30 ****
  87. --- 26,32 ----
  88.    *    BMLONG    store bitmaps in longs instead of bytes
  89.    *    ALTFONT    default for -altfont option
  90.    *    A4    use European size paper
  91. +  *    TEXXET    support reflection dvi codes (right-to-left typesetting)
  92.    */
  93.   
  94.   #include <ctype.h>
  95. ***************
  96. *** 36,41 ****
  97. --- 38,46 ----
  98.   #endif
  99.   
  100.   static    struct frame    frame0;        /* dummy head of list */
  101. + #ifdef    TEXXET
  102. + static    struct frame    *scan_frame;    /* head frame for scanning */
  103. + #endif
  104.   
  105.   #ifndef    DVI_BUFFER_LEN
  106.   #define    DVI_BUFFER_LEN    512
  107. ***************
  108. *** 44,49 ****
  109. --- 49,60 ----
  110.   static    ubyte    dvi_buffer[DVI_BUFFER_LEN];
  111.   static    struct frame    *current_frame;
  112.   
  113. + #ifndef    TEXXET
  114. + #define    DIR    1
  115. + #else
  116. + #define    DIR    currinf.dir
  117. + #endif
  118. + 
  119.   /*
  120.    *    Explanation of the following constant:
  121.    *    offset_[xy]   << 16:    margin (defaults to one inch)
  122. ***************
  123. *** 84,96 ****
  124.   #endif    /* BMLONG */
  125.   
  126.   extern    char    *xmalloc();
  127. - extern    volatile void    exit();
  128.   
  129.   #ifndef VMS
  130.   extern    off_t    lseek();
  131.   #else
  132. ! extern  int     lseek();
  133.   #endif
  134.   
  135.   #ifndef    SEEK_SET    /* if <unistd.h> is not provided (or for <X11R5) */
  136.   #define    SEEK_SET    0
  137. --- 95,107 ----
  138.   #endif    /* BMLONG */
  139.   
  140.   extern    char    *xmalloc();
  141.   
  142.   #ifndef VMS
  143.   extern    off_t    lseek();
  144.   #else
  145. ! extern    int    lseek();
  146.   #endif
  147. + extern    long    tell();
  148.   
  149.   #ifndef    SEEK_SET    /* if <unistd.h> is not provided (or for <X11R5) */
  150.   #define    SEEK_SET    0
  151. ***************
  152. *** 148,154 ****
  153.   static    _Xconst    char    *dvi_table2[] = {
  154.       "FNT1", "FNT2", "FNT3", "FNT4", "XXX1", "XXX2", "XXX3", "XXX4",
  155.       "FNTDEF1", "FNTDEF2", "FNTDEF3", "FNTDEF4", "PRE", "POST", "POSTPOST",
  156. !     NULL, NULL, NULL, NULL, NULL, NULL};
  157.   
  158.   static    void
  159.   print_dvi(ch)
  160. --- 159,165 ----
  161.   static    _Xconst    char    *dvi_table2[] = {
  162.       "FNT1", "FNT2", "FNT3", "FNT4", "XXX1", "XXX2", "XXX3", "XXX4",
  163.       "FNTDEF1", "FNTDEF2", "FNTDEF3", "FNTDEF4", "PRE", "POST", "POSTPOST",
  164. !     "SREFL", "EREFL", NULL, NULL, NULL, NULL};
  165.   
  166.   static    void
  167.   print_dvi(ch)
  168. ***************
  169. *** 169,177 ****
  170.           Printf("FNTNUM%d\n", ch - FNTNUM0);
  171.           return;
  172.       }
  173. !     else s = dvi_table2[ch - (FNTNUM0+64)];
  174.       if (s) puts(s);
  175. !     else oops("Unknown op-code %d, offset %d", ch, ftell(dvi_file) - 1);
  176.   }
  177.   
  178.   /*
  179. --- 180,193 ----
  180.           Printf("FNTNUM%d\n", ch - FNTNUM0);
  181.           return;
  182.       }
  183. !     else s = dvi_table2[ch - (FNTNUM0 + 64)];
  184.       if (s) puts(s);
  185. !     else
  186. !         if (currinf.virtual)
  187. !         oops("Unknown op-code %d in virtual font", ch);
  188. !         else
  189. !         oops("Unknown op-code %d, offset %d", ch,
  190. !             tell(fileno(dvi_file)) - (currinf.end - currinf.pos + 1));
  191.   }
  192.   
  193.   /*
  194. ***************
  195. *** 186,192 ****
  196.           return EOP;
  197.       }
  198.       currinf.end = dvi_buffer +
  199. !         read(fileno(dvi_file), (_Xconst char *) (currinf.pos = dvi_buffer),
  200.           DVI_BUFFER_LEN);
  201.       return currinf.end > dvi_buffer ? *(currinf.pos)++ : EOF;
  202.   }
  203. --- 202,208 ----
  204.           return EOP;
  205.       }
  206.       currinf.end = dvi_buffer +
  207. !         read(fileno(dvi_file), (char *) (currinf.pos = dvi_buffer),
  208.           DVI_BUFFER_LEN);
  209.       return currinf.end > dvi_buffer ? *(currinf.pos)++ : EOF;
  210.   }
  211. ***************
  212. *** 402,412 ****
  213.       }
  214.   }
  215.   
  216.   long
  217.   set_char(ch)
  218. !     ubyte ch;
  219.   {
  220.       register struct glyph *g;
  221.   
  222.       if (ch > maxchar) realloc_font(currinf.fontp, ch);
  223.       if ((g = &currinf.fontp->glyph[ch])->bitmap.bits == NULL) {
  224. --- 418,448 ----
  225.       }
  226.   }
  227.   
  228. + 
  229. + /*
  230. +  *    Routines to print characters.
  231. +  */
  232. + 
  233. + #ifndef    TEXXET
  234. + #define    ERRVAL    0L
  235. + #else
  236. + #define    ERRVAL
  237. + #endif
  238. + 
  239. + #ifndef    TEXXET
  240.   long
  241.   set_char(ch)
  242. ! #else
  243. ! void
  244. ! set_char(cmd, ch)
  245. !     ubyte    cmd;
  246. ! #endif
  247. !     ubyte    ch;
  248.   {
  249.       register struct glyph *g;
  250. + #ifdef    TEXXET
  251. +     long    dvi_h_sav;
  252. + #endif
  253.   
  254.       if (ch > maxchar) realloc_font(currinf.fontp, ch);
  255.       if ((g = &currinf.fontp->glyph[ch])->bitmap.bits == NULL) {
  256. ***************
  257. *** 415,423 ****
  258.               Fprintf(stderr, "Character %d not defined in font %s\n", ch,
  259.               currinf.fontp->fontname);
  260.           g->addr = -1;
  261. !         return 0L;
  262.           }
  263. !         if (g->addr == -1) return 0L; /* previously flagged missing char */
  264.           open_font_file(currinf.fontp);
  265.           Fseek(currinf.fontp->file, g->addr, 0);
  266.           (*currinf.fontp->read_char)(currinf.fontp, ch);
  267. --- 451,460 ----
  268.               Fprintf(stderr, "Character %d not defined in font %s\n", ch,
  269.               currinf.fontp->fontname);
  270.           g->addr = -1;
  271. !         return ERRVAL;
  272.           }
  273. !         if (g->addr == -1)
  274. !         return ERRVAL;    /* previously flagged missing char */
  275.           open_font_file(currinf.fontp);
  276.           Fseek(currinf.fontp->file, g->addr, 0);
  277.           (*currinf.fontp->read_char)(currinf.fontp, ch);
  278. ***************
  279. *** 425,463 ****
  280.           currinf.fontp->timestamp = ++current_timestamp;
  281.       }
  282.   
  283. !     if (shrink_factor == 1)
  284. !         put_bitmap(&g->bitmap, PXL_H - g->x, PXL_V - g->y);
  285. !     else {
  286. !         if (g->bitmap2.bits == NULL) {
  287. !         shrink_glyph(g);
  288.           }
  289. !         put_bitmap(&g->bitmap2, PXL_H - g->x2, PXL_V - g->y2);
  290. !     }
  291.       return g->dvi_adv;
  292.   }
  293.   
  294.   
  295. ! static    long
  296. ! set_first_font_char(ch)
  297. !     ubyte    ch;
  298. ! {
  299. !     currinf.fontp = currinf.fontp->first_font;
  300. !     if (currinf.fontp == NULL) oops("Non-existent font");
  301. !     if (!(currinf.fontp->flags & FONT_LOADED))
  302. !         load_font(currinf.fontp);
  303. !     maxchar = currinf.fontp->maxchar;
  304. !     currinf.set_char_p = currinf.fontp->set_char_p;
  305. !     return (*currinf.set_char_p)(ch);
  306. ! }
  307. ! 
  308. ! 
  309.   long
  310.   set_vf_char(ch)
  311.       ubyte    ch;
  312.   {
  313.       register struct macro *m;
  314.       struct drawinf    oldinfo;
  315.       static    ubyte    c;
  316.   
  317.       if (ch > maxchar) realloc_virtual_font(currinf.fontp, ch);
  318.       if ((m = &currinf.fontp->macro[ch])->pos == NULL) {
  319. --- 462,509 ----
  320.           currinf.fontp->timestamp = ++current_timestamp;
  321.       }
  322.   
  323. ! #ifdef    TEXXET
  324. !     dvi_h_sav = DVI_H;
  325. !     if (currinf.dir < 0) DVI_H -= g->dvi_adv;
  326. !     if (scan_frame == NULL) {
  327. ! #endif
  328. !         if (shrink_factor == 1)
  329. !         put_bitmap(&g->bitmap, PXL_H - g->x, PXL_V - g->y);
  330. !         else {
  331. !         if (g->bitmap2.bits == NULL) {
  332. !             shrink_glyph(g);
  333. !         }
  334. !         put_bitmap(&g->bitmap2, PXL_H - g->x2, PXL_V - g->y2);
  335.           }
  336. ! #ifndef    TEXXET
  337.       return g->dvi_adv;
  338. + #else
  339. +     }
  340. +     if (cmd == PUT1)
  341. +         DVI_H = dvi_h_sav;
  342. +     else
  343. +         if (currinf.dir > 0) DVI_H += g->dvi_adv;
  344. + #endif
  345.   }
  346.   
  347.   
  348. ! #ifndef    TEXXET
  349.   long
  350.   set_vf_char(ch)
  351. + #else
  352. + void
  353. + set_vf_char(cmd, ch)
  354. +     ubyte    cmd;
  355. + #endif
  356.       ubyte    ch;
  357.   {
  358.       register struct macro *m;
  359.       struct drawinf    oldinfo;
  360. +     ubyte    oldmaxchar;
  361.       static    ubyte    c;
  362. + #ifdef    TEXXET
  363. +     long    dvi_h_sav;
  364. + #endif
  365.   
  366.       if (ch > maxchar) realloc_virtual_font(currinf.fontp, ch);
  367.       if ((m = &currinf.fontp->macro[ch])->pos == NULL) {
  368. ***************
  369. *** 465,495 ****
  370.           Fprintf(stderr, "Character %d not defined in font %s\n", ch,
  371.               currinf.fontp->fontname);
  372.           m->pos = m->end = &c;
  373. !         return 0L;
  374.       }
  375. !     oldinfo = currinf;
  376. !     WW = XX = YY = ZZ = 0;
  377. !     currinf.tn_head = currinf.fontp->vf_chain;
  378. !     currinf.set_char_p = set_first_font_char;
  379. !     currinf.pos = m->pos;
  380. !     currinf.end = m->end;
  381. !     currinf.virtual = True;
  382. !     draw_part(current_frame, currinf.fontp->dimconv);
  383. !     if (currinf.pos != currinf.end + 1)
  384. !         oops("Virtual character macro does not end correctly.");
  385. !     currinf = oldinfo;
  386.       return m->dvi_adv;
  387.   }
  388.   
  389. ! /*ARGSUSED*/
  390. ! static    long
  391.   set_no_char(ch)
  392.       ubyte    ch;
  393.   {
  394.       oops("Dvi file or vf macro sets character of unknown font.");
  395.       /* NOTREACHED */
  396.   }
  397.   
  398.   /*
  399.    *    Set rule.  Arguments are coordinates of lower left corner.
  400.    */
  401. --- 511,577 ----
  402.           Fprintf(stderr, "Character %d not defined in font %s\n", ch,
  403.               currinf.fontp->fontname);
  404.           m->pos = m->end = &c;
  405. !         return ERRVAL;
  406.       }
  407. ! #ifdef    TEXXET
  408. !     dvi_h_sav = DVI_H;
  409. !     if (currinf.dir < 0) DVI_H -= m->dvi_adv;
  410. !     if (scan_frame == NULL) {
  411. ! #endif
  412. !         oldinfo = currinf;
  413. !         oldmaxchar = maxchar;
  414. !         WW = XX = YY = ZZ = 0;
  415. !         currinf.tn_head = currinf.fontp->vf_chain;
  416. !         currinf.pos = m->pos;
  417. !         currinf.end = m->end;
  418. !         currinf.virtual = True;
  419. !         draw_part(current_frame, currinf.fontp->dimconv);
  420. !         if (currinf.pos != currinf.end + 1)
  421. !         oops("Virtual character macro does not end correctly.");
  422. !         currinf = oldinfo;
  423. !         maxchar = oldmaxchar;
  424. ! #ifndef    TEXXET
  425.       return m->dvi_adv;
  426. + #else
  427. +     }
  428. +     if (cmd == PUT1)
  429. +         DVI_H = dvi_h_sav;
  430. +     else
  431. +         if (currinf.dir > 0) DVI_H += m->dvi_adv;
  432. + #endif
  433.   }
  434.   
  435. ! 
  436. ! #ifndef    TEXXET
  437. ! long
  438.   set_no_char(ch)
  439. + #else
  440. + void
  441. + set_no_char(cmd, ch)
  442. +     ubyte    cmd;
  443. + #endif
  444.       ubyte    ch;
  445.   {
  446. +     if (currinf.virtual) {
  447. +         currinf.fontp = currinf.fontp->first_font;
  448. +         if (currinf.fontp != NULL) {
  449. +         if (!(currinf.fontp->flags & FONT_LOADED))
  450. +             load_font(currinf.fontp);
  451. +         maxchar = currinf.fontp->maxchar;
  452. +         currinf.set_char_p = currinf.fontp->set_char_p;
  453. + #ifndef    TEXXET
  454. +         return (*currinf.set_char_p)(ch);
  455. + #else
  456. +         (*currinf.set_char_p)(cmd, ch);
  457. +         return;
  458. + #endif
  459. +         }
  460. +     }
  461.       oops("Dvi file or vf macro sets character of unknown font.");
  462.       /* NOTREACHED */
  463.   }
  464.   
  465. + 
  466.   /*
  467.    *    Set rule.  Arguments are coordinates of lower left corner.
  468.    */
  469. ***************
  470. *** 498,504 ****
  471. --- 580,591 ----
  472.   set_rule(h, w)
  473.       int h, w;
  474.   {
  475. + #ifndef    TEXXET
  476.       put_rectangle(PXL_H, PXL_V - h + 1, w, h, False);
  477. + #else
  478. +     put_rectangle(PXL_H - (currinf.dir < 0 ? w - 1 : 0), PXL_V - h + 1,
  479. +         w, h, False);
  480. + #endif
  481.   }
  482.   
  483.   static    void
  484. ***************
  485. *** 549,574 ****
  486.       double        current_dimconv;
  487.   {
  488.       ubyte ch;
  489.   
  490.       for (;;) {
  491.           ch = xone();
  492.           if (debug & DBG_DVI)
  493.           print_dvi(ch);
  494. !         if (ch <= SETCHAR0 + 127) {
  495. !         long a = (*currinf.set_char_p)(ch);
  496. !         DVI_H += a;
  497. !         } else if (FNTNUM0 <= ch && ch <= FNTNUM0 + 63) {
  498.           change_font((unsigned long) (ch - FNTNUM0));
  499. !         } else {
  500.           long a, b;
  501. -         ubyte ch1;
  502.   
  503.           switch (ch) {
  504.               case SET1:
  505.               case PUT1:
  506. !             ch1 = xone();
  507. !             a = (*currinf.set_char_p)(ch1);
  508.               if (ch != PUT1) DVI_H += a;
  509.               break;
  510.   
  511.               case SETRULE:
  512. --- 636,678 ----
  513.       double        current_dimconv;
  514.   {
  515.       ubyte ch;
  516. + #ifdef    TEXXET
  517. +     struct drawinf    oldinfo;
  518. +     ubyte    oldmaxchar;
  519. +     long    file_pos;
  520. +     int    refl_count;
  521. + #endif
  522.   
  523. +     currinf.fontp = NULL;
  524. +     currinf.set_char_p = set_no_char;
  525. + #ifdef    TEXXET
  526. +     currinf.dir = 1;
  527. +     scan_frame = NULL;    /* indicates we're not scanning */
  528. + #endif
  529.       for (;;) {
  530.           ch = xone();
  531.           if (debug & DBG_DVI)
  532.           print_dvi(ch);
  533. !         if (ch <= SETCHAR0 + 127)
  534. ! #ifndef    TEXXET
  535. !         DVI_H += (*currinf.set_char_p)(ch);
  536. ! #else
  537. !         (*currinf.set_char_p)(ch, ch);
  538. ! #endif
  539. !         else if (FNTNUM0 <= ch && ch <= FNTNUM0 + 63)
  540.           change_font((unsigned long) (ch - FNTNUM0));
  541. !         else {
  542.           long a, b;
  543.   
  544.           switch (ch) {
  545.               case SET1:
  546.               case PUT1:
  547. ! #ifndef    TEXXET
  548. !             a = (*currinf.set_char_p)(xone());
  549.               if (ch != PUT1) DVI_H += a;
  550. + #else
  551. +             (*currinf.set_char_p)(ch, xone());
  552. + #endif
  553.               break;
  554.   
  555.               case SETRULE:
  556. ***************
  557. *** 577,592 ****
  558.                  SIGFPE here. */
  559.               a = xsfour();
  560.               b = xspell_conv(xsfour());
  561.               if (a > 0 && b > 0)
  562.                   set_rule(pixel_round(xspell_conv(a)),
  563.                   pixel_round(b));
  564. !             DVI_H += b;
  565.               break;
  566.   
  567.               case PUTRULE:
  568.               a = xspell_conv(xsfour());
  569.               b = xspell_conv(xsfour());
  570. !             if (a > 0  &&  b > 0)
  571.                   set_rule(pixel_round(a), pixel_round(b));
  572.               break;
  573.   
  574. --- 681,704 ----
  575.                  SIGFPE here. */
  576.               a = xsfour();
  577.               b = xspell_conv(xsfour());
  578. + #ifndef    TEXXET
  579.               if (a > 0 && b > 0)
  580. + #else
  581. +             if (a > 0 && b > 0 && scan_frame == NULL)
  582. + #endif
  583.                   set_rule(pixel_round(xspell_conv(a)),
  584.                   pixel_round(b));
  585. !             DVI_H += DIR * b;
  586.               break;
  587.   
  588.               case PUTRULE:
  589.               a = xspell_conv(xsfour());
  590.               b = xspell_conv(xsfour());
  591. ! #ifndef    TEXXET
  592. !             if (a > 0 && b > 0)
  593. ! #else
  594. !             if (a > 0 && b > 0 && scan_frame == NULL)
  595. ! #endif
  596.                   set_rule(pixel_round(a), pixel_round(b));
  597.               break;
  598.   
  599. ***************
  600. *** 625,637 ****
  601.               current_frame = current_frame->prev;
  602.               break;
  603.   
  604.               case RIGHT1:
  605.               case RIGHT2:
  606.               case RIGHT3:
  607.               case RIGHT4:
  608. !             DVI_H += xspell_conv(xsnum(ch - RIGHT1 + 1));
  609.               break;
  610.   
  611.               case X1:
  612.               case X2:
  613.               case X3:
  614. --- 737,826 ----
  615.               current_frame = current_frame->prev;
  616.               break;
  617.   
  618. + #ifdef    TEXXET
  619. +             case SREFL:
  620. +             if (scan_frame == NULL) {
  621. +                 /* we're not scanning:  save some info. */
  622. +                 oldinfo = currinf;
  623. +                 oldmaxchar = maxchar;
  624. +                 if (!currinf.virtual)
  625. +                 file_pos = tell(fileno(dvi_file)) -
  626. +                     (currinf.end - currinf.pos);
  627. +                 scan_frame = current_frame; /* now we're scanning */
  628. +                 refl_count = 0;
  629. +                 break;
  630. +             }
  631. +             /* we are scanning */
  632. +             if (current_frame == scan_frame) ++refl_count;
  633. +             break;
  634. + 
  635. +             case EREFL:
  636. +             if (scan_frame != NULL) {    /* if we're scanning */
  637. +                 if (current_frame == scan_frame && --refl_count < 0)
  638. +                 {
  639. +                 /* we've hit the end of our scan */
  640. +                 scan_frame = NULL;
  641. +                 /* first:  push */
  642. +                 if (current_frame->next == NULL) {
  643. +                     struct frame *newp = (struct frame *)
  644. +                     xmalloc(sizeof(struct frame),
  645. +                         "stack frame");
  646. +                     current_frame->next = newp;
  647. +                     newp->prev = current_frame;
  648. +                     newp->next = NULL;
  649. +                 }
  650. +                 current_frame = current_frame->next;
  651. +                 current_frame->data = currinf.data;
  652. +                 /* next:  restore old file position, XX, etc. */
  653. +                 if (!currinf.virtual) {
  654. +                     long bgn_pos = tell(fileno(dvi_file))
  655. +                      - (currinf.end - dvi_buffer);
  656. +                     if (file_pos >= bgn_pos) {
  657. +                     oldinfo.pos = dvi_buffer
  658. +                         + (file_pos - bgn_pos);
  659. +                     oldinfo.end = currinf.end;
  660. +                     }
  661. +                     else {
  662. +                     (void) lseek(fileno(dvi_file), file_pos,
  663. +                         SEEK_SET);
  664. +                     oldinfo.pos = oldinfo.end;
  665. +                     }
  666. +                 }
  667. +                 currinf = oldinfo;
  668. +                 maxchar = oldmaxchar;
  669. +                 /* and then:  recover position info. */
  670. +                 DVI_H = current_frame->data.dvi_h;
  671. +                 DVI_V = current_frame->data.dvi_v;
  672. +                 PXL_V = current_frame->data.pxl_v;
  673. +                 /* and finally, reverse direction */
  674. +                 currinf.dir = -currinf.dir;
  675. +                 }
  676. +                 break;
  677. +             }
  678. +             /* we're not scanning, */
  679. +             /* so just reverse direction and then pop */
  680. +             currinf.dir = -currinf.dir;
  681. +             currinf.data = current_frame->data;
  682. +             current_frame = current_frame->prev;
  683. +             break;
  684. + #endif    /* TEXXET */
  685. + 
  686.               case RIGHT1:
  687.               case RIGHT2:
  688.               case RIGHT3:
  689.               case RIGHT4:
  690. !             DVI_H += DIR * xspell_conv(xsnum(ch - RIGHT1 + 1));
  691.               break;
  692.   
  693. +             case W1:
  694. +             case W2:
  695. +             case W3:
  696. +             case W4:
  697. +             WW = xspell_conv(xsnum(ch - W0));
  698. +             case W0:
  699. +             DVI_H += DIR * WW;
  700. +             break;
  701. + 
  702.               case X1:
  703.               case X2:
  704.               case X3:
  705. ***************
  706. *** 638,653 ****
  707.               case X4:
  708.               XX = xspell_conv(xsnum(ch - X0));
  709.               case X0:
  710. !             DVI_H += XX;
  711.               break;
  712.   
  713. !             case W1:
  714. !             case W2:
  715. !             case W3:
  716. !             case W4:
  717. !             WW = xspell_conv(xsnum(ch - W0));
  718. !             case W0:
  719. !             DVI_H += WW;
  720.               break;
  721.   
  722.               case Y1:
  723. --- 827,841 ----
  724.               case X4:
  725.               XX = xspell_conv(xsnum(ch - X0));
  726.               case X0:
  727. !             DVI_H += DIR * XX;
  728.               break;
  729.   
  730. !             case DOWN1:
  731. !             case DOWN2:
  732. !             case DOWN3:
  733. !             case DOWN4:
  734. !             DVI_V += xspell_conv(xsnum(ch - DOWN1 + 1));
  735. !             PXL_V = pixel_conv(DVI_V);
  736.               break;
  737.   
  738.               case Y1:
  739. ***************
  740. *** 670,683 ****
  741.               PXL_V = pixel_conv(DVI_V);
  742.               break;
  743.   
  744. -             case DOWN1:
  745. -             case DOWN2:
  746. -             case DOWN3:
  747. -             case DOWN4:
  748. -             DVI_V += xspell_conv(xsnum(ch - DOWN1 + 1));
  749. -             PXL_V = pixel_conv(DVI_V);
  750. -             break;
  751. - 
  752.               case FNT1:
  753.               case FNT2:
  754.               case FNT3:
  755. --- 858,863 ----
  756. ***************
  757. *** 703,717 ****
  758.               break;
  759.   
  760.               case PRE:
  761. -             oops("Shouldn't happen: PRE encountered.");
  762. -             break;
  763. - 
  764.               case POST:
  765. -             oops("Shouldn't happen: POST encountered.");
  766. -             break;
  767. - 
  768.               case POSTPOST:
  769. !             oops("Unexpected POSTPOST encountered.");
  770.               break;
  771.   
  772.               default:
  773. --- 883,892 ----
  774.               break;
  775.   
  776.               case PRE:
  777.               case POST:
  778.               case POSTPOST:
  779. !             oops("Shouldn't happen: %s encountered.",
  780. !                 dvi_table2[ch - (FNTNUM0 + 64)]);
  781.               break;
  782.   
  783.               default:
  784. ***************
  785. *** 735,741 ****
  786.       (void) lseek(fileno(dvi_file), page_offset[current_page], SEEK_SET);
  787.   
  788.       bzero((char *) &currinf.data, sizeof(currinf.data));
  789. -     currinf.set_char_p = set_no_char;
  790.       currinf.tn_head = tn_head;
  791.       currinf.pos = currinf.end = dvi_buffer;
  792.       currinf.virtual = False;
  793. --- 910,915 ----
  794. diff -cr xdvi_old/dvi_init.c xdvi_new/dvi_init.c
  795. *** xdvi_old/dvi_init.c    Sat Feb 15 16:36:09 1992
  796. --- xdvi_new/dvi_init.c    Sat Mar 28 12:50:09 1992
  797. ***************
  798. *** 13,18 ****
  799. --- 13,19 ----
  800.    * 2/1989    Added tpic support    --Jeffrey Lee, U of Toronto
  801.    * 4/1989    Modified for System V by Donald Richardson, Clarkson Univ.
  802.    * 3/1990    Added VMS support    --Scott Allendorf, U of Iowa
  803. +  * 7/1990    Added reflection mode    --Michael Pak, Hebrew U of Jerusalem
  804.    *
  805.    *    Compilation options:
  806.    *    SYSV    compile for System V
  807. ***************
  808. *** 25,30 ****
  809. --- 26,32 ----
  810.    *    BMLONG    store bitmaps in longs instead of bytes
  811.    *    ALTFONT    default for -altfont option
  812.    *    A4    use European size paper
  813. +  *    TEXXET    support reflection dvi codes (right-to-left typesetting)
  814.    */
  815.   
  816.   #include "xdvi.h"
  817. ***************
  818. *** 39,45 ****
  819.   #include <stdlib.h>
  820.   #else
  821.   char    *realloc();
  822. - volatile void    exit();
  823.   #endif
  824.   #if    defined(macII) && !defined(__STDC__) /* stdlib.h doesn't define these */
  825.   char    *realloc();
  826. --- 41,46 ----
  827. ***************
  828. *** 102,112 ****
  829.       register struct glyph *g;
  830.   
  831.       for (f = font_head; f != NULL; f = f->next)
  832. !         for (g = f->glyph; g <= f->glyph + f->maxchar; ++g)
  833. !         if (g->bitmap2.bits) {
  834. !             free(g->bitmap2.bits);
  835. !             g->bitmap2.bits = NULL;
  836. !         }
  837.   }
  838.   
  839.   /*
  840. --- 103,114 ----
  841.       register struct glyph *g;
  842.   
  843.       for (f = font_head; f != NULL; f = f->next)
  844. !         if ((f->flags & FONT_LOADED) && !(f->flags & FONT_VIRTUAL))
  845. !         for (g = f->glyph; g <= f->glyph + f->maxchar; ++g)
  846. !             if (g->bitmap2.bits) {
  847. !             free(g->bitmap2.bits);
  848. !             g->bitmap2.bits = NULL;
  849. !             }
  850.   }
  851.   
  852.   /*
  853. diff -cr xdvi_old/font_open.c xdvi_new/font_open.c
  854. *** xdvi_old/font_open.c    Tue Feb 11 13:23:37 1992
  855. --- xdvi_new/font_open.c    Thu Mar 26 18:05:45 1992
  856. ***************
  857. *** 75,81 ****
  858.   
  859.   char    *xmalloc(), *getenv();
  860.   double    atof();
  861. - volatile void    exit();
  862.   
  863.   #ifdef    SEARCH_SUBDIRECTORIES
  864.   /* We will need some system include files to deal with directories.  */
  865. --- 75,80 ----
  866. ***************
  867. *** 398,410 ****
  868.   }
  869.   
  870.   static    FILE *
  871. ! formatted_open(path, font, gforpk, mag, name, count, tail)
  872.       _Xconst char    *path;
  873.       _Xconst char    *font;
  874.       _Xconst char    *gforpk;
  875.       int    mag;
  876.       char    **name;
  877. !     int    count;
  878.       _Xconst    char    *tail;
  879.   {
  880.       _Xconst char    *p = path;
  881. --- 397,409 ----
  882.   }
  883.   
  884.   static    FILE *
  885. ! formatted_open(path, font, gforpk, mag, name, first_try, tail)
  886.       _Xconst char    *path;
  887.       _Xconst char    *font;
  888.       _Xconst char    *gforpk;
  889.       int    mag;
  890.       char    **name;
  891. !     Boolean    first_try;
  892.       _Xconst    char    *tail;
  893.   {
  894.       _Xconst char    *p = path;
  895. ***************
  896. *** 458,464 ****
  897.           }
  898.           else *n++ = c;
  899.       }
  900. !     if (!p_used && count > 0) return NULL;
  901.       *n = '\0';
  902.       if (debug & DBG_OPEN) Printf("Trying font file %s\n", nm);
  903.       f = xfopen(nm);
  904. --- 457,463 ----
  905.           }
  906.           else *n++ = c;
  907.       }
  908. !     if (!p_used && first_try) return NULL;
  909.       *n = '\0';
  910.       if (debug & DBG_OPEN) Printf("Trying font file %s\n", nm);
  911.       f = xfopen(nm);
  912. ***************
  913. *** 492,499 ****
  914.       next_subdir = subdir_head;
  915.   #endif
  916.       for (;;) {
  917. -         int count = 0;
  918. - 
  919.           if (*p == PATH_SEP || *p == '\0') {
  920.           if (x_default_font_path != NULL &&
  921.               (f = try_size(font, pxlmag, name, x_default_font_path,
  922. --- 491,496 ----
  923. ***************
  924. *** 502,519 ****
  925.           if (*p == '\0') break;
  926.           }
  927.           else {
  928.   #ifdef    USE_PK
  929. !         if ((f = formatted_open(p, font, "pk", pkmag, name, count++,
  930.               DEFAULT_TAIL)) != NULL)
  931.               return f;
  932.   #endif
  933.   #ifdef    USE_GF
  934. !         if ((f = formatted_open(p, font, "gf", pkmag, name, count++,
  935.               DEFAULT_TAIL)) != NULL)
  936.               return f;
  937.   #endif
  938.   #ifdef    USE_PXL
  939. !         if ((f = formatted_open(p, font, "pxl", pxlmag, name, count++,
  940.               DEFAULT_TAIL)) != NULL)
  941.               return f;
  942.   #endif
  943. --- 499,521 ----
  944.           if (*p == '\0') break;
  945.           }
  946.           else {
  947. + #define    FIRST_TRY True
  948.   #ifdef    USE_PK
  949. !         if ((f = formatted_open(p, font, "pk", pkmag, name, FIRST_TRY,
  950.               DEFAULT_TAIL)) != NULL)
  951.               return f;
  952. + #undef    FIRST_TRY
  953. + #define    FIRST_TRY False
  954.   #endif
  955.   #ifdef    USE_GF
  956. !         if ((f = formatted_open(p, font, "gf", pkmag, name, FIRST_TRY,
  957.               DEFAULT_TAIL)) != NULL)
  958.               return f;
  959. + #undef    FIRST_TRY
  960. + #define    FIRST_TRY False
  961.   #endif
  962.   #ifdef    USE_PXL
  963. !         if ((f = formatted_open(p, font, "pxl", pxlmag, name, FIRST_TRY,
  964.               DEFAULT_TAIL)) != NULL)
  965.               return f;
  966.   #endif
  967. ***************
  968. *** 628,634 ****
  969.           return f;
  970.   
  971.       /* Now try at all the sizes. */
  972. !     for (p2 = sizes; p2 < sizend; ++p2) if (*p2 >= imag) break;
  973.       p1 = p2;
  974.       for (;;) {
  975.           /* find another magnification */
  976. --- 630,636 ----
  977.           return f;
  978.   
  979.       /* Now try at all the sizes. */
  980. !     for (p2 = sizes; p2 < sizend; ++p2) if (*p2 >= pxlmag) break;
  981.       p1 = p2;
  982.       for (;;) {
  983.           /* find another magnification */
  984. diff -cr xdvi_old/patchlevel.h xdvi_new/patchlevel.h
  985. *** xdvi_old/patchlevel.h    Sat Jan 18 16:24:29 1992
  986. --- xdvi_new/patchlevel.h    Sat Mar 28 00:22:24 1992
  987. ***************
  988. *** 1 ****
  989. ! #define PATCHLEVEL 12
  990. --- 1 ----
  991. ! #define PATCHLEVEL 13
  992. diff -cr xdvi_old/pxl.c xdvi_new/pxl.c
  993. *** xdvi_old/pxl.c    Sun Jan 19 14:24:23 1992
  994. --- xdvi_new/pxl.c    Mon Mar 23 19:03:00 1992
  995. ***************
  996. *** 65,86 ****
  997.   #ifndef    MSBITFIRST
  998.           *ptr = _reverse_byte[one(fp)];
  999.   #if    BYTES_PER_BMUNIT > 1
  1000. !         *ptr |= _reverse_byte[one(fp)] << 8;
  1001.   #endif
  1002.   #ifdef    BMLONG
  1003. !         *ptr |= _reverse_byte[one(fp)] << 16;
  1004. !         *ptr |= _reverse_byte[one(fp)] << 24;
  1005.   #endif
  1006.   #else    /* MSBITFIRST */
  1007.           *ptr = 0;
  1008.   #ifdef    BMLONG
  1009. !         *ptr |= one(fp) << 24;
  1010. !         *ptr |= one(fp) << 16;
  1011.   #endif
  1012.   #if    BYTES_PER_BMUNIT > 1
  1013. !         *ptr |= one(fp) << 8;
  1014.   #endif
  1015. !         *ptr |= one(fp);
  1016.   #endif    /* MSBITFIRST */
  1017.           ++ptr;
  1018.           }
  1019. --- 65,86 ----
  1020.   #ifndef    MSBITFIRST
  1021.           *ptr = _reverse_byte[one(fp)];
  1022.   #if    BYTES_PER_BMUNIT > 1
  1023. !         *ptr |= (BMUNIT) _reverse_byte[one(fp)] << 8;
  1024.   #endif
  1025.   #ifdef    BMLONG
  1026. !         *ptr |= (BMUNIT) _reverse_byte[one(fp)] << 16;
  1027. !         *ptr |= (BMUNIT) _reverse_byte[one(fp)] << 24;
  1028.   #endif
  1029.   #else    /* MSBITFIRST */
  1030.           *ptr = 0;
  1031.   #ifdef    BMLONG
  1032. !         *ptr |= (BMUNIT) one(fp) << 24;
  1033. !         *ptr |= (BMUNIT) one(fp) << 16;
  1034.   #endif
  1035.   #if    BYTES_PER_BMUNIT > 1
  1036. !         *ptr |= (BMUNIT) one(fp) << 8;
  1037.   #endif
  1038. !         *ptr |= (BMUNIT) one(fp);
  1039.   #endif    /* MSBITFIRST */
  1040.           ++ptr;
  1041.           }
  1042. diff -cr xdvi_old/util.c xdvi_new/util.c
  1043. *** xdvi_old/util.c    Sat Feb  8 14:07:55 1992
  1044. --- xdvi_new/util.c    Sat Mar 28 12:50:28 1992
  1045. ***************
  1046. *** 13,18 ****
  1047. --- 13,19 ----
  1048.    * 2/1989    Added tpic support    --Jeffrey Lee, U of Toronto
  1049.    * 4/1989    Modified for System V by Donald Richardson, Clarkson Univ.
  1050.    * 3/1990    Added VMS support    --Scott Allendorf, U of Iowa
  1051. +  * 7/1990    Added reflection mode    --Michael Pak, Hebrew U of Jerusalem
  1052.    *
  1053.    *    Compilation options:
  1054.    *    SYSV    compile for System V
  1055. ***************
  1056. *** 25,30 ****
  1057. --- 26,32 ----
  1058.    *    BMLONG    store bitmaps in longs instead of bytes
  1059.    *    ALTFONT    default for -altfont option
  1060.    *    A4    use European size paper
  1061. +  *    TEXXET    support reflection dvi codes (right-to-left typesetting)
  1062.    */
  1063.   
  1064.   #include "xdvi.h"
  1065. ***************
  1066. *** 39,45 ****
  1067.   #include <stdlib.h>
  1068.   #else
  1069.   char    *malloc();
  1070. - volatile void    exit();
  1071.   #endif
  1072.   #if    defined(macII) && !defined(__STDC__) /* stdlib.h doesn't define these */
  1073.   char    *malloc();
  1074. --- 41,46 ----
  1075. ***************
  1076. *** 157,163 ****
  1077.       if (n_files_left == 0) close_a_file();
  1078.       f = fopen(filename, OPEN_MODE);
  1079.   #ifndef    VMS
  1080. !     if (f == NULL && errno == EMFILE)
  1081.   #else    /* VMS */
  1082.       if (f == NULL && errno == EVMSERR && vaxc$errno == RMS$_ACC)
  1083.   #endif    /* VMS */
  1084. --- 158,164 ----
  1085.       if (n_files_left == 0) close_a_file();
  1086.       f = fopen(filename, OPEN_MODE);
  1087.   #ifndef    VMS
  1088. !     if (f == NULL && (errno == EMFILE || errno == ENFILE))
  1089.   #else    /* VMS */
  1090.       if (f == NULL && errno == EVMSERR && vaxc$errno == RMS$_ACC)
  1091.   #endif    /* VMS */
  1092. diff -cr xdvi_old/vf.c xdvi_new/vf.c
  1093. *** xdvi_old/vf.c    Tue Feb 11 13:23:17 1992
  1094. --- xdvi_new/vf.c    Mon Mar 23 19:06:49 1992
  1095. ***************
  1096. *** 42,48 ****
  1097.       fontp->read_char = NULL;
  1098.       fontp->flags |= FONT_VIRTUAL;
  1099.       fontp->set_char_p = set_vf_char;
  1100. -     VF_file = fontp->file;
  1101.       if (debug & DBG_PK)
  1102.           Printf("Reading VF pixel file %s\n", fontp->filename);
  1103.   /*
  1104. --- 42,47 ----
  1105. diff -cr xdvi_old/xdvi.c xdvi_new/xdvi.c
  1106. *** xdvi_old/xdvi.c    Mon Feb 17 14:18:21 1992
  1107. --- xdvi_new/xdvi.c    Tue Mar 31 12:23:41 1992
  1108. ***************
  1109. *** 13,18 ****
  1110. --- 13,19 ----
  1111.    * 2/1989    Added tpic support    --Jeffrey Lee, U of Toronto
  1112.    * 4/1989    Modified for System V by Donald Richardson, Clarkson Univ.
  1113.    * 3/1990    Added VMS support    --Scott Allendorf, U of Iowa
  1114. +  * 7/1990    Added reflection mode    --Michael Pak, Hebrew U of Jerusalem
  1115.    *
  1116.    *    Compilation options:
  1117.    *    SYSV    compile for System V
  1118. ***************
  1119. *** 25,30 ****
  1120. --- 26,32 ----
  1121.    *    BMLONG    store bitmaps in longs instead of bytes
  1122.    *    ALTFONT    default for -altfont option
  1123.    *    A4    use European size paper
  1124. +  *    TEXXET    support reflection dvi codes (right-to-left typesetting)
  1125.    */
  1126.   
  1127.   #ifndef    ALTFONT
  1128. ***************
  1129. *** 344,351 ****
  1130.       {XtNcallback,    (XtArgVal) command_call},
  1131.   };
  1132.   
  1133.   #ifdef    NOQUERY
  1134. ! #define    drawWidgetClass    widgetClass;
  1135.   #else
  1136.   
  1137.   /* ARGSUSED */
  1138. --- 346,380 ----
  1139.       {XtNcallback,    (XtArgVal) command_call},
  1140.   };
  1141.   
  1142. + static    void
  1143. + create_buttons(h)
  1144. +     XtArgVal    h;
  1145. + {
  1146. +     int i;
  1147. + 
  1148. +     line_args[2].value = h;
  1149. +     line_args[3].value = (XtArgVal) vport_widget;
  1150. +     line_widget = XtCreateManagedWidget("line", widgetClass, form_widget,
  1151. +         line_args, XtNumber(line_args));
  1152. +     right_args[0].value = (XtArgVal) line_widget;
  1153. +     right_args[2].value = h;
  1154. +     right_widget = XtCreateManagedWidget("right", compositeWidgetClass,
  1155. +         form_widget, right_args, XtNumber(right_args));
  1156. + 
  1157. +     command_args[2].value = (XtArgVal) vport_widget;
  1158. +     for (i = 0; i < XtNumber(command_table); ++i) {
  1159. +         command_args[0].value = (XtArgVal) command_table[i].label;
  1160. +         command_args[2].value = (XtArgVal) command_table[i].y_pos;
  1161. +         command_call[0].closure = (caddr_t) command_table[i].closure;
  1162. +         (void) XtCreateManagedWidget(command_table[i].name,
  1163. +         commandWidgetClass, right_widget,
  1164. +         command_args, XtNumber(command_args));
  1165. +     }
  1166. + }
  1167. + #endif    /* BUTTONS */
  1168. + 
  1169.   #ifdef    NOQUERY
  1170. ! #define    drawWidgetClass    widgetClass
  1171.   #else
  1172.   
  1173.   /* ARGSUSED */
  1174. ***************
  1175. *** 405,437 ****
  1176.   
  1177.   #endif    /* NOQUERY */
  1178.   
  1179. - static    void
  1180. - create_buttons(h)
  1181. -     XtArgVal    h;
  1182. - {
  1183. -     int i;
  1184. - 
  1185. -     line_args[2].value = h;
  1186. -     line_args[3].value = (XtArgVal) vport_widget;
  1187. -     line_widget = XtCreateManagedWidget("line", widgetClass, form_widget,
  1188. -         line_args, XtNumber(line_args));
  1189. -     right_args[0].value = (XtArgVal) line_widget;
  1190. -     right_args[2].value = h;
  1191. -     right_widget = XtCreateManagedWidget("right", compositeWidgetClass,
  1192. -         form_widget, right_args, XtNumber(right_args));
  1193. - 
  1194. -     command_args[2].value = (XtArgVal) vport_widget;
  1195. -     for (i = 0; i < XtNumber(command_table); ++i) {
  1196. -         command_args[0].value = (XtArgVal) command_table[i].label;
  1197. -         command_args[2].value = (XtArgVal) command_table[i].y_pos;
  1198. -         command_call[0].closure = (caddr_t) command_table[i].closure;
  1199. -         (void) XtCreateManagedWidget(command_table[i].name,
  1200. -         commandWidgetClass, right_widget,
  1201. -         command_args, XtNumber(command_args));
  1202. -     }
  1203. - }
  1204. - #endif    /* BUTTONS */
  1205. - 
  1206.   #else    /* !TOOLKIT */
  1207.   #define    BAR_WID        12    /* width of darkened area */
  1208.   #define    BAR_THICK    15    /* gross amount removed */
  1209. --- 434,439 ----
  1210. ***************
  1211. *** 489,495 ****
  1212.   #endif
  1213.   
  1214.   extern    double    atof();
  1215. - extern    volatile void    exit();
  1216.   
  1217.   /********************************
  1218.    *      tpic routines        *
  1219. --- 491,496 ----
  1220. ***************
  1221. *** 725,745 ****
  1222.   home(scrl)
  1223.       Boolean    scrl;
  1224.   {
  1225. -     register int coord;
  1226. - 
  1227.       if (!scrl) XUnmapWindow(DISP, WINDOW(mane));
  1228.       get_xy();
  1229. -     coord = 0;
  1230.       if (page_w > clip_w) {
  1231. !         coord = (page_w - clip_w) / 2;
  1232.           if (coord > home_x / mane.shrinkfactor)
  1233.           coord = home_x / mane.shrinkfactor;
  1234.           XtCallCallbacks(x_bar, XtNscrollProc,
  1235.           (XtPointer) (window_x + coord));
  1236.       }
  1237. -     coord = 0;
  1238.       if (page_h > clip_h) {
  1239. !         coord = (page_h - clip_h) / 2;
  1240.           if (coord > home_y / mane.shrinkfactor)
  1241.           coord = home_y / mane.shrinkfactor;
  1242.           XtCallCallbacks(y_bar, XtNscrollProc,
  1243. --- 726,742 ----
  1244.   home(scrl)
  1245.       Boolean    scrl;
  1246.   {
  1247.       if (!scrl) XUnmapWindow(DISP, WINDOW(mane));
  1248.       get_xy();
  1249.       if (page_w > clip_w) {
  1250. !         register int coord = (page_w - clip_w) / 2;
  1251.           if (coord > home_x / mane.shrinkfactor)
  1252.           coord = home_x / mane.shrinkfactor;
  1253.           XtCallCallbacks(x_bar, XtNscrollProc,
  1254.           (XtPointer) (window_x + coord));
  1255.       }
  1256.       if (page_h > clip_h) {
  1257. !         register int coord = (page_h - clip_h) / 2;
  1258.           if (coord > home_y / mane.shrinkfactor)
  1259.           coord = home_y / mane.shrinkfactor;
  1260.           XtCallCallbacks(y_bar, XtNscrollProc,
  1261. ***************
  1262. *** 799,808 ****
  1263.   /* The following callback routine should never be called. */
  1264.       /*ARGSUSED*/
  1265.   static    void
  1266. ! handle_key(widget, junk, event)
  1267.       Widget    widget;
  1268.       caddr_t    junk;
  1269.       XEvent    *event;
  1270.   {
  1271.       XBell(DISP, 20);
  1272.   }
  1273. --- 796,806 ----
  1274.   /* The following callback routine should never be called. */
  1275.       /*ARGSUSED*/
  1276.   static    void
  1277. ! handle_key(widget, junk, event, cont)
  1278.       Widget    widget;
  1279.       caddr_t    junk;
  1280.       XEvent    *event;
  1281. +     Boolean    *cont;        /* unused */
  1282.   {
  1283.       XBell(DISP, 20);
  1284.   }
  1285. ***************
  1286. *** 809,818 ****
  1287.   
  1288.       /*ARGSUSED*/
  1289.   static    void
  1290. ! handle_resize(widget, junk, event)
  1291.       Widget    widget;
  1292.       caddr_t    junk;
  1293.       XEvent    *event;
  1294.   {
  1295.       resized = True;
  1296.   }
  1297. --- 807,817 ----
  1298.   
  1299.       /*ARGSUSED*/
  1300.   static    void
  1301. ! handle_resize(widget, junk, event, cont)
  1302.       Widget    widget;
  1303.       caddr_t    junk;
  1304.       XEvent    *event;
  1305. +     Boolean    *cont;        /* unused */
  1306.   {
  1307.       resized = True;
  1308.   }
  1309. ***************
  1310. *** 1079,1094 ****
  1311.   #ifdef    TOOLKIT
  1312.       /*ARGSUSED*/
  1313.   static    void
  1314. ! handle_button(widget, junk, event)
  1315.       Widget    widget;
  1316.       caddr_t    junk;
  1317.   #else    /* !TOOLKIT */
  1318.   static    void
  1319.   handle_button(event)
  1320. - #endif    /* TOOLKIT */
  1321.       XButtonEvent *event;
  1322.   {
  1323. !     int x, y;
  1324.   #ifndef X10
  1325.       XSetWindowAttributes attr;
  1326.   
  1327. --- 1078,1096 ----
  1328.   #ifdef    TOOLKIT
  1329.       /*ARGSUSED*/
  1330.   static    void
  1331. ! handle_button(widget, junk, ev, cont)
  1332.       Widget    widget;
  1333.       caddr_t    junk;
  1334. +     XEvent *ev;
  1335. + #define    event    (&(ev->xbutton))
  1336. +     Boolean    *cont;        /* unused */
  1337.   #else    /* !TOOLKIT */
  1338.   static    void
  1339.   handle_button(event)
  1340.       XButtonEvent *event;
  1341. + #endif    /* TOOLKIT */
  1342.   {
  1343. !     int    x, y;
  1344.   #ifndef X10
  1345.       XSetWindowAttributes attr;
  1346.   
  1347. ***************
  1348. *** 1134,1145 ****
  1349.   }
  1350.   
  1351.   #ifdef    TOOLKIT
  1352.       /*ARGSUSED*/
  1353.   static    void
  1354. ! handle_motion(widget, junk, event)
  1355.       Widget    widget;
  1356.       caddr_t    junk;
  1357. !     XMotionEvent *event;
  1358.   {
  1359.       new_mag_x = event->x;
  1360.       main_x = event->x_root - new_mag_x;
  1361. --- 1136,1151 ----
  1362.   }
  1363.   
  1364.   #ifdef    TOOLKIT
  1365. + #undef    event
  1366. + 
  1367.       /*ARGSUSED*/
  1368.   static    void
  1369. ! handle_motion(widget, junk, ev, cont)
  1370.       Widget    widget;
  1371.       caddr_t    junk;
  1372. !     XEvent *ev;
  1373. ! #define    event    (&(ev->xmotion))
  1374. !     Boolean    *cont;        /* unused */
  1375.   {
  1376.       new_mag_x = event->x;
  1377.       main_x = event->x_root - new_mag_x;
  1378. ***************
  1379. *** 1147,1152 ****
  1380. --- 1153,1160 ----
  1381.       main_y = event->y_root - new_mag_y;
  1382.       mag_moved = (new_mag_x != mag_x || new_mag_y != mag_y);
  1383.   }
  1384. + 
  1385. + #undef    event
  1386.   #endif    /* TOOLKIT */
  1387.   
  1388.   static    void
  1389. ***************
  1390. *** 1167,1176 ****
  1391.   #ifdef    TOOLKIT
  1392.       /*ARGSUSED*/
  1393.   static    void
  1394. ! handle_release(widget, junk, event)
  1395.       Widget    widget;
  1396.       caddr_t    junk;
  1397. !     XButtonEvent *event;
  1398.   #else    /* !TOOLKIT */
  1399.   static    void
  1400.   handle_release()
  1401. --- 1175,1186 ----
  1402.   #ifdef    TOOLKIT
  1403.       /*ARGSUSED*/
  1404.   static    void
  1405. ! handle_release(widget, junk, ev, cont)
  1406.       Widget    widget;
  1407.       caddr_t    junk;
  1408. !     XEvent *ev;
  1409. ! #define    event    (&(ev->xbutton))
  1410. !     Boolean    *cont;        /* unused */
  1411.   #else    /* !TOOLKIT */
  1412.   static    void
  1413.   handle_release()
  1414. ***************
  1415. *** 1188,1204 ****
  1416.   }
  1417.   
  1418.   #ifdef    TOOLKIT
  1419.       /*ARGSUSED*/
  1420.   static    void
  1421. ! handle_exp(widget, windowrec, event)
  1422.       Widget    widget;
  1423.       struct WindowRec *windowrec;
  1424. !     register XExposeEvent *event;
  1425.   {
  1426.       if (windowrec == &alt)
  1427.           if (alt_stat < 0) {    /* destroy upon exposure */
  1428.           alt_stat = 0;
  1429. !         handle_release(widget, (caddr_t) NULL, (XButtonEvent *) event);
  1430.           return;
  1431.           }
  1432.           else
  1433. --- 1198,1219 ----
  1434.   }
  1435.   
  1436.   #ifdef    TOOLKIT
  1437. + #undef    event
  1438. + 
  1439.       /*ARGSUSED*/
  1440.   static    void
  1441. ! handle_exp(widget, windowrec, ev, cont)
  1442.       Widget    widget;
  1443.       struct WindowRec *windowrec;
  1444. !     register XEvent *ev;
  1445. ! #define    event    (&(ev->xexpose))
  1446. !     Boolean    *cont;        /* unused */
  1447.   {
  1448.       if (windowrec == &alt)
  1449.           if (alt_stat < 0) {    /* destroy upon exposure */
  1450.           alt_stat = 0;
  1451. !         handle_release(widget, (caddr_t) NULL, (XButtonEvent *) event,
  1452. !             (Boolean *) NULL);
  1453.           return;
  1454.           }
  1455.           else
  1456. ***************
  1457. *** 1205,1210 ****
  1458. --- 1220,1227 ----
  1459.           alt_stat = 0;
  1460.       expose(windowrec, event->x, event->y, event->width, event->height);
  1461.   }
  1462. + 
  1463. + #undef    event
  1464.   #endif    /* TOOLKIT */
  1465.   
  1466.   /* |||
  1467. ***************
  1468. *** 1441,1449 ****
  1469. --- 1458,1468 ----
  1470.       bad:  XBell(DISP, 10);
  1471.   }
  1472.   
  1473. + 
  1474.   #ifndef X10
  1475.   #define    TRSIZE    100
  1476.   #endif    /* X10 */
  1477. + 
  1478.   static    void
  1479.   read_events(wait)
  1480.       Boolean    wait;
  1481. ***************
  1482. *** 1478,1484 ****
  1483.           if (resized) get_geom();
  1484.           if (event.xany.window == WINDOW(alt) &&
  1485.               event.type == Expose) {
  1486. !         handle_exp((Widget) NULL, &alt, &event.xexpose);
  1487.           continue;
  1488.           }
  1489.           if (event.type != KeyPress) {
  1490. --- 1497,1503 ----
  1491.           if (resized) get_geom();
  1492.           if (event.xany.window == WINDOW(alt) &&
  1493.               event.type == Expose) {
  1494. !         handle_exp((Widget) NULL, &alt, &event.xexpose, (Boolean*)NULL);
  1495.           continue;
  1496.           }
  1497.           if (event.type != KeyPress) {
  1498. diff -cr xdvi_old/xdvi.h xdvi_new/xdvi.h
  1499. *** xdvi_old/xdvi.h    Mon Feb 17 14:18:07 1992
  1500. --- xdvi_new/xdvi.h    Fri Mar 27 18:15:28 1992
  1501. ***************
  1502. *** 162,171 ****
  1503.   };
  1504.   
  1505.   #if    NeedFunctionPrototypes
  1506. ! typedef    long    (*set_char_proc)(WIDEARG(ubyte,int));
  1507. ! #else
  1508.   typedef    long    (*set_char_proc)();
  1509. ! #endif
  1510.   
  1511.   struct drawinf {    /* this information is saved when using virtual fonts */
  1512.       struct framedata data;
  1513. --- 162,179 ----
  1514.   };
  1515.   
  1516.   #if    NeedFunctionPrototypes
  1517. ! #ifndef    TEXXET
  1518. ! typedef    long    (*set_char_proc)(WIDEARG(ubyte, int));
  1519. ! #else    /* TEXXET */
  1520. ! typedef    void    (*set_char_proc)(WIDEARG(ubyte, int), WIDEARG(ubyte, int));
  1521. ! #endif    /* TEXXET */
  1522. ! #else    /* NeedFunctionPrototypes */
  1523. ! #ifndef    TEXXET
  1524.   typedef    long    (*set_char_proc)();
  1525. ! #else    /* TEXXET */
  1526. ! typedef    void    (*set_char_proc)();
  1527. ! #endif    /* TEXXET */
  1528. ! #endif    /* NeedFunctionPrototypes */
  1529.   
  1530.   struct drawinf {    /* this information is saved when using virtual fonts */
  1531.       struct framedata data;
  1532. ***************
  1533. *** 174,179 ****
  1534. --- 182,190 ----
  1535.       struct tn    *tn_head;
  1536.       ubyte        *pos, *end;
  1537.       Boolean        virtual;
  1538. + #ifdef    TEXXET
  1539. +     int        dir;
  1540. + #endif
  1541.   };
  1542.   
  1543.   EXTERN    struct drawinf    currinf;
  1544. ***************
  1545. *** 262,268 ****
  1546.    */
  1547.   
  1548.   #if    NeedFunctionPrototypes
  1549. ! typedef    void (*read_char_proc)(struct font *, WIDEARG(ubyte,int));
  1550.   #else
  1551.   typedef    void (*read_char_proc)();
  1552.   #endif
  1553. --- 273,279 ----
  1554.    */
  1555.   
  1556.   #if    NeedFunctionPrototypes
  1557. ! typedef    void (*read_char_proc)(struct font *, WIDEARG(ubyte, int));
  1558.   #else
  1559.   typedef    void (*read_char_proc)();
  1560.   #endif
  1561. ***************
  1562. *** 379,386 ****
  1563. --- 390,402 ----
  1564.   extern    void    init_page(void);
  1565.   extern    void    open_dvi_file(void);
  1566.   extern    Boolean    check_dvi_file(void);
  1567. + #ifndef    TEXXET
  1568.   extern    long    set_char(WIDEARG(ubyte, int));
  1569.   extern    long    set_vf_char(WIDEARG(ubyte, int));
  1570. + #else
  1571. + extern    void    set_char(WIDEARG(ubyte, int), WIDEARG(ubyte, int));
  1572. + extern    void    set_vf_char(WIDEARG(ubyte, int), WIDEARG(ubyte, int));
  1573. + #endif
  1574.   extern    void    draw_page(void);
  1575.   extern    void    init_font_open(void);
  1576.   extern    FILE    *font_open(_Xconst char *, char **,
  1577. ***************
  1578. *** 413,420 ****
  1579. --- 429,441 ----
  1580.   extern    void    init_page();
  1581.   extern    void    open_dvi_file();
  1582.   extern    Boolean    check_dvi_file();
  1583. + #ifndef    TEXXET
  1584.   extern    long    set_char();
  1585.   extern    long    set_vf_char();
  1586. + #else
  1587. + extern    void    set_char();
  1588. + extern    void    set_vf_char();
  1589. + #endif
  1590.   extern    void    draw_page();
  1591.   extern    void    init_font_open();
  1592.   extern    FILE    *font_open();
  1593. -- 
  1594. --
  1595. Molecular Simulations, Inc.            mail: dcmartin@msi.com
  1596. 796 N. Pastoria Avenue                uucp: uunet!dcmartin
  1597. Sunnyvale, California 94086            at&t: 408/522-9236
  1598.