From 31fcb331c75a5773529fae25cbcae979298e986d Mon Sep 17 00:00:00 2001
From: Sei Lisa <sei-lisa@email.fake>
Date: Sun, 13 Jan 2019 19:02:09 +0100
Subject: [PATCH] Add support for C11-style _Pragma operator on processpre

A minor difference is that strings and whitespace are parsed according to LSL rules, not to C rules, since this processing is performed in the lexer.

This could be fixed, but is it worth the trouble?
---
 lslopt/lslparse.py | 30 +++++++++++++++++++++++++-----
 1 file changed, 25 insertions(+), 5 deletions(-)

diff --git a/lslopt/lslparse.py b/lslopt/lslparse.py
index d78c6f1..f99c310 100644
--- a/lslopt/lslparse.py
+++ b/lslopt/lslparse.py
@@ -464,7 +464,7 @@ class parser(object):
                             else:
                                 self.SetOpt(opt, True)
 
-    def GetToken(self):
+    def GetToken(self, pragma=False):
         """Lexer"""
 
         try:
@@ -579,6 +579,23 @@ class parser(object):
                         ident += self.script[self.pos]
                         self.pos += 1
 
+                    if self.processpre and ident == '_Pragma' and not pragma:
+                        savepos = self.pos
+                        errorpos = self.errorpos
+                        tok = self.tok
+
+                        if (self.GetToken(True)[0] == '('
+                            and self.NextToken(True)[0] == 'STRING_VALUE'
+                            and self.GetToken(True)[0] == ')'
+                           ):
+                            self.ProcessDirective("#pragma "
+                                                  + self.tok[1])
+                            return self.GetToken()
+                        else:
+                            self.pos = savepos
+                            self.errorpos = errorpos
+                            self.tok = tok
+
                     # Got an identifier - check if it's a reserved word
                     if ident in self.keywords:
                         return (ident.upper(),)
@@ -705,9 +722,10 @@ class parser(object):
 
         return ('EOF',)
 
-    def NextToken(self):
+    def NextToken(self, pragma=False):
         """Calls GetToken and sets the internal token."""
-        self.tok = self.GetToken()
+        self.tok = self.GetToken(pragma)
+        return self.tok
 
     # Recursive-descendent parser. The result is an AST and a symbol table.
 
@@ -2937,7 +2955,8 @@ list lazy_list_set(list L, integer i, list v)
         self.scanglobals = True  # Tell the lexer not to process directives
         self.pos = self.errorpos = 0
         self.linestart = True
-        self.tok = self.GetToken()
+        self.tok = None
+        self.NextToken()
 
         self.globals = self.BuildTempGlobalsTable() if not lslcommon.IsCalc \
           else self.funclibrary.copy()
@@ -2947,7 +2966,8 @@ list lazy_list_set(list L, integer i, list v)
         self.scanglobals = False
         self.pos = self.errorpos = 0
         self.linestart = True
-        self.tok = self.GetToken()
+        self.tok = None
+        self.NextToken()
 
         # Reserve spots at the beginning for functions we add
         self.tree = [nr(nt='LAMBDA', t=None)]