Browse Source

more changes, nothing exciting

master
nisstyre56 10 years ago
parent
commit
4ce389c133
  1. 27
      Makefile
  2. 10
      closures.c
  3. 5
      closures.h
  4. 6
      tokenize.c

27
Makefile

@ -1,15 +1,30 @@
$(CC)=clang $(CC)=clang
default: tokenize.c closures.c default: tokenize.c closures.c tokenize.h closures.h
$(CC) -DNDEBUG -c -fPIC -Wall -Wextra -pedantic -Wpointer-arith -Werror --std=c99 -O3 ./tokenize.c $(CC) -lmaa -DNDEBUG -Wall -Wextra -pedantic -Wpointer-arith -Werror -std=c99 -O3 ./tokenize.c;
$(CC) -DNDEBUG -Wall -Wextra -pedantic -Wpointer-arith -Werror -std=c99 -O3 ./closures.c;
unsafe: tokenize.c closures.c tokenize.h closures.h
$(CC) -lmaa -DNDEBUG -std=c99 -O3 ./tokenize.c;
$(CC) -DNDEBUG -std=c99 -O3 ./closures.c;
unsafelib: tokenize.c closures.c tokenize.h closures.h
$(CC) -DLIB -DNDEBUG -c -fpic -std=c99 -O3 ./tokenize.c;
$(CC) -lmaa -shared -o tokenize.so tokenize.o;
$(CC) -DLIB -DNDEBUG -c -fpic -std=c99 -O3 ./closures.c;
$(CC) -shared -o closures.so closures.o;
lib: tokenize.c closures.c tokenize.h closures.h
$(CC) -DLIB -DNDEBUG -c -fpic -Wall -Wextra -pedantic -Wpointer-arith -Werror -std=c99 -O3 ./tokenize.c
$(CC) -lmaa -shared -o tokenize.so tokenize.o; $(CC) -lmaa -shared -o tokenize.so tokenize.o;
$(CC) -DNDEBUG -c -fPIC -Wall -Wextra -pedantic -Wpointer-arith -Werror --std=c99 -O3 ./closures.c; $(CC) -DLIB -DNDEBUG -c -fpic -Wall -Wextra -pedantic -Wpointer-arith -Werror -std=c99 -O3 ./closures.c;
$(CC) -shared -o closures.so closures.o; $(CC) -shared -o closures.so closures.o;
debug: tokenize.c closures.c debug: tokenize.c closures.c tokenize.h closures.h
$(CC) -g -c -fPIC -Wall -Wextra -pedantic -Wpointer-arith -Werror --std=c99 ./tokenize.c; $(CC) -g -c -fpic -Wall -Wextra -pedantic -Wpointer-arith -Werror -std=c99 ./tokenize.c;
$(CC) -lmaa -shared -o tokenize.so tokenize.o; $(CC) -lmaa -shared -o tokenize.so tokenize.o;
$(CC) -g -c -fPIC -Wall -Wextra -pedantic -Wpointer-arith -Werror --std=c99 ./closures.c; $(CC) -g -c -fpic -Wall -Wextra -pedantic -Wpointer-arith -Werror -std=c99 ./closures.c;
$(CC) -shared -o closures.so closures.o; $(CC) -shared -o closures.so closures.o;

10
closures.c

@ -90,7 +90,8 @@ invoke(closure_t closure, svalue_t val) {
return func(val, closure.fvars); return func(val, closure.fvars);
} }
/*static svalue_t* #ifndef LIB
static svalue_t*
make_adder_inner(svalue_t x, svalue_t *env) { make_adder_inner(svalue_t x, svalue_t *env) {
svalue_variants_t val; svalue_variants_t val;
val.integer = env[0].value.integer + x.value.integer; val.integer = env[0].value.integer + x.value.integer;
@ -101,9 +102,9 @@ static closure_t
make_adder(svalue_t *inc) { make_adder(svalue_t *inc) {
closure_t closure = make_closure(make_adder_inner, inc); closure_t closure = make_closure(make_adder_inner, inc);
return closure; return closure;
}*/ }
/*int int
main(void) { main(void) {
closure_t add2 = make_adder(box_int(2)); closure_t add2 = make_adder(box_int(2));
printf("%d\n", invoke(add2, *box_int(5))->value.integer); printf("%d\n", invoke(add2, *box_int(5))->value.integer);
@ -111,4 +112,5 @@ main(void) {
(void)box_double; (void)box_double;
(void)box_string; (void)box_string;
return 0; return 0;
}*/ }
#endif

5
closures.h

@ -50,9 +50,10 @@ make_closure(svalue_t* (*func)(svalue_t, svalue_t*),
svalue_t* svalue_t*
invoke(closure_t, svalue_t); invoke(closure_t, svalue_t);
/*static svalue_t* #ifndef LIB
static svalue_t*
make_adder_inner(svalue_t, svalue_t *); make_adder_inner(svalue_t, svalue_t *);
static closure_t static closure_t
make_adder(svalue_t *); make_adder(svalue_t *);
*/ #endif

6
tokenize.c

@ -467,3 +467,9 @@ release_tokens(token_stream *tokens) {
hsh_destroy(tokens->memo); hsh_destroy(tokens->memo);
return true; return true;
} }
#ifndef LIB
int main(void) {
return 0;
}
#endif