/* non-zero */\r
gVarBase = 10; /* Numeric Base. */\r
gDepthAtColon = DEPTH_AT_COLON_INVALID;\r
- gVarTraceStack = 1; \r
+ gVarTraceStack = 1;\r
\r
pfInitMemoryAllocator();\r
ioInit();\r
if( DicFileName )\r
{\r
pfDebugMessage("DicFileName = "); pfDebugMessage(DicFileName); pfDebugMessage("\n");\r
- EMIT_CR;\r
+ if( !gVarQuiet )\r
+ {\r
+ EMIT_CR;\r
+ }\r
dic = pfLoadDictionary( DicFileName, &EntryPoint );\r
}\r
else\r
{\r
- MSG(" (static)");\r
- EMIT_CR;\r
+ if( !gVarQuiet )\r
+ {\r
+ MSG(" (static)");\r
+ EMIT_CR;\r
+ }\r
dic = pfLoadStaticDictionary(); \r
}\r
}\r
\r
return -1;\r
}\r
+\r
+\r
+#ifdef PF_UNIT_TEST\r
+cell_t pfUnitTest( void )\r
+{\r
+ cell_t numErrors = 0;\r
+ numErrors += pfUnitTestText();\r
+ return numErrors;\r
+}\r
+#endif\r