Added kscurses and testing program.

1 files changed, 148 insertions, 0 deletions

diff --git a/kscurses/print.jai b/kscurses/print.jai
new file mode 100644
index 0000000..a023fea
--- /dev/null
+++ b/kscurses/print.jai
@@ -0,0 +1,148 @@
+ks_bell :: () {
+	bell_str : string;
+	bell := 7;
+	bell_str.data, bell_str.count = xx *bell, 1;
+	ks_write(bell_str);
+}
+
+ui_bell :: inline () {
+	#if ENABLE_UI_BELL ks_bell();
+}
+
+
+b_move_cursor :: inline (builder : *String_Builder, coord : ivec2) {
+	print_to_builder(builder, "\e[%;%H", coord.y + 1, coord.x + 1);
+}
+t_move_cursor :: inline (coord : ivec2) -> string {
+	return tprint("\e[%;%H", coord.y, coord.x);
+}
+ks_move_cursor :: inline (coord : ivec2) {
+	ks_write(tprint("\e[%;%H", coord.y + 1, coord.x + 1));
+}
+b_cursor_set_visibility :: inline (builder : *String_Builder, $$visible : bool) {
+	append(builder, ifx visible "\e[?25h" else "\e[?25l");
+}
+
+b_print :: (builder : *String_Builder, coord : ivec2, mode : Graphics_Mode, fmt : string, args : ..Any) {
+	if coord != .{-1, -1} b_move_cursor(builder, coord);
+	b_mode_set(builder, mode);
+	print_to_builder(builder, fmt, ..args);
+}
+t_print :: (coord : ivec2, mode : Graphics_Mode, fmt : string, args : ..Any) -> string {
+	builder := String_Builder.{allocator = temp};
+	b_print(*builder, coord, mode, fmt, ..args);
+	return builder_to_string(*builder, temp);
+}
+ks_print :: inline (coord : ivec2, mode : Graphics_Mode, fmt : string, args : ..Any) {
+	ks_write(t_print(coord, mode, fmt, ..args));
+}
+
+
+b_clear_screen :: (builder : *String_Builder) {
+	append(builder, "\e[2J");
+}
+t_clear_screen :: inline () -> string {
+	return "\e[2J";
+}
+ks_clear_screen :: inline () {	
+	ks_write("\e[2J");
+}
+
+
+b_esc_m :: inline (builder : *String_Builder, $$code : int) {
+	print_to_builder(builder, "\e[%m", code);
+}
+t_esc_m :: inline ($$code : int) -> string {
+	return tprint("\e[%m", code);
+}
+ks_esc_m :: inline ($$code : int) {
+	ks_write(t_esc_m(code));
+}
+
+
+#scope_file
+b_mode_difference :: (builder : *String_Builder, prev : Graphics_Mode, using current : Graphics_Mode) {
+	printed_first := false;
+	add_code :: (code : u8) #expand {
+		// assert(code != xx Attr.BOLD);
+		// assert(code != xx Attr.DIM);
+		if printed_first {
+			print_to_builder(builder, ";%", code);
+		} else {
+			print_to_builder(builder, "\e[%", code);
+			printed_first = true;
+		}
+	}
+	add_code_on_off :: (prev : bool, current : bool, on_code : Attr, off_code : Attr) #expand { 
+		if prev != current add_code(xx(ifx current on_code else off_code));
+	}
+	if foreground != prev.foreground || fcol256 != prev.fcol256 {
+		if foreground != Color.COLOR256 {
+			add_code(xx foreground);
+		} else {
+			add_code(38); add_code(5); add_code(xx fcol256);			
+		}
+	}
+	if background != prev.background || bcol256 != prev.bcol256 {
+		if background != (Color.COLOR256 + 10) {
+			add_code(xx background);
+		} else {
+			add_code(48); add_code(5); add_code(xx bcol256);
+		}
+	}
+	if (prev.attr_flags & 1) != (attr_flags & 1) || (prev.attr_flags & 2) != (attr_flags & 2) {
+		off0 := (prev.attr_flags & 1) && !(attr_flags & 1);
+		off1 := (prev.attr_flags & 2) && !(attr_flags & 2);
+		if off0 || off1 {
+			add_code(xx Attr.BOLD_AND_DIM_OFF);		
+			if (attr_flags & 1) add_code(xx Attr.BOLD);
+			if (attr_flags & 2) add_code(xx Attr.DIM);
+		} else {
+			if (attr_flags & 1) && !(prev.attr_flags & 1) add_code(xx Attr.BOLD);
+			if (attr_flags & 2) && !(prev.attr_flags & 2) add_code(xx Attr.DIM);
+		}
+	}
+	add_code_on_off(xx prev.attr_flags &  4, xx attr_flags &  4, .ITALIC, .ITALIC_OFF);
+	add_code_on_off(xx prev.attr_flags &  8, xx attr_flags &  8, .UNDERLINE, .UNDERLINE_OFF);
+	add_code_on_off(xx prev.attr_flags & 16, xx attr_flags & 16, .BLINKING, .BLINKING_OFF);
+	add_code_on_off(xx prev.attr_flags & 32, xx attr_flags & 32, .INVERSE, .INVERSE_OFF);
+	add_code_on_off(xx prev.attr_flags & 64, xx attr_flags & 64, .STRIKETHROUGH, .STRIKETHROUGH_OFF);
+	if printed_first append(builder, "m");
+}
+#scope_export
+
+//TODO update_state := true
+b_mode_set :: (builder : *String_Builder, using mode : Graphics_Mode, update_state := true) {
+	b_mode_difference(builder, terminal_state.last_mode, mode);
+	if update_state terminal_state.last_mode = mode;
+}
+t_mode_set :: (mode : Graphics_Mode, update_state := true) -> string {
+	builder := String_Builder.{allocator = temp};
+	b_mode_set(*builder, mode, update_state);
+	return builder_to_string(*builder, temp);
+}
+
+ks_mode_reset :: (update_state := true) {
+	ks_write("\e[0m");
+	if update_state terminal_state.last_mode = .{};
+}
+t_mode_reset :: inline (update_state := true) -> string {
+	if update_state terminal_state.last_mode = .{};
+	return "\e[0m";
+}
+b_mode_reset :: inline (builder : *String_Builder, update_state := true) {
+	if update_state terminal_state.last_mode = .{};
+	append(builder, "\e[0m");
+}
+
+b_putchar :: (builder : *String_Builder, c : Char) {
+	b_mode_set(builder, c.mode);
+	b_putchar(builder, c.code);
+}
+
+b_putchar :: inline (builder : *String_Builder, code : u64) {
+	char_str : string;
+	char_str.data = xx *(code);
+	char_str.count = length_code(code);
+	append(builder, char_str);
+}