github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-26 11:52:25 +00:00
Code Issues Projects Releases Wiki Activity

Fix up for inc/ufs.h.

Browse Source 
Add return.c external functions to inc/return.h (previously only macros) and update
    makefile-tail and relevant files.

	modified:   makefile-tail
	modified:   ../inc/return.h
	new file:   ../inc/ufs.h
	modified:   ../src/bbtsub.c
	modified:   ../src/dir.c
	modified:   ../src/dsk.c
	modified:   ../src/intcall.c
	modified:   ../src/subr.c
	modified:   ../src/ufs.c
	modified:   ../src/vmemsave.c
	modified:   ../src/xc.c
This commit is contained in:
Nick Briggs
2017-06-30 20:10:38 -07:00
parent 35b4ad4350
commit 5d8c90cf18
11 changed files with 30 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
inc/return.h
View File

@@ -116,3 +116,4 @@
"End of stack isn't beyond current stk pointer."); \
}
void contextsw(register DLword fxnum, register DLword bytenum, register DLword flags);

13
inc/ufs.h Normal file
View File

@@ -0,0 +1,13 @@
LispPTR UFS_getfilename(LispPTR *args);
LispPTR UFS_deletefile(LispPTR *args);
LispPTR UFS_renamefile(LispPTR *args);
LispPTR UFS_directorynamep(LispPTR *args);
#ifdef DOS
int unixpathname(char *src, char *dst, int versionp, int genp, char *drive, int *extlenptr, char *rawname);
#else
int unixpathname(char *src, char *dst, int versionp, int genp);
#endif
int lisppathname(char *fullname, char *lispname, int dirp, int versionp);
int quote_fname(char *file);
int quote_fname_ufs(char *file);
int quote_dname(char *dir);