ad4cac916c290b4ba1864ba7b0a2aa66073c0b7a
[mes.git] / src / vector.c
1 /* -*-comment-start: "//";comment-end:""-*-
2  * Mes --- Maxwell Equations of Software
3  * Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
4  *
5  * This file is part of Mes.
6  *
7  * Mes is free software; you can redistribute it and/or modify it
8  * under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 3 of the License, or (at
10  * your option) any later version.
11  *
12  * Mes is distributed in the hope that it will be useful, but
13  * WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with Mes.  If not, see <http://www.gnu.org/licenses/>.
19  */
20
21 SCM
22 make_vector__ (int k)
23 {
24   SCM v = alloc (k);
25   SCM x = make_cell__ (TVECTOR, k, v);
26   for (int i=0; i<k; i++) g_cells[v+i] = g_cells[vector_entry (cell_unspecified)];
27   return x;
28 }
29
30 SCM
31 make_vector_ (SCM n)
32 {
33   return make_vector__ (VALUE (n));
34 }
35
36 SCM
37 vector_length (SCM x)
38 {
39   assert (TYPE (x) == TVECTOR);
40   return MAKE_NUMBER (LENGTH (x));
41 }
42
43 SCM
44 vector_ref (SCM x, SCM i)
45 {
46   assert (TYPE (x) == TVECTOR);
47   assert (VALUE (i) < LENGTH (x));
48   SCM e = VECTOR (x) + VALUE (i);
49   if (TYPE (e) == TREF)
50     e = REF (e);
51   if (TYPE (e) == TCHAR)
52     e = MAKE_CHAR (VALUE (e));
53   if (TYPE (e) == TNUMBER)
54     e = MAKE_NUMBER (VALUE (e));
55   return e;
56 }
57
58 SCM
59 vector_entry (SCM x)
60 {
61   if (TYPE (x) == TPAIR || TYPE (x) == TSPECIAL || TYPE (x) == TSTRING || TYPE (x) == TSYMBOL || TYPE (x) == TVECTOR)
62     x = MAKE_REF (x);
63   return x;
64 }
65
66 SCM
67 vector_set_x (SCM x, SCM i, SCM e)
68 {
69   assert (TYPE (x) == TVECTOR);
70   assert (VALUE (i) < LENGTH (x));
71   g_cells[VECTOR (x)+VALUE (i)] = g_cells[vector_entry (e)];
72   return cell_unspecified;
73 }
74
75 SCM
76 list_to_vector (SCM x)
77 {
78
79   SCM v = make_vector__ (length__ (x));
80   SCM p = VECTOR (v);
81   while (x != cell_nil)
82     {
83       g_cells[p++] = g_cells[vector_entry (car (x))];
84       x = cdr (x);
85     }
86   return v;
87 }
88
89 SCM
90 vector_to_list (SCM v)
91 {
92   SCM x = cell_nil;
93   for (int i = 0; i < LENGTH (v); i++)
94     {
95       SCM e = VECTOR (v)+i;
96       if (TYPE (e) == TREF)
97         e = REF (e);
98       x = append2 (x, cons (e, cell_nil));
99     }
100   return x;
101 }