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
- else DicName = PF_DEFAULT_DICTIONARY;\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