home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 2 / crawlyvol2.bin / apps / dtp / ghost / gs301src / atari / gp_atar3.bak < prev    next >
Text File  |  1994-09-17  |  62KB  |  2,762 lines
  1. /* Copyright (C) 1989, 1992, 1993 Aladdin Enterprises.  All rights reserved.
  2.  
  3. This file is part of Ghostscript.
  4.  
  5. Ghostscript is distributed in the hope that it will be useful, but
  6. WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  7. to anyone for the consequences of using it or for whether it serves any
  8. particular purpose or works at all, unless he says so in writing.  Refer
  9. to the Ghostscript General Public License for full details.
  10.  
  11. Everyone is granted permission to copy, modify and redistribute
  12. Ghostscript, but only under the conditions described in the Ghostscript
  13. General Public License.  A copy of this license is supposed to have been
  14. given to you along with Ghostscript so you can know your rights and
  15. responsibilities.  It should be in a file named COPYING.  Among other
  16. things, the copyright notice and this notice must be preserved on all
  17. copies.  */
  18.  
  19. /* gp_atar3.c */
  20.  
  21. /*
  22.  * This file contains general utility routines for the Atari platform.
  23.  */
  24.  
  25. #include "gp_atar3.h"
  26.  
  27. extern WINLIST *WList;                    /* gp_atar2.c */
  28. extern WINDOW conswin;                    /* gp_atar2.c */
  29. extern WINDOW imagwin, aboutwin, reswin;        /* gp_atar2.c */
  30. extern WINDOW devwin, sizwin, iconwin, outwin;        /* gp_atar2.c */
  31.  
  32. extern OBJECT aboutobj[], resobj[], devobj[];
  33. extern OBJECT sizobj[], iconobj[], outobj[], savemsg[];
  34.  
  35. extern GRAPHIC Graphic;
  36.  
  37. extern char saveline[MAXLEN];                /* gp_atar1.h */
  38. extern char devices[DEVICES][DNAMELEN];            /* gp_atar1.h */
  39. extern char sizes[DEVICES][DNAMELEN];            /* gp_atar1.h */
  40.  
  41. extern VWRK VWork;                    /* gp_atar1.h */
  42. extern PSTATE State;                    /* gp_atar1.h */
  43.  
  44. WINDOW  *WinFindH(), *WinAlloc();
  45. WINLIST *WinListAdd(), *WinListDelete();
  46. WINTEXT *WinTextAlloc();
  47. char    (*TextBuffRealloc())[COLUMNS+1];
  48. GRAPHIC *GraphicAlloc();
  49.  
  50. void *ObjFindH();
  51.  
  52. void
  53. GetPalette(int *Palette, VWRK *vw)
  54. {
  55.     int ColorIndex;
  56.     int ColorEntry[3];
  57.     unsigned int DefinedColors = vw->PaletteSize/3;
  58.  
  59.     for (ColorIndex = 0; ColorIndex < DefinedColors; ColorIndex++) {
  60.  
  61.     vq_color(vw->VdiHandle, ColorIndex, DEFINED_INTENSITY, ColorEntry);
  62.  
  63.     Palette[3*ColorIndex]   = ColorEntry[0];
  64.     Palette[3*ColorIndex+1] = ColorEntry[1];
  65.     Palette[3*ColorIndex+2] = ColorEntry[2];
  66.       
  67.     }
  68. }
  69.  
  70. void
  71. SetPalette(int *Palette, VWRK *vw)
  72. { 
  73.   
  74.     int ColorIndex;
  75.     int ColorEntry[3];
  76.     unsigned int DefinedColors = vw->PaletteSize/3;
  77.  
  78.     for (ColorIndex = 0; ColorIndex < DefinedColors; ColorIndex++) {
  79.  
  80.     ColorEntry[0] = Palette[3*ColorIndex];
  81.     ColorEntry[1] = Palette[3*ColorIndex+1];
  82.     ColorEntry[2] = Palette[3*ColorIndex+2];
  83.   
  84.     vs_color(vw->VdiHandle, ColorIndex, ColorEntry);
  85.     }
  86. }
  87.  
  88. /* Load the configuration file. */
  89.  
  90. int
  91. LoadConfig(VWRK *vw, PSTATE *st)
  92. {
  93.  
  94.     FILE *config;
  95.     char *PathFind(), *sptr;
  96.     char line[MAXLEN];
  97.  
  98.     static short DevCount=1, SizCount=0;
  99.     float tempx, tempy, tempw, temph;
  100.     GRECT itemp;
  101.  
  102.     /* Look for the configuration file in the current and HOME directories. */
  103.  
  104.     if ((sptr = PathFind("HOME", CONFIGFILE, ",")) != NULL) {
  105.     strcpy(line, sptr);
  106.     }
  107.     else {    
  108.     return -1;
  109.     }
  110.  
  111.     if ((config = fopen(line, "r")) == NULL) {
  112.     sprintf(line, "[1][Could not open %s!][OK]", CONFIGFILE);
  113.     form_alert(1, line);
  114.     return -1;
  115.     }
  116.  
  117.     /* Process the information in the config file. */
  118.  
  119.     while (fgets(line, MAXLEN-1, config) != NULL) {
  120.  
  121.     line[strlen(line)-1] = '\0';
  122.  
  123.     if (!strncmp(line, "consolewin ", 11)) {
  124.  
  125.         sscanf(line+11, "%f %f %f %f",
  126.         &tempx, &tempy, &tempw, &temph);
  127.  
  128.         if (conswin.opened) {
  129.  
  130.         itemp.g_x = nint(tempx * vw->full.g_w);
  131.         itemp.g_y = nint(tempy * vw->full.g_h);
  132.         itemp.g_w = nint(tempw * vw->full.g_w);
  133.         itemp.g_h = nint(temph * vw->full.g_h);
  134.  
  135.         EnforceLimits(&itemp, vw);
  136.  
  137.         st->Event->SendMsg[0] = WM_SIZED;
  138.         st->Event->SendMsg[3] = conswin.handle;
  139.         st->Event->SendMsg[4] = itemp.g_x;
  140.         st->Event->SendMsg[5] = itemp.g_y;
  141.         st->Event->SendMsg[6] = itemp.g_w;
  142.         st->Event->SendMsg[7] = itemp.g_h;
  143.         appl_write(st->ApId, 16, st->Event->SendMsg);
  144.  
  145.         }
  146.         else {
  147.  
  148.         conswin.frame.g_x = nint(tempx * vw->full.g_w);
  149.         conswin.frame.g_y = nint(tempy * vw->full.g_h);
  150.         conswin.frame.g_w = nint(tempw * vw->full.g_w);
  151.         conswin.frame.g_h = nint(temph * vw->full.g_h);
  152.  
  153.         EnforceLimits(&conswin.frame, vw);
  154.  
  155.         }
  156.  
  157.     }
  158.  
  159.     if (!strncmp(line, "imagewin ", 9)) {
  160.  
  161.         sscanf(line+9, "%f %f %f %f",
  162.         &tempx, &tempy, &tempw, &temph);
  163.  
  164.         if (imagwin.opened) {
  165.  
  166.         itemp.g_x = nint(tempx * vw->full.g_w);
  167.         itemp.g_y = nint(tempy * vw->full.g_h);
  168.         itemp.g_w = nint(tempw * vw->full.g_w);
  169.         itemp.g_h = nint(temph * vw->full.g_h);
  170.  
  171.         EnforceLimits(&itemp, vw);
  172.  
  173.         st->Event->SendMsg[0] = WM_SIZED;
  174.         st->Event->SendMsg[3] = imagwin.handle;
  175.         st->Event->SendMsg[4] = itemp.g_x;
  176.         st->Event->SendMsg[5] = itemp.g_y;
  177.         st->Event->SendMsg[6] = itemp.g_w;
  178.         st->Event->SendMsg[7] = itemp.g_h;
  179.         appl_write(st->ApId, 16, st->Event->SendMsg);
  180.  
  181.         }
  182.         else {
  183.  
  184.         imagwin.frame.g_x = nint(tempx * vw->full.g_w);
  185.         imagwin.frame.g_y = nint(tempy * vw->full.g_h);
  186.         imagwin.frame.g_w = nint(tempw * vw->full.g_w);
  187.         imagwin.frame.g_h = nint(temph * vw->full.g_h);
  188.  
  189.         EnforceLimits(&imagwin.frame, vw);
  190.  
  191.         }
  192.  
  193.     }
  194.  
  195.     if (!strncmp(line, "aboutwin ", 9)) {
  196.  
  197.         sscanf(line+9, "%f %f", &tempx, &tempy);
  198.  
  199.         itemp.g_x = nint(tempx * vw->full.g_w);
  200.         itemp.g_y = nint(tempy * vw->full.g_h);
  201.  
  202.         EnforceLimits(&itemp, vw);
  203.  
  204.         if (aboutwin.opened) {
  205.  
  206.         st->Event->SendMsg[0] = WM_MOVED;
  207.         st->Event->SendMsg[3] = aboutwin.handle;
  208.         st->Event->SendMsg[4] = itemp.g_x;
  209.         st->Event->SendMsg[5] = itemp.g_y;
  210.         st->Event->SendMsg[6] = aboutwin.frame.g_w;
  211.         st->Event->SendMsg[7] = aboutwin.frame.g_h;
  212.         appl_write(st->ApId, 16, st->Event->SendMsg);
  213.  
  214.         }
  215.         else {
  216.  
  217.         int ChangeX = itemp.g_x - aboutwin.frame.g_x;
  218.         int ChangeY = itemp.g_y - aboutwin.frame.g_y;
  219.  
  220.         aboutwin.frame.g_x = itemp.g_x;
  221.         aboutwin.frame.g_y = itemp.g_y;
  222.  
  223.         aboutwin.canvas.g_x += ChangeX;
  224.         aboutwin.canvas.g_y += ChangeY;
  225.  
  226.         aboutobj[0].ob_x += ChangeX;
  227.         aboutobj[0].ob_y += ChangeY;
  228.  
  229.         }
  230.     }
  231.  
  232.     if (!strncmp(line, "reswin ", 7)) {
  233.  
  234.         sscanf(line+7, "%f %f", &tempx, &tempy);
  235.  
  236.         itemp.g_x = nint(tempx * vw->full.g_w);
  237.         itemp.g_y = nint(tempy * vw->full.g_h);
  238.  
  239.         EnforceLimits(&itemp, vw);
  240.  
  241.         if (reswin.opened) {
  242.  
  243.         st->Event->SendMsg[0] = WM_MOVED;
  244.         st->Event->SendMsg[3] = reswin.handle;
  245.         st->Event->SendMsg[4] = itemp.g_x;
  246.         st->Event->SendMsg[5] = itemp.g_y;
  247.         st->Event->SendMsg[6] = reswin.frame.g_w;
  248.         st->Event->SendMsg[7] = reswin.frame.g_h;
  249.         appl_write(st->ApId, 16, st->Event->SendMsg);
  250.  
  251.         }
  252.         else {
  253.  
  254.         int ChangeX = itemp.g_x - reswin.frame.g_x;
  255.         int ChangeY = itemp.g_y - reswin.frame.g_y;
  256.  
  257.         reswin.frame.g_x = itemp.g_x;
  258.         reswin.frame.g_y = itemp.g_y;
  259.  
  260.         reswin.canvas.g_x += ChangeX;
  261.         reswin.canvas.g_y += ChangeY;
  262.  
  263.         resobj[0].ob_x += ChangeX;
  264.         resobj[0].ob_y += ChangeY;
  265.  
  266.         }
  267.  
  268.     }
  269.  
  270.     if (!strncmp(line, "devwin ", 7)) {
  271.  
  272.         sscanf(line+7, "%f %f", &tempx, &tempy);
  273.  
  274.         itemp.g_x = nint(tempx * vw->full.g_w);
  275.         itemp.g_y = nint(tempy * vw->full.g_h);
  276.  
  277.         EnforceLimits(&itemp, vw);
  278.  
  279.         if (devwin.opened) {
  280.  
  281.         st->Event->SendMsg[0] = WM_MOVED;
  282.         st->Event->SendMsg[3] = devwin.handle;
  283.         st->Event->SendMsg[4] = itemp.g_x;
  284.         st->Event->SendMsg[5] = itemp.g_y;
  285.         st->Event->SendMsg[6] = devwin.frame.g_w;
  286.         st->Event->SendMsg[7] = devwin.frame.g_h;
  287.         appl_write(st->ApId, 16, st->Event->SendMsg);
  288.  
  289.         }
  290.         else {
  291.  
  292.         int ChangeX = itemp.g_x - devwin.frame.g_x;
  293.         int ChangeY = itemp.g_y - devwin.frame.g_y;
  294.  
  295.         devwin.frame.g_x = itemp.g_x;
  296.         devwin.frame.g_y = itemp.g_y;
  297.  
  298.         devwin.canvas.g_x += ChangeX;
  299.         devwin.canvas.g_y += ChangeY;
  300.  
  301.         devobj[0].ob_x += ChangeX;
  302.         devobj[0].ob_y += ChangeY;
  303.  
  304.         }
  305.  
  306.     }
  307.  
  308.     if (!strncmp(line, "sizwin ", 7)) {
  309.  
  310.         sscanf(line+7, "%f %f", &tempx, &tempy);
  311.  
  312.         itemp.g_x = nint(tempx * vw->full.g_w);
  313.         itemp.g_y = nint(tempy * vw->full.g_h);
  314.  
  315.         EnforceLimits(&itemp, vw);
  316.  
  317.         if (sizwin.opened) {
  318.  
  319.         st->Event->SendMsg[0] = WM_MOVED;
  320.         st->Event->SendMsg[3] = sizwin.handle;
  321.         st->Event->SendMsg[4] = itemp.g_x;
  322.         st->Event->SendMsg[5] = itemp.g_y;
  323.         st->Event->SendMsg[6] = sizwin.frame.g_w;
  324.         st->Event->SendMsg[7] = sizwin.frame.g_h;
  325.         appl_write(st->ApId, 16, st->Event->SendMsg);
  326.  
  327.         }
  328.         else {
  329.  
  330.         int ChangeX = itemp.g_x - sizwin.frame.g_x;
  331.         int ChangeY = itemp.g_y - sizwin.frame.g_y;
  332.  
  333.         sizwin.frame.g_x = itemp.g_x;
  334.         sizwin.frame.g_y = itemp.g_y;
  335.  
  336.         sizwin.canvas.g_x += ChangeX;
  337.         sizwin.canvas.g_y += ChangeY;
  338.  
  339.         sizobj[0].ob_x += ChangeX;
  340.         sizobj[0].ob_y += ChangeY;
  341.  
  342.         }
  343.  
  344.     }
  345.  
  346.     if (!strncmp(line, "iconwin ", 8)) {
  347.  
  348.         sscanf(line+8, "%f %f", &tempx, &tempy);
  349.  
  350.         itemp.g_x = nint(tempx * vw->full.g_w);
  351.         itemp.g_y = nint(tempy * vw->full.g_h);
  352.  
  353.         EnforceLimits(&itemp, vw);
  354.  
  355.         if (iconwin.opened) {
  356.  
  357.         st->Event->SendMsg[0] = WM_MOVED;
  358.         st->Event->SendMsg[3] = iconwin.handle;
  359.         st->Event->SendMsg[4] = itemp.g_x;
  360.         st->Event->SendMsg[5] = itemp.g_y;
  361.         st->Event->SendMsg[6] = iconwin.frame.g_w;
  362.         st->Event->SendMsg[7] = iconwin.frame.g_h;
  363.         appl_write(st->ApId, 16, st->Event->SendMsg);
  364.  
  365.         }
  366.         else {
  367.  
  368.         int ChangeX = itemp.g_x - iconwin.frame.g_x;
  369.         int ChangeY = itemp.g_y - iconwin.frame.g_y;
  370.  
  371.         iconwin.frame.g_x = itemp.g_x;
  372.         iconwin.frame.g_y = itemp.g_y;
  373.  
  374.         iconwin.canvas.g_x += ChangeX;
  375.         iconwin.canvas.g_y += ChangeY;
  376.  
  377.         iconobj[0].ob_x += ChangeX;
  378.         iconobj[0].ob_y += ChangeY;
  379.  
  380.         }
  381.  
  382.     }
  383.  
  384.     if (!strncmp(line, "device ", 7)) {
  385.         if (DevCount < DEVICES) {
  386.         sscanf(line+7, "%s", devices[DevCount]);
  387.         ++DevCount;
  388.         }
  389.     }
  390.  
  391.     if (!strncmp(line, "pagesize ", 9)) {
  392.         if (SizCount < SIZES) {
  393.         sscanf(line+9, "%s", sizes[SizCount]);
  394.         ++SizCount;
  395.         }
  396.     }
  397.  
  398.     }
  399.  
  400.     fclose(config);
  401. }
  402.  
  403. /* Save the configuration file. */
  404.  
  405. int
  406. SaveConfig(VWRK *vw)
  407. {
  408.  
  409.     FILE *config;
  410.  
  411.     char *PathFind(), *sptr;
  412.     char line[MAXLEN], configfile[MAXLEN];
  413.  
  414.     short i;
  415.     int fx, fy, fw, fh;
  416.  
  417.     float hnorm, vnorm;
  418.  
  419.     if ((vw->full.g_w == 0) || (vw->full.g_h == 0)) {
  420.     form_alert(1, "[1][Could not save!|Internal Error.][OK]");
  421.     return -1;
  422.     }
  423.  
  424.     /* Look for the configuration file in the current and HOME directories. */
  425.  
  426.     if ((sptr = PathFind("HOME", CONFIGFILE, ",")) != NULL) {
  427.     strcpy(configfile, sptr);
  428. /*    rename(configfile, "stgs.bak"); */
  429.     }
  430.  
  431.     if (!strlen(configfile)) {
  432.     if ((sptr = getenv("HOME")) != NULL) {
  433.         strcpy(configfile, sptr);
  434.         strcat(configfile, CONFIGFILE);
  435.     }
  436.     else {
  437.         strcat(configfile, CONFIGFILE);
  438.     }
  439.     }
  440.  
  441.     if ((config = fopen(configfile, "w")) == NULL) {
  442.     sprintf(line, "[1][Could not open %s!][OK]", configfile);
  443.     form_alert(1, line);
  444.     return -1;
  445.     }
  446.  
  447.     sprintf(saveline, " Saving Configuration to %s ... ", configfile);
  448.     savemsg[0].ob_width = strlen(saveline) * vw->Wchar;
  449.     savemsg[1].ob_width = strlen(saveline) * vw->Wchar;
  450.  
  451.     form_center(savemsg, &fx, &fy, &fw, &fh);
  452.     form_dial(FMD_START, 0, 0, vw->Wchar, vw->Hchar, fx, fy, fw, fh);
  453.     objc_draw(savemsg, 0, 2, fx, fy, fw, fh);
  454.  
  455.     hnorm = 1.0 / ((float)vw->full.g_w);
  456.     vnorm = 1.0 / ((float)vw->full.g_h);
  457.  
  458.     /* Write information to the config file. */
  459.  
  460.     fputs("# Configuration file for Atari ST Ghostscript.\n", config);
  461.     fputs("# Window x, y, w, and h are specified as fractions\n", config);
  462.     fputs("# of the screen size.\n\n", config);
  463.  
  464.     fprintf(config, "consolewin %f %f %f %f\n",
  465.     conswin.frame.g_x * hnorm,
  466.     conswin.frame.g_y * vnorm,
  467.     conswin.frame.g_w * hnorm,
  468.     conswin.frame.g_h * vnorm);
  469.  
  470.     fprintf(config, "imagewin %f %f %f %f\n",
  471.     imagwin.frame.g_x * hnorm,
  472.     imagwin.frame.g_y * vnorm,
  473.     imagwin.frame.g_w * hnorm,
  474.     imagwin.frame.g_h * vnorm);
  475.  
  476.     fputs("\n# Only x and y for the following windows.\n\n", config);
  477.  
  478.     fprintf(config, "aboutwin %f %f\n",
  479.     aboutwin.frame.g_x * hnorm,
  480.     aboutwin.frame.g_y * vnorm);
  481.  
  482.     fprintf(config, "reswin %f %f\n",
  483.     reswin.frame.g_x * hnorm,
  484.     reswin.frame.g_y * vnorm);
  485.  
  486.     fprintf(config, "devwin %f %f\n",
  487.     devwin.frame.g_x * hnorm,
  488.     devwin.frame.g_y * vnorm);
  489.  
  490.     fprintf(config, "sizwin %f %f\n",
  491.     sizwin.frame.g_x * hnorm,
  492.     sizwin.frame.g_y * vnorm);
  493.  
  494.     fprintf(config, "iconwin %f %f\n",
  495.     iconwin.frame.g_x * hnorm,
  496.     iconwin.frame.g_y * vnorm);
  497.  
  498.     fputs("\n# Devices available from the device dialog.\n\n", config);
  499.  
  500.     for (i=1; i<DEVICES; ++i) {
  501.     fprintf(config, "device %s\n", devices[i]);
  502.     }
  503.  
  504.     fputs("\n# Page sizes available from the size dialog.\n\n", config);
  505.  
  506.     for (i=0; i<SIZES; ++i) {
  507.     fprintf(config, "pagesize %s\n", sizes[i]);
  508.     }
  509.  
  510.     fclose(config);
  511.  
  512.     form_dial(FMD_FINISH, 0, 0, vw->Wchar, vw->Hchar, fx, fy, fw, fh);
  513.  
  514. }
  515.  
  516. int
  517. CopyImage(GRAPHIC *sgr, VWRK *vw, PSTATE *st)
  518. {
  519.     WINDOW *bwin;
  520.     GRAPHIC *gr;        /* new graphic structure */
  521.  
  522.     WINLIST *wl = WList;
  523.  
  524.     byte *buff;
  525.  
  526.     ulong buff_size = sgr->image.fd_w * sgr->image.fd_h;
  527.  
  528.     if ((bwin = WinAlloc()) == NULL) {
  529.     form_alert(1, "[1][Ghostscript Error!|No More Memory.][Continue]");
  530.     return (-1);
  531.     }
  532.  
  533.     if ((gr = GraphicAlloc()) == NULL) {
  534.     form_alert(1, "[1][Ghostscript Error!|No More Memory.][Continue]");
  535.     WinFree(bwin);
  536.     return (-1);
  537.     }
  538.  
  539.     if ((buff = (byte *)gs_malloc((uint)buff_size, 1, "bitbuffer")) == NULL) {
  540.     form_alert(1, "[1][Ghostscript Error!|No More Memory.][Continue]");
  541.     WinFree(bwin);
  542.     GraphicFree(gr);
  543.     return (-1);
  544.     }
  545.  
  546.     BitWinInit(bwin, gr, C_GADGETS, C_TITL);
  547.  
  548.     gr->image.fd_addr = (unsigned long) buff;
  549.  
  550.     memcpy((void *)gr->image.fd_addr, (void *)sgr->image.fd_addr, buff_size);
  551.  
  552.     WinListAdd(wl, bwin);
  553.     BitWinOpen(bwin, vw, st);
  554.  
  555. }
  556.  
  557. int
  558. BitWinOpen(WINDOW *bwin, VWRK *vw, PSTATE *st)
  559. {
  560.     GRAPHIC *gr = bwin->obj;
  561.  
  562.     /* Open a window for a bitmap image. */
  563.  
  564.     if (bwin->iconified) {
  565.     wind_open(bwin->handle,
  566.         bwin->frame.g_x, bwin->frame.g_y,
  567.         MIN(bwin->frame.g_w, bwin->mframe.g_w),
  568.         MIN(bwin->frame.g_h, bwin->mframe.g_h));
  569.  
  570.     bwin->opened = 1;
  571.     bwin->iconified = 0;
  572.     }
  573.     else if (!bwin->opened) {
  574.  
  575.     wind_calc(0, bwin->gadgets,
  576.         vw->full.g_x, vw->full.g_y,
  577.         gr->Width, gr->Height,
  578.         &bwin->mframe.g_x, &bwin->mframe.g_y,
  579.         &bwin->mframe.g_w, &bwin->mframe.g_h);
  580.  
  581.     if ((bwin->frame.g_w + bwin->frame.g_h) == 0) {
  582.         bwin->frame.g_x = bwin->mframe.g_x;
  583.         bwin->frame.g_y = bwin->mframe.g_y;
  584.         bwin->frame.g_w = bwin->mframe.g_w;
  585.         bwin->frame.g_h = bwin->mframe.g_h;
  586.     }
  587.  
  588.     bwin->handle = wind_create(
  589.         bwin->gadgets + (st->MultiTOS ? SMALLER : 0),
  590.         bwin->mframe.g_x, bwin->mframe.g_y,
  591.         bwin->mframe.g_w, bwin->mframe.g_h);
  592.  
  593.     if (bwin->handle < 0) {
  594.         form_alert(1, "[1][Ghostscript Error!|No More Windows.][Continue]");
  595.         WinListDelete(WList, bwin);
  596.         return (-1);
  597.     }
  598.  
  599.     wind_set(bwin->handle, WF_NAME, bwin->title, bwin->title, 0, 0);
  600.  
  601.     wind_open(bwin->handle,
  602.         bwin->frame.g_x, bwin->frame.g_y,
  603.         MIN(bwin->frame.g_w, bwin->mframe.g_w),
  604.         MIN(bwin->frame.g_h, bwin->mframe.g_h));
  605.  
  606.     wind_get(bwin->handle, WF_CURRXYWH,
  607.         &bwin->frame.g_x, &bwin->frame.g_y,
  608.         &bwin->frame.g_w, &bwin->frame.g_h);
  609.  
  610.     wind_get(bwin->handle, WF_CURRXYWH,
  611.         &bwin->oframe.g_x, &bwin->oframe.g_y,
  612.         &bwin->oframe.g_w, &bwin->oframe.g_h);
  613.  
  614.     wind_get(bwin->handle, WF_WORKXYWH,
  615.         &bwin->canvas.g_x, &bwin->canvas.g_y,
  616.         &bwin->canvas.g_w, &bwin->canvas.g_h);
  617.  
  618.     gr->StepX = .9 * bwin->canvas.g_w;
  619.     gr->StepY = .9 * bwin->canvas.g_h;
  620.  
  621.     bwin->opened = 1;
  622.     update_scroll(bwin->handle);
  623.     }
  624.  
  625.     return 0;
  626. }
  627.  
  628. int
  629. HelpWinOpen(VWRK *vw, PSTATE *st, char *HelpFile)
  630. {
  631.     FILE *helpf, *lib_fopen();
  632.     WINDOW *hwin;
  633.     WINTEXT *text;
  634.     WINLIST *wl=WList;
  635.  
  636.     char line[MAXLEN], helpfile[MAXLEN];
  637.     int count, twincount=0, length, longest=0;
  638.  
  639.     if ((hwin = WinAlloc()) == NULL) {
  640.     form_alert(1, "[1][Ghostscript Error!|No More Memory.][Continue]");
  641.     return (-1);
  642.     }
  643.  
  644.     if ((text = WinTextAlloc(LINES)) == NULL) {
  645.     form_alert(1, "[1][Ghostscript Error!|No More Memory.][Continue]");
  646.     WinFree(hwin);
  647.     return (-1);
  648.     }
  649.  
  650.     TextWinInit(hwin, text, H_GADGETS, H_TITL);
  651.  
  652.     /* Read help file into the text buffer. */
  653.  
  654.     strcpy(helpfile, HelpFile);
  655.  
  656.     if ((helpf = lib_fopen(helpfile)) == NULL) {
  657.     sprintf(line, "[1][Could not open %s!][OK]", helpfile);
  658.     form_alert(1, line);
  659.     return -1;
  660.     }
  661.  
  662.     for (count=0; (fgets(line, MAXLEN-1, helpf) != NULL); ++count) {
  663.  
  664.     length = strlen(line);
  665.     line[length-2] = '\0';
  666.  
  667.     if (length-2 > longest) longest = length-2;
  668.  
  669.     if (count >= text->bsize - 1) {
  670.         int NewSize = text->bsize + LINES;
  671.         if (TextBuffRealloc(text, NewSize) == NULL) {
  672.         form_alert(1, "[1][There is only enough ram to|\
  673.             load a portion of this file.][Continue]");
  674.         break;
  675.         }
  676.     }
  677.  
  678.     strcpy(text->buff[count], line);
  679.  
  680.     }
  681.  
  682.     fclose(helpf);
  683.  
  684.     if (hwin->frame.g_w + hwin->frame.g_h == 0) {
  685.     wind_calc(0, hwin->gadgets, vw->full.g_x, vw->full.g_y,
  686.         (longest + 4)*vw->Wchar, (count + 1)*vw->Hchar,
  687.         &hwin->frame.g_x, &hwin->frame.g_y,
  688.         &hwin->frame.g_w, &hwin->frame.g_h);
  689.  
  690.     /* Count the number of open text windows. */
  691.  
  692.     do {
  693.         if (wl->Win->type == TEXT){
  694.         ++twincount;
  695.         }
  696.         wl = wl->Next;
  697.     }
  698.     while (wl != WList);
  699.  
  700.     /* Place the window according to how many text windows are open. */
  701.  
  702.     hwin->frame.g_x = 2 * twincount * vw->Wchar;
  703.     hwin->frame.g_y = vw->full.g_y + twincount * vw->Hchar;
  704.     hwin->frame.g_w = MIN(hwin->frame.g_w, vw->full.g_w - hwin->frame.g_x);
  705.     hwin->frame.g_h = MIN(hwin->frame.g_h,
  706.         vw->full.g_h - twincount * vw->Hchar);
  707.     }
  708.  
  709.     text->bw = longest;
  710.     text->bh = count;
  711.  
  712.     WinListAdd(WList, hwin);
  713.     TextWinOpen(hwin, vw, st);
  714.  
  715.     text->ln = count-1;
  716. }
  717.  
  718. int
  719. TextWinOpen(WINDOW *twin, VWRK *vw, PSTATE *st)
  720. {
  721.  
  722.     WINTEXT *text = twin->obj;
  723.  
  724.     /* Create, open, and initialize a text window. */
  725.  
  726.     if (twin->iconified) {
  727.     wind_open(twin->handle,
  728.         twin->frame.g_x, twin->frame.g_y,
  729.         MIN(twin->frame.g_w, twin->mframe.g_w),
  730.         MIN(twin->frame.g_h, twin->mframe.g_h));
  731.  
  732.     twin->opened = 1;
  733.     twin->iconified = 0;
  734.     }
  735.     else if (!twin->opened) {
  736.  
  737.     int dummy;
  738.  
  739.     text->wc = vw->Wchar;
  740.     text->hc = vw->Hchar;
  741.  
  742.     wind_calc(0, twin->gadgets, vw->full.g_x, vw->full.g_y,
  743.         (text->bw + 4)*text->wc, (text->bh + 1)*text->hc,
  744.         &twin->mframe.g_x, &twin->mframe.g_y,
  745.         &twin->mframe.g_w, &twin->mframe.g_h);
  746.  
  747.     twin->mframe.g_x = MAX(twin->mframe.g_x, vw->full.g_x);
  748.     twin->mframe.g_y = MAX(twin->mframe.g_y, vw->full.g_y);
  749.     twin->mframe.g_w = MIN(twin->mframe.g_w, vw->full.g_w);
  750.     twin->mframe.g_h = MIN(twin->mframe.g_h, vw->full.g_h);
  751.  
  752.     twin->handle = wind_create(
  753.         twin->gadgets + (st->MultiTOS ? SMALLER : 0),
  754.         twin->mframe.g_x, twin->mframe.g_y,
  755.         twin->mframe.g_w, twin->mframe.g_h);
  756.  
  757.     if (twin->handle < 0) {
  758.         form_alert(1, "[1][Ghostscript Error!|No More Windows.][Continue]");
  759.         WinListDelete(WList, twin);
  760.         return (-1);
  761.     }
  762.  
  763.     wind_set(twin->handle, WF_NAME,
  764.         twin->title, twin->title, 0, 0);
  765.  
  766.     if ((twin->frame.g_w + twin->frame.g_h) == 0) {
  767.  
  768.         wind_calc(0, twin->gadgets + (st->MultiTOS ? SMALLER : 0),
  769.         vw->full.g_x, vw->full.g_y,
  770.         (text->bw + 2)*text->wc, (text->bh + 1)*text->hc,
  771.         &twin->frame.g_x, &twin->frame.g_y,
  772.         &twin->frame.g_w, &twin->frame.g_h);
  773.  
  774.         twin->frame.g_x = vw->full.g_x;
  775.         twin->frame.g_y = vw->full.g_y;
  776.         twin->frame.g_w = MIN(twin->frame.g_w, vw->full.g_w);
  777.         twin->frame.g_h = MIN(twin->frame.g_h, vw->full.g_h);
  778.  
  779.     }
  780.  
  781.     wind_open(twin->handle,
  782.         twin->frame.g_x, twin->frame.g_y,
  783.         twin->frame.g_w, twin->frame.g_h);
  784.  
  785.     wind_get(twin->handle, WF_CURRXYWH,
  786.         &twin->oframe.g_x, &twin->oframe.g_y,
  787.         &twin->oframe.g_w, &twin->oframe.g_h);
  788.  
  789.     wind_get(twin->handle, WF_WORKXYWH,
  790.         &twin->canvas.g_x, &twin->canvas.g_y,
  791.         &twin->canvas.g_w, &twin->canvas.g_h);
  792.  
  793.     twin->opened = 1;
  794.  
  795.     text->edge = twin->canvas.g_x;
  796.     text->top = twin->canvas.g_y;
  797.  
  798.     text->xoff = text->wc/2;
  799.     text->yoff = text->hc/2;
  800.  
  801.     text->lins = visible_lines(twin);
  802.     text->cols = visible_cols(twin);
  803.     text->ll   = text->bh - 1;
  804.     text->ldl  = text->fdl + text->lins - 1;
  805.  
  806.     text->cx = align(text->edge + text->xoff);
  807.     text->cy = text->top + text->yoff;
  808.  
  809.     vst_alignment(vw->VdiHandle, 0, 5, &dummy, &dummy);
  810.  
  811.     clear_win(&twin->canvas);
  812.     update_scroll(twin->handle);
  813.  
  814.     }
  815.  
  816.     return 0;
  817. }
  818.  
  819. int
  820. ObjWinOpen(OBJECT obj[], WINDOW *owin, VWRK *vw, PSTATE *st)
  821. {
  822.  
  823.     /* Create and open a window for a GEM object. */
  824.  
  825.     if (owin->iconified) {
  826.  
  827.     obj[0].ob_flags ^= HIDETREE;     /* Make the object tree visible. */
  828.  
  829.     wind_open(owin->handle,
  830.         owin->frame.g_x, owin->frame.g_y,
  831.         owin->frame.g_w, owin->frame.g_h);
  832.  
  833.     owin->opened = 1;
  834.     owin->iconified = 0;
  835.  
  836.     }
  837.     else if (!owin->opened) {
  838.  
  839.     owin->handle = wind_create(owin->gadgets,
  840.         vw->full.g_x, vw->full.g_y,
  841.         vw->full.g_w, vw->full.g_h);
  842.  
  843.     if (owin->handle < 0) {
  844.         form_alert(1,
  845.         "[1][Ghostscript Error!|No More Windows.][Continue]");
  846.         WinListDelete(WList, owin);
  847.         return (-1);
  848.         }
  849.  
  850.     wind_set(owin->handle, WF_NAME, owin->title, owin->title, 0, 0);
  851.  
  852.     /* Make the object tree visible. */
  853.  
  854.     obj[0].ob_flags ^= HIDETREE;
  855.  
  856.     /* If the window has never been opened, width and height will
  857.      * be zero. In this case, center the object before opening
  858.      * the window.
  859.      */
  860.  
  861.     if ((owin->frame.g_w + owin->frame.g_h) == 0) {
  862.         int tempx, tempy;
  863.  
  864.         form_center(obj,
  865.         &owin->canvas.g_x, &owin->canvas.g_y,
  866.         &owin->canvas.g_w, &owin->canvas.g_h);
  867.  
  868.         wind_calc(0, owin->gadgets,
  869.         owin->canvas.g_x, owin->canvas.g_y,
  870.         owin->canvas.g_w, owin->canvas.g_h,
  871.         &tempx, &tempy,
  872.         &owin->frame.g_w, &owin->frame.g_h);
  873.  
  874.         if (owin->frame.g_x + owin->frame.g_y) {
  875.         owin->canvas.g_x += owin->frame.g_x - tempx;
  876.         owin->canvas.g_y += owin->frame.g_y - tempy;
  877.         obj[0].ob_x += owin->frame.g_x - tempx;
  878.         obj[0].ob_y += owin->frame.g_y - tempy;
  879.         }
  880.         else {
  881.         owin->frame.g_x = tempx;
  882.         owin->frame.g_y = tempy;
  883.         }
  884.  
  885.     }
  886.  
  887.     /* The object is drawn by the redraw message which is
  888.      * automatically sent when the window is opened.
  889.      */
  890.  
  891.     wind_open(owin->handle,
  892.         owin->frame.g_x, owin->frame.g_y,
  893.         owin->frame.g_w, owin->frame.g_h);
  894.  
  895.     owin->opened = 1;
  896.  
  897.     }
  898.     else {
  899.     wind_set(owin->handle, WF_TOP, 0, 0, 0, 0);
  900.     }
  901.  
  902.     return 0;
  903.  
  904. }
  905.  
  906. int
  907. WinClose(WINDOW *win)
  908. {
  909.  
  910.     /* Close and delete the window; hide the object. */
  911.     
  912.     if (win->iconified) {
  913.  
  914.     wind_delete(win->handle);
  915.  
  916.     win->handle = -1;
  917.     win->iconified = 0;
  918.  
  919.     }
  920.     else if (win->opened) {
  921.  
  922.     wind_get(win->handle, WF_CURRXYWH,
  923.         &win->frame.g_x, &win->frame.g_y,
  924.         &win->frame.g_w, &win->frame.g_h);
  925.  
  926.     wind_get(win->handle, WF_CURRXYWH,
  927.         &win->oframe.g_x, &win->oframe.g_y,
  928.         &win->oframe.g_w, &win->oframe.g_h);
  929.  
  930.     wind_close(win->handle);
  931.     wind_delete(win->handle);
  932.  
  933.     if (win->type == OBJ) {
  934.         OBJECT *obj = win->obj;
  935.         obj[0].ob_flags ^= HIDETREE;
  936.     }
  937.  
  938.     win->handle = -1;
  939.     win->opened = 0;
  940.     }
  941.  
  942.     return 0;
  943. }
  944.  
  945. int
  946. bitw_arrow(PSTATE *st)
  947. {
  948.     int ChangeX, ChangeY;
  949.  
  950.     WINDOW *bwin = WinFindH(st->Event->Message[3]);
  951.     GRAPHIC *gr = bwin->obj;
  952.     VWRK *vw = &VWork;
  953.  
  954.     switch (st->Event->Message[4]) {
  955.  
  956.     case WA_UPLINE:    /* up line or top of page */
  957.     if (st->Event->KeyState)
  958.         gr->PlotY = 0;
  959.     else
  960.         gr->PlotY = MAX(gr->PlotY - vw->Hchar, 0);
  961.     break;
  962.  
  963.     case WA_DNLINE:    /* down line or bottom of page */
  964.     if (st->Event->KeyState)
  965.         gr->PlotY = gr->Height - bwin->canvas.g_h;
  966.     else
  967.         gr->PlotY = MIN(gr->PlotY + vw->Hchar,
  968.         gr->Height - bwin->canvas.g_h);
  969.     break;
  970.  
  971.     case WA_LFLINE:    /* left line or left page edge */
  972.     if (st->Event->KeyState)
  973.         gr->PlotX = 0;
  974.     else
  975.         gr->PlotX = MAX(gr->PlotX - vw->Wchar, 0);
  976.     break;
  977.  
  978.     case WA_RTLINE:    /* right page edge */
  979.     if (st->Event->KeyState)
  980.         gr->PlotX = gr->Width - bwin->canvas.g_w;
  981.     else
  982.         gr->PlotX = MIN(gr->PlotX + vw->Wchar, 
  983.         gr->Width - bwin->canvas.g_w);
  984.     break;
  985.  
  986.     case WA_UPPAGE:    /* up page */
  987.     gr->PlotY = MAX(gr->PlotY - gr->StepY, 0);
  988.     break;
  989.  
  990.     case WA_DNPAGE:    /* down page */
  991.     gr->PlotY = MIN(gr->PlotY + gr->StepY,
  992.         gr->Height - bwin->canvas.g_h);
  993.     break;
  994.  
  995.     case WA_LFPAGE:    /* left page */
  996.     gr->PlotX = MAX(gr->PlotX - gr->StepX, 0);
  997.     break;
  998.  
  999.     case WA_RTPAGE:    /* right page */
  1000.     gr->PlotX = MIN(gr->PlotX + gr->StepX,
  1001.         gr->Width - bwin->canvas.g_w);
  1002.     break;
  1003.  
  1004.     }
  1005.  
  1006.     update_scroll(st->Event->Message[3]);
  1007.     cursor(OFF);
  1008.     HandleRedraw(FULL_WIN, &State);
  1009.     cursor(ON);
  1010.  
  1011. }
  1012.  
  1013. int
  1014. txtw_hslide(PSTATE *st)
  1015. {
  1016.     int ChangeX, ChangeY;
  1017.     int handle = st->Event->Message[3];
  1018.  
  1019.     WINDOW  *twin = WinFindH(handle);
  1020.     WINTEXT *text = twin->obj;
  1021.  
  1022.     text->fdc = (text->bw + 2 - text->cols) * st->Event->Message[4]/1000;
  1023.     text->ldc = text->fdc + text->cols - 1;
  1024.  
  1025.     ChangeX = twin->canvas.g_x - text->fdc * text->wc - text->edge;
  1026.  
  1027.     text->edge += ChangeX;
  1028.     text->cx   += ChangeX;
  1029.  
  1030.     update_scroll(handle);
  1031.     cursor(OFF);
  1032.     HandleRedraw(FULL_WIN, st);
  1033.     cursor(ON);
  1034. }
  1035.  
  1036. int
  1037. bitw_hslide(PSTATE *st)
  1038. {
  1039.     WINDOW *bwin = WinFindH(st->Event->Message[3]); 
  1040.     GRAPHIC *gr = bwin->obj;
  1041.  
  1042.     gr->PlotX = (gr->Width - bwin->canvas.g_w) * st->Event->Message[4]/1000;
  1043.  
  1044.     update_scroll(st->Event->Message[3]);
  1045.     HandleRedraw(FULL_WIN, st);
  1046. }
  1047.  
  1048. int
  1049. txtw_vslide(PSTATE *st)
  1050. {
  1051.     int ChangeX, ChangeY;
  1052.     WINTEXT *text = ObjFindH(st->Event->Message[3]);
  1053.  
  1054.     int OldOffset = text->fdl - text->fl;
  1055.     int NewOffset = (text->bh - text->lins) * st->Event->Message[4]/1000;
  1056.  
  1057.     if (OldOffset < 0) OldOffset += text->bh;
  1058.  
  1059.     text->fdl = text->fl + NewOffset;
  1060.     if (text->fdl >= text->bh) text->fdl -= text->bh;
  1061.  
  1062.     text->ldl = text->fdl + text->lins - 1;
  1063.     if (text->ldl >= text->bh) text->ldl -= text->bh;
  1064.  
  1065.     ChangeY = (OldOffset - NewOffset) * text->hc;
  1066.     text->top += ChangeY;
  1067.     text->cy  += ChangeY;
  1068. }
  1069.  
  1070. int
  1071. bitw_vslide(PSTATE *st)
  1072. {
  1073.     WINDOW *bwin = WinFindH(st->Event->Message[3]);
  1074.     GRAPHIC *gr = bwin->obj;
  1075.  
  1076.     gr->PlotY = (gr->Height - bwin->canvas.g_h) * st->Event->Message[4]/1000;
  1077. }
  1078.  
  1079. int
  1080. objw_move(PSTATE *st)
  1081. {
  1082.     int ChangeX, ChangeY;
  1083.  
  1084.     WINDOW *owin = WinFindH(st->Event->Message[3]);
  1085.     OBJECT *obj = owin->obj;
  1086.  
  1087.     wind_set(owin->handle, WF_CURRXYWH,
  1088.     st->Event->Message[4], st->Event->Message[5],
  1089.     st->Event->Message[6], st->Event->Message[7]);
  1090.  
  1091.     ChangeX = st->Event->Message[4] - owin->frame.g_x;
  1092.     ChangeY = st->Event->Message[5] - owin->frame.g_y;
  1093.  
  1094.     obj[0].ob_x += ChangeX;
  1095.     obj[0].ob_y += ChangeY;
  1096.  
  1097.     wind_get(owin->handle, WF_CURRXYWH,
  1098.     &owin->frame.g_x, &owin->frame.g_y,
  1099.     &owin->frame.g_w, &owin->frame.g_h);
  1100.  
  1101.     wind_get(owin->handle, WF_WORKXYWH,
  1102.     &owin->canvas.g_x, &owin->canvas.g_y,
  1103.     &owin->canvas.g_w, &owin->canvas.g_h);
  1104.  
  1105. }
  1106.  
  1107. int
  1108. bitw_move(PSTATE *st)
  1109. {
  1110.  
  1111.     WINDOW *bwin = WinFindH(st->Event->Message[3]);
  1112.  
  1113.     wind_set(bwin->handle, WF_CURRXYWH,
  1114.     st->Event->Message[4], st->Event->Message[5],
  1115.     MIN(bwin->mframe.g_w, st->Event->Message[6]),
  1116.     MIN(bwin->mframe.g_h, st->Event->Message[7]));
  1117.  
  1118.     wind_get(bwin->handle, WF_CURRXYWH,
  1119.     &bwin->frame.g_x, &bwin->frame.g_y,
  1120.     &bwin->frame.g_w, &bwin->frame.g_h);
  1121.  
  1122.     wind_get(bwin->handle, WF_WORKXYWH,
  1123.     &bwin->canvas.g_x, &bwin->canvas.g_y,
  1124.     &bwin->canvas.g_w, &bwin->canvas.g_h);
  1125. }
  1126.  
  1127. int
  1128. txtw_move(PSTATE *st)
  1129. {
  1130.     int ChangeX, ChangeY;
  1131.  
  1132.     WINDOW *twin = WinFindH(st->Event->Message[3]);
  1133.     WINTEXT *text = twin->obj;
  1134.  
  1135.     int oldcanvas_x = twin->canvas.g_x;
  1136.     int oldcanvas_y = twin->canvas.g_y;
  1137.  
  1138.     wind_set(twin->handle, WF_CURRXYWH,
  1139.     align(st->Event->Message[4]), st->Event->Message[5],
  1140.     MIN(twin->mframe.g_w, st->Event->Message[6]),
  1141.     MIN(twin->mframe.g_w, st->Event->Message[7]));
  1142.  
  1143.     wind_get(twin->handle, WF_CURRXYWH,
  1144.     &twin->frame.g_x, &twin->frame.g_y,
  1145.     &twin->frame.g_w, &twin->frame.g_h);
  1146.  
  1147.     wind_get(twin->handle, WF_WORKXYWH,
  1148.     &twin->canvas.g_x, &twin->canvas.g_y,
  1149.     &twin->canvas.g_w, &twin->canvas.g_h);
  1150.  
  1151.     ChangeX = twin->canvas.g_x - oldcanvas_x;
  1152.     ChangeY = twin->canvas.g_y - oldcanvas_y;
  1153.  
  1154.     text->edge += ChangeX;
  1155.     text->top  += ChangeY;
  1156.  
  1157.     text->cx += ChangeX;
  1158.     text->cy += ChangeY;
  1159. }
  1160.  
  1161. int
  1162. txtw_arrow(PSTATE *st)
  1163. {
  1164.     int ChangeX, ChangeY;
  1165.     int handle = st->Event->Message[3];
  1166.  
  1167.     WINDOW *twin  = WinFindH(handle);
  1168.     WINTEXT *text = twin->obj;
  1169.  
  1170.     switch (st->Event->Message[4]) {
  1171.  
  1172.     case WA_UPLINE:    /* top line or up line */
  1173.     if (st->Event->KeyState) {
  1174.         ChangeY = twin->canvas.g_y - text->top;
  1175.         text->top += ChangeY;
  1176.         text->cy  += ChangeY;
  1177.         text->fdl = text->fl;
  1178.         text->ldl = text->fl + text->lins - 1;
  1179.         if (text->ldl >= text->bh) text->ldl -= text->bh;
  1180.     }
  1181.     else {
  1182.         if (text->fdl != text->fl) {
  1183.         text->top += text->hc;
  1184.         text->cy += text->hc;
  1185.         if (--text->fdl < 0) text->fdl += text->bh;
  1186.         if (--text->ldl < 0) text->fdl += text->bh;
  1187.         }
  1188.     }
  1189.     break;
  1190.  
  1191.     case WA_DNLINE:    /* bottom line or down line */
  1192.     if (st->Event->KeyState) {
  1193.         ChangeY = twin->canvas.g_y
  1194.             - (text->bh - text->lins) * text->hc - text->top;
  1195.         text->top += ChangeY;
  1196.         text->cy  += ChangeY;
  1197.         text->fdl = text->ll - text->lins + 1;
  1198.         text->ldl = text->ll;
  1199.         if (text->fdl < 0) text->fdl += text->bh;
  1200.     }
  1201.     else {
  1202.         if (text->ldl != text->ll) {
  1203.         text->top -= text->hc;
  1204.         text->cy  -= text->hc;
  1205.         if (++text->fdl >= text->bh) text->fdl = 0;
  1206.         if (++text->ldl >= text->bh) text->ldl = 0;
  1207.         }
  1208.     }
  1209.     break;
  1210.  
  1211.     case WA_LFLINE:    /* left line */
  1212.     if (st->Event->KeyState) {
  1213.         ChangeX = twin->canvas.g_x - text->edge;
  1214.         text->edge += ChangeX;
  1215.         text->cx   += ChangeX;
  1216.         text->fdc = 0;
  1217.         text->ldc = text->cols - 1;
  1218.     }
  1219.     else {
  1220.         if (text->fdc > 0) {
  1221.         text->edge += text->wc;
  1222.         text->cx  += text->wc;
  1223.         text->fdc--;
  1224.         text->ldc--;
  1225.         }
  1226.     }
  1227.     break;
  1228.  
  1229.     case WA_RTLINE:    /* right line */
  1230.     if (st->Event->KeyState) {
  1231.         ChangeX = twin->canvas.g_x
  1232.             - (text->bw + 2 - text->cols) * text->wc - text->edge;
  1233.         text->edge += ChangeX;
  1234.         text->cx   += ChangeX;
  1235.         text->fdc = (text->bw + 2 - text->cols);
  1236.         text->ldc = text->fdc + text->cols - 1;
  1237.     }
  1238.     else {
  1239.         if ((text->fdc + text->cols) < (text->bw + 2)) {
  1240.         text->edge -= text->wc;
  1241.         text->cx  -= text->wc;
  1242.         text->fdc++;
  1243.         text->ldc++;
  1244.         }
  1245.     }
  1246.     break;
  1247.  
  1248.     case WA_UPPAGE:    /* up page */
  1249.       {
  1250.     int to_top = text->fdl - text->fl;
  1251.     to_top = (to_top >= 0) ? to_top : to_top + text->bh;
  1252.  
  1253.     if (to_top >= (text->lins - 1)) {
  1254.         text->top += (text->lins - 1) * text->hc;
  1255.         text->cy  += (text->lins - 1) * text->hc;
  1256.         text->fdl -= (text->lins - 1);
  1257.         text->ldl  -= (text->lins - 1);
  1258.         if (text->fdl < 0) text->fdl += text->bh;
  1259.         if (text->ldl < 0) text->ldl += text->bh;
  1260.     }
  1261.     else {
  1262.         ChangeY = twin->canvas.g_y - text->top;
  1263.         text->top += ChangeY;
  1264.         text->cy  += ChangeY;
  1265.         text->fdl = text->fl;
  1266.         text->ldl = text->fl + text->lins - 1;
  1267.         if (text->ldl >= text->bh) text->ldl -= text->bh;
  1268.     }
  1269.     break;
  1270.       }
  1271.  
  1272.     case WA_DNPAGE:    /* down page */
  1273.       {
  1274.     int to_bot = text->ll - text->ldl;
  1275.     to_bot = (to_bot >= 0) ? to_bot : to_bot + text->bh;
  1276.  
  1277.     if (to_bot >= (text->lins - 1)) {
  1278.         text->top -= (text->lins - 1) * text->hc;
  1279.         text->cy  -= (text->lins - 1) * text->hc;
  1280.         text->fdl += (text->lins - 1);
  1281.         text->ldl += (text->lins - 1);
  1282.         if (text->fdl >= text->bh) text->fdl -= text->bh;
  1283.         if (text->ldl >= text->bh) text->ldl -= text->bh;
  1284.     }
  1285.     else {
  1286.         ChangeY = twin->canvas.g_y
  1287.             - (text->bh - text->lins) * text->hc - text->top;
  1288.         text->top += ChangeY;
  1289.         text->cy  += ChangeY;
  1290.         text->fdl = text->ll - text->lins + 1;
  1291.         text->ldl = text->ll;
  1292.         if (text->fdl < 0) text->fdl += text->bh;
  1293.     }
  1294.     break;
  1295.       }
  1296.  
  1297.     case WA_LFPAGE:    /* left page */
  1298.     if (text->fdc  >= (text->cols - 1)) {
  1299.         text->edge += (text->cols - 1) * text->wc;
  1300.         text->cx   += (text->cols - 1) * text->wc;
  1301.         text->fdc  -= (text->cols - 1);
  1302.         text->ldc = text->fdc + text->cols - 1;
  1303.     }
  1304.     else {
  1305.         ChangeX = twin->canvas.g_x - text->edge;
  1306.         text->edge += ChangeX;
  1307.         text->cx   += ChangeX;
  1308.         text->fdc = 0;
  1309.         text->ldc = text->cols - 1;
  1310.     }
  1311.     break;
  1312.  
  1313.     case WA_RTPAGE:    /* right page */
  1314.     if (text->fdc <= (text->bw - 2*text->cols + 3)) {
  1315.         text->edge -= (text->cols - 1) * text->wc;
  1316.         text->cx  -= (text->cols - 1) * text->wc;
  1317.         text->fdc += (text->cols - 1);
  1318.         text->ldc += (text->cols - 1);
  1319.     }
  1320.     else {
  1321.         ChangeX = twin->canvas.g_x
  1322.             - (text->bw + 2 - text->cols) * text->wc - text->edge;
  1323.         text->edge += ChangeX;
  1324.         text->cx   += ChangeX;
  1325.         text->fdc = (text->bw + 2 - text->cols);
  1326.         text->ldc = text->fdc + text->cols - 1;
  1327.     }
  1328.     break;
  1329.  
  1330.     }
  1331.  
  1332.     update_scroll(st->Event->Message[3]);
  1333.     cursor(OFF);
  1334.     HandleRedraw(FULL_WIN, &State);
  1335.     cursor(ON);
  1336.  
  1337. }
  1338.  
  1339. int
  1340. txtw_size(PSTATE *st)
  1341. {
  1342.  
  1343.     int handle = st->Event->Message[3];
  1344.  
  1345.     WINDOW *twin = WinFindH(handle);
  1346.     WINTEXT *text = twin->obj;
  1347.  
  1348.     int offset, diff, ChangeX;
  1349.  
  1350.     int old_x = twin->canvas.g_x;
  1351.     int old_y = twin->canvas.g_y;
  1352.     int old_w = twin->canvas.g_w;
  1353.     int old_h = twin->canvas.g_h;
  1354.  
  1355.     wind_set(twin->handle, WF_CURRXYWH,
  1356.     st->Event->Message[4], st->Event->Message[5],
  1357.     MIN(twin->mframe.g_w, st->Event->Message[6]),
  1358.     MIN(twin->mframe.g_h, st->Event->Message[7]));
  1359.  
  1360.     wind_get(twin->handle, WF_CURRXYWH,
  1361.     &twin->frame.g_x, &twin->frame.g_y,
  1362.     &twin->frame.g_w, &twin->frame.g_h);
  1363.  
  1364.     wind_get(twin->handle, WF_WORKXYWH,
  1365.     &twin->canvas.g_x, &twin->canvas.g_y,
  1366.     &twin->canvas.g_w, &twin->canvas.g_h);
  1367.  
  1368.     text->lins = visible_lines(twin);
  1369.     text->cols = visible_cols(twin);
  1370.  
  1371.     /* For the console window, put the current line at the bottom
  1372.      * of the window and adjust the first and last lines accordingly.
  1373.      * For other text windows, leave the first line unchanged if
  1374.      * possible.
  1375.      */
  1376.  
  1377.     if (twin->handle == conswin.handle) {
  1378.     text->fdl = text->ln - text->lins + 1;
  1379.  
  1380.     if (text->fdl > text->bh) {
  1381.         text->fdl -= text->bh;
  1382.     }
  1383.     else if (text->fdl < 0 && !text->scrolled) {
  1384.         text->fdl = 0;
  1385.     }
  1386.     else if (text->fdl < 0 && text->scrolled) {
  1387.         text->fdl += text->bh;
  1388.     }
  1389.     }
  1390.  
  1391.     text->ldl = text->fdl + text->lins - 1;
  1392.  
  1393.     if (text->ldl >= text->bh) {
  1394.     if (text->scrolled) {
  1395.         text->ldl -= text->bh;
  1396.     }
  1397.     else {        /* First displayed line must be changed. */
  1398.         text->ldl = text->bh - 1;
  1399.         text->fdl = text->ldl - text->lins + 1;
  1400.     }
  1401.     }
  1402.  
  1403.     /* Keep the first column the same, if possible, and adjust the
  1404.      * last column appropriately.
  1405.      */
  1406.  
  1407.     text->ldc = text->fdc + text->cols - 1;
  1408.     ChangeX = twin->canvas.g_x - old_x;
  1409.  
  1410.     if ((diff = text->ldc - text->bw - 1) > 0) {  /* Change first column. */
  1411.     ChangeX += diff * text->wc;
  1412.     text->ldc = text->bw + 1;
  1413.     text->fdc = text->ldc - text->cols + 1;
  1414.     }
  1415.  
  1416.     /* Adjust the cursor position. */
  1417.  
  1418.     text->cx += ChangeX;
  1419.  
  1420.     offset = text->ln - text->fdl;
  1421.     if (offset < 0) offset += text->bh;
  1422.     if (offset >= text->bh) offset -= text->bh;
  1423.     text->cy = twin->canvas.g_y + text->yoff + offset * text->hc;
  1424.  
  1425.     /* Adjust the left edge and top of the page. */
  1426.  
  1427.     text->edge += ChangeX;
  1428.  
  1429.     offset = text->fdl - text->fl;
  1430.     if (offset < 0) offset += text->bh;
  1431.     if (offset >= text->bh) offset -= text->bh;
  1432.     text->top = twin->canvas.g_y - offset * text->hc;
  1433.  
  1434.     /* Redraw the window if the OS won't. */
  1435.  
  1436.     if (old_x <= twin->canvas.g_x &&
  1437.     old_y <= twin->canvas.g_y &&
  1438.     old_w >= twin->canvas.g_w &&
  1439.     old_h >= twin->canvas.g_h) {
  1440.  
  1441.     cursor(OFF);
  1442.     HandleRedraw(FULL_WIN, st);
  1443.     cursor(ON);
  1444.     }
  1445.  
  1446.     update_scroll(handle);
  1447. }
  1448.  
  1449. int
  1450. bitw_size(PSTATE *st)
  1451. {
  1452.  
  1453.     WINDOW *bwin = WinFindH(st->Event->Message[3]);
  1454.     GRAPHIC *gr = bwin->obj;
  1455.  
  1456.     wind_set(bwin->handle, WF_CURRXYWH,
  1457.     st->Event->Message[4], st->Event->Message[5],
  1458.     MIN(bwin->mframe.g_w, st->Event->Message[6]),
  1459.     MIN(bwin->mframe.g_h, st->Event->Message[7]));
  1460.  
  1461.     wind_get(bwin->handle, WF_CURRXYWH,
  1462.     &bwin->frame.g_x, &bwin->frame.g_y,
  1463.     &bwin->frame.g_w, &bwin->frame.g_h);
  1464.  
  1465.     wind_get(bwin->handle, WF_WORKXYWH,
  1466.     &bwin->canvas.g_x, &bwin->canvas.g_y,
  1467.     &bwin->canvas.g_w, &bwin->canvas.g_h);
  1468.  
  1469.     gr->StepX = .9 * bwin->canvas.g_w;
  1470.     gr->StepY = .9 * bwin->canvas.g_h;
  1471.  
  1472.     update_scroll(st->Event->Message[3]);
  1473. }
  1474.  
  1475.  
  1476. int
  1477. txtw_redraw(int full_win, PSTATE *st)
  1478. {
  1479.     int handle = st->Event->Message[3];
  1480.  
  1481.     WINDOW *twin = WinFindH(handle);
  1482.     WINTEXT *text = twin->obj;
  1483.  
  1484.     int i, cnt;
  1485.     int x = align(twin->canvas.g_x + text->xoff);
  1486.     int fcol = text->fdc;
  1487.     int y, TopLineY, ln;
  1488.  
  1489.     GRECT dirty, rect;
  1490.  
  1491.     if (full_win) {
  1492.     dirty.g_x = twin->canvas.g_x;
  1493.     dirty.g_y = twin->canvas.g_y;
  1494.     dirty.g_w = twin->canvas.g_w;
  1495.     dirty.g_h = twin->canvas.g_h;
  1496.     }
  1497.     else {
  1498.     dirty.g_x = st->Event->Message[4];
  1499.     dirty.g_y = st->Event->Message[5];
  1500.     dirty.g_w = st->Event->Message[6];
  1501.     dirty.g_h = st->Event->Message[7];
  1502.     }
  1503.  
  1504.     TopLineY = twin->canvas.g_y + text->yoff;
  1505.  
  1506.     cnt = text->ln - text->fdl + 1;
  1507.     cnt = (cnt > 0) ? cnt : cnt + text->bh;
  1508.     cnt = MIN(cnt, text->lins);
  1509.  
  1510.     wind_get(twin->handle, WF_FIRSTXYWH,
  1511.     &rect.g_x, &rect.g_y,
  1512.     &rect.g_w, &rect.g_h);
  1513.  
  1514.     graf_mouse(M_OFF, 0L);
  1515.  
  1516.     while (rect.g_w && rect.g_h) {
  1517.  
  1518.     if (rc_intersect(&dirty, &rect)) {
  1519.         if (rc_intersect(&twin->canvas, &rect)) {
  1520.         
  1521.         y = TopLineY;
  1522.  
  1523.         grect_to_array(&rect, st->pxy);
  1524.         vs_clip(VWork.VdiHandle, 1, st->pxy);
  1525.         
  1526.         clear_win(&rect);
  1527.  
  1528.         for (ln=text->fdl, i=cnt; i; i--, ln++, y+=text->hc) {
  1529.             if (ln >= text->bh) ln -= text->bh;
  1530.             if (strlen(text->buff[ln]) > fcol)
  1531.             v_gtext(VWork.VdiHandle, x, y, text->buff[ln]+fcol);
  1532.         }
  1533.  
  1534.         vs_clip(VWork.VdiHandle, 0, st->pxy);
  1535.         }
  1536.     }
  1537.  
  1538.     wind_get(twin->handle, WF_NEXTXYWH,
  1539.         &rect.g_x, &rect.g_y,
  1540.         &rect.g_w, &rect.g_h);
  1541.     }
  1542.  
  1543.     graf_mouse(M_ON, 0L);
  1544.  
  1545. }
  1546.  
  1547. int
  1548. objw_redraw(int full_win, PSTATE *st)
  1549. {
  1550.  
  1551.     int handle = st->Event->Message[3];
  1552.  
  1553.     WINDOW *owin = WinFindH(handle);
  1554.     OBJECT *obj = owin->obj;
  1555.  
  1556.     GRECT dirty, rect;
  1557.  
  1558.     if (full_win) {
  1559.     dirty.g_x = owin->canvas.g_x;
  1560.     dirty.g_y = owin->canvas.g_y;
  1561.     dirty.g_w = owin->canvas.g_w;
  1562.     dirty.g_h = owin->canvas.g_h;
  1563.     }
  1564.     else {
  1565.     dirty.g_x = st->Event->Message[4];
  1566.     dirty.g_y = st->Event->Message[5];
  1567.     dirty.g_w = st->Event->Message[6];
  1568.     dirty.g_h = st->Event->Message[7];
  1569.     }
  1570.  
  1571.     wind_get(handle, WF_FIRSTXYWH,
  1572.     &rect.g_x, &rect.g_y,
  1573.     &rect.g_w, &rect.g_h);
  1574.  
  1575.     graf_mouse(M_OFF, 0L);
  1576.  
  1577.     while (rect.g_w && rect.g_h) {
  1578.  
  1579.     if (rc_intersect(&dirty, &rect)) {
  1580.         if (rc_intersect(&owin->canvas, &rect)) {
  1581.         objc_draw(obj, 0, 3,
  1582.             rect.g_x, rect.g_y,
  1583.             rect.g_w, rect.g_h);
  1584.         }
  1585.     }
  1586.  
  1587.     wind_get(handle, WF_NEXTXYWH,
  1588.         &rect.g_x, &rect.g_y,
  1589.         &rect.g_w, &rect.g_h);
  1590.  
  1591.     }
  1592.  
  1593.     graf_mouse(M_ON, 0L);
  1594.  
  1595. }
  1596.  
  1597. int
  1598. bitw_redraw(int full_win, PSTATE *st)
  1599. {
  1600.  
  1601.     WINDOW *bwin = WinFindH(st->Event->Message[3]);
  1602.     GRAPHIC *gr  = bwin->obj;
  1603.  
  1604.     GRECT dirty, rect;
  1605.  
  1606.     if (full_win) {
  1607.     dirty.g_x = bwin->canvas.g_x;
  1608.     dirty.g_y = bwin->canvas.g_y;
  1609.     dirty.g_w = bwin->canvas.g_w;
  1610.     dirty.g_h = bwin->canvas.g_h;
  1611.     }
  1612.     else {
  1613.     dirty.g_x = st->Event->Message[4];
  1614.     dirty.g_y = st->Event->Message[5];
  1615.     dirty.g_w = st->Event->Message[6];
  1616.     dirty.g_h = st->Event->Message[7];
  1617.     }
  1618.  
  1619.     gr->PlotX = MIN(gr->PlotX, gr->Width - bwin->canvas.g_w);
  1620.     gr->PlotY = MIN(gr->PlotY, gr->Height - bwin->canvas.g_h);
  1621.  
  1622.     wind_get(bwin->handle, WF_FIRSTXYWH,
  1623.     &rect.g_x, &rect.g_y,
  1624.     &rect.g_w, &rect.g_h);
  1625.  
  1626.     graf_mouse(M_OFF, 0L);
  1627.  
  1628.     while (rect.g_w && rect.g_h) {
  1629.     if (rc_intersect(&dirty, &rect)) {
  1630.         if (rc_intersect(&bwin->canvas, &rect)) {
  1631.         
  1632.         st->pxy[0] = gr->PlotX + (rect.g_x - bwin->canvas.g_x);
  1633.         st->pxy[1] = gr->PlotY + (rect.g_y - bwin->canvas.g_y);
  1634.         st->pxy[2] = st->pxy[0] + rect.g_w - 1;
  1635.         st->pxy[3] = st->pxy[1] + rect.g_h - 1;
  1636.  
  1637.         grect_to_array(&rect, &st->pxy[4]);
  1638.  
  1639.         vs_clip(VWork.VdiHandle, 1, &st->pxy[4]);
  1640.         vro_cpyfm(VWork.VdiHandle, 3, st->pxy,
  1641.             &gr->image, &gr->screen);
  1642.         vs_clip(VWork.VdiHandle, 0, &st->pxy[4]);
  1643.  
  1644.         }
  1645.     }
  1646.  
  1647.     wind_get(bwin->handle, WF_NEXTXYWH,
  1648.         &rect.g_x, &rect.g_y,
  1649.         &rect.g_w, &rect.g_h);
  1650.     }
  1651.  
  1652.     graf_mouse(M_ON, 0L);
  1653.  
  1654. }
  1655.  
  1656. int
  1657. update_scroll(int handle)
  1658. {
  1659.     int hslide_pos, hslide_siz, vslide_pos, vslide_siz;
  1660.  
  1661.     WINDOW *win = WinFindH(handle);
  1662.  
  1663.     switch (win->type) {
  1664.  
  1665.     case BIT:
  1666.       {
  1667.     GRAPHIC *gr = win->obj;
  1668.  
  1669.     if (gr->Width != win->canvas.g_w) {
  1670.         hslide_pos = 1000 * gr->PlotX/(gr->Width - win->canvas.g_w);
  1671.     }
  1672.     else {
  1673.         hslide_pos = 0;
  1674.     }
  1675.  
  1676.     if (gr->Height != win->canvas.g_h) {
  1677.         vslide_pos = 1000 * gr->PlotY
  1678.                / (gr->Height - win->canvas.g_h);
  1679.     }
  1680.     else {
  1681.         vslide_pos = 0;
  1682.     }
  1683.  
  1684.     hslide_siz = 1000 * win->canvas.g_w/gr->Width;
  1685.     vslide_siz = 1000 * win->canvas.g_h/gr->Height;
  1686.  
  1687.       }
  1688.     break;
  1689.  
  1690.     case TEXT:
  1691.       {
  1692.     WINTEXT *text = win->obj;
  1693.  
  1694.     int offset = text->fdl - text->fl;
  1695.  
  1696.     if (offset < 0) offset += text->bh;
  1697.  
  1698.     if (text->cols != text->bw + 2) {
  1699.         hslide_pos = 1000 * text->fdc/(text->bw + 2 - text->cols);
  1700.     }
  1701.     else {
  1702.         hslide_pos = 0;
  1703.     }
  1704.  
  1705.     if (text->lins < text->bh) {
  1706.         vslide_pos = 1000 * offset/(text->bh - text->lins);
  1707.     }
  1708.     else {
  1709.         vslide_pos = 0;
  1710.     }
  1711.  
  1712.     hslide_siz = 1000 * text->cols/(text->bw + 2);
  1713.     vslide_siz = 1000 * text->lins/text->bh;
  1714.  
  1715.       }
  1716.     break;
  1717.  
  1718.     }
  1719.  
  1720.     wind_set(handle, WF_HSLIDE,  hslide_pos);
  1721.     wind_set(handle, WF_VSLIDE,  vslide_pos);
  1722.     wind_set(handle, WF_HSLSIZE, hslide_siz);
  1723.     wind_set(handle, WF_VSLSIZE, vslide_siz);
  1724.  
  1725.     return 0;
  1726. }
  1727.  
  1728. int
  1729. TextWinInit(WINDOW *twin, WINTEXT *text, int gadgets, char *title)
  1730. {
  1731.     twin->handle = -1;
  1732.     twin->type = TEXT;
  1733.     twin->obj = (void *)text;
  1734.     twin->gadgets = gadgets;
  1735.     twin->title = title;
  1736.     twin->opened = 0;
  1737.     twin->iconified = 0;
  1738.  
  1739.     twin->canvas.g_x = 0; twin->canvas.g_y = 0;
  1740.     twin->canvas.g_w = 0; twin->canvas.g_h = 0;
  1741.  
  1742.     twin->frame.g_x = 0; twin->frame.g_y = 0;
  1743.     twin->frame.g_w = 0; twin->frame.g_h = 0;
  1744.  
  1745.     twin->oframe.g_x = 0; twin->oframe.g_y = 0;
  1746.     twin->oframe.g_w = 0; twin->oframe.g_h = 0;
  1747.  
  1748.     twin->mframe.g_x = 0; twin->mframe.g_y = 0;
  1749.     twin->mframe.g_w = 0; twin->mframe.g_h = 0;
  1750.  
  1751.     twin->redraw = txtw_redraw;
  1752.     twin->move   = txtw_move;
  1753.     twin->size   = txtw_size;
  1754.     twin->arrow  = txtw_arrow;
  1755.     twin->hslide = txtw_hslide;
  1756.     twin->vslide = txtw_vslide;
  1757.  
  1758.     text->bw   = COLUMNS;
  1759.     text->bh   = LINES;
  1760.     text->top  = text->edge = 0;
  1761.     text->xoff = text->yoff = 0;
  1762.     text->cx   = text->cy   = 0;
  1763.     text->cstate = 0;
  1764.     text->wc   = text->hc   = 0;
  1765.     text->lins = text->cols = 0;
  1766.     text->ln   = text->cn   = 0;
  1767.     text->fl   = 0;
  1768.     text->ll   = LINES-1;
  1769.     text->fdl  = 0;
  1770.     text->ldl  = LINES-1;
  1771.     text->fdc  = text->ldc  = 0;
  1772.     text->scrolled = 0;
  1773. }
  1774.  
  1775. int
  1776. BitWinInit(WINDOW *bwin, GRAPHIC *gr, int gadgets, char *title)
  1777. {
  1778.     bwin->handle = -1;
  1779.     bwin->type = BIT;
  1780.     bwin->obj = (void *)gr;
  1781.     bwin->gadgets = gadgets;
  1782.     bwin->title = title;
  1783.     bwin->opened = 0;
  1784.     bwin->iconified = 0;
  1785.  
  1786.     bwin->redraw = bitw_redraw;
  1787.     bwin->move   = bitw_move;
  1788.     bwin->size   = bitw_size;
  1789.     bwin->arrow  = bitw_arrow;
  1790.     bwin->hslide = bitw_hslide;
  1791.     bwin->vslide = bitw_vslide;
  1792.  
  1793.     bwin->frame.g_x = imagwin.frame.g_x + 2 * VWork.Wchar;
  1794.     bwin->frame.g_y = imagwin.frame.g_x + VWork.Hchar;
  1795.     bwin->frame.g_w = imagwin.frame.g_w;
  1796.     bwin->frame.g_h = imagwin.frame.g_h;
  1797.  
  1798.     memcpy(gr, imagwin.obj, sizeof(GRAPHIC));
  1799.  
  1800. }
  1801.  
  1802. int
  1803. ObjWinInit(WINDOW *owin, OBJECT *object, int gadgets, char *title)
  1804. {
  1805.     owin->handle = -1;
  1806.     owin->type = OBJ;
  1807.     owin->obj = (void *)object;
  1808.     owin->gadgets = gadgets;
  1809.     owin->title = title;
  1810.     owin->opened = 0;
  1811.     owin->iconified = 0;
  1812.  
  1813.     owin->canvas.g_x = 0; owin->canvas.g_y = 0;
  1814.     owin->canvas.g_w = 0; owin->canvas.g_h = 0;
  1815.  
  1816.     owin->frame.g_x = 0; owin->frame.g_y = 0;
  1817.     owin->frame.g_w = 0; owin->frame.g_h = 0;
  1818.  
  1819.     owin->oframe.g_x = 0; owin->oframe.g_y = 0;
  1820.     owin->oframe.g_w = 0; owin->oframe.g_h = 0;
  1821.  
  1822.     owin->mframe.g_x = 0; owin->mframe.g_y = 0;
  1823.     owin->mframe.g_w = 0; owin->mframe.g_h = 0;
  1824.  
  1825.     owin->redraw = objw_redraw;
  1826.     owin->move   = objw_move;
  1827.     owin->size   = NULL;
  1828.     owin->arrow  = NULL;
  1829.     owin->hslide = NULL;
  1830.     owin->vslide = NULL;
  1831. }
  1832.  
  1833. /* WinAlloc allocates memory for a new window. */
  1834.  
  1835. WINDOW *
  1836. WinAlloc(void)
  1837. {
  1838.     return (WINDOW *) gs_malloc((uint)sizeof(WINDOW), 1, "window");
  1839. }
  1840.  
  1841. /* Free the memory allocated for a window. */
  1842.  
  1843. int
  1844. WinFree(WINDOW *win)
  1845. {
  1846.     gs_free((char *)win, 1, sizeof(WINDOW), "window");
  1847. }
  1848.  
  1849. /* WinTextAlloc allocates memory for a window text structure. */
  1850.  
  1851. WINTEXT *
  1852. WinTextAlloc(int Lines)
  1853. {
  1854.     WINTEXT *text;
  1855.  
  1856.     /* Allocate the WINTEXT structure. */
  1857.  
  1858.     if ((text = (WINTEXT *) gs_malloc((uint)sizeof(WINTEXT), 1, "wintext")) == NULL) {
  1859.     return text;
  1860.     }
  1861.  
  1862.     /* Allocate the character buffer. */
  1863.  
  1864.     if ((text->buff = (char (*)[COLUMNS+1])gs_malloc((uint)(COLUMNS+1), Lines, "charbuff")) == NULL) {
  1865.     gs_free((char *)text, 1, sizeof(WINTEXT), "wintext");
  1866.     return (WINTEXT *)NULL;
  1867.     }
  1868.  
  1869.     text->bsize = Lines;
  1870.  
  1871.     return text;
  1872. }
  1873.  
  1874. char
  1875. (*TextBuffRealloc(WINTEXT *text, int NewSize))[COLUMNS+1]
  1876. {
  1877.     char (*temp)[COLUMNS+1];
  1878.  
  1879.     /* Allocate another character buffer of the new size. */
  1880.  
  1881.     if ((temp = (char (*)[COLUMNS+1])gs_malloc((uint)(COLUMNS+1), NewSize, "charbuff")) == NULL) {
  1882.     return temp;
  1883.     }
  1884.  
  1885.     if (text->buff != 0) {
  1886.  
  1887.     /* Copy the old buffer to the new one. */
  1888.     memcpy(temp, text->buff, (MIN(text->bsize, NewSize))*(COLUMNS+1));
  1889.  
  1890.     /* Free the old character buffer. */
  1891.     gs_free((char *)text->buff, text->bsize, (COLUMNS+1), "charbuff");
  1892.  
  1893.     }
  1894.  
  1895.     text->bsize = NewSize;
  1896.     text->buff = temp;
  1897.     return temp;
  1898. }
  1899.  
  1900. /* Free the memory allocated for a window text structure. */
  1901.  
  1902. int
  1903. WinTextFree(WINTEXT *text)
  1904. {
  1905.     gs_free((char *)text->buff, text->bsize, (COLUMNS+1), "charbuff");
  1906.     gs_free((char *)text, 1, sizeof(WINTEXT), "wintext");
  1907. }
  1908.  
  1909. /* GraphicAlloc allocates memory for a graphic structure. */
  1910.  
  1911. GRAPHIC *
  1912. GraphicAlloc(void)
  1913. {
  1914.     return (GRAPHIC *) gs_malloc((uint)sizeof(GRAPHIC), 1, "graphic");
  1915. }
  1916.  
  1917. /* Free the memory allocated for a graphic structure. */
  1918.  
  1919. int
  1920. GraphicFree(GRAPHIC *gr)
  1921. {
  1922.     gs_free((char *)gr, 1, sizeof(GRAPHIC), "graphic");
  1923. }
  1924.  
  1925. /* Free the memory allocated for a bitmap buffer. */
  1926.  
  1927. int
  1928. BitBufferFree(GRAPHIC *gr)
  1929. {
  1930.     char *buff = (char *)gr->image.fd_addr;
  1931.     ulong buff_size = gr->image.fd_w * gr->image.fd_h;
  1932.  
  1933.     gs_free((char *)buff, buff_size, 1, "bitbuffer");
  1934. }
  1935.  
  1936. /* ListAlloc allocates memory for a new element of the window list. */
  1937.  
  1938. WINLIST *
  1939. WinListAlloc(void)
  1940. {
  1941.     return (WINLIST *) gs_malloc((uint)sizeof(WINLIST), 1, "winlist");
  1942. }
  1943.  
  1944. /* Free the memory for the winlist structure */
  1945.  
  1946. int
  1947. WinListFree(WINLIST *wl)
  1948. {
  1949.     gs_free((char *)wl, 1, sizeof(WINLIST), "winlist");
  1950. }
  1951.  
  1952. /* WinListAdd adds a new window to the window list. */
  1953.  
  1954. WINLIST *
  1955. WinListAdd(WINLIST *wlist, WINDOW *win)
  1956. {
  1957.     WINLIST *wl = WinListAlloc();
  1958.  
  1959.     if (win->opened || win->iconified) return wlist;
  1960.  
  1961.     if (wlist == NULL) {    /* Begin a new list. */
  1962.  
  1963.     wl->Prev = wl;
  1964.     wl->Next = wl;
  1965.  
  1966.     }
  1967.     else {            /* Add a new list element. */
  1968.  
  1969.     wl->Prev = wlist->Prev;
  1970.     wl->Next = wlist;
  1971.  
  1972.     wlist->Prev->Next = wl;
  1973.     wlist->Prev = wl;
  1974.  
  1975.     }
  1976.  
  1977.     wl->Win = win;        /* Put the window in the list. */
  1978.     return wl;
  1979. }
  1980.  
  1981.  
  1982. /* Delete a window from the window list and free its associated memory. */
  1983.  
  1984. WINLIST *
  1985. WinListDelete(WINLIST *wlist, WINDOW *win)
  1986. {
  1987.     WINLIST *ret, *wl = wlist;
  1988.  
  1989.     /*
  1990.      * Return the new head of the window list. If the head was not
  1991.      * deleted, it remains the head. If the head is deleted, make
  1992.      * the next list element the head. If deleting the head leaves
  1993.      * the list empty, then return NULL.
  1994.      */
  1995.  
  1996.     ret = (win == wlist->Win) ?
  1997.     ((wlist->Next == wlist) ? NULL : wlist->Next) : wlist;
  1998.  
  1999.     /* Delete the specified list element. */
  2000.  
  2001.     do {
  2002.     if (win == wl->Win) {
  2003.         wl->Prev->Next = wl->Next;
  2004.         wl->Next->Prev = wl->Prev;
  2005.         break;
  2006.     }
  2007.     wl = wl->Next;
  2008.     }
  2009.     while (wl != wlist);
  2010.  
  2011.     /* Free the memory for the window structure. */
  2012.     if ((win->type == TEXT) && (win != &conswin)) {
  2013.     WinTextFree(win->obj);
  2014.     WinFree(win);
  2015.     }
  2016.     else if ((win->type == BIT) && (win != &imagwin)) {
  2017.     GRAPHIC *gr = win->obj;
  2018.         BitBufferFree(gr);
  2019.     GraphicFree(gr);
  2020.     WinFree(win);
  2021.     }
  2022.  
  2023.     /* Free the memory used for the window list. */
  2024.     WinListFree(wl);
  2025.  
  2026.     return ret;
  2027. }
  2028.  
  2029. /* Open all the windows in the window list, leaving the list intact. */
  2030.  
  2031. int
  2032. WinListOpen(WINLIST *wlist)
  2033. {
  2034.     WINLIST *wl = wlist;
  2035.  
  2036.     do {
  2037.     if (wl->Win->iconified) {
  2038.         wind_open(wl->Win->handle,
  2039.         wl->Win->frame.g_x, wl->Win->frame.g_y,
  2040.         wl->Win->frame.g_w, wl->Win->frame.g_h);
  2041.  
  2042.         wl->Win->opened = 1;
  2043.         wl->Win->iconified = 0;
  2044.  
  2045.         if (wl->Win->type == OBJ) {
  2046.         OBJECT *obj = wl->Win->obj;
  2047.         obj[0].ob_flags ^= HIDETREE;
  2048.         }
  2049.     }
  2050.  
  2051.     wl = wl->Next;
  2052.     }
  2053.     while (wl != wlist);
  2054. }
  2055.  
  2056. /* Close all the windows in the window list, leaving the list intact. */
  2057.  
  2058. int
  2059. WinListClose(WINLIST *wlist)
  2060. {
  2061.     WINLIST *wl = wlist;
  2062.  
  2063.     do {
  2064.     if (wl->Win->opened) {
  2065.  
  2066.         wind_get(wl->Win->handle, WF_CURRXYWH,
  2067.         &wl->Win->oframe.g_x, &wl->Win->oframe.g_y,
  2068.         &wl->Win->oframe.g_w, &wl->Win->oframe.g_h);
  2069.  
  2070.         wind_get(wl->Win->handle, WF_CURRXYWH,
  2071.         &wl->Win->frame.g_x, &wl->Win->frame.g_y,
  2072.         &wl->Win->frame.g_w, &wl->Win->frame.g_h);
  2073.  
  2074.         wind_close(wl->Win->handle);
  2075.         wl->Win->opened = 0;
  2076.         wl->Win->iconified = 1;
  2077.  
  2078.         if (wl->Win->type == OBJ) {
  2079.         OBJECT *obj = wl->Win->obj;
  2080.         obj[0].ob_flags ^= HIDETREE;
  2081.         }
  2082.  
  2083.     }
  2084.  
  2085.     wl = wl->Next;
  2086.     }
  2087.     while (wl != wlist);
  2088. }
  2089.  
  2090. /* Redraw all windows in the list. */
  2091.  
  2092. int
  2093. WinListRedraw(WINLIST *wlist, PSTATE *st)
  2094. {
  2095.     WINLIST *wl = wlist;
  2096.  
  2097.     do {
  2098.     if (wl->Win->opened) {
  2099.         st->Event->Message[3] = wl->Win->handle;
  2100.         HandleRedraw(FULL_WIN, st);
  2101.     }
  2102.  
  2103.     wl = wl->Next;
  2104.     }
  2105.     while (wl != wlist);
  2106. }
  2107.  
  2108. /*
  2109.  * Pathfind(path, file, sep) searches for 'file' in the path given
  2110.  * by the envionment variable named in 'env'. Sep specifies the
  2111.  * path separator. It returns a pointer to the filename if it is
  2112.  * found, and a NULL if not.
  2113.  */
  2114.  
  2115. char *
  2116. PathFind(char *env, char *file, char *sep)
  2117. {
  2118.     FILE *fp;
  2119.  
  2120.     char path[2*MAXLEN];
  2121.     static char name[MAXLEN];
  2122.  
  2123.     char *ptr;
  2124.     char *presub();
  2125.  
  2126.     if ((fp = fopen(file, "r")) == NULL) {
  2127.  
  2128.     if ((ptr = getenv(env)) != NULL) {
  2129.         strcpy(path, ptr);
  2130.     }
  2131.     else {
  2132.         return NULL;
  2133.     }
  2134.  
  2135.     if ((ptr = presub(path, sep)) == NULL) {
  2136.         return NULL;
  2137.     }
  2138.  
  2139.     do {
  2140.         strcpy(name, ptr);
  2141.  
  2142.         if (name[strlen(name)-1] != '\\' ||
  2143.         name[strlen(name)-1] != '/') strcat(name, "\\");
  2144.  
  2145.         strcat(name, file);
  2146.  
  2147.         if ((fp = fopen(name, "r")) != NULL) {
  2148.         fclose(fp);
  2149.         return name;
  2150.         }
  2151.  
  2152.     } while ((ptr = presub(NULL, sep)) != NULL);
  2153.  
  2154.     }
  2155.     else {
  2156.     fclose(fp);
  2157.     return file;
  2158.     }
  2159. }
  2160.  
  2161. /* Presub(s, subs) searches the string s for the substring subs. Presub
  2162.  * returns a pointer to the NULL terminated substring which immediately
  2163.  * preceeds subs. If presub is called again with a NULL pointer for s, 
  2164.  * it returns a pointer to the substring between the previous subs and
  2165.  * the current subs. If subs is a null character, presub returns a pointer
  2166.  * to the portion of s between the previous subs and the end of s.
  2167.  */
  2168.  
  2169. char *presub(s, subs)
  2170. char *s, *subs;
  2171. {
  2172.     int sublen;
  2173.     char *mptr;
  2174.     static int count;
  2175.     static char match[MAXLEN], *ptr;
  2176.  
  2177.     if (s != NULL) {
  2178.         ptr = s;
  2179.         count = 0;
  2180.     }
  2181.  
  2182.     mptr = match + count;
  2183.     if ((sublen = strlen(subs)) == 0) {
  2184.         strcpy(mptr, ptr);
  2185.         return (mptr);
  2186.     }
  2187.  
  2188.     while (*ptr != '\0') {
  2189.         if (strncmp(ptr, subs, sublen) == 0) {
  2190.             match[count] = '\0';
  2191.             ptr += sublen;
  2192.             ++count;
  2193.             return (mptr);
  2194.         }
  2195.         match[count] = *ptr;
  2196.         ++ptr;
  2197.         ++count;
  2198.         
  2199.     }
  2200.  
  2201.     if ((match + count) > mptr) {
  2202.         match[count] = *ptr;
  2203.         ++count;
  2204.         return (mptr);
  2205.  
  2206.     }
  2207.  
  2208.     return (NULL);
  2209.  
  2210. }
  2211.  
  2212. /* Ensure that the size of a window is within the limits of
  2213.  * the hardware.
  2214.  */
  2215.  
  2216. int EnforceLimits(GRECT *rect, VWRK *vw)
  2217. {
  2218.  
  2219.     if ((rect->g_x < vw->full.g_x) || (rect->g_x >= vw->full.g_w)) {
  2220.     rect->g_x = vw->full.g_x;
  2221.     }
  2222.  
  2223.     if ((rect->g_y < vw->full.g_y) || (rect->g_y >= vw->full.g_h)) {
  2224.     rect->g_y = vw->full.g_y;
  2225.     }
  2226.  
  2227.     if (rect->g_w < 0) {
  2228.     rect->g_w = vw->full.g_w - rect->g_x;
  2229.     }
  2230.  
  2231.     if (rect->g_h < 0) {
  2232.     rect->g_h = vw->full.g_h - rect->g_y + vw->full.g_y;
  2233.     }
  2234. }
  2235.  
  2236.  
  2237.  
  2238. /* Routine itoa(num, s) converts an integer, num, to an ascii string 
  2239.  * representation of the integer, pointed to by s. The integer 100 is 
  2240.  *  converted to the string "100", etc.
  2241.  */
  2242.  
  2243. char *itoa(int number, char *s)
  2244. {
  2245.  
  2246. /* Local variables:
  2247.  *    i:        loop counter,
  2248.  *    j:        number of loops needed to transpose the string in s,
  2249.  *    body:        integer part of num/10,
  2250.  *    remain:        remainder of num/10,
  2251.  *    sign:        sign of the integer,
  2252.  *    count:        number of times num is divisible by 10,
  2253.  *    temp:        temporary character storage.
  2254.  */
  2255.  
  2256.     int i, j, num, body, remain, sign, count;
  2257.     char temp;
  2258.  
  2259.     count = 0;
  2260.     num = number;
  2261.     sign = 1;
  2262.  
  2263.     if (num == 0) {
  2264.         s[count] = '0';
  2265.         ++count;
  2266.     } else {
  2267.  
  2268.         if (num < 0) {
  2269.             sign = -1;
  2270.             num = -num;
  2271.         }
  2272.  
  2273.         while (num > 0) {        /* Divide by 10, convert */
  2274.             body = (num/10);    /* remainder to ascii    */
  2275.             remain = num - body*10;
  2276.             s[count] = remain + '0';
  2277.             num = body;
  2278.             ++count;
  2279.         }
  2280.  
  2281.         if (sign < 0) {
  2282.             s[count] = '-';
  2283.             ++count;
  2284.         }
  2285.  
  2286.         /* Ascii representation is transposed in s, so put it in 
  2287.          * the right order. */
  2288.  
  2289.         j = count/2;    
  2290.  
  2291.         for (i = 0; i < j; ++i) {
  2292.             temp = s[i];
  2293.             s[i] = s[count-(i+1)];
  2294.             s[count-(i+1)] = temp;
  2295.         }
  2296.  
  2297.     }
  2298.  
  2299.     s[count] = '\0';
  2300.     return(s);
  2301.  
  2302. }
  2303.  
  2304. /* Round to nearest integer. */
  2305.  
  2306. int
  2307. nint(double Num)
  2308. {
  2309.  
  2310.     int Floor = floor(Num);
  2311.     int Ceil  = ceil(Num);
  2312.  
  2313.     return (fabs(Num - Floor) > fabs(Num - Ceil)) ? Ceil : Floor;
  2314.  
  2315. }
  2316.  
  2317. int align(int x)
  2318. {
  2319.     return ((x & 0xfffffff0) + ((x & 0xf) ? 0x10 : 0));
  2320. /*    return ((x & 0xfffffff8) + ((x & 0x07) ? 0x08 : 0)); */
  2321. }
  2322.  
  2323.  
  2324. /*
  2325.  * The remainder of this file contains printer output routines, most of
  2326.  * which were contributed by Chris Strunk (some of them were written by me).
  2327.  * I made some modifications to the following code (with permission), and
  2328.  * may have introduced errors not in the original code.
  2329.  * Tim Gallivan, 3/92.
  2330.  */
  2331.  
  2332. /*
  2333.  * This file is Copyright (C) 1990 Christoph Strunk.
  2334.  *
  2335.  * You are not allowed to copy or modify it.
  2336.  */
  2337.  
  2338. #define ATARI_TOS    (1)
  2339. #define MAKE_VOID    (void *)
  2340.  
  2341. void con_flush();
  2342. int OutputIsAscii = 0, RTX_Found = 0;
  2343. long *old_ssp = NULL;
  2344. FILE *OutFile = NULL;
  2345.  
  2346. #if PC_DOS || ATARI_TOS
  2347. #  define DIRECT    1    /* 1 = Direct Centronics port programming */
  2348. #endif
  2349.  
  2350. #if ATARI_TOS || ( PC_DOS && DIRECT )
  2351. static short prn_out ( int );
  2352. #endif
  2353.  
  2354. #if ATARI_TOS && LATTICE
  2355. #include <dos.h>
  2356. #endif
  2357.  
  2358. #ifdef __GNUC__
  2359. #include <osbind.h>
  2360. #endif
  2361.  
  2362. #if PC_DOS && DIRECT
  2363. #include <bios.h>
  2364. #endif
  2365.  
  2366. /* output one character */
  2367.  
  2368. static int fatal_output_error = 0;
  2369.  
  2370. void
  2371. lputc(c)
  2372. int c;
  2373. {
  2374.     static short rc;
  2375.     static unsigned char global_count = 0; /* other processes every 256 chars */
  2376.     void l_stop(), fatal();
  2377.  
  2378.     if ( fatal_output_error ) return;
  2379.  
  2380.     global_count += 1;
  2381.  
  2382.     c &= 255;            /* New in 2.9.44: avoid signed char problems */
  2383.  
  2384. #if ATARI_TOS || PC_DOS
  2385.     if ( ( c == '\n' ) && OutputIsAscii ) {
  2386.       lputc ( '\r' );    /* recursion */
  2387.     }
  2388. #endif
  2389.  
  2390.     if ( OutFile ) {
  2391.        rc = ( fputc ( c, OutFile ) == EOF );
  2392.     } else {
  2393. #if ATARI_TOS || ( PC_DOS && DIRECT )
  2394.                    rc = prn_out ( c );
  2395. #else
  2396.                    rc = -1;
  2397. #endif
  2398.     }
  2399.  
  2400.     if ( rc ) {
  2401.         if ( OutFile ) {
  2402.             perror ( "\nlputc" );
  2403.             fprintf ( stderr, "\nOutput error -- %s ?\n",
  2404.                       "Disk full or printer not ready" );
  2405.             fclose ( OutFile );
  2406.             OutFile = NULL;
  2407.         } else {
  2408.             fprintf ( stderr, "\nOutput error -- Printer not ready ?\n" );
  2409.         }
  2410.         l_stop();
  2411.         fatal_output_error = 1;
  2412.         fatal ( "Output error" );
  2413.     }
  2414.  
  2415. #if ATARI_TOS
  2416.     if ( RTX_Found && ! global_count ) call_yield(); /* allow other processes */
  2417. #endif
  2418. }
  2419.  
  2420. /* output a string */
  2421.  
  2422. void
  2423. lputs ( s )
  2424. char *s;
  2425. {
  2426.     while ( *s ) lputc ( *s++ );
  2427. }
  2428.  
  2429. void
  2430. lflush()
  2431. {
  2432.    if ( OutFile ) fflush ( OutFile );
  2433. }
  2434.  
  2435. /* start/stop lputc device */
  2436.  
  2437. void
  2438. l_start()
  2439. {
  2440.   void l_stop(), fatal();
  2441.  
  2442. #if ATARI_TOS && DIRECT
  2443.   volatile char *gpip = (char *) 0xFFFFFA01L;
  2444.   int cnt;
  2445.  
  2446.   if ( OutFile == NULL && old_ssp == NULL ) {
  2447.     old_ssp = (void *) call_super ( NULL );
  2448.     cnt = 0;
  2449. /*    for ( cnt=0; ( *gpip & 1 ) && ( ++cnt <= 10 ); ) {
  2450.      printf("cnt = %d\n", cnt); */
  2451.      Ongibit(0x20);                                        /* set strobe bit */
  2452. /*    } */
  2453.     if ( cnt > 10 ) {
  2454.       l_stop();
  2455.       puts ( "\n" );
  2456.       fatal_output_error = 1;
  2457.       fatal ( "Printer not ready" );
  2458.     }
  2459.   }
  2460. #endif
  2461. #if ATARI_TOS && ! DIRECT
  2462.   int cnt;
  2463.  
  2464.   if ( OutFile == NULL && old_ssp == NULL ) {
  2465.     old_ssp = (void *) call_super ( NULL );
  2466.  
  2467.     for ( cnt=0; ( ! prt_ready(0) ) && ( ++cnt <= 10 ); ) {
  2468.      Ongibit(0x20);                                        /* set strobe bit */
  2469.     }
  2470.     if ( cnt > 10 ) {
  2471.       l_stop();
  2472.       puts ( "\n" );
  2473.       fatal_output_error = 1;
  2474.       fatal ( "Printer not ready" );
  2475.     }
  2476.   }
  2477. #endif
  2478. #if PC_DOS && DIRECT
  2479.   if ( OutFile == NULL && ( biosprint ( 2, 0, BiosChannel ) & 0x29 ) ) {
  2480.     l_stop();
  2481.     puts ( "\n" );
  2482.     fatal_output_error = 1;
  2483.     fatal ( "Printer not ready" );
  2484.   }
  2485. #endif
  2486. }
  2487.  
  2488. void l_stop()
  2489. {
  2490.     lflush();
  2491. #if ATARI_TOS
  2492.     if ( old_ssp != NULL ) {
  2493.         MAKE_VOID call_super ( old_ssp );
  2494.         old_ssp = NULL;
  2495.     }
  2496. #endif
  2497. }
  2498.  
  2499. #if ATARI_TOS && DIRECT
  2500.  
  2501. extern void int_off __PROTO( ( void ) );
  2502.  
  2503. /* int_off:  ori.w  #$0700,sr
  2504.  *           ret
  2505.  */
  2506.  
  2507. extern void int_on __PROTO( ( void ) );
  2508.  
  2509. /* int_on:   andi.w #$F8FF,sr
  2510.  *           ret
  2511.  */
  2512.  
  2513. static short prn_out ( c )
  2514. int c;
  2515. {
  2516.   volatile unsigned long *hz_200;
  2517.   register unsigned long end_time;
  2518.   volatile char *gpip = (char *) 0xFFFFFA01L;
  2519.   register char g;
  2520.  
  2521. #if OLD
  2522.   unsigned char loop_count = 0;
  2523. #endif
  2524.  
  2525.   if ( old_ssp == NULL ) l_start();
  2526.  
  2527.   hz_200 = (unsigned long *) 0x04BAL;
  2528. #if OLD
  2529.   end_time = *hz_200 + 200;        /* check once per second */
  2530. #else
  2531.   end_time = *hz_200 + 2;          /* check 100 times per second */
  2532. #endif
  2533.  
  2534.   while ( *gpip & 1 ) {  /* wait */
  2535. #if OLD
  2536.     /* Printer 1 sec. or more not ready ? */
  2537.     if ( ( end_time < *hz_200 ) ||
  2538.          ( ( ( ++loop_count & 7 ) == 0 ) && ( BatchMode || RTX_Found ) ) ) {
  2539.         con_flush();         /* allow Control_C, other Processes etc. */
  2540.         end_time = *hz_200 + 2;          /* check 100 times per second */
  2541.     }
  2542. #else
  2543.     if ( end_time <= *hz_200 ) {
  2544.         con_flush();               /* allow Control_C, other Processes etc. */
  2545.         end_time = *hz_200 + 1;              /* check 200 times per second */
  2546.     }
  2547. #endif
  2548.   }
  2549.  
  2550.   int_off();                   /* disable interrupts */
  2551.  
  2552.   gpip = (char *) 0xFFFF8800L; /* load sound chip adress now */
  2553.  
  2554.   /* This next section of code was added by Tim Gallivan on 7/11/94
  2555.    * to fix a problem of this routine not working on some hardware.
  2556.    */
  2557.  
  2558.   *gpip = 7;               /* select enable register */
  2559.   g = *gpip;                   /* get old value */
  2560.   g |= 0x80;                   /* set port B output bit */
  2561.   gpip[2] = g;
  2562.  
  2563.   /* End fix. */
  2564.  
  2565.   *gpip = 15;                  /* select port B */
  2566.   gpip[2] = (char) c;          /* write out char */
  2567.   *gpip = 14;                  /* select port A */
  2568.   g = *gpip;                   /* get old value */
  2569. #if OLD
  2570.   g &= 0xDF;                   /* clear strobe bit */
  2571. #else
  2572.   g &= ~0x20;                  /* clear strobe bit */
  2573. #endif
  2574.   gpip[2] = g;
  2575.   g |= 0x20;                   /* set strobe bit */
  2576.   g |= 0x20;                   /* short delay */
  2577.   gpip[2] = g;
  2578.  
  2579.   int_on();                    /* enable interrupts */
  2580.  
  2581.   return 0;
  2582. }
  2583. #endif
  2584.  
  2585. #if ATARI_TOS && ! DIRECT
  2586. static short prn_out ( c )
  2587. int c;
  2588. {
  2589.   volatile unsigned long *hz_200 = (unsigned long *) 0x04BAL;
  2590.   register unsigned long end_time;
  2591.  
  2592.   if ( old_ssp == NULL ) l_start();
  2593.  
  2594.   end_time = *hz_200 + 2;          /* check 200 times per second */
  2595.  
  2596.   while ( ! prt_ready(0) ) {  /* wait */
  2597.     if ( end_time <= *hz_200 ) {
  2598.         con_flush();               /* allow Control_C, other Processes etc. */
  2599.         end_time = *hz_200 + 1;              /* check 200 times per second */
  2600.     }
  2601.   }
  2602.  
  2603.   prt_out ( 0, c );
  2604.  
  2605.   return 0;
  2606. }
  2607. #endif
  2608.  
  2609. #if PC_DOS && DIRECT
  2610.  
  2611. static short prn_out ( c )
  2612. int c;
  2613. {
  2614.   while ( biosprint ( 0, c, BiosChannel ) & 0x29 ) {
  2615.     /* wait until Ok or Control-C pressed */
  2616.     con_flush();
  2617.   }
  2618.  
  2619.   return 0;
  2620. }
  2621.  
  2622. #endif
  2623.  
  2624. void
  2625. con_flush()
  2626. {
  2627.     int chin;
  2628.     void fatal();
  2629.  
  2630.     chin = Crawio(0xFF);
  2631.     if ((chin & 0xFF) == 3) fatal("Keyboard Interrupt");
  2632. }
  2633.  
  2634. void
  2635. fatal(char *message)
  2636. {
  2637.     fprintf(stderr, "%s\n", message);
  2638.     l_stop();
  2639.     exit(-1);
  2640. }
  2641.  
  2642. /* Restore the usual desktop background. */
  2643.  
  2644. #undef puts
  2645.  
  2646. int RestoreBG(VWRK *vw)
  2647. {
  2648.     puts("\033f");
  2649.     v_hide_c(vw->VdiHandle);
  2650.     form_dial(FMD_FINISH, 0, 0, 8, 16, 0, 0, vw->XRes, vw->YRes);
  2651.     v_show_c(vw->VdiHandle, 0);
  2652. }
  2653.  
  2654. /*
  2655. #-----------------------------------------------------------------------------#
  2656. #:    Simple support routines for LATTICE C 5.04.01 and other C compilers
  2657. #
  2658. #:    Lattice C Assembler
  2659. #
  2660. #:    The parameter comes on the stack for functions starting with '_'.
  2661. #
  2662. #:    void *call_super ( void * );  supervisor mode on/off
  2663. #
  2664. #:    Original code by Chris Strunk. Modified for use with gcc in
  2665. #:    Ghostscript by Tim Gallivan, 3/92.
  2666. #-----------------------------------------------------------------------------#
  2667. */
  2668.     asm("\
  2669.  
  2670.     .text 0
  2671.  
  2672.     .globl _int_off
  2673.     .globl _int_on
  2674.     .globl _call_super
  2675.     .globl _call_yield
  2676.     .globl _call_nice
  2677.     .globl _user_trace
  2678.     .globl _prt_ready
  2679.     .globl _prt_out
  2680.  
  2681. _get_la:
  2682.     moveml   d2/a2,sp@- 
  2683.     .byte    0xA0,0x00            | Adresse Line-A-Var nach A0 & D0
  2684.     moveml   sp@+,d2/a2
  2685.     rts
  2686.  
  2687. _int_off:
  2688.     oriw     #0x0700,sr
  2689.     rts
  2690.  
  2691. _int_on:
  2692.     andiw    #0xF8FF,sr
  2693.     rts
  2694.  
  2695. _call_super:
  2696.     movel    a7@(4),a0
  2697.     moveml   d2/a2-a3,sp@-
  2698.     movel    a0,sp@-
  2699.     movew    #0x20,sp@-
  2700.     movel    a7,a3     | save current stack pointer
  2701.     trap      #1
  2702.     movel    a3,a7     | make bad stack pointer good again !!!!!!!
  2703.     addql    #6,sp
  2704.     movel    d0,a0     | return value in both: d0 and a0
  2705.     moveml   sp@+,d2/a2-a3
  2706.     rts
  2707.  
  2708. _call_yield:
  2709.     moveml   d2/a2,sp@-
  2710.     movew    #0x00ff,sp@-   | MiNT Syield()  --  TOS illegal (rc -32)
  2711.     trap      #1
  2712.     addql    #2,sp
  2713.     moveml   sp@+,d2/a2
  2714.     rts
  2715.  
  2716. _call_nice:
  2717.     movel    a7@(4),d0
  2718.     moveml   d2/a2,sp@-
  2719.     movew    d0,sp@-
  2720.     movew    #0x10A,sp@-
  2721.     trap      #1
  2722.     addql    #4,sp
  2723.     moveml   sp@+,d2/a2
  2724.     rts
  2725.  
  2726. _user_trace:
  2727.     moveml   d1-d7/a0-a6,sp@-
  2728.     moveql   #0,d0
  2729.     movel    0x3F0,a1     | TEMPLMON user trace vector
  2730.     cmpal    #0,a1       | not installed ?
  2731.     beqs     end_trace
  2732.     jsr      a1@        | execute it !
  2733.     extl     d0
  2734.  
  2735. end_trace:
  2736.     moveml   sp@+,d1-d7/a0-a6
  2737.     rts
  2738.  
  2739. _prt_ready:
  2740.     moveml    d3/a3/a5,a7@-
  2741.     subl    a5,a5
  2742.     movew    d0,a7@-
  2743.     movel    0x506,a0
  2744.     jsr    a0@
  2745.     addql    #2,a7
  2746.     moveml    a7@+,d3/a3/a5
  2747.     rts
  2748.  
  2749. _prt_out:
  2750.     moveml    d3/a3/a5,a7@-
  2751.     subl    a5,a5
  2752.     movew    d1,a7@-
  2753.     movew    d0,a7@-
  2754.     movel    0x50A,a0
  2755.     jsr    a0@
  2756.     addql    #4,a7
  2757.     moveml    a7@+,d3/a3/a5
  2758.     rts
  2759.  
  2760.     ");
  2761.  
  2762.