andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: Prepare for M2-Planet: module.c. 

* src/module.c: Rewrite C constructs not supported by M2-Planet.
This commit is contained in:
Jan Nieuwenhuizen 2019-10-21 19:47:04 +02:00
parent eb2136b4b2
commit c8fe8f3de5
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/module.c
View File

@ -1,6 +1,6 @@
/* -*-comment-start: "//";comment-end:""-*- /* -*-comment-start: "//";comment-end:""-*-
* GNU Mes --- Maxwell Equations of Software * GNU Mes --- Maxwell Equations of Software
* Copyright © 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> * Copyright © 2018,2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
* *
* This file is part of GNU Mes. * This file is part of GNU Mes.
* *
@ -24,20 +24,19 @@
#include <assert.h> #include <assert.h>
SCM SCM
make_module_type () ///(internal)) make_module_type () /*:(internal)) */
{ {
SCM record_type = cell_symbol_record_type; // FIXME
SCM fields = cell_nil; SCM fields = cell_nil;
fields = cons (cstring_to_symbol ("globals"), fields); fields = cons (cstring_to_symbol ("globals"), fields);
fields = cons (cstring_to_symbol ("locals"), fields); fields = cons (cstring_to_symbol ("locals"), fields);
fields = cons (cstring_to_symbol ("name"), fields); fields = cons (cstring_to_symbol ("name"), fields);
fields = cons (fields, cell_nil); fields = cons (fields, cell_nil);
fields = cons (cell_symbol_module, fields); fields = cons (cell_symbol_module, fields);
return make_struct (record_type, fields, cell_unspecified); return make_struct (cell_symbol_record_type, fields, cell_unspecified);
} }
SCM SCM
make_initial_module (SCM a) ///((internal)) make_initial_module (SCM a) /*:((internal)) */
{ {
SCM module_type = make_module_type (); SCM module_type = make_module_type ();
a = acons (cell_symbol_module, module_type, a); a = acons (cell_symbol_module, module_type, a);
@ -71,7 +70,6 @@ make_initial_module (SCM a) ///((internal))
SCM SCM
module_printer (SCM module) module_printer (SCM module)
{ {
//module = m0;
fdputs ("#<", __stdout); fdputs ("#<", __stdout);
display_ (struct_ref_ (module, 2)); display_ (struct_ref_ (module, 2));
fdputc (' ', __stdout); fdputc (' ', __stdout);
@ -90,7 +88,7 @@ module_printer (SCM module)
SCM SCM
module_variable (SCM module, SCM name) module_variable (SCM module, SCM name)
{ {
//SCM locals = struct_ref_ (module, 3); /*SCM locals = struct_ref_ (module, 3);*/
SCM locals = module; SCM locals = module;
SCM x = assq (name, locals); SCM x = assq (name, locals);
if (x == cell_f) if (x == cell_f)