home *** CD-ROM | disk | FTP | other *** search
- /*
- * Name: MG 2a Directory management functions Created: Ron Flax
- * (ron@vsedev.vse.com) Modified for MG 2a by Mic Kaczmarczik 03-Aug-1987
- */
-
- #include "no_dir.h"
-
- #ifndef NO_DIR
- #include "def.h"
-
- #ifdef ANSI
- #include <string.h>
- #endif
-
- #ifndef getwd /* may be a #define */
- char *getwd();
- #endif
- char *wdir;
- static char cwd[NFILEN];
-
- /*
- * Initialize anything the directory management routines need
- */
- VOID
- dirinit()
- {
- if (!(wdir = getwd(cwd)))
- panic("Can't get current directory!");
- }
-
- /*
- * Change current working directory
- */
- /* ARGSUSED */
- changedir(f, n)
- {
- register int s;
- char bufc[NPAT];
-
- if ((s = ereply("Change default directory: ", bufc, NPAT)) != TRUE)
- return (s);
- if (bufc[0] == '\0')
- (VOID) strcpy(bufc, wdir);
- if (chdir(bufc) == -1) {
- ewprintf("Can't change dir to %s", bufc);
- return (FALSE);
- } else {
- if (!(wdir = getwd(cwd)))
- panic("Can't get current directory!");
- ewprintf("Current directory is now %s", wdir);
- return (TRUE);
- }
- }
-
- /*
- * Show current directory
- */
- /* ARGSUSED */
- showcwdir(f, n)
- {
- ewprintf("Current directory: %s", wdir);
- return (TRUE);
- }
- #else
- #include "nullfile.h"
- #endif
-