396
@verb #340:"_contents" this none this rxdo #7214
@program #340:"_contents" this none this
caller == this || raise(E_PERM)
{o, encname} = args
t = encname[1]
venc = encname[2..$]
v = this:_trans_from(venc)
contents = {}
if (t == "P")
  if (!(v in {"name"}))
    pinfo = property_info(o, v)
    contents = {v, pinfo[2]}
  endif
  contents = {@contents, toliteral(o.(v))}
elseif (t == "V")
  vn = v in verbs(o)
  vinfo = verb_info(o, vn)
  contents = {vinfo[3], vinfo[2], $string_utils:from_list(verb_args(o, vn), " ")}
  vc = verb_code(o, vn)
  vc && match(vc[$], "^\"Last modified by .* (#[0-9]*) on .*.\";$") && (vc[$..$] = {})
  contents = {@contents, @vc}
elseif (t == "F")
  contents = o:fileread(v)
endif
lcontents = 0
for x in (contents)
  lcontents = lcontents + length(x) + 1
endfor
return {lcontents, contents}
"Last modified by manta (#7165) on Thu May  4 20:27:44 2000 MDT."
.

0