BOOL xyzsh_eval(int* rcode, char* cmd, char* source_name, fXyzshJobDone xyzsh_job_done_, sObject* nextin, sObject* nextout, int argc, char** argv, sObject* current_object)
{
string_put(gErrMsg, "");
xyzsh_job_done = xyzsh_job_done_;
stack_start_stack();
sObject* block = BLOCK_NEW_STACK();
int sline = 1;
if(parse(cmd, source_name, &sline, block, NULL)) {
xyzsh_set_signal();
sObject* fun = FUN_NEW_STACK(NULL);
sObject* stackframe = UOBJECT_NEW_GC(8, gXyzshObject, "_stackframe", FALSE);
vector_add(gStackFrames, stackframe);
//uobject_init(stackframe);
SFUN(fun).mLocalObjects = stackframe;
sObject* argv2 = VECTOR_NEW_GC(16, FALSE);
int i;
for(i=0; i<argc; i++) {
vector_add(argv2, STRING_NEW_GC(argv[i], FALSE));
}
uobject_put(SFUN(fun).mLocalObjects, "ARGV", argv2);
if(!run(block, nextin, nextout, rcode, current_object, fun)) {
xyzsh_restore_signal_default();
(void)vector_pop_back(gStackFrames);
stack_end_stack();
/// wait background job
xyzsh_wait_background_job();
return FALSE;
}
xyzsh_restore_signal_default();
(void)vector_pop_back(gStackFrames);
stack_end_stack();
}
else {
stack_end_stack();
/// wait background job
xyzsh_wait_background_job();
return FALSE;
}
/// wait background job
xyzsh_wait_background_job();
return TRUE;
}
void xyzsh_final()
{
xyzsh_editline_final();
mcurses_final();
load_final();
run_final();
gc_final();
stack_end_stack();
stack_final();
}
void xyzsh_opt_c(char* cmd, char** argv, int argc)
{
stack_start_stack();
int rcode = 0;
sObject* block = BLOCK_NEW_STACK();
int sline = 1;
if(parse(cmd, "xyzsh", &sline, block, NULL)) {
xyzsh_set_signal_optc();
sObject* fun = FUN_NEW_STACK(NULL);
sObject* stackframe = UOBJECT_NEW_GC(8, gXyzshObject, "_stackframe", FALSE);
vector_add(gStackFrames, stackframe);
//uobject_init(stackframe);
SFUN(fun).mLocalObjects = stackframe;
sObject* argv2 = VECTOR_NEW_GC(16, FALSE);
int i;
for(i=0; i<argc; i++) {
vector_add(argv2, STRING_NEW_GC(argv[i], FALSE));
}
uobject_put(SFUN(fun).mLocalObjects, "ARGV", argv2);
if(!run(block, gStdin, gStdout, &rcode, gRootObject, fun)) {
if(rcode == RCODE_BREAK) {
fprintf(stderr, "invalid break. Not in a loop\n");
}
else if(rcode & RCODE_RETURN) {
fprintf(stderr, "invalid return. Not in a function\n");
}
else if(rcode == RCODE_EXIT) {
}
else {
fprintf(stderr, "run time error\n");
fprintf(stderr, "%s", string_c_str(gErrMsg));
}
}
(void)vector_pop_back(gStackFrames);
xyzsh_restore_signal_default();
}
else {
fprintf(stderr, "parser error\n");
fprintf(stderr, "%s", string_c_str(gErrMsg));
}
if(rcode != 0) {
fprintf(stderr, "return code is %d\n", rcode);
}
stack_end_stack();
}
void xyzsh_readline_interface(char* cmdline, int cursor_point, char** argv, int argc, BOOL exit_in_spite_ofjob_exist, BOOL welcome_msg)
{
/// start interactive shell ///
xyzsh_job_done = main_xyzsh_job_done;
if(welcome_msg) {
char* version = getenv("XYZSH_VERSION");
printf("-+- Welcome to xyzsh %s -+-\n", version);
printf("run \"help\" command to see usage\n");
}
char* buf;
BOOL first = TRUE;
while(1) {
/// prompt ///
if(first) {
buf = ALLOC run_editline(cmdline, cursor_point);
first = FALSE;
}
else {
buf = ALLOC run_editline(NULL, -1);
}
/// run ///
if(buf == NULL) {
if(exit_in_spite_ofjob_exist) {
break;
}
else {
if(vector_count(gJobs) > 0) {
fprintf(stderr,"\njobs exist\n");
}
else {
break;
}
}
}
else if(*buf) {
stack_start_stack();
int rcode = 0;
sObject* block = BLOCK_NEW_STACK();
int sline = 1;
if(parse(buf, "xyzsh", &sline, block, NULL)) {
xyzsh_set_signal();
sObject* fun = FUN_NEW_STACK(NULL);
sObject* stackframe = UOBJECT_NEW_GC(8, gXyzshObject, "_stackframe", FALSE);
vector_add(gStackFrames, stackframe);
//uobject_init(stackframe);
SFUN(fun).mLocalObjects = stackframe;
sObject* argv2 = VECTOR_NEW_GC(16, FALSE);
int i;
for(i=0; i<argc; i++) {
vector_add(argv2, STRING_NEW_GC(argv[i], FALSE));
}
uobject_put(SFUN(fun).mLocalObjects, "ARGV", argv2);
if(!run(block, gStdin, gStdout, &rcode, gCurrentObject, fun)) {
if(rcode == RCODE_BREAK) {
fprintf(stderr, "invalid break. Not in a loop\n");
}
else if(rcode & RCODE_RETURN) {
fprintf(stderr, "invalid return. Not in a function\n");
}
else if(rcode == RCODE_EXIT) {
(void)vector_pop_back(gStackFrames);
stack_end_stack();
FREE(buf);
break;
}
else {
fprintf(stderr, "run time error\n");
fprintf(stderr, "%s", string_c_str(gErrMsg));
}
}
(void)vector_pop_back(gStackFrames);
}
else {
fprintf(stderr, "parser error\n");
fprintf(stderr, "%s", string_c_str(gErrMsg));
}
if(rcode != 0) {
fprintf(stderr, "return code is %d\n", rcode);
}
stack_end_stack();
}
/// wait background job
xyzsh_wait_background_job();
FREE(buf);
}
}
// EOF --> rcode == -2
// errors --> rcode == -1
BOOL xyzsh_readline_interface_onetime(int* rcode, char* cmdline, int cursor_pos, char* source_name, char** argv, int argc, fXyzshJobDone xyzsh_job_done_)
{
/// start interactive shell ///
xyzsh_job_done = xyzsh_job_done_;
/// edit line ///
char* buf = ALLOC run_editline(cmdline, cursor_pos);
/// run ///
if(buf == NULL) {
*rcode = -2;
/// wait background job
xyzsh_wait_background_job();
}
else if(*buf) {
stack_start_stack();
sObject* block = BLOCK_NEW_STACK();
int sline = 1;
if(parse(buf, "xyzsh", &sline, block, NULL)) {
xyzsh_set_signal();
sObject* fun = FUN_NEW_STACK(NULL);
sObject* stackframe = UOBJECT_NEW_GC(8, gXyzshObject, "_stackframe", FALSE);
vector_add(gStackFrames, stackframe);
//uobject_init(stackframe);
SFUN(fun).mLocalObjects = stackframe;
sObject* argv2 = VECTOR_NEW_GC(16, FALSE);
int i;
for(i=0; i<argc; i++) {
vector_add(argv2, STRING_NEW_GC(argv[i], FALSE));
}
uobject_put(SFUN(fun).mLocalObjects, "ARGV", argv2);
if(!run(block, gStdin, gStdout, rcode, gCurrentObject, fun)) {
xyzsh_restore_signal_default();
if(*rcode == RCODE_BREAK) {
fprintf(stderr, "invalid break. Not in a loop\n");
}
else if(*rcode & RCODE_RETURN) {
fprintf(stderr, "invalid return. Not in a function\n");
}
else if(*rcode == RCODE_EXIT) {
}
else {
fprintf(stderr, "run time error\n");
fprintf(stderr, "%s", string_c_str(gErrMsg));
}
if(*rcode != 0) {
fprintf(stderr, "return code is %d\n", *rcode);
}
(void)vector_pop_back(gStackFrames);
stack_end_stack();
/// wait background job
xyzsh_wait_background_job();
FREE(buf);
return FALSE;
}
(void)vector_pop_back(gStackFrames);
}
else {
xyzsh_restore_signal_default();
fprintf(stderr, "parser error\n");
fprintf(stderr, "%s", string_c_str(gErrMsg));
if(*rcode != 0) {
fprintf(stderr, "return code is %d\n", *rcode);
}
stack_end_stack();
/// wait background job
xyzsh_wait_background_job();
FREE(buf);
return FALSE;
}
if(*rcode != 0) {
fprintf(stderr, "return code is %d\n", *rcode);
}
stack_end_stack();
/// wait background job
xyzsh_wait_background_job();
FREE(buf);
}
return TRUE;
}
static ALLOC char* run_editline(char* text, int cursor_pos)
{
stack_start_stack();
char* buf;
char* prompt;
if(gPrompt) {
xyzsh_set_signal();
sObject* fun = FUN_NEW_STACK(NULL);
sObject* stackframe = UOBJECT_NEW_GC(8, gXyzshObject, "_stackframe", FALSE);
vector_add(gStackFrames, stackframe);
//uobject_init(stackframe);
SFUN(fun).mLocalObjects = stackframe;
sObject* nextout = FD_NEW_STACK();
int rcode;
if(!run(gPrompt, gStdin, nextout, &rcode, gCurrentObject, fun)) {
if(rcode == RCODE_BREAK) {
fprintf(stderr, "invalid break. Not in a loop\n");
}
else if(rcode & RCODE_RETURN) {
fprintf(stderr, "invalid return. Not in a function\n");
}
else if(rcode == RCODE_EXIT) {
fprintf(stderr, "invalid exit. In the prompt\n");
}
else {
fprintf(stderr, "run time error\n");
fprintf(stderr, "%s", string_c_str(gErrMsg));
}
}
(void)vector_pop_back(gStackFrames);
prompt = SFD(nextout).mBuf;
}
else {
prompt = " > ";
}
char* rprompt;
if(gRPrompt) {
sObject* fun = FUN_NEW_STACK(NULL);
sObject* stackframe = UOBJECT_NEW_GC(8, gXyzshObject, "_stackframe", FALSE);
vector_add(gStackFrames, stackframe);
//uobject_init(stackframe);
SFUN(fun).mLocalObjects = stackframe;
sObject* nextout2 = FD_NEW_STACK();
int rcode;
if(!run(gRPrompt, gStdin, nextout2, &rcode, gCurrentObject, fun)) {
if(rcode == RCODE_BREAK) {
fprintf(stderr, "invalid break. Not in a loop\n");
}
else if(rcode & RCODE_RETURN) {
fprintf(stderr, "invalid return. Not in a function\n");
}
else if(rcode == RCODE_EXIT) {
fprintf(stderr, "invalid exit. In the prompt\n");
}
else {
fprintf(stderr, "run time error\n");
fprintf(stderr, "%s", string_c_str(gErrMsg));
}
}
(void)vector_pop_back(gStackFrames);
rprompt = SFD(nextout2).mBuf;
}
else {
rprompt = NULL;
}
mreset_tty();
buf = ALLOC editline(prompt, rprompt, text, cursor_pos);
stack_end_stack();
return ALLOC buf;
}