1berry/pawn-compiler
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

add tokenisation operator

Browse Source
This commit is contained in:
VVWVV 2017-10-24 18:43:43 +03:00
parent 36d5eed854
commit a65f757a2c
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
source/compiler/sc2.c
View File

@ -1832,6 +1832,23 @@ static void substallpatterns(unsigned char *line,int buffersize)
} }
#endif #endif
static void doconcat(const char *line)
{
register int i;
const char *p, *b;
for (i=0; *(line+i)!='\0'; ++i) {
if (*(line+i)=='#' && *(line+i+1)=='#') {
p=line+i-1;
b=line+i+2;
while (*p==' ')
p--;
while (*b==' ')
b++;
strcpy((char*)p+1, b);
} /* if */
} /* for */
}
/* preprocess /* preprocess
* *
* Reads a line by readline() into "pline" and performs basic preprocessing: * Reads a line by readline() into "pline" and performs basic preprocessing:
@ -1855,12 +1872,14 @@ SC_FUNC void preprocess(void)
stripcom(pline); /* ??? no need for this when reading back from list file (in the second pass) */ stripcom(pline); /* ??? no need for this when reading back from list file (in the second pass) */
lptr=pline; /* set "line pointer" to start of the parsing buffer */ lptr=pline; /* set "line pointer" to start of the parsing buffer */
iscommand=command(); iscommand=command();
doconcat(lptr);
if (iscommand!=CMD_NONE) if (iscommand!=CMD_NONE)
errorset(sRESET,0); /* reset error flag ("panic mode") on empty line or directive */ errorset(sRESET,0); /* reset error flag ("panic mode") on empty line or directive */
#if !defined NO_DEFINE #if !defined NO_DEFINE
if (iscommand==CMD_NONE) { if (iscommand==CMD_NONE) {
assert(lptr!=term_expr); assert(lptr!=term_expr);
substallpatterns(pline,sLINEMAX); substallpatterns(pline,sLINEMAX);
doconcat(pline);
lptr=pline; /* reset "line pointer" to start of the parsing buffer */ lptr=pline; /* reset "line pointer" to start of the parsing buffer */
} /* if */ } /* if */
#endif #endif