From 232261b646ceb195965d19b5d1cc9a7f8f9337ae Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Fri, 10 May 2024 14:29:12 -0400 Subject: [PATCH] add uppercase pkg to scanner --- janet/scanner.janet | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/janet/scanner.janet b/janet/scanner.janet index 43c5de6..cc5ff7b 100644 --- a/janet/scanner.janet +++ b/janet/scanner.janet @@ -217,6 +217,16 @@ :else (add-error scanner (string "Unexpected " curr " after word " word "."))))) (recur scanner (buffer char))) +(defn- add-pkg + [char scanner] + (defn recur [scanner pkg] + (let [curr (current-char scanner)] + (cond + (terminates? curr) (add-token scanner :pkg :none) + (word-char? curr) (recur (advance scanner) (buffer/push pkg curr)) + :else (add-error scanner (string "unexpected " curr " after pkg name " pkg))))) + (recur scanner (buffer char))) + (defn- add-ignored [scanner] (defn recur [scanner ignored] @@ -302,7 +312,7 @@ (cond (whitespace? char) scanner ## for now just skip whitespace characters (digit? char) (add-number char scanner) - (upper? char) (add-word char scanner) ## no datatypes for now + (upper? char) (add-pkg char scanner) (lower? char) (add-word char scanner) :else (add-error scanner (string "Unexpected character: " char))))))