causa-arcana-misc
/
lesson-lisp
1
0
Fork 0
Code

Rewrite func "not" in Lisp

This commit is contained in:
Alex Kotov 2023-05-07 21:08:10 +04:00
parent baf566703e
commit ad7a80752a
Signed by: kotovalexarian
GPG Key ID: 553C0EBBEB5D5F08
4 changed files with 2 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Makefile
View File

@ -20,6 +20,7 @@ OBJS = \
LIBS = \
-r lib/lists.scm \
-r lib/logic.scm \
-r lib/io.scm \
-r lib/type_predicates.scm

1
lib/logic.scm Normal file
View File

@ -0,0 +1 @@
(define (not x) (if x #false #true))

16
src/builtins.c
View File

@ -31,8 +31,6 @@ static struct Object *func_equal_QN(size_t args_count, struct Object **args_arra
static struct Object *func_number_TO_string(size_t args_count, struct Object **args_array);
static struct Object *func_string_TO_symbol(size_t args_count, struct Object **args_array);
static struct Object *func_symbol_TO_string(size_t args_count, struct Object **args_array);
// Logical operators
static struct Object *func_not(size_t args_count, struct Object **args_array);
// Arithmetic operators
static struct Object *func_EQ(size_t args_count, struct Object **args_array);
static struct Object *func_PLUS(size_t args_count, struct Object **args_array);
@ -62,8 +60,6 @@ static struct Object builtins[] = {
{ .type = TYPE_PROCEDURE, .procedure = { "number->string", func_number_TO_string } },
{ .type = TYPE_PROCEDURE, .procedure = { "string->symbol", func_string_TO_symbol } },
{ .type = TYPE_PROCEDURE, .procedure = { "symbol->string", func_symbol_TO_string } },
// Logical operators
{ .type = TYPE_PROCEDURE, .procedure = { "not", func_not } },
// Arithmetic operators
{ .type = TYPE_PROCEDURE, .procedure = { "=", func_EQ } },
{ .type = TYPE_PROCEDURE, .procedure = { "+", func_PLUS } },
@ -455,18 +451,6 @@ struct Object *func_symbol_TO_string(
return Object_new_string(symbol->s);
}
/*********************
* Logical operators *
*********************/
struct Object *func_not(
const size_t args_count,
struct Object **const args_array
) {
assert(args_count == 1);
return Object_new_boolean(Object_is_false(args_array[0]));
}
/************************
* Arithmetic operators *
************************/

2
tests/arcana/builtin.scm
View File

@ -26,8 +26,6 @@
(assert-true (procedure? (arcana/builtin 'number->string)))
(assert-true (procedure? (arcana/builtin 'string->symbol)))
(assert-true (procedure? (arcana/builtin 'symbol->string)))
; Logical operators
(assert-true (procedure? (arcana/builtin 'not)))
; Arithmetic operators
(assert-true (procedure? (arcana/builtin '=)))
(assert-true (procedure? (arcana/builtin '+)))