home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / new / misc / math / cp / source / main.c < prev    next >
C/C++ Source or Header  |  1994-05-01  |  12KB  |  443 lines
  1. #include "cp.h"
  2. #include "spr.h"
  3.  
  4. UBYTE     *version_string     = "$VER: cP 4.2 (30.4.94)";
  5.  
  6. LONG      __oslibversion      = 37;     /* requires KickStart 37 */
  7. LONG      __BackGroundIO      = 1;
  8. LONG      __stack             = 8192;   /* stack size doesn't seem to work for cli proc??? */
  9. UBYTE     *__procname         = "cPlot"; /* process name */
  10.  
  11. extern BPTR _Backstdout;      /* keep stdout till we get past startup */
  12.  
  13. struct List         *SetList       = NULL;
  14. struct RDArgs       *cli_args      = NULL;
  15. struct RDArgs       *env_args      = NULL;
  16. struct TextFont     *fontPtr       = NULL;
  17. struct TextAttr     CPFont         = { (STRPTR)"topaz.font", 8, 0x00, 0x00 };
  18. struct TextAttr     *cPFont        = NULL;
  19. struct AnchorPath   *anchorpath;
  20.  
  21. AREXXCONTEXT    RexxStuff;
  22.  
  23. /* Set Defaults */
  24.  
  25. BOOL grid    = FALSE;     /* No Grid */
  26. BOOL LOGX    = FALSE;     /* Lin X */
  27. BOOL LOGY    = FALSE;     /* Lin Y */
  28. BOOL sym     = FALSE;     /* No Symbols */
  29. BOOL DEFS    = FALSE;     /* Don't make cP */
  30. BOOL MONO    = FALSE;     /* color default */
  31. BOOL CPANEL  = TRUE;      /* control panel on */
  32. BOOL NOFNAME = FALSE;     /* usually put filename boxes on screen */
  33. BOOL BEHIND  = FALSE;     /* usually open screen to front */
  34. BOOL RealTime = FALSE;
  35.  
  36. LONG Disp = HIRESLACE_KEY;    /* Hires Lace Default */
  37.  
  38. UBYTE *path;        /* extern pointer to Path */
  39. UBYTE Path[255];    /* Path String same as path but not external */
  40.  
  41. UBYTE *fName;        /* extern pointer to fontname */
  42. UBYTE fontName[32]; /* im too lazy to allocate dynamically */
  43.  
  44. UBYTE *MyName;        /* extern pointer to fontname */
  45. UBYTE Name[32];
  46.  
  47. UBYTE *XLAB=NULL;
  48. UBYTE xlabel[32];
  49. UBYTE *YLAB=NULL;
  50. UBYTE ylabel[32];
  51. UBYTE *TITLE=NULL;
  52. UBYTE title[64];
  53.  
  54.  
  55. LONG points    = 1000000; /* should be enough max per set */
  56. LONG thin      = 1;    /* dont depopulate */
  57.  
  58. WORD lastcolor = 15;     /* 16 colors default palette */
  59. WORD depth     = 4;
  60.  
  61. LONG *idkey;             /* pointer to Display ID */
  62.  
  63. UBYTE **files=NULL;           /* pointer to pointer to FILES/M */
  64.  
  65. UBYTE RexxName[32];
  66.  
  67. #define ENVSIZE 1024     /* max char length for envvar */
  68.  
  69. UBYTE *template = "FILES=WILD/M,LX=LOGX/S,LY=LOGY/S,GRID/S,SYM/S,ID=DISPLAYID/N/K,FONT/K,FS=SIZE/N/K,LORES/S,HIRES/S,LACE/S,SETDEF/S,W=WIDTH/N/K,H=HEIGHT/N/K,P=POINTS/N/K,T=THIN/N/K,D=DEPTH/N/K,MONO/S,CPANEL/S,NOFN=NOFNBOXES/S,OB=OPENBEHIND/S,MYNAME/K,XLAB/K,YLAB/K,TITLE/K,REALTIME/S,SD=DIGITS/N/K";
  70.  
  71. LONG cli_array[ 27 ] = { 0L, 0L, 0L, 0L, 0L ,0L ,0L ,0L ,0L ,0L ,0L ,0L ,0L ,0L ,0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L};
  72. LONG env_array[ 27 ] = { 0L, 0L, 0L, 0L, 0L ,0L ,0L ,0L ,0L ,0L ,0L ,0L ,0L ,0L ,0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L};
  73.  
  74. extern void exit(int);   /* from stdlib.h */
  75.  
  76. /* Use the same function to process command line and envvar */
  77.  
  78. void arg_array_Parse( LONG *arg_array )
  79. {
  80. LONG *ptr;
  81.  
  82.      if ( arg_array[ 0 ] ) files = ( UBYTE ** ) arg_array[ 0 ];
  83.  
  84.      if ( arg_array[ 1 ] ) LOGX = TRUE;
  85.      if ( arg_array[ 2 ] ) LOGY = TRUE;
  86.  
  87.      if ( arg_array[ 3 ] )
  88.        {
  89.           if ( grid ) grid = FALSE;
  90.           else        grid = TRUE;
  91.        }
  92.      if ( arg_array[ 4 ] )
  93.        {
  94.           if ( sym ) sym = FALSE;
  95.           else       sym = TRUE;
  96.        }
  97.  
  98.      if ( arg_array[ 5 ] )
  99.        {
  100.           ptr = (LONG *)arg_array[ 5 ];
  101.           Disp = *ptr;
  102.        }
  103.  
  104.      if ( arg_array[ 6 ] )
  105.        {
  106.           strcpy( fName, (UBYTE *)arg_array[ 6 ]);
  107.           strcat( fName, ".font");
  108.           cPFont->ta_Name = (STRPTR)fName;
  109.        }
  110.  
  111.      if ( arg_array[ 7 ] )
  112.        {
  113.           ptr = (LONG *)arg_array[ 7 ];
  114.           cPFont->ta_YSize = (UWORD) *ptr;
  115.        }
  116.  
  117.      if ( arg_array[ 8 ] )  Disp  = LORES_KEY;
  118.      if ( arg_array[ 9 ] )  Disp  = HIRES_KEY;
  119.      if ( arg_array[ 10 ] ) Disp |= LORESLACE_KEY;
  120.      if ( arg_array[ 11 ] ) DEFS  = TRUE;
  121.  
  122.      if ( arg_array[ 12 ] )
  123.        {
  124.           ptr = (LONG *)arg_array[ 12 ];
  125.           SWIDTH = *ptr;
  126.        }
  127.  
  128.      if ( arg_array[ 13 ] )
  129.        {
  130.           ptr = (LONG *)arg_array[ 13 ];
  131.           SHEIGHT = *ptr;
  132.        }
  133.  
  134.      if ( arg_array[ 14 ] )
  135.        {
  136.           ptr = (LONG *)arg_array[ 14 ];
  137.           points = *ptr;
  138.        }
  139.      if ( arg_array[ 15 ] )
  140.        {
  141.           ptr = (LONG *)arg_array[ 15 ];
  142.           thin = *ptr;
  143.           if (thin <= 0) thin = 1;
  144.        }
  145.      if ( arg_array[ 16 ] )
  146.        {
  147.           ptr = (LONG *)arg_array[ 16 ];
  148.           depth = (WORD)*ptr;
  149.  
  150.           if (depth <= 1 )
  151.             {
  152.                depth = 1;
  153.                lastcolor = 1;
  154.                MONO = TRUE;
  155.             }
  156.           if (depth == 2) lastcolor = 3;
  157.           if (depth == 3) lastcolor = 7;
  158.           if (depth >= 4)
  159.             {
  160.                depth = 4;
  161.                lastcolor = 15;
  162.             }
  163.        }
  164.      if ( arg_array[ 17 ] )
  165.        {
  166.           MONO  = TRUE;
  167.           depth = 1;
  168.           lastcolor = 1;
  169.        }
  170.      if ( arg_array[ 18 ] )
  171.        {
  172.           if ( CPANEL ) CPANEL = FALSE;
  173.           else          CPANEL = TRUE;
  174.        }
  175.      if ( arg_array[ 19 ] )
  176.        {
  177.           if ( NOFNAME ) NOFNAME = FALSE;
  178.           else           NOFNAME = TRUE;
  179.        }
  180.      if ( arg_array[ 20 ] )
  181.        {
  182.           if ( BEHIND ) BEHIND = FALSE;
  183.           else          BEHIND = TRUE;
  184.        }
  185.      if ( arg_array[ 21 ] )
  186.        {
  187.           strcpy( Name, (UBYTE *)arg_array[ 21 ]);
  188.        }
  189.      if ( arg_array[ 22 ] )
  190.        {
  191.           strcpy( xlabel, (UBYTE *)arg_array[ 22 ]);
  192.        }
  193.      if ( arg_array[ 23 ] )
  194.        {
  195.           strcpy( ylabel, (UBYTE *)arg_array[ 23 ]);
  196.        }
  197.      if ( arg_array[ 24 ] )
  198.        {
  199.           strcpy( title, (UBYTE *)arg_array[ 24 ]);
  200.        }
  201.      if ( arg_array[ 25 ] )
  202.        {
  203.           if ( RealTime ) RealTime = FALSE;
  204.           else            RealTime = TRUE;
  205.        }
  206.      if ( arg_array[ 26 ] )
  207.        {
  208.           ptr = (LONG *)arg_array[ 26 ];
  209.           precision = *ptr - 1;
  210.        }
  211.  
  212. }
  213.  
  214.  
  215. /* Clean up and die duh */
  216.  
  217. void Death( int v )
  218. {
  219.     if ( delwinWnd )     ClosedelwinWindow();
  220.  
  221.     if ( PlotWindowWnd ) ClosePlotWindowWindow();
  222.  
  223.     if ( Scr )           CloseDownScreen();
  224.  
  225.     if ( fontPtr )       CloseFont( fontPtr );
  226.  
  227.     FreeARexx(RexxStuff);
  228.  
  229.     FreeAllSets();
  230.  
  231.     if ( cli_args )      FreeArgs( cli_args );
  232.     if ( anchorpath )    FreeVec( anchorpath );
  233.  
  234.  
  235.     exit( v );
  236. }
  237.  
  238.  
  239. void main(int argc, char **argv)
  240. {
  241. ULONG sigs;
  242. ULONG rexxsigs;
  243. LONG  mres;
  244. struct List slist;
  245. LONG j = 0;
  246. BPTR lock;
  247. LONG len;
  248. UBYTE fault[300];
  249. UBYTE *environ;
  250. LONG alive;
  251.  
  252.  
  253.  
  254.      slist.lh_Head = (struct Node *) &slist.lh_Tail;
  255.      slist.lh_Tail = 0;
  256.      slist.lh_TailPred = (struct Node *) &slist.lh_Head;
  257.      slist.lh_Type = NT_DATA;
  258.  
  259.      SetList   = &slist;
  260.  
  261.      cPFont    = &CPFont;
  262.      fName     = &fontName[0];
  263.      path      = (STRPTR)Path;
  264.      MyName    = (STRPTR)Name;
  265.     XLAB      = (STRPTR)xlabel;
  266.     YLAB      = (STRPTR)ylabel;
  267.     TITLE     = (STRPTR)title;
  268.  
  269.     strcpy(MyName,&version_string[5]);
  270.  
  271.      if ( argc == 2 && Stricmp(argv[1],"?")==0)  /* give help and exit */
  272.        {
  273.           if ( _Backstdout )
  274.             {
  275.                 FPuts(_Backstdout, template);
  276.                FPutC ( _Backstdout, '\n');
  277.                Close( _Backstdout);
  278.             }
  279.           Death ( 1 );
  280.       }       
  281.  
  282.  
  283.  
  284.      /* Parse envvar CPCONFIG */
  285.  
  286.      if (( environ = AllocVec( ENVSIZE, MEMF_CLEAR )))
  287.        {
  288.           len = GetVar( "CPCONFIG", environ, ENVSIZE, GVF_GLOBAL_ONLY );
  289.           if ( len > 0 )
  290.             {
  291.                environ[len]   = '\n';
  292.                environ[++len] = '\0';
  293.  
  294.                if ((env_args = (struct RDArgs *)AllocDosObject(DOS_RDARGS, TAG_DONE)))
  295.                  {
  296.                     env_args->RDA_Source.CS_Buffer = environ;
  297.                     env_args->RDA_Source.CS_Length = len;
  298.                     env_args->RDA_Source.CS_CurChr = 0L;
  299.  
  300.                    memset(env_array,0,sizeof(env_array));
  301.  
  302.                     if( ReadArgs( template, (LONG *)&env_array[ 0 ], env_args ))
  303.                          arg_array_Parse( &env_array[ 0 ] );
  304.  
  305.                     FreeArgs( env_args );
  306.                     FreeDosObject(DOS_RDARGS, env_args);
  307.                  }
  308.             }
  309.           FreeVec( environ );
  310.        }
  311.  
  312.      /* Read command line with ReadArgs */
  313.  
  314.      me