Initial import of htcd system 1.0

Signed-off-by: Henrik Rydberg <rydberg@euromail.se>

1 files changed, 140 insertions, 0 deletions

diff --git a/src/lang/help.cc b/src/lang/help.cc
new file mode 100644
index 0000000..750a13a
--- /dev/null
+++ b/src/lang/help.cc
@@ -0,0 +1,140 @@
+/*************************************************************************
+ *
+ * HTCd - Copyright (C) 1998-2006 Henrik Rydberg
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+ */
+
+#include <lang/env.h>
+
+TOK_IMPL(help) {
+  out<<"HTC/1.2 - HyperText Compiler (H. Rydberg (C) 1998,1999,2000,2001)\n";
+  out<<"\n";
+  out<<"Try these commands:\n";
+  out<<"\\help          - This message\n";
+  out<<"\\ops           - List all operators\n";
+  out<<"\\ops{op}       - Get info on operator\n";
+  out<<"\\tok           - List all tokens\n";
+  out<<"\\tok{tok}      - Get info on token\n";
+  out<<"\\src{tok}      - View token source\n";
+}
+
+TOK_IMPL(ops) {
+  mstring cmd; env.parg(cmd,-1);
+  if(cmd.nempty()) {
+    out<<cmd<<"\n";
+    const op_t* p=env.ops->get(cmd);
+    if(p) {
+      if(p->pre1) out<<"Unary operator, precedence "<<p->pre1<<"\n";
+      if(p->pre2) out<<"Binary operator, precedence "<<p->pre2<<"\n";
+      out<<"\n";
+      out<<p->desc;
+    }
+    else {
+      out<<"(not found)\n";
+    }
+  }
+  else {
+    mstring line;
+    line.convert("%-3s %-3s %s\n","P1","P2","NAME");
+    out<<line;
+    for(opmap::iterator p=env.ops->begin();p!=env.ops->end();p++) {
+      line.convert("%-3d %-3d %s\n",(*p)->pre1,(*p)->pre2,(*p)->name.c_str());
+      out<<line;
+    }
+  }
+}
+
+TOK_IMPL(tok) {
+  mstring cmd; env.parg(cmd,-1);
+  if(cmd.nempty()) {
+    out<<cmd<<"\n";
+    const tok_t* p=env.toks->get(cmd);
+    if(p) {
+      out<<"Mode: "<<Mode(*p)<<"\n";
+      if(p->mod&tok_t::RESTRICT) out<<"public ";
+      else if(p->mod&tok_t::NORMAL) out<<"normal ";
+      else if(p->mod&tok_t::SYSONLY) out<<"system ";
+      else if(p->mod&tok_t::INIT) out<<"init ";
+      if(p->is_runnable()) {
+        if(p->is_binary()) out<<"built-in ";
+        out<<"function\n";
+      }
+      else {
+        if(p->is_const()) out<<"constant"; else out<<"variable";
+        if(p->is_reference()) out<<" reference";
+        if(p->is_dbref()) out<<" database reference";
+        out<<"\n";
+      }
+      out<<"Usage: ";
+      if(p->is_runnable()) out<<*(func_t*)p; else out<<"\\"<<p->name;
+      out<<"\n";
+      if(p->is_runnable()) {
+        mstring desc=Desc(*p);
+        if(desc.nempty()) { out<<"\n"; out<<desc; }
+      }
+    }
+    else {
+      out<<"(not found)\n";
+    }
+  }
+  else {
+    mstring line;
+    int n=0;
+    for(tokmap* tok=env.toks;tok;tok=tok->up) {
+      line.convert("%-12s %s %d\n","MODE","NAME LEVEL",n);
+      out<<line;
+      for(tokmap::iterator p=tok->begin();p!=tok->end();p++) {
+        line.convert("%s %s\n",Mode(*(*p)).c_str(),(*p)->name.c_str());
+        out<<line;
+      }
+      n--;
+    }
+  }
+}
+
+TOK_IMPL(src) {
+  const tok_t* p=env.toks->get(env[0]);
+  if(!p) out<<env[0]<<" (not found)\n";
+  else {
+    if(p->is_runnable()) {
+      const func_t* ftok=(func_t*)p;
+      out<<"{"<<ftok->name<<"}{"<<ftok->arg<<"}";
+      if(p->is_binary()) out<<" (built-in function)\n";
+      else out<<"{"<<ftok->x.expr<<"}\n";
+    }
+    else out<<env[0]<<" (not a function)\n";
+  }
+}
+
+void envAddHelp(tokmap& T)
+{
+  TOK_ADD(help,"",tok_t::PRIVATE,
+          "%Help message\n"
+          "%Syntax: \\help\n"
+          );
+  TOK_ADD(ops,"?",tok_t::PRIVATE,
+          "%Help on operators\n"
+          "%Syntax: \\ops<opname>\n"
+          );
+  TOK_ADD(tok,"?",tok_t::PRIVATE,
+          "%Help on tokens\n"
+          "%Syntax: \\tok<tokname>\n"
+          );
+  TOK_ADD(src,"x",tok_t::SYSONLY,
+          "%Source of token\n"
+          "%Syntax: \\src{tokname}\n"
+          );
+}