artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

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

Browse source 
* src/struct.c: Rewrite C constructs not supported by M2-Planet.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-04-19 13:39:12 +02:00
parent 038884ec62
commit 2440143579
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 15 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
src/struct.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.
* *
@ -29,9 +29,16 @@ make_struct (SCM type, SCM fields, SCM printer)
long size = 2 + length__ (fields); long size = 2 + length__ (fields);
SCM v = alloc (size); SCM v = alloc (size);
SCM x = make_cell__ (TSTRUCT, size, v); SCM x = make_cell__ (TSTRUCT, size, v);
g_cells[v] = g_cells[vector_entry (type)]; SCM vt = vector_entry (type);
g_cells[v + 1] = g_cells[vector_entry (printer)]; TYPE (v) = TYPE (vt);
for (long i = 2; i < size; i++) CAR (v) = CAR (vt);
CDR (v) = CDR (vt);
SCM vp = vector_entry (printer);
TYPE (v + 1) = TYPE (vp);
CAR (v + 1) = CAR (vp);
CDR (v + 1) = CDR (vp);
long i;
for (i = 2; i < size; i = i + 1)
{ {
SCM e = cell_unspecified; SCM e = cell_unspecified;
if (fields != cell_nil) if (fields != cell_nil)
@ -39,7 +46,10 @@ make_struct (SCM type, SCM fields, SCM printer)
e = CAR (fields); e = CAR (fields);
fields = CDR (fields); fields = CDR (fields);
} }
g_cells[v + i] = g_cells[vector_entry (e)]; SCM ve = vector_entry (e);
TYPE (v + i) = TYPE (ve);
CAR (v + i) = CAR (ve);
CDR (v + i) = CDR (ve);
} }
return x; return x;
} }