Initial import of the CDE 2.1.30 sources from the Open Group.

cde/programs/dtinfo/dtinfogen/infolib/etc/StyleUpdate.C

@@ -0,0 +1,118 @@
+/* $XConsortium: StyleUpdate.C /main/7 1996/08/21 15:47:33 drk $ */
+
+#include <stdio.h>
+#include <iostream.h>
+
+
+#include "Exceptions.hh"
+#include "dti_cc/CC_Stack.h"
+
+#include "DataBase.h"
+#include "SearchPath.h"
+
+#include "Dispatch.h"
+#include "Task.h"
+#include "StyleTask.h"
+#include "OLAF.h"
+#include "Handler.h"
+#include "StyleValidate.h"
+
+#include "oliasdb/mmdb.h"
+#include "oliasdb/stylesheet_hd.h"
+#include "utility/mmdb_exception.h"
+
+#ifdef FISH_DEBUG
+#include "dbug.h" /* Fred Fish's dbug.h */
+#endif
+
+//---------------------------------------------------------------------
+int main(int argc, char **argv)
+{
+  INIT_EXCEPTIONS();
+
+  /* can't seem to get C++ initialization stuff to do this... */
+  OLAF::init();
+  
+  set_new_handler( FreeStoreException );
+  
+  int ret = 1;
+  
+#ifdef FISH_DEBUG
+  DBUG_PROCESS(argv[0]);
+  if(getenv("FISH_DBUG")) DBUG_PUSH(getenv("FISH_DBUG"));
+#endif
+
+  if(argc == 3){
+    char *infolibDir = argv[1];
+    char *bcname = argv[2];
+    OLIAS_DB mmdb_handle;
+    info_lib *mmdb = mmdb_handle.openInfoLib(infolibDir, bcname);
+    info_base* ibase = mmdb->get_info_base(bcname);
+
+    SearchPath *sptable = new SearchPath( ".", NULL );
+    Dispatch::search_path_table = sptable;
+
+    StyleTask *styleTask = new StyleTask( );
+    Stack<int> *istack = new Stack<int>;
+
+    Dispatch::setRoot(styleTask, istack);
+
+    try{
+      try{
+	extern int yylex();
+      
+	yylex();
+	
+	const char *styleName = styleTask->locator();
+	
+	stylesheet_smart_ptr sty(ibase, styleName);
+	
+	const char *ps = styleTask->print();
+	int ps_size    = styleTask->print_data_size();
+	
+	const char *os = styleTask->online();
+	int os_size    = styleTask->online_data_size();
+	
+	if(!ps) ps = "";
+	if( validate_stylesheet( ps, ps_size, PRINT ) ){
+	  Token::signalError(Token::User, Token::Fatal, 0, 0,
+			     "Print style sheet is invalid; update aborted.");
+	}
+	
+	if(!os) os = "";
+	if( validate_stylesheet( os, os_size, ONLINE ) ){
+	  Token::signalError(Token::User, Token::Fatal, 0, 0,
+			     "Online style sheet is invalid; update aborted.");
+	}
+	   
+	sty.update_hardcopy_data(ps, ps_size );
+	sty.update_online_data(os, os_size );
+
+	ret = 0;
+
+      }catch(Unexpected&, u){
+	Dispatch::tok->reportError(Token::User, Token::Fatal,
+				   "markup error: %s", u.msg());
+      }
+      catch(PosixError&, p){
+	Token::signalError(Token::Internal, Token::Fatal, 0, 0,
+			   "%s", p.msg() );
+      }end_try;
+	
+    }catch(ErrorReported&, e){
+      /* error is already reported. */
+    }catch(mmdbException&, e){
+      cerr << e;
+    }
+    catch_any() {
+      fprintf(stderr, "*** Internal Error ***: unexpected exception\n");
+      abort();
+    }end_try;
+
+  }else{
+    fprintf(stderr,
+	    "usage: sgmls styleheet | StyleUpdate <infolib> <bookcase>\n");
+  }
+
+  return ret;
+}