View/Edit #2:_constructor

Name(s): _constructor

1:  "Begin generic security check (_constructor)"
2:  if (verb == "_constructor" && caller_perms() != #-1)
3:    raise(E_PERM)
4:    return E_PERM
5:  endif
6:  "End generic security check (_constructor)"
7:  typeof(args[1]) == $OBJ || raise(E_TYPE)
8:  args[1].aliases = {}
9:  `args[1].owner.owned_objects = setadd(args[1].owner.owned_objects, args[1]) ! ANY'
10: args[1].best_before = time() + args[1].initial_expiry_time
11: args[1].r = 1
12: args[1].subsidised = 0
13: args[1].www_counter = 0
14: "Last modified by Dax (#789) on Tue May  3 13:49:38 2005 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.