ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-25 07:52:59 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'demo' of https://github.com/urbit/urbit into demo

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-06-03 14:12:53 -07:00
commit 99a803d127
1 changed files with 31 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
v/unix.c
View File

@ -334,6 +334,7 @@ _unix_file_done(uv_handle_t* was_u)
u3_ufil* fil_u = (void*) was_u; u3_ufil* fil_u = (void*) was_u;
// uL(fprintf(uH, "file: dun: %s\n", fil_u->pax_c)); // uL(fprintf(uH, "file: dun: %s\n", fil_u->pax_c));
// free(fil_u->pot_c); XXX
free(fil_u->pax_c); free(fil_u->pax_c);
free(fil_u); free(fil_u);
} }
@ -393,6 +394,7 @@ _unix_dir_done(uv_handle_t* was_u)
dir_u->fil_u = nex_u; dir_u->fil_u = nex_u;
} }
// free(dir_u->pot_c); XXX
free(dir_u->pax_c); free(dir_u->pax_c);
free(dir_u); free(dir_u);
} }
@ -706,10 +708,13 @@ _unix_dir_khan_file(u3_noun pam, u3_noun wib, u3_noun woz)
if ( c3n == u3du(wib) ) { if ( c3n == u3du(wib) ) {
ole = u3kdb_get(u3k(pam), u3k(wib)); ole = u3kdb_get(u3k(pam), u3k(wib));
if ( u3_none == ole || if ( u3_none == ole ) {
u3_nul == ole ) { ole = u3nq(u3_nul, woz, u3_nul, u3_nul);
}
else if ( u3_nul == ole ) {
ole = u3nt(u3_nul, woz, u3_nul); ole = u3nt(u3_nul, woz, u3_nul);
} else { }
else {
u3_noun elo; u3_noun elo;
elo = u3nt(u3_nul, woz, u3k(u3t(u3t(ole)))); elo = u3nt(u3_nul, woz, u3k(u3t(u3t(ole))));
@ -725,17 +730,20 @@ _unix_dir_khan_file(u3_noun pam, u3_noun wib, u3_noun woz)
ole = u3kdb_get(u3k(pam), u3k(fid)); ole = u3kdb_get(u3k(pam), u3k(fid));
if ( u3_none == ole || if ( u3_none == ole ) {
u3_nul == ole ) { ole = u3nq(u3_nul,
ole = u3nt(u3_nul, u3_nul,
u3_nul, u3_nul,
u3kdb_put(u3_nul, u3kdb_put(u3_nul,
u3k(har), u3k(har),
u3nt(u3_nul, woz, u3_nul))); u3nq(u3_nul, woz, u3_nul, u3_nul)));
}
else if ( u3_nul == ole ) {
c3_assert(!"impossible because of the strncmp check in _unix_dir_khan");
} }
else { else {
u3_noun oor, elo; u3_noun oor, elo;
u3_noun roo = u3t(u3t(ole)); u3_noun roo = u3t(u3t(u3t(ole)));
u3_weak tup = u3kdb_get(u3k(roo), u3k(har)); u3_weak tup = u3kdb_get(u3k(roo), u3k(har));
if ( u3_none == tup ) { if ( u3_none == tup ) {
@ -743,13 +751,13 @@ _unix_dir_khan_file(u3_noun pam, u3_noun wib, u3_noun woz)
} else { } else {
u3_noun upt; u3_noun upt;
upt = u3nt(u3_nul, woz, u3k(u3t(tup))); upt = u3nq(u3_nul, woz, u3_nul, u3k(u3t(tup)));
u3z(tup); u3z(tup);
tup = upt; tup = upt;
} }
oor = u3kdb_put(u3k(roo), u3k(har), tup); oor = u3kdb_put(u3k(roo), u3k(har), tup);
elo = u3nt(u3_nul, u3k(u3h(u3t(ole))), oor); elo = u3nq(u3_nul, u3k(u3h(u3t(ole))), u3_nul, oor);
u3z(ole); ole = elo; u3z(ole); ole = elo;
} }
@ -764,15 +772,21 @@ _unix_dir_khan_file(u3_noun pam, u3_noun wib, u3_noun woz)
static u3_noun static u3_noun
_unix_dir_khan(u3_udir* dir_u) _unix_dir_khan(u3_udir* dir_u)
{ {
//if ( c3y == dir_u->dry ) { if ( c3y == dir_u->dry ) {
// return u3_nul; return u3_nul;
//} }
u3_udir* dis_u; u3_udir* dis_u;
u3_ufil* fil_u; u3_ufil* fil_u;
u3_noun pam = u3_nul; u3_noun pam = u3_nul;
for ( dis_u = dir_u->dis_u; dis_u; dis_u = dis_u->nex_u ) { for ( dis_u = dir_u->dis_u; dis_u; dis_u = dis_u->nex_u ) {
for ( fil_u = dir_u->fil_u; fil_u; fil_u = fil_u->nex_u ) {
if ( 0 == strncmp(dis_u->pax_c, fil_u->pax_c, strlen(dis_u->pax_c)) ) {
dis_u->dry = c3n;
break;
}
}
u3_noun pre = _unix_dir_name(dis_u); u3_noun pre = _unix_dir_name(dis_u);
u3_noun kan = _unix_dir_khan(dis_u); u3_noun kan = _unix_dir_khan(dis_u);
@ -810,7 +824,7 @@ _unix_dir_khan(u3_udir* dir_u)
u3nt(u3_nul, u3_nul, baw)); u3nt(u3_nul, u3_nul, baw));
pam = _unix_dir_khan_file(pam, wib, wol); pam = _unix_dir_khan_file(pam, wib, wol);
} }
return u3nt(u3_nul, u3_nul, pam); return u3nq(u3_nul, u3_nul, u3_nul, pam);
} }
/* _find_mug(): find a noun with a given mug. retain. DELETEME /* _find_mug(): find a noun with a given mug. retain. DELETEME
@ -1117,15 +1131,14 @@ _unix_mkpath(const char *s)
goto out; goto out;
if ((up = strdup(r)) == NULL) if ((up = strdup(r)) == NULL)
exit(1); c3_assert(0);
_unix_mkpath(up); _unix_mkpath(up);
_unix_mkdir(path); _unix_mkdir(path);
out:
if (up != NULL)
free(up); free(up);
out:
free(q); free(q);
free(path); free(path);
} }
@ -1135,6 +1148,7 @@ out:
static void static void
_unix_dir_forge(u3_udir* dir_u, u3_udir* par_u, u3_noun tet) _unix_dir_forge(u3_udir* dir_u, u3_udir* par_u, u3_noun tet)
{ {
c3_c* tet_c = u3r_string(tet); c3_c* tet_c = u3r_string(tet);
c3_w pax_w = strlen(par_u->pax_c); c3_w pax_w = strlen(par_u->pax_c);
c3_w tet_w = strlen(tet_c); c3_w tet_w = strlen(tet_c);