/*=directive define
*
* arg: name [ <text> ]
*
* text:
* Will add the name to the define list as if it were a DEFINE program
* argument. Its value will be the first non-whitespace token following
* the name. Quotes are @strong{not} processed.
*
* After the definitions file has been processed, any remaining entries
* in the define list will be added to the environment.
=*/
static char*
doDir_define(char* pzArg, char* pzScan)
{
char* pzName = pzArg;
/*
* Skip any #defines that do not look reasonable
*/
if (! IS_VAR_FIRST_CHAR(*pzArg))
return pzScan;
while (IS_VARIABLE_NAME_CHAR(*pzArg)) pzArg++;
/*
* IF this is a macro definition (rather than a value def),
* THEN we will ignore it.
*/
if (*pzArg == '(')
return pzScan;
/*
* We have found the end of the name.
* IF there is no more data on the line,
* THEN we do not have space for the '=' required by PUTENV.
* Therefore, move the name back over the "#define"
* directive itself, giving us the space needed.
*/
if (! IS_WHITESPACE_CHAR(*pzArg)) {
char* pzS = pzName;
char* pzD = (pzName -= 6);
*pzArg = NUL;
while ((*(pzD++) = *(pzS++)) != NUL) ;
pzD[-1] = '=';
pzD[ 0] = NUL;
} else {
/*
* Otherwise, insert the '=' and move any data up against it.
* We only accept one name-type, space separated token.
* We are not ANSI-C. ;-)
*/
char* pz = pzArg+1;
*pzArg++ = '=';
while (IS_WHITESPACE_CHAR(*pz)) pz++;
for (;;) {
if ((*pzArg++ = *pz++) == NUL)
break;
if (! IS_UNQUOTABLE_CHAR(*pz)) {
*pzArg = NUL;
break;
}
}
}
SET_OPT_DEFINE(pzName);
return pzScan;
}
/**
* Will add the name to the define list as if it were a DEFINE program
* argument. Its value will be the first non-whitespace token following
* the name. Quotes are @strong{not} processed.
*
* After the definitions file has been processed, any remaining entries
* in the define list will be added to the environment.
*/
char *
doDir_define(directive_enum_t id, char const * dir, char * scan_next)
{
char * def_name = SPN_WHITESPACE_CHARS(dir);
(void)id;
/*
* Skip any #defines that do not look reasonable
*/
if (! IS_VAR_FIRST_CHAR(*def_name))
return scan_next;
dir = SPN_VARIABLE_NAME_CHARS(def_name);
/*
* IF this is a macro definition (rather than a value def),
* THEN we will ignore it.
*/
if (*dir == '(')
return scan_next;
/*
* We have found the end of the name.
* IF there is no more data on the line,
* THEN we do not have space for the '=' required by PUTENV.
* Therefore, move the name back over the "#define"
* directive itself, giving us the space needed.
*/
if (! IS_WHITESPACE_CHAR(*dir)) {
char * pzS = (char *)dir;
char * pzD = (def_name - 6);
*pzS = NUL; // whatever it used to be, it is a NUL now.
pzS = def_name;
while ((*(pzD++) = *(pzS++)) != NUL) ;
pzD[-1] = '=';
pzD[ 0] = NUL;
def_name -= 6;
} else {
/*
* Otherwise, insert the '=' and move any data up against it.
* We only accept one name-type, space separated token.
* We are not ANSI-C. ;-)
*/
char * pz = (char *)(dir++);
*pz++ = '=';
dir = SPN_WHITESPACE_CHARS(dir);
/*
* Copy chars for so long as it is not NUL and does not require quoting
*/
for (;;) {
if ((*pz++ = *dir++) == NUL)
break;
if (! IS_UNQUOTABLE_CHAR(*dir)) {
*pz = NUL;
break;
}
}
}
SET_OPT_DEFINE(def_name);
return scan_next;
}
