godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

The program name is used to set the name

Browse Source 
of the file were the contents of data statements are written.
The filename is extracted from the path and the suffix (if present)
is replaced by .d.
This commit is contained in:
keie 1985-01-25 11:04:18 +00:00
parent 0aa95f6015
commit fbf86e8a78
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lang/basic/src.old/initialize.c
View File

@ -13,8 +13,25 @@ FILE *datfile;
initialize()
{
register char *cindex, *cptr ;
sprintf(tmpfname,"%s/abc%d",TMP_DIR,getpid());
strcpy(datfname,program);
/* Find the basename */
/* Strip leading directories */
cindex= (char *)0 ;
for ( cptr=program ; *cptr ; cptr++ ) if ( *cptr=='/' ) cindex=cptr ;
if ( !cindex ) cindex= program ;
else {
cindex++ ;
if ( !*cindex ) {
warning("Null program name, assuming \"basic\"") ;
cindex= "basic" ;
}
}
cptr=datfname ;
while ( *cptr++ = *cindex++ ) ;
/* Strip trailing suffix */
if ( cptr>datfname+3 && cptr[-3]=='.' ) cptr[-3]=0 ;
strcat(datfname,".d");
yyin= fopen(inpfile,"r");
emfile= fopen(outfile,"w");