CLS.

Author: udhos

baslib/screen.go

@@ -41,6 +41,14 @@ func Screen(mode int) {
 	stdin = inkey.New(&scr) // replace inkey(os.Stdin) with inkey(tcell)
 }
 
+func Cls() {
+	if screenMode0() {
+		scr.s.Clear()
+	}
+	screenPos = 1
+	screenRow = 1
+}
+
 type screen struct {
 	s    tcell.Screen
 	keys chan tcell.EventKey

basparser/parser.y

@@ -1008,7 +1008,11 @@ stmt: /* empty */
   | TkKeywordKey TkKeywordList { $$ = unsupportedEmpty("KEY")  }
   | TkKeywordKey exp TkComma exp { $$ = unsupportedEmpty("KEY")  }
   | TkKeywordBeep { $$ = unsupportedEmpty("BEEP") }
-  | TkKeywordCls { $$ = unsupportedEmpty("CLS") }
+  | TkKeywordCls
+	{
+		Result.Baslib = true
+		$$ = &node.NodeCls{}
+	}
   | TkKeywordWidth exp { $$ = unsupportedEmpty("WIDTH") }
   | TkKeywordDefdbl letter_range_list
 	{

examples/screen.bas

@@ -1,16 +1,19 @@
 110 print "hit ENTER to initialize screen 0"
 120 print input$(1)
 130 screen 0
-140 print "screen 0 initialized. hit key to see term width test "
+140 print "screen 0 initialized": print "hit key to see CLS test"
 150 print input$(1)
-160 for i=1 to 200:print chr$((i mod 10)+asc("0"));:next
-170 print:print "width test done. hit key to see term scroll test"
+160 cls
+170 print "CLS tested. hit key to see term width test"
 180 print input$(1)
-190 for i=1 to 30:print i:next
-200 print "scroll test done. hit key to test keyboard input"
-210 i$=input$(1)
-220 while i$<>"q"
-230 print "key:";i$;" asc:";asc(i$)
-240 print "hit any other key, or q to exit"
-250 i$=input$(1)
-260 wend
+190 for i=1 to 200:print chr$((i mod 10)+asc("0"));:next
+200 print:print "width test done. hit key to see term scroll test"
+210 print input$(1)
+220 for i=1 to 30:print i:next
+230 print "scroll test done. hit key to test keyboard input"
+240 i$=input$(1)
+250 while i$<>"q"
+260 print "key:";i$;" asc:";asc(i$)
+270 print "hit any other key, or q to exit"
+280 i$=input$(1)
+290 wend

node/node.go

@@ -1806,3 +1806,29 @@ func (n *NodeScreen) Build(options *BuildOptions, outputf FuncPrintf) {
 // FindUsedVars finds used vars
 func (n *NodeScreen) FindUsedVars(options *BuildOptions) {
 }
+
+// NodeCls is cls
+type NodeCls struct{}
+
+// Name returns the name of the node
+func (n *NodeCls) Name() string {
+	return "CLS"
+}
+
+// Show displays the node
+func (n *NodeCls) Show(printf FuncPrintf) {
+	printf("[" + n.Name() + "]")
+}
+
+// Build generates code
+func (n *NodeCls) Build(options *BuildOptions, outputf FuncPrintf) {
+	outputf("// ")
+	n.Show(outputf)
+	outputf("\n")
+
+	outputf("baslib.Cls()\n")
+}
+
+// FindUsedVars finds used vars
+func (n *NodeCls) FindUsedVars(options *BuildOptions) {
+}