Added public files
Roughly added all public files. Probably missed some, though.
diff --git a/obj/tools/lisp/escape.c b/obj/tools/lisp/escape.c
new file mode 100644
index 0000000..def5648
--- /dev/null
+++ b/obj/tools/lisp/escape.c
@@ -0,0 +1,37 @@
+// ESCAPE.C -- expanding escape characters
+// (c) 1994 by Hate@MorgenGrauen, TUBmud, NightFall
+// --
+// Copy, change and distribute this bit of software as much as you like,
+// but keep the name of the original author in the header.
+
+#pragma strong_types
+
+string escape(string str)
+{
+ switch(str)
+ {
+ case "\b" : return "\\b";
+ case "\f" : return "\\f";
+ case "\n" : return "\\n";
+ case "\r" : return "\\r";
+ case "\t" : return "\\t";
+ case "\\" : return "\\\\";
+ }
+ return str;
+}
+
+string unescape(string str)
+{
+ switch(str)
+ {
+ case "\\b" : return "\b";
+ case "\\f" : return "\f";
+ case "\\n" : return "\n";
+ case "\\r" : return "\r";
+ case "\\t" : return "\t";
+ case "\\\\": return "\\";
+ default : if(str && sizeof(str)>1 && str[0]=='\\')
+ return str[1..];
+ }
+ return str;
+}