168 lines
4.9 KiB
C
168 lines
4.9 KiB
C
/* 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 <distribution-root>/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 <TAB>, 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 );
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|