home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 455.lha / CLIanywhere_v1.0 / OpenScreen.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-12-10  |  7.5 KB  |  300 lines
  1. ;/*
  2. FailAt 1
  3. LC -M -v -iINCLUDE:CompactH/ OpenScreen.c
  4. Blink lib:c.o OpenScreen.o LIB lib:lc.lib SC SD ND
  5. Quit
  6.  
  7. CLPs
  8.  
  9.   -t$       Title text
  10.   -w#       Width
  11.   -h#       Height
  12.   -d#       Depth
  13.   -c#,#,... Colors (in HEX, comma delimited, blank uses default)
  14.   -e#       top Edge
  15.   -1#       pen 1 (DetailPen)
  16.   -2#       pen 2 (BlockPen)
  17.   -H        HIRES on
  18.   -L        HIRES off (Lowres)
  19.   -I        LACE on (Interlace)
  20.   -N        LACE off (No interlace)
  21.   -B        SCREENBEHIND on
  22.  
  23. */
  24.  
  25. #include <stdio.h>
  26. #include <dos.h>
  27. #include <string.h>
  28. #include <ctype.h>
  29. #include <intuition/intuition.h>
  30. #include <exec/memory.h>
  31. #include <proto/intuition.h>
  32. #include <proto/exec.h>
  33. #include <proto/graphics.h>
  34.  
  35. #define skip_white(p)   while(isspace(*(p))) (p)++
  36.  
  37. struct NewScreen ns = {0,0,0,0,0,0,0,0,WBENCHSCREEN,NULL,NULL,NULL,NULL};
  38.  
  39. struct Screen wb;
  40.  
  41. UWORD colors[32];
  42.  
  43. byte custom_palette = 0;
  44.  
  45. short hex_val(char x)
  46. {
  47.   if (!isxdigit(x)) return(-1);
  48.   if (isalpha(x))
  49.     {
  50.       return( (short)( toupper((short)x) - (short)'A' + (short)10 ) );
  51.     }
  52.   return( (short)( (short)x - (short)'0' ) );
  53. }
  54.  
  55. void set_colors(char *c)
  56. {
  57.   short dgtcnt;
  58.   short num[3];
  59.   short color;
  60.   short reg;
  61.   short val;
  62.  
  63.   for(reg = 0; (*c) && (reg < 32);)
  64.     {
  65.       skip_white(c);
  66.       if (!*c) break;
  67.  
  68.       if (*c == ',')
  69.         {
  70.           color = GetRGB4(wb.ViewPort.ColorMap,reg);
  71.         }
  72.       else
  73.         {
  74.           for(dgtcnt = 0; (dgtcnt<3) && (*c) && (*c != ',') && (!isspace(*c));)
  75.             {
  76.               num[dgtcnt] = hex_val(*c);
  77.               if (num[dgtcnt] == -1)
  78.                 {
  79.                   printf("illegal digit in colors arg\n");
  80.                   return;
  81.                 }
  82.               c++;
  83.               dgtcnt++;
  84.             }
  85.           skip_white(c);
  86.           if ( (dgtcnt > 3) || ( (*c) && (*c != ',') ) )
  87.             {
  88.               printf("illegal value in colors arg\n");
  89.               return;
  90.             }
  91.           for(val = 1, color = 0; dgtcnt > 0; dgtcnt--, val *= 16)
  92.             {
  93.               color += (num[dgtcnt-1] * val);
  94.             }
  95.         }
  96.       colors[reg] = color;
  97.       reg++;
  98.       if (*c == ',') c++;
  99.     }
  100.  
  101.   if (reg < 32)
  102.     {
  103.       for(; reg < 32; reg++)
  104.         {
  105.           colors[reg] = GetRGB4(wb.ViewPort.ColorMap,reg);
  106.         }
  107.     }
  108.  
  109.   custom_palette = 1;
  110. }
  111.  
  112. void usage(void)
  113. {
  114. char *msg =
  115. "CLI Usage: OpenScreen [switches]\n\
  116. \nValid switches are: ('$' equals string data; '#' = numeric data)\n\
  117.   -t$       set screen Title text\n\
  118.   -w#       set screen Width\n\
  119.   -h#       set screen Height\n\
  120.   -d#       set screen Depth (number of bitplanes)\n\
  121.   -c#,#,... set screen Colors (in HEX, comma delimited)\n\
  122.   -e#       set screen initial top Edge\n\
  123.   -1#       set screen pen 1 (DetailPen)\n\
  124.   -2#       set screen pen 2 (BlockPen)\n\
  125.   -H        set Hi-res on\n\
  126.   -L        set Lo-res on\n\
  127.   -I        set Interlace on\n\
  128.   -N        set interlace off\n\
  129.   -B        open screen Behind all others\n\
  130. \n\
  131. Options that are not specified use defaults.  All defaults are\n\
  132. taken from the Workbench screen.  Note that the Colors\n\
  133. option (-c) requires numeric data to be in hexadecimal\n\
  134. notation.  You may get the proper hex values from the\n\
  135. \"palette\" program found on the Workbench Extras disk.\n\
  136. The color values are listed in order from color 0 through\n\
  137. color N (the number of colors that the screen will use).\n\
  138. Individual color values that are unspecified use Workbench\n\
  139. defaults.  If any option requires space character(s) in it the\n\
  140. whole option MUST be enclosed in double-quotes (actually, the\n\
  141. only option which this should effect is 'set Title text' (-t).\n\
  142. Screen type is always set to WBENCHSCREEN, otherwise it\n\
  143. would be unusable.\n\
  144. \n";
  145.   printf("%s",msg);
  146.   exit(5);
  147. }
  148.  
  149. main(int argc, char *argv[])
  150. {
  151.   struct Screen *s;
  152.   int len, cnt, rc=0;
  153.   char *name, *c;
  154.  
  155.   if (argc == 0) exit(0); /* real programs don't do Workbench :) */
  156.  
  157.   printf("\nOpenScreen v1.0 -- by Ray Lambert\n\n");
  158.  
  159.   IntuitionBase = (struct IntuitonBase *)OpenLibrary("intuition.library",33L);
  160.   if (!IntuitionBase)
  161.     {
  162.       printf("Can't open IntuitionBase!\n\n");
  163.       exit(20);
  164.     }
  165.   GfxBase = (struct GfxBase *)OpenLibrary("graphics.library",33L);
  166.   if (!GfxBase)
  167.     {
  168.       printf("Can't open GfxBase!\n\n");
  169.       rc = 20;
  170.       goto xit;
  171.     }
  172.  
  173. /*
  174. **  get default Workbench stuff
  175. */
  176.   GetScreenData((char *)&wb,sizeof(struct Screen),WBENCHSCREEN,NULL);
  177.   ns.Width      = wb.ViewPort.DWidth;
  178.   ns.Height     = wb.ViewPort.DHeight;
  179.   ns.Depth      = wb.BitMap.Depth;
  180.   ns.DetailPen  = wb.DetailPen;
  181.   ns.BlockPen   = wb.BlockPen;
  182.   ns.ViewModes  = (wb.ViewPort.Modes & (HIRES|LACE));
  183.   ns.Type       = (wb.Flags & SCREENTYPE);
  184.  
  185. /*
  186. **  scan command line
  187. */
  188.   for(cnt = 1; cnt < argc; cnt++)
  189.     {
  190.       if (argv[cnt][0] == '-')
  191.         {
  192.           c = &argv[cnt][2];
  193.           switch(argv[cnt][1])
  194.             {
  195.               case 't': /* Title text */
  196.                 {
  197.                   len = (strlen(c) + 1);
  198.                   name = AllocMem(len,NULL);
  199.                   if (name)
  200.                     {
  201.                       strcpy(name,c);
  202.                       ns.DefaultTitle = (UBYTE *)name;
  203.                     }
  204.                   continue;
  205.                 }
  206.               case 'w': /* Width */
  207.                 {
  208.                   ns.Width = atoi(c);
  209.                   continue;
  210.                 }
  211.               case 'h': /* Height */
  212.                 {
  213.                   ns.Height = atoi(c);
  214.                   continue;
  215.                 }
  216.               case 'd': /* Depth */
  217.                 {
  218.                   ns.Depth = atoi(c);
  219.                   continue;
  220.                 }
  221.               case 'c': /* Colors */
  222.                 {
  223.                   set_colors(c);
  224.                   continue;
  225.                 }
  226.               case 'e': /* top Edge */
  227.                 {
  228.                   ns.TopEdge = atoi(c);
  229.                   continue;
  230.                 }
  231.               case '1': /* pen 1 (DetailPen) */
  232.                 {
  233.                   ns.DetailPen = atoi(c);
  234.                   continue;
  235.                 }
  236.               case '2': /* pen 2 (BlockPen) */
  237.                 {
  238.                   ns.BlockPen = atoi(c);
  239.                   continue;
  240.                 }
  241.               case 'H': /* HIRES on */
  242.                 {
  243.                   ns.ViewModes |= HIRES;
  244.                   continue;
  245.                 }
  246.               case 'L': /* HIRES off (Low-res) */
  247.                 {
  248.                   ns.ViewModes &= (~HIRES);
  249.                   continue;
  250.                 }
  251.               case 'I': /* LACE on (Interlace) */
  252.                 {
  253.                   ns.ViewModes |= LACE;
  254.                   continue;
  255.                 }
  256.               case 'N': /* LACE off (No interlace) */
  257.                 {
  258.                   ns.ViewModes &= (~LACE);
  259.                   continue;
  260.                 }
  261.               case 'B': /* SCREENBEHIND on */
  262.                 {
  263.                   ns.Type |= SCREENBEHIND;
  264.                   continue;
  265.                 }
  266.             }
  267.         }
  268.       else
  269.         {
  270.           if (strcmp(argv[cnt],"?") == 0) usage();
  271.         }
  272.       printf("unknown command line option: \"%s\"\n",argv[cnt]);
  273.     }
  274.  
  275. /*
  276. **  open the screen
  277. */
  278.   s = OpenScreen(&ns);
  279.   if (!s)
  280.     {
  281.       printf("unable to open your screen\n\n");
  282.       rc = 20;
  283.       goto xit;
  284.     }
  285.  
  286. /*
  287. **  use custom colors (if specified)
  288. */
  289.   if (custom_palette == 1)
  290.     {
  291.       LoadRGB4(&s->ViewPort,colors,32);
  292.     }
  293.  
  294.   printf("screen opened okay\n\n");
  295. xit:
  296.   CloseLibrary((struct Library *)IntuitionBase);
  297.   CloseLibrary((struct Library *)GfxBase);
  298.   exit(rc);
  299. }
  300.