53 lines
837 B
C
53 lines
837 B
C
/**
|
|
* See Copyright Notice in picrin.h
|
|
*/
|
|
|
|
#include "picrin.h"
|
|
#include "picrin/extra.h"
|
|
|
|
void
|
|
pic_init_picrin(pic_state *pic)
|
|
{
|
|
void pic_init_lib(pic_state *);
|
|
void pic_init_contrib(pic_state *);
|
|
void pic_load_piclib(pic_state *);
|
|
|
|
pic_init_lib(pic);
|
|
pic_init_contrib(pic);
|
|
pic_load_piclib(pic);
|
|
}
|
|
|
|
int picrin_argc;
|
|
char **picrin_argv;
|
|
char **picrin_envp;
|
|
|
|
int
|
|
main(int argc, char *argv[], char **envp)
|
|
{
|
|
pic_state *pic;
|
|
pic_value e;
|
|
int status;
|
|
|
|
pic = pic_open(pic_default_allocf, NULL, pic_default_panicf);
|
|
|
|
picrin_argc = argc;
|
|
picrin_argv = argv;
|
|
picrin_envp = envp;
|
|
|
|
pic_try {
|
|
pic_init_picrin(pic);
|
|
|
|
pic_funcall(pic, "picrin.main:main", 0);
|
|
|
|
status = 0;
|
|
}
|
|
pic_catch(e) {
|
|
pic_funcall(pic, "display", 2, e, pic_stderr(pic));
|
|
status = 1;
|
|
}
|
|
|
|
pic_close(pic);
|
|
|
|
return status;
|
|
}
|