mirror of
https://github.com/urbit/shrub.git
synced 2024-11-28 13:54:20 +03:00
130 lines
2.4 KiB
C
130 lines
2.4 KiB
C
/* v/fs.c
|
|
**
|
|
** This file is in the public domain.
|
|
*/
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <fcntl.h>
|
|
#include <sys/ioctl.h>
|
|
#include <sys/stat.h>
|
|
#include <unistd.h>
|
|
#include <setjmp.h>
|
|
#include <gmp.h>
|
|
#include <stdint.h>
|
|
#include <uv.h>
|
|
#include <curses.h>
|
|
#include <termios.h>
|
|
#include <term.h>
|
|
|
|
#include "all.h"
|
|
#include "f/coal.h"
|
|
#include "v/vere.h"
|
|
|
|
/* u2_ve_file(): load internal file as atom from local or system.
|
|
*/
|
|
u2_weak
|
|
u2_ve_file(c3_c* ext_c, u2_noun tah)
|
|
{
|
|
u2_noun pas;
|
|
u2_weak dat;
|
|
|
|
c3_assert(u2_System);
|
|
pas = u2_cf_path(u2_System, ext_c, u2k(tah));
|
|
dat = u2_cf_flat_load(c3__atom, pas);
|
|
|
|
u2z(tah);
|
|
return dat;
|
|
}
|
|
|
|
/* u2_ve_date(): date internal file.
|
|
*/
|
|
c3_d
|
|
u2_ve_date(c3_c* ext_c, u2_noun tah)
|
|
{
|
|
u2_noun pas;
|
|
u2_weak dat;
|
|
|
|
pas = u2_cf_path(u2_System, ext_c, u2k(tah));
|
|
dat = u2_cf_flat_date(pas);
|
|
|
|
u2z(tah);
|
|
return dat;
|
|
}
|
|
|
|
/* u2_ve_frep(): load [.~ %rep myp {now} hat].
|
|
**
|
|
** File is either ~ or [nbytes mdate atom].
|
|
*/
|
|
u2_noun
|
|
u2_ve_frep(u2_noun myp, u2_noun hat)
|
|
{
|
|
// Total hack - switch to this form exclusively,
|
|
// then revise callers.
|
|
{
|
|
c3_c* dex_c = u2_cr_string(myp);
|
|
u2_noun tah = u2_ckb_flop(hat);
|
|
u2_weak fat = u2_ve_file(dex_c, u2_ct(tah));
|
|
|
|
u2_cz(myp);
|
|
if ( u2_none == fat ) {
|
|
u2_cz(tah);
|
|
free(dex_c);
|
|
return u2_nul;
|
|
} else {
|
|
c3_d wen_d = u2_ve_date(dex_c, tah);
|
|
c3_w wen_w[2];
|
|
|
|
wen_w[0] = (wen_d & 0xffffffffULL);
|
|
wen_w[1] = (wen_d >> 32ULL);
|
|
|
|
free(dex_c);
|
|
return u2nt(u2_cr_met(3, fat),
|
|
u2_ci_words(2, wen_w),
|
|
fat);
|
|
}
|
|
}
|
|
}
|
|
|
|
/* u2_ve_save(): save internal file as atom.
|
|
*/
|
|
u2_bean
|
|
u2_ve_save(c3_c* ext_c, u2_noun tah, u2_noun dat)
|
|
{
|
|
return u2_cf_flat_save(c3__atom, u2_cf_path(u2_System, ext_c, tah), dat);
|
|
}
|
|
|
|
/* u2_ve_fold(): load a list of all files with extension `ext` in `tah`.
|
|
*/
|
|
u2_noun
|
|
u2_ve_fold(c3_c* ext_c, u2_noun tah)
|
|
{
|
|
u2_noun pas = u2_cf_path(u2_System, 0, tah);
|
|
u2_noun raw = u2_cf_list(pas);
|
|
|
|
/* Filter for extension.
|
|
*/
|
|
if ( !ext_c ) {
|
|
return raw;
|
|
} else {
|
|
u2_noun lis = u2_nul;
|
|
|
|
while ( u2_nul != raw ) {
|
|
u2_noun i_raw = u2h(raw);
|
|
u2_noun t_raw = u2t(raw);
|
|
|
|
{
|
|
c3_c* str_c = u2_cr_string(i_raw);
|
|
c3_c* chr_c = strrchr(str_c, '.');
|
|
|
|
if ( !strcmp(ext_c, chr_c+1) ) {
|
|
*chr_c = 0;
|
|
lis = u2nc(u2_ci_string(str_c), lis);
|
|
}
|
|
}
|
|
raw = t_raw;
|
|
}
|
|
u2z(raw);
|
|
return lis;
|
|
}
|
|
}
|