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

#pragma option

Browse Source
This commit is contained in:
Y_Less 2017-10-26 11:41:33 +02:00
parent f1da832ae9
commit b7692fda79
2 changed files with 28 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
source/compiler/sc1.c
View File

@ -1050,6 +1050,7 @@ static void parseoptions(int argc,char **argv,char *oname,char *ename,char *pnam
#endif
break;
case 'c':
if (codepage)
strlcpy(codepage,option_value(ptr),MAXCODEPAGE); /* set name of codepage */
break;
case 'D': /* set active directory */
@ -1082,6 +1083,7 @@ static void parseoptions(int argc,char **argv,char *oname,char *ename,char *pnam
} /* switch */
break;
case 'e':
if (ename)
strlcpy(ename,option_value(ptr),_MAX_PATH); /* set name of error file */
break;
#if defined __WIN32__ || defined _WIN32 || defined _Windows
@ -1108,6 +1110,7 @@ static void parseoptions(int argc,char **argv,char *oname,char *ename,char *pnam
sc_listing=TRUE; /* skip second pass & code generation */
break;
case 'o':
if (oname)
strlcpy(oname,option_value(ptr),_MAX_PATH); /* set name of (binary) output file */
break;
case 'O':
@ -1116,6 +1119,7 @@ static void parseoptions(int argc,char **argv,char *oname,char *ename,char *pnam
about();
break;
case 'p':
if (pname)
strlcpy(pname,option_value(ptr),_MAX_PATH); /* set name of implicit include file */
break;
case 'R':
@ -1123,6 +1127,8 @@ static void parseoptions(int argc,char **argv,char *oname,char *ename,char *pnam
break;
#if !defined SC_LIGHT
case 'r':
if (!rname)
break;
strlcpy(rname,option_value(ptr),_MAX_PATH); /* set name of report file */
sc_makereport=TRUE;
if (strlen(rname)>0) {
@ -1230,7 +1236,7 @@ static void parseoptions(int argc,char **argv,char *oname,char *ename,char *pnam
strlcpy(str,argv[arg],i+1); /* str holds symbol name */
i=atoi(ptr+1);
add_builtin_constant(str,i,sGLOBAL,0);
} else {
} else if (oname) {
strlcpy(str,argv[arg],sizeof(str)-2); /* -2 because default extension is ".p" */
set_extension(str,".p",FALSE);
insert_sourcefile(str);
@ -1261,6 +1267,11 @@ static void parseoptions(int argc,char **argv,char *oname,char *ename,char *pnam
} /* for */
}
void parsesingleoption(char *argv)
{
parseoptions(1, &argv, NULL, NULL, NULL, NULL, NULL);
}
#if !defined SC_LIGHT
static void parserespf(char *filename,char *oname,char *ename,char *pname,
char *rname,char *codepage)

12
source/compiler/sc2.c
View File

@ -945,6 +945,8 @@ enum {
* Global variables: iflevel, ifstack (altered)
* lptr (altered)
*/
void parsesingleoption(char *argv);
static int command(void)
{
int tok,ret;
@ -1268,6 +1270,16 @@ static int command(void)
sym=findconst("__compat",NULL);
assert(sym!=NULL);
sym->addr=pc_compat;
} else if (strcmp(str,"option")==0) {
char name[sNAMEMAX+1];
int i;
/* first gather all information, start with the tag name */
while (*lptr<=' ' && *lptr!='\0')
lptr++;
for (i=0; i<sizeof name && *lptr>' '; i++,lptr++)
name[i]=*lptr;
name[i]='\0';
parsesingleoption(name);
} else {
error(207); /* unknown #pragma */
} /* if */