[Ooc-checkins] ooc2/src TestH2O.Mod,1.14,1.15

[Stewart G. <sgr...@us...>]

Update of /cvsroot/ooc/ooc2/src
In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv21828

Modified Files:
	TestH2O.Mod 
Log Message:
Added --componentPascal command-line option.



Index: TestH2O.Mod
===================================================================
RCS file: /cvsroot/ooc/ooc2/src/TestH2O.Mod,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- TestH2O.Mod	18 Mar 2005 07:30:04 -0000	1.14
+++ TestH2O.Mod	2 Mar 2007 01:59:39 -0000	1.15
@@ -24,6 +24,7 @@
   strictUndefine : Options.Option;
   debugDefine : Options.Option;
   text : Options.Option;
+  componentPascal : Options.Option;
 
   processOptions : SET; 
 
@@ -35,6 +36,7 @@
     text := Config.AddOption("text", CfgData.NewBooleanVar(FALSE));
     preprocess := Config.AddOption("preprocess", CfgData.NewBooleanVar(FALSE)); 
     evaluate := Config.AddOption("evaluate", CfgData.NewBooleanVar(FALSE)); 
+    componentPascal := Config.AddOption("componentPascal", CfgData.NewBooleanVar(FALSE)); 
 
     Config.AddCmdLine ("--repository,-r",
                  "<repositories><file-system>$1</file-system></repositories>");
@@ -50,6 +52,8 @@
                  "<options><set name='debugDefine'>TRUE</set></options>");
     Config.AddCmdLine ("--text",
                  "<options><set name='text'>TRUE</set></options>");
+    Config.AddCmdLine ("--componentPascal,-cp",
+                 "<options><set name='componentPascal'>TRUE</set></options>");
   END NewConfig;
 
 BEGIN
@@ -79,6 +83,10 @@
     END;
     Process.Init(processOptions);
 
+    IF componentPascal.value(CfgData.BooleanVar).boolean THEN
+      Translate.InitCP;
+    END;
+
 (*
     FOR i := 0 TO Config.arguments. ArgNumber()-1 DO
       arg := Config.arguments. Get (i);