]> git.rm.cloudns.org Git - xonotic/xonotic-data.pk3dir.git/commitdiff
whoops, forgot to commit rpn files :P
authorSamual <samual@xonotic.org>
Wed, 28 Dec 2011 06:19:55 +0000 (01:19 -0500)
committerSamual <samual@xonotic.org>
Wed, 28 Dec 2011 06:19:55 +0000 (01:19 -0500)
qcsrc/common/command/rpn.qc [new file with mode: 0644]
qcsrc/common/command/rpn.qh [new file with mode: 0644]

diff --git a/qcsrc/common/command/rpn.qc b/qcsrc/common/command/rpn.qc
new file mode 100644 (file)
index 0000000..837b991
--- /dev/null
@@ -0,0 +1,611 @@
+string rpn_pop() 
+{
+       if(rpn_sp > 0) {
+               --rpn_sp;
+               return rpn_stack[rpn_sp];
+       } else {
+               print("rpn: stack underflow\n");
+               rpn_error = TRUE;
+               return "";
+       }
+}
+void rpn_push(string s) 
+{
+       if(rpn_sp < MAX_RPN_STACK) {
+               rpn_stack[rpn_sp] = s;
+               ++rpn_sp;
+       } else {
+               print("rpn: stack overflow\n");
+               rpn_error = TRUE;
+       }
+}
+string rpn_get() 
+{
+       if(rpn_sp > 0) {
+               return rpn_stack[rpn_sp - 1];
+       } else {
+               print("rpn: empty stack\n");
+               rpn_error = TRUE;
+               return "";
+       }
+}
+void rpn_set(string s) 
+{
+       if(rpn_sp > 0) {
+               rpn_stack[rpn_sp - 1] = s;
+       } else {
+               print("rpn: empty stack\n");
+               rpn_error = TRUE;
+       }
+}
+
+float rpn_getf() { return stof(rpn_get()); }
+float rpn_popf() { return stof(rpn_pop()); }
+void rpn_pushf(float f) { return rpn_push(ftos(f)); }
+void rpn_setf(float f) { return rpn_set(ftos(f)); }
+
+void GenericCommand_rpn(float request, float argc, string command)
+{
+       switch(request)
+       {
+               case CMD_REQUEST_COMMAND:
+               {
+                       float i, j, f, n, f2, f3, rpnpos;
+                       vector rgb;
+                       string s, s2, c, rpncmd;
+                       
+                       if(!rpn_db)
+                       {
+                               rpn_db = db_create();
+                               db_put(rpn_db, "stack.pointer", "0");
+                               db_put(rpn_db, "stack.pos", "-1");
+                       }
+                       
+                       if(argc >= 2)
+                       {
+                               float rpnpos;
+                               string rpncmd;
+                               float f2, f3;
+                               rpn_sp = 0;
+                               rpn_error = FALSE;
+                               for(rpnpos = 1; rpnpos < argc; ++rpnpos)
+                               {
+                                       rpncmd = argv(rpnpos);
+                                       f = strlen(rpncmd);
+                                       if(rpncmd == "") {
+                                       } else if(stof(substring(rpncmd, 0, 1)) > 0) {
+                                               rpn_push(rpncmd);
+                                       } else if(substring(rpncmd, 0, 1) == "0") {
+                                               rpn_push(rpncmd);
+                                       } else if(f >= 2 && substring(rpncmd, 0, 1) == "+") {
+                                               rpn_push(rpncmd);
+                                       } else if(f >= 2 && substring(rpncmd, 0, 1) == "-") {
+                                               rpn_push(rpncmd);
+                                       } else if(f >= 2 && substring(rpncmd, 0, 1) == "/") {
+                                               rpn_push(substring(rpncmd, 1, strlen(rpncmd) - 1));
+                                       } else if(rpncmd == "clear") {
+                                               rpn_sp = 0;
+                                       } else if(rpncmd == "def" || rpncmd == "=") {
+                                               s = rpn_pop();
+                                               s2 = rpn_pop();
+
+                                               if(s2 != "")
+                                               {
+                                                       #ifdef MENUQC
+                                                       registercvar(s2, "", 0);
+                                                       #else
+                                                       registercvar(s2, "");
+                                                       #endif
+                                                       if(!rpn_error) // don't change cvars if a stack error had happened!
+                                                               cvar_set(s2, s);
+                                               }
+                                               else
+                                               {
+                                                       print("rpn: empty cvar name for 'def'\n");
+                                                       rpn_error = TRUE;
+                                               }
+                                       } else if(rpncmd == "defs" || rpncmd == "@") {
+                                               s = "";
+                                               i = rpn_popf();
+                                               j = (i == 0);
+                                               while(rpn_sp > 1 && (j || i > 0))
+                                               {
+                                                       s = strcat("/", rpn_pop(), " ", s);
+                                                       --i;
+                                               }
+                                               s2 = rpn_pop();
+                                               if(s2 != "")
+                                               {
+                                                       #ifdef MENUQC
+                                                       registercvar(s2, "", 0);
+                                                       #else
+                                                       registercvar(s2, "");
+                                                       #endif
+                                                       if(!rpn_error) // don't change cvars if a stack error had happened!
+                                                               cvar_set(s2, s);
+                                               }
+                                               else
+                                               {
+                                                       print("rpn: empty cvar name for 'defs'\n");
+                                                       rpn_error = TRUE;
+                                               }
+                                       } else if(rpncmd == "load") {
+                                               rpn_set(cvar_string(rpn_get()));
+                                       } else if(rpncmd == "exch") {
+                                               s = rpn_pop();
+                                               s2 = rpn_get();
+                                               rpn_set(s);
+                                               rpn_push(s2);
+                                       } else if(rpncmd == "dup") {
+                                               rpn_push(rpn_get());
+                                       } else if(rpncmd == "pop") {
+                                               rpn_pop();
+                                       } else if(rpncmd == "add" || rpncmd == "+") {
+                                               f = rpn_popf();
+                                               rpn_setf(rpn_getf() + f);
+                                       } else if(rpncmd == "sub" || rpncmd == "-") {
+                                               f = rpn_popf();
+                                               rpn_setf(rpn_getf() - f);
+                                       } else if(rpncmd == "mul" || rpncmd == "*") {
+                                               f = rpn_popf();
+                                               rpn_setf(rpn_getf() * f);
+                                       } else if(rpncmd == "div" || rpncmd == "/") {
+                                               f = rpn_popf();
+                                               rpn_setf(rpn_getf() / f);
+                                       } else if(rpncmd == "mod" || rpncmd == "%") {
+                                               f = rpn_popf();
+                                               f2 = rpn_getf();
+                                               rpn_setf(f2 - f * floor(f2 / f));
+                                       } else if(rpncmd == "abs") {
+                                               rpn_setf(fabs(rpn_getf()));
+                                       } else if(rpncmd == "sgn") {
+                                               f = rpn_getf();
+                                               if(f < 0)
+                                                       rpn_set("-1");
+                                               else if(f > 0)
+                                                       rpn_set("1");
+                                               else
+                                                       rpn_set("0");
+                                       } else if(rpncmd == "neg" || rpncmd == "~") {
+                                               rpn_setf(-rpn_getf());
+                                       } else if(rpncmd == "floor" || rpncmd == "f") {
+                                               rpn_setf(floor(rpn_getf()));
+                                       } else if(rpncmd == "ceil" || rpncmd == "c") {
+                                               rpn_setf(ceil(rpn_getf()));
+                                       } else if(rpncmd == "max") {
+                                               f = rpn_popf();
+                                               f2 = rpn_getf();
+                                               rpn_setf(max(f2, f));
+                                       } else if(rpncmd == "min") {
+                                               f = rpn_popf();
+                                               f2 = rpn_getf();
+                                               rpn_setf(min(f2, f));
+                                       } else if(rpncmd == "bound") {
+                                               f = rpn_popf();
+                                               f2 = rpn_popf();
+                                               f3 = rpn_getf();
+                                               rpn_setf(bound(f3, f2, f));
+                                       } else if(rpncmd == "when") {
+                                               f = rpn_popf();
+                                               f2 = rpn_popf();
+                                               f3 = rpn_getf();
+                                               if(f)
+                                                       rpn_setf(f3);
+                                               else
+                                                       rpn_setf(f2);
+                                       } else if(rpncmd == ">" || rpncmd == "gt") {
+                                               f = rpn_popf();
+                                               rpn_setf(rpn_getf() > f);
+                                       } else if(rpncmd == "<" || rpncmd == "lt") {
+                                               f = rpn_popf();
+                                               rpn_setf(rpn_getf() < f);
+                                       } else if(rpncmd == "==" || rpncmd == "eq") {
+                                               f = rpn_popf();
+                                               rpn_setf(rpn_getf() == f);
+                                       } else if(rpncmd == ">=" || rpncmd == "ge") {
+                                               f = rpn_popf();
+                                               rpn_setf(rpn_getf() >= f);
+                                       } else if(rpncmd == "<=" || rpncmd == "le") {
+                                               f = rpn_popf();
+                                               rpn_setf(rpn_getf() <= f);
+                                       } else if(rpncmd == "!=" || rpncmd == "ne") {
+                                               f = rpn_popf();
+                                               rpn_setf(rpn_getf() != f);
+                                       } else if(rpncmd == "rand") {
+                                               rpn_setf(ceil(random() * rpn_getf()) - 1);
+                                       } else if(rpncmd == "crc16") {
+                                               rpn_setf(crc16(FALSE, rpn_get()));
+                                       } else if(rpncmd == "put") {
+                                               s2 = rpn_pop();
+                                               if (!rpn_error)
+                                               {
+                                                       s = rpn_pop();
+                                                       if (!rpn_error)
+                                                               db_put(rpn_db, s, s2);
+                                               }
+                                       } else if(rpncmd == "get") {
+                                               s = rpn_pop();
+                                               if (!rpn_error)
+                                                       rpn_push(db_get(rpn_db, s));
+                                       } else if(rpncmd == "dbpush") {
+                                               s = rpn_pop();
+                                               if(!rpn_error)
+                                               {
+                                                       i = stof(db_get(rpn_db, "stack.pointer"));
+                                                       db_put(rpn_db, "stack.pointer", ftos(i+1));
+                                                       db_put(rpn_db, strcat("stack.", ftos(i)), s);
+                                               }
+                                               if(!i)
+                                                       db_put(rpn_db, "stack.pos", "0");
+                                       } else if(rpncmd == "dbpop") {
+                                               i = stof(db_get(rpn_db, "stack.pointer"));
+                                               if(i)
+                                               {
+                                                       s = ftos(i-1);
+                                                       db_put(rpn_db, "stack.pointer", s);
+                                                       rpn_push(db_get(rpn_db, strcat("stack.", s)));
+                                                       j = stof(db_get(rpn_db, "stack.pos"));
+                                                       if(j >= i)
+                                                               db_put(rpn_db, "stack.pos", ftos(i-2));
+                                               } else {
+                                                       rpn_error = 1;
+                                                       print("rpn: database underflow\n");
+                                               }
+                                       } else if(rpncmd == "dbget") {
+                                               
+                                               i = stof(db_get(rpn_db, "stack.pointer"));
+                                               if(i)
+                                               {
+                                                       rpn_push(db_get(rpn_db, strcat("stack.", ftos(i-1))));
+                                               } else {
+                                                       rpn_error = 1;
+                                                       print("rpn: database empty\n");
+                                               }
+                                       } else if(rpncmd == "dblen") {
+                                               rpn_push(db_get(rpn_db, "stack.pointer"));
+                                       } else if(rpncmd == "dbclr") {
+                                               db_close(rpn_db);
+                                               rpn_db = db_create();
+                                               db_put(rpn_db, "stack.pointer", "0");
+                                               db_put(rpn_db, "stack.pos", "-1");
+                                       } else if(rpncmd == "dbsave") {
+                                               s = rpn_pop();
+                                               if(!rpn_error)
+                                                       db_save(rpn_db, s);
+                                       } else if(rpncmd == "dbload") {
+                                               s = rpn_pop();
+                                               if(!rpn_error)
+                                               {
+                                                       db_close(rpn_db);
+                                                       rpn_db = db_load(s);
+                                               }
+                                       } else if(rpncmd == "dbins") {
+                                               s = rpn_pop();
+                                               if(!rpn_error)
+                                                       //if(rpn_sp > 0)
+                                               {
+                                                       j = stof(db_get(rpn_db, "stack.pointer"));
+                                                       i = stof(db_get(rpn_db, "stack.pos"));
+                                                       
+                                                       if(i < 0)
+                                                       {
+                                                               i = 0;
+                                                               db_put(rpn_db, "stack.pos", "0");
+                                                       }
+                                                       
+                                                       db_put(rpn_db, "stack.pointer", ftos(j+1));
+                                                       for(--j; j >= i; --j)
+                                                       {
+                                                               db_put(rpn_db, strcat("stack.", ftos(j+1)),
+                                                                                        db_get(rpn_db, (strcat("stack.", ftos(j))))
+                                                                       );
+                                                       }
+                                                       db_put(rpn_db, strcat("stack.", ftos(i)), s);
+                                               }
+                                       } else if(rpncmd == "dbext") {
+                                               j = stof(db_get(rpn_db, "stack.pointer"));
+                                               i = stof(db_get(rpn_db, "stack.pos"));
+                                               if(!j)
+                                               {
+                                                       rpn_error = TRUE;
+                                                       print("rpn: empty database\n");
+                                               } else {
+                                                       --j;
+                                                       rpn_push(db_get(rpn_db, strcat("stack.", ftos(i))));
+                                                       db_put(rpn_db, "stack.pointer", ftos(j));
+                                                       if(i == j)
+                                                       {
+                                                               db_put(rpn_db, "stack.pos", ftos(j-1));
+                                                       } else {
+                                                               while(i < j)
+                                                               {
+                                                                       db_put(rpn_db, strcat("stack.", ftos(i)),
+                                                                                                db_get(rpn_db, (strcat("stack.", ftos(i+1))))
+                                                                               );
+                                                                       ++i;
+                                                               }
+                                                       }
+                                               }
+                                       } else if(rpncmd == "dbread") {
+                                               s = db_get(rpn_db, "stack.pos");
+                                               if(stof(s) >= 0)
+                                               {
+                                                       rpn_push(db_get(rpn_db, strcat("stack.", s)));
+                                               } else {
+                                                       rpn_error = 1;
+                                                       print("rpn: empty database\n");
+                                               }
+                                       } else if(rpncmd == "dbat") {
+                                               rpn_push(db_get(rpn_db, "stack.pos"));
+                                       } else if(rpncmd == "dbmov") {
+                                               j = stof(db_get(rpn_db, "stack.pointer"));
+                                               i = stof(db_get(rpn_db, "stack.pos"));
+                                               i += rpn_popf();
+                                               if(!rpn_error)
+                                               {
+                                                       if(i < 0 || i >= j)
+                                                       {
+                                                               print("rpn: database cursor out of bounds\n");
+                                                               rpn_error = TRUE;
+                                                       }
+                                                       if(!rpn_error)
+                                                       {
+                                                               db_put(rpn_db, "stack.pos", ftos(i));
+                                                       }
+                                               }
+                                       } else if(rpncmd == "dbgoto") {
+                                               s = rpn_pop();
+                                               j = stof(db_get(rpn_db, "stack.pointer"));
+                                               if(!j)
+                                               {
+                                                       rpn_error = TRUE;
+                                                       print("rpn: empty database, cannot move cursor\n");
+                                               }
+                                               if(!rpn_error)
+                                               {
+                                                       if(s == "end")
+                                                               i = stof(db_get(rpn_db, "stack.pointer"))-1;
+                                                       else if(s == "beg")
+                                                               i = 0;
+                                                       else
+                                                               i = stof(s);
+                                                       
+                                                       j = stof(db_get(rpn_db, "stack.pointer"));
+                                                       if(i < 0 || i >= j)
+                                                       {
+                                                               print("rpn: database cursor destination out of bounds\n");
+                                                               rpn_error = TRUE;
+                                                       }
+                                                       if(!rpn_error)
+                                                       {
+                                                               db_put(rpn_db, "stack.pos", ftos(i));
+                                                       }
+                                               }
+                                       } else if(rpncmd == "union") {
+                                               // s s2 union
+                                               s2 = rpn_pop();
+                                               s = rpn_get();
+                                               f = tokenize_console(s);
+                                               f2 = tokenize_console(strcat(s, " ", s2));
+                                               // tokens 0..(f-1) represent s
+                                               // tokens f..f2 represent s2
+                                               // UNION: add all tokens to s that are in s2 but not in s
+                                               s = "";
+                                               for(i = 0; i < f; ++i)  
+                                                       s = strcat(s, " ", argv(i));
+                                               for(i = f; i < f2; ++i) {
+                                                       for(j = 0; j < f; ++j)
+                                                               if(argv(i) == argv(j))
+                                                                       goto skip_union;
+                                                       s = strcat(s, " ", argv(i));
+                                                       :skip_union
+                                               }
+                                               if(substring(s, 0, 1) == " ")
+                                                       s = substring(s, 1, 99999);
+                                               rpn_set(s);
+                                               tokenize_console(command);
+                                       } else if(rpncmd == "intersection") {
+                                               // s s2 intersection
+                                               s2 = rpn_pop();
+                                               s = rpn_get();
+                                               f = tokenize_console(s);
+                                               f2 = tokenize_console(strcat(s, " ", s2));
+                                               // tokens 0..(f-1) represent s
+                                               // tokens f..f2 represent s2
+                                               // INTERSECTION: keep only the tokens from s that are also in s2
+                                               s = "";
+                                               for(i = 0; i < f; ++i) {
+                                                       for(j = f; j < f2; ++j)
+                                                               if(argv(i) == argv(j))
+                                                               {
+                                                                       s = strcat(s, " ", argv(i));
+                                                                       break;
+                                                               }
+                                               }
+                                               if(substring(s, 0, 1) == " ")
+                                                       s = substring(s, 1, 99999);
+                                               rpn_set(s);
+                                               tokenize_console(command);
+                                       } else if(rpncmd == "difference") {
+                                               // s s2 difference
+                                               s2 = rpn_pop();
+                                               s = rpn_get();
+                                               f = tokenize_console(s);
+                                               f2 = tokenize_console(strcat(s, " ", s2));
+                                               // tokens 0..(f-1) represent s
+                                               // tokens f..f2 represent s2
+                                               // DIFFERENCE: keep only the tokens from s that are not in s2
+                                               s = "";
+                                               for(i = 0; i < f; ++i) {
+                                                       for(j = f; j < f2; ++j)
+                                                               if(argv(i) == argv(j))
+                                                                       goto skip_difference;
+                                                       s = strcat(s, " ", argv(i));
+                                                       :skip_difference
+                                               }
+                                               if(substring(s, 0, 1) == " ")
+                                                       s = substring(s, 1, 99999);
+                                               rpn_set(s);
+                                               tokenize_console(command);
+                                       } else if(rpncmd == "shuffle") {
+                                               // s shuffle
+                                               s = rpn_get();
+                                               f = tokenize_console(s);
+
+                                               for(i = 0; i < f - 1; ++i) {
+                                                       // move a random item from i..f-1 to position i
+                                                       s = "";
+                                                       f2 = floor(random() * (f - i) + i);
+                                                       for(j = 0; j < i; ++j)
+                                                               s = strcat(s, " ", argv(j));
+                                                       s = strcat(s, " ", argv(f2));
+                                                       for(j = i; j < f; ++j)
+                                                               if(j != f2)
+                                                                       s = strcat(s, " ", argv(j));
+                                                       f = tokenize_console(s);
+                                               }
+
+                                               if(substring(s, 0, 1) == " ")
+                                                       s = substring(s, 1, 99999);
+                                               rpn_set(s);
+                                               tokenize_console(command);
+                                       } else if(rpncmd == "fexists_assert") {
+                                               s = rpn_pop();
+                                               if(!rpn_error)
+                                               {
+                                                       if (!fexists(s))
+                                                       {
+                                                               print("rpn: ERROR: ", s, " does not exist!\n");
+                                                               rpn_error = TRUE;
+                                                       }
+                                               }
+                                       } else if(rpncmd == "fexists") {
+                                               s = rpn_get();
+                                               if(!rpn_error)
+                                               {
+                                                       if (fexists(s))
+                                                               rpn_setf(1);
+                                                       else
+                                                               rpn_setf(0);
+                                               }
+                                       } else if(rpncmd == "localtime") {
+                                               rpn_set(strftime(TRUE, rpn_get()));
+                                       } else if(rpncmd == "gmtime") {
+                                               rpn_set(strftime(FALSE, rpn_get()));
+                                       } else if(rpncmd == "time") {
+                                               rpn_pushf(time);
+                                       } else if(rpncmd == "digest") {
+                                               s = rpn_pop();
+                                               rpn_set(digest_hex(s, rpn_get()));
+                                       } else if(rpncmd == "sprintf1s") {
+                                               s = rpn_pop();
+                                               rpn_set(sprintf(s, rpn_get()));
+                                       } else {
+                                               rpn_push(cvar_string(rpncmd));
+                                       }
+                                       if(rpn_error)
+                                               break;
+                               }
+                               while(rpn_sp > 0)
+                               {
+                                       s = rpn_pop();
+                                       print("rpn: still on stack: ", s, "\n");
+                               }
+                       }
+
+                       return;
+               }
+                       
+               default:
+               case CMD_REQUEST_USAGE:
+               {
+                       print("  rpn EXPRESSION... - a RPN calculator.\n");
+                       print("    Operator description (x: string, s: set, f: float):\n");
+                       print("    x pop ----------------------------->     : removes the top\n");
+                       print("    x dup -----------------------------> x x : duplicates the top\n");
+                       print("    x x exch --------------------------> x x : swap the top two\n");
+                       print("    /cvarname load --------------------> x   : loads a cvar\n");
+                       print("    /cvarname x def ------------------->     : writes to a cvar\n");
+                       print("    f f add|sub|mul|div|mod|max|min ---> f   : adds/... two numbers\n");
+                       print("    f f eq|ne|gt|ge|lt|le -------------> f   : compares two numbers\n");
+                       print("    f neg|abs|sgn|rand|floor|ceil------> f   : negates/... a number\n");
+                       print("    f f f bound -----------------------> f   : bounds the middle number\n");
+                       print("    f1 f2 b when ----------------------> f   : f1 if b, f2 otherwise\n");
+                       print("    s s union|intersection|difference -> s   : set operations\n");
+                       print("    s shuffle -------------------------> s   : randomly arrange elements\n");
+                       print("    /key /value put ------------------->     : set a database key\n");
+                       print("    /key get --------------------------> s   : get a database value\n");
+                       print("    x dbpush -------------------------->     : pushes the top onto the database\n");
+                       print("    dbpop|dbget -----------------------> x   : removes/reads DB's top\n");
+                       print("    dblen|dbat ------------------------> f   : gets the DB's size/cursor pos\n");
+                       print("    dbclr ----------------------------->     : clear the DB\n");
+                       print("    s dbsave|dbload-------------------->     : save/load the DB to/from a file\n");
+                       print("    x dbins --------------------------->     : moves the top into the DB\n");
+                       print("    dbext|dbread ----------------------> x   : extract/get from the DB's cursor\n");
+                       print("    f dbmov|dbgoto -------------------->     : move or set the DB's cursor\n");
+                       print("    s localtime -----------------------> s   : formats the current local time\n");
+                       print("    s gmtime --------------------------> s   : formats the current UTC time\n");
+                       print("    time ------------------------------> f   : seconds since VM start\n");
+                       print("    s /MD4 digest ---------------------> s   : MD4 digest\n");
+                       print("    s /SHA256 digest ------------------> s   : SHA256 digest\n");
+                       print("    s /formatstring sprintf1s ---------> s   : sprintf with 1 string (pad, cut)\n");
+                       print("    Set operations operate on 'such''strings'.\n");
+                       print("    Unknown tokens insert their cvar value.\n");
+                       return;
+               }
+       }
+}
+
+float GameCommand_Generic(string command)
+{
+       if(argv(0) == "help")
+       {
+               print("  rpn EXPRESSION... - a RPN calculator.\n");
+               print("    Operator description (x: string, s: set, f: float):\n");
+               print("    x pop ----------------------------->     : removes the top\n");
+               print("    x dup -----------------------------> x x : duplicates the top\n");
+               print("    x x exch --------------------------> x x : swap the top two\n");
+               print("    /cvarname load --------------------> x   : loads a cvar\n");
+               print("    /cvarname x def ------------------->     : writes to a cvar\n");
+               print("    f f add|sub|mul|div|mod|max|min ---> f   : adds/... two numbers\n");
+               print("    f f eq|ne|gt|ge|lt|le -------------> f   : compares two numbers\n");
+               print("    f neg|abs|sgn|rand|floor|ceil------> f   : negates/... a number\n");
+               print("    f f f bound -----------------------> f   : bounds the middle number\n");
+               print("    f1 f2 b when ----------------------> f   : f1 if b, f2 otherwise\n");
+               print("    s s union|intersection|difference -> s   : set operations\n");
+               print("    s shuffle -------------------------> s   : randomly arrange elements\n");
+               print("    /key /value put ------------------->     : set a database key\n");
+               print("    /key get --------------------------> s   : get a database value\n");
+               print("    x dbpush -------------------------->     : pushes the top onto the database\n");
+               print("    dbpop|dbget -----------------------> x   : removes/reads DB's top\n");
+               print("    dblen|dbat ------------------------> f   : gets the DB's size/cursor pos\n");
+               print("    dbclr ----------------------------->     : clear the DB\n");
+               print("    s dbsave|dbload-------------------->     : save/load the DB to/from a file\n");
+               print("    x dbins --------------------------->     : moves the top into the DB\n");
+               print("    dbext|dbread ----------------------> x   : extract/get from the DB's cursor\n");
+               print("    f dbmov|dbgoto -------------------->     : move or set the DB's cursor\n");
+               print("    s localtime -----------------------> s   : formats the current local time\n");
+               print("    s gmtime --------------------------> s   : formats the current UTC time\n");
+               print("    time ------------------------------> f   : seconds since VM start\n");
+               print("    s /MD4 digest ---------------------> s   : MD4 digest\n");
+               print("    s /SHA256 digest ------------------> s   : SHA256 digest\n");
+               print("    s /formatstring sprintf1s ---------> s   : sprintf with 1 string (pad, cut)\n");
+               print("    Set operations operate on 'such''strings'.\n");
+               print("    Unknown tokens insert their cvar value.\n");
+               print("  maplist add map\n");
+               print("  maplist remove map\n");
+               print("  maplist shuffle\n");
+               print("  maplist cleanup\n");
+               print("  maplist maplist\n");
+               print("  maplist lsmaps\n");
+               print("  maplist lsnewmaps\n");
+               print("  addtolist variable addedvalue\n");
+               print("  records\n");
+               print("  rankings (map argument optional)\n");
+               print("  settemp cvar value\n");
+               print("  settemp_restore\n");
+               return TRUE;
+       }
+
+       else if(argv(0) == "rpn")
+       {
\ No newline at end of file
diff --git a/qcsrc/common/command/rpn.qh b/qcsrc/common/command/rpn.qh
new file mode 100644 (file)
index 0000000..5ae0b84
--- /dev/null
@@ -0,0 +1,5 @@
+#define MAX_RPN_STACK 16
+float rpn_db;
+float rpn_error;
+float rpn_sp;
+string rpn_stack[MAX_RPN_STACK];
\ No newline at end of file