X-Git-Url: http://git.kpe.io/?p=ctsim.git;a=blobdiff_plain;f=libctsupport%2Ffilefuncs.cpp;fp=libctsupport%2Ffilefuncs.cpp;h=100960ac8d81b4fcf2d409e4bac054401cdbad81;hp=0000000000000000000000000000000000000000;hb=99dd1d6ed10db1f669a5fe6af71225a50fc0ddfb;hpb=2c61ff85796550481227f2fbec53506a6b5bd365

diff --git a/libctsupport/filefuncs.cpp b/libctsupport/filefuncs.cpp
new file mode 100644
index 0000000..100960a
--- /dev/null
+++ b/libctsupport/filefuncs.cpp
@@ -0,0 +1,131 @@
+/*****************************************************************************
+**  This is part of the CTSim program
+**  Copyright (C) 1983-2000 Kevin Rosenberg
+**
+**  $Id: filefuncs.cpp,v 1.1 2000/06/19 02:58:08 kevin Exp $
+**
+**  Revision 1.1.1.1  2000/04/28 13:02:44  kevin
+**  Initial CVS import for first public release
+**
+**  This program is free software; you can redistribute it and/or modify
+**  it under the terms of the GNU General Public License (version 2) as
+**  published by the Free Software Foundation.
+**
+**  This program is distributed in the hope that it will be useful,
+**  but WITHOUT ANY WARRANTY; without even the implied warranty of
+**  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+**  GNU General Public License for more details.
+**
+**  You should have received a copy of the GNU General Public License
+**  along with this program; if not, write to the Free Software
+**  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+
+******************************************************************************/
+
+#include <string.h>
+#include <stdio.h>
+#include <ctype.h>
+#include <iostream>
+#include "kstddef.h"
+#include "cio.h"
+
+
+
+const char* 
+fileBasename (const char* const filename)
+{
+  const char* p = strrchr (filename, '/');
+  return (p ? p + 1 : filename);
+}
+
+
+/* NAME
+ *   file_exists		Checks if a specified disk fie exists
+ *
+ * SYNOPSIS
+ *   exist = file_exists (fname)
+ *   bool exist			TRUE if specified file exists
+ */
+
+bool
+file_exists (const char *fname)
+{
+  FILE *fp;
+  bool exist;
+
+  if (strlen(fname) == 0)
+    exist = false;
+  else if ((fp = fopen(fname, "r")) == NULL)
+    exist = false;
+  else {
+    fclose (fp);
+    exist = true;
+  }
+  
+  return (exist);
+}
+
+/*-----------------------------------------------------------------------------
+ *
+ * FUNCTION IDENTIFICATION
+ *
+ *	Name:		sys_fopen		Open a file for user
+ *	Date:		12-17-84
+ *	Programmer:	Kevin Rosenberg
+ *
+ * SYNOPSIS
+ *	fp = sys_fopen (filename, mode, progname)
+ *	FILE *fp			Standard pointer to 'C' file
+ *	char *filename			Name of file to open
+ *					If user enters a new name, it goes here
+ *	char *mode			Mode to open file (std. 'C')
+ *	char *progname			Name of program calling this routine
+ *
+ * DESCRIPTION
+ *	  This routine opens a file using the standard C fopen() routine.  If
+ *    the file is not found, the user is given to option to:
+ *
+ *		1 - Retry opening file with same name
+ *		2 - Enter new file name
+ *		3 - Abort and return to DOS
+ *
+ * CAUTIONS
+ *	  If the the requested file is not found, the name of the file given
+ *    entered at keyboard will be returned in filename.  So, make sure there
+ *   is room for a maximum length filename (MAXFULLNAME)
+ *
+ *---------------------------------------------------------------------------*/
+
+FILE *
+sys_fopen (const char *filename, const char *mode, const char *progname)
+{
+  FILE *fp;
+  char  fname[256];	/* name used for call to fopen() */
+  char  c;			/* keyboard response */
+
+  strncpy (fname, filename, sizeof(fname));
+
+  do {
+    if ((fp = fopen (fname, mode)) == NULL) {
+      cerr << endl;
+      cerr << "Can't open file " << fname << " [" << progname << "]" << endl;
+      cerr << "Enter: <R> - Retry | <N> - New name | <A> - Abort program --> ";
+      c = cio_kb_waitc ("RrNnAa", TRUE);
+      c = tolower(c);
+      cerr << c << endl;
+
+      if (c == 'r')		// Retry -- Nothing to do here 
+	;			
+      else if (c == 'a')	// Abort -- Exit to OS
+	exit (1);
+      else if (c == 'n') {	// New name - get from console
+	cerr << "Enter new file name -- ";
+	fgets (fname, sizeof(fname), stdin);
+	str_wrm_tail (fname);
+	cerr << endl;
+      } 
+    }
+  } while (fp == NULL);
+
+  return (fp);
+}