projects
/
pforth
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Change throw code for abort quote from -1 to -2.
[pforth]
/
csrc
/
pf_main.c
diff --git
a/csrc/pf_main.c
b/csrc/pf_main.c
index
df38d0c
..
a973553
100644
(file)
--- a/
csrc/pf_main.c
+++ b/
csrc/pf_main.c
@@
-74,6
+74,7
@@
int main( int argc, char **argv )
argc = ccommand(&argv);
\r
#endif
\r
\r
argc = ccommand(&argv);
\r
#endif
\r
\r
+ pfSetQuiet( FALSE );
\r
/* Parse command line. */
\r
for( i=1; i<argc; i++ )
\r
{
\r
/* Parse command line. */
\r
for( i=1; i<argc; i++ )
\r
{
\r
@@
-97,8
+98,8
@@
int main( int argc, char **argv )
\r
case 'd':
\r
if( *s != '\0' ) DicName = s;
\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
+ /
* 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
else if( (i+1) < argc )
\r
{
\r
DicName = argv[++i];
\r
@@
-128,6
+129,14
@@
int main( int argc, char **argv )
DicName = NULL;
\r
#endif
\r
\r
DicName = NULL;
\r
#endif
\r
\r
+#ifdef PF_UNIT_TEST
\r
+ if( (Result = pfUnitTest()) != 0 )
\r
+ {
\r
+ ERR(("pForth stopping on unit test failure.\n"));
\r
+ goto on_error;
\r
+ }
\r
+#endif
\r
+
\r
Result = pfDoForth( DicName, SourceName, IfInit);
\r
\r
on_error:
\r
Result = pfDoForth( DicName, SourceName, IfInit);
\r
\r
on_error:
\r