AbleOS/ableos
2
2
Fork 15
Code Issues Pull requests Projects Releases Wiki Activity

Compare commits

base: AbleOS:528b1fc66ce71c5627a96b93f319235f5125d6c7
Branches Tags
AbleOS:master
AbleOS:devcontainer
AbleOS:usermode
..
compare: AbleOS:0f3c94c0c9898530057183862c565d1daed12ec8
Branches Tags
AbleOS:master
AbleOS:devcontainer
AbleOS:usermode

No commits in common. "528b1fc66ce71c5627a96b93f319235f5125d6c7" and "0f3c94c0c9898530057183862c565d1daed12ec8" have entirely different histories.
528b1fc66c ... 0f3c94c0c9

12 changed files with 141 additions and 145 deletions
Show stats Expand all files Collapse all files

6
Cargo.lock generated
View file

@ -429,7 +429,7 @@ dependencies = [
[[package]]
name = "hbbytecode"
version = "0.1.0"
source = "git+https://git.ablecorp.us/AbleOS/holey-bytes.git#5555b9865a3ae9d512bc338c1f370aeca9975c60"
source = "git+https://git.ablecorp.us/AbleOS/holey-bytes.git#efa7271a5917c9b78ed06563df2bea13f895f8ca"
[[package]]
name = "hbbytecode"
@ -439,7 +439,7 @@ source = "git+https://git.ablecorp.us/ableos/holey-bytes#e494785f93dad2722ebd9e5
[[package]]
name = "hblang"
version = "0.1.0"
source = "git+https://git.ablecorp.us/AbleOS/holey-bytes.git#5555b9865a3ae9d512bc338c1f370aeca9975c60"
source = "git+https://git.ablecorp.us/AbleOS/holey-bytes.git#efa7271a5917c9b78ed06563df2bea13f895f8ca"
dependencies = [
"hbvm 0.1.0 (git+https://git.ablecorp.us/AbleOS/holey-bytes.git)",
]
@ -447,7 +447,7 @@ dependencies = [
[[package]]
name = "hbvm"
version = "0.1.0"
source = "git+https://git.ablecorp.us/AbleOS/holey-bytes.git#5555b9865a3ae9d512bc338c1f370aeca9975c60"
source = "git+https://git.ablecorp.us/AbleOS/holey-bytes.git#efa7271a5917c9b78ed06563df2bea13f895f8ca"
dependencies = [
"hbbytecode 0.1.0 (git+https://git.ablecorp.us/AbleOS/holey-bytes.git)",
]

19
repbuild/src/dev.rs
View file

@ -70,18 +70,15 @@ impl Package {
let mut bytes = Vec::new();
// compile here
println!("Precompilation");
let _ = hblang::run_compiler(
&path,
Options {
fmt: true,
..Default::default()
},
&mut bytes,
);
// let _ = hblang::run_compiler(
// &path,
// Options {
// fmt: true,
// ..Default::default()
// },
// &mut bytes,
// );
let _ = hblang::run_compiler(&path, Default::default(), &mut bytes);
println!("Post-compilation");
match std::fs::create_dir("target/programs") {
Ok(_) => (),
Err(e) if e.kind() == std::io::ErrorKind::AlreadyExists => (),

21
sysdata/libraries/stn/src/buffer.hb
View file

@ -1,19 +1,20 @@
string := @use("rel:string.hb")
string := @use("rel:string.hb");
receive_message := fn(buffer_id: int, memory_map_location: ^u8, length: int): ^u8 {
return @eca(^u8, 4, buffer_id, memory_map_location, length)
return @eca(void, 4, buffer_id, memory_map_location, length);
}
send_message := fn(buffer_id: int): void {
message := "Hello there\0"
message_length := string.length(message)
@eca(i32, 3, buffer_id, message, message_length)
return
message := "Hello there\0";
message_length := string.length(message);
@eca(i32, 3, buffer_id, message, message_length);
return;
}
create := fn(): int {
msg := "\{01}Number\0"
msg_length := string.length(msg);
*msg = 0
return @eca(int, 1, 0, msg, msg_length)
msg := "\{01}Number\0";
msg_length := string.length(msg);
*msg = 0;
return @eca(int, 1, 0, msg, msg_length);
}

8
sysdata/libraries/stn/src/lib.hb
View file

@ -1,4 +1,4 @@
string := @use("rel:string.hb")
log := @use("rel:log.hb")
memory := @use("rel:memory.hb")
buffer := @use("rel:buffer.hb")
string := @use("rel:string.hb");
log := @use("rel:log.hb");
memory := @use("rel:memory.hb");
buffer := @use("rel:buffer.hb");

21
sysdata/libraries/stn/src/log.hb
View file

@ -1,14 +1,15 @@
string := @use("rel:string.hb")
string := @use("rel:string.hb");
log := fn(message: ^u8, level: u8): void {
message_length := string.length(message);
*(message + message_length) = level
@eca(i32, 3, 1, message, message_length + 1)
return
message_length := string.length(message);
*(message + message_length) = level;
@eca(i32, 3, 1, message, message_length + 1);
return;
}
error := fn(message: ^u8): void return log(message, 0)
warn := fn(message: ^u8): void return log(message, 1)
info := fn(message: ^u8): void return log(message, 2)
debug := fn(message: ^u8): void return log(message, 3)
trace := fn(message: ^u8): void return log(message, 4)
error:= fn(message: ^u8):void return log(message, 0);
warn:= fn(message: ^u8):void return log(message, 1);
info:= fn(message: ^u8):void return log(message, 2);
debug:= fn(message: ^u8):void return log(message, 3);
trace:= fn(message: ^u8):void return log(message, 4);

20
sysdata/libraries/stn/src/memory.hb
View file

@ -1,18 +1,18 @@
request_page := fn(page_count: u8): ^u8 {
msg := "\{00}\{01}xxxxxxxx\0"
msg_page_count := msg + 1;
*msg_page_count = page_count
return @eca(^u8, 3, 2, msg, 12)
msg := "\{00}\{01}xxxxxxxx\0";
msg_page_count := msg + 1;
*msg_page_count = page_count;
return @eca(^u8, 3, 2, msg, 12);
}
release_page := fn(ptr: ^u8, page_count: u8): void {
msg := "\{01}\{00}xxxxxxxx\0"
msg := "\{01}\{00}xxxxxxxx\0";
msg_page_count := msg + 1;
*msg_page_count = page_count
msg_page_count := msg + 1;
*msg_page_count = page_count;
msg_ptr := @as(^^u8, @bitcast(msg + 2));
*msg_ptr = ptr
msg_ptr := @as(^^u8, @bitcast(msg+2));
*msg_ptr = ptr;
return @eca(void, 3, 2, msg, 12)
return @eca(void, 3, 2, msg, 12);
}

80
sysdata/libraries/stn/src/string.hb
View file

@ -1,51 +1,51 @@
length := fn(ptr: ^u8): int {
len := 0
loop if *ptr == 0 break else {
len += 1
ptr += 1
len := 0;
loop if *ptr == 0 break else {
len += 1;
ptr += 1;
}
return len
return len;
}
display_int := fn(num: int, p: ^u8): ^u8 {
i := 0
if num == 0 {
set(p, 48)
return p
}
loop {
if num == 0 break
set(p + i, num % 10 + 48)
num /= 10
i += 1
}
reverse(p)
//null terminate
set(p + i, 0)
return p
i := 0;
if num == 0 {
set(p, 48);
return p;
}
loop {
if num == 0 break;
set(p + i, num % 10 + 48);
num /= 10;
i += 1;
}
reverse(p);
//null terminate
set(p + i, 0);
return p;
}
reverse := fn(s: ^u8): void {
//reverse a string, don't remove digits
len := 0
loop {
if *(s + len) == 0 break
len += 1
}
i := 0
j := len - 1
loop {
if i >= j break
temp := *(s + i);
*(s + i) = *(s + j);
*(s + j) = temp
i += 1
j -= 1
}
return
//reverse a string, don't remove digits
len := 0;
loop {
if *(s + len) == 0 break;
len += 1;
}
i := 0;
j := len - 1;
loop {
if i >= j break;
temp := *(s + i);
*(s + i) = *(s + j);
*(s + j) = temp;
i += 1;
j -= 1;
}
return;
}
set := fn(change: ^u8, new: int): void {
*change = new
return
set := fn(change: ^int, new: int): void {
*(change) = new;
return;
}

2
sysdata/programs/fb_driver/README.md
View file

@ -1,2 +0,0 @@
# Framebuffer Driver
A simple framebuffer driver.

16
sysdata/programs/fb_driver/src/main.hb
View file

@ -1,15 +1,15 @@
frame_buffer := @as(^u8, @bitcast(18446603339442421760))
main := fn(): int {
color := 17
frame_buffer := @as(^u8, @bitcast(18446603339442421760));
color := 17;
loop {
len := 786432 * 4 + 1
len := (786432 * 4)+1;
loop if len == 0 break else {
fb := frame_buffer + len;
*fb = color
len -= 1
color += len
*fb = color;
len = len - 1;
color += len;
}
}
return 0
return 0;
}

49
sysdata/programs/tests/src/main.hb
View file

@ -1,29 +1,28 @@
stn := @use("../../../libraries/stn/src/lib.hb")
log := stn.log
string := stn.string
memory := stn.memory
buffer := stn.buffer
/*
service_search := fn(): void {
// a :=
return;
}
*/
stn := @use("../../../libraries/stn/src/lib.hb");
log := stn.log;
string := stn.string;
memory := stn.memory;
buffer := stn.buffer;
main := fn(): int {
// Create a buffer
num := 2
buffer_id := buffer.create()
buffer.send_message(buffer_id)
memory_pages := memory.request_page(3)
buffer.receive_message(buffer_id, memory_pages, 4096 * 3)
log.info("abc\0")
memory.release_page(memory_pages, 3)
// Create a buffer
buffer_id := buffer.create();
buffer.send_message(buffer_id);
// todo: abstract this out
port_str := "\0\{70}\0"
a := @eca(u8, 3, 3, port_str, 2)
return 0
memory_pages := memory.request_page(3);
buffer.receive_message(buffer_id, memory_pages, 4096*3);
log.info("abc\0");
memory.release_page(memory_pages, 3);
// todo: abstract this out
port_str := "\0\{70}\0";
a := @eca(u8, 3, 3, port_str, 2);
return 0;
}

32
sysdata/programs/time_driver/src/main.hb
View file

@ -1,21 +1,21 @@
stn := @use("../../../libraries/stn/src/lib.hb")
log := stn.log
mem := stn.memory
s := stn.string
stn := @use("../../../libraries/stn/src/lib.hb");
log := stn.log;
mem := stn.memory;
s := stn.string;
page := 0
main := fn(): void {
page += mem.request_page(1)
port_str := "\0\{47}\0"
a := @eca(u8, 3, 3, port_str, 2)
page += mem.request_page(1);
port_str := "\0\{47}\0";
a := @eca(u8, 3, 3, port_str, 2);
n := 5000000
loop {
if n == 0 break
n -= 1
stack_reclamation_edge_case := 0
}
td := s.display_int(a, page)
log.debug(td)
return
n := 5000000;
loop {
if n == 0 break;
n -= 1;
stack_reclamation_edge_case := 0;
}
td := s.display_int(a, page);
log.debug(td);
return;
}