static void
create_global_env( void )
{
g_global = H_frame( H_None );
Cute env = g_global;
H_c_func1( "print", H_print, true, env );
create_classes();
}
int main()
{
//system("clear");
//cout << (int) '/' << " " << (int) 'a' << endl; exit(0);
//cout << strcmp("a", "b") << endl; exit(0);
create_classes();
create_functions();
universe *u;
list *l, *l0;
ascii *a;
ifstream in;
ofstream out;
/*// Initialization stuff
u = new universe("first command-line universe");
a = new ascii(u, "phalansterianism");
l = new list(u);
l->enqueue((item *) a);
u->add_special_reference((item *) l, "asciis");
out.open("local.U");
u->serialize(out);
out.close();
delete u;
//*/
///*
//cout << "Horst" << endl; cout.flush();
in.open("local.U");
u = new universe(in);
in.close();
//cout << "Weimar" << endl; cout.flush();
//procedure *p = new procedure(u, "input_new_ascii"
l0 = (list *) u->reference_special("asciis");
l = l0;
//cout << "imipramine" << endl; cout.flush();
char *s = new char[100], *runner;
cout << endl << "Input new strings. '\\q' exits." << endl;
get_line(s); //getline(cin, s); //cin >> s;
//cout << "Marrakesh" << endl; cout.flush();
while (true) {
if (*s != '\\') {
ascii *a = new ascii(u, s);
l->enqueue((item *) a);
} else {
if (!strcmp(s,"\\q")) {
break;
} else if (!strcmp(s,"\\-")) {
l = l0;
} else if (!strcmp(s,"\\system")) {
get_line(s);
system(s);
} else if (!strcmp(s,"\\lists")) {
u->display_special_references();
} else if (!strcmp(s,"\\all")) {
node *n = l->first();
while (n != NULL) {
cout << ((ascii *) n->key())->key() << endl;
n = n->next();
}
} else {
s++;
l = (list *) u->reference_special(s);
if (l == NULL) {
l = new list(u);
u->add_special_reference((item *) l, s);
}
s--;
}
}
//cin >> s;
get_line(s);
}
delete s;
out.open("local.U");
u->serialize(out);
out.close();
delete u;
//*/
delete functions;
delete classes;
}
