simon/post-scarcity
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Well, a strat has been made.

Browse source
This commit is contained in:
simon 2017-01-06 16:21:11 +00:00
parent 2e77d2beb6
commit 0e693d4360
2 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/consspaceobject.h
View file

@ -38,6 +38,11 @@
*/
#define NIL (struct cons_pointer){ 0, 0}
/**
* a macro to convert a tag into a number
*/
#define tag2uint(tag) ((uint32_t)*tag)
/**
* An indirect pointer to a cons cell
@ -96,7 +101,7 @@ struct string_payload {
* an object in cons space.
*/
struct cons_space_object {
char tag[TAGLENGTH]; /* the tag (type) of this cons cell */
char tag[TAGLENGTH]; /* the tag (type) of this cell */
uint32_t count; /* the count of the number of references to this cell */
struct cons_pointer access; /* cons pointer to the access control list of this cell */
union {
@ -104,10 +109,15 @@ struct cons_space_object {
struct cons_payload cons;
/* if tag == FREETAG */
struct free_payload free;
/* if tag == INTEGERTAG */
struct integer_payload integer;
/* if tag == NILTAG; we'll treat the special cell NIL as just a cons */
struct cons_payload nil;
/* if tag == REALTAG */
struct real_payload real;
/* if tag == STRINGTAG */
struct string_payload string;
/* if tag == TRUETAG; we'll treat the special cell T as just a cons */
struct cons_payload t;
} payload;
};

3
src/init.c
View file

@ -13,10 +13,13 @@
#include "version.h"
#include "conspage.h"
#include "consspaceobject.h"
int main (int argc, char *argv[]) {
printf( "Post scarcity software environment version %s\n", VERSION);
conspagesinit();
// printf( "Tag2uint(\"FREE\") = %d\n", tag2uint("FREE"));
return(0);
}