mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 00:13:12 +03:00
vere: adds %vile command for extracting keys
This commit is contained in:
parent
4d57c3c9a0
commit
31b9a4b470
@ -1585,6 +1585,69 @@ _cw_vere(c3_i argc, c3_c* argv[])
|
||||
u3l_log("vere: download succeeded\r\n");
|
||||
}
|
||||
|
||||
/* _cw_vile(): generatoe/print keyfile
|
||||
*/
|
||||
static void
|
||||
_cw_vile(c3_i argc, c3_c* argv[])
|
||||
{
|
||||
switch ( argc ) {
|
||||
case 2: {
|
||||
if ( !(u3_Host.dir_c = _main_pier_run(argv[0])) ) {
|
||||
fprintf(stderr, "unable to find pier\r\n");
|
||||
exit (1);
|
||||
}
|
||||
} break;
|
||||
|
||||
case 3: {
|
||||
u3_Host.dir_c = argv[2];
|
||||
} break;
|
||||
|
||||
default: {
|
||||
fprintf(stderr, "invalid command\r\n");
|
||||
exit(1);
|
||||
} break;
|
||||
}
|
||||
|
||||
// XX check if snapshot is stale?
|
||||
//
|
||||
c3_d eve_d = u3m_boot(u3_Host.dir_c);
|
||||
u3_noun sam = u3nc(u3nc(u3_nul, u3_nul),
|
||||
u3nc(c3n, u3nq(c3__once, 'j', c3__vile, u3_nul)));
|
||||
u3_noun res = u3v_soft_peek(0, sam);
|
||||
|
||||
|
||||
switch ( u3h(res) ) {
|
||||
default: c3_assert(0);
|
||||
|
||||
case c3n: {
|
||||
fprintf(stderr, "vile: unable to retrieve key file\r\n");
|
||||
u3_pier_punt_goof("foo", u3k(u3t(res)));
|
||||
}
|
||||
case c3y: {
|
||||
u3_noun dat, vil, out;
|
||||
c3_c* out_c;
|
||||
|
||||
if ( (u3_nul != u3h(u3t(res)))
|
||||
|| (c3n == u3r_pq(u3t(u3t(res)), c3__omen, 0, &dat))
|
||||
|| (c3n == u3r_p(dat, c3__atom, &vil))
|
||||
|| (c3n == u3a_is_atom(vil)) )
|
||||
{
|
||||
fprintf(stderr, "vile: unable to extract key file\r\n");
|
||||
u3m_p("vil", res);
|
||||
}
|
||||
else {
|
||||
out = u3dc("scot", c3__uw, u3k(vil));
|
||||
out_c = u3r_string(out);
|
||||
puts(out_c);
|
||||
c3_free(out_c);
|
||||
u3z(out);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
u3z(res);
|
||||
}
|
||||
|
||||
/* _cw_utils(): "worker" utilities and "serf" entrypoint
|
||||
*/
|
||||
static c3_i
|
||||
@ -1603,6 +1666,7 @@ _cw_utils(c3_i argc, c3_c* argv[])
|
||||
// [%prep dir=@t] :: prep upgrade
|
||||
// [%queu dir=@t eve=@ud] :: cue state
|
||||
// [?(%vere %fetch-vere) dir=@t] :: download vere
|
||||
// [%vile dir=@t] :: extract keys
|
||||
// :: :: ipc:
|
||||
// [%serf dir=@t key=@t wag=@t hap=@ud eve=@ud] :: compute
|
||||
// ==
|
||||
@ -1639,6 +1703,7 @@ _cw_utils(c3_i argc, c3_c* argv[])
|
||||
case c3__prep: _cw_prep(argc, argv); return 2; // continue on
|
||||
case c3__queu: _cw_queu(argc, argv); return 1;
|
||||
case c3__vere: _cw_vere(argc, argv); return 1;
|
||||
case c3__vile: _cw_vile(argc, argv); return 1;
|
||||
|
||||
case c3__serf: _cw_serf_commence(argc, argv); return 1;
|
||||
}
|
||||
|
@ -1239,6 +1239,7 @@
|
||||
# define c3__vern c3_s4('v','e','r','n')
|
||||
# define c3__very c3_s4('v','e','r','y')
|
||||
# define c3__view c3_s4('v','i','e','w')
|
||||
# define c3__vile c3_s4('v','i','l', 'e')
|
||||
# define c3__vint c3_s4('v','i','n','t')
|
||||
# define c3__void c3_s4('v','o','i','d')
|
||||
# define c3__vorp c3_s4('v','o','r','p')
|
||||
|
Loading…
Reference in New Issue
Block a user