bac94e2004-06-05Marc Dirix // This is a ChiliMoon module. Copyright © 2000 - 2001, Roxen IS.
42cd712001-09-03Martin Nilsson 
a352b72001-05-04Leif Stensson // randomtext.pike -- random text generator module
8cb9ed2000-02-01Leif Stensson //
a352b72001-05-04Leif Stensson // By Leif Stensson.
8cb9ed2000-02-01Leif Stensson //
bac94e2004-06-05Marc Dirix // This is a ChiliMoon module for generating semi-random text based on
a352b72001-05-04Leif Stensson // a set of rules. The functionality is available through a tag
8cb9ed2000-02-01Leif Stensson //
a352b72001-05-04Leif Stensson // <make-random-text rules="NAME_OF_RULE_FILE" />
8cb9ed2000-02-01Leif Stensson //
a352b72001-05-04Leif Stensson // Normally, the module will first look in its cache to see if a // random text has recently been generated from the same rules, // and if so, return the same result. The optional "nocache" // attribute forces a new text to be generated no matter whether // one has been cached or not.
8cb9ed2000-02-01Leif Stensson //
a352b72001-05-04Leif Stensson // The format of the rule files are a sequence of rules, optionally // preceeded by comments. The start of a rule is indicated by a line // beginning with three asterisks (***), and alternatives within a // rule are separated by lines beginning with three hyphens (---). // Rules can have directives specified after a second set of ***, // and each alternative (except the first) can have preconditions // and postconditions specified after a second set of ---. Within // each alternative, actions and inserts can be done using commands // quoted with $. For instance:
8cb9ed2000-02-01Leif Stensson // // // My rule file. // ***first-rule // anything // --- // whatever // // ***second-rule***single-shot // ONE! // --- // TWO! // // ***main***trim-spaces // $RULE:first-rule$ $RULE:first-rule$ // --- // $RULE:second-rule$ $RULE:second-rule$ //
a352b72001-05-04Leif Stensson // The rules will be invoked through evaluation of the "main" rule. // The result of a rule file like the one above will be that we start // by invoking either "first-rule" twice, or "second-rule" twice (since // these are the alternatives in the "main" rule). The "main" rule // has the directive trim-spaces, which indicates that leading and // trailing spaces should be removed, and any internal sequences of // whitespace should be converted into a single space. The "second-rule" // rule has the directive "single-shot", meaning it should only select // randomly once, but then produce the same result every time it is // called.
ae62af2000-02-22Leif Stensson //
bac94e2004-06-05Marc Dirix // ... and yes, this module was a quick hack for amusement and for
a352b72001-05-04Leif Stensson // use in some courses to help provide dummy contents for new sites,
bac94e2004-06-05Marc Dirix // so don't use this as a model for how to write ChiliMoon modules.
8cb9ed2000-02-01Leif Stensson  inherit "module";
59e0032000-07-03Martin Nilsson #include <module.h>
a352b72001-05-04Leif Stensson 
bac94e2004-06-05Marc Dirix string version = "$Id: randomtext.pike,v 1.10 2004/06/05 15:19:47 _cvs_dirix Exp $";
a352b72001-05-04Leif Stensson 
b3281f2000-09-10Martin Nilsson constant module_type = MODULE_TAG;
a352b72001-05-04Leif Stensson constant module_name = "Random Text";
59e0032000-07-03Martin Nilsson constant module_doc = "This module provides a simple way of generating texts on a " "semi-random basis according to a set of rules. Apart from its " "amusement value, this can be useful for testing and educational " "purposes, such as generating small quiz pages or producing " "many different kinds of input for testing text processing tags.";
8cb9ed2000-02-01Leif Stensson  mapping text_cache = ([ ]); string recentfile = "(none)", recenterror = "(none)", recentdiag = "(none)"; int recentsteps, recenttagtime;
a352b72001-05-04Leif Stensson string searchpath;
8cb9ed2000-02-01Leif Stensson void create()
a352b72001-05-04Leif Stensson {
dacef22002-06-05Martin Nilsson  defvar("searchpath", "data/randomtext", "Rules File Search Path", TYPE_DIR,
8cb9ed2000-02-01Leif Stensson  "This is the location in the real file system where the random " "text module will look for rule files."); defvar("searchcwd", 0, "Search Document Directory", TYPE_FLAG, "If this option is enabled, the module will search the current " "directory for rule files before trying the general rules file "
a352b72001-05-04Leif Stensson  "search path.");
8cb9ed2000-02-01Leif Stensson  defvar("flushcache", 3, "Minutes Between Cache Flushes", TYPE_MULTIPLE_INT, "This is the number of minutes that should pass between each " "flushing of the text cache. The default value for this option " "is 3.", ({ 0, 1, 2, 3, 5, 10, 15 }) );
ae62af2000-02-22Leif Stensson  defvar("maxeval", 20000, "Maximum Evaluation Steps", TYPE_MULTIPLE_INT, "This value limits the number of evaluation steps that may be taken " "while evaluating a rule file. The default value for this option is " "20000.", ({ 5000, 10000, 20000, 50000, 100000 }) );
8cb9ed2000-02-01Leif Stensson } string status() { return
59e0032000-07-03Martin Nilsson  "<b>Most recent tagtime</b>:" + recenttagtime + "<br />" + "<b>Most recent file</b>:" + recentfile + "<br />" + "<b>Most recent error</b>:" + recenterror + "<br />" + "<b>Steps in recent run</b>:" + recentsteps + "<br />" + "<b>Debug diagnostics</b>:" + recentdiag + "<br />" +
8cb9ed2000-02-01Leif Stensson  "<b>Text cache for</b>: " + sprintf("%O", indices(text_cache)); } void flush_cache()
a352b72001-05-04Leif Stensson { int period = 60*query("flushcache");
8cb9ed2000-02-01Leif Stensson  text_cache = ([ ]); call_out(flush_cache, period < 5 ? 5 : period); } void start()
a352b72001-05-04Leif Stensson { int period = 60*query("flushcache");
8cb9ed2000-02-01Leif Stensson  call_out(flush_cache, period < 5 ? 5 : period);
a352b72001-05-04Leif Stensson  searchpath = query("searchpath"); if (stringp(searchpath) && searchpath[-1] == '/') searchpath = searchpath[0..sizeof(searchpath)-2];
8cb9ed2000-02-01Leif Stensson }
ae62af2000-02-22Leif Stensson static int isalnum(string c)
a352b72001-05-04Leif Stensson { if (!stringp(c) || sizeof(c) != 1) return 0;
ae62af2000-02-22Leif Stensson  if (c >= "a" && c <= "z" || c >= "A" && c <= "Z" || c >= "0" && c <= "9")
a352b72001-05-04Leif Stensson  return 1;
ae62af2000-02-22Leif Stensson  return 0; } static int isidchar(string c)
a352b72001-05-04Leif Stensson  { return isalnum(c) || c == "-" || c == "_";}
ae62af2000-02-22Leif Stensson  static int isopchar(string c)
a352b72001-05-04Leif Stensson  { return (< "+", "-", "*", "/", "%", "!", "=", "<", ">" >)[c];}
ae62af2000-02-22Leif Stensson  mixed evalexpr(string expr, mapping args) // // Evaluate a simple expression. Note: this function doesn't care
a352b72001-05-04Leif Stensson // about traditional operator precedence -- binary operators are
ae62af2000-02-22Leif Stensson // always applied from right to left. //
a352b72001-05-04Leif Stensson { string left, op, right; mixed value, value2; sscanf(expr, "%*[ \n]%s", expr); // skip initial white-space // Unary operator? if (!isidchar(expr[0..0]) && isopchar(expr[0..0])) { if (isopchar(expr[0..0])) value = evalexpr(expr[1..], args); else value = 0; if (intp(value)) switch (expr[0..0]) { case "-": return -value; case "!": return !value; }
ae62af2000-02-22Leif Stensson  return "<b>(EXPR1?:" + expr + ")</b>"; }
a352b72001-05-04Leif Stensson  // Not unary operator. left = 0; op = 0; right = 0; sscanf(expr, "%[-0-9a-zA-Z_]%*[ \n]%s", left, op); if (sscanf((string)left, "%d", value) || sscanf((string)args[upper_case(left)], "%d", value)) /* result is in 'value' */; else if (args[upper_case(left)]) value = args[upper_case(left)]; else return "<b>(EXPR2?:" + expr + ")</b>"; if (stringp(op) && sizeof(op) > 0 && isopchar(op[0..0])) { sscanf(op, "%1s%s", op, right); value2 = evalexpr(right, args);
ae62af2000-02-22Leif Stensson  }
a352b72001-05-04Leif Stensson  else op = 0; if (stringp(value )) sscanf(value, "%d", value); if (stringp(value2)) sscanf(value2, "%d", value2); if (intp(value) && intp(value2)) switch (op) { case "+": return value + value2; case "-": return value - value2; case "*": return value * value2; case "/": return value / (value2 ? value2 : 1); case 0: return value; } return "<b>(EXPR?:" + left + " " + op + " " + right + ")</b>";
ae62af2000-02-22Leif Stensson }
8cb9ed2000-02-01Leif Stensson string rtt_parse(mapping sections, string sec, mapping args, int depth)
ae62af2000-02-22Leif Stensson // // Parse a random text template/rule file. //
8cb9ed2000-02-01Leif Stensson { int choice, counts; if (!mappingp(sections[sec]))
a352b72001-05-04Leif Stensson  return "<p><b>Error: no '" + sec + "' rule</b>";
8cb9ed2000-02-01Leif Stensson  if (depth > 30)
a352b72001-05-04Leif Stensson  return "<p><b>Error: too deep recursion</b>";
8cb9ed2000-02-01Leif Stensson  if (sections[sec]["single-shot"] && sections[sec]["result"]) return sections[sec]["result"]; if (sections["steps"]++ > 10000)
a352b72001-05-04Leif Stensson  return "<b>Error: too long evaluation</b>";
8cb9ed2000-02-01Leif Stensson  #ifdef DEBUG recentdiag += sprintf("[%s:: %O]", sec, args); #endif choice = -1; counts = 0; while (choice < 0) { choice = random(1+sections[sec]["index"]); if (choice == sections[sec]["lastindex"] && sections[sec]["avoid-repeat"] == 1) choice = (choice+1) % (1+sections[sec]["index"]); array conds = sections[sec]["conditions"+choice]; if (conds == 0) conds = ({ }); #ifdef DEBUG recentdiag += "Choice: " + choice + "."; #endif foreach(conds, string precond) { // recentdiag += "Cond '" + precond + "'."; if (stringp(precond) && precond != "") { if (precond[0..0] == "!") { if (args[upper_case(precond[1..])]) choice = -1; #ifdef DEBUG recentdiag += "(N:" + args[upper_case(precond[1..])] + ") "; #endif } else if (sizeof(precond / "!=") == 2) { if (args[upper_case((precond/"!=")[0])] == args[(precond/"!=")[1]]) choice = -1; } else if (sizeof(precond / "==") == 2) { if (args[upper_case((precond/"!=")[0])] == args[(precond/"==")[1]]) choice = -1; } else if (args[upper_case(precond)]) { choice = -1; #ifdef DEBUG recentdiag += "/"; #endif } else { #ifdef DEBUG recentdiag += "(?)"; #endif } } #ifdef DEBUG if (choice == -1) recentdiag += "(!F)"; #endif } if (++counts > 7 && choice == -1) { choice = 0; #ifdef DEBUG recentdiag += "Break: choice=0."; #endif break; } } sections[sec]["lastindex"] = choice; array actions = sections[sec]["actions"+choice]; if (actions == 0) actions = ({ }); foreach(actions, string action) { // recentdiag += "Action '" + action + "'"; if (sizeof(action / "=") == 2) { args[upper_case((action / "=")[0])] = (action / "=")[1]; // recentdiag += " (SET!)"; } else recenterror = "Bad action in rule '" + sec + "'"; } string text = sections[sec][choice]; if (sizeof(text / "$") > 2)
a352b72001-05-04Leif Stensson  { array a = text / "$"; string assignvar = 0; int i;
8cb9ed2000-02-01Leif Stensson  for(i = 1; i < sizeof(a); i += 2)
a352b72001-05-04Leif Stensson  { if (a[i][0..3] == "SET:" || a[i][0..6] == "ASSIGN:")
8cb9ed2000-02-01Leif Stensson  { array elts = a[i] / ":"; if (sizeof(elts) > 2) { assignvar = upper_case(elts[1]); a[i] = elts[2..] * ":"; } else { assignvar = "-";} } else assignvar = 0; if (a[i][0..4] == "RULE:") a[i] = rtt_parse(sections, lower_case(a[i][5..]), args, depth+1); else if (a[i][0..8] == "VARIABLE:") a[i] = args[upper_case(a[i][9..])]; else if (a[i][0..6] == "SELECT:") { array b = a[i][7..] / "|"; a[i] = b[random(sizeof(b))]; } else if (a[i][0..6] == "STRING:")
a352b72001-05-04Leif Stensson  a[i] = a[i][7..];
ae62af2000-02-22Leif Stensson  else if (a[i][0..5] == "VALUE:") a[i] = a[i][6..]; else if (a[i][0..4] == "EXPR:") a[i] = "" + evalexpr(a[i][5..], args);
8cb9ed2000-02-01Leif Stensson  else if (a[i] == "GLUE" || a[i] == "NEWLINE" || a[i] == "SPACE" || a[i] == "CAPITALIZE") a[i] = "<<<" + a[i] + ">>>";
ae62af2000-02-22Leif Stensson  else if (a[i] == "DOLLAR") a[i] = "$";
8cb9ed2000-02-01Leif Stensson  else a[i] = "<b>(?" + a[i] + "?)</b>"; if (assignvar) { args[assignvar] = a[i]; a[i] = ""; /* Old debug code: "{" + assignvar + ": " + a[i] + "}"; */ } } text = a * ""; } int zap; if (sections[sec]["trim-spaces"])
a352b72001-05-04Leif Stensson  { while ((zap = search(text, "\n")) >= 0)
8cb9ed2000-02-01Leif Stensson  text = (zap > 0 ? text[0..zap-1] : "") + " " + text[zap+1..];
ae62af2000-02-22Leif Stensson  while (sizeof(text) > 0 && text[sizeof(text)-1..sizeof(text)-1] == " ") text = text[0..sizeof(text)-2]; while (sizeof(text) > 0 && text[ 0.. 0] == " ") text = text[1..];
8cb9ed2000-02-01Leif Stensson  while ((zap = search(text, " ")) >= 0) { text = text[0..zap] + text[zap+2..];} }
a352b72001-05-04Leif Stensson  // Contract "<<<GLUE>>>" sections, i.e. remove "<<<GLUE>>>" plus // all white-space immediately before and after it.
8cb9ed2000-02-01Leif Stensson  while ((zap = search(text, "<<<GLUE>>>")) >= 0) { int pre, post; for(pre = zap-1; pre >= 0 && (< "\n", " " >)[text[pre..pre]]; --pre); for(post = zap+10; post < sizeof(text) && (< "\n", " " >)[text[post..post]]; ++post); text = (pre >= 0 ? text[0..pre] : "") + text[post..]; }
a352b72001-05-04Leif Stensson  // Insert real spaces.
8cb9ed2000-02-01Leif Stensson  while ((zap = search(text, "<<<SPACE>>>")) >= 0) text = (zap > 0 ? text[0..zap-1] : "") + " " + text[zap+11..];
a352b72001-05-04Leif Stensson  // Insert real newlines.
8cb9ed2000-02-01Leif Stensson  while ((zap = search(text, "<<<NEWLINE>>>")) >= 0) text = (zap > 0 ? text[0..zap-1] : "") + "\n" + text[zap+12..];
a352b72001-05-04Leif Stensson  // Capitalize next character.
8cb9ed2000-02-01Leif Stensson  while ((zap = search(text, "<<<CAPITALIZE>>>")) >= 0) { string t1 = (zap > 0 ? text[0..zap-1] : ""); string t2 = text[zap+16..]; if (t2[0..0] == " " || t2[0..0] == "\n") { t1 += t2[0..0]; t2 = t2[1..];} text = t1 + String.capitalize(t2); } if (sections[sec]["assign"]) args[sections[sec]["assign"]] = text; if (sections[sec]["single-shot"]) sections[sec]["result"] = text; return text; } string rtt_read(string path) { int lineno = 0; string line, mode = 0, tmp; mapping sections = ([ "steps": 0 ]); string this_section = "***"; int secindex = -1; if (Stdio.file_size(path) < 0)
a352b72001-05-04Leif Stensson  return "<b>error: unable to access rule file</b>";
8cb9ed2000-02-01Leif Stensson  object f = Stdio.FILE(path, "r"); if (!f) return "<b>Error: no rule file found for '" + path + "'</b>"; recentfile = path; while (line = f->gets()) { ++lineno; if (line[0..2] == "***")
a352b72001-05-04Leif Stensson  { array a = line / "***";
8cb9ed2000-02-01Leif Stensson  array b = a[1] / " ";
a352b72001-05-04Leif Stensson 
8cb9ed2000-02-01Leif Stensson  recentdiag = sprintf("%O", b); this_section = lower_case(b[0]); sections[this_section] = ([ "index" : 0, "lineno": lineno, 0: "" ]);
a352b72001-05-04Leif Stensson 
8cb9ed2000-02-01Leif Stensson  if (sizeof(a) > 2 && stringp(a[2])) foreach((a[2] / " "), string option) { if (option[0..6] == "assign:") { sections[this_section]["assign"] = option[7..];} else if (option == "trim-spaces" || option == "single-shot") { sections[this_section][option] = 1;} else if (option == "avoid-repeat") { sections[this_section]["avoid-repeat"] = 1; sections[this_section]["lastindex"] = -1; } } secindex = 0; } else if (line[0..2] == "---")
a352b72001-05-04Leif Stensson  { array a = line / "---";
8cb9ed2000-02-01Leif Stensson  sections[this_section]["index"] = ++secindex; sections[this_section][secindex] = ""; if (sizeof(a) > 1) sections[this_section]["conditions"+secindex] = a[1] / " "; if (sizeof(a) > 2) sections[this_section]["actions"+secindex] = a[2] / " "; }
a352b72001-05-04Leif Stensson  else if (line[0..2] != "///") if (secindex >= 0 && secindex < 20)
8cb9ed2000-02-01Leif Stensson  if (line != "") sections[this_section][secindex] += line + "\n";
a352b72001-05-04Leif Stensson  /* else ignore line. */
8cb9ed2000-02-01Leif Stensson  } string result = rtt_parse(sections, "main", ([ ]), 0); recentsteps = sections["steps"]; return result; }
a352b72001-05-04Leif Stensson mixed simpletag_make_random_text(string tag, mapping attr, string contents, RequestID id) { recenttagtime = time(); NOCACHE();
8cb9ed2000-02-01Leif Stensson  if (attr->rules)
a352b72001-05-04Leif Stensson  { string file = attr->rules; string cwd = 0; if (!file || !stringp(file)) file = "default";
6bae6e2002-10-22Martin Nilsson  if (has_value(file, "/"))
a352b72001-05-04Leif Stensson  return "<b>make-random-text: `/' not allowed in rules name</b>"; if (query("searchcwd") && stringp(id->realfile)) { if (Stdio.file_size(id->realfile) > 0) cwd = dirname(id->realfile); else if (Stdio.file_size(id->realfile) == -2) cwd = id->realfile;
8cb9ed2000-02-01Leif Stensson  }
a352b72001-05-04Leif Stensson  if (Stdio.file_size(searchpath+"/"+file+".rtt") >= 0) file = searchpath+"/"+file+".rtt"; else if (Stdio.file_size(searchpath+"/"+file) >= 0) file = searchpath+"/"+file; else if (cwd && Stdio.file_size(cwd+"/"+file) >= 0) file = cwd+"/"+file; else if (cwd && Stdio.file_size(cwd+"/"+file+".rtt") >= 0) file = cwd+"/"+file+".rtt"; if (!file || Stdio.file_size(file) < 0) return "<b>make-random-text: `" + (attr->rules) + "' rules not found</b>";
8cb9ed2000-02-01Leif Stensson 
a352b72001-05-04Leif Stensson  // Now 'file' is the full path to the rules file.
8cb9ed2000-02-01Leif Stensson 
a352b72001-05-04Leif Stensson  if (attr->nocache) return rtt_read(file); if (!text_cache[file]) return text_cache[file] = rtt_read(file);
8cb9ed2000-02-01Leif Stensson 
a352b72001-05-04Leif Stensson  return text_cache[file]; } return "<b>make-random-text: no `rules' attribute</b>"; }