relicense to 0BSD

[pforth] / csrc / pf_main.c

/* @(#) pf_main.c 98/01/26 1.2 */
/***************************************************************
** Forth based on 'C'
**
** main() routine that demonstrates how to call PForth as
** a module from 'C' based application.
** Customize this as needed for your application.
**
** Author: Phil Burk
** Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
**
** Permission to use, copy, modify, and/or distribute this
** software for any purpose with or without fee is hereby granted.
**
** THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
** WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
** WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
** THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR
** CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
** FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
** CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
** OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
**
***************************************************************/

#if (defined(PF_NO_STDIO) || defined(PF_EMBEDDED))
   #define NULL  ((void *) 0)
   #define ERR(msg) /* { printf msg; } */
#else
   #include <stdio.h>
   #define ERR(msg) { printf msg; }
#endif

#include "pforth.h"

#ifndef PF_DEFAULT_DICTIONARY
#define PF_DEFAULT_DICTIONARY "pforth.dic"
#endif

#ifdef __MWERKS__
   #include <console.h>
   #include <sioux.h>
#endif

#ifndef TRUE
#define TRUE (1)
#define FALSE (0)
#endif

#ifdef PF_EMBEDDED
int main( void )
{
   char IfInit = 0;
   const char *DicName = NULL;
   const char *SourceName = NULL;
   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;
   ThrowCode 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 (int)Result;
}

#endif  /* PF_EMBEDDED */