V25 with 64-bit support

[pforth] / csrc / pf_main.c

/* @(#) pf_main.c 98/01/26 1.2 */\r
/***************************************************************\r
** Forth based on 'C'\r
**\r
** main() routine that demonstrates how to call PForth as\r
** a module from 'C' based application.\r
** Customize this as needed for your application.\r
**\r
** Author: Phil Burk\r
** Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom\r
**\r
** The pForth software code is dedicated to the public domain,\r
** and any third party may reproduce, distribute and modify\r
** the pForth software code or any derivative works thereof\r
** without any compensation or license.  The pForth software\r
** code is provided on an "as is" basis without any warranty\r
** of any kind, including, without limitation, the implied\r
** warranties of merchantability and fitness for a particular\r
** purpose and their equivalents under the laws of any jurisdiction.\r
**\r
***************************************************************/\r
\r
#if (defined(PF_NO_STDIO) || defined(PF_EMBEDDED))\r
	#define NULL  ((void *) 0)\r
	#define ERR(msg) /* { printf msg; } */\r
#else\r
	#include <stdio.h>\r
	#define ERR(msg) { printf msg; }\r
#endif\r
\r
#include "pforth.h"\r
\r
#ifndef PF_DEFAULT_DICTIONARY\r
#define PF_DEFAULT_DICTIONARY "pforth.dic"\r
#endif\r
\r
#ifdef __MWERKS__\r
	#include <console.h>\r
	#include <sioux.h>\r
#endif\r
\r
#ifndef TRUE\r
#define TRUE (1)\r
#define FALSE (0)\r
#endif\r
\r
#ifdef PF_EMBEDDED\r
int main( void )\r
{\r
    char IfInit = 0; \r
    const char *DicName = NULL;\r
    const char *SourceName = NULL;\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
	cell_t i;\r
	int Result;\r
\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