@verb #300:"compile" this none this rxdo #789
@program #300:"compile" this none this
"Compile the description of this object into a verb."
set_task_perms(this.owner)
caller == this || raise(E_PERM)
desc = {@args[1]}
vname = "_render_" + args[2]
if (index(desc ? desc[$] | "", "<!-- Last modified by ", 1) == 1)
  desc = listdelete(desc, length(desc))
endif
code = {"\"*** DON'T TOUCH THIS CODE *** AUTOMATICALLY GENERATED ***\";", "caller == this || raise(E_PERM);"}
codemode = 0
"Trim off blank leading + trailing lines."
while (desc && !$su:triml(desc[1]))
  desc = desc[2..$]
endwhile
while (desc && !$su:triml(desc[$]))
  desc = desc[1..$ - 1]
endwhile
telllinescache = {}
for line in (desc)
  if (codemode)
    line = "<% " + line
    codemode = 0
  endif
  program = 0
  tellitems = {}
  while (line && (start = index(line, "<%")))
    $cmd_utils:suspend_if_needed(0)
    if (length(telllinescache) == 1)
      code = {@code, "player:tell(" + telllinescache[1] + ");"}
    elseif (telllinescache)
      code = {@code, "player:tell({" + $su:from_list(telllinescache, ", ") + "});"}
    endif
    telllinescache = {}
    end = index(line[start..$], "%>")
    if (line[min(start + 2, $)] == "=" && end)
      "Parse an eval."
      program = line[start + 3..start + end - 2]
      start == 1 || (tellitems = {@tellitems, toliteral(line[1..start - 1])})
      program && (tellitems = {@tellitems, program})
      line = start + end == length(line) ? E_NONE | line[start + end + 1..$]
    elseif (line[min(start + 2, $)] == "=")
      $msg:mtell("www_error", "Warning!  Eval may not span multiple lines.")
      badline = line
      badline[start..start + 2] = $su.tab
      badline = strsub($html_utils:literal_text(badline), $su.tab, "</I><B>&lt;%=</B><I>")
      player:tell("<I>", badline, "</I><BR>")
      player:tell("Proceeding with compile.<P>")
      line[start..start + 2] = "&lt;%="
    else
      "Parse code."
      if ($su:triml(line[1..start - 1]))
        tellitems = {@tellitems, toliteral(line[1..start - 1])}
      endif
      if (tellitems)
        "Clean out the old tellitems list."
        code = {@code, "player:tell(" + $string_utils:from_list(tellitems, ", ") + ");"}
        tellitems = {}
      endif
      if (end)
        code = {@code, line[start + 2..start + end - 2]}
        code[$] = $su:trimr(code[$])
        if (!code[$] || code[$][$] != ";")
          code[$] = code[$] + ";"
        endif
        line = line[start + end + 1..$]
        if (!$su:triml(line))
          line = E_NONE
        endif
      else
        code = {@code, line[start + 2..$]}
        codemode = 1
        line = E_NONE
      endif
    endif
  endwhile
  if (line != E_NONE)
    tellitems = {@tellitems, toliteral(line)}
  endif
  if (length(tellitems) == 1 && !program)
    telllinescache = {@telllinescache, tellitems[1]}
  elseif (tellitems)
    code = {@code, "player:tell(" + $string_utils:from_list(tellitems, ", ") + ");"}
  endif
endfor
if (length(telllinescache) == 1)
  code = {@code, "player:tell(" + telllinescache[1] + ");"}
elseif (telllinescache)
  code = {@code, "player:tell({" + $su:from_list(telllinescache, ", ") + "});"}
endif
if (codemode)
  if (player:isa($webber))
    $msg:mtell("www_error", "Warning!  Last code section doesn't end.")
  else
    player:tell("Warning!  Last code section doesn't end.")
  endif
  code[$] = $su:trimr(code[$])
  if (!code[$] || code[$][$] != ";")
    code[$] = code[$] + ";"
  endif
  player:tell("Proceeding with compile.")
endif
for x in [1..length(code)]
  "Small optimisation."
  if (code[x] == "player:tell(\"\");")
    code[x] = "player:tell();"
  endif
endfor
if (!(vname in verbs(this)))
  if (where = this:has_verb(vname))
    if (!index(verb_info(where[1], vname)[2], "o"))
      raise(E_PERM, "Cannot override a -o verb.", vname)
    endif
  endif
  add_verb(this, {this.owner, "roxd", vname}, {"this", "none", "this"})
endif
if (result = set_verb_code(this, vname, code))
  if (player:isa($webber))
    $msg:mtell("www_error", "Error during compile!")
  else
    player:tell("Error during compile!")
  endif
  player:tell("<PRE>")
  player:tell(result)
  line = toint(result[1][5..index(result[1], ":") - 1])
  player:tell()
  for x in [max(1, line - 2)..min(line + 2, length(code))]
    if (line == x)
      player:tell("<I>", $html_utils:literal_text(code[x]), "</I>")
    else
      player:tell($html_utils:literal_text(code[x]))
    endif
  endfor
  player:tell("</PRE><HR>")
else
  if (bad = $code_utils:bad_ref(this, vname))
    player:tell("<B>Warning: Invalid $reference detected: ", $su:english_list(bad), "</B><P>")
  endif
  if (bad = $code_utils:bad_obj(this, vname))
    player:tell("<B>Warning: Invalid object number detected: ", $su:english_list(bad), "</B><P>")
  endif
  if (bad = $code_utils:bad_var(this, vname))
    player:tell("<B>Warning: Undefined variables may be present: ", $su:english_list(bad), "</B><P>")
  endif
  player:tell("<B>Compile successful!</B><P>")
endif
"Last modified by Dax (#789) on Tue May  3 14:09:31 2005 MDT."
.