diff options
| author | Igor <pashev.igor@gmail.com> | 2010-01-21 21:12:20 +0300 |
|---|---|---|
| committer | Igor <pashev.igor@gmail.com> | 2010-01-21 21:12:20 +0300 |
| commit | 6914bc8af663014624a686e0c07fa1cf18458b65 (patch) | |
| tree | 905ed8e92b9dd15a1a59085ddd41dee13553975b | |
| parent | 4f0202339437bea4d6cfde3a2872bef9c9a4d2ff (diff) | |
| download | brainfuck-6914bc8af663014624a686e0c07fa1cf18458b65.tar.gz | |
Optimize [-] and [+]
| -rw-r--r-- | brainfuck.c | 51 |
1 files changed, 38 insertions, 13 deletions
diff --git a/brainfuck.c b/brainfuck.c index aad8add..a9aed29 100644 --- a/brainfuck.c +++ b/brainfuck.c @@ -255,17 +255,23 @@ run_code() case ']': pop_cp(); break; + case 'Z': + data[dp] = 0; + ++cp; + break; case 'I': /* I23 -> add 22 to the current cell */ ++cp; sscanf(&(code[cp]), "%u", &d); (data[dp]) += (DATATYPE) d; - ++cp; /* minimum, other digit (if any) will be skipped */ + while (code[cp] >= '0' && code[cp] <= '9') + ++cp; /* skip digits */ break; case 'D': /* D23 -> subtract 22 from the current cell */ ++cp; sscanf(&(code[cp]), "%u", &d); (data[dp]) -= (DATATYPE) d; - ++cp; /* minimum, other digit (if any) will be skipped */ + while (code[cp] >= '0' && code[cp] <= '9') + ++cp; /* skip digits */ break; case '+': ++(data[dp]); @@ -279,13 +285,15 @@ run_code() ++cp; sscanf(&(code[cp]), "%u", &d); dp += d; - ++cp; /* minimum, other digit (if any) will be skipped */ + while (code[cp] >= '0' && code[cp] <= '9') + ++cp; /* skip digits */ break; case 'L': /* L2 -> move left by 2 cells */ ++cp; sscanf(&(code[cp]), "%u", &d); dp -= d; - ++cp; /* minimum, other digit (if any) will be skipped */ + while (code[cp] >= '0' && code[cp] <= '9') + ++cp; /* skip digits */ break; case '>': inc_dp(); @@ -320,7 +328,7 @@ run_code() default: ++cp; } - if (trace) + if (trace && cmd != ' ') { fprintf(stderr, "%c:", cmd); print_data(); @@ -331,7 +339,7 @@ run_code() void optimize_code() { - char *new_code; + char *new_code, *substr; unsigned int i, j, k; @@ -407,11 +415,20 @@ optimize_code() } } + /* FIXME valid while we use finite integers */ + substr = new_code; + while (NULL != (substr = strstr(substr, "[-]"))) + { + strncpy(substr, "Z ", 3); /* [-] set current cell to 0 */ + } + substr = new_code; + while (NULL != (substr = strstr(substr, "[+]"))) + { + strncpy(substr, "Z ", 3); /* [-] set current cell to 0 */ + } + free(code); code = new_code; - -/* printf("%s", code); - exit(EXIT_SUCCESS);*/ } void @@ -430,6 +447,10 @@ bf2c() { switch (cmd) { + case 'Z': + printf("data[dp] = 0;\n"); + ++cp; + break; case '[': printf("while (data[dp])\n{\n"); ++cp; @@ -442,13 +463,15 @@ bf2c() ++cp; sscanf(&(code[cp]), "%u", &d); printf("data[dp] += %u;\n", d); - ++cp; /* minimum, other digit (if any) will be skipped */ + while (code[cp] >= '0' && code[cp] <= '9') + ++cp; /* skip digits */ break; case 'D': /* D23 -> subtract 22 from the current cell */ ++cp; sscanf(&(code[cp]), "%u", &d); printf("data[dp] -= %u;\n", d); - ++cp; /* minimum, other digit (if any) will be skipped */ + while (code[cp] >= '0' && code[cp] <= '9') + ++cp; /* skip digits */ break; case '+': printf("++(data[dp]);\n"); @@ -462,13 +485,15 @@ bf2c() ++cp; sscanf(&(code[cp]), "%u", &d); printf("dp += %u;\n", d); - ++cp; /* minimum, other digit (if any) will be skipped */ + while (code[cp] >= '0' && code[cp] <= '9') + ++cp; /* skip digits */ break; case 'L': /* L2 -> move left by 2 cells */ ++cp; sscanf(&(code[cp]), "%u", &d); printf("dp -= %u;\n", d); - ++cp; /* minimum, other digit (if any) will be skipped */ + while (code[cp] >= '0' && code[cp] <= '9') + ++cp; /* skip digits */ break; case '>': printf("++dp;\n"); |