dtdocbook: merge dtinfogen into dtdocbook.

cde/programs/dtdocbook/infolib/SearchPath.C

@@ -0,0 +1,175 @@
+/*
+ * CDE - Common Desktop Environment
+ *
+ * Copyright (c) 1993-2012, The Open Group. All rights reserved.
+ *
+ * These libraries and programs are free software; you can
+ * redistribute them and/or modify them under the terms of the GNU
+ * Lesser General Public License as published by the Free Software
+ * Foundation; either version 2 of the License, or (at your option)
+ * any later version.
+ *
+ * These libraries and programs are distributed in the hope that
+ * they will be useful, but WITHOUT ANY WARRANTY; without even the
+ * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
+ * PURPOSE. See the GNU Lesser General Public License for more
+ * details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with these libraries and programs; if not, write
+ * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
+ * Floor, Boston, MA 02110-1301 USA
+ */
+/* $XConsortium: SearchPath.C /main/7 1996/08/21 15:47:21 drk $ */
+#include <stdio.h>
+#include <stdlib.h>
+#include <stdarg.h>
+#include <strings.h>
+#include <sys/stat.h>
+#include <sys/types.h>
+#include <sstream>
+using namespace std;
+
+#include "dti_excs/Exceptions.hh"
+#include "Task.h"
+#include "api/utility.h"
+
+/* exported interface */
+#include "SearchPath.h"
+
+#ifdef NEED_STRCASECMP
+#include <ctype.h>
+/*
+ * In case strcasecmp and strncasecmp are not provided by the system
+ * here are ones which do the trick.
+ */
+
+int
+strcasecmp(const char *s1,
+	   const char *s2)
+{
+    int c1, c2;
+
+    while (*s1 && *s2) {
+	c1 = isupper(*s1) ? tolower(*s1) : *s1;
+	c2 = isupper(*s2) ? tolower(*s2) : *s2;
+	if (c1 != c2)
+	    return (c1 - c2);
+	s1++;
+	s2++;
+    }
+    return (int) (*s1 - *s2);
+}
+
+
+int
+strncasecmp(const char *s1,
+	    const char *s2,
+	    size_t count)
+{
+    int c1, c2;
+
+    if (!count)
+      return 0;
+
+    while (*s1 && *s2) {
+	c1 = isupper(*s1) ? tolower(*s1) : *s1;
+	c2 = isupper(*s2) ? tolower(*s2) : *s2;
+	if ((c1 != c2) || (! --count))
+	    return (c1 - c2);
+	s1++;
+	s2++;
+    }
+    return (int) (*s1 - *s2);
+}
+#endif
+
+
+//--------------------------------------------------------------------
+static int isdir(char* filename)
+{
+  int ret = 0;
+  struct stat sb;
+
+  if(stat(filename, &sb) == 0){
+    if(S_ISDIR(sb.st_mode)){
+      ret = 1;
+    }
+  }
+
+  return ret;
+}
+
+  
+//-------------------------------------------------------------------
+SearchPath::SearchPath( const char *path, ... )
+{
+  
+  search_path_table = new CC_TPtrSlist<CC_String>;
+  new_path = 0;
+
+  va_list ap;
+  va_start ( ap , path);
+
+  const char *spath = path;
+  while ( spath ) {
+    CC_String *key = new CC_String(spath);
+    search_path_table->append( key );
+    spath = va_arg ( ap, const char * );
+  }
+  
+  va_end ( ap );
+}
+
+//-------------------------------------------------------------------
+char *
+SearchPath::get_real_path( const char *file_name )
+{
+  CC_TPtrSlistIterator<CC_String> path_it( *search_path_table );
+  FILE *fp = NULL;
+
+  if (file_name == NULL || *file_name == '\0')
+    return NULL;
+
+  // remove storage object specifier
+  if (strncasecmp(file_name, "<OSFILE", 7) == 0) {
+    if ((file_name = strchr(file_name, '>')))
+      file_name++;
+    else
+      return NULL;
+  }
+
+  while ( path_it() ) {
+    const char *path = (const char *)*path_it.key();
+
+    char *full_path_name = form( "%s/%s", path, file_name );
+    if (( fp = fopen( full_path_name , "r" )) && !isdir(full_path_name) ) {
+      fclose( fp );
+      return ( full_path_name );
+    }
+    if(fp) {
+      fclose( fp );
+    }
+  }
+
+  return NULL;
+}
+
+
+//-------------------------------------------------------------------    
+void
+SearchPath::replace_file_scope( const char *f_path )
+{
+  if ( new_path ) {
+    if ( !search_path_table->remove( new_path ) ) {
+      throw(Unexpected("Cannot replace file scope\n"));
+    }
+    delete new_path; new_path = 0;
+  }
+
+  new_path = new CC_String(f_path);
+
+  search_path_table->prepend( new_path );
+
+}
+