107 lines
1.9 KiB
C
107 lines
1.9 KiB
C
#include "yo.h"
|
|
|
|
static FILE *f;
|
|
|
|
static int
|
|
retlen(Type *t)
|
|
{
|
|
if(t == tnone)
|
|
return 0;
|
|
if(t->kind != Ttup)
|
|
return 1;
|
|
return decllen(t->ids);
|
|
}
|
|
|
|
static void
|
|
tyexported(Decl **arr, int n)
|
|
{
|
|
for(int i = 0; i < n; ++i){
|
|
Decl *d = arr[i];
|
|
if(isexported(d)==0)
|
|
continue;
|
|
Type *t = d->ty;
|
|
int l = decllen(t->ids);
|
|
fprintf(f, "type .%s struct %d %d\n",
|
|
d->sym->name, t->size,l);
|
|
for(Decl *dd=t->ids; dd;dd=dd->next){
|
|
Type *tt = dd->ty;
|
|
fprintf(f,"\t%s %s %d %d %d\n",
|
|
dd->sym->name,
|
|
tt->decl->sym->name,
|
|
tt->kind,
|
|
tt->size,
|
|
dd->offset);
|
|
}
|
|
}
|
|
}
|
|
|
|
static void
|
|
fnexported(Decl **arr, int n)
|
|
{
|
|
for(int i = 0; i < n; ++i){
|
|
Decl *d = arr[i];
|
|
if(isexported(d)==0)
|
|
continue;
|
|
Type *t = d->ty;
|
|
fprintf(f, "fn .%s %d %d %d %d\n",
|
|
d->sym->name, d->offset, d->pc->pc,
|
|
decllen(t->ids),
|
|
retlen(t->tof));
|
|
fprintf(f, "\t%d\n", t->size);
|
|
for(Decl *dd=t->ids; dd;dd=dd->next){
|
|
Type *tt = dd->ty;
|
|
fprintf(f,"\t%s %d %d %d\n",
|
|
tt->decl->sym->name,
|
|
tt->kind,
|
|
tt->size,
|
|
dd->offset);
|
|
}
|
|
t = t->tof;
|
|
bindsize(t);
|
|
fprintf(f, "\t%d\n", t->size);
|
|
if(t->kind==Ttup){
|
|
for(Decl *dd=t->ids; dd;dd=dd->next){
|
|
Type *tt = dd->ty;
|
|
fprintf(f,"\t%s %d %d %d\n",
|
|
tt->decl->sym->name,
|
|
tt->kind,
|
|
tt->size,
|
|
dd->offset);
|
|
}
|
|
}else
|
|
fprintf(f,"\t%s %d %d %d\n",
|
|
t->decl->sym->name,
|
|
t->kind,
|
|
t->size,
|
|
t->decl->offset);
|
|
}
|
|
}
|
|
void
|
|
genexports(char *name)
|
|
{
|
|
f = fopen(name, "w+");
|
|
assert(f != nil);
|
|
|
|
fprintf(f, "%s\n", pkgname->name);
|
|
tyexported(types, ntype);
|
|
fnexported(fns, nfn);
|
|
fprintf(f, "\n");
|
|
fclose(f);
|
|
}
|
|
|
|
void
|
|
genbin(char *name)
|
|
{
|
|
f = fopen(name, "w+");
|
|
wr4(f, nimport);
|
|
for(int i = 0; i < nimport; ++i){
|
|
char buf[1024];
|
|
sprintf(buf, "%s/obj", imports[i].path->name);
|
|
int len = strlen(buf);
|
|
wr4(f, len);
|
|
fwrite(buf, 1, len, f);
|
|
}
|
|
wr4(f, ninst);
|
|
disinst(f, firstinst);
|
|
fclose(f);
|
|
} |