home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / apps / science / readseq / macinit.c < prev    next >
C/C++ Source or Header  |  1992-12-30  |  7KB  |  303 lines
  1. /*
  2.   macinit.c
  3.   -- Macintosh initializations, then call real main
  4.  
  5. Note: compile this segment as Main for generic 68000 processor, so it won't
  6.  fail on generic mac
  7.  
  8. */
  9.  
  10. #pragma segment Main
  11.  
  12. #include <Types.h>
  13. #include <stdio.h>
  14. #include <ctype.h>
  15. #include <string.h>
  16. #include <StdLib.h>
  17.  
  18. #include <Quickdraw.h>
  19. #include <Memory.h>
  20. #include <OSUtils.h>
  21. #include <ToolUtils.h>
  22. #include <Windows.h>
  23. #include <Palettes.h>
  24. #include  <dialogs.h>
  25. #include  <StandardFile.h>
  26. #include  <Events.h>
  27. //#include <Menus.h>
  28. //#include <Fonts.h>
  29.  
  30.  
  31. Boolean StopKey()
  32. {
  33. EventRecord ev;
  34.  
  35.   if (EventAvail( keyDownMask+autoKeyMask, &ev)) {
  36.     if (  (ev.modifiers & cmdKey)
  37.      && ((char)(ev.message & charCodeMask) == '.') ) {
  38.         SysBeep(1);
  39.       (void) GetNextEvent( keyDownMask+autoKeyMask, &ev);
  40.       return true;
  41.       }
  42.     }
  43.   return false;
  44. }
  45.  
  46. Boolean cmdKeyIsDown()
  47. { KeyMap  kmap;
  48.   GetKeys(&kmap);
  49.   return BitTst(kmap, (sizeof(KeyMap)*8) - 55);
  50. }
  51.  
  52. Boolean shiftKeyIsDown()
  53. {   KeyMap  kmap;
  54.   GetKeys(&kmap);
  55.   return BitTst(kmap, (sizeof(KeyMap)*8) - 56);
  56. }
  57.  
  58. Boolean capsLockIsDown()
  59. { KeyMap  kmap;
  60.   GetKeys(&kmap);
  61.   return BitTst(kmap, (sizeof(KeyMap)*8) - 57);
  62. }
  63.  
  64. Boolean optionKeyIsDown()
  65. { KeyMap  kmap;
  66.   GetKeys(&kmap);
  67.   return BitTst(kmap, (sizeof(KeyMap)*8) - 58);
  68. }
  69.  
  70. Boolean MouseButton()
  71. {
  72.   return Button();
  73. }
  74.  
  75. Boolean Keypress()
  76. { EventRecord ev;
  77.   return EventAvail( keyDownMask+keyUpMask+autoKeyMask, &ev);
  78. }
  79.  
  80.  
  81.  
  82. char *StdGetFile(
  83.   char*  prompt,
  84.   OSType fileTypes[],
  85.   int    nFileTypes)
  86. {
  87.   Point       wher;       /*where to display dialog*/
  88.   SFReply     reply;      /*reply record*/
  89.   short       len;
  90.   static char filename[80] = "\0";
  91.  
  92.   wher.h = 80;
  93.   wher.v = 90;
  94.   if (optionKeyIsDown()) nFileTypes=0;
  95.  
  96.   SFGetFile(wher, prompt, nil, nFileTypes, fileTypes, nil, &reply);
  97.  
  98.   if (reply.good) {
  99.       len = SetVol(nil, reply.vRefNum);
  100.     len = reply.fName[0];
  101.     strncpy(filename, (char *)(&reply.fName[1]), len);
  102.     filename[len]= '\0';
  103.     return filename;
  104.     }
  105.   else
  106.     return NULL;
  107. }
  108.  
  109.  
  110. int readCmdOptions(FILE *cl, char *progname, char ***argv)
  111. /* command line reader for Mac/MPW  -- dgg */
  112. {
  113. #define MAXS  255
  114. #define addarg(sptr)  if (strlen(sptr)>0) { \
  115.   targv = (char **) realloc( targv, (argc+1) * sizeof(char *)); \
  116.   targv[argc] = (char *) malloc(1+strlen(sptr) * sizeof(char)); \
  117.   strcpy( targv[argc], sptr);  \
  118.   argc++; }
  119.  
  120.   char  *pword, st[MAXS];
  121.   int   argc = 0;
  122.   char  **targv;
  123.  
  124.   targv = (char **) malloc(1);
  125.   if (progname==NULL) progname = "program";
  126.   addarg( progname);
  127.   fgets( st, MAXS, cl);
  128.   if (!feof(cl) && st!=NULL && *st!=0) {
  129.     pword = strtok( st, "\ \n");
  130.     while (pword!=NULL) {
  131.       addarg( pword);
  132.       pword = strtok( NULL, "\ \n");
  133.       }
  134.     }
  135.  
  136.   *argv = targv;
  137.   return argc;
  138. }
  139.  
  140. int ccommand(char ***argv)
  141. {
  142.   int argc;
  143.   char  **targv;
  144.  
  145.   argc = readCmdOptions(stdin, *argv[0], &targv);
  146.   *argv = targv;
  147.   return argc;
  148. }
  149.  
  150.  
  151.  
  152.  
  153. extern _DataInit();
  154.  
  155. //#define VERSION     curSysEnvVers
  156. #define nocolorID   130
  157. #define no68020     133
  158. #define no68881     132
  159. #define no256       134
  160. #define nosys6      135
  161.  
  162. void MacInit()
  163. {
  164. SysEnvRec   theWorld;
  165. OSErr       OSys;
  166. DialogPtr   crashDia;
  167. long        tick;
  168.  
  169.     UnloadSeg(_DataInit);
  170.  
  171.     InitGraf((Ptr)&qd.thePort);
  172.     //InitFonts();
  173.     InitWindows();
  174.     //InitMenus();
  175.     //TEInit();
  176.     InitDialogs(nil);
  177.     InitCursor();
  178.  
  179. /*______________________________________________________*/
  180. /*            If not right Machine then stop            */
  181. /*______________________________________________________*/
  182.   OSys = SysEnvirons( curSysEnvVers,&theWorld);
  183.  
  184.   /*if(!theWorld.hasColorQD) {
  185.     crashDia = GetNewDialog (nocolorID, nil, (WindowPtr) -1);
  186.     DrawDialog (crashDia);
  187.     Delay (300, &tick);
  188.     ExitToShell();
  189.     }*/
  190.   /*if(theWorld.processor < env68020) {
  191.     crashDia = GetNewDialog (no68020, nil, (WindowPtr) -1);
  192.     DrawDialog (crashDia);
  193.     Delay (300, &tick);
  194.     ExitToShell();
  195.     }*/
  196.   /*if(!theWorld.hasFPU) {
  197.     crashDia = GetNewDialog (no68881, nil, (WindowPtr) -1);
  198.     DrawDialog (crashDia);
  199.     Delay (300, &tick);
  200.     ExitToShell();
  201.     }
  202.   if(theWorld.systemVersion < 0x0600) {
  203.     crashDia = GetNewDialog (nosys6, nil, (WindowPtr) -1);
  204.     DrawDialog (crashDia);
  205.     Delay (300, &tick);
  206.     ExitToShell();
  207.     }*/
  208.  
  209. #ifdef UnDeFineD
  210. /*______________________________________________________*/
  211. /*                     Set Rects                        */
  212. /*______________________________________________________*/
  213.   screenRect = qd.screenBits.bounds;
  214.   offLeft = 0;
  215.   offTop = 0;
  216.   offRight = screenRect.right;
  217.   offBottom = screenRect.bottom;
  218.   SetRect(&BaseRect, 40, 60, 472, 282);
  219.   tempRgn = GetGrayRgn();
  220.   HLock ((Handle) tempRgn);
  221.   TotalRect = (**tempRgn).rgnBBox;
  222.   SetRect(&minRect, 80, 80, (**tempRgn).rgnBBox.right - 40,
  223.         (**tempRgn).rgnBBox.bottom - 40);
  224.   HUnlock ((Handle) tempRgn);
  225.  
  226. /*______________________________________________________*/
  227. /*        Open Window & set Palette & Picture           */
  228. /*______________________________________________________*/
  229.   theGDevice = GetMainDevice();
  230.   HLock ((Handle) theGDevice);
  231.   mycolors = (**(**theGDevice).gdPMap).pmTable;
  232.   numcolor = (**(**theGDevice).gdPMap).pixelSize;
  233.   HUnlock((Handle) theGDevice);
  234.   switch (numcolor) {
  235.     case 1:
  236.       numcolor = 2;
  237.       break;
  238.     case 2:
  239.       numcolor = 4;
  240.       break;
  241.     case 4:
  242.       numcolor = 16;
  243.       break;
  244.     case 8:
  245.       numcolor = 256;
  246.       break;
  247.     }
  248.  
  249.   myWindow = NewCWindow(nil, &BaseRect, "", true, zoomDocProc,
  250.               (WindowPtr) -1, true, 150);
  251.   SetPort((WindowPtr) myWindow);
  252.   DrawGrowIcon (myWindow);
  253.  
  254.   srcPalette = NewPalette (numcolor, mycolors, pmCourteous, 0);
  255.   SetPalette ((WindowPtr) myWindow, srcPalette, true);
  256.  
  257. /*______________________________________________________*/
  258. /*                    Set menus                         */
  259. /*______________________________________________________*/
  260.   mymenu0 = GetMenu(appleID);
  261.   AddResMenu(mymenu0, 'DRVR');
  262.   InsertMenu(mymenu0,0);
  263.   mymenu1 = newmenu(129,"File");
  264.   appendmenu(mymenu1,"Start;Quit");
  265.   InsertMenu(mymenu1,0);
  266.   mymenu2 = newmenu(130,"Edit");
  267.   InsertMenu(mymenu2,0);
  268.   DrawMenuBar();
  269.  
  270. /*______________________________________________________*/
  271. /*                  Init variables                      */
  272. /*______________________________________________________*/
  273.   DoneFlag = false;
  274.   yieldTime = 0;
  275.   return;
  276. #endif
  277.  
  278. }
  279.  
  280.  
  281.  
  282.  
  283. main(int argc, char *argv[])
  284. {
  285.   Boolean loop = true;
  286.   char **myargv;
  287.   int   myargc;
  288.  
  289.   /* MacInit();  -- SIOW library handles this */
  290.   do {
  291.     fprintf(stderr,"\nEnter command line for %s [cmd-Q to quit]\n", argv[0]);
  292.     fprintf(stderr,"-> %s ",argv[0]);
  293.     myargv = argv;
  294.     myargc = ccommand(&myargv);
  295.  
  296.     siow_main(myargc, myargv);
  297.     fflush(stdout);
  298.  
  299.     } while (true);
  300.   exit(0);
  301. }
  302.  
  303.