- // Check to make sure we are running in 32-bit mode.
- if( sizeof(long) != 4 )
- {
- pfMessage(gErrorMsg32Bit);
- return 1;
- }\r
- pfMessage("\npForth Embedded\n");\r
- return pfDoForth( DicName, SourceName, IfInit);\r
-}\r
-#else\r
-\r
-int main( int argc, char **argv )\r
-{\r
-#ifdef PF_STATIC_DIC\r
- const char *DicName = NULL;\r
-#else /* PF_STATIC_DIC */\r
- const char *DicName = PF_DEFAULT_DICTIONARY;\r
-#endif /* !PF_STATIC_DIC */\r
-\r
- const char *SourceName = NULL;\r
- char IfInit = FALSE;\r
- char *s;\r
- int32 i;\r
- int Result;\r
-
- // Check to make sure we are running in 32-bit mode.
- if( sizeof(long) != 4 )
- {
- ERR((gErrorMsg32Bit));
- return 1;
- }
- \r
-/* For Metroworks on Mac */\r
-#ifdef __MWERKS__\r
- argc = ccommand(&argv);\r
-#endif\r
-\r
-/* Parse command line. */\r
- for( i=1; i<argc; i++ )\r
- {\r
- s = argv[i];\r
-\r
- if( *s == '-' )\r
- {\r
- char c;\r
- s++; /* past '-' */\r
- c = *s++;\r
- switch(c)\r
- {\r
- case 'i':\r
- IfInit = TRUE;\r
- DicName = NULL;\r
- break;\r
- \r
- case 'q':\r
- pfSetQuiet( TRUE );\r
- break;\r
- \r
- case 'd':\r
- if( *s != '\0' ) DicName = s;\r
- // Allow space after -d (Thanks Aleksej Saushev)\r
- // Make sure there is another argument.\r
- else if( (i+1) < argc )\r
- {\r
- DicName = argv[++i];\r
- }\r
- if (DicName == NULL || *DicName == '\0')\r
- {\r
- DicName = PF_DEFAULT_DICTIONARY;\r
- }\r
- break;\r
- \r
- default:\r
- ERR(("Unrecognized option!\n"));\r
- ERR(("pforth {-i} {-q} {-dfilename.dic} {sourcefilename}\n"));\r
- Result = 1;\r
- goto on_error;\r
- break;\r
- }\r
- }\r
- else\r
- {\r
- SourceName = s;\r
- }\r
- }\r
-/* Force Init */\r
-#ifdef PF_INIT_MODE\r
- IfInit = TRUE;\r
- DicName = NULL;\r
-#endif\r
-\r
- Result = pfDoForth( DicName, SourceName, IfInit);\r
-\r
-on_error:\r
- return Result;\r
-}\r
-\r
-#endif /* PF_EMBEDDED */\r
-\r
-\r
+ pfMessage("\npForth Embedded\n");
+ return pfDoForth( DicName, SourceName, IfInit);
+}
+#else
+
+int main( int argc, char **argv )
+{
+#ifdef PF_STATIC_DIC
+ const char *DicName = NULL;
+#else /* PF_STATIC_DIC */
+ const char *DicName = PF_DEFAULT_DICTIONARY;
+#endif /* !PF_STATIC_DIC */
+
+ const char *SourceName = NULL;
+ char IfInit = FALSE;
+ char *s;
+ cell_t i;
+ int Result;
+
+/* For Metroworks on Mac */
+#ifdef __MWERKS__
+ argc = ccommand(&argv);
+#endif
+
+ pfSetQuiet( FALSE );
+/* Parse command line. */
+ for( i=1; i<argc; i++ )
+ {
+ s = argv[i];
+
+ if( *s == '-' )
+ {
+ char c;
+ s++; /* past '-' */
+ c = *s++;
+ switch(c)
+ {
+ case 'i':
+ IfInit = TRUE;
+ DicName = NULL;
+ break;
+
+ case 'q':
+ pfSetQuiet( TRUE );
+ break;
+
+ case 'd':
+ if( *s != '\0' ) DicName = s;
+ /* Allow space after -d (Thanks Aleksej Saushev) */
+ /* Make sure there is another argument. */
+ else if( (i+1) < argc )
+ {
+ DicName = argv[++i];
+ }
+ if (DicName == NULL || *DicName == '\0')
+ {
+ DicName = PF_DEFAULT_DICTIONARY;
+ }
+ break;
+
+ default:
+ ERR(("Unrecognized option!\n"));
+ ERR(("pforth {-i} {-q} {-dfilename.dic} {sourcefilename}\n"));
+ Result = 1;
+ goto on_error;
+ break;
+ }
+ }
+ else
+ {
+ SourceName = s;
+ }
+ }
+/* Force Init */
+#ifdef PF_INIT_MODE
+ IfInit = TRUE;
+ DicName = NULL;
+#endif
+
+#ifdef PF_UNIT_TEST
+ if( (Result = pfUnitTest()) != 0 )
+ {
+ ERR(("pForth stopping on unit test failure.\n"));
+ goto on_error;
+ }
+#endif
+
+ Result = pfDoForth( DicName, SourceName, IfInit);
+
+on_error:
+ return Result;
+}
+
+#endif /* PF_EMBEDDED */
+
+