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