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