/*

  * Copyright (C) 2012 David Anderson

  *

  * This file is part of JITCraft.

  *

  * JITCraft 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.

  * 

  * Foobar 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

  * JITCraft. If not, see http://www.gnu.org/licenses/.

  */

 #include <stdio.h>

 #include "Utility.h"

 #include "Scanner.h"

 #include "Parser.h"

 #include "SemanticAnalysis.h"

 #include "Zone.h"

 #include "BytecodeCompiler.h"

 #include "Code.h"

 #include "Interpreter.h"

 #include "Modules.h"

 #include "RootScopes.h"

 #include "../include/keima.h"

 using namespace ke;

 class MessageReporter : public Ke::IMessageReporter

 {

   public:

     void onOutOfMemory() {

         fprintf(stderr, "Out of memory!\n");

     }

     void onUncaughtException(const char *message) {

         fprintf(stderr, "Uncaught exception: %s\n", message);

         Ke::IStackFrameIterator *iter = Ke::Keima::NewStackFrameIterator();

         unsigned index = 0;

         while (!iter->done()) {

             fprintf(stderr, "[%d] %s (%s line %d)\n",

                     index,

                     iter->function(),

                     iter->source(),

                     iter->lineNumber());

             iter->prev();

             index++;

         }

     }

 } s_Reporter;

 #if 0

 static bool

 Compile(const char *stream, size_t length)

 {

     printf("\n ------------ \n\n");

     Disassemble(module->getFunction(1)->code(), stdout);

     //Disassemble(module->getFunction(1), stdout);

     printf("\n ------------ \n\n");

     Function *main = module->getFunction(1);

     Top top = ZONE()->stack().begin();

     LocalTop localTop(top);

     Frame *frame = ZONE()->stack().pushFrame(main);

     if (!frame)

         return false;

     LocalSlot result;

     if (!Interpret(ZONE(), frame, &result))

         return false;

     printf("Result: %d\n", result.i32);

     return true;

 }

 #endif

 intptr_t PrintToServer(void *blah, intptr_t *params)

 {

     assert(params[0] == 3);

     const char *fmt = reinterpret_cast<const char *>(params[1]);

     const char *str = reinterpret_cast<const char *>(params[2]);

     int *d = reinterpret_cast<int *>(params[3]);

     printf(fmt, str, *d);

     return 16;

 }

 int main(int argc, char **argv)

 {

     if (argc < 2) {

         fprintf(stderr, "Usage: <file>\n");

         return 1;

     }

     if (!Ke::Keima::Initialize())

         return 1;

     Ke::Keima::InstallMessageReporter(&s_Reporter);

     {

         Ke::HandleScope scope;

         Ke::Local<Ke::Module> module = Ke::Compile(argv[1]);

         if (!module)

             return 1;

         Ke::Local<Ke::Native> native = module->getNative(0);

         native->bind(reinterpret_cast<void *>(PrintToServer));

         module->setNativeIdentity(reinterpret_cast<void *>(5));

         int result;

         Ke::Local<Ke::Function> fun = module->getPublic(0);

         if (Ke::Keima::Invoke(fun, NULL, 0, &result))

             printf("%d\n", result);

     }

     Ke::Keima::Shutdown();

 }