int main(int argc, char *argv[]) { if (argc<2) { printf("I need 2 arguments to add\n"); return 1; } int x = atoi(argv[1]); int y = atoi(argv[2]); cl_boot(argc, argv); read_VV(OBJNULL, init_add); int sum = lisp_add(x, y); printf("%d\n", sum); cl_shutdown(); return 0; }
void shell_shutdown(void) { E_DB_FLUSH; serv_put_string(DUP("__exit")); usleep(10000); gui_apply(); alias_shutdown(); cl_shutdown(); menu_shutdown(); panel_shutdown(); drawing_free(); if((long)shell->title_dcd != -1L) iconv_close(shell->title_dcd); if((long)shell->dcd != -1L) iconv_close(shell->dcd); ecore_evas_free(shell->ee); IF_FREE(shell->title); IF_FREE(shell->rcfile); IF_FREE(shell->menu_file); IF_FREE(shell->icons_file); IF_FREE(shell->dim_styles_file); IF_FREE(shell->text_styles_file); IF_FREE(shell->line_styles_file); IF_FREE(shell->point_styles_file); IF_FREE(shell->hatch_styles_file); IF_FREE(shell->home); IF_FREE(shell->aliases); }
ECL::~ECL() { cl_shutdown(); }