Remove lang pragma feature

Author: WyattBlue

auto_editor/cmds/palet.py

@@ -14,7 +14,7 @@ def main(sys_args: list[str] = sys.argv[1:]) -> None:
 
         env.update(make_standard_env())
         try:
-            interpret(env, Parser(Lexer(sys_args[0], program_text, True)))
+            interpret(env, Parser(Lexer(sys_args[0], program_text)))
         except (MyError, ZeroDivisionError) as e:
             sys.stderr.write(f"error: {e}\n")
             sys.exit(1)

auto_editor/lang/palet.py

@@ -65,20 +65,11 @@ class Token:
 
 
 class Lexer:
-    __slots__ = (
-        "filename",
-        "text",
-        "allow_lang_prag",
-        "pos",
-        "char",
-        "lineno",
-        "column",
-    )
-
-    def __init__(self, filename: str, text: str, langprag: bool = False):
+    __slots__ = ("filename", "text", "pos", "char", "lineno", "column")
+
+    def __init__(self, filename: str, text: str):
         self.filename = filename
         self.text = text
-        self.allow_lang_prag = langprag
         self.pos: int = 0
         self.lineno: int = 1
         self.column: int = 1
@@ -289,32 +280,6 @@ def get_next_token(self) -> Token:
                         self.advance()
                     if self.char is None or self.char == "\n":
                         continue
-
-                elif self.char == "l" and self.peek() == "a":
-                    buf = StringIO()
-                    while self.char_is_norm():
-                        assert self.char is not None
-                        buf.write(self.char)
-                        self.advance()
-
-                    result = buf.getvalue()
-                    if result != "lang":
-                        self.error(f"Unknown hash literal `#{result}`")
-                    if not self.allow_lang_prag:
-                        self.error("#lang pragma is not allowed here")
-
-                    self.advance()
-                    buf = StringIO()
-                    while not self.is_whitespace():
-                        assert self.char is not None
-                        buf.write(self.char)
-                        self.advance()
-
-                    result = buf.getvalue()
-                    if result != "palet":
-                        self.error(f"Invalid #lang: {result}")
-                    self.allow_lang_prag = False
-                    continue
                 else:
                     return self.hash_literal()
 

resources/scripts/case.pal

@@ -1,7 +1,5 @@
 #!/usr/bin/env auto-editor palet
 
-#lang palet
-
 (assert (equal? (case (+ 7 5) [(1 2 3) 'small] [(10 11 12) 'big]) 'big))
 (assert (equal? (case (- 7 5) [(1 2 3) 'small] [(10 11 12) 'big]) 'small))
 (assert (case (mod 3 2) [(0) #f] [else #t]))

resources/scripts/maxcut.pal

@@ -1,7 +1,5 @@
 #!/usr/bin/env auto-editor palet
 
-#lang palet
-
 (define (remove-large! arr lim replace with)
    (define start-p 0)
    (define active #f)

resources/scripts/scope.pal

@@ -1,5 +1,4 @@
 #!/usr/bin/env auto-editor palet
-#lang palet
 
 ; Enforce lexical scoping
 (define (f x) (lambda (y) (+ x y)))

resources/scripts/testmath.pal

@@ -1,6 +1,4 @@
 #!/usr/bin/env auto-editor palet
-#lang palet
-
 (import math)
 
 (assert (equal? (round 3.5) 4))