/* RCS $Id: parse.c,v 1.1.1.1 2000-09-22 15:33:25 hr Exp $ -- -- SYNOPSIS -- Parse the input, and perform semantic analysis -- -- DESCRIPTION -- This file contains the routines that parse the input makefile and -- call the appropriate routines to perform the semantic analysis and -- build the internal dag. -- -- AUTHOR -- Dennis Vadura, dvadura@dmake.wticorp.com -- -- WWW -- http://dmake.wticorp.com/ -- -- COPYRIGHT -- Copyright (c) 1996,1997 by WTI Corp. All rights reserved. -- -- This program is NOT free software; you can redistribute it and/or -- modify it under the terms of the Software License Agreement Provided -- in the file /readme/license.txt. -- -- LOG -- Use cvs log to obtain detailed change logs. */ #include "extern.h" PUBLIC void Parse( fil )/* ============== Parse the makefile input */ FILE *fil; { int rule = FALSE; /* have seen a recipe line */ char *p; /* termporary pointer into Buffer */ char *pTmpBuf; DB_ENTER( "Parse" ); State = NORMAL_SCAN; Group = FALSE; /* true if scanning a group rcpe */ while( TRUE ) { if( Get_line( Buffer, fil ) ) { if( fil != NIL( FILE ) ) /* end of parsable input */ Closefile(); Bind_rules_to_targets( F_DEFAULT ); if( Group ) Fatal( "Incomplete rule recipe group detected" ); DB_VOID_RETURN; } else { #ifdef _MPW if ( Buffer[0] == 10 ) pTmpBuf = Buffer+1; else #endif pTmpBuf = Buffer; #ifdef _MPW p = pTmpBuf; while ( *p ) { if ( *p == 10 ) *p = '\t'; p++; } #endif switch( State ) { case RULE_SCAN: /* Check for the `[' that starts off a group rule definition. * It must appear as the first non-white space * character in the line. */ p = DmStrSpn( Buffer, " \t\r\n" ); if( Set_group_attributes( p ) ) { if( rule && Group ) Fatal( "Cannot mix single and group recipe lines" ); else Group = TRUE; rule = TRUE; break; /* ignore the group start */ } if( Group ) { if( *p != ']' ) { Add_recipe_to_list( pTmpBuf, TRUE, TRUE ); rule = TRUE; } else State = NORMAL_SCAN; } else { if( *pTmpBuf == '\t' || (Notabs && *pTmpBuf == ' ') ) { Add_recipe_to_list( pTmpBuf, FALSE, FALSE ); rule = TRUE; } else if( *p == ']' ) Fatal( "Found unmatched ']'" ); else if( *pTmpBuf && *p || (Notabs && !*pTmpBuf && !*p)) State = NORMAL_SCAN; } if( State == RULE_SCAN ) break; /* ie. keep going */ Bind_rules_to_targets( (Group) ? F_GROUP: F_DEFAULT ); rule = FALSE; if( Group ) { Group = FALSE; break; } /*FALLTRHOUGH*/ /* In this case we broke out of the rule scan because we do not * have a recipe line that begins with a , so lets * try to scan the thing as a macro or rule definition. */ case NORMAL_SCAN: if( !*pTmpBuf ) continue; /* we have null input line */ /* STUPID AUGMAKE uses "include" at the start of a line as * a signal to include a new file, so let's look for it. * if we see it replace it by .INCLUDE: and stick this back * into the buffer. */ if( !strncmp( "include", pTmpBuf, 7 ) && (pTmpBuf[7] == ' ' || pTmpBuf[7] == '\t') ) { char *tmp; tmp = DmStrJoin( ".INCLUDE:", pTmpBuf+7, -1, FALSE ); strcpy( pTmpBuf, tmp ); FREE( tmp ); } /* look for a macro definition, they all contain an = sign * if we fail to recognize it as a legal macro op then try to * parse the same line as a rule definition, it's one or the * other */ if( Parse_macro(pTmpBuf, M_DEFAULT) ) break;/* it's a macro def*/ if( Parse_rule_def( &State ) ) break;/* it's a rule def */ /* if just blank line then ignore it */ if( *DmStrSpn( Buffer, " \t\r\n" ) == '\0' ) break; /* otherwise assume it was a line of unrecognized input, or a * recipe line out of place so print a message */ Fatal( "Expecting macro or rule defn, found neither" ); break; default: Fatal( "Internal -- UNKNOWN Parser state %d", State ); } } } }