root/src/mm_crules.c

/**
 * mm_crules.c -> Part of Crules Programming language
 *
 * Crules is the legal property of its developers. Please refer to the
 * COPYRIGHT file distributed with this source distribution.
 *
 * 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, either version 3 of the License, or
 * (at your option) any later version.
 *
 * 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, see <http://www.gnu.org/licenses/>.
 **/

#ifdef HAVE_CONFIG_H
# include "config.h"
#else
# define CMAKE 1
# include "config.h.cmake"
#endif

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

#include <time.h>

#include <crules/crules.h>
#include <crules/opcodes.h>
#include <crules/symbols.h>
#include <crules/objects.h>
#include <crules/backend.h>
#include <crules/runtime.h>
#include <crules/garbage.h>
#include <crules/operators.h>

static int crules( const char * );

static void print_version( void );

static void print_help( const char * );

/**
 *@param rules if not NULL should be the path to the, crules code
 * to be run! Else if NULL will start an interactive session
 *
 *@return returns EXIT_SUCCESS or EXIT_FAILURE
 **/
static
int crules( const char* fin )
{
  int err= EXIT_SUCCESS;
  crl_init_tables( );
  crl_init_signals( );

  if( fin )
    {
      crl_debug("trying to open '%s'!\n", fin);
      FILE* f= fopen( fin, "rb" );
      if( f != (FILE*)0 )
        {
          err= crl_parse( f );
          if( f != (FILE*)0 )
            {
              fclose( f );
            }
        }
      else
        {
          crl_error("unable to open file %s\n", fin);
          err= EXIT_FAILURE;
        }
    }
  else
    {
      // print the nice header messages
      time_t lt= time( NULL );
      fprintf( stdout, "Crules %s - ", VERSION );
      fprintf( stdout, "%s", ctime( &lt ) );
#ifndef CMAKE
      fprintf( stdout, "[ %s:%s ( %s:%s ) ]\n", CONFIG_CC,
               CONFIG_CC_VER, SYSTEM_TYPE,  MACHINE_TYPE );
#endif
      // read from stdin since no specified input
      err= crl_parse( stdin );
    }

  crl_cleanup( );
  return err;
}

/**
 *@return prints the version info
 **/
static
void print_version( void )
{
  fprintf( crlout, "Crules interpreter version: %s\n", VERSION );
  fprintf( crlout, "Copyright (c) Philip Herron 2009-2010\n" );
#ifndef CMAKE
  fprintf( crlout, "Compiled for: %s %s\n", SYSTEM_TYPE, MACHINE_TYPE );
  fprintf( crlout, "Report suggestions and bugs to: %s\n", PACKAGE_BUGREPORT );
#endif
#if defined(MAINTAINER_INFO)
  fprintf( crlout, "%s!\n", MAINTAINER_INFO );
#endif

  fprintf( crlout, "\nThis is free software; see the source for copying conditions.  There is NO\n" );
  fprintf( crlout, "warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n\n" );
}

/**
 *@return prints the help info
 **/
static
void print_help( const char *start )
{
  fprintf( crlout, "Crules usage: %s [OPTION]... [FILE]...\n", start );
  fprintf( crlout, "  -h, --help    \t prints this help\n");
  fprintf( crlout, "  -v, --version \t prints the version\n");
  fprintf( crlout, "  <file.crl>    \t executes on the file else interactive\n\n");
}

/**
 * @param argc the number or arguments
 * @param argv the arguments themselves
 *
 * @returns the main method is the entry!
 **/
int main( int argc, char *argv[] )
{
  unsigned exit= EXIT_SUCCESS;
  if( argc == 1 )
    {
      //interactive session
      return ( crules( NULL ) );
    }
  else
    {
      int i= 1;
      for( ; i<argc; ++i )
        {
          if( strcmp("--version", argv[i]) == 0 )
            {
              print_version( );
              exit= EXIT_SUCCESS;
              break;
            }
          else if( strcmp("--help", argv[i]) == 0 )
            {
              print_help( argv[0] );
              exit= EXIT_SUCCESS;
              break;
            }
          //assume file!
          else
            {
              exit= ( crules( argv[i] ) );
              break;
            }
        }
    }
  return exit;
}