home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / program / funnel / option.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-10-23  |  16.4 KB  |  441 lines
  1. /*##############################################################################
  2.  
  3. FUNNNELWEB COPYRIGHT
  4. ====================
  5. FunnelWeb is a literate-programming macro preprocessor.
  6.  
  7. Copyright (C) 1992 Ross N. Williams.
  8.  
  9.    Ross N. Williams
  10.    ross@spam.adelaide.edu.au
  11.    16 Lerwick Avenue, Hazelwood Park 5066, Australia.
  12.  
  13. This program is free software; you can redistribute it and/or modify
  14. it under the terms of Version 2 of the GNU General Public License as
  15. published by the Free Software Foundation.
  16.  
  17. This program is distributed WITHOUT ANY WARRANTY; without even the implied
  18. warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  19. See Version 2 of the GNU General Public License for more details.
  20.  
  21. You should have received a copy of Version 2 of the GNU General Public
  22. License along with this program. If not, you can FTP the license from
  23. prep.ai.mit.edu/pub/gnu/COPYING-2 or write to the Free Software
  24. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  25.  
  26. Section 2a of the license requires that all changes to this file be
  27. recorded prominently in this file. Please record all changes here.
  28.  
  29. Programmers:
  30.    RNW  Ross N. Williams  ross@spam.adelaide.edu.au
  31.  
  32. Changes:
  33.    07-May-1992  RNW  Program prepared for release under GNU GPL V2.
  34.  
  35. ##############################################################################*/
  36.  
  37.  
  38. /******************************************************************************/
  39. /*                                  OPTION.C                                  */
  40. /******************************************************************************/
  41.  
  42. #include <ctype.h>
  43. #include "style.h"
  44.  
  45. #include "as.h"
  46. #include "data.h"
  47. #include "machin.h"
  48. #include "misc.h"
  49. #include "option.h"
  50.  
  51. /******************************************************************************/
  52.  
  53. LOCAL void wl_caret P_((ulong,void (*)(char *)));
  54. LOCAL void wl_caret(n,p_outf)
  55. /* Writes a caret at position n of an otherwise blank line. */
  56. ulong n;
  57. void  (*p_outf) P_((char *));
  58. {
  59.  as_cold(n<1000,"wl_caret: Argument is out of range.");
  60.  while (--n > 0)
  61.     (*p_outf)(" ");
  62.  (*p_outf)("^\n");
  63. }
  64.  
  65. /******************************************************************************/
  66.  
  67. EXPORT void op_ini(p_op)
  68. p_op_t p_op;
  69. {
  70.  p_op->op_f_b=FALSE;
  71.  strcpy(&p_op->op_f_s[0],"");
  72.  
  73.  p_op->op_j_b=FALSE;
  74.  strcpy(&p_op->op_j_s[0],"");
  75.  
  76.  strcpy(&p_op->op_i_s[0],"");
  77.  
  78.  p_op->op_o_b=TRUE;
  79.  strcpy(&p_op->op_o_s[0],"");
  80.  
  81.  p_op->op_t_b=FALSE;
  82.  strcpy(&p_op->op_t_s[0],"");
  83.  
  84.  p_op->op_l_b=TRUE;
  85.  strcpy(&p_op->op_l_s[0],"");
  86.  
  87.  p_op->op_d_b=FALSE;
  88.  
  89.  p_op->op_c_i=2;
  90.  
  91.  p_op->op_q_b=FALSE;
  92.  
  93.  p_op->op_s_b=FALSE;
  94.  p_op->op_s_i=1;
  95.  
  96.  p_op->op_w_b=FALSE;
  97.  p_op->op_w_i=80;
  98.  
  99.  p_op->op_x_b=FALSE;
  100.  strcpy(&p_op->op_x_s[0],"");
  101.  
  102.  p_op->op_k_b=FALSE;
  103.  
  104.  p_op->op_b1_b=FALSE;
  105.  p_op->op_b2_b=FALSE;
  106.  p_op->op_b3_b=FALSE;
  107.  p_op->op_b4_b=FALSE;
  108.  p_op->op_b5_b=FALSE;
  109.  p_op->op_b6_b=FALSE;
  110.  p_op->op_b7_b=FALSE;
  111.  
  112.  p_op->op_h_b=FALSE;
  113.  strcpy(&p_op->op_h_s[0],"menu");
  114. }
  115.  
  116. /******************************************************************************/
  117.  
  118. EXPORT bool op_add(p_op,p_cl,p_outf)
  119. p_op_t p_op;
  120. p_cl_t p_cl;
  121. void   (*p_outf) P_((char *));
  122. {
  123.  op_t  op_save;                  /* Saves *p_op so it can be restored later.  */
  124.  char *comline = (char *) p_cl;  /* Pointer to the command line to be parsed. */
  125.  char *p;                        /* Handy parsing pointer.                    */
  126.  bool seen_error = FALSE;        /* TRUE iff one or more errors seen.         */
  127.  
  128. #define ECHO_CL {if (!seen_error)\
  129.                    {(*p_outf)(comline);(*p_outf)("\n"); seen_error=TRUE;}}
  130.  
  131.  /* Save the parameter option structure so that we can restore it */
  132.  /* if an error occurs later on.                                  */
  133.  ASSIGN(op_save,*p_op);
  134.  
  135.  /* Check to make sure that the command line is not too long. */
  136.  /* This error should really never occur.                     */
  137.  p=comline;
  138.  while (*p++ != EOS)
  139.     if ((p-comline) > COMLINE_MAX)
  140.       {
  141.        (*p_outf)("FunnelWeb command line syntax error.\n");
  142.        (*p_outf)("The entire command line is too long.\n");
  143.        sprintf(linet1,"The maximum command line length is %u characters.\n",
  144.               (unsigned) COMLINE_MAX);
  145.        (*p_outf)(linet1);
  146.        goto failure;
  147.       }
  148.  
  149.  /* Check that the command line contains only printables. */
  150.  p=comline;
  151.  while (*p != EOS)
  152.    {
  153.     if (!isascprn(*p))
  154.       {
  155.        (*p_outf)("FunnelWeb command line syntax error.\n");
  156.        (*p_outf)("Command line contains one or more non-printables.\n");
  157.        sprintf(linet1,"The first is at column %u.\n",(unsigned) (1+p-comline));
  158.        (*p_outf)(linet1);
  159.        goto failure;
  160.       }
  161.     p++;
  162.    }
  163.  
  164.  /* Now parse each option. */
  165.  p=comline;
  166.  while (TRUE)
  167.    {/* This loop processes one command line parameter (option) per iteration. */
  168.     char *p_startopt;    /* Points to the start of the parameter.             */
  169.     bool opsign;           /* The sign of the current option (+=TRUE).          */
  170.     bool opsign_active;    /* TRUE => (+ or -). FALSE => (=).                   */
  171.     char letter;         /* Letter of current option.                         */
  172.     cl_t cl_temp;        /* Parameter string of the current option.           */
  173.     fn_t fn_temp;        /* Parameter string of the current option.           */
  174.     int  i;              /* Handy int used to feed sscanf.                    */
  175.  
  176.     /* Skip first parameter or rest of previous parameter after syntax error. */
  177.     while ((*p!=' ') && (*p!=EOS)) p++;
  178.  
  179.     /* Skip blanks between parameters. */
  180.     while (*p==' ') p++;
  181.  
  182.     /* At this point we are either at the start of a parameter or at EOS.     */
  183.     /* Finish if we are at the EOS.                                           */
  184.     if (*p==EOS) break;
  185.  
  186.     /* p now points to the next parameter (option). Make a note of its start. */
  187.     p_startopt=p;
  188.  
  189.     /* This switch statement parses the sign and letter characters.           */
  190.     switch (*p)
  191.       {
  192.        case '-': opsign=FALSE; opsign_active=TRUE;  p++; goto parse_letter;
  193.        case '+': opsign=TRUE;  opsign_active=TRUE;  p++; goto parse_letter;
  194.        case '=':             opsign_active=FALSE; p++; goto parse_letter;
  195.           parse_letter:
  196.           /* We have seen a sign. There should be a following letter. */
  197.           letter = *p;
  198.           if (!isalpha(letter))
  199.             {
  200.      ECHO_CL; wl_caret(p-comline,p_outf);
  201.              (*p_outf)("FunnelWeb command line syntax error.\n");
  202.              (*p_outf)("Option letter expected here.\n");
  203.              continue; /* Skip to the next parameter. */
  204.             }
  205.           p++;
  206.           break;
  207.        default: /* If no sign the option is a NAME option and defaults to +F. */
  208.           opsign=TRUE; opsign_active=TRUE; letter='F'; break;
  209.       } /* End switch */
  210.  
  211.     /* Assert: p points to the parameter string of the option.      */
  212.     /* Copy the parameter string into the holding variable cl_temp. */
  213.     {char *q;
  214.      q = &cl_temp[0];
  215.      while ((*p!=EOS) && (*p!=' '))
  216.         *q++ = *p++;
  217.      *q=EOS;
  218.     }
  219.  
  220.     /* As COMLINE_MAX can be greater than FILENAME_MAX, we have to be careful */
  221.     /* that the user is not about to blow our filename buffer.                */
  222.     if (strlen(cl_temp) > FILENAME_MAX)
  223.       {
  224.        ECHO_CL; wl_caret(p_startopt-comline,p_outf);
  225.        (*p_outf)("FunnelWeb command line syntax error.\n");
  226.        (*p_outf)("Option parameter string is too long.\n");
  227.        sprintf(linet1,"The maximum option parameter length is %u characters.\n",
  228.               (unsigned) FILENAME_MAX);
  229.        (*p_outf)(linet1);
  230.        continue; /* Skip to next parameter. */
  231.       }
  232.  
  233.     /* Now that we know that the parameter is not too big, we can copy it     */
  234.     /* into a temporary variable of filename type.                            */
  235.     strcpy(&fn_temp[0],&cl_temp[0]);
  236.  
  237.     /* At this point p points to the character following the option that      */
  238.     /* we have just scanned. This is either a blank or an EOS.                */
  239.     /* The current option is held in (opsign,opsign_active,letter,fn_temp).       */
  240.     /* Now we apply the option to the option record.                          */
  241.     switch (toupper(letter))
  242.       {
  243.        case 'F':
  244.           if (opsign_active) p_op->op_f_b=opsign;
  245.           strcpy(&p_op->op_f_s[0],&fn_temp[0]);
  246.           break;
  247.        case 'J':
  248.           if (opsign_active) p_op->op_j_b=opsign;
  249.           strcpy(&p_op->op_j_s[0],&fn_temp[0]);
  250.           break;
  251.        case 'I':
  252.           strcpy(&p_op->op_i_s[0],&fn_temp[0]);
  253.           break;
  254.        case 'O':
  255.           if (opsign_active) p_op->op_o_b=opsign;
  256.           strcpy(&p_op->op_o_s[0],&fn_temp[0]);
  257.           break;
  258.        case 'T':
  259.           if (opsign_active) p_op->op_t_b=opsign;
  260.           strcpy(&p_op->op_t_s[0],&fn_temp[0]);
  261.           break;
  262.        case 'L':
  263.           if (opsign_active) p_op->op_l_b=opsign;
  264.           strcpy(&p_op->op_l_s[0],&fn_temp[0]);
  265.           break;
  266.        case 'D':
  267.           if (opsign_active) p_op->op_d_b=opsign;
  268.           if (strlen(fn_temp)>0)
  269.             {
  270.      ECHO_CL; wl_caret(3+p_startopt-comline,p_outf);
  271.              (*p_outf)("FunnelWeb command line syntax error.\n");
  272.              (*p_outf)("The D option does not take an argument.\n");
  273.             }
  274.           break;
  275.        case 'C':
  276.           if ((sscanf(&fn_temp[0],"%d",&i) != 1) || (i<0) || (100<i))
  277.             {
  278.      ECHO_CL; wl_caret(3+p_startopt-comline,p_outf);
  279.              (*p_outf)("FunnelWeb command line syntax error.\n");
  280.              (*p_outf)("Numeric argument to C option invalid. It must\n");
  281.              (*p_outf)("be an unsigned decimal integer in the range [0,100].\n");
  282.             }
  283.           else
  284.              p_op->op_c_i=i;
  285.           break;
  286.        case 'Q':
  287.           if (opsign_active) p_op->op_q_b=opsign;
  288.           if (strlen(fn_temp)>0)
  289.             {
  290.      ECHO_CL; wl_caret(3+p_startopt-comline,p_outf);
  291.              (*p_outf)("FunnelWeb command line syntax error.\n");
  292.              (*p_outf)("The Q option does not take an argument.\n");
  293.             }
  294.           break;
  295.        case 'S':
  296.           if (opsign_active) p_op->op_s_b=opsign;
  297.           if (strlen(fn_temp)==0) break;
  298.           if ((sscanf(&fn_temp[0],"%d",&i) != 1) || (i<0) || (100<i))
  299.             {
  300.      ECHO_CL; wl_caret(2+p_startopt-comline,p_outf);
  301.              (*p_outf)("FunnelWeb command line syntax error.\n");
  302.              (*p_outf)("Numeric argument to S option invalid. It must\n");
  303.              (*p_outf)("be an unsigned decimal integer in the range [0,100].\n");
  304.             }
  305.           else
  306.              p_op->op_s_i=i;
  307.           break;
  308.        case 'W':
  309.           if (opsign_active) p_op->op_w_b=opsign;
  310.           if (strlen(fn_temp)==0) break;
  311.           if ((sscanf(&fn_temp[0],"%d",&i) != 1) || (i<0) || (1000<i))
  312.             {
  313.      ECHO_CL; wl_caret(2+p_startopt-comline,p_outf);
  314.              (*p_outf)("FunnelWeb command line syntax error.\n");
  315.              (*p_outf)("Error: Numeric argument to W option invalid. It must\n");
  316.              (*p_outf)("be an unsigned decimal integer in the range [0,1000].\n");
  317.             }
  318.           else
  319.              p_op->op_w_i=i;
  320.           break;
  321.        case 'X':
  322.           if (opsign_active) p_op->op_x_b=opsign;
  323.           strcpy(&p_op->op_x_s[0],&fn_temp[0]);
  324.           break;
  325.        case 'K':
  326.           if (opsign_active) p_op->op_k_b=opsign;
  327.           if (strlen(fn_temp)>0)
  328.             {
  329.      ECHO_CL; wl_caret(3+p_startopt-comline,p_outf);
  330.              (*p_outf)("FunnelWeb command line syntax error.\n");
  331.              (*p_outf)("The K option does not take an argument.\n");
  332.             }
  333.           break;
  334.        case 'H':
  335.           if (opsign_active) p_op->op_h_b=opsign;
  336.           if (strlen(&fn_temp[0])>0)
  337.           if (strlen(&fn_temp[0]) > HL_NMLEN)
  338.             {
  339.      ECHO_CL; wl_caret(3+p_startopt-comline,p_outf);
  340.              (*p_outf)("FunnelWeb command line syntax error.\n");
  341.              (*p_outf)("The H option string argument is too long.\n");
  342.              (*p_outf)("Try +Hmenu for a list of help message names.\n");
  343.             }
  344.           else
  345.              if (hel_num(&fn_temp[0]) == HL_ERR)
  346.             {
  347.      ECHO_CL; wl_caret(3+p_startopt-comline,p_outf);
  348.              (*p_outf)("FunnelWeb command line syntax error.\n");
  349.              (*p_outf)("Unrecognised message name in argument to H option.\n");
  350.              (*p_outf)("Try +Hmenu for a list of help message names.\n");
  351.             }
  352.           else
  353.              strcpy(&p_op->op_h_s[0],&fn_temp[0]);
  354.           break;
  355.        case 'B':
  356.          {
  357.           uword i;
  358.           if (strlen(fn_temp)==0)
  359.             {
  360.      ECHO_CL; wl_caret(3+p_startopt-comline,p_outf);
  361.              (*p_outf)("FunnelWeb command line syntax error.\n");
  362.              (*p_outf)("The B option must be followed by one or more digits.\n");
  363.              (*p_outf)("The digits must be in the range 1..7.\n");
  364.              break;
  365.             }
  366.           for (i=0;i<strlen(fn_temp);i++)
  367.              if (fn_temp[i]<'1' || fn_temp[i]>'7')
  368.                {
  369.  
  370. ECHO_CL; wl_caret(2+p_startopt-comline+(1+i),p_outf);
  371.                 (*p_outf)("FunnelWeb command line syntax error.\n");
  372.                 (*p_outf)("Error: Characters in B argument must be '1'..'7'.\n");
  373.                 goto endbop;
  374.                }
  375.           if (opsign_active)
  376.              for (i=0;i<strlen(fn_temp);i++)
  377.                 switch (fn_temp[i])
  378.                   {
  379.                    case '1': p_op->op_b1_b=opsign; break;
  380.                    case '2': p_op->op_b2_b=opsign; break;
  381.                    case '3': p_op->op_b3_b=opsign; break;
  382.                    case '4': p_op->op_b4_b=opsign; break;
  383.                    case '5': p_op->op_b5_b=opsign; break;
  384.                    case '6': p_op->op_b6_b=opsign; break;
  385.                    case '7': p_op->op_b7_b=opsign; break;
  386.                    default: as_bomb("op_add: b option case defaulted.");
  387.                   }
  388.           endbop:
  389.           break;
  390.          }
  391.        default:
  392.   ECHO_CL; wl_caret(2+p_startopt-comline,p_outf);
  393.           (*p_outf)("FunnelWeb command line syntax error.\n");
  394.           (*p_outf)("Error: Unknown option letter.\n");
  395.           (*p_outf)("Legal option letters are FIOTLCSWPXZ.\n");
  396.           (*p_outf)("(Note: But P is not yet implemented!)\n");
  397.           break;
  398.       }
  399.    } /* End while. */
  400.  if (seen_error) goto failure;
  401.  return TRUE;
  402.  
  403.  failure: ASSIGN(*p_op,op_save); return FALSE;
  404. }
  405.  
  406. /******************************************************************************/
  407.  
  408. EXPORT void op_wri(p_op,p_outf)
  409. p_op_t p_op;
  410. void   (*p_outf) P_((char *));
  411. {
  412. #define STC(BOOLV) ((BOOLV)?'+':'-')
  413.  sprintf(linet1,"   %cB1 %cB2 %cB3 %cB4 %cB5 %cB6 %cB7\n",
  414.  STC(p_op->op_b1_b),
  415.  STC(p_op->op_b2_b),
  416.  STC(p_op->op_b3_b),
  417.  STC(p_op->op_b4_b),
  418.  STC(p_op->op_b5_b),
  419.  STC(p_op->op_b6_b),
  420.  STC(p_op->op_b7_b));(*p_outf)(linet1);
  421.  sprintf(linet1,"   +C%u\n" ,                    (unsigned) p_op->op_c_i );(*p_outf)(linet1);
  422.  sprintf(linet1,"   %cD\n"  , STC(p_op->op_d_b)                          );(*p_outf)(linet1);
  423.  sprintf(linet1,"   %cF%s\n", STC(p_op->op_f_b),            p_op->op_f_s );(*p_outf)(linet1);
  424.  sprintf(linet1,"   %cH%s\n", STC(p_op->op_h_b),            p_op->op_h_s );(*p_outf)(linet1);
  425.  sprintf(linet1,"   +I%s\n" ,                               p_op->op_i_s );(*p_outf)(linet1);
  426.  sprintf(linet1,"   %cJ%s\n", STC(p_op->op_j_b),            p_op->op_j_s );(*p_outf)(linet1);
  427.  sprintf(linet1,"   %cK\n"  , STC(p_op->op_k_b)                          );(*p_outf)(linet1);
  428.  sprintf(linet1,"   %cL%s\n", STC(p_op->op_l_b),            p_op->op_l_s );(*p_outf)(linet1);
  429.  sprintf(linet1,"   %cO%s\n", STC(p_op->op_o_b),            p_op->op_o_s );(*p_outf)(linet1);
  430.  sprintf(linet1,"   %cQ\n"  , STC(p_op->op_q_b)                          );(*p_outf)(linet1);
  431.  sprintf(linet1,"   %cS%u\n", STC(p_op->op_s_b), (unsigned) p_op->op_s_i );(*p_outf)(linet1);
  432.  sprintf(linet1,"   %cT%s\n", STC(p_op->op_t_b),            p_op->op_t_s );(*p_outf)(linet1);
  433.  sprintf(linet1,"   %cW%u\n", STC(p_op->op_w_b), (unsigned) p_op->op_w_i );(*p_outf)(linet1);
  434.  sprintf(linet1,"   %cX%s\n", STC(p_op->op_x_b),            p_op->op_x_s );(*p_outf)(linet1);
  435. }
  436.  
  437. /******************************************************************************/
  438. /*                              End of OPTION.C                               */
  439. /******************************************************************************/
  440.  
  441.