d0p1/ack
1
0
Fork 0
Code Issues Pull requests 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 8fa5a7b668
commit 6d344b6702
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");