Added public files
Roughly added all public files. Probably missed some, though.
diff --git a/std/util/pager.c b/std/util/pager.c
new file mode 100644
index 0000000..9d71b85
--- /dev/null
+++ b/std/util/pager.c
@@ -0,0 +1,142 @@
+// MorgenGrauen MUDlib
+//
+// util/pager.c -- generic pager
+//
+// $Id: pager.c 8755 2014-04-26 13:13:40Z Zesstra $
+
+#pragma strong_types
+#pragma save_types
+#pragma pedantic
+#pragma range_check
+#pragma no_clone
+
+inherit "/std/util/input";
+
+#include <pager.h>
+#include <sys_debug.h>
+#include <wizlevels.h>
+
+string prompt(mixed pinfo, string add)
+{
+ return sprintf(MSG_PROMPT+"%s", stringp(add)?add:"");
+}
+
+string fread(mixed pinfo, int begin, int c)
+{
+ if(begin > pinfo[MAXL] || begin < 1) return 0;
+ if(pinfo[FILE]) return read_file(pinfo[TEXT], begin, c);
+ else
+ {
+ int start, end, l, x;
+
+ if(member(pinfo[JUNK], begin))
+ {
+ start = pinfo[JUNK][begin];
+ if(!(end = pinfo[JUNK][begin+c]))
+ end = sizeof(pinfo[TEXT]);
+ else end--;
+ return pinfo[TEXT][start..end];
+ }
+ return 0;
+ }
+}
+
+mixed call(closure ctrl, mixed ctrlargs)
+{
+ if (!ctrl||!closurep(ctrl)) return 0;
+ if(!pointerp(ctrlargs)) return funcall(ctrl);
+ return apply(ctrl, ctrlargs);
+}
+
+
+varargs int eval_command(mixed in, mixed pinfo)
+{
+ string cprompt, tmp;
+ cprompt = "";
+ if(in == "q" || in == "x")
+ {
+ if(closurep(pinfo[CTRL])) apply(pinfo[CTRL], pinfo[CARG]);
+ return 1;
+ }
+ else
+ if(!in || (stringp(in) && !sizeof(in))) pinfo[CURL] += pinfo[PAGE];
+ else if(in != -1) return 0;
+
+ if(pinfo[CURL] >= pinfo[MAXL])
+ return (call(pinfo[CTRL], pinfo[CARG]), 1);
+ if(pinfo[CURL] <= 0) pinfo[CURL] = 1;
+ if(pinfo[CURL] == 1) cprompt = MSG_TOP;
+ if(pinfo[CURL] + pinfo[PAGE] >= pinfo[MAXL]) cprompt = MSG_BOTTOM;
+ if(!tmp = fread(pinfo, pinfo[CURL], pinfo[PAGE]))
+ return 0; /* (write(MSG_OOPS+"\n"), 0); */
+ if (query_once_interactive(this_object()))
+ tell_object(this_object(), tmp);
+ else write(tmp);
+ if(!(pinfo[FLAG] & E_PROMPT) &&
+ (pinfo[CURL] + pinfo[PAGE] >= pinfo[MAXL] || !pinfo[PAGE]))
+ return (call(pinfo[CTRL], pinfo[CARG]), 1);
+ if(!(pinfo[FLAG] & E_CAT) &&
+ (pinfo[MAXL] > pinfo[PAGE] || (pinfo[FLAG] & E_PROMPT)))
+ input(#'prompt, ({ pinfo, cprompt }), #'eval_command, ({ pinfo }));
+ return 1;
+}
+
+varargs public void More(string txt, int file,
+ mixed ctrl, mixed ctrlargs,
+ int flags)
+{
+ int j;
+ mixed tmp, pinfo;
+ if(!txt) return call(ctrl, ctrlargs);
+ // TEXT, FILE, CURL, MAXL, REGX, PAGE, CTRL, CARG
+ pinfo = ({ txt, file, 1, 1, 20, 0, ctrl, ctrlargs, flags });
+
+ if (pinfo[FILE])
+ {
+ if (file_size(pinfo[TEXT])<50000)
+ {
+ pinfo[TEXT]=read_file(pinfo[TEXT]);
+ if (!pinfo[TEXT])
+ {
+ call(ctrl, ctrlargs);
+ return;
+ }
+ pinfo[FILE]=0;
+ }
+ else if (file_size(pinfo[TEXT])>1048576)
+ {
+ tell_object(this_player()||this_object(),break_string(sprintf(
+ "Die Datei '%s' kann nicht angezeigt werden, da "
+ "sie groesser als 1 MB ist. %s",pinfo[TEXT],
+ IS_LEARNER(this_player()||this_object())?"":"Bitte verstaendige "
+ "diesbezueglich umgehend einen Magier."),78));
+ call(ctrl,ctrlargs);
+ return;
+ }
+ }
+
+ if(!pinfo[FILE] && pinfo[TEXT][<1..<1] != "\n") pinfo[TEXT] += "\n";
+ pinfo += ({ ([1:0]) });
+ if(!pinfo[FILE])
+ while((j = strstr(pinfo[TEXT], "\n", j+1)) != -1)
+ pinfo[JUNK][++pinfo[MAXL]] = j+1;
+ else
+ while(tmp = read_file(pinfo[TEXT], pinfo[MAXL], MAX_LINE_READ))
+ pinfo[MAXL] += sizeof(explode(tmp, "\n"))+1;
+ pinfo[PAGE] = PAGELENGTH;
+ if(!pinfo[PAGE]) pinfo[FLAG] |= E_CAT;
+ if ((this_interactive() && (j=(int)this_interactive()->QueryProp(P_MORE_FLAGS))) ||
+ (this_player() && interactive(this_player()) &&
+ (j=(int)this_player()->QueryProp(P_MORE_FLAGS))))
+ pinfo[FLAG] |= j;
+
+ pinfo[CURL] = 1;
+ eval_command(-1, pinfo);
+ return;
+}
+
+
+
+
+
+