diff options
Diffstat (limited to 'dmake/macparse.c')
| -rw-r--r-- | dmake/macparse.c | 232 |
1 files changed, 0 insertions, 232 deletions
diff --git a/dmake/macparse.c b/dmake/macparse.c deleted file mode 100644 index 88db1230ec84..000000000000 --- a/dmake/macparse.c +++ /dev/null @@ -1,232 +0,0 @@ -/* RCS $Id: macparse.c,v 1.3 2007-10-15 15:40:02 ihi Exp $ --- --- SYNOPSIS --- Parse a macro definition --- --- DESCRIPTION --- This file contains the code that parses a macro definition --- stored in a buffer. If the string in buffer is not a valid --- macro definition the routie Parse_macro returns 0, otherwise it --- returns 1 to indicate success. --- --- 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 int -Parse_macro( buffer, flag )/* -============================= - Parse the string in buffer and define it as a macro if it is a valid macro. - Note especially the string .SETDIR= since it is an attribute, but looks a - lot like a macro definition. This would not be a problem if make used - white space as token separators, since this is not the case we must do - something about it. */ -char *buffer; -int flag; -{ - char *result; /* temporary pointer for strings */ - TKSTR input; /* place to scan the buffer from */ - HASHPTR hv; /* pointer to hash table value */ - int operator; /* what macro operator do we have */ - char *tok1; /* temporary place to keep a token */ - char *tok2; /* temporary place to keep a token */ - int toklen; /* length of a token */ - - DB_ENTER( "Parse_macro" ); - - SET_TOKEN( &input, buffer ); - tok1 = Get_token( &input, "=+:*!?", 0 ); - - operator=Macro_op(tok1); - if( operator ) { - CLEAR_TOKEN( &input ); - Error( "Assignment without macro name: [%s].", buffer ); - DB_RETURN( 1 ); - } - - tok1 = DmStrDup(tok1); - tok2 = Get_token( &input, "=+:*!?", 2 ); - if( !(operator = Macro_op(tok2)) || !strcmp(tok1,".SETDIR") ) { - CLEAR_TOKEN( &input ); - FREE(tok1); - DB_RETURN(0); - } - - tok2 = Expand(tok1); FREE(tok1); tok1 = tok2; - if ( !(toklen = strlen(tok1)) ) { - Warning( "Empty macro name after expansion: [%s].", buffer ); - } - - /* Catch illegal single character macro names. */ - if ( toklen == 1 && strchr("{()}", tok1[0]) ) { - CLEAR_TOKEN( &input ); - Fatal( "Syntax error in macro assignment [%s]. The following characters cannot be used as single letter macro names: '{()}'.", buffer ); - } - - /* Catch ':' in macro names. */ - if ( strchr(tok1, ':') ) { - CLEAR_TOKEN( &input ); - Fatal( "Syntax error in macro assignment [%s]. The character ':' is not allowed in macro names.", buffer ); - } - - tok2 = Get_token(&input, NIL( char ), FALSE); - - /* Make sure we can force the assignment. */ - if ( operator & M_OP_SI ) { - flag |= M_FORCE|M_MULTI; - operator &= ~M_OP_SI; - } - - switch( operator ) { - case M_OP_PLCL: - tok2 = Expand( tok2 ); - /* Fall thru */ - - case M_OP_PL: - /* Add to an existing macro, if it is not defined, though, then - * just define a new macro */ - - if( (hv = GET_MACRO(tok1)) == NIL(HASH) || hv->ht_value == NIL(char) ) - Def_macro( tok1, tok2, flag ); - else { - result = DmStrAdd( hv->ht_value, tok2, FALSE ); - Def_macro( tok1, result, flag ); - FREE( result ); - } - if( operator == M_OP_PLCL ) FREE(tok2); - break; - - case M_OP_DF: - /* *= */ - /* internal default macros or initialized empty macros set M_INIT. */ - if( (hv = GET_MACRO(tok1)) != NIL(HASH) && !(hv->ht_flag & M_INIT) ) - break; - /* else FALLTHRU */ - - case M_OP_EQ: - Def_macro( tok1, tok2, flag ); - break; - - case M_OP_DFCL: - /* *:= */ - /* internal default macros or initialized empty macros set M_INIT. */ - if( (hv = GET_MACRO(tok1)) != NIL(HASH) && !(hv->ht_flag & M_INIT) ) - break; - /* else FALLTHRU */ - - case M_OP_CL: - tok2 = Expand( tok2 ); - Def_macro( tok1, tok2, M_EXPANDED | flag ); - FREE( tok2 ); - break; - - case M_OP_CM:{ - CELLPTR cp; - STRINGPTR sp; - - if (flag & M_PUSH) { - Error("Nested conditional definition [%s ?= %s] ignored", - tok1, tok2); - } - else { - cp = Def_cell(tok1); - if (cp->ce_flag & F_MULTI) { - LINKPTR lp; - for(lp=cp->ce_prq; lp->cl_next; lp=lp->cl_next); - cp = lp->cl_prq; - } - TALLOC(sp,1,STRING); - sp->st_string = DmStrDup(tok2); - sp->st_next = cp->ce_cond; - cp->ce_cond = sp; - - tok1 = NIL(char); - } - } - break; - } - - if (tok1) { - if ( LastMacName != NIL(char) ) - FREE( LastMacName ); - - LastMacName = tok1; - } - - DB_RETURN( 1 ); -} - - - -PUBLIC int -Macro_op( op )/* -================ - Check the passed in op string and map it to one of the macro operators */ -char *op; -{ - int ret = 0; - DB_ENTER( "macro_op" ); - - if ( *op == '!' ) { - ret = M_OP_SI; - op++; - } - - switch( *op ) { - case '=': ret |= M_OP_EQ; break; - case ':': ret |= M_OP_CL; op++; break; - - case '+': - op++; - if( *op == ':' ) { - ret |= M_OP_PLCL; - op++; - } - else { - ret |= M_OP_PL; - } - break; - - case '*': - op++; - if( *op == ':' ) { - ret |= M_OP_DFCL; - op++; - } - else { - ret |= M_OP_DF; - } - break; - - case '?': - ret |= M_OP_CM; - op++; - break; - } - - if( *op != '=' ) - ret = 0; - else { - op++; - - if( *op != '\0' ) - ret = 0; - } - - DB_RETURN( ret ); -} |