sage
/
pebblisp
1
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Try to be less strict about whitespace in files

This commit is contained in:
Sage Vaillancourt 2020-10-30 09:52:46 -04:00
parent b5648963a7
commit 99fc088d3e
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
src/pebblisp.c
View File

@ -557,25 +557,28 @@ Object parseEval(const char *input, struct Environment *env)
} }
#ifdef STANDALONE #ifdef STANDALONE
int read_file(const char *filename, struct Environment *env) { int readFile(const char *filename, struct Environment *env) {
FILE *input = fopen(filename, "r"); FILE *input = fopen(filename, "r");
if(!input) { if(!input) {
return 1; return 1;
} }
Object r = numberObject(0); Object r = numberObject(0);
char buf[256]; char page[4096] = "";
if(fgets(buf, 256, input)){ char line[256];
if(buf[0] != '#' || buf[1] != '!') { if(fgets(line, 256, input)){
r = parseEval(buf, env); if(line[0] != '#' || line[1] != '!') {
strncat(page, line, strlen(line) - 1);
}
}
while(fgets(line, 256, input)) {
if(line[0] != ';') {
strncat(page, line, strlen(line) - 1);
}
}
r = parseEval(page, env);
printAndClean(&r); printAndClean(&r);
}
}
while(fgets(buf, 256, input)) {
if(buf[0] != ';') {
r = parseEval(buf, env);
printAndClean(&r);
}
}
fclose(input); fclose(input);
return 0; return 0;
} }
@ -595,7 +598,7 @@ int main(int argc, const char* argv[])
{ {
struct Environment env = defaultEnv(); struct Environment env = defaultEnv();
if(argc >= 2) { if(argc >= 2) {
if(read_file(argv[1], &env) != 0) { if(readFile(argv[1], &env) != 0) {
Object r = numberObject(0); Object r = numberObject(0);
for(int i = 1; i < argc; i++) { for(int i = 1; i < argc; i++) {
r = parseEval(argv[i], &env); r = parseEval(argv[i], &env);