kernel.cpp

//
// kernel.cpp
//
// 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/>.
//
#include <unistd.h>

#include "kernel.h"
#include "lisp.h"

#include <iostream>
using namespace std;

// circle routine code:
CKernel *CKernel::s_pThis = 0;

CKernel::CKernel(void)
    : CStdlibAppStdio("circleLisp")
{
    s_pThis = this;
}

// I have to write Get here because s_pThis is initialized in the constructor function
CKernel *CKernel::Get(void)
{
    assert(s_pThis != 0);
    return s_pThis;
}

CStdlibApp::TShutdownMode CKernel::Run(void)
{
    int NELEM = 8191;
    ht_init(NELEM);
    init_env();
    struct object *exp;

    printf(
        "Microlisp intrepreter - (c) Michael Lazear 2016-2019, MIT License\n");

    load_file(cons(make_symbol("lib.scm"), NIL));

    printf("\n");

    printf("HELP:Use (ls),(cd \"folderName\"),(mkdir \"folderName\"),(unlink \"fileOrFolderName\") to manage FileSystem\n");
    printf("(ls) can only display files in current folder.\"folderName\" should write in double quotation marks,which microlisp needed\n");

    printf("\n");

    printf("Use (edit \"fileName\") to create&edit or open&edit a file.Ctrl+s to save,Ctrl+q to quit.(There is no prompt now)\n");

    printf("\n");

    printf("Use (go) to play gnugo1.2.(print exit to exit the program).Use (ttt) to play TicTacToe");

    printf("\n");

    string prompt;
    char buf[1024];

    for (;;)
    {
        getcwd(buf, sizeof(buf));

        prompt.clear();

        prompt.append("[");
        prompt.append(buf);
        prompt.append("]> ");
        // printf("user> ");
        cout << prompt;
        exp = eval(read_exp(stdin), ENV);
        if (!null(exp))
        {
            print_exp("====>", exp);
            printf("\n");
        }
    }

    return ShutdownHalt;
}