root/trunk/orca/qt/main.cpp

/*============================================================================
    ORCA - A REBOL Interpreter
    Copyright (C) 2005  Karl Robillard

    This library is free software; you can redistribute it and/or
    modify it under the terms of the GNU Lesser General Public
    License as published by the Free Software Foundation; either
    version 2.1 of the License, or (at your option) any later version.

    This library 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
    Lesser General Public License for more details.

    You should have received a copy of the GNU Lesser General Public
    License along with this library; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
===========================================================================*/


#include <stdio.h>
#include "qorca.h"


#define ESC     27

#ifdef _WIN32
extern "C" void redirectIOToConsole();
#define OPEN_CONSOLE    redirectIOToConsole();
#else
#define OPEN_CONSOLE
#endif


int main( int argc, char** argv )
{
    OEnv env;
    QOrcaApp app( argc, argv );
    char cmd[ 128 ];
    int ret = 0;


    orInitEnv( &env, 0, 0 );
    qoInitEnv();
    

    if( argc > 1 )
    {
        OIndex strN;
        OValue* tos;

        tos = orTOS;
        strN = orMakeCString( argv[1], -1 );
        orSetTF(tos, OT_FILE );
        orSetSeries(tos, strN, 0 );

        orDoNative( tos );
        if( orErrorThrown )
        {
            if( ! orErrorIsType(OR_ERROR_QUIT) )
            {
                OPEN_CONSOLE

                if( ! orErrorIsType(OR_ERROR_HALT) )
                {
                    orResetEnv( &env );
                    goto halt;
                }

                orPrintNative( orErrorThrown );
                ret = -1;
            }
        }
    }
    else
    {
        OPEN_CONSOLE
        printf( "ORCA-Qt %s (%s)\n", OR_VERSION_STR, __DATE__ );

halt:
        while( 1 )
        {
            printf( "O> " );
            fflush( stdout );   /* Required on Windows. */
            fgets( cmd, 128, stdin ); 

#if 0
            {
                char* cp = cmd;
                while( *cp != '\n' )
                    printf( " %d", (int) *cp++ );
                printf( "\n" );
            }
#endif

            if( cmd[0] == ESC )
            {
                // Up   27 91 65
                // Down 27 91 66
                printf( "\n" );
            }
            else if( cmd[0] != '\n' )
            {
                orEvalCStr( cmd, -1 );

                if( orErrorThrown )
                {
                    if( orErrorIsType(OR_ERROR_QUIT) )
                        break;
                    if( ! orErrorIsType(OR_ERROR_HALT) )
                        orPrintNative( orErrorThrown );
                    orResetEnv( &env );
                }
                else
                {
                    OValue* val;
                    val = orTOS;
                    if( (val->type != OT_UNSET) &&
                        (val->type != OT_OBJECT) &&
                        (val->type != OT_FUNCTION) )
                    {
                        printf( "== " );
                        orProbe( val );
                    }
                }
            }
        }
    }

    qoFreeEnv();
    orFreeEnv( &env );

    return ret;
}


/*EOF*/