home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / EFFO / forum23.lzh / f23b / SOFTWARE / PDRAW / IOread.c < prev    next >
Text File  |  1992-01-15  |  8KB  |  302 lines
  1. /***  IOread.c   ***/
  2.  
  3. #include <stdio.h>
  4. #include <strings.h>
  5. #include <math.h>
  6. #include "header.h"
  7. #ifndef OSK
  8. #include "Xdefs.h"
  9. #endif
  10.  
  11. /* Read the command line */
  12. fileopen(argc,argv)
  13. int argc;
  14. char **argv;
  15. { 
  16.    FILE     *optionfile, *fopen();
  17.    char     *strcpy();
  18.    double   atof();
  19.    pfileptr insert_pfile();
  20.    extern   char   printer[MAXCHAR];
  21.    extern   double scale;
  22.    extern   int    hiddenline, nosort, equalscale, postscript;
  23.    int      i,FILEFOUND;
  24. #ifdef OSK
  25.    char     *progname;                      /* program name */
  26.    char     *geometry;                      /* window geometry */
  27.    progname     = argv[0];
  28. #endif
  29.  
  30. #ifndef  OSK
  31.    /* initialize general X arguments */
  32.    progname     = argv[0];
  33.    font_name    = NULL;
  34.    geometry     = NULL;
  35.    display_name = NULL;
  36.    border_color = NULL;
  37.    fore_color   = NULL;
  38.    back_color   = NULL;
  39.    mouse_color  = NULL;
  40.    icon_color   = NULL;
  41.    reverse      = 0;
  42.    border_width = 0;
  43. #endif
  44.  
  45.    FILEFOUND = FALSE;
  46.    for (i=1; i < argc; i++) {     /* Parse Line */
  47.       if (argv[i][0] == '=') {
  48.          geometry = argv[i];
  49.          continue;
  50.          }
  51. #ifdef X
  52.       if (!strncmp(argv[i],"-g",2)) {             /* new geometry */
  53.          if (++i >= argc) usage(progname);
  54.          geometry = argv[i];
  55.          continue;
  56.          }
  57.       if (index(argv[i],':')!=NULL) {             /* host:display */
  58.          strncpy(display_name,argv[i],sizeof(display_name));
  59.          continue;
  60.          }
  61.       if (!strncmp(argv[i],"-d",2)) {             /* new display */
  62.          if (++i >= argc) usage(progname);
  63.          display_name = argv[i];
  64.          continue;
  65.          }
  66.       if (strcmp(argv[i],"-rv") == 0) {           /* reverse display */
  67.          reverse = 1;
  68.          continue;
  69.          }
  70.       if (strcmp(argv[i],"-bw") == 0) {           /* border width */
  71.          if (++i >= argc) usage(progname);
  72.          border_width = atoi(argv[i]);
  73.          continue;
  74.          }
  75.       if (strcmp(argv[i],"-bd") == 0) {           /* border color */
  76.          if (++i >= argc) usage(progname);
  77.          border_color = argv[i];
  78.          continue;
  79.          }
  80.       if (strcmp(argv[i],"-fg") == 0) {           /* foreground color */
  81.          if (++i >= argc) usage(progname);
  82.          fore_color = argv[i];
  83.          continue;
  84.          }
  85.       if (strcmp(argv[i],"-bg") == 0) {           /* background color */
  86.          if (++i >= argc) usage(progname);
  87.          back_color = argv[i];
  88.          continue;
  89.          }
  90.       if (strcmp(argv[i],"-fn") == 0) {           /* font type */
  91.          if (++i >= argc) usage(progname);
  92.          font_name  = argv[i];
  93.          continue;
  94.          }
  95. #endif
  96.       if (strcmp(argv[i],"-h") == 0) {            /* hiddenline */
  97.          hiddenline = ON;
  98.          fprintf(stdout,"   Commands: hiddenline      = ON\n");
  99.          continue;
  100.          }
  101.       if (strcmp(argv[i],"-nosort") == 0) {       /* sorting */
  102.          nosort = ON;
  103.          fprintf(stdout,"   Commands: nosort          = ON\n");
  104.          continue;
  105.          }
  106.       if (strcmp(argv[i],"-e") == 0) {            /* equalscale */
  107.          equalscale = OFF;
  108.          fprintf(stdout,"   Commands: equalscale      = OFF\n");
  109.          continue;
  110.          }
  111.       if (strncmp(argv[i],"-pr",3) == 0) {        /* printplot */
  112.          printplot  = ON;
  113.          fprintf(stdout,"   Commands: printplot       = ON\n");
  114.          continue;
  115.          }
  116.       if (strcmp(argv[i],"-noplot") == 0) {       /* noplot */
  117.          noplot     = ON;
  118.          fprintf(stdout,"   Commands: noplot          = ON\n");
  119.          continue;
  120.          }
  121.       if (strcmp(argv[i],"-ps") == 0) {           /* postscript */
  122.          postscript = OFF;
  123.          fprintf(stdout,"   Commands: postscript      = OFF\n");
  124.          continue;
  125.          }
  126.       if (strcmp(argv[i],"-s") == 0) {            /* scale factor */
  127.          if (++i >= argc) usage(progname);
  128.          scale = atof(argv[i]);
  129.          if (scale < 0.1 || scale > 1) {
  130.             scale = 1.0;
  131.             fprintf(stdout,"   Warning : Invalid scale -");
  132.             fprintf(stdout," scale reset to %f\n",scale);
  133.          }
  134.          fprintf(stdout,"   Commands: scale           = %f\n",scale);
  135.          continue;
  136.          }
  137.       if (strcmp(argv[i],"-v") == 0)  {           /* view */
  138.          if (++i >= argc) usage(progname);
  139.          eyepos.x = atof(argv[i]);
  140.          if (++i >= argc) usage(progname);
  141.          eyepos.y = atof(argv[i]);
  142.          if (++i >= argc) usage(progname);
  143.          eyepos.z = atof(argv[i]);
  144.          fprintf(stdout,"   Commands: eye-view        = %f %f %f\n",
  145.          eyepos.x,eyepos.y,eyepos.z);
  146.          continue;
  147.          }
  148.       if (strcmp(argv[i],"-o") == 0) {            /* options file */
  149.          if (++i >= argc) usage(progname);
  150.          if ((optionfile =  fopen(argv[i],"r")) == NULL) {
  151.            fprintf(stderr,"cat: can't open %s\n", argv[i]);
  152.            usage(progname);
  153.            }
  154.          else {
  155.            fprintf(stdout,"   Commands: options-file    = \"%s\"\n",argv[i]);
  156.            parse(optionfile);
  157.            fclose(optionfile);
  158.          }
  159.          continue;
  160.          }
  161.       if (argv[i][0] == '-' && argv[i][1] == 'P') {     /* Printer */
  162.          strcpy(printer,argv[i]); 
  163.          fprintf(stdout,"   Commands: Printer         = %s\n",printer);
  164.          continue;
  165.          }
  166.       if (argv[i][0] == '-') usage(progname);
  167.       if (argv[i][0] != '-' && argv[i][0] != '=') {
  168.          FILEFOUND = TRUE;
  169.          insert_pfile(argv[i]);
  170.          }
  171.    }
  172.    if (FILEFOUND == FALSE) usage(progname);
  173.    /* exit(0); */
  174. }
  175.  
  176. fileread(fp,format)
  177. FILE *fp;
  178. int  format;
  179. {
  180.    if (format == CONV) {
  181.       fileread_conv(fp);
  182.    } else if (format == PIF) {
  183.       fileread_pif(fp);
  184.    } else {
  185.       fprintf(stderr,"Error! Cant read format %d\n",format);
  186.       exit(-1);
  187.    }
  188. }
  189.  
  190. fileread_conv(fp)
  191. FILE *fp;
  192. {
  193.    float   rdfloat();
  194.    nodeptr insert_node();
  195.    segmptr insert_segm();
  196.  
  197.    extern  double   xmax,xmin,ymax,ymin,zmax,zmin;
  198.  
  199.    segmptr S;
  200.    nodeptr Nd;
  201.    double  x, y, z;
  202.    int     ncurves, npts, i, m;
  203.  
  204.    xmin = rdfloat(fp);   
  205.    xmax = rdfloat(fp);   
  206.    ymin = rdfloat(fp);     
  207.    ymax = rdfloat(fp);     
  208.    zmin = rdfloat(fp);     
  209.    zmax = rdfloat(fp);   
  210.    ncurves = (int)rdfloat(fp); 
  211.    if (ncurves <= 0) pltexit(1);
  212.       for (m=0; m<ncurves; m++) {
  213.       S    = insert_segm();
  214.       npts = (int)rdfloat(fp); 
  215.       if (npts<=0) pltexit(2);
  216.       for (i=0; i<npts; i++) {
  217.          x = rdfloat(fp);  
  218.          y = rdfloat(fp);   
  219.          z = rdfloat(fp);
  220.          Nd= insert_node(x,y,z,S);
  221.       }
  222.    }
  223. }
  224.  
  225. float rdfloat(fp)  /* Read a float; skip the whole line if failed */
  226. FILE *fp;
  227. {
  228.    int n;
  229.    char c;
  230.    float x;
  231.  
  232.    /* try to read a floating variable */
  233.    /* if fail, then skip the whole line */
  234.    while ( (n=fscanf(fp,"%f",&x)) != EOF && n!=1) {
  235.       if (n!=1)
  236.          while ( (c=getc(fp)) != EOF && c != '\n');
  237.       }
  238.  
  239.    if (n==EOF) pltexit(0);
  240.  
  241.    return(x);
  242. }
  243.  
  244. pltexit(mesg)
  245. int mesg;
  246. {
  247.    switch (mesg) {
  248.    case 0 : fprintf(stderr,"Error: Incorrect Format!\n");
  249.             exit(1); break;
  250.    case 1 : fprintf(stderr,"Error: Plot Curves <= 0\n");
  251.             exit(1); break;
  252.    case 2 : fprintf(stderr,"Error: Plot Points <= 0\n");
  253.             exit(1); break;
  254.    default: fprintf(stderr,"Error: Incorrect Format!\n");
  255.             exit(1); break;
  256.    }
  257. }
  258.  
  259. usage (program)
  260. char *program;
  261. {
  262.        /* -s for single curve format */
  263.       fprintf(stderr,"usage: %s [-v vx vy vz] [-o options-file] [-Pprinter] \
  264. [-s scale] [-e] [-h] [-nosort] [-noplot] [-print] [-ps] infile1 infile2 ...\n", program);
  265.       exit(1);
  266. }
  267.  
  268. /* try to open a file for reading - this could be a compressed file */
  269. open_file(fname,fp,format)
  270. char *fname;
  271. FILE **fp;
  272. int  *format;
  273. {
  274.    char cmd[MAXCHAR];
  275.    char *sprintf();
  276.  
  277.    /* try to open a file for reading */
  278.    if ((strlen(fname) > 2) && (!strcmp(fname + strlen(fname) - 2,".Z"))) {
  279. #ifdef OSK
  280.       sprintf(cmd,"compr -d %s >>>/nil",fname);
  281. #else
  282.       sprintf(cmd,"uncompress -c %s",fname);
  283. #endif
  284.       *fp = popen(cmd,"r");
  285.    } else {
  286.       *fp = fopen(fname,"r");
  287.    }
  288.  
  289.    if (*fp==NULL) {
  290.       fprintf(stderr,"cat : couldn't open file %s\n",fname);
  291.       exit(-1);
  292.    }
  293.  
  294.    /* try to determine IO format */
  295.    *format = CONV;
  296.    if ((strlen(fname) > 4) && (!strcmp(fname + strlen(fname) - 4,".pif"))) 
  297.       *format = PIF;
  298.    if ((strlen(fname) > 6) && (!strcmp(fname + strlen(fname) - 6,".pif.Z"))) 
  299.       *format = PIF;
  300. }
  301.  
  302.