hachem.wtf
aboutsummaryrefslogtreecommitdiff
path: root/kernel/seed.rv
blob: cbb96e09d661ce727624912246baee4e1af74855 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
# js dw about this ok?

fn seed_bin() do
  fs:mkdir("/bin")
  for index in 0..prog_count() do
    fs:store("/bin/#{prog_name(index)}", phys_to_str(prog_phys(index), prog_size(index)))
  end
  for index in 0..script_count() do
    fs:store("/bin/#{script_name(index)}.rv", script_src(index))
  end
end

fn seed_fonts() do
  fs:mkdir("/fonts")
  for index in 0..font_count() do
    fs:store("/fonts/#{font_name(index)}", phys_to_str(font_phys(index), font_size(index)))
  end
end

fn seed_fs() do
  fs:mkdir("/usr")
  fs:mkdir("/etc")
  fs:mkdir("/home")

  fs:store("/etc/motd", "welcome to revel")
  fs:store("/etc/profile", """
    # /etc/profile runs once at shell startup, keep it quick

    if fs:size("/etc/motd") > 0 do
      puts(fs:read_bytes("/etc/motd", 0, motd_size))
      puts("\n")
    end
    """)
  fs:store("/home/balls.txt", "its lowk insane how big my balls are lol jk\n\t- hachem")
  fs:store("/home/i have big balls.txt", "dude my balls are actually massive lol jk\n\t- hachem")

  seed_bin()
  seed_fonts()
end