void runs(const char *str)
{
if(*str==';'||*str==' '||*str=='\t')
return;
/*
* here str is trimmed of all spaces
* and tabs and stored in string and.
*/
char *and = clones(str);
trims(and,' ');
trims(and,'\t');
register int loop = 0;
for(;and[loop]!='\0';loop++)
{
if(and[loop]==34||and[loop]==39)
bits.qt += 1;
else if(and[loop]==';'&&!bits.qt)
and[loop] = '\0';
}
/* now execute "and" */
PROTOTYPE (void exec, (char *));
reallocstr(and);
exec(and);
free(and);
}
void runs(const char *str)
{
if(*str=='#'||*str==' '||*str=='\t')
return;
linenum += 1;
/*
* here str is trimmed of all spaces
* and tabs and stored in string and.
*/
char *and = clones(str);
trims(and,' ');
trims(and,'\t');
/* eliminate the comments */
register int32 loop = 0;
for(;and[loop]!='\0';loop++) {
if(and[loop]==34||and[loop]==39)
bits.qt += 1;
else if(and[loop]=='#'&&!bits.qt)
and[loop] = '\0';
}
reallocstr(and);
/* now execute "and" */
lisp_error[0] = '\0';
exec(and);
/* now runs() returns */
if(strlen(lisp_error))
msg(lisp_error,2);
free(and);
}
void runs(const char *str)
{
if(*str==';'||*str==' '||*str=='\t')
return;
linenum += 1;
/*
* here str is trimmed of all spaces
* and tabs and stored in string and.
*/
char *and = clones(str);
trims(and,' ');
trims(and,'\t');
/* eliminate the comments */
register long int loop = 0;
for(;and[loop]!='\0';loop++) {
if(and[loop]==34||and[loop]==39)
bits.qt += 1;
else if(and[loop]==';'&&!bits.qt)
and[loop] = '\0';
}
/* now execute "and" */
void exec(const char *);
reallocstr(and);
exec(and);
free(and);
}
BOOL hsc_set_strip_tags(HSCPRC * hp, STRPTR taglist) {
reallocstr(&(hp->strip_tags), taglist);
return (TRUE);
}
