home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / program / lynxlib / exinput.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-10-23  |  6.1 KB  |  198 lines
  1. /* This source file is part of the LynxLib miscellaneous library by
  2. Robert Fischer, and is Copyright 1990 by Robert Fischer.  It costs no
  3. money, and you may not make money off of it, but you may redistribute
  4. it.  It comes with ABSOLUTELY NO WARRANTY.  See the file LYNXLIB.DOC
  5. for more details.
  6. To contact the author:
  7.     Robert Fischer \\80 Killdeer Rd \\Hamden, CT   06517   USA
  8.     (203) 288-9599     fischer-robert@cs.yale.edu                 */
  9.  
  10. #include <e_osbind.h>
  11. #include <nobdefs.h>
  12. #include <gemdefs.h>
  13. #include <exinput.h>
  14. /* --------------------------------------------------------- */
  15. /* The box which is displayed above file selector */
  16. char nul[] = 0;
  17.  
  18. MW_TEDINFO name_tedinfo = {0L, nul, nul, 3, 6, TE_CNTR, 0x1180, 0x0, -1, 5,1};
  19. MW_OBJECT name_box[2] = {
  20.     -1,  1,  1,  G_BOX,   NONE, OUTLINED, 0x21100L, 0,0, 38,2,
  21.      0, -1, -1, G_TEXT, LASTOB,   NORMAL, &name_tedinfo, 0,0, -1,-1
  22. };
  23. #define BOX_W 640        /* Width of box in 1/16 of characters */
  24. #define BOX_H 24
  25. #define BOX_RAISE 172    /* Amount to raise box from center */
  26.  
  27. /* --------------------------------------------------------- */
  28. int otos_fsel_exinput(path, name, button, msg)
  29. /* Works like fsel_exinput, but on old versions of TOS */
  30. char *path;        /* Path name to display, including *.* */
  31. char *name;        /* Name of file selected */
  32. int *button;    /* Button selected */
  33. char *msg;        /* Message to display above file selector */
  34. {
  35. wh ch_size;        /* Width & Height of characters */
  36. xywh center;    /* Place that GEM puts centered box */
  37. int dum;
  38. OBJECT *d = name_box;        /* Mess with type checking */
  39.     /* Get character size */
  40.     graf_handle(WH_PTR(ch_size), &dum, &dum);
  41.  
  42.     /* Set up the outside box */
  43.     d[0].ob_width = (BOX_W * ch_size.w) >> 4;
  44.     d[0].ob_height = (BOX_H * ch_size.h) >> 4;
  45.     form_center(d, XYWH_PTR(center));
  46.     d[0].ob_y -= (BOX_RAISE * ch_size.h) >> 4;
  47.  
  48.     /* Set up inside string */
  49.     d[1].ob_width = d[0].ob_width;
  50.     d[1].ob_height = d[0].ob_height;
  51.     name_tedinfo.te_ptext = msg;
  52.     name_tedinfo.te_txtlen = strlen(msg) + 1;
  53.  
  54.     /* Draw the box and let system take over */
  55.     dial_form(d, FMD_START);            /* Draw the box */
  56.     objc_draw(d, 0, 256, 0, 0, 0, 0);
  57.     dum = fsel_input(path, name, button);
  58.     dial_form(d, FMD_FINISH);            /* Undraw the box */
  59.     return dum;
  60. }
  61. /* --------------------------------------------------------- */
  62. #define FSEL_EXINPUT 91            /* AES call number of fsel_exinput() */
  63. #define PATCH_CTRL 1    /* Set to 1 if library hasn't been patched */
  64. extern char     ctrl_cnts[115][3];
  65. extern int      int_out[];
  66. extern long     addr_in[];
  67. extern          crys_if();
  68. int fsel_exinput(path, file, button, label)
  69. /* Binding to the new AES call, as found in the Rainbow TOS */
  70. /* developer's release notes, August 7, 1989, page 26 */
  71. int *path, *file;
  72. int *button;
  73. char *label;
  74. {
  75. register int *i;
  76. register long *a;
  77. register char *c;
  78. LONG usp;
  79. unsigned TOS_version;
  80.  
  81.     /* Get TOS version number */
  82.     Gosuper(usp);
  83.     TOS_version = SYSBASE->version;
  84.     Gouser(usp);
  85.  
  86.     /* if old TOS version, just do get_file */
  87.     if (TOS_version < 0x0104)
  88.         return otos_fsel_exinput(path, file, button, label);
  89.  
  90. #if PATCH_CTRL
  91.     /* Patch ctrl_cnts array with correct control array parameters */
  92.     c = &(ctrl_cnts[FSEL_EXINPUT-10][0]);
  93.     if ((c[1] != 2)||(c[2] != 3)) {
  94.         *(c++) = 0;
  95.         *(c++) = 2;
  96.         *c = 3;
  97.     }
  98. #endif
  99.  
  100.     /* Set up parameter blocks */
  101.     i = int_out;
  102.     a = addr_in;
  103.     *a++ = (long)path;
  104.     *a++ = (long)file;
  105.     *a = (long)label;
  106.  
  107.     /* Call AES */
  108.     crys_if(FSEL_EXINPUT);
  109.  
  110.     /* and return */
  111.     *button = i[1];
  112.     return(i[0]);
  113. }
  114. /* --------------------------------------------------------- */
  115. BOOLEAN get_file(path, name, msg)
  116. /* Shell to fsel_exinput */
  117. /* This is included to retain compatibility with the old Wunk library. */
  118. /* It is now just a shell to fsel_exinput, to change around the way the */
  119. /* arguments are passed. */
  120. /* Returns TRUE for OK, FALSE for Cancel */
  121. char *path;        /* Path name to display, including *.* */
  122. char *name;        /* Name of file selected */
  123. char *msg;        /* Message to display above file selector */
  124. {
  125. int dum;
  126.     fsel_exinput(path, name, &dum, msg);
  127.     return (BOOLEAN)dum;
  128. }
  129. /* --------------------------------------------------------- */
  130. BOOLEAN get_folder(idir, message)
  131. char *idir;
  132. char *message;
  133. {
  134. fle_name path, name;
  135. int l;
  136.     strcpy(path, idir);
  137.     resolve_dname(path, "");
  138.     strcat(path, "*.*");
  139.  
  140.     name[0] = NIL;
  141.  
  142.     if (get_file(path, name, message)) {
  143.         /* Extract directory part of path name */
  144.         l = strlen(path);
  145.         for (; path[l] != '\\'; l--);
  146.         idir[l+1] = NIL;
  147.         for (; l >= 0; l--) idir[l] = path[l];
  148.  
  149.         /* Fill out missing parts */
  150.         resolve_dname(idir, "");
  151.         return TRUE;
  152.     }
  153.     return FALSE;
  154. }
  155. /* ---------------------------------------------------------------- */
  156. /* High-level file-selector routines, to avoid pathname hacking */
  157. /* by Robert Fischer January 3, 1991 */
  158. /* ---------------------------------------------------------- */
  159. set_fsel(fname, wild, fsel)
  160. /* Pulls apart fname and sets fsel's components to it */
  161. char *fname;
  162. char *wild;
  163. fsel_rec *fsel;
  164. {
  165. fle_name stringg;
  166. int i;
  167.     strcpy(stringg, fname);
  168.     resolve_pname(stringg, "");
  169.  
  170.     for (i = strlen(stringg); stringg[i] != '\\'; i--);
  171.     stringg[i] = NIL;
  172.     strncpy(fsel->path, stringg, MAXPATH);
  173.     fsel->path[i] = '\\';
  174.     strncpy(fsel->path + i + 1, wild, MAXPATH - i - 1);
  175.  
  176.     strncpy(fsel->name, stringg + i + 1, MAXLEAF);
  177. }
  178. /* ---------------------------------------------------------- */
  179. BOOLEAN do_fsel(message, fname, fsel)
  180. /* Returns TRUE for success */
  181. char *message;      /* Plan to read or write? */
  182. char *fname;    /* Output path */
  183. fsel_rec *fsel; /* The defaults to use */
  184. {
  185. int i,j;
  186.     resolve_pname(fsel->path, "");
  187.     fsel_exinput(fsel->path, fsel->name, &i, message);
  188.     if (i != 0) {
  189.         i = strlen(fsel->path);
  190.         for (; i >= 0 && fsel->path[i] != '\\'; i--);
  191.         for (j = i; j >= 0; j--) fname[j] = fsel->path[j];
  192.         strcpy(fname + i + 1, fsel->name);
  193.  
  194.         return TRUE;
  195.     } else return FALSE;
  196. }
  197. /* --------------------------------------------------------------- */
  198.