/* ScummVM - Graphic Adventure Engine
 *
 * ScummVM is the legal property of its developers, whose names
 * are too numerous to list here. 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 2
 * 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, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 *
 */

#include "common/str.h"
#include "common/hash-str.h"
#include "common/hash-ptr.h"
#include "common/queue.h"
#include "common/list.h"
#include "common/array.h"
#include "common/rect.h"
#include "private/symbol.h"

#ifndef PRIVATE_GRAMMAR_H
#define PRIVATE_GRAMMAR_H

#define NSTACK 256
#define NPROG  10000


namespace Private {

typedef struct Datum {  /* interpreter stack type */
    short type;
    union {
        int  val;
        char    *str;
        Symbol  *sym;
        Common::Rect *rect;
    } u;
} Datum;


typedef struct Arg {
    int n;
    int (** inst)();
} Arg;

typedef int (* Inst)();  /* machine instruction */
#define STOP    (Inst) 0

typedef Common::HashMap<void *, Common::String *> PtrToName;
typedef Common::HashMap<Common::String, void *> NameToPtr;

extern void initInsts();
extern void initFuncs();


typedef struct Setting {

    Datum stack[NSTACK]; /* the stack */
    Datum *stackp;       /* next free spot on stack */

    Inst  prog[NPROG];   /* the machine */
    Inst  *progp;        /* next free spot for code generation */
    Inst  *pc;           /* program counter during execution */

} Setting;

// Settings

extern Setting *psetting;

typedef Common::HashMap<Common::String, Setting *> SettingMap;
typedef Common::Queue<Common::String> StringQueue;
typedef Common::Queue<Common::Rect *> RectQueue;

// Funtions

typedef Common::Array<Datum> ArgArray;
extern void call(char *, ArgArray);

// Code Generation

extern  Datum pop();
extern  int push(Datum);
extern  Inst *progp;

extern  Inst *code(Inst);
extern  Inst *prog;
extern  int eval();
extern  int add();
extern  int negate();
extern  int power();
extern  int assign();
extern  int bltin();
extern  int varpush();
extern  int constpush();
extern  int strpush();
extern  int funcpush();
extern  int print();
extern  int ifcode();
extern  int fail();
extern  int lt();
extern  int gt();
extern  int le();
extern  int ge();
extern  int eq();
extern  int ne();
extern  int randbool();

// Code Execution

extern void initSetting();
extern void saveSetting(char *);
extern void loadSetting(Common::String *);

extern void execute(Inst *);

} // End of namespace Private

#endif