Question mark as print.

Author: udhos

basgo-build/build_test.go

@@ -115,6 +115,10 @@ var testTable = []buildTest{
 	{"ugh", "", "", WRONG},            // invalid program
 	{`10 print "ab"`, "", "ab\n", OK}, // minimum program
 
+	{`10 ? "?"`, "", "?\n", OK},     // print
+	{`10 ? 1`, "", " 1 \n", OK},     // print
+	{`10 ? 2.2`, "", " 2.2 \n", OK}, // print
+
 	{`10 print log(1);`, "", " 0 ", OK},
 	{`10 print log(2.718281828459045);`, "", " 1 ", OK},
 	{`10 print log(2.718281828459045^7);`, "", " 7 ", OK},

baslex/baslex.go

@@ -28,6 +28,7 @@ const (
 	TkErrInvalid  = iota // Invalid, unexpected token found
 	TkErrLarge    = iota // Large token -- last error
 
+	TkQuestion     = iota // Question ?
 	TkHash         = iota // Colon #
 	TkColon        = iota // Colon :
 	TkComma        = iota // Comma ,
@@ -323,6 +324,7 @@ var tabType = []string{
 	"ERROR-INVALID",
 	"ERROR-LARGE",
 
+	"QUESTION",
 	"HASH",
 	"COLON",
 	"COMMA",

baslex/match.go

@@ -263,6 +263,8 @@ func matchBlank(l *Lex, b byte) Token {
 		return l.saveLocationValue(Token{ID: TkPow, Value: "^"})
 	case b == '\\':
 		return l.saveLocationValue(Token{ID: TkBackSlash, Value: "\\"})
+	case b == '?':
+		return l.saveLocationValue(Token{ID: TkQuestion, Value: "?"})
 	case b == '#':
 		return l.saveLocationValue(Token{ID: TkHash, Value: "#"})
 	case b == ':':

basparser/parser.y

@@ -102,6 +102,7 @@ import (
 %token <tok> TkErrInvalid
 %token <tok> TkErrLarge
 
+%token <tok> TkQuestion
 %token <tok> TkHash
 %token <tok> TkColon
 %token <tok> TkComma
@@ -343,6 +344,8 @@ then_or_goto: TkKeywordThen
            | TkKeywordGoto
            ;
 
+print: TkKeywordPrint | TkQuestion ;
+
 one_dim: TkIdentifier bracket_left const_list_num_noneg bracket_right
 	{
         	name := $1
@@ -692,7 +695,7 @@ stmt: /* empty */
        }
        $$ = &node.NodeClose{Numbers: list}
      }
-  | TkKeywordPrint TkHash exp TkComma expressions_push printfile_expressions expressions_pop semicolon_optional
+  | print TkHash exp TkComma expressions_push printfile_expressions expressions_pop semicolon_optional
      {
        num := $3
        list := $6
@@ -948,22 +951,22 @@ stmt: /* empty */
         Result.Baslib = true
         $$ = &node.NodeOpen{File:filename, Number:num, Mode:m}
      }
-  | TkKeywordPrint
+  | print
      {
         Result.Baslib = true
         $$ = &node.NodePrint{Newline: true}
      }
-  | TkKeywordPrint expressions_push print_expressions expressions_pop
+  | print expressions_push print_expressions expressions_pop
      {
         Result.Baslib = true
         $$ = &node.NodePrint{Expressions: $3, Newline: true}
      }
-  | TkKeywordPrint expressions_push print_expressions TkSemicolon expressions_pop
+  | print expressions_push print_expressions TkSemicolon expressions_pop
      {
         Result.Baslib = true
         $$ = &node.NodePrint{Expressions: $3}
      }
-  | TkKeywordPrint expressions_push print_expressions TkComma expressions_pop
+  | print expressions_push print_expressions TkComma expressions_pop
      {
         Result.Baslib = true
         $$ = &node.NodePrint{Expressions: $3, Tab: true}
@@ -1230,12 +1233,12 @@ stmt: /* empty */
 		$$ = &node.NodeScreen{Mode: mode}
 	}
   | TkKeywordSound exp TkComma exp { $$ = unsupportedEmpty("SOUND") }
-  | TkKeywordView TkKeywordPrint
+  | TkKeywordView print
 	{
         	Result.Baslib = true
 		$$ = &node.NodeViewPrint{}
 	}
-  | TkKeywordView TkKeywordPrint exp TkKeywordTo exp
+  | TkKeywordView print exp TkKeywordTo exp
 	{
 		top := $3
 		bottom := $5

examples/question.bas

@@ -0,0 +1 @@
+10 ? "hello question mark print"