toke.c

Go to the documentation of this file.

/*
 *                     OpenBIOS - free your system! 
 *                         ( FCode tokenizer )
 *                          
 *  toke.c - main tokenizer loop and parameter parsing.
 *  
 *  This program is part of a free implementation of the IEEE 1275-1994 
 *  Standard for Boot (Initialization Configuration) Firmware.
 *
 *  Copyright (C) 2001-2005 by Stefan Reinauer <stepan@openbios.org>
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; version 2 of the License.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA, 02110-1301 USA
 *
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>

#ifdef __GLIBC__
#define _GNU_SOURCE
#include <getopt.h>
#endif

#include "toke.h"
#include "stream.h"
#include "stack.h"
#include "emit.h"

#define TOKE_VERSION "0.6.10"

int verbose=0;
int noerrors=0;

static void print_copyright(void)
{
        printf( "Welcome to toke - OpenBIOS tokenizer v%s\nCopyright (c)"
                " 2001-2005 by Stefan Reinauer <stepan@openbios.org>\n"
                "This program is free software; you may redistribute it "
                "under the terms of\nthe GNU General Public License. This "
                "program has absolutely no warranty.\n\n", TOKE_VERSION);
}

static void usage(char *name)
{
        printf("usage: %s [-v] [-i] [-o target] <forth-file>\n\n",name);
        printf("  -v|--verbose          print debug messages\n");
        printf("  -i|--ignore-errors    don't bail out after an error\n");
        printf("  -h|--help             print this help message\n\n");

}

int main(int argc, char **argv)
{
        const char *optstring="vhio:?";
        char *outputname = NULL;
        int c;

        while (1) {
#ifdef __GLIBC__
                int option_index = 0;
                static struct option long_options[] = {
                        { "verbose", 0, 0, 'v' },
                        { "ignore-errors", 0, 0, 'i' },
                        { "help", 0, 0, 'h' },
                        { 0, 0, 0, 0 }
                };

                c = getopt_long (argc, argv, optstring,
                                 long_options, &option_index);
#else
                c = getopt (argc, argv, optstring);
#endif
                if (c == -1)
                        break;

                switch (c) {
                case 'v':
                        verbose=1;
                        break;
                case 'o':
                        outputname = optarg;
                        break;
                case 'i':
                        noerrors=1;
                        break;
                case 'h':
                case '?':
                        print_copyright();
                        usage(argv[0]);
                        return 0;               
                default:
                        print_copyright();
                        printf ("%s: unknown options.\n",argv[0]);
                        usage(argv[0]);
                        return 1;
                }
        }

        if (verbose)
                print_copyright();

        if (optind >= argc) {
                print_copyright();
                printf ("%s: filename missing.\n",argv[0]);
                usage(argv[0]);
                return 1;
        }

        init_stack();
        init_dictionary();
        init_macros();
        init_scanner();
        
        while (optind < argc) {
                if (init_stream(argv[optind])) {
                        printf ("%s: warning: could not open file \"%s\"\n",
                                        argv[0], argv[optind]);
                        optind++;
                        continue;
                }
                init_output(argv[optind], outputname);

                tokenize();
                finish_headers();
                
                close_output();
                close_stream();
                
                optind++;
        }
        
        exit_scanner();
        return 0;
}

---