Implement new PICO-8 0.2.0f unary operator % (replaces @@).

Author: samhocevar

llex.c

@@ -40,7 +40,7 @@ static const char *const luaX_tokens [] = {
     "return", "then", "true", "until", "while",
     "..", "...", "==", ">=", "<=", "~=", "!=", "::",
     "<eof>", "<number>", "<name>", "<string>", "?",
-    "<eol>", "@@", "^^", "<<", ">>", ">>>", "<<>", ">><",
+    "<eol>", "^^", "<<", ">>", ">>>", "<<>", ">><",
     "+=", "-=", "*=", "/=", "%=", "^=", "\\=", "&=", "|=",
     "^^=", "<<=", ">>=", ">>>=", "<<>=", ">><=", "..=",
 };
@@ -530,11 +530,6 @@ static int llex (LexState *ls, SemInfo *seminfo) {
         if (ls->current == '=') { next(ls); return TK_LSHRE; }
         else return TK_LSHR;
       }
-      case '@': {
-        next(ls);
-        if (ls->current != '@') return '@';
-        else { next(ls); return TK_DBAT; }
-      }
       case ':': {
         next(ls);
         if (ls->current != ':') return ':';

llex.h

@@ -27,7 +27,7 @@ enum RESERVED {
   TK_RETURN, TK_THEN, TK_TRUE, TK_UNTIL, TK_WHILE,
   /* other terminal symbols */
   TK_CONCAT, TK_DOTS, TK_EQ, TK_GE, TK_LE, TK_NE, TK_NE2, TK_DBCOLON,
-  TK_EOS, TK_NUMBER, TK_NAME, TK_STRING, TK_PRINT, TK_EOL, TK_DBAT,
+  TK_EOS, TK_NUMBER, TK_NAME, TK_STRING, TK_PRINT, TK_EOL,
   TK_BXOR, TK_SHL, TK_SHR, TK_LSHR, TK_ROTL, TK_ROTR,
   /* these must be last and match "ORDER OPR" */
   TK_ADDE, TK_SUBE, TK_MULE, TK_DIVE, TK_MODE, TK_POWE, TK_IDIVE,

lopcodes.h

@@ -204,7 +204,7 @@ OP_UNM,/*	A B	R(A) := -R(B)					*/
 OP_BNOT,/*	A B	R(A) := ~R(B)					*/
 OP_NOT,/*	A B	R(A) := not R(B)				*/
 OP_PEEK,/*	A B	R(A) := @ R(B)					*/
-OP_PEEK2,/*	A B	R(A) := @@ R(B)					*/
+OP_PEEK2,/*	A B	R(A) := % R(B)					*/
 OP_PEEK4,/*	A B	R(A) := $ R(B)					*/
 OP_LEN,/*	A B	R(A) := length of R(B)				*/
 

lparser.c

@@ -991,7 +991,7 @@ static UnOpr getunopr (int op) {
     case '-': return OPR_MINUS;
     case '~': return OPR_BNOT;
     case '@': return OPR_PEEK;
-    case TK_DBAT: return OPR_PEEK2;
+    case '%': return OPR_PEEK2;
     case '$': return OPR_PEEK4;
     case '#': return OPR_LEN;
     default: return OPR_NOUNOPR;

lua.c

@@ -484,9 +484,6 @@ int main (int argc, char **argv) {
     l_message(argv[0], "cannot create state: not enough memory");
     return EXIT_FAILURE;
   }
-unsigned char ram[65536];
-for (int i = 0; i < 65536; ++i) ram[i] = i %256;
-lua_setpico8memory(L, ram);
   /* call 'pmain' in protected mode */
   lua_pushcfunction(L, &pmain);
   lua_pushinteger(L, argc);  /* 1st argument */