Add logger lib

Includes helper function log-quote to print strings to the bottom of the screen and scrolling previous messages up automatically
ams-hackers · Jul 26, 2019 · a5c4019 · a5c4019
1 parent b7c2a06
commit a5c4019
Showing 1 changed file with 22 additions and 0 deletions.
diff --git a/lib/logger.fs b/lib/logger.fs
@@ -0,0 +1,22 @@
+require ./gbhw.fs
+require ./term.fs
+
+: scroll-to-bottom ( -- )
+  cursor-y @ 8 *
+  [ SCRN_Y 8 - ]L - \ SCRN_VY mod
+  rSCY c! ;
+
+: type-fill-line ( addr u -- )
+  type
+  SCRN_VX_B cursor-x @ - spaces ;
+
+:m log"
+  postpone scroll-to-bottom
+  postpone s"
+  postpone type-fill-line
+  postpone cr
+; immediate
+
+: init-logger
+  init-term
+  scroll-to-bottom ;