dmake/parse.c

   1 /* $RCSfile: parse.c,v $
   2 -- $Revision: 1.8 $
   3 -- last change: $Author: ihi $ $Date: 2007-10-15 15:40:45 $
   4 --
   5 -- SYNOPSIS
   6 --      Parse the input, and perform semantic analysis
   7 --
   8 -- DESCRIPTION
   9 --      This file contains the routines that parse the input makefile and
  10 --      call the appropriate routines to perform the semantic analysis and
  11 --      build the internal dag.
  12 --
  13 -- AUTHOR
  14 --      Dennis Vadura, dvadura@dmake.wticorp.com
  15 --
  16 -- WWW
  17 --      http://dmake.wticorp.com/
  18 --
  19 -- COPYRIGHT
  20 --      Copyright (c) 1996,1997 by WTI Corp.  All rights reserved.
  21 --
  22 --      This program is NOT free software; you can redistribute it and/or
  23 --      modify it under the terms of the Software License Agreement Provided
  24 --      in the file <distribution-root>/readme/license.txt.
  25 --
  26 -- LOG
  27 --      Use cvs log to obtain detailed change logs.
  28 */
  29
  30 #include "extern.h"
  31
  32
  33 PUBLIC void
  34 Parse( fil )/*
  35 ==============  Parse the makefile input */
  36 FILE *fil;
  37 {
  38    int  rule  = FALSE;                 /* have seen a recipe line        */
  39    char *p;                            /* termporary pointer into Buffer */
  40    char *pTmpBuf;
  41
  42    DB_ENTER( "Parse" );
  43
  44    State = NORMAL_SCAN;
  45    Group = FALSE;                 /* true if scanning a group rcpe  */
  46    while( TRUE ) {
  47       if( Get_line( Buffer, fil ) ) {
  48          if( Group )  Fatal( "Incomplete rule recipe group detected" );
  49
  50      /* If we are still in RULE_SCAN mode there might be unbound recipes.  */
  51      if( State == RULE_SCAN )
  52         Bind_rules_to_targets( F_DEFAULT );
  53
  54      if( fil != NIL( FILE ) )               /* end of parsable input */
  55         Closefile();
  56
  57      DB_VOID_RETURN;
  58       }
  59       else {
  60
  61 #ifdef _MPW
  62          if ( Buffer[0] == 10 )
  63        pTmpBuf = Buffer+1;
  64      else
  65 #endif
  66        pTmpBuf = Buffer;
  67
  68 #ifdef _MPW
  69      p = pTmpBuf;
  70      while ( *p )
  71      {
  72        if ( *p == 10 )
  73          *p = '\t';
  74        p++;
  75      }
  76 #endif
  77
  78      switch( State ) {
  79         case RULE_SCAN:
  80
  81            /* Check for the `[' that starts off a group recipe definition.
  82             * It must appear as the first non-white space
  83         * character in the line. */
  84
  85            p = DmStrSpn( Buffer, " \t\r\n" );
  86                if( Set_group_attributes( p ) ) {
  87           if( Group )
  88              Fatal( "New group recipe begin found within group recipe." );
  89           else if( rule )
  90              Fatal( "Cannot mix single and group recipe lines." );
  91           else
  92              Group = TRUE;
  93
  94                   rule = TRUE;
  95
  96                   break;                     /* ignore the group start  */
  97                }
  98
  99                if( Group ) {
 100                   if( *p != ']' ) {
 101                      Add_recipe_to_list( pTmpBuf, TRUE, TRUE );
 102                      rule = TRUE;
 103                   }
 104                   else
 105                      State = NORMAL_SCAN;
 106                }
 107                else {
 108                   if(    *pTmpBuf == '\t'
 109               || (Notabs && *pTmpBuf == ' ') ) {
 110                      Add_recipe_to_list( pTmpBuf, FALSE, FALSE );
 111                      rule = TRUE;
 112                   }
 113                   else if( *p == ']' )
 114                      Fatal( "Found unmatched ']'" );
 115                   else if( *pTmpBuf ) /* Something that was no recipe. */
 116              State = NORMAL_SCAN;
 117           /* The only thing that was not handled was an empty line. */
 118                }
 119
 120                if( State == RULE_SCAN ) break;     /* ie. keep going    */
 121
 122            Bind_rules_to_targets( (Group) ? F_GROUP: F_DEFAULT );
 123
 124                rule = FALSE;
 125                if( Group ) {
 126                   Group = FALSE;
 127                   break;
 128                }
 129            /*FALLTRHOUGH*/
 130
 131                /* In this case we broke out of the rule scan because we do not
 132                 * have a recipe line that begins with a <TAB>, so lets
 133         * try to scan the thing as a macro or rule definition. */
 134
 135
 136         case NORMAL_SCAN:
 137            if( !*pTmpBuf ) continue;         /* we have null input line */
 138
 139            /* STUPID AUGMAKE uses "include" at the start of a line as
 140             * a signal to include a new file, so let's look for it.
 141         * if we see it replace it by .INCLUDE: and stick this back
 142         * into the buffer. */
 143            if( !strncmp( "include", pTmpBuf, 7 ) &&
 144            (pTmpBuf[7] == ' ' || pTmpBuf[7] == '\t') )
 145            {
 146           char *tmp;
 147
 148           tmp = DmStrJoin( ".INCLUDE:", pTmpBuf+7, -1, FALSE );
 149           strcpy( pTmpBuf, tmp );
 150           FREE( tmp );
 151            }
 152
 153                /* look for a macro definition, they all contain an = sign
 154             * if we fail to recognize it as a legal macro op then try to
 155         * parse the same line as a rule definition, it's one or the
 156         * other */
 157
 158            if( Parse_macro(pTmpBuf, M_DEFAULT) ) break;/* it's a macro def*/
 159            if( Parse_rule_def( &State ) )           break;/* it's a rule def */
 160
 161            /* if it is an empty or blank line then ignore it */
 162            if( !*Buffer || *DmStrSpn( Buffer, " \t\r\n" ) == '\0' ) break;
 163
 164            /* otherwise assume it was a line of unrecognized input, or a
 165             * recipe line out of place so print a message */
 166
 167            Fatal( "Expecting macro or rule defn, found neither" );
 168            break;
 169
 170         default:
 171            Fatal( "Internal -- UNKNOWN Parser state %d", State );
 172      }
 173       }
 174    }
 175 }
 176