From 9311529bc578b522420752082388948241757556 Mon Sep 17 00:00:00 2001
From: Akim Demaille <akim@epita.fr>
Date: Fri, 3 Nov 2000 17:19:07 +0000
Subject: [PATCH] * src/files.c (skeleton_find): New function, eved out of...
 (open_files, open_extra_files): here.

---
 ChangeLog   |  5 ++++
 src/files.c | 67 +++++++++++++++++++++--------------------------------
 2 files changed, 31 insertions(+), 41 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 6f84dacb..2031d6f2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-03  Akim Demaille  <akim@epita.fr>
+
+	* src/files.c (skeleton_find): New function, eved out of...
+	(open_files, open_extra_files): here.
+
 2000-11-03  Akim Demaille  <akim@epita.fr>
 
 	Don't use `atexit'.
diff --git a/src/files.c b/src/files.c
index 3e52ff66..37a9bb27 100644
--- a/src/files.c
+++ b/src/files.c
@@ -141,7 +141,7 @@ xfclose (FILE *ptr)
 | Save the content of the obstack OBS in FILENAME.  |
 `--------------------------------------------------*/
 
-void
+static void
 obstack_save (struct obstack *obs, const char *filename)
 {
   FILE *out = xfopen (filename, "w");
@@ -150,6 +150,29 @@ obstack_save (struct obstack *obs, const char *filename)
   xfclose (out);
 }
 
+
+static const char *
+skeleton_find (const char *envvar, const char *skeleton)
+{
+  const char *res = getenv (envvar);
+
+#ifdef MSDOS
+  const char *cp;
+
+  /* File doesn't exist in current directory; try in INIT directory.  */
+  if (!res && (cp = getenv ("INIT")))
+    {
+      res = XMALLOC (char, strlen (cp) + strlen (skeleton) + 2);
+      sprintf (res, "%s%c%s", cp, '/', skeleton);
+    }
+#endif /* !MSDOS */
+
+  if (!res)
+    res = skeleton;
+
+  return res;
+}
+
 
 /*-----------------------------------------------------------------.
 | Open the input file.  Look for the skeletons.  Find the names of |
@@ -163,7 +186,6 @@ open_files (void)
 #ifdef MSDOS
   register char *cp;
 #endif
-  char *filename;
   int base_length;
   int short_base_length;
 
@@ -270,22 +292,7 @@ open_files (void)
   finput = xfopen (infile, "r");
 
   if (!no_parser_flag)
-    {
-      filename = getenv ("BISON_SIMPLE");
-#ifdef MSDOS
-      /* File doesn't exist in current directory; try in INIT directory.  */
-      cp = getenv ("INIT");
-      if (filename == 0 && cp != NULL)
-	{
-	  filename = XMALLOC (char, strlen (cp) + strlen (PFILE) + 2);
-	  strcpy (filename, cp);
-	  cp = filename + strlen (filename);
-	  *cp++ = '/';
-	  strcpy (cp, PFILE);
-	}
-#endif /* MSDOS */
-      fparser = xfopen (filename ? filename : PFILE, "r");
-    }
+    fparser = xfopen (skeleton_find ("BISON_SIMPLE", PFILE), "r");
 
   if (verbose_flag)
     {
@@ -346,32 +353,10 @@ open_files (void)
 void
 open_extra_files (void)
 {
-  int c;
-  char *filename;
-
   xfclose (fparser);
 
   if (!no_parser_flag)
-    {
-      filename = (char *) getenv ("BISON_HAIRY");
-#ifdef MSDOS
-      {
-	/* File doesn't exist in current directory; try in INIT
-	   directory.  */
-	char *cp = getenv ("INIT");
-	if (filename == 0 && cp != NULL)
-	  {
-	    filename = XMALLOC (char, strlen (cp) + strlen (PFILE1) + 2);
-	    strcpy (filename, cp);
-	    cp = filename + strlen (filename);
-	    *cp++ = '/';
-	    strcpy (cp, PFILE1);
-	  }
-      }
-#endif
-      fparser = xfopen (filename ? filename : PFILE1, "r");
-    }
-
+    fparser = xfopen (skeleton_find ("BISON_HAIRY", PFILE1), "r");
   fguard = xfopen (guardfile, "w");
 }
 
-- 
2.47.2