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

Refactor temporary source file creation

Browse Source 
This adds a new function pc_createtmpsrc() that creates a temporary
source file for writing. Also, mkstemp() is now used not only on Mac
OS X but on Linux (and other Unixes) as well.
This commit is contained in:
Zeex 2015-04-04 17:41:31 +06:00
parent d6b77d645a
commit 12afdf16c2
2 changed files with 75 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
source/compiler/libpawnc.c
View File

@ -178,6 +178,43 @@ void *pc_createsrc(char *filename)
return fopen(filename,"wt");
}
/* pc_createtmpsrc()
* Creates a temporary source file with a unique name for writing.
* Return:
* The function must return a pointer, which is used as a "magic cookie" to
* all I/O functions. When failing to open the file for reading, the
* function must return NULL.
*/
void *pc_createtmpsrc(char **filename)
{
char *tname=NULL;
FILE *ftmp=NULL;
#if defined __WIN32__ || defined _WIN32
tname=_tempnam(NULL,"pawn");
ftmp=fopen(tname,"wt");
#elif defined __MSDOS__ || defined _Windows
tname=tempnam(NULL,"pawn");
ftmp=fopen(tname,"wt");
#else
static const char template[]="/tmp/pawnXXXXXX";
ftmp=NULL;
if ((tname=malloc(sizeof(template)))!=NULL) {
int fdtmp;
strncpy(tname,template,sizeof(template));
if ((fdtmp=mkstemp(tname)) >= 0) {
ftmp=fdopen(fdtmp,"wt");
} else {
free(tname);
tname=NULL;
} /* if */
} /* if */
#endif
if (filename!=NULL)
*filename=tname;
return ftmp;
}
/* pc_closesrc()
* Closes a source file (or include file). The "handle" parameter has the
* value that pc_opensrc() returned in an earlier call.

52
source/compiler/sc1.c
View File

@ -254,6 +254,43 @@ void *pc_createsrc(char *filename)
return fopen(filename,"w");
}
/* pc_createtmpsrc()
* Creates a temporary source file with a unique name for writing.
* Return:
* The function must return a pointer, which is used as a "magic cookie" to
* all I/O functions. When failing to open the file for reading, the
* function must return NULL.
*/
void *pc_createtmpsrc(char **filename)
{
char *tname=NULL;
FILE *ftmp=NULL;
#if defined __WIN32__ || defined _WIN32
tname=_tempnam(NULL,"pawn");
ftmp=fopen(tname,"wt");
#elif defined __MSDOS__ || defined _Windows
tname=tempnam(NULL,"pawn");
ftmp=fopen(tname,"wt");
#else
static const char template[]="/tmp/pawnXXXXXX";
ftmp=NULL;
if ((tname=malloc(sizeof(template)))!=NULL) {
int fdtmp;
strncpy(tname,template,sizeof(template));
if ((fdtmp=mkstemp(tname)) >= 0) {
ftmp=fdopen(fdtmp,"wt");
} else {
free(tname);
tname=NULL;
} /* if */
} /* if */
#endif
if (filename!=NULL)
*filename=tname;
return ftmp;
}
/* pc_closesrc()
* Closes a source file (or include file). The "handle" parameter has the
* value that pc_opensrc() returned in an earlier call.
@ -476,20 +513,7 @@ int pc_compile(int argc, char *argv[])
char *tname,*sname;
FILE *ftmp,*fsrc;
int fidx;
ftmp = NULL;
#if defined __WIN32__ || defined _WIN32
tname=_tempnam(NULL,"pawn");
#elif defined __MSDOS__ || defined _Windows
tname=tempnam(NULL,"pawn");
#elif defined(__APPLE__)
int tfd;
tfd=mkstemp("/tmp/pawnXXXXXX");
ftmp=fdopen(tfd, "wt");
#else
tname=tempnam(NULL,"pawn");
#endif
if (ftmp==NULL)
ftmp=(FILE*)pc_createsrc(tname);
ftmp=pc_createtmpsrc(&tname);
for (fidx=0; (sname=get_sourcefile(fidx))!=NULL; fidx++) {
unsigned char tstring[128];
fsrc=(FILE*)pc_opensrc(sname);