mirror of
https://github.com/edeproject/ede.git
synced 2023-08-10 21:13:03 +03:00
Some error pretty printer
Removed dead code
This commit is contained in:
parent
23cf161b16
commit
19c9721a78
@ -85,14 +85,14 @@ void do_file_or_expr(FILE* f, const char* expr, const char* dir, int argc, char*
|
|||||||
|
|
||||||
if(f) {
|
if(f) {
|
||||||
scheme_load_file(&sc, f);
|
scheme_load_file(&sc, f);
|
||||||
if(sc.retcode != 0)
|
if(sc.retcode != 0 && sc.interactive_repl != 1)
|
||||||
puts("Errors in file");
|
puts("*** Errors in source file");
|
||||||
}
|
}
|
||||||
|
|
||||||
if(expr) {
|
if(expr) {
|
||||||
scheme_load_string(&sc, expr);
|
scheme_load_string(&sc, expr);
|
||||||
if(sc.retcode != 0)
|
if(sc.retcode != 0)
|
||||||
printf("Errors in expression '%s'\n", expr);
|
printf("*** Bad expression '%s'\n", expr);
|
||||||
}
|
}
|
||||||
|
|
||||||
scheme_deinit(&sc);
|
scheme_deinit(&sc);
|
||||||
|
@ -58,8 +58,6 @@
|
|||||||
* Basic memory allocation units
|
* Basic memory allocation units
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#define banner "TinyScheme 1.39"
|
|
||||||
|
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#ifndef __APPLE__
|
#ifndef __APPLE__
|
||||||
@ -96,10 +94,6 @@ static const char *strlwr(char *s) {
|
|||||||
# define prompt ">>> "
|
# define prompt ">>> "
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef InitFile
|
|
||||||
# define InitFile "init.scm"
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#ifndef ErrorHeader
|
#ifndef ErrorHeader
|
||||||
# define ErrorHeader "*** Error: "
|
# define ErrorHeader "*** Error: "
|
||||||
#endif
|
#endif
|
||||||
@ -4446,7 +4440,7 @@ void scheme_apply0(scheme *sc, const char *procname) {
|
|||||||
sc->interactive_repl=0;
|
sc->interactive_repl=0;
|
||||||
sc->retcode=0;
|
sc->retcode=0;
|
||||||
Eval_Cycle(sc,OP_EVAL);
|
Eval_Cycle(sc,OP_EVAL);
|
||||||
}
|
}
|
||||||
|
|
||||||
void scheme_call(scheme *sc, pointer func, pointer args) {
|
void scheme_call(scheme *sc, pointer func, pointer args) {
|
||||||
dump_stack_reset(sc);
|
dump_stack_reset(sc);
|
||||||
@ -4458,102 +4452,3 @@ void scheme_call(scheme *sc, pointer func, pointer args) {
|
|||||||
Eval_Cycle(sc, OP_APPLY);
|
Eval_Cycle(sc, OP_APPLY);
|
||||||
}
|
}
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
/* ========== Main ========== */
|
|
||||||
|
|
||||||
//#if STANDALONE
|
|
||||||
#if 0
|
|
||||||
|
|
||||||
#if defined(__APPLE__) && !defined (OSX)
|
|
||||||
int main()
|
|
||||||
{
|
|
||||||
extern MacTS_main(int argc, char **argv);
|
|
||||||
char** argv;
|
|
||||||
int argc = ccommand(&argv);
|
|
||||||
MacTS_main(argc,argv);
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
int MacTS_main(int argc, char **argv) {
|
|
||||||
#else
|
|
||||||
int main(int argc, char **argv) {
|
|
||||||
#endif
|
|
||||||
scheme sc;
|
|
||||||
FILE *fin;
|
|
||||||
char *file_name=InitFile;
|
|
||||||
int retcode;
|
|
||||||
int isfile=1;
|
|
||||||
|
|
||||||
if(argc==1) {
|
|
||||||
printf(banner);
|
|
||||||
}
|
|
||||||
if(argc==2 && strcmp(argv[1],"-?")==0) {
|
|
||||||
printf("Usage: %s [-? | <file1> <file2> ... | -1 <file> <arg1> <arg2> ...]\n\tUse - as filename for stdin.\n",argv[0]);
|
|
||||||
return 1;
|
|
||||||
}
|
|
||||||
if(!scheme_init(&sc)) {
|
|
||||||
fprintf(stderr,"Could not initialize!\n");
|
|
||||||
return 2;
|
|
||||||
}
|
|
||||||
scheme_set_input_port_file(&sc, stdin);
|
|
||||||
scheme_set_output_port_file(&sc, stdout);
|
|
||||||
#if USE_DL
|
|
||||||
scheme_define(&sc,sc.global_env,mk_symbol(&sc,"load-extension"),mk_foreign_func(&sc, scm_load_ext));
|
|
||||||
#endif
|
|
||||||
argv++;
|
|
||||||
if(access(file_name,0)!=0) {
|
|
||||||
char *p=getenv("TINYSCHEMEINIT");
|
|
||||||
if(p!=0) {
|
|
||||||
file_name=p;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
do {
|
|
||||||
if(strcmp(file_name,"-")==0) {
|
|
||||||
fin=stdin;
|
|
||||||
} else if(strcmp(file_name,"-1")==0 || strcmp(file_name,"-c")==0) {
|
|
||||||
pointer args=sc.NIL;
|
|
||||||
isfile=file_name[1]=='1';
|
|
||||||
file_name=*argv++;
|
|
||||||
if(strcmp(file_name,"-")==0) {
|
|
||||||
fin=stdin;
|
|
||||||
} else if(isfile) {
|
|
||||||
fin=fopen(file_name,"r");
|
|
||||||
}
|
|
||||||
for(;*argv;argv++) {
|
|
||||||
pointer value=mk_string(&sc,*argv);
|
|
||||||
args=cons(&sc,value,args);
|
|
||||||
}
|
|
||||||
args=reverse_in_place(&sc,sc.NIL,args);
|
|
||||||
scheme_define(&sc,sc.global_env,mk_symbol(&sc,"*args*"),args);
|
|
||||||
|
|
||||||
} else {
|
|
||||||
fin=fopen(file_name,"r");
|
|
||||||
}
|
|
||||||
if(isfile && fin==0) {
|
|
||||||
fprintf(stderr,"Could not open file %s\n",file_name);
|
|
||||||
} else {
|
|
||||||
if(isfile) {
|
|
||||||
scheme_load_file(&sc,fin);
|
|
||||||
} else {
|
|
||||||
scheme_load_string(&sc,file_name);
|
|
||||||
}
|
|
||||||
if(!isfile || fin!=stdin) {
|
|
||||||
if(sc.retcode!=0) {
|
|
||||||
fprintf(stderr,"Errors encountered reading %s\n",file_name);
|
|
||||||
}
|
|
||||||
if(isfile) {
|
|
||||||
fclose(fin);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
file_name=*argv++;
|
|
||||||
} while(file_name!=0);
|
|
||||||
if(argc==1) {
|
|
||||||
scheme_load_file(&sc,stdin);
|
|
||||||
}
|
|
||||||
retcode=sc.retcode;
|
|
||||||
scheme_deinit(&sc);
|
|
||||||
|
|
||||||
return retcode;
|
|
||||||
}
|
|
||||||
|
|
||||||
#endif
|
|
||||||
|
Loading…
Reference in New Issue
Block a user