mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-06 06:48:48 +00:00
Intermediate; pattern matching in x86
This commit is contained in:
Dmitry Boulytchev
parent
34767b9dcb
commit
1f1ef2ce57
7 changed files with 184 additions and 303 deletions
|
|
@ -8,19 +8,25 @@
|
|||
# include <alloca.h>
|
||||
|
||||
# define STRING_TAG 0x00000000
|
||||
# define ARRAYU_TAG 0x01000000
|
||||
# define ARRAYB_TAG 0x02000000
|
||||
# define ARRAY_TAG 0x01000000
|
||||
# define SEXP_TAG 0x02000000
|
||||
|
||||
# define LEN(x) (x & 0x00FFFFFF)
|
||||
# define TAG(x) (x & 0xFF000000)
|
||||
|
||||
# define TO_DATA(x) ((data*)((char*)(x)-sizeof(int)))
|
||||
# define TO_SEXP(x) ((sexp*)((char*)(x)-2*sizeof(int)))
|
||||
|
||||
typedef struct {
|
||||
int tag;
|
||||
char contents[0];
|
||||
} data;
|
||||
|
||||
typedef struct {
|
||||
int tag;
|
||||
data contents;
|
||||
} sexp;
|
||||
|
||||
extern int Blength (void *p) {
|
||||
data *a = TO_DATA(p);
|
||||
return LEN(a->tag);
|
||||
|
|
@ -30,7 +36,9 @@ extern void* Belem (void *p, int i) {
|
|||
data *a = TO_DATA(p);
|
||||
|
||||
if (TAG(a->tag) == STRING_TAG) return (void*)(int)(a->contents[i]);
|
||||
|
||||
|
||||
//printf ("elem %d = %p\n", i, (void*) ((int*) a->contents)[i]);
|
||||
|
||||
return (void*) ((int*) a->contents)[i];
|
||||
}
|
||||
|
||||
|
|
@ -49,7 +57,7 @@ extern void* Barray (int n, ...) {
|
|||
int i;
|
||||
data *r = (data*) malloc (sizeof(int) * (n+1));
|
||||
|
||||
r->tag = ARRAYB_TAG | n; //(boxed ? ARRAYB_TAG : ARRAYU_TAG) | size;
|
||||
r->tag = ARRAY_TAG | n;
|
||||
|
||||
va_start(args, n);
|
||||
|
||||
|
|
@ -63,6 +71,36 @@ extern void* Barray (int n, ...) {
|
|||
return r->contents;
|
||||
}
|
||||
|
||||
extern void* Bsexp (int n, ...) {
|
||||
va_list args;
|
||||
int i;
|
||||
sexp *r = (sexp*) malloc (sizeof(int) * (n+2));
|
||||
data *d = &(r->contents);
|
||||
|
||||
d->tag = SEXP_TAG | (n-1);
|
||||
|
||||
va_start(args, n);
|
||||
|
||||
for (i=0; i<n-1; i++) {
|
||||
int ai = va_arg(args, int);
|
||||
//printf ("arg %d = %x\n", i, ai);
|
||||
((int*)d->contents)[i] = ai;
|
||||
}
|
||||
|
||||
r->tag = va_arg(args, int);
|
||||
va_end(args);
|
||||
|
||||
//printf ("tag %d\n", r->tag);
|
||||
//printf ("returning %p\n", d->contents);
|
||||
|
||||
return d->contents;
|
||||
}
|
||||
|
||||
extern int Btag (void *d, int t) {
|
||||
data *r = TO_DATA(d);
|
||||
return TAG(r->tag) == SEXP_TAG && TO_SEXP(d)->tag == t;
|
||||
}
|
||||
|
||||
extern void Bsta (int n, int v, void *s, ...) {
|
||||
va_list args;
|
||||
int i, k;
|
||||
|
|
@ -82,227 +120,30 @@ extern void Bsta (int n, int v, void *s, ...) {
|
|||
else ((int*) s)[k] = v;
|
||||
}
|
||||
|
||||
/*
|
||||
extern void* Lstrdup (void *p) {
|
||||
data *s = TO_DATA(p);
|
||||
data *r = (data*) malloc (s->tag + sizeof(int) + 1);
|
||||
r->tag = s->tag;
|
||||
strncpy (r->contents, s->contents, s->tag + 1);
|
||||
return r->contents;
|
||||
}
|
||||
|
||||
extern int Lstrget (void *p, int i) {
|
||||
data *s = TO_DATA(p);
|
||||
return s->contents[i];
|
||||
}
|
||||
|
||||
extern void* Lstrset (void *p, int i, int c) {
|
||||
data *s = TO_DATA(p);
|
||||
s->contents[i] = c;
|
||||
return s;
|
||||
}
|
||||
|
||||
extern void* Lstrcat (void *p1, void *p2) {
|
||||
data *s1 = TO_DATA(p1), *s2 = TO_DATA(p2);
|
||||
data *r = (data*) malloc (s1->tag + s2->tag + sizeof (int) + 1);
|
||||
r->tag = s1->tag + s2->tag;
|
||||
strncpy (r->contents, s1->contents, s1->tag);
|
||||
strncpy (&(r->contents)[s1->tag], s2->contents, s2->tag+1);
|
||||
return r->contents;
|
||||
}
|
||||
|
||||
extern void* Lstrmake (int n, int c) {
|
||||
data *r = (data*) malloc (n + sizeof (int) + 1);
|
||||
int i;
|
||||
r->tag = n;
|
||||
for (i=0; i<n; i++) r->contents[i] = c;
|
||||
r->contents[n] = 0;
|
||||
return r->contents;
|
||||
}
|
||||
|
||||
extern void* Lstrsub (void *p, int i, int l) {
|
||||
data *s = TO_DATA(p);
|
||||
data *r = (data*) malloc (l + sizeof (int) + 1);
|
||||
r->tag = l;
|
||||
strncpy (r->contents, &(s->contents[i]), l);
|
||||
r->contents[l] = 0;
|
||||
return r->contents;
|
||||
}
|
||||
|
||||
extern int Lstrcmp (void *p1, void *p2) {
|
||||
int i;
|
||||
data *s1 = TO_DATA(p1), *s2 = TO_DATA(p2);
|
||||
int b = s1->tag < s2->tag ? s1->tag : s2->tag;
|
||||
for (i=0; i < b; i++) {
|
||||
if (s1->contents[i] < s2->contents[i]) return -1;
|
||||
if (s2->contents[i] < s1->contents[i]) return 1;
|
||||
}
|
||||
if (s1->tag < s2->tag) return -1;
|
||||
if (s1->tag > s2->tag) return 1;
|
||||
return 0;
|
||||
}
|
||||
|
||||
extern int Larrlen (void *p) {
|
||||
data *a = TO_DATA(p);
|
||||
return a->tag & 0x00FFFFFF;
|
||||
}
|
||||
|
||||
extern int L0arrElem (int i, void *p) {
|
||||
data *a = TO_DATA(p);
|
||||
return ((int*) a->contents)[i];
|
||||
}
|
||||
|
||||
extern void* L0sta (void *s, int n, ...) {
|
||||
data *a = TO_DATA(s);
|
||||
void Lprintf (char *s, ...) {
|
||||
va_list args;
|
||||
int i, k, v;
|
||||
data *p = a;
|
||||
|
||||
va_start(args, n);
|
||||
|
||||
for (i=0; i<n-1; i++) {
|
||||
k = va_arg(args, int);
|
||||
p = (data*) ((int*) p->contents)[k];
|
||||
}
|
||||
|
||||
k = va_arg(args, int);
|
||||
v = va_arg(args, int);
|
||||
|
||||
((int*) p->contents)[k] = v;
|
||||
|
||||
va_end(args);
|
||||
|
||||
return p;
|
||||
}
|
||||
|
||||
extern void* L0makeArray (int boxed, int size, ...) {
|
||||
va_list args;
|
||||
int i;
|
||||
data *r = (data*) malloc (sizeof(int)*(size+1));
|
||||
|
||||
r->tag = (boxed ? ARRAYB_TAG : ARRAYU_TAG) | size;
|
||||
|
||||
va_start(args, size);
|
||||
|
||||
for (i=0; i<size; i++) {
|
||||
int ai = va_arg(args, int);
|
||||
((int*)r->contents)[i] = ai;
|
||||
}
|
||||
|
||||
va_end(args);
|
||||
|
||||
return r->contents;
|
||||
}
|
||||
|
||||
extern void* L0makeSexp (int tag, int size, ...) {
|
||||
va_list args;
|
||||
int i;
|
||||
data *r = (data*) malloc (sizeof(int)*(size+1));
|
||||
|
||||
r->tag = ((tag+3) << 24) | size;
|
||||
|
||||
va_start(args, size);
|
||||
|
||||
for (i=0; i<size; i++) {
|
||||
int ai = va_arg(args, int);
|
||||
((int*)r->contents)[i] = ai;
|
||||
}
|
||||
|
||||
va_end(args);
|
||||
|
||||
return r->contents;
|
||||
}
|
||||
|
||||
extern int Ltag (void *p) {
|
||||
data *s = TO_DATA(p);
|
||||
int t = ((s->tag & 0xFF000000) >> 24) - 3;
|
||||
return t;
|
||||
}
|
||||
|
||||
extern int Ltagcmp (int t1, int t2) {
|
||||
return t1 == t2;
|
||||
}
|
||||
|
||||
extern void* Larrmake (int size, int val) {
|
||||
data *a = (data*) malloc (sizeof(int)*(size+1));
|
||||
int i;
|
||||
|
||||
a->tag = ARRAYU_TAG | size;
|
||||
|
||||
for (i=0; i<size; i++)
|
||||
((int*)a->contents)[i] = val;
|
||||
|
||||
return a->contents;
|
||||
}
|
||||
|
||||
extern void* LArrmake (int size, void *val) {
|
||||
data *a = (data*) malloc (sizeof(int)*(size+1));
|
||||
int i;
|
||||
|
||||
a->tag = ARRAYB_TAG | size;
|
||||
|
||||
for (i=0; i<size; i++)
|
||||
((data**)a->contents)[i] = val;
|
||||
|
||||
return a->contents;
|
||||
}
|
||||
|
||||
extern int Lread () {
|
||||
int result;
|
||||
|
||||
printf ("> ");
|
||||
fflush (stdout);
|
||||
scanf ("%d", &result);
|
||||
|
||||
return result;
|
||||
}
|
||||
|
||||
extern int Lwrite (int n) {
|
||||
printf ("%d\n", n);
|
||||
fflush (stdout);
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
extern int Lprintf (char *format, ...) {
|
||||
va_list args;
|
||||
int n = Lstrlen ((void*)format);
|
||||
|
||||
va_start (args, format);
|
||||
|
||||
vprintf (format, args);
|
||||
|
||||
va_start (args, s);
|
||||
vprintf (s, args);
|
||||
va_end (args);
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
extern void* Lfread (char *fname) {
|
||||
data *result;
|
||||
int size;
|
||||
FILE * file;
|
||||
int n = Lstrlen ((void*)fname);
|
||||
void Lfprintf (FILE *f, char *s, ...) {
|
||||
va_list args;
|
||||
|
||||
file = fopen (fname, "rb");
|
||||
|
||||
fseek (file, 0, SEEK_END);
|
||||
size = ftell (file);
|
||||
rewind (file);
|
||||
|
||||
result = (data*) malloc (size+sizeof(int)+1);
|
||||
result->tag = size;
|
||||
|
||||
fread (result->contents, sizeof(char), size, file);
|
||||
fclose (file);
|
||||
|
||||
result->contents[size] = 0;
|
||||
|
||||
return result->contents;
|
||||
va_start (args, s);
|
||||
vfprintf (f, s, args);
|
||||
va_end (args);
|
||||
}
|
||||
|
||||
// New one
|
||||
*/
|
||||
FILE* Lfopen (char *f, char *m) {
|
||||
return fopen (f, m);
|
||||
}
|
||||
|
||||
void Lfclose (FILE *f) {
|
||||
fclose (f);
|
||||
}
|
||||
|
||||
/* Lread is an implementation of the "read" construct */
|
||||
extern int Lread () {
|
||||
int result;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue