home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume11 / lemming / patch1 next >
Encoding:
Internet Message Format  |  1987-09-20  |  35.9 KB
  1. Subject:  v11i063:  Update kit for lemming editor, Patch1
  2. Newsgroups: comp.sources.unix
  3. Sender: sources
  4. Approved: rs@uunet.UU.NET
  5.  
  6. Submitted-by: "Alan W. Paeth" <awpaeth%watcgl.waterloo.edu@RELAY.CS.NET>
  7. Posting-number: Volume 11, Issue 63
  8. Archive-name: lemming/Patch1
  9.  
  10.  
  11. The "LEMMING - Little Editor for Mice and Other Rodents" editor has a fast-
  12. growing user community, and minor bug fixes and addenda are coming in. In
  13. addition, I've continued to extend the editor, hense these two postings.
  14.  
  15. These patches, plus may latest features are in this first mail message
  16. In addition, I've added source code for PostScript output, and included a
  17. Silicon Graphics/IRIS driver. The second posting includes an installers
  18. guide, updates to the tutorial, a new font file, and sample *.lem documents.
  19.  
  20. This posting contains source related code: new source modules (for PostScript
  21. and the IRIS), "diff"-style patch code, plus a shell script to run the latter.
  22. This code allows one to update the comp.sources.unix version of "lemming" to
  23. incorporate the latest features.
  24.  
  25. # This is a shell archive.  Remove anything before this line,
  26. # then unpack it by saving it in a file and typing "sh file".
  27. #
  28. # Contents:  lemir.c lempost.c dif-.lemrc dif-Makefile dif-lem.h dif-lemedit.c
  29. #    dif-lemgeo.c dif-lemhelp.c dif-lemio.c dif-lemline.c dif-lemmain.c
  30. #    dif-lemmisc.c dif-lemobj.c dif-lemobjsup.c dif-lempic.c dif-lemselect.c
  31. #    dif-lemspecial.c dif-lemstart.c dif-lemstop.c dif-lemtick.c dif-lemx.c
  32. #    runpatches
  33.  
  34. echo x - lemir.c
  35. sed 's/^@//' > "lemir.c" <<'@//E*O*F lemir.c//'
  36. /*
  37.  * lemir.c - lemming driver for Iris package
  38.  *
  39.  * copyright (c) by Alan W. Paeth, 1987. All rights reserved.
  40.  */
  41.  
  42. #include "lem.h"
  43. #include <gl.h>
  44. #include <device.h>
  45.  
  46. #define SOLID 0
  47. #define DASHES 1
  48. #define DOTS 2
  49.  
  50. #define DEFWIDTH 512
  51. #define DEFHEIGHT 512
  52.  
  53. #define SELMENU "Selections%t|none%x14|delete%x4|box%x2|ellipse%x5|vector%x22|undo%x21|refresh%x12"
  54.  
  55. #define NOSELMENU "No Select%t|all%x1|read%x18|write%x23|output%x15|quit%x17|undo%x21|refresh%x12"
  56.  
  57. int sysmsgloc;
  58. char sysmsg[120];
  59.     
  60. long winid, selmenu, noselmenu;
  61. long left, right, bottom, top, screenw, screenh;
  62.  
  63. unsigned char maptab[256];
  64.  
  65. Cursor lemcur =
  66.       { 0x0080, 0x0080, 0x0080, 0x0080, 0x03e0, 0x0630, 0x0410, 0x7c1f,
  67.     0x0410, 0x0630, 0x03e0, 0x0080, 0x0080, 0x0080, 0x0080, 0x0000 };
  68.  
  69. start()
  70.     {
  71. #define NOWIND -1
  72.     winid = NOWIND;
  73.     if (ismex())
  74.     {
  75.     /* prefsize(DEFWIDTH, DEFHEIGHT); */ /* suggested, not mandated */
  76.     minsize(200, 200);
  77.         winid = winopen("lemming 1.0");
  78.         if (winid == NOWIND)
  79.             {
  80.         fprintf(stderr, "can't open window");
  81.         exit(1);
  82.         }
  83.     wintitle("lemming 1.0");
  84.         }
  85.     else ginit();
  86.     greset();
  87.     writemask(0x7);
  88.     
  89.     qdevice(KEYBD);
  90.     qdevice(LEFTMOUSE);
  91.     qdevice(MIDDLEMOUSE);
  92.     if (ismex())
  93.         {
  94.     qdevice(MENUBUTTON);    /* add for popup menus */
  95.     selmenu = defpup(SELMENU);
  96.     noselmenu = defpup(NOSELMENU);
  97.         qdevice(REDRAW); /* must be done for MEX to post to queue! */
  98.     }
  99.     tie(LEFTMOUSE, MOUSEX, MOUSEY);
  100.     tie(MIDDLEMOUSE, MOUSEX, MOUSEY);
  101.  
  102.     cblack = BLACK;
  103.     cwhite = WHITE;
  104.     cred   = RED;
  105.     cgreen = GREEN;
  106.  
  107.     tickdot = 0;
  108.  
  109.     deflinestyle(1, 0x00ff);
  110.     deflinestyle(2, 0x0303);
  111.     lsbackup(1);
  112.  
  113.     defcursor(1, lemcur);
  114.     curorigin(1, 8, 7);
  115.     setcursor(1, 0x7, 0xffffff);
  116.     resize();
  117.     }
  118.  
  119. stop()
  120.     {
  121.     setcursor(0, 0x7, 0x7);
  122.     if (ismex())
  123.     {
  124.     if (winid != NOWIND) winclose(winid);
  125.     }
  126.     gexit();
  127.     }
  128.         
  129. resize()
  130.     {
  131.     if (ismex())
  132.         {
  133.     getsize(&screenw, &screenh);
  134.         getorigin(&left, &bottom);
  135.         right = left + screenw;
  136.         top = bottom + screenh;
  137.         ortho2(0.0, (float)(screenw), 0.0, (float)(screenh));
  138.         viewport(0, screenw, 0, screenh);
  139.         }
  140.     else
  141.     {
  142.     bottom = 128;
  143.     top = bottom + DEFHEIGHT;
  144.     left = 256;
  145.     right = left + DEFWIDTH;
  146.         screenw = right - left;
  147.         screenh = top - bottom;
  148.     ortho2(0.0, (float)(screenw), 0.0, (float)(screenh));
  149.         viewport(left, right, bottom, top);
  150.     }
  151.     }
  152.  
  153. getevent(xdn, ydn, xup, yup, ch)
  154.     int *xdn, *ydn, *xup, *yup;
  155.     char *ch;
  156.     {
  157.     static mousedown, midflag, postflag, xd, xu, yd, yu;
  158.     short val, m, type;
  159.     int ret;
  160. /*
  161.  * special test for pending selection on middle button
  162.  */
  163.     if (midflag && postflag)
  164.         {
  165.     *ch = C(I);    /* ^I == <TAB> */
  166.     midflag = postflag = 0;
  167.     return(CNTRL);
  168.     }
  169. /*
  170.  * on to the conventional testing
  171.  */
  172.     ret = NOEVT;
  173.     if (type = qtest())
  174.         switch(qread(&val))
  175.         {
  176.  
  177. case LEFTMOUSE:
  178. case MIDDLEMOUSE:
  179.         midflag = ((type == MIDDLEMOUSE) && !val);
  180.         mousedown = val;
  181.         if (mousedown) postflag = m = 0;
  182.         break;
  183.  
  184. case MOUSEX:
  185. case MOUSEY:
  186.         if ((type == MOUSEX) &&  mousedown) { m |= 1; xd = val-left; } 
  187.         if ((type == MOUSEX) && !mousedown) { m |= 2; xu = val-left; }
  188.         if ((type == MOUSEY) &&  mousedown) { m |= 4; yd = val-bottom; }
  189.         if ((type == MOUSEY) && !mousedown) { m |= 8; yu = val-bottom; }
  190.             if (m == 15)
  191.             {
  192.             m = 0;
  193.             ret = MOUSE;
  194.                 *xdn = MIN(MAX(xd, 0), screenw);
  195.                 *ydn = MIN(MAX(yd, 0), screenh);
  196.                 *xup = MIN(MAX(xu, 0), screenw);
  197.                 *yup = MIN(MAX(yu, 0), screenh);
  198.             postflag = 1;
  199.         }
  200.         break;
  201.  
  202. case MENUBUTTON:
  203.         if (val)
  204.         {
  205.         char code;
  206.         /* pupmode(); */    /* mex document lies! */
  207.         code = dopup(anysel ? selmenu : noselmenu);
  208.         /* endpupmode(); */    /* see above */
  209.             setcursor(1, 0x7, 0xffffff); /* mex took it away */
  210.         if (code != -1)
  211.             {
  212.             *ch = code;
  213.             ret = CNTRL;
  214.             }
  215.         }
  216.         break;
  217.  
  218. case KEYBD:
  219.             *ch = val;
  220.             if (*ch)
  221.             {
  222.             if ((*ch >= ' ') && (*ch != '\177'))
  223.             ret = ALPHA;
  224.             else if (*ch > 0) ret = CNTRL;
  225.             }    
  226.             break;
  227.  
  228. case REDRAW:
  229.             resize();
  230.         redraw();
  231.         break;
  232.  
  233. default:        /* unknown event in queue */
  234.         break;
  235.             }    
  236.     return(ret);
  237.     }
  238.  
  239. drawvec(x0, y0, x1, y1, col, wid, emph)
  240.     {
  241.     cursoff();
  242.     setlinestyle( (emph==EMPHNONE) ? SOLID:((emph==EMPHBOLD) ? DASHES:DOTS) );
  243.     linewidth(wid);
  244.     color(col);
  245.     move2i(x0, y0);
  246.     draw2i(x1, y1);
  247.     curson();
  248.     }
  249.  
  250. charshow(str)
  251.     char *str;
  252.     {
  253.     int i;
  254.     for(i=0; i<strlen(str); i++) sysmsg[sysmsgloc++] = str[i];
  255.     sysmsg[sysmsgloc] = '\0';
  256.     fontwrite(SYSFONT, 10, 10, sysmsg, EMPHNONE, cgreen);
  257.     }
  258.  
  259. charunshow(n)
  260.     {
  261.     fontwrite(SYSFONT, 10, 10, sysmsg, EMPHNONE, cblack);
  262.     while (n--)
  263.     {
  264.     if (sysmsgloc) sysmsg[--sysmsgloc] = '\0';
  265.     }
  266.     fontwrite(SYSFONT, 10, 10, sysmsg, EMPHNONE, cgreen);
  267.     }
  268.  
  269. erase()
  270.     {
  271.     cursoff();
  272.     color(BLACK);
  273.     clear();
  274.     if (!ismex())    /* add border in vanilla version */
  275.         {
  276.     drawvec(0,         0, screenw-1, 0,         cgreen, 1, EMPHNONE);
  277.     drawvec(0,         0, 0,         screenh-1, cgreen, 1, EMPHNONE);
  278.     drawvec(screenw-1, 0, screenw-1, screenh-1, cgreen, 1, EMPHNONE);
  279.     drawvec(0, screenh-1, screenw-1, screenh-1, cgreen, 1, EMPHNONE);
  280.         }
  281.     curson();
  282.     }
  283.  
  284. writescan(x, y, pixels, outaddr, col)
  285.     int x, y, pixels, col;
  286.     long *outaddr;
  287.     {
  288.     int dx;
  289.     long mask;
  290.     cursoff();
  291. /*
  292.  * remap bits for IRIS byte conventions
  293.  */
  294.     swapshorts(outaddr, (pixels+31)/8);
  295.     
  296.     mask = 0x1;
  297.     color(col);
  298.     for(dx=0; dx<pixels; dx++)
  299.         {
  300.         if (mask & *outaddr) pnti(x+dx, screenh-1-y, 0);
  301.     mask<<=1;
  302.         if (!mask)
  303.             {
  304.             mask = 0x1;
  305.             outaddr++;
  306.             }
  307.         }
  308.     curson();
  309.     }
  310.  
  311. /*
  312.  * byte reversal stuff
  313.  */
  314.  
  315. swapshorts(buf, len)
  316.     register unsigned char *buf;
  317.     {
  318.     unsigned char c1, c2, c3, c4;
  319.     register int count, i;
  320.     if (!maptab[1]) maptabinit();
  321.     count = len/4;
  322.     for (i=0; i<count; i++)
  323.     {
  324.     c1 = *buf++;
  325.     c2 = *buf++;
  326.     c3 = *buf++;
  327.     c4 = *buf;
  328.     *buf-- = maptab[c1];
  329.     *buf-- = maptab[c2];
  330.     *buf-- = maptab[c3];
  331.     *buf   = maptab[c4];
  332.     buf += 4;
  333.     }
  334.     }
  335.  
  336. maptabinit()
  337.     {
  338.     register int i, j;
  339.     unsigned char mask;
  340.     for(i = 0; i<256; i++)
  341.     {
  342.     mask = 0;
  343.     for(j = 0; j < 8; j++) if (i & (1<<j)) mask |= 1<<(7-j);
  344.     maptab[i] = mask;
  345.     }
  346.     }
  347. @//E*O*F lemir.c//
  348. chmod u=rw,g=r,o= lemir.c
  349.  
  350. echo x - lempost.c
  351. sed 's/^@//' > "lempost.c" <<'@//E*O*F lempost.c//'
  352. /*
  353.  * lempost.c - PostScript output processor
  354.  *
  355.  * copyright (c) by Alan W. Paeth, 1987. All rights reserved.
  356.  */
  357.  
  358. /*
  359.  * NOTE: this file may be substituted for "lempic.c" to provide
  360.  * PostScript output. The module is not complete in that the author
  361.  * as no easy access to verify the PostScript macros which are defined
  362.  * for each of the various lemming internal primitives. It is hoped that
  363.  * this macros will be completed by a regular PostScript user.
  364.  */
  365.  
  366. #include "lem.h"
  367.  
  368. FILE *f;
  369. int psize, pthick, pemph;
  370. char *pfont;
  371.  
  372. writepicint(fname)
  373.     char *fname;
  374.     {
  375.     char msgstr[50];
  376.     int i;
  377.     f = (fname && (strlen(fname) > 0)) ? fopen(fname, "w") : 0;
  378.     if (f)
  379.     {
  380.     pthick = psize = pemph = -1;
  381.     postopen();
  382.     forobjects
  383.         {
  384.         if (Odel) continue;
  385.         switch (Otype)
  386.         {
  387.         case TEXT:    ptext(i); break;
  388.         case LINE:    pline(i); break;
  389.         case BOX:    pbox(i);  break;
  390.         case ELLI:    pelli(i); break;
  391.         }
  392.         }
  393.     postclose();
  394.     fclose(f);
  395.     sprintf(msgstr, "PostScript output done [%s]", fname);
  396.     msgpost(msgstr);
  397.     }
  398.     else
  399.     {
  400.     sprintf(msgstr, "PostScript output failed [%s]", fname);
  401.     msgpost(msgstr);
  402.     }
  403.     free(fname);
  404.     }
  405.  
  406. writepic()
  407.     {
  408.     char *fname;
  409.     if (lastobj == 1) msgpost("work area empty -- no output");
  410.     else
  411.     {
  412.         fname = prompt("PostScript file: ");
  413.         writepicint(fname);
  414.         free(fname);
  415.     }
  416.     }
  417.  
  418. thick(i)
  419.     {
  420.     if (pthick != lemfont[Osizer].thick)
  421.     {
  422.     pthick = lemfont[Osizer].thick;
  423.         fprintf(f, "%d stwid\n", pthick);
  424.     }
  425.     }
  426.  
  427. emph(i)
  428.     {
  429.     if (Oemph != pemph)
  430.     {
  431.     switch(Oemph)
  432.         {
  433.         case EMPHNONE: out("snone"); break;
  434.         case EMPHBOLD: out("sbold"); break;
  435.         case EMPHITAL: out("sital"); break;
  436.         }
  437.         pemph = Oemph;
  438.     }
  439.     }
  440.     
  441. font(i)
  442.     {
  443.     if ((Oemph != pemph) || (lemfont[Osizer].psize != psize))
  444.     {
  445.     switch(Oemph)
  446.         {
  447.         case EMPHNONE: pfont = lemfont[Osizer].psr; break;
  448.         case EMPHBOLD: pfont = lemfont[Osizer].psb; break;
  449.         case EMPHITAL: pfont = lemfont[Osizer].psi; break;
  450.         }
  451.         pemph = Oemph;
  452.         psize = lemfont[Osizer].psize;
  453.     fprintf(f, "/%s %d sfont\n", pfont, psize);
  454.     }
  455.     }
  456.  
  457. ptext(i)
  458.     {
  459.     font(i);
  460.     fprintf(f, "(%s) %d %d", Otext, Oxs, Oys);
  461.     switch(Oalign)
  462.     {
  463.     case ALIGNLEFT:    out(" ltext"); break;
  464.     case ALIGNRGHT:    out(" rtext"); break;
  465.     case ALIGNCENT:    out(" ctext"); break;
  466.     }
  467.     }
  468.  
  469. pline(i)
  470.     {
  471.     thick(i);
  472.     emph(i);
  473.     fprintf(f, "%d %d %d %d ", Oxs, Oys, Oxe, Oye);
  474.     switch(Oalign)
  475.     {
  476.     case ALIGNLEFT: out("lline");
  477.     case ALIGNRGHT: out("rline");
  478.     case ALIGNCENT: out("cline");
  479.     }
  480.     }
  481.  
  482. pbox(i)
  483.     {
  484.     thick(i);
  485.     emph(i);
  486.     fprintf(f, "%d %d %d %d boxer\n", Ox, Oy, ABS(Ow), ABS(Oh));
  487.     }
  488.  
  489. pelli(i)
  490.     {
  491.     thick(i);
  492.     emph(i);
  493.     fprintf(f, "%d %d %d %d ellip\n", Ox, Oy, ABS(Ow), ABS(Oh));
  494.     }
  495.  
  496. out(s)
  497.     char *s;
  498.     {
  499.     fprintf(f, "%s\n", s);
  500.     }
  501.  
  502. postopen()
  503.     {
  504. out("%!PSAdobe-1.0");
  505. out("%%Creator: AWPaeth@watCGL");
  506. out("%%Title: Lemming-PostScript");
  507. out("%%Pages: 1");
  508. out("%%DocumentFonts Times-Bold");
  509. out("%%BoundingBox 0 0 612 792");
  510. out("%%EndComments");
  511. out("%%EndProlog");
  512. out("%%Page: 0 1");
  513. out("%");
  514. out("% attribute macros");
  515. out("/sbold {[4 4] 0 setdash} def");
  516. out("/sital {[1 1] 0 setdash} def");
  517. out("/snone {[   ] 0 setdash} def");
  518. out("/swidt {setlinewidth} def");
  519. out("/sfont {exch scalefont setfont} def");
  520. out("%");
  521. out("% object macros");
  522. out("/ltext {moveto 5 0 8#040 4 3 roll widthshow} def");
  523. out("/ctext {moveto dup stringwidth pop 2 div neg 0 rmoveto show} def");
  524. out("/rtext {moveto dup stringwidth pop neg 0 rmoveto show} def");
  525. out("/cline {newpath 2 4 roll moveto drawto stroke} def");
  526. out("/lline {newpath 2 4 roll moveto drawto stroke} def");
  527. out("/rline {newpath 2 4 roll moveto drawto stroke} def");
  528. out("/boxer {lline} def");
  529. out(" /edict {/edict 8 dict def");
  530. out(" edict /mtrx matrix put");
  531. out("/ellip { edict begin /endangle exch def /startangle exch def");
  532. out("         yrad exch def xrad exch def /y exch def /x exch def");
  533. out("         /savematrix mtrx currentmatrix def x y translate");
  534. out("         x y translate xrad yrad scazle 0 0 1 startangle endangle arc");
  535. out("         savematrix setmatrix end stroke }");
  536. out("%");
  537. out("% global defaults");
  538. out("%");
  539. out("1 setlinecap");
  540. out("1 setlinejoin");
  541. out("%");
  542. out("% THE STUFF");
  543. out("%");
  544.     }
  545.  
  546. postclose()
  547.     {
  548.     out("showpage");
  549.     out("%");
  550.     out("%%Trailer");
  551.     out("%%Pages: 1");
  552.     }
  553. @//E*O*F lempost.c//
  554. chmod u=rw,g=r,o= lempost.c
  555.  
  556. echo x - dif-.lemrc
  557. sed 's/^@//' > "dif-.lemrc" <<'@//E*O*F dif-.lemrc//'
  558. diff ./.lemrc /u/awpaeth/lem/src/.lemrc
  559. 11,19c11,19
  560. < 12   1    TimesRoman    TR TB TI    Times-Bold Times-Bold Times-Bold
  561. < 10   2    TimesRoman    TR TB TI    Times-Bold Times-Bold Times-Bold
  562. < 18   3    TimesRoman    TR TB TI    Times-Bold Times-Bold Times-Bold
  563. < 12   4    Helvetica    SR SB SI    Times-Bold Times-Bold Times-Bold
  564. < 10   5    Helvetica    SR SB SI    Times-Bold Times-Bold Times-Bold
  565. < 18   6    Helvetica    SR SB SI    Times-Bold Times-Bold Times-Bold
  566. < 6    7    Helvetica    SR SB SI    Times-Bold Times-Bold Times-Bold
  567. < 10   8    Gacha        CW CW CW    Times-Bold Times-Bold Times-Bold
  568. < 12   9    Hippo         GM GM GM    Times-Bold Times-Bold Times-Bold
  569. ---
  570. > 12   1    TimesRoman    TR TB TI   Times-Roman Times-Bold     Times-Italic 
  571. > 10   2    TimesRoman    TR TB TI   Times-Roman Times-Bold     Times-Italic 
  572. > 18   3    TimesRoman    TR TB TI   Times-Roman Times-Bold     Times-Italic 
  573. > 12   4    Helvetica    SR SB SI   Helvetica   Helvetica-Bold Helvetica-Oblique
  574. > 10   5    Helvetica    SR SB SI   Helvetica   Helvetica-Bold Helvetica-Oblique
  575. > 18   6    Helvetica    SR SB SI   Helvetica   Helvetica-Bold Helvetica-Oblique
  576. > 6    7    Helvetica    SR SB SI   Helvetica   Helvetica-Bold Helvetica-Oblique
  577. > 10   8    Gacha        CW CW CW   Courier     Courier-Bold   Courier-Oblique
  578. > 12   9    Hippo         GM GM GM   Symbol      Symbol         Symbol
  579. 23c23
  580. <  18 1    OldEnglish    oe oe oe    Times-Bold Times-Bold Times-Bold
  581. ---
  582. >  18 1    OldEnglish    oe oe oe   unknown     unknown        unknown
  583. @//E*O*F dif-.lemrc//
  584. chmod u=rw,g=r,o=r dif-.lemrc
  585.  
  586. echo x - dif-Makefile
  587. sed 's/^@//' > "dif-Makefile" <<'@//E*O*F dif-Makefile//'
  588. diff ./Makefile /u/awpaeth/lem/src/Makefile
  589. 23d22
  590. <     lempic.o \
  591. 31,32c30
  592. <     lemundo.o \
  593. <     lemvec.o
  594. ---
  595. >     lemundo.o
  596. 34,35c32
  597. < lemik::    $(OBJ) lemik.o
  598. <     cc $(CFLAGS) $(OBJ) lemik.o -lIkonas -lLocator -lm -o /u/awpaeth/bin/lemik
  599. ---
  600. > NOVEC =    lemvec.o
  601. 37,38c34,64
  602. < lemx::    $(OBJ) lemx.o
  603. <     cc $(CFLAGS) $(OBJ) lemx.o -lX -lm -o /u/awpaeth/bin/lemx
  604. ---
  605. > POST =    lempost.o
  606. > PIC =    lempic.o
  607. > 
  608. > ADAGE =    lemik.o
  609. > XWIND =    lemx.o
  610. > IRIS =    lemir.o
  611. > 
  612. > 
  613. > lemik::    $(OBJ) $(PIC) $(NOVEC) $(ADAGE)
  614. >     cc $(CFLAGS) $(OBJ) $(PIC) $(NOVEC) $(ADAGE) \
  615. >         -lIkonas -lLocator -lm -o /u/awpaeth/bin/lemik
  616. > 
  617. > lemikps:: $(OBJ) $(POST) $(NOVEC) $(ADAGE)
  618. >     cc $(CFLAGS) $(OBJ) $(PIC) $(NOVEC) $(ADAGE) \
  619. >         -lIkonas -lLocator -lm -o /u/awpaeth/bin/lemikps
  620. > 
  621. > lemx::    $(OBJ) $(PIC) $(NOVEC) $(XWIND)
  622. >     cc $(CFLAGS) $(OBJ) $(PIC) $(NOVEC) $(XWIND) \
  623. >         -lXr -lX -lm -o /u/awpaeth/bin/lemx
  624. > 
  625. > lemxps:: $(OBJ) $(POST) $(NOVEC) $(XWIND)
  626. >     cc $(CFLAGS) $(OBJ) $(POST) $(NOVEC) $(XWIND) \
  627. >         -lXr -lX -lm -o /u/awpaeth/bin/lemxps
  628. > 
  629. > lemir::    $(OBJ) $(PIC) $(IRIS)
  630. >     cc $(CFLAGS) $(OBJ) $(PIC) $(IRIS)
  631. >         -lm -Zg -o /u/awpaeth/bin/lemir
  632. > 
  633. > lemirps::    $(OBJ) $(POST) $(IRIS)
  634. >     cc $(CFLAGS) $(OBJ) $(POST) $(IRIS)
  635. >         -lm -Zg -o /u/awpaeth/bin/lemirps
  636. @//E*O*F dif-Makefile//
  637. chmod u=rw,g=r,o=r dif-Makefile
  638.  
  639. echo x - dif-lem.h
  640. sed 's/^@//' > "dif-lem.h" <<'@//E*O*F dif-lem.h//'
  641. diff ./lem.h /u/awpaeth/lem/src/lem.h
  642. 14c14
  643. <  * useful arithmetic functions
  644. ---
  645. >  * useful ASCII functions
  646. 17,19d16
  647. < #define MIN(a,b) ((a)<(b)?(a):(b))
  648. < #define MAX(a,b) ((a)>(b)?(a):(b))
  649. < #define ABS(a) ((a)>0?(a):(-(a)))
  650. 22a20,24
  651. > /* see "lemmisc.c" */
  652. > /* #define MIN(a,b) ((a)<(b)?(a):(b)) */
  653. > /* #define MAX(a,b) ((a)>(b)?(a):(b)) */
  654. > /* #define ABS(a) ((a)>0?(a):(-(a)))  */
  655. > 
  656. 163a166
  657. > #define SNAPTOL 8    /* max units to move when placing point along a line */
  658. 276c279
  659. < char *salloc(), *prompt(), getstroke();
  660. ---
  661. > char *salloc(), *prompt(), *filefind(), getstroke();
  662. @//E*O*F dif-lem.h//
  663. chmod u=rw,g=r,o=r dif-lem.h
  664.  
  665. echo x - dif-lemedit.c
  666. sed 's/^@//' > "dif-lemedit.c" <<'@//E*O*F dif-lemedit.c//'
  667. diff ./lemedit.c /u/awpaeth/lem/src/lemedit.c
  668. 76,77c76
  669. <     int i, j, g, dx, dy;
  670. <     if (!anysel) return;
  671. ---
  672. >     int dx, dy;
  673. 79a79,85
  674. >     copyoffset(dx, dy);
  675. >     }
  676. > 
  677. > copyoffset(dx, dy)
  678. >     {
  679. >     int i, j, g;
  680. >     if (!anysel) return;
  681. 96c102
  682. <         objectop(i, SEL, UNDEL);
  683. ---
  684. > /*        objectop(i, SEL, SEL); */
  685. @//E*O*F dif-lemedit.c//
  686. chmod u=rw,g=r,o=r dif-lemedit.c
  687.  
  688. echo x - dif-lemgeo.c
  689. sed 's/^@//' > "dif-lemgeo.c" <<'@//E*O*F dif-lemgeo.c//'
  690. diff ./lemgeo.c /u/awpaeth/lem/src/lemgeo.c
  691. 18c18
  692. < hypot(x, y)
  693. ---
  694. > ihypot(x, y)
  695. 28c28
  696. <     return(hypot(x1-x0, y1-y0));
  697. ---
  698. >     return(ihypot(x1-x0, y1-y0));
  699. @//E*O*F dif-lemgeo.c//
  700. chmod u=rw,g=r,o=r dif-lemgeo.c
  701.  
  702. echo x - dif-lemhelp.c
  703. sed 's/^@//' > "dif-lemhelp.c" <<'@//E*O*F dif-lemhelp.c//'
  704. diff ./lemhelp.c /u/awpaeth/lem/src/lemhelp.c
  705. 10c10
  706. < #define HELPCHARS "[IHMABCDEFGLNOPRSTUVWX^?"
  707. ---
  708. > #define HELPCHARS "[IHMABDEFGKLNOPRSTUVWX^?"
  709. 15c15
  710. <     msgpost("[help]: <space> - all; \"/\" - fonts; <key> - function: ");
  711. ---
  712. >     msgpost("[help]: ? - all; \"/\" - fonts; <key> - function: ");
  713. 17c17
  714. <     if (c == ' ') helpall();
  715. ---
  716. >     if (c == '?') helpall();
  717. 32c32
  718. <     case 'C': s = "^C   Copy selections (in place)"; break;
  719. ---
  720. >     case 'C': s = "^C   Curve (arc) line [unimplemented]"; break;
  721. 39d38
  722. <     case 'L': s = "^L   Refresh display"; break;
  723. 41a41,42
  724. >     case 'K': s = "^K   Copy selections (with offset)"; break;
  725. >     case 'L': s = "^L   Refresh display"; break;
  726. 47c48
  727. <     case 'S': s = "^Sc  Special function escape"; break;
  728. ---
  729. >     case 'S': s = "^Sc  Special function escape (caps for copy)"; break;
  730. @//E*O*F dif-lemhelp.c//
  731. chmod u=rw,g=r,o=r dif-lemhelp.c
  732.  
  733. echo x - dif-lemio.c
  734. sed 's/^@//' > "dif-lemio.c" <<'@//E*O*F dif-lemio.c//'
  735. diff ./lemio.c /u/awpaeth/lem/src/lemio.c
  736. 8a9,32
  737. > char *filefind(fname)
  738. >     char *fname;
  739. >     {
  740. >     FILE *f;
  741. >     char filename[50];
  742. >     f = 0;
  743. >     if (fname && (strlen(fname) > 0))
  744. >     {
  745. >         sprintf(filename, "%s", fname, LEMEXTN);
  746. >     f = fopen(filename, "r");
  747. >     if (!f)
  748. >         {
  749. >             sprintf(filename, "%s.%s", fname, LEMEXTN);
  750. >             f = fopen(filename, "r");
  751. >         }
  752. >         if (f)
  753. >         {
  754. >         fclose(f);
  755. >         return(salloc(filename));
  756. >         }
  757. >     }
  758. >     return(0);
  759. >     }
  760. > 
  761. 11c35,66
  762. <     int i;
  763. ---
  764. >     char *fname, *fname2, msgstr[50];
  765. >     FILE *f;
  766. >     if (lastobj == 1)
  767. >     {
  768. >     msgpost("work area empty -- no write");
  769. >     return;    /* nothing on display -- fast return */
  770. >     }
  771. >     sprintf(msgstr, firstfile ? "output file [%s]:":"output file: ",firstfile);
  772. >     fname = prompt(msgstr);
  773. >     f = (fname && (strlen(fname) > 0)) ? fopen(fname, "r") : 0;
  774. >     if (f)
  775. >     {
  776. >     sprintf(msgstr,"**write fail** file [%s] exists", fname);
  777. >     msgpost(msgstr);
  778. >         free(fname);
  779. >     fclose(f);
  780. >     return;
  781. >     }
  782. >     if (!fname || (strlen(fname) == 0))
  783. >     {
  784. >     if (fname) free(fname);
  785. >     fname = salloc(firstfile);
  786. >     if (!fname)
  787. >         {
  788. >         msgpost("**write fail** no filename given");
  789. >         return;
  790. >         }
  791. >         }
  792. >     writefileint(fname);
  793. >     }
  794. > 
  795. > writefileint(fname)
  796. 12a68,70
  797. >     {
  798. >     int i;
  799. >     char msgstr[50];
  800. 14,16c72
  801. <     if (lastobj == 1) return;    /* nothing on display -- fast return */
  802. <     fname = prompt("output file: ");
  803. <     f = (fname && (strlen(fname) > 1)) ? fopen(fname, "w") : 0;
  804. ---
  805. >     f = fopen(fname, "w");
  806. 32c88,89
  807. <     msgpost("output done");
  808. ---
  809. >     sprintf(msgstr, "output done [%s]", fname);
  810. >     msgpost(msgstr);
  811. 34c91,95
  812. <     else msgpost("output failed");
  813. ---
  814. >     else
  815. >     {
  816. >     sprintf(msgstr, "output failed [%s]", fname);
  817. >     msgpost(msgstr);
  818. >     }
  819. 42c103
  820. <     char *s, fline[MAXCHAR+50];
  821. ---
  822. >     char *s, msgstr[50], *goodname, fline[MAXCHAR+50];
  823. 44,45c105,106
  824. <     f = 0;
  825. <     if (fname && (strlen(fname) > 0))
  826. ---
  827. >     goodname = filefind(fname);
  828. >     if (goodname)
  829. 47,56c108
  830. <     f = fopen(fname, "r");
  831. <     if (!f)
  832. <         {
  833. <         char filename[100];
  834. <         sprintf(filename, "%s.%s", fname, LEMEXTN);
  835. <         f = fopen(filename, "r");
  836. <         }
  837. <     }
  838. <     if (f)
  839. <     {
  840. ---
  841. >         f = fopen(goodname, "r");
  842. 91c143,145
  843. <         msgpost("input done");
  844. ---
  845. >         sprintf(msgstr, "input done [%s]", goodname);
  846. >         free(goodname);
  847. >         msgpost(msgstr);
  848. 93c147,152
  849. <     else msgpost("bogus input file");
  850. ---
  851. >     else
  852. >         {
  853. >         sprintf(msgstr, "bogus input file [%s]", goodname);
  854. >         free(goodname);
  855. >         msgpost(msgstr);
  856. >         }
  857. 95c154,158
  858. <     else msgpost("input not found");
  859. ---
  860. >     else
  861. >     {
  862. >     sprintf(msgstr, "input not found [%s]", fname);
  863. >     msgpost(msgstr);
  864. >     }
  865. @//E*O*F dif-lemio.c//
  866. chmod u=rw,g=r,o=r dif-lemio.c
  867.  
  868. echo x - dif-lemline.c
  869. sed 's/^@//' > "dif-lemline.c" <<'@//E*O*F dif-lemline.c//'
  870. diff ./lemline.c /u/awpaeth/lem/src/lemline.c
  871. 34c34
  872. <     hy = hypot(Ow, Oh);
  873. ---
  874. >     hy = ihypot(Ow, Oh);
  875. 73,76c73,108
  876. <     int frac;
  877. <     frac = (ABS(Ow) > ABS(Oh)) ? (12*(*x-Oxs)+6)/Ow : (12*(*y-Oys)+6)/Oh;
  878. <     *x = ((12-frac)*Oxs + frac*Oxe)/12;
  879. <     *y = ((12-frac)*Oys + frac*Oye)/12;
  880. ---
  881. >     int j, prox, oldprox;
  882. >     long fx, fy, oldfx, oldfy, snap;
  883. >     static long frac, snapfrac[5] = { 150, 200, 300, 400, 450 };
  884. >     oldprox = SNAPTOL;
  885. > /*
  886. >  * frac is fractional distance along segment in 1/600 units. Update (*x,*y)
  887. >  * to the nearest point along the line.
  888. >  */
  889. >     frac = (ABS(Ow)>ABS(Oh)) ? (600*(*x-Oxs)+300)/Ow:(600*(*y-Oys)+300)/Oh;
  890. >     *x = ((600-frac)*Oxs + frac*Oxe)/600;
  891. >     *y = ((600-frac)*Oys + frac*Oye)/600;
  892. > /*
  893. >  * check to see if there is a nearby cardinal point along this line segment,
  894. >  * and if so, snap to that point exactly.
  895. >  */
  896. >     for (j=0; j<5; j++)
  897. >         {
  898. >         snap = snapfrac[j];
  899. >         fx = ((600-snap)*Oxs + snap*Oxe + 300)/600;
  900. >         fy = ((600-snap)*Oys + snap*Oye + 300)/600;
  901. >         prox = dist(*x, *y, fx, fy);
  902. >         if (prox < oldprox)
  903. >         {
  904. >          oldfx = fx;
  905. >         oldfy = fy;
  906. >         oldprox = prox;
  907. >         }
  908. >         }
  909. > /*
  910. >  * (oldfx, oldfy) have nearest approach to a cardinal point. Use it or lose it.
  911. >  */
  912. >         if (oldprox < SNAPTOL)
  913. >         {
  914. >         *x = oldfx;
  915. >         *y = oldfy;
  916. >         }
  917. 99c131
  918. <     h = hypot(Ow, Oh)*13;
  919. ---
  920. >     h = ihypot(Ow, Oh)*13;
  921. 112c144
  922. <     h = hypot(Ow, Oh)*13;
  923. ---
  924. >     h = ihypot(Ow, Oh)*13;
  925. @//E*O*F dif-lemline.c//
  926. chmod u=rw,g=r,o=r dif-lemline.c
  927.  
  928. echo x - dif-lemmain.c
  929. sed 's/^@//' > "dif-lemmain.c" <<'@//E*O*F dif-lemmain.c//'
  930. diff ./lemmain.c /u/awpaeth/lem/src/lemmain.c
  931. 31c31
  932. <         case C(C): copysel(); break;
  933. ---
  934. > /*        case C(C): curveify(); break; */
  935. 41c41
  936. < /*        case C(K): curveify(); break; */
  937. ---
  938. >         case C(K): copysel(); break;
  939. @//E*O*F dif-lemmain.c//
  940. chmod u=rw,g=r,o=r dif-lemmain.c
  941.  
  942. echo x - dif-lemmisc.c
  943. sed 's/^@//' > "dif-lemmisc.c" <<'@//E*O*F dif-lemmisc.c//'
  944. diff ./lemmisc.c /u/awpaeth/lem/src/lemmisc.c
  945. 8a9,19
  946. > 
  947. > /*
  948. >  * The following started life as #define's but some compilers couldn't
  949. >  * swallow the complex nested expressions generated. If speed is an issue,
  950. >  * then putting these back in "lem.h" might help a bit.
  951. >  */
  952. >  
  953. > MIN(a,b) { return((a)<(b)?(a):(b)); }
  954. > MAX(a,b) { return((a)>(b)?(a):(b)); }
  955. > ABS(a)   { return((a)>0?(a):(-(a))); }
  956. > 
  957. @//E*O*F dif-lemmisc.c//
  958. chmod u=rw,g=r,o=r dif-lemmisc.c
  959.  
  960. echo x - dif-lemobj.c
  961. sed 's/^@//' > "dif-lemobj.c" <<'@//E*O*F dif-lemobj.c//'
  962. diff ./lemobj.c /u/awpaeth/lem/src/lemobj.c
  963. 24,27c24,27
  964. <     case LINE: return(linenearpt(i, x, y)); break;
  965. <     case TEXT: return(textnearpt(i, x, y)); break;
  966. <     case BOX:  return( boxnearpt(i, x, y)); break;
  967. <     case ELLI: return(ellinearpt(i, x, y)); break;
  968. ---
  969. >     case LINE: return(linenearpt(i, x, y));
  970. >     case TEXT: return(textnearpt(i, x, y));
  971. >     case BOX:  return( boxnearpt(i, x, y));
  972. >     case ELLI: return(ellinearpt(i, x, y));
  973. 35,38c35,38
  974. <     case TEXT: return(textinrect(i, xl, yl, xh, yh)); break;
  975. <     case LINE: return(lineinrect(i, xl, yl, xh, yh)); break;
  976. <     case BOX:  return( boxinrect(i, xl, yl, xh, yh)); break;
  977. <     case ELLI: return(elliinrect(i, xl, yl, xh, yh)); break;
  978. ---
  979. >     case TEXT: return(textinrect(i, xl, yl, xh, yh));
  980. >     case LINE: return(lineinrect(i, xl, yl, xh, yh));
  981. >     case BOX:  return( boxinrect(i, xl, yl, xh, yh));
  982. >     case ELLI: return(elliinrect(i, xl, yl, xh, yh));
  983. 46,49c46,49
  984. <     case TEXT: return(textcantug(i, x, y)); break;
  985. <     case LINE: return(linecantug(i, x, y)); break;
  986. <     case BOX:  return( boxcantug(i, x, y)); break;
  987. <     case ELLI: return(ellicantug(i, x, y)); break;
  988. ---
  989. >     case TEXT: return(textcantug(i, x, y));
  990. >     case LINE: return(linecantug(i, x, y));
  991. >     case BOX:  return( boxcantug(i, x, y));
  992. >     case ELLI: return(ellicantug(i, x, y));
  993. @//E*O*F dif-lemobj.c//
  994. chmod u=rw,g=r,o=r dif-lemobj.c
  995.  
  996. echo x - dif-lemobjsup.c
  997. sed 's/^@//' > "dif-lemobjsup.c" <<'@//E*O*F dif-lemobjsup.c//'
  998. diff ./lemobjsup.c /u/awpaeth/lem/src/lemobjsup.c
  999. 7d6
  1000. < #include <math.h>        /* to define "double floor()" */
  1001. 8a8,9
  1002. > 
  1003. > double floor();        /* from math library (we don't want y1() as well) */
  1004. @//E*O*F dif-lemobjsup.c//
  1005. chmod u=rw,g=r,o=r dif-lemobjsup.c
  1006.  
  1007. echo x - dif-lempic.c
  1008. sed 's/^@//' > "dif-lempic.c" <<'@//E*O*F dif-lempic.c//'
  1009. diff ./lempic.c /u/awpaeth/lem/src/lempic.c
  1010. 18a19
  1011. >     char msgstr[50];
  1012. 20c21
  1013. <     f = (fname && (strlen(fname) > 1)) ? fopen(fname, "w") : 0;
  1014. ---
  1015. >     f = (fname && (strlen(fname) > 0)) ? fopen(fname, "w") : 0;
  1016. 56c57,58
  1017. <     msgpost("pic output done");
  1018. ---
  1019. >     sprintf(msgstr, "pic output done [%s]", fname);
  1020. >     msgpost(msgstr);
  1021. 58c60,64
  1022. <     else msgpost("pic output failed");
  1023. ---
  1024. >     else
  1025. >     {
  1026. >     sprintf(msgstr, "pic output failed [%s]", fname);
  1027. >     msgpost(msgstr);
  1028. >     }
  1029. 66,68c72,78
  1030. <     fname = prompt("pic file: ");
  1031. <     writepicint(fname);
  1032. <     free(fname);
  1033. ---
  1034. >     if (lastobj == 1) msgpost("work area empty -- no output");
  1035. >     else
  1036. >     {
  1037. >         fname = prompt("pic file: ");
  1038. >         writepicint(fname);
  1039. >         free(fname);
  1040. >     }
  1041. @//E*O*F dif-lempic.c//
  1042. chmod u=rw,g=r,o=r dif-lempic.c
  1043.  
  1044. echo x - dif-lemselect.c
  1045. sed 's/^@//' > "dif-lemselect.c" <<'@//E*O*F dif-lemselect.c//'
  1046. diff ./lemselect.c /u/awpaeth/lem/src/lemselect.c
  1047. 11c11
  1048. <     if (markobj)
  1049. ---
  1050. >     if (markobj && objs[markobj])
  1051. @//E*O*F dif-lemselect.c//
  1052. chmod u=rw,g=r,o=r dif-lemselect.c
  1053.  
  1054. echo x - dif-lemspecial.c
  1055. sed 's/^@//' > "dif-lemspecial.c" <<'@//E*O*F dif-lemspecial.c//'
  1056. diff ./lemspecial.c /u/awpaeth/lem/src/lemspecial.c
  1057. 9a10,14
  1058. > /*
  1059. >  * note: x1 and y1 renamed to X1 and Y1 because of conflict with
  1060. >  * Bessel functions of the same name (in the math.h library)
  1061. >  */
  1062. >  
  1063. 12a18
  1064. >     int t;
  1065. 14a21
  1066. >     t = (UC(ch) == ch);
  1067. 17,22c24,29
  1068. <     case 'F': flip(); break;
  1069. <     case 'C': ccw(); break;
  1070. <     case 'M': magnify(); break;
  1071. <     case 'R': rotate(); break;
  1072. <     case 'S': stretch(); break;
  1073. <     case 'A': align(); break;
  1074. ---
  1075. >     case 'F': if (t) copyoffset(0,0); flip();    if (t) redraw(); break;
  1076. >     case 'C': if (t) copyoffset(0,0); ccw();     if (t) redraw(); break;
  1077. >     case 'M': if (t) copyoffset(0,0); magnify(); if (t) redraw(); break;
  1078. >     case 'R': if (t) copyoffset(0,0); rotate();  if (t) redraw(); break;
  1079. >     case 'S': if (t) copyoffset(0,0); stretch(); if (t) redraw(); break;
  1080. >     case 'A': if (t) copyoffset(0,0); align();   if (t) redraw(); break;
  1081. 80c87
  1082. <     int x1, y1, x2, y2, xs, ys, xe, ye;
  1083. ---
  1084. >     int X1, Y1, x2, y2, xs, ys, xe, ye;
  1085. 82c89
  1086. <     if (findmark(&x1, &y1, &x2, &y2))
  1087. ---
  1088. >     if (findmark(&X1, &Y1, &x2, &y2))
  1089. 86,87c93,94
  1090. <     xe = x1-markx;
  1091. <     ye = y1-marky;
  1092. ---
  1093. >     xe = X1-markx;
  1094. >     ye = Y1-marky;
  1095. 102c109
  1096. <     int x1, y1, x2, y2, xs, ys, xe, ye;
  1097. ---
  1098. >     int X1, Y1, x2, y2, xs, ys, xe, ye;
  1099. 104c111
  1100. <     if (findmark(&x1, &y1, &x2, &y2))
  1101. ---
  1102. >     if (findmark(&X1, &Y1, &x2, &y2))
  1103. 108,109c115,116
  1104. <     xe = x1-markx;
  1105. <     ye = y1-marky;
  1106. ---
  1107. >     xe = X1-markx;
  1108. >     ye = Y1-marky;
  1109. 121c128
  1110. <     int x1, y1, x2, y2, xs, ys, xe, ye;
  1111. ---
  1112. >     int X1, Y1, x2, y2, xs, ys, xe, ye;
  1113. 123c130
  1114. <     if (findmark(&x1, &y1, &x2, &y2))
  1115. ---
  1116. >     if (findmark(&X1, &Y1, &x2, &y2))
  1117. 127,128c134,135
  1118. <     xe = x1-markx;
  1119. <     ye = y1-marky;
  1120. ---
  1121. >     xe = X1-markx;
  1122. >     ye = Y1-marky;
  1123. 143c150
  1124. <     int x1, y1, x2, y2, xs, ys, xe, ye, scale;
  1125. ---
  1126. >     int X1, Y1, x2, y2, xs, ys, xe, ye, scale;
  1127. 145c152
  1128. <     if (findmark(&x1, &y1, &x2, &y2))
  1129. ---
  1130. >     if (findmark(&X1, &Y1, &x2, &y2))
  1131. 149,150c156,157
  1132. <     xe = x1-markx;
  1133. <     ye = y1-marky;
  1134. ---
  1135. >     xe = X1-markx;
  1136. >     ye = Y1-marky;
  1137. 162,163c169,170
  1138. < findmark(x1, y1, x2, y2)
  1139. <     int *x1, *y1, *x2, *y2;
  1140. ---
  1141. > findmark(X1, Y1, x2, y2)
  1142. >     int *X1, *Y1, *x2, *y2;
  1143. 183,184c190,191
  1144. < case ALIGNCENT:        *x1 = s ? Oxe : Oxs;
  1145. <             *y1 = s ? Oye : Oys;
  1146. ---
  1147. > case ALIGNCENT:        *X1 = s ? Oxe : Oxs;
  1148. >             *Y1 = s ? Oye : Oys;
  1149. @//E*O*F dif-lemspecial.c//
  1150. chmod u=rw,g=r,o=r dif-lemspecial.c
  1151.  
  1152. echo x - dif-lemstart.c
  1153. sed 's/^@//' > "dif-lemstart.c" <<'@//E*O*F dif-lemstart.c//'
  1154. diff ./lemstart.c /u/awpaeth/lem/src/lemstart.c
  1155. 54c54
  1156. <         if (!firstfile) firstfile = argv[i]; /* record first input file */
  1157. ---
  1158. >         if (!firstfile) firstfile=filefind(argv[i]); /* record 1st input */
  1159. @//E*O*F dif-lemstart.c//
  1160. chmod u=rw,g=r,o=r dif-lemstart.c
  1161.  
  1162. echo x - dif-lemstop.c
  1163. sed 's/^@//' > "dif-lemstop.c" <<'@//E*O*F dif-lemstop.c//'
  1164. diff ./lemstop.c /u/awpaeth/lem/src/lemstop.c
  1165. 22a23
  1166. >     msgclear();
  1167. @//E*O*F dif-lemstop.c//
  1168. chmod u=rw,g=r,o=r dif-lemstop.c
  1169.  
  1170. echo x - dif-lemtick.c
  1171. sed 's/^@//' > "dif-lemtick.c" <<'@//E*O*F dif-lemtick.c//'
  1172. diff ./lemtick.c /u/awpaeth/lem/src/lemtick.c
  1173. 96,97c96,97
  1174. <     y = tyoff;
  1175. <     for(iy=0; iy<ylim; iy++)
  1176. ---
  1177. >     y = tyoff - 2*ty;
  1178. >     for(iy=0; y<screenh; iy++)
  1179. @//E*O*F dif-lemtick.c//
  1180. chmod u=rw,g=r,o=r dif-lemtick.c
  1181.  
  1182. echo x - dif-lemx.c
  1183. sed 's/^@//' > "dif-lemx.c" <<'@//E*O*F dif-lemx.c//'
  1184. diff ./lemx.c /u/awpaeth/lem/src/lemx.c
  1185. 6a7,22
  1186. > /*
  1187. >    Notes: there are two "#ifdef" statments in this code.
  1188. > 
  1189. >    [1] #ifdef title 
  1190. >        This allows Xwindow toolkit titlebars to be added. They are
  1191. >        not well implemented, as they subtract live area from the
  1192. >        current window, and are not a true subwindow. Further, proper
  1193. >        timing of their redraw does not interact well with the redraw
  1194. >        signal and lemming window refresh fielded from the event queue.
  1195. >    [2] #ifdef vax
  1196. >        This allows proper byte ordering which allows the proper display
  1197. >        of text glyphs. If not true, an alternate byte ordering for a
  1198. >        32-bit integer (halfword swap) is chosen as the most likely ordering
  1199. >        for the hardware.
  1200. >  */
  1201. > 
  1202. 8a25
  1203. > #include <X/Xr/Xrlib.h>
  1204. 17a35,69
  1205. > xrWindowData windata;
  1206. > #ifdef title
  1207. > xrEditor *tbar;
  1208. > xrTitleBarInfo titlebar =
  1209. >     {
  1210. >     0,                /* window Id */
  1211. >     {0,0,0,0},            /* editor rectangle */
  1212. >     XrVISIBLE | XrSENSITIVE,    /* editor state */
  1213. >     -1, -1,            /* editor colors - use defaults */
  1214. >     NULL,            /* editor font - use defaults */
  1215. >     "Hello World",        /* Title name */
  1216. >     NULL,            /* gadget 1 - unused */
  1217. >     NULL            /* gadget 2 - unused */
  1218. >     };
  1219. > #endif
  1220. > 
  1221. > xrMenu *active_menu, *selmenu, *noselmenu;
  1222. > 
  1223. > char noselmap[7] = { C(A), C(R), C(W), C(O), C(Q), C(U), C(L) };
  1224. > 
  1225. > INT8 *noselmenuItems[9] =
  1226. >     {
  1227. >     "\\KEAall", "\\KERread", "\\KEWwrite", "\\KEOoutput",
  1228. >     "\\KEQquit", "\\KEUundo", "\\KELrefresh" };
  1229. > 
  1230. > char selmap[7] = { C(N), C(D), C(B), C(E), C(V), C(U), C(L) };
  1231. >     
  1232. > INT8 *selmenuItems[9] =
  1233. >     {   "\\KENnone", "\\KEDdelete", "\\KEBbox", "\\KEEellipse",
  1234. >     "\\KEVvector", "\\KEUundo", "\\KELrefresh" };
  1235. >     
  1236. > xrMenuInfo selmenuinfo = { "Selections", selmenuItems, 7, NULL, 0 };
  1237. >     
  1238. > xrMenuInfo noselmenuinfo = { "No Select", noselmenuItems, 7, NULL, 1 };
  1239. >     
  1240. 22a75
  1241. >     if (!XrInit(NULL)) err("Xrlib open failed");
  1242. 27a81,98
  1243. > /* 
  1244. >  * create title bar
  1245. >  */
  1246. >     XrInput(win, MSG_ADDWINDOW, &windata);
  1247. > #ifdef title
  1248. >     titlebar.editorWindowId = win;
  1249. >     tbar = XrTitleBar(NULL, MSG_NEW, &titlebar);
  1250. > #endif
  1251. > /*
  1252. >  * create menus
  1253. >  */
  1254. >     selmenu = XrMenu(NULL, MSG_NEW, &selmenuinfo);
  1255. >     noselmenu = XrMenu(NULL, MSG_NEW, &noselmenuinfo);
  1256. >     active_menu = noselmenu;
  1257. >     XrMenu(active_menu, MSG_ACTIVATEMENU, win);
  1258. > /*
  1259. >  * get input and colors 
  1260. >  */
  1261. 52c123,134
  1262. < getevent(xdn, ydn, xup, yup, ch)
  1263. ---
  1264. > /*
  1265. >    The X interface is not nice in menu binding. Rather than allowing the
  1266. >    user to pop up a menu of his own chosing in response to an event, the
  1267. >    menu is bound to a button throughout the application. Because we allow
  1268. >    two menus (select and noselect) to be tied to one button, we must take
  1269. >    the time to rebind on each call to "getevent", as this is the routine
  1270. >    called from the lemming command interpreter inner loop. Addditionally,
  1271. >    we maintain the state of the last menu bound, to avoid the overhead
  1272. >    of redundant rebindings to identical menus, if menus need not be changed.
  1273. > */
  1274. > 
  1275. >  getevent(xdn, ydn, xup, yup, ch)
  1276. 55a138
  1277. >     static int selflag;
  1278. 56a140
  1279. >     char *chptr;
  1280. 58c142,167
  1281. <     XWindowEvent(win, EV, &ev);
  1282. ---
  1283. > /*
  1284. >  * check for quick return on select (middle) key
  1285. >  */
  1286. >     if (selflag)
  1287. >     {
  1288. >     selflag = 0;
  1289. >     *ch = C(I);    /* force a pending <TAB> */
  1290. >     return(CNTRL);
  1291. >     }
  1292. > /*
  1293. >  * bind the correct menu to the rightmost mouse key
  1294. >  */
  1295. >     if ((active_menu == noselmenu) && anysel)
  1296. >     {
  1297. >     active_menu = selmenu;
  1298. >     XrMenu(active_menu, MSG_ACTIVATEMENU, win);
  1299. >     }
  1300. >     else if ((active_menu == selmenu) && !anysel)
  1301. >     {
  1302. >     active_menu = noselmenu;
  1303. >     XrMenu(active_menu, MSG_ACTIVATEMENU, win);
  1304. >     }
  1305. > /*
  1306. >  * see if this was a popup menu event
  1307. >  */
  1308. >     XrInput(0,MSG_BLKHOTREAD,&ev);    /* like XWindowEvent(win, EV, &ev); */
  1309. 60c169
  1310. <     switch(ev.type)
  1311. ---
  1312. >     if (ev.type & XrXRAY)
  1313. 62,82c171,226
  1314. <     case ButtonPressed:    xsave = mx(&ev);
  1315. <                 ysave = my(&ev);
  1316. <                 break;
  1317. <     case ButtonReleased:    *xdn = xsave;
  1318. <                 *ydn = ysave;
  1319. <                 *xup = mx(&ev);
  1320. <                 *yup = my(&ev);
  1321. <                 ret = MOUSE;
  1322. <                 break;
  1323. <     case KeyPressed:    *ch = *XLookupMapping(&ev, &count);
  1324. <                 if (*ch)
  1325. <                    {
  1326. <                    if ((*ch >= ' ') && (*ch != '\177'))
  1327. <                        ret = ALPHA;
  1328. <                    else if (*ch > 0) ret = CNTRL;
  1329. <                    }     
  1330. <                 break;
  1331. <     case ExposeRegion:
  1332. <     case ExposeWindow:    checkwindowsize();
  1333. <                 redraw();
  1334. <                 break;
  1335. ---
  1336. >     xrEvent *xrev = (xrEvent*) &ev;
  1337. >     if( xrev->inputType == XrMENU )
  1338. >         {
  1339. >         *ch = active_menu == selmenu ?
  1340. >         selmap[xrev->value3] : noselmap[xrev->value3];
  1341. >         ret = CNTRL;
  1342. >         }
  1343. >         }
  1344. > /*
  1345. >  * normal event -- field it
  1346. >  */
  1347. >     else switch(ev.type)
  1348. >     {
  1349. > case ButtonPressed:
  1350. >     if (mbutton(&ev) != RightButton)
  1351. >         {        /* left or middle */
  1352. >         xsave = mx(&ev);
  1353. >         ysave = my(&ev);
  1354. >         }
  1355. >     break;
  1356. > case ButtonReleased:
  1357. >     if (mbutton(&ev) != RightButton)
  1358. >         {
  1359. > /*
  1360. >  * must offset y coordinates by -2 in SUN X implementation
  1361. >  */
  1362. >         *xdn = MIN(MAX(xsave,0), screenw);
  1363. >         *ydn = MIN(MAX(ysave-2*tickdot,0),screenh);
  1364. >         *xup = MIN(MAX(mx(&ev), 0), screenw);
  1365. >         *yup = MIN(MAX(my(&ev)-2*tickdot,0),screenh);
  1366. >         if (mbutton(&ev) == MiddleButton) selflag = 1;
  1367. >         ret =  MOUSE;
  1368. >         }
  1369. >     break;
  1370. > case KeyPressed:
  1371. >     *ch = 0;
  1372. >     chptr = XLookupMapping(&ev, &count);
  1373. >     if (chptr) *ch = *chptr;        /* may return null ptr */
  1374. >     if (*ch)
  1375. >        {
  1376. >        if ((*ch >= ' ') && (*ch != '\177')) ret = ALPHA;
  1377. >        else if (*ch > 0) ret = CNTRL;
  1378. >        }     
  1379. >     break;
  1380. > case ExposeRegion:
  1381. > case ExposeWindow:
  1382. >     checkwindowsize();
  1383. >     redraw();
  1384. > #ifdef title
  1385. >     XrTitleBar(tbar, MSG_REDRAW, XrREDRAW_ALL);
  1386. > #endif
  1387. >     break;
  1388. > default:
  1389. >     XFeep(0);
  1390. >     if (ev.type == 0) break;
  1391. >     if(ev.type & XrXRAY) { xrEvent *xrev = (xrEvent*) &ev; }
  1392. 196a341,346
  1393. > mbutton(ev)
  1394. >     XKeyEvent *ev;
  1395. >     {
  1396. >     return(ev->detail & 0xff);
  1397. >     }
  1398. > 
  1399. 238a389
  1400. > #ifdef vax
  1401. 242a394,399
  1402. > #else
  1403. >     *buf-- = maptab[c3];
  1404. >     *buf-- = maptab[c4];
  1405. >     *buf-- = maptab[c1];
  1406. >     *buf   = maptab[c2];
  1407. > #endif
  1408. @//E*O*F dif-lemx.c//
  1409. chmod u=rw,g=r,o=r dif-lemx.c
  1410.  
  1411. echo x - runpatches
  1412. sed 's/^@//' > "runpatches" <<'@//E*O*F runpatches//'
  1413. patch .lemrc       dif-.lemrc
  1414. patch Makefile     dif-Makefile
  1415. patch lem.h        dif-lem.h
  1416. patch lemedit.c    dif-lemedit.c
  1417. patch lemgeo.c     dif-lemgeo.c
  1418. patch lemhelp.c    dif-lemhelp.c
  1419. patch lemio.c      dif-lemio.c
  1420. patch lemline.c    dif-lemline.c
  1421. patch lemmain.c    dif-lemmain.c
  1422. patch lemmisc.c    dif-lemmisc.c
  1423. patch lemobj.c     dif-lemobj.c
  1424. patch lemobjsup.c  dif-lemobjsup.c
  1425. patch lempic.c     dif-lempic.c
  1426. patch lemselect.c  dif-lemselect.c
  1427. patch lemspecial.c dif-lemspecial.c
  1428. patch lemstart.c   dif-lemstart.c
  1429. patch lemstop.c    dif-lemstop.c
  1430. patch lemtick.c    dif-lemtick.c
  1431. patch lemx.c       dif-lemx.c
  1432. @//E*O*F runpatches//
  1433. chmod u=rwx,g=rwx,o=rwx runpatches
  1434.  
  1435. exit 0
  1436.  
  1437.