71e4f38129
Baremetal is now the default build target and therefore has its sources
at the top-level. Baremetal programs build using the phase-2 Mu toolchain
that requires a Linux kernel. This phase-2 codebase which used to be at
the top-level is now under the linux/ directory. Finally, the phase-2 toolchain,
while self-hosting, has a way to bootstrap from a C implementation, which
is now stored in linux/bootstrap. The bootstrap C implementation uses some
literate programming tools that are now in linux/bootstrap/tools.
So the whole thing has gotten inverted. Each directory should build one
artifact and include the main sources (along with standard library). Tools
used for building it are relegated to sub-directories, even though those
tools are often useful in their own right, and have had lots of interesting
programs written using them.
A couple of things have gotten dropped in this process:
- I had old ways to run on just a Linux kernel, or with a Soso kernel.
No more.
- I had some old tooling for running a single test at the cursor. I haven't
used that lately. Maybe I'll bring it back one day.
The reorg isn't done yet. Still to do:
- redo documentation everywhere. All the README files, all other markdown,
particularly vocabulary.md.
- clean up how-to-run comments at the start of programs everywhere
- rethink what to do with the html/ directory. Do we even want to keep
supporting it?
In spite of these shortcomings, all the scripts at the top-level, linux/
and linux/bootstrap are working. The names of the scripts also feel reasonable.
This is a good milestone to take stock at.
44 lines
1.1 KiB
Forth
44 lines
1.1 KiB
Forth
type timespec {
|
|
tv_sec: int
|
|
tv_nsec: int
|
|
}
|
|
|
|
# return time in seconds since epoch
|
|
# TODO: y2038
|
|
fn time -> _/eax: int {
|
|
var t: timespec
|
|
var clock/ebx: int <- copy 0/CLOCK_MONOTONIC
|
|
var t-addr/ecx: (addr timespec) <- address t
|
|
syscall_clock_gettime
|
|
var t-secs-addr/ecx: (addr int) <- get t-addr, tv_sec
|
|
var secs/eax: int <- copy *t-secs-addr
|
|
return secs
|
|
}
|
|
|
|
# return time in nanoseconds since epoch
|
|
fn ntime -> _/eax: int {
|
|
var t: timespec
|
|
var clock/ebx: int <- copy 0/CLOCK_MONOTONIC
|
|
var t-addr/ecx: (addr timespec) <- address t
|
|
syscall_clock_gettime
|
|
var t-nsecs-addr/ecx: (addr int) <- get t-addr, tv_nsec
|
|
var nsecs/eax: int <- copy *t-nsecs-addr
|
|
return nsecs
|
|
}
|
|
|
|
# nsecs must be less than 999999999 or 0x3b9ac9ff nanoseconds
|
|
fn sleep secs: int, nsecs: int {
|
|
var t: timespec
|
|
# initialize t
|
|
var tmp/eax: (addr int) <- get t, tv_sec
|
|
var tmp2/ecx: int <- copy secs
|
|
copy-to *tmp, tmp2
|
|
tmp <- get t, tv_nsec
|
|
tmp2 <- copy nsecs
|
|
copy-to *tmp, tmp2
|
|
# perform the syscall
|
|
var t-addr/ebx: (addr timespec) <- address t
|
|
var rem-addr/ecx: (addr timespec) <- copy 0
|
|
syscall_nanosleep
|
|
}
|