Fix up for inc/ufs.h.

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

bin/makefile-tail

@@ -481,10 +481,11 @@ $(OBJECTDIR)findkey.o :  $(SRCDIR)findkey.c  $(REQUIRED-INCS) $(INCDIR)lispemul.
 $(OBJECTDIR)dsk.o :  $(SRCDIR)dsk.c  $(REQUIRED-INCS) $(INCDIR)lispemul.h  $(INCDIR)lispmap.h \
 	 $(INCDIR)adr68k.h $(INCDIR)lsptypes.h $(INCDIR)lspglob.h \
 	 $(INCDIR)fp.h $(INCDIR)arith.h  $(INCDIR)stream.h  $(INCDIR)timeout.h \
-	 $(INCDIR)locfile.h $(INCDIR)osmsg.h $(INCDIR)dbprint.h $(INCDIR)car-cdr.h $(INCDIR)dsk.h $(INCDIR)dir.h
+	 $(INCDIR)locfile.h $(INCDIR)osmsg.h $(INCDIR)dbprint.h $(INCDIR)car-cdr.h $(INCDIR)dsk.h $(INCDIR)dir.h \
+	 $(INCDIR)ufs.h
 	$(CC) $(RFLAGS) $(SRCDIR)dsk.c $(INLINE) -o $(OBJECTDIR)dsk$(OEXT)
 
-$(OBJECTDIR)ufs.o :  $(SRCDIR)ufs.c  $(REQUIRED-INCS) $(INCDIR)lispemul.h  $(INCDIR)lispmap.h  \
+$(OBJECTDIR)ufs.o :  $(SRCDIR)ufs.c $(INCDIR)ufs.h $(REQUIRED-INCS) $(INCDIR)lispemul.h  $(INCDIR)lispmap.h  \
 	 $(INCDIR)adr68k.h $(INCDIR)dbprint.h  $(INLINE)\
 	 $(INCDIR)lsptypes.h  $(INCDIR)lspglob.h $(INCDIR)arith.h \
 	 $(INCDIR)stream.h $(INCDIR)timeout.h $(INCDIR)locfile.h $(INCDIR)dbprint.h $(INCDIR)dsk.h
@@ -492,7 +493,8 @@ $(OBJECTDIR)ufs.o :  $(SRCDIR)ufs.c  $(REQUIRED-INCS) $(INCDIR)lispemul.h  $(INC
 
 $(OBJECTDIR)dir.o :  $(SRCDIR)dir.c  $(INCDIR)dir.h $(REQUIRED-INCS) $(INCDIR)lispemul.h  \
 	 $(INCDIR)lispmap.h $(INCDIR)adr68k.h $(INCDIR)lsptypes.h  \
-	 $(INCDIR)arith.h $(INCDIR)lspglob.h $(INCDIR)timeout.h $(INCDIR)locfile.h $(INCDIR)dsk.h
+	 $(INCDIR)arith.h $(INCDIR)lspglob.h $(INCDIR)timeout.h $(INCDIR)locfile.h $(INCDIR)dsk.h \
+	 $(INCDIR)ufs.h
 	$(CC) $(RFLAGS) $(SRCDIR)dir.c $(INLINE) -o $(OBJECTDIR)dir$(OEXT)
 
 $(OBJECTDIR)fvar.o :  $(SRCDIR)fvar.c  $(REQUIRED-INCS) $(INCDIR)lispemul.h  \
@@ -716,7 +718,7 @@ $(OBJECTDIR)subr.o :  $(SRCDIR)subr.c  $(REQUIRED-INCS) \
 	 $(INCDIR)adr68k.h $(INCDIR)subrs.h \
 	 $(INCDIR)lsptypes.h  $(INCDIR)lispmap.h  $(INCDIR)emlglob.h \
 	 $(INCDIR)lspglob.h  $(INCDIR)cell.h  $(INCDIR)stack.h \
-	 $(INCDIR)arith.h $(INCDIR)profile.h $(INCDIR)dsk.h $(INCDIR)dir.h
+	 $(INCDIR)arith.h $(INCDIR)profile.h $(INCDIR)dsk.h $(INCDIR)dir.h $(INCDIR)ufs.h
 	$(CC) $(RFLAGS) $(SRCDIR)subr.c $(INLINE) -o $(OBJECTDIR)subr$(OEXT)
 
 $(OBJECTDIR)miscn.o : $(SRCDIR)miscn.c  $(REQUIRED-INCS) \
@@ -789,7 +791,7 @@ $(OBJECTDIR)vars3.o :  $(SRCDIR)vars3.c  $(REQUIRED-INCS) $(INCDIR)lispemul.h  \
 
 $(OBJECTDIR)vmemsave.o :  $(SRCDIR)vmemsave.c  $(REQUIRED-INCS) $(INCDIR)lispemul.h  \
 	 $(INCDIR)lispmap.h  $(INCDIR)lspglob.h \
-	 $(INCDIR)ifpage.h  $(INCDIR)dsk.h $(INCDIR)vmemsave.h $(INCDIR)dir.h
+	 $(INCDIR)ifpage.h  $(INCDIR)dsk.h $(INCDIR)vmemsave.h $(INCDIR)dir.h $(INCDIR)ufs.h
 	$(CC) $(RFLAGS) $(SRCDIR)vmemsave.c $(INLINE) -o $(OBJECTDIR)vmemsave$(OEXT)
 
 $(OBJECTDIR)array2.o : $(SRCDIR)array2.c  $(REQUIRED-INCS) $(INCDIR)lispemul.h  \

inc/return.h

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

inc/ufs.h

@@ -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);

src/bbtsub.c

@@ -71,6 +71,8 @@ static char *id = "$Id: bbtsub.c,v 1.3 2001/12/24 01:08:59 sybalsky Exp $ Copyri
 #include "address.h"
 #include "arith.h"
 #include "stack.h"
+#include "llstk.h"
+#include "return.h"
 #include "cell.h"
 #include "car-cdr.h"
 #include "gc.h"

src/dir.c

@@ -88,6 +88,7 @@ static char *id = "$Id: dir.c,v 1.4 2001/12/26 22:17:01 sybalsky Exp $ Copyright
 #include "timeout.h"
 #include "locfile.h"
 #include "dsk.h"
+#include "ufs.h"
 #include "dir.h"
 
 extern int *Lisp_errno;

src/dsk.c

@@ -113,6 +113,7 @@ static char *id = "$Id: dsk.c,v 1.4 2001/12/24 01:09:01 sybalsky Exp $ Copyright
 #include "conspage.h"
 #include "car-cdr.h"
 #include "dsk.h"
+#include "ufs.h"
 #include "dir.h"
 
 #if defined(ULTRIX) || defined(MACOSX) || defined(FREEBSD)

src/intcall.c

@@ -22,6 +22,7 @@ static char *id = "$Id: intcall.c,v 1.3 1999/05/31 23:35:34 sybalsky Exp $ Copyr
 #include "lsptypes.h"
 #include "lispmap.h"
 #include "stack.h"
+#include "llstk.h"
 #include "return.h"
 #include "emlglob.h"
 #include "lspglob.h"

src/subr.c

@@ -48,6 +48,7 @@ static char *id = "$Id: subr.c,v 1.3 1999/05/31 23:35:42 sybalsky Exp $ Copyrigh
 #include "profile.h"
 #include "dbprint.h"
 #include "dsk.h"
+#include "ufs.h"
 #include "dir.h"
 
 extern LispPTR *PENDINGINTERRUPT68k;

src/ufs.c

@@ -88,6 +88,7 @@ static char *id = "$Id: ufs.c,v 1.2 1999/01/03 02:07:41 sybalsky Exp $ Copyright
 #include "locfile.h"
 #include "dbprint.h"
 #include "dsk.h"
+#include "ufs.h"
 
 int *Lisp_errno;
 int Dummy_errno; /* If errno cell is not provided by Lisp, dummy_errno is used. */

src/vmemsave.c

@@ -77,6 +77,7 @@ static char *id = "$Id: vmemsave.c,v 1.2 1999/01/03 02:07:45 sybalsky Exp $ Copy
 #include "dbprint.h"
 #include "devif.h"
 #include "dsk.h"
+#include "ufs.h"
 #include "dir.h"
 
 #ifdef GCC386

src/xc.c

@@ -46,6 +46,7 @@ static char *id = "$Id: xc.c,v 1.4 2001/12/26 22:17:06 sybalsky Exp $ Copyright
 #include "adr68k.h"
 #include "stack.h"
 #include "llstk.h"
+#include "return.h"
 #include "dbprint.h"
 
 #include "lspglob.h"