[Ooc-checkins] ooc2/src TestH2O.Mod,1.14,1.15
Brought to you by:
mva
|
From: Stewart G. <sgr...@us...> - 2007-03-02 01:59:40
|
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); |