simul_efun.c-Dateireferenz

#include "/secure/config.h"
#include "/secure/wizlevels.h"
#include "/sys/snooping.h"
#include "/sys/language.h"
#include "/sys/thing/properties.h"
#include "/sys/wizlist.h"
#include "/sys/erq.h"
#include "/sys/lpctypes.h"
#include "/sys/daemon.h"
#include "/sys/player/base.h"
#include "/sys/thing/description.h"
#include "/sys/container.h"
#include "/sys/defines.h"
#include "/sys/telnet.h"
#include "/sys/objectinfo.h"
#include "/sys/files.h"
#include "/sys/strings.h"
#include "/sys/debug_info.h"
#include "/sys/time.h"
#include "/sys/notify_fail.h"
#include "/sys/tls.h"

Include-Abhängigkeitsdiagramm für simul_efun.c:

gehe zum Quellcode dieser Datei

Makrodefinitionen
#define	SNOOPLOGFILE   "SNOOP"
#define	ASNOOPLOGFILE   "ARCH/SNOOP"
#define	IP_VALID_CACHE   86400
#define	IP_RETRY   28800
#define	TO   efun::this_object()
#define	TI   efun::this_interactive()
#define	TP   efun::this_player()
#define	PO   efun::previous_object(0)
#define	LEVEL(x)   query_wiz_level(x)
#define	NAME(x)   capitalize(getuid(x))
#define	DEBUG(x)
#define	TAGE   ({"Son","Mon","Die","Mit","Don","Fre","Sam"})
#define	MONATE
#define	MAXLEN   50000
Funktionen
string	dtime (int wann)
varargs int	log_file (string file, string txt, int size_to_break)
int	query_wiz_level (mixed player)
mixed *	remove_alist (mixed key, mixed *alist)
nomask varargs int	snoop (object me, object you)
nomask object	query_snoop (object who)
varargs string	country (mixed ip, string num)
int	query_wiz_grp (mixed wiz)
public varargs object	deep_present (mixed what, object ob)
nomask int	secure_level ()
nomask string	secure_euid ()
public nomask int	process_call ()
nomask mixed	__create_player_dummy (string name)
varargs string	replace_personal (string str, mixed *obs, int caps)
	__EFUN_DEFINED__(copy_file)
varargs string	extract (string str, int from, int to)
varargs mixed *	slice_array (mixed *array, int from, int to)
int	member_array (mixed item, mixed arraystring)
nomask void	destruct (mixed ob)
string	NotifyDestruct (object caller)
public nomask void	remove_interactive (object ob)
void	___updmaster ()
string	query_ip_number (object ob)
string	query_ip_name (mixed ob)
static object	find_snooped (object who)
static private string	Lcut (string str)
string *	old_explode (string str, string del)
int	file_time (string path)
mixed *	exclude_alist (int i, mixed *alist)
varargs string	strftime (mixed fmt, int clock, int localized)
nomask int	shutdown (string reason)
	__EFUN_DEFINED__(strftime)
int	lowerchar (int char)
string	upperstring (string s)
string	lowerstring (string s)
string	version ()
private string	stretch (string s, int width)
private varargs string	block_string (string s, int width, int flags)
public varargs string	break_string (string s, int w, mixed indent, int flags)
mapping	m_delete (mapping m, mixed key)
int	m_width (mapping m)
int	last_reboot_time ()
int	first_boot_time ()
int	exist_days ()
string	uptime ()
void	dangling_lfun_closure ()
nomask void	set_this_player (object pl)
public void	update_actions ()
static void	move_inv (object ob)
private nomask string	_process_string (string str, object po)
nomask string	process_string (mixed str)
mixed	save_object (mixed name)
int	restore_object (string name)
int	set_object_heart_beat (object ob, int flag)
mixed *	wizlist_info ()
varargs void	wizlist (string name, int sortkey)
static int	_cost_sort (mixed *a, mixed *b)
void	StopCallOut (int arg)
protected object	_call_out_obj (mixed call_out)
protected void	_same_object (object ob, mapping m)
protected void	_same_path (object key, object *obs, mapping m)
protected int	_too_many (mixed key, mapping m, int i)
protected void	_destroy (string key, object *obs, string text, int uid)
protected void	_same_uid (string key, object *obs, mapping m, closure cf)
nomask varargs void	call_out (varargs mixed *args)
mixed	call_out_info ()
mixed	query_closure_object (closure c)
varargs void	move_object (mixed what, mixed where)
private int	living_or_interactive (object o)
static int	_shout_filter (object ob, string pat)
varargs void	shout (string s, mixed where)
void	start_simul_efun ()
void	__clear_ip_map ()
protected void	reset ()
void	cindent (string name)
mixed *	query_comm_stat ()
void	set_next_reset (int time)
int	absolute_hb_count ()
void	__set_environment (object ob, mixed target)
void	_dump_wizlist (string file, int sortby)
mapping	dump_ip_mapping ()
nomask void	swap (object obj)
nomask varargs void	garbage_collection (string str)
varargs void	notify_fail (mixed nf, int prio)
void	_notify_fail (string str)
private object	_shadow (object ob, int flag)
public object	shadow (object ob, int flag)
private void	_unshadow ()
public void	unshadow ()
string	time2string (string format, int time)
nomask varargs int	query_ip_port (object pl)
nomask mixed	debug_info (int flag, varargs int *args)
varargs void	input_to (mixed fun, int onoff, varargs mixed *args)
nomask int	set_light (int i)
public string	iso2ascii (string str)
public varargs string	CountUp (string *s, string sep, string lastsep)
nomask varargs int	query_next_reset (object ob)
nomask int	copy_file (string source, string dest)
varargs mixed *	slice_array (mixed array, int from, int to)
int	broken_count_bits (string s)
int	count_bits (string s)
mixed *	exclude_array (mixed *arr, int from, int to)
Variablen
mixed	dtime_cache = ({-1,""})
int	process_flag
static int	CallOutStopped = 0
static int	CallOutCount
static int	CountMessages = 0
static string	LastMessage
string	count_table

---

Makro-Dokumentation

#define ASNOOPLOGFILE   "ARCH/SNOOP"

Definiert in Zeile 21 der Datei simul_efun.c.

#define DEBUG

(

x

)

Wert:

if (find_player("zesstra")) \
  tell_object(find_player("zesstra"),x)

Definiert in Zeile 60 der Datei simul_efun.c.

#define IP_RETRY   28800

Definiert in Zeile 51 der Datei simul_efun.c.

#define IP_VALID_CACHE   86400

Definiert in Zeile 50 der Datei simul_efun.c.

#define LEVEL

(

x

)

query_wiz_level(x)

Definiert in Zeile 57 der Datei simul_efun.c.

#define MAXLEN   50000

Definiert in Zeile 1884 der Datei simul_efun.c.

#define MONATE

Wert:

({"Jan","Feb","Mar","Apr","Mai","Jun","Jul","Aug",\
                 "Sep","Okt","Nov","Dez"})

Definiert in Zeile 486 der Datei simul_efun.c.

#define NAME

(

x

)

capitalize(getuid(x))

Definiert in Zeile 58 der Datei simul_efun.c.

#define PO   efun::previous_object(0)

Definiert in Zeile 56 der Datei simul_efun.c.

#define SNOOPLOGFILE   "SNOOP"

Definiert in Zeile 20 der Datei simul_efun.c.

#define TAGE   ({"Son","Mon","Die","Mit","Don","Fre","Sam"})

Definiert in Zeile 485 der Datei simul_efun.c.

#define TI   efun::this_interactive()

Definiert in Zeile 54 der Datei simul_efun.c.

#define TO   efun::this_object()

Definiert in Zeile 53 der Datei simul_efun.c.

#define TP   efun::this_player()

Definiert in Zeile 55 der Datei simul_efun.c.

---

Dokumentation der Funktionen

void ___updmaster

(

)

Definiert in Zeile 166 der Datei simul_efun.c.

Benutzt ARCH_SECURITY, destruct(), file(), GETDIR_NAMES, GETDIR_PATH, GETDIR_UNSORTED, ob() und process_call().

{
    object ob;

    //sollte nicht jeder duerfen.
    if (process_call() || !ARCH_SECURITY)
      raise_error("Illegal use of ___updmaster()!");

    write("Removing old master ... ");
    foreach(string file: 
        get_dir("/secure/master/*.c",GETDIR_NAMES|GETDIR_UNSORTED|GETDIR_PATH)) {
      if (ob = find_object(file))
       efun::destruct(ob);
    }
    efun::destruct(efun::find_object("/secure/master"));
    write("done.\nLoading again ... ");
    load_object("/secure/master");

    write("done.\n");
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

void __clear_ip_map

(

)

Definiert in Zeile 1367 der Datei simul_efun.c.

{
}

nomask mixed __create_player_dummy

(

string

name

)

Definiert in Zeile 1732 der Datei simul_efun.c.

{
  string err;
  object ob;
  mixed m;
  //hat nen Scherzkeks die Blueprint bewegt?
  if ((ob=find_object("/secure/login")) && environment(ob))
      catch(destruct(ob);publish);
  err = catch(ob = clone_object("secure/login");publish);
  if (err)
  {
    write("Fehler beim Laden von /secure/login.c\n"+err+"\n");
    return 0;
  }
  if (objectp(m=(mixed)ob->new_logon(name))) netdead[name]=m;
  return m;
}

void __set_environment	(	object	ob,
		mixed	target
	)

Definiert in Zeile 1431 der Datei simul_efun.c.

{
  string path;
  object obj;

  if (!objectp(ob))
    return;
  if (!IS_ARCH(geteuid(previous_object())) || !ARCH_SECURITY )
    return;
  if (objectp(target))
  {
    efun::set_environment(ob,target);
    return;
  }
  path=(string)MASTER->_get_path(target,this_interactive());
  if (stringp(path) && file_size(path+".c")>=0 &&
      !catch(load_object(path);publish) )
  {
    obj=find_object(path);
    efun::set_environment(ob,obj);
    return;
  }
}

protected object _call_out_obj

(

mixed

call_out

)

Definiert in Zeile 1036 der Datei simul_efun.c.

                                                 {
    return pointerp(call_out) ? call_out[0] : 0;
}

static int _cost_sort	(	mixed *	a,
		mixed *	b
	)			[static]

Definiert in Zeile 1011 der Datei simul_efun.c.

{
  return a[WL_TOTAL_COST]<b[WL_TOTAL_COST];
}

protected void _destroy	(	string	key,
		object *	obs,
		string	text,
		int	uid
	)

Definiert in Zeile 1071 der Datei simul_efun.c.

                                                                         {
    if (!pointerp(obs)) return;
    // Array mit unique Eintraege erzeugen.
    obs = m_indices( mkmapping(obs) );
    // Fehlermeldung auf der Ebene ausgeben, im catch() mit publish, damit es
    // auf der Ebene direkt scrollt, der backtrace verfuegbar ist (im
    // gegensatz zur Loesung mittels Callout), die Ausfuehrung aber weiter
    // laeuft.
    catch( efun::raise_error(           
         sprintf( text,                   
           uid ? (string)"/secure/master"->creator_file(key) : key,                   
           sizeof(obs), object_name(obs[<1]) ) );publish);
    // Und weg mit dem Kram...
    filter( obs, #'efun::destruct/*'*/ );
}

void _dump_wizlist	(	string	file,
		int	sortby
	)

Definiert in Zeile 1455 der Datei simul_efun.c.

                                            {
  int i;
  mixed *a;

  if (!LORD_SECURITY)
    return;
  if (!master()->valid_write(file,geteuid(previous_object()),"write_file"))
  {
    write("NO WRITE PERMISSION\n");
    return;
  }
  a = wizlist_info();
  a = sort_array(a, lambda( ({'a,'b}),
                        ({#'<,
                          ({#'[,'a,sortby}),
                          ({#'[,'b,sortby})
                         })));
  rm(file);
  for (i=sizeof(a)-1;i>=0;i--)
    write_file(file,sprintf("%-11s: eval=%-8d cmds=%-6d HBs=%-5d array=%-5d mapping=%-7d\n",
      a[i][WL_NAME],a[i][WL_TOTAL_COST],a[i][WL_COMMANDS],a[i][WL_HEART_BEATS],
      a[i][WL_ARRAY_TOTAL],a[i][WL_CALL_OUT]));
}

void _notify_fail

(

string

str

)

Definiert in Zeile 1591 der Datei simul_efun.c.

Benutzt notify_fail().

{
  //query_notify_fail() benutzen, um das Objekt
  //des letzten notify_fail() zu ermitteln
  object o;
  if ((o=query_notify_fail(1)) && o!=previous_object())
    return;
  //noch kein notify_fail() fuer dieses Kommando gesetzt, auf gehts.
  set_this_object(previous_object());
  efun::notify_fail(str);
  return;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

private nomask string _process_string	(	string	str,
		object	po
	)

Definiert in Zeile 782 der Datei simul_efun.c.

Benutzt process_string().

                                                            {
              set_this_object(po);
              return(efun::process_string(str));
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

protected void _same_object	(	object	ob,
		mapping	m
	)

Definiert in Zeile 1040 der Datei simul_efun.c.

                                                    {
  // ist nicht so bloed, wie es aussieht, s. nachfolgede Verwendung von m
  if ( m[ob] )
    m[ob] += ({ ob });
  else
    m[ob] = ({ ob }); 
}

protected void _same_path	(	object	key,
		object *	obs,
		mapping	m
	)

Definiert in Zeile 1051 der Datei simul_efun.c.

                                                                {
  string path;
  if (!objectp(key) || !pointerp(obs)) return;

  path = load_name(key);

  if ( m[path] )
    m[path] += obs;
  else
    m[path] = obs;
}

protected void _same_uid	(	string	key,
		object *	obs,
		mapping	m,
		closure	cf
	)

Definiert in Zeile 1089 der Datei simul_efun.c.

                                                                           {
  string uid;

  if ( !pointerp(obs) || !sizeof(obs) )
    return;

  uid = funcall( cf, key );

  if ( m[uid] )
    m[uid] += obs; // obs ist nen Array
  else
    m[uid] = obs;
}

private object _shadow	(	object	ob,
		int	flag
	)

Definiert in Zeile 1605 der Datei simul_efun.c.

Benutzt shadow().

{
  set_this_object(previous_object(1));
  return efun::shadow(ob, flag);
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

static int _shout_filter	(	object	ob,
		string	pat
	)			[static]

Definiert in Zeile 1317 der Datei simul_efun.c.

{
    string *ignore;

    if ( !environment(ob) )
       return 0;

    // shout may be ignored
    if ( member(ob->QueryProp(P_IGNORE)||({}),"shout")!=-1)
           return 0;

    return sizeof( regexp( ({ object_name( environment(ob) ) }), pat ) );
}

protected int _too_many	(	mixed	key,
		mapping	m,
		int	i
	)

Definiert in Zeile 1064 der Datei simul_efun.c.

                                                       {
    return sizeof(m[key]) >= i;
}

private void _unshadow

(

)

Definiert in Zeile 1619 der Datei simul_efun.c.

                         {
  set_this_object(previous_object(1));
  efun::unshadow();
}

int absolute_hb_count

(

)

Definiert in Zeile 1426 der Datei simul_efun.c.

                        {
  return efun::debug_info(DINFO_DATA,DID_STATUS,DID_ST_HBEAT_CALLS_TOTAL);
}

private varargs string block_string	(	string	s,
		int	width,
		int	flags
	)

Definiert in Zeile 619 der Datei simul_efun.c.

Benutzt BS_LEAVE_MY_LFS und BS_NO_PARINDENT.

                                                                    {
  if (!(flags & BS_NO_PARINDENT)) {
    if (flags & BS_LEAVE_MY_LFS)
      s = " "+regreplace(s,"\n","\n ",1);
    else s=" "+s;
 }

  s = sprintf( "%-*=s", width, s);

  string *tmp=explode(s, "\n");
  return implode( map( tmp[0..<2], #'stretch/*'*/, width ), "\n" ) 
    + "\n" + tmp[<1];
}

public varargs string break_string	(	string	s,
		int	w,
		mixed	indent,
		int	flags
	)

Definiert in Zeile 633 der Datei simul_efun.c.

Benutzt block_string(), BS_BLOCK, BS_INDENT_ONCE, BS_LEAVE_MY_LFS, BS_NO_PARINDENT, BS_PREPEND_INDENT und BS_SINGLE_SPACE.

{
    if ( !s || s == "" ) return "";

    if ( !w ) w=78;

    if( intp(indent) )
       indent = indent ? " "*indent : "";

    int indentlen=stringp(indent) ? strlen(indent) : 0;

    if (indentlen>w) {
      set_this_object(previous_object());
      raise_error(sprintf("break_string: indent longer %d than width %d\n",
                  indentlen,w));
      // w=((indentlen/w)+1)*w;
    }

    if (!(flags & BS_LEAVE_MY_LFS)) 
      s=regreplace( s, "\n", " ", 1 );

    if ( flags & BS_SINGLE_SPACE )
       s = regreplace( s, "(^|\n| )  *", "\\1", 1 );
 
    string prefix="";
    if (indentlen && flags & BS_PREPEND_INDENT) {
      if (indentlen+strlen(s) > w || 
         (flags & BS_LEAVE_MY_LFS) && strstr(s,"\n")>-1) {
       prefix=indent+"\n";
       indent=(flags & BS_NO_PARINDENT) ? "" : " ";
       indentlen=strlen(indent);
      }
    }

    if ( flags & BS_BLOCK ) {
      /*
           s = implode( map( explode( s, "\n" ),
                               #'block_string, w, indentlen, flags),
                      "" );
      */
      s = block_string( s , w - indentlen, flags );
    }
    else {
      s = sprintf("%-1.*=s",w-indentlen,s);
    }
    if ( s[<1] != '\n' ) s += "\n";

    if ( !indentlen ) return prefix + s;
    
    string indent2 = ( flags & BS_INDENT_ONCE ) ? (" "*indentlen) :indent;
      
    return prefix + indent + 
      regreplace( s[0..<2], "\n", "\n"+indent2, 1 ) + "\n";
      /*
       string *buf;

       buf = explode( s, "\n" );
       return prefix + indent + implode( buf[0..<2], "\n"+indent2 ) + buf[<1] + "\n";
      */
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

int broken_count_bits

(

string

s

)

Definiert in Zeile 2112 der Datei simul_efun.c.

Benutzt i.

                                  {
    int i, res;
    if( !stringp(s) || !(i=strlen(s)) ) return 0;
    for( ; i-->0; ) {
        // We are counting 6 bits at a time using a precompiled table.
        res += count_table[(s[i]-' ')&63]-'0';
    }
    return res;
}

nomask varargs void call_out

(

varargs mixed *

args

)

Definiert in Zeile 1159 der Datei simul_efun.c.

Benutzt _destroy(), _same_object(), _too_many(), call_out(), call_out_info(), debug_info(), DID_ST_CALLOUTS, DID_STATUS, DINFO_DATA, m_delete(), master, pathmap und ROOTID.

{
    mixed tmp, *call_outs;

    // Bei >600 Callouts alle Objekte killen, die mehr als 30 Callouts laufen
    // haben.
    if ( efun::debug_info(DINFO_DATA,DID_STATUS,DID_ST_CALLOUTS) > 600 
        && geteuid(previous_object()) != ROOTID ) {
       // Objekte aller Callouts ermitteln
       call_outs = map( efun::call_out_info(), #'_call_out_obj );
       mapping objectmap = ([]);
       filter( call_outs, #'_same_object, &objectmap );
       // Master nicht grillen...
       efun::m_delete( objectmap, master(1) );
       // alle Objekte raussuchen, die zuviele haben...
       mapping res = filter_indices( objectmap, #'_too_many, objectmap, 29 );
       // und ueber alle Keys gehen, an _destroy() werden Key und Array mit
       // Objekten uebergeben (in diesem Fall sind Keys und Array mit
       // Objekten jeweils das gleiche Objekt).
       if ( sizeof(res) )       
           walk_mapping(res, #'_destroy, "CALL_OUT overflow by single "             
              "object [%O]. Destructed %d objects. [%s]\n", 0 );

       // Bei (auch nach dem ersten Aufraeumen noch) >800 Callouts alle
       // Objekte killen, die mehr als 50 Callouts laufen haben - und
       // diesmal zaehlen Clones nicht eigenstaendig! D.h. es werden alle
       // Clones einer BP gekillt, die Callouts laufen haben, falls alle
       // diese Objekte _zusammen_ mehr als 50 Callouts haben!
       if ( efun::debug_info(DINFO_DATA,DID_STATUS,DID_ST_CALLOUTS) > 800 ) {
           // zerstoerte Objekte von der letzten Aktion sind in objectmap nicht
           // mehr drin, da sie dort als Keys verwendet wurden.
           mapping pathmap=([]);
           // alle Objekt einer BP in res sortieren, BP-Name als Key, Arrays
           // von Objekten als Werte.
           walk_mapping( objectmap, #'_same_path, &pathmap);
           // alle BPs (und ihre Objekte) raussuchen, die zuviele haben...
           res = filter_indices( pathmap, #'_too_many/*'*/, pathmap, 50 );
           // und ueber alle Keys gehen, an _destroy() werden die Clones
           // uebergeben, die Callouts haben.
           if ( sizeof(res) )
              walk_mapping( res, #'_destroy/*'*/, "CALL_OUT overflow by file "
                           "'%s'. Destructed %d objects. [%s]\n", 0 );

           // Wenn beide Aufraeumarbeiten nichts gebracht haben und immer
           // noch >1000 Callouts laufen, werden diesmal alle Callouts
           // einer UID zusammengezaehlt.
           // Alle Objekte einer UID, die es in Summe aller ihrer Objekt mit
           // Callouts auf mehr als 100 Callouts bringt, werden geroestet.
           if (efun::debug_info(DINFO_DATA,DID_STATUS,DID_ST_CALLOUTS)>1000){
              // das nach BP-Namen vorgefilterte Mapping jetzt nach UIDs
              // zusammensortieren. Zerstoerte Clones filter _same_uid()
              // raus.
              mapping uidmap=([]);
              walk_mapping( pathmap, #'_same_uid, &uidmap,
                           symbol_function( "creator_file",
                                          "/secure/master" ) );
              // In res nun UIDs als Keys und Arrays von Objekten als Werte.
              // Die rausfiltern, die mehr als 100 Objekte (non-unique, d.h.
              // 100 Callouts!) haben.
              res = filter_indices( uidmap, #'_too_many, uidmap, 100 );
              // und erneut ueber die Keys laufen und jeweils die Arrays mit
              // den Objekten zur Zerstoerung an _destroy()...
              if ( sizeof(res) )
                  walk_mapping( res, #'_destroy, "CALL_OUT overflow by "
                              "UID '%s'. Destructed %d objects. [%s]\n",
                              1 );
           }
       }
    }

    // Falls das aufrufende Objekt zerstoert wurde beim Aufraeumen
    if ( !previous_object() )
       return;

    set_this_object( previous_object() );
    apply( #'efun::call_out, args );
    return;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

mixed call_out_info

(

)

Definiert in Zeile 1240 der Datei simul_efun.c.

Benutzt ARCH_LVL, BACKBONEID, call_out_info(), creator_file(), master und query_wiz_level().

                      {
  
  object po = previous_object();
  mixed coi = efun::call_out_info();

  // ungefilterten Output nur fuer bestimmte Objekte, Objekte in /std oder
  // /obj haben die BackboneID.
  if (query_wiz_level(getuid(po)) >= ARCH_LVL
       || (string)master()->creator_file(load_name(po)) == BACKBONEID ) {
      return coi;
  }
  else {
      return filter(coi, function mixed (mixed arr) {
              if (pointerp(arr) && arr[0]==po)
                 return 1;
              else return 0; });
  }
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

void cindent

(

string

name

)

Definiert in Zeile 1405 der Datei simul_efun.c.

{
  set_this_object(previous_object());
  raise_error("Sorry, no CINDENT available.\n");
}

nomask int copy_file	(	string	source,
		string	dest
	)

Definiert in Zeile 1885 der Datei simul_efun.c.

Benutzt master und MAXLEN.

{

  int ptr;
  string bytes;

  set_this_object(previous_object());
  if (!strlen(source)||!strlen(dest)||source==dest||(file_size(source)==-1)||
      (!call_other(master(),"valid_read",source,
                   getuid(this_interactive()||
                 previous_object()),"read_file",previous_object()))||
      (!call_other(master(),"valid_read",source,
                   getuid(this_interactive()||
                 previous_object()),"write_file",previous_object())))
    return 1;
  switch (file_size(dest))
  {
  case -1:
    break;
  case -2:
    if (dest[<1]!='/') dest+="/";
    dest+=efun::explode(source,"/")[<1];
    if (file_size(dest)==-2) return 1;
    if (file_size(dest)!=-1) break;
  default:
    if (!rm(dest)) return 1;
    break;
  }
  do
  {
    bytes = read_bytes(source, ptr, MAXLEN); ptr += MAXLEN;
    if (!bytes) bytes="";
    write_file(dest, bytes);
  }
  while(strlen(bytes) == MAXLEN);
  return 0;
}

int count_bits

(

string

s

)

Definiert in Zeile 2123 der Datei simul_efun.c.

Benutzt broken_count_bits().

                           {
    return(broken_count_bits(s));
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

varargs string country	(	mixed	ip,
		string	num
	)

Definiert in Zeile 206 der Datei simul_efun.c.

Benutzt country().

                                             {
  mixed ret;

  if(ret = (string)"/p/daemon/iplookup"->country(num || ip)) {
    return ret;
  } else return "???";
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

public varargs string CountUp	(	string *	s,
		string	sep,
		string	lastsep
	)

Definiert in Zeile 1848 der Datei simul_efun.c.

{
    string ret;

    if ( !pointerp(s) )
       return "";
    
    if (!sep) sep = ", ";
    if (!lastsep) lastsep = " und ";

    switch (sizeof(s))  {
       case 0: ret=""; break;
       case 1: ret=s[0]; break;
       default:
              ret = implode(s[0..<2], sep);
              ret += lastsep + s[<1];
    }
    return ret;
}

void dangling_lfun_closure

(

)

Definiert in Zeile 741 der Datei simul_efun.c.

                             {
  raise_error("dangling lfun closure\n");
}

nomask mixed debug_info	(	int	flag,
		varargs int *	args
	)

Definiert in Zeile 1717 der Datei simul_efun.c.

                                                      {

//  if ( (flag == 2) &&
//       (!this_player() || !IS_ARCH(this_player()) || process_call()) ) return;

  set_this_object(previous_object());
  return(apply(#'efun::debug_info,flag, args));
}

public varargs object deep_present	(	mixed	what,
		object	ob
	)

Definiert in Zeile 1479 der Datei simul_efun.c.

Benutzt cnt.

                                                          {

  if(!objectp(ob))
    ob=previous_object();
  // Wenn ein Objekt gesucht wird: Alle Envs dieses Objekts ermitteln und
  // schauen, ob in diesen ob vorkommt. Dann ist what in ob enthalten.
  if(objectp(what)) {
    object *envs=all_environment(what);
    // wenn ob kein Environment hat, ist es offensichtlich nicht in what
    // enthalten.
    if (!pointerp(envs)) return 0;
    if (member(envs, ob) != -1) return what;
  }
  // sonst wirds teurer, ueber alle Objekte im (deep) Inv laufen und per id()
  // testen. Dabei muss aber die gewuenschte Nr. ("flasche 3") abgeschnitten
  // werden und selber gezaehlt werden, welche das entsprechende Objekt ist.
  else if (stringp(what)) {
      int cnt;
      string newwhat;
      if(sscanf(what,"%s %d",newwhat,cnt)!=2)
       cnt=1;
      else
       what=newwhat;
      foreach(object invob: deep_inventory(ob)) {
       if (invob->id(what) && !--cnt)
           return invob;
      }
  }
  else {
    set_this_object(previous_object());
    raise_error(sprintf("Wrong argument 1 to deep_present(). "
         "Expected \"object\" or \"string\", got %.50O.\n",
         what));
  }
  return 0;
}

nomask void destruct

(

mixed

ob

)

Definiert in Zeile 100 der Datei simul_efun.c.

Benutzt ARCH_SECURITY, destruct(), dtime(), IS_ARCH, log_file und process_call().

{
  string fname;
  object tmp;

  if ( !objectp(ob) && !objectp(ob = find_object(ob)) )
      return;

  //bestimmte Objekte duerfen nicht so ohne weiteres zerstoert werden.
  fname = object_name(ob);
  if( member(({ "/secure/master", "/secure/simul_efun", "/obj/shut",
       "/secure/shut", "/room/void", "/room/netztot", "/secure/errord",
       "/secure/spare_simul_efun", "/secure/explorationmaster", }), 
       fname ) >= 0 ) {
    if( previous_object()!=ob && !ARCH_SECURITY || process_call() ) {
      write("You have no permission to destruct the specified object!\n");
      return;
    }
  }
  
  // Nicht-EMs sollen keine EMs zerstoeren koennen, woraufhin auch evtl.
  // EM-Tools rumliegen koennten.
  if ( query_once_interactive(ob) && IS_ARCH(ob) && previous_object()!=ob &&
      (process_call() || !ARCH_SECURITY) )
    return;

  // Das Zerstoeren von Spielern wird ggf. geloggt.
  if ( query_once_interactive(ob) && previous_object() != ob
       && previous_object()
       && object_name(previous_object())[0..7] != "/secure/" )
      log_file( "PLAYERDEST",
              sprintf( "%s: %O VERNICHTET von PO %O, TI %O, TP %O\n",
                      dtime(time()), ob, previous_object(),
                      this_interactive(), this_player() ) );

  set_this_object(previous_object());
  efun::destruct(ob);
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

string dtime

(

int

wann

)

Definiert in Zeile 488 der Datei simul_efun.c.

Benutzt dtime_cache, MONATE, TAGE, TM_HOUR, TM_MDAY, TM_MIN, TM_MON, TM_SEC, TM_WDAY und TM_YEAR.

                       {
  
  if (wann == dtime_cache[0])
    return(dtime_cache[1]);

  int *lt = localtime(wann);
  return sprintf("%s, %2d. %s %d, %02d:%02d:%02d",
      TAGE[lt[TM_WDAY]], lt[TM_MDAY], MONATE[lt[TM_MON]], 
      lt[TM_YEAR],lt[TM_HOUR], lt[TM_MIN], lt[TM_SEC]);
}

mapping dump_ip_mapping

(

)

Definiert in Zeile 1516 der Datei simul_efun.c.

{
  return 0;
}

mixed* exclude_alist	(	int	i,
		mixed *	alist
	)

Definiert in Zeile 471 der Datei simul_efun.c.

{
  int j;
  if (!pointerp(alist) || !sizeof(alist) || i<0)
    return alist;
  if (!pointerp(alist[0]))
    return alist[0..i-1]+alist[i+1..];
  alist=alist[0..]; /* Create PHYSICAL copy of alist */
  for (j=sizeof(alist)-1;j>=0;j--)
    alist[j]=alist[j][0..i-1]+alist[j][i+1..];
  return alist; /* order_alist is NOT necessary - see /doc/LPC/alist */
}

mixed* exclude_array	(	mixed *	arr,
		int	from,
		int	to
	)

Definiert in Zeile 2130 der Datei simul_efun.c.

{
  if (to<from)
    to = from;
  return arr[0..from-1]+arr[to+1..];
}

int exist_days

(

)

Definiert in Zeile 717 der Datei simul_efun.c.

Benutzt first_boot_time().

{
  return (((time()-first_boot_time())/8640)+5)/10;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

varargs string extract	(	string	str,
		int	from,
		int	to
	)

Definiert in Zeile 2036 der Datei simul_efun.c.

Benutzt abs.

                                                     {

  if(!stringp(str)) {
    set_this_object(previous_object());
    raise_error(sprintf("Bad argument 1 to extract(): %O",str));
  }
  if (intp(from) && intp(to)) {
    if (from>=0 && to>=0)
      return(str[from .. to]);
    else if (from>=0 && to<0)
      return(str[from .. <abs(to)]);
    else if (from<0 && to>=0)
      return(str[<abs(from) .. to]);
    else
      return(str[<abs(from) .. <abs(to)]);
  }
  else if (intp(from)) {
    if (from>=0)
      return(str[from .. ]);
    else
      return(str[<abs(from) .. ]);
  }
  else {
    return(str);
  }
}

int file_time

(

string

path

)

Definiert in Zeile 419 der Datei simul_efun.c.

Benutzt GETDIR_DATES.

                           {
  mixed *v;

  set_this_object(previous_object());
  if (sizeof(v=get_dir(path,GETDIR_DATES))) return v[0];
  return(0); //sonst
}

static object find_snooped

(

object

who

)

[static]

Definiert in Zeile 216 der Datei simul_efun.c.

Benutzt i und query_snoop().

Wird benutzt von snoop().

{
  object *u;
  int i;

  for (i=sizeof(u=users())-1;i>=0;i--)
    if (who==efun::query_snoop(u[i]))
      return u[i];
  return 0;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

int first_boot_time

(

)

Definiert in Zeile 712 der Datei simul_efun.c.

{
  return 701517600;
}

nomask varargs void garbage_collection

(

string

str

)

Definiert in Zeile 1527 der Datei simul_efun.c.

Benutzt ARCH_SECURITY, garbage_collection() und IS_ARCH.

{
  if(previous_object()==0 || !IS_ARCH(geteuid(previous_object())) 
      || !ARCH_SECURITY)
  {
    write("Call GC now and the mud will crash in 5-6 hours. DONT DO IT!\n");
    return;
  }
  else if (stringp(str))
  {
    return efun::garbage_collection(str);
  }
  else 
    return efun::garbage_collection();
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

varargs void input_to	(	mixed	fun,
		int	onoff,
		varargs mixed *	args
	)

Definiert in Zeile 1786 der Datei simul_efun.c.

Benutzt EOR und IAC.

{
    mixed *arr;
    mapping TN;
    int i;

    if ( !this_player() || !previous_object() )
       return;

    arr = ({ fun, onoff }) + args;

    for ( i = sizeof(arr) - 1; i > 1; i-- )
       if ( pointerp(arr[i]) )
           arr[i] = quote(arr[i]);

    TN = (mapping) this_player()->query_telnet_neg();

    if ( mappingp(TN) && mappingp(TN["received"]) &&
        (TN["received"][TELOPT_EOR,1] == DO) )
       funcall( bind_lambda( #'efun::binary_message/*'*/, this_player() ),
               ({ IAC, EOR }) );

    funcall( bind_lambda( unbound_lambda( ({}),
                                     ({ #'efun::input_to/*'*/ }) + arr ),
                       previous_object() ) );
}

public string iso2ascii

(

string

str

)

Definiert in Zeile 1830 der Datei simul_efun.c.

{
    if ( !stringp(str) || !strlen(str) )
       return "";

    str = regreplace( str, "ä", "ae", 1 );
    str = regreplace( str, "ö", "oe", 1 );
    str = regreplace( str, "ü", "ue", 1 );
    str = regreplace( str, "Ä", "Ae", 1 );
    str = regreplace( str, "Ö", "Oe", 1 );
    str = regreplace( str, "Ü", "Ue", 1 );
    str = regreplace( str, "ß", "ss", 1 );
    str = regreplace( str, "[^ -~]", "?", 1 );

    return str;
}

int last_reboot_time

(

)

Definiert in Zeile 707 der Datei simul_efun.c.

{
  return __BOOT_TIME__;
}

static private string Lcut

(

string

str

)

[static]

Definiert in Zeile 227 der Datei simul_efun.c.

Wird benutzt von snoop().

                                       {
  return str[5..11]+str[18..];
}

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

private int living_or_interactive

(

object

o

)

Definiert in Zeile 1312 der Datei simul_efun.c.

{
  return (living(o) || query_once_interactive(o));
}

varargs int log_file	(	string	file,
		string	txt,
		int	size_to_break
	)

Definiert in Zeile 428 der Datei simul_efun.c.

Benutzt MAX_LOG_SIZE und PO.

                                                                 {
  mixed *st;

  file="/log/"+file;
  file=implode((efun::explode(file,"/")-({".."})),"/");
//  tell_object(find_player("jof"),sprintf("LOG FILE: %O -> %O\n",previous_object(),file));
  if (!funcall(bind_lambda(#'efun::call_other,PO),"secure/master",//')
              "valid_write",file,geteuid(PO),"log_file",PO))
      return 0;
  if ( size_to_break >= 0 & (
      sizeof(st = get_dir(file,2) ) && st[0] >= (size_to_break|MAX_LOG_SIZE)))
      catch(rename(file, file + ".old");publish); /* No panic if failure */
  return(write_file(file,txt));
}

int lowerchar

(

int

char

)

Definiert in Zeile 555 der Datei simul_efun.c.

                        {
  if (char<'A' || char>'Z') return char;
  return char+32;
}

string lowerstring

(

string

s

)

Definiert in Zeile 576 der Datei simul_efun.c.

{
  if (!stringp(s)) return 0;
  return lower_case(s);
}

mapping m_delete	(	mapping	m,
		mixed	key
	)

Definiert in Zeile 696 der Datei simul_efun.c.

Benutzt m_delete().

                                       {
  return efun::m_delete(copy(m), key);
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

int m_width

(

mapping

m

)

Definiert in Zeile 701 der Datei simul_efun.c.

                       {
  return(widthof(m));
}

int member_array	(	mixed	item,
		mixed	arraystring
	)

Definiert in Zeile 2094 der Datei simul_efun.c.

                                                {

  if (pointerp(arraystring)) {
    return(efun::member(arraystring,item));
  }
  else if (stringp(arraystring)) {
    return(efun::member(arraystring,to_int(item)));
  }
  else {
    set_this_object(previous_object());
    raise_error(sprintf("Bad argument 1 to member_array(): %O",arraystring));
  }
}

static void move_inv

(

object

ob

)

[static]

Definiert in Zeile 767 der Datei simul_efun.c.

{
  if (living(ob)) ob->move(previous_object(),1);
}

varargs void move_object	(	mixed	what,
		mixed	where
	)

Definiert in Zeile 1268 der Datei simul_efun.c.

Benutzt destruct(), log_file, NETDEAD_ROOM und set_object_heart_beat().

{
  object po,tmp;

  po=previous_object();
  if (!where)
  {
    where=what;
    what=po;
  }
  if (((stringp(where) && where==NETDEAD_ROOM ) ||
       (objectp(where) && where==find_object(NETDEAD_ROOM))) &&
       objectp(what) && object_name(what)!="/obj/sperrer")
  {
    if (!query_once_interactive(what))
    {
      what->remove();
      if (what) destruct(what);
      return;
    }
    if (living(what) || interactive(what))
    {
      log_file("NDEAD2",sprintf("TRYED TO MOVE TO NETDEAD: %O\n",what));
      return;
    }
    set_object_heart_beat(what,0);
  }
  tmp=what;
  while (tmp=environment(tmp))
      // Ja. Man ruft die _set_xxx()-Funktionen eigentlich nicht direkt auf.
      // Aber das Lichtsystem ist schon *so* rechenintensiv und gerade der
      // P_LAST_CONTENT_CHANGE-Cache wird *so* oft benoetigt, dass es mir
      // da um jedes bisschen Rechenzeit geht.
      // Der Zweck heiligt ja bekanntlich die Mittel. ;-)
      //
      // Tiamak
    tmp->_set_last_content_change();
  (void)funcall(bind_lambda(#'efun::move_object,po),what,where);
  if (tmp=what)
    while (tmp=environment(tmp))
      tmp->_set_last_content_change();
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

varargs void notify_fail	(	mixed	nf,
		int	prio
	)

Definiert in Zeile 1543 der Datei simul_efun.c.

Benutzt NF_NL_LIVING, NF_NL_NONE, NF_NL_OWN, NF_NL_ROOM, NF_NL_THING, notify_fail() und PL.

                                             {
  object po,oldo;
  int oldprio;
  
  if (!PL || !objectp(po=previous_object())) return;
  if (!stringp(nf) && !closurep(nf)) {
      set_this_object(po);
      raise_error(sprintf(
         "Only strings and closures allowed for notify_fail! "
         "Argument was: %.50O...\n",nf));
  }

  // falls ein Objekt bereits nen notify_fail() setzte, Prioritaeten abschaetzen
  // und vergleichen.
  if (objectp(oldo=query_notify_fail(1)) && po!=oldo) {
    if (!prio) {       
      //Prioritaet dieses notify_fail() 'abschaetzen'
      if (po==PL) // Spieler-interne (soul-cmds)
        prio=NF_NL_OWN;
      else if (living(po))
        prio=NF_NL_LIVING;
      else if ((int)po->IsRoom())
        prio=NF_NL_ROOM;
      else
        prio=NF_NL_THING;
    }
    //Prioritaet des alten Setzers abschaetzen
    if (oldo==PL)
      oldprio=NF_NL_OWN;
    else if (living(oldo))
      oldprio=NF_NL_LIVING;
    else if ((int)oldo->IsRoom())
      oldprio=NF_NL_ROOM;
    else
      oldprio=NF_NL_THING;
  }
  else // wenn es noch kein Notify_fail gibt:
    oldprio=NF_NL_NONE;

  //vergleichen und ggf. setzen
  if (prio >= oldprio) { 
    set_this_object(po);
    efun::notify_fail(nf);
  }

  return;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

string NotifyDestruct

(

object

caller

)

Definiert in Zeile 141 der Datei simul_efun.c.

Benutzt ARCH_SECURITY und process_call().

                                     {
    if( (caller!=this_object() && !ARCH_SECURITY) || process_call() ) {
      return "Du darfst das simul_efun Objekt nicht zerstoeren!\n";
    }
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

string* old_explode	(	string	str,
		string	del
	)

Definiert in Zeile 392 der Datei simul_efun.c.

                                            {
  int s, t;
  string *strs;

  if (!stringp(str)) {
      set_this_object(previous_object());
      raise_error(sprintf(
         "Invalid argument 1 to old_explode()! Expected <string>, got: "
         "%.30O\n",str));
  }
  if (!stringp(del)) {
      set_this_object(previous_object());
      raise_error(sprintf(
         "Invalid argument 2 to old_explode()! Expected <string>, got: "
         "%.30O\n",del));
  }
  if(del == "")
    return ({str});
  strs=efun::explode(str, del);
  t=sizeof(strs)-1;
  while(s<=t && strs[s++] == "");s--;
  while(t>=0 && strs[t--] == "");t++;
  if(s<=t)
    return strs[s..t];
  return ({});
}

public nomask int process_call

(

)

Definiert in Zeile 775 der Datei simul_efun.c.

Benutzt process_flag.

{
  if (process_flag>0)
    return process_flag;
  else return(0);
}

nomask string process_string

(

mixed

str

)

Definiert in Zeile 787 der Datei simul_efun.c.

Benutzt err, flag und process_flag.

{
  string tmp, err;
  int flag; 

  if ( closurep(str) ) {
      set_this_object( previous_object() );
      return funcall(str);
  }
  else if (str==0)
      return((string)str);
  else if ( !stringp(str) ) {
      return to_string(str);
  }

  if ( !(flag = process_flag > time() - 60))                     
      process_flag=time();

  err = catch(tmp = funcall(#'_process_string,str,previous_object()); publish);

  if ( !flag )
    process_flag=0;

  if (err) {
    // Verarbeitung abbrechen
    set_this_object(previous_object());
    raise_error(err);
  }
  return tmp;
}

mixed query_closure_object

(

closure

c

)

Definiert in Zeile 1260 der Datei simul_efun.c.

Benutzt CLOSURE_IS_UNBOUND_LAMBDA.

                                      {
  return
    CLOSURE_IS_UNBOUND_LAMBDA(get_type_info(c, 1)) ?
      0 :
  (to_object(c) || -1);
}

mixed* query_comm_stat

(

)

Definiert in Zeile 1414 der Datei simul_efun.c.

{
  return ({0,0});
}

string query_ip_name

(

mixed

ob

)

Definiert in Zeile 199 der Datei simul_efun.c.

Benutzt query_ip_number().

{
  if ( !ob || objectp(ob) )
      ob=query_ip_number(ob);
  return (string)"/p/daemon/iplookup"->host(ob);
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

string query_ip_number

(

object

ob

)

Definiert in Zeile 188 der Datei simul_efun.c.

Benutzt query_ip_number().

{
  ob= ob || this_player();
  if (!objectp(ob) || !interactive(ob)) return 0;
  if(ob->query_realip() && (string)ob->query_realip()!="")
  {
    return (string)ob->query_realip();
  }
  return efun::query_ip_number(ob);
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

nomask varargs int query_ip_port

(

object

pl

)

Definiert in Zeile 1711 der Datei simul_efun.c.

{
  return 23;
}

nomask varargs int query_next_reset

(

object

ob

)

Definiert in Zeile 1868 der Datei simul_efun.c.

Benutzt OIB_NEXT_RESET und OINFO_BASIC.

                                               {

    // Typpruefung: etwas anderes als Objekte oder 0 sollen Fehler sein.
    if (ob && !objectp(ob))
      raise_error(sprintf("Bad arg 1 to query_next_reset(): got %.20O, "
           "expected object.\n",ob));

    // Defaultobjekt PO, wenn 0 uebergeben.
    if ( !objectp(ob) )
      ob = previous_object();

    return object_info(ob,OINFO_BASIC)[OIB_NEXT_RESET];
}

nomask object query_snoop

(

object

who

)

Definiert in Zeile 381 der Datei simul_efun.c.

Benutzt IS_ARCH, query_snoop() und query_wiz_grp().

                                      {
  object snooper;

  snooper=efun::query_snoop(who);
  if (!snooper) return 0;
  if (query_wiz_grp(snooper)>query_wiz_grp(getuid(previous_object())) &&
      IS_ARCH(snooper)) return 0;
  return snooper;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

int query_wiz_grp

(

mixed

wiz

)

Definiert in Zeile 920 der Datei simul_efun.c.

{
  int lev;

  lev=query_wiz_level(wiz);
  if (lev<SEER_LVL) return 0;
  if (lev>=GOD_LVL) return lev;
  if (lev>=ARCH_LVL) return ARCH_GRP;
  if (lev>=ELDER_LVL) return ELDER_GRP;
  if (lev>=LORD_LVL) return LORD_GRP;
  if (lev>=SPECIAL_LVL) return SPECIAL_GRP;
  if (lev>=DOMAINMEMBER_LVL) return DOMAINMEMBER_GRP;
  if (lev>=WIZARD_LVL) return WIZARD_GRP;
  if (lev>=LEARNER_LVL) return LEARNER_GRP;
  return SEER_GRP;
}

int query_wiz_level

(

mixed

player

)

Definiert in Zeile 444 der Datei simul_efun.c.

Benutzt DOMAINDIR, get_wiz_level(), GUILDID, PROJECTDIR und WIZLVLS.

                                  {
  return (int)"/secure/master"->query_wiz_level(player);
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

mixed* remove_alist	(	mixed	key,
		mixed *	alist
	)

Definiert in Zeile 449 der Datei simul_efun.c.

Benutzt i und p.

{
  int i,j;

  if (!pointerp(alist) || !sizeof(alist))
    return alist;
  if (!pointerp(alist[0]))
  {
    if ((i=assoc(key,alist))<0)
      return alist;
    return alist[0..i-1]+alist[i+1..];
  }
  i = assoc(key,alist[0]);
  if ((i=assoc(key,alist[0]))<0)
    return alist;
  alist=alist[0..];
  for (j=sizeof(alist)-1;j>=0;j--)
    alist[j]=alist[j][0..i-1]+alist[j][i+1..];
  return alist;
}

public nomask void remove_interactive

(

object

ob

)

Definiert in Zeile 147 der Datei simul_efun.c.

Benutzt dtime(), log_file und remove_interactive().

{
    if ( objectp(ob) && previous_object()
        && object_name(previous_object())[0..7] != "/secure/"
        && ((previous_object() != ob
             && (ob != this_player() || ob != this_interactive()))
            || (previous_object() == ob
               && (this_player() && this_player() != ob
                   || this_interactive() && this_interactive() != ob)) ) )

       log_file( "PLAYERDEST",
                sprintf( "%s: %O ausgeloggt von PO %O, TI %O, TP %O\n",
                        dtime(time()), ob, previous_object(),
                        this_interactive(), this_player() ) );

    efun::remove_interactive(ob);
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

varargs string replace_personal	(	string	str,
		mixed *	obs,
		int	caps
	)

__EFUN_DEFINED__(copy_file)

Definiert in Zeile 1926 der Datei simul_efun.c.

Benutzt FEMALE, i, MALE, NEUTER, PLURAL, SINGULAR, WEM, WEN, WER und WESSEN.

                                                                  {
  int i;
  string *parts;

  parts = regexplode(str, "@WE[A-SU]*[0-9]");
  i = sizeof(parts);

  if (i>1) {
    int j, t;
    closure *name_cls;

    t = j = sizeof(obs);

    name_cls  =  allocate(j);
    while (j--)
      if (objectp(obs[j]))
        name_cls[j] = symbol_function("name", obs[j]);
      else if (stringp(obs[j]))
        name_cls[j] = obs[j];

    while ((i-= 2)>0) {
      int ob_nr;
      // zu ersetzendes Token in Fall und Objektindex aufspalten
      ob_nr = parts[i][<1]-'1';
      if (ob_nr<0 || ob_nr>=t) {
        set_this_object(previous_object());
        raise_error(sprintf("replace_personal: using wrong object index %d\n",
                    ob_nr));
        return implode(parts, "");
      }

      // casus kann man schon hier entscheiden
      int casus;
      string part = parts[i];
      switch (part[3]) {
        case 'R': casus = WER;    break;
        case 'S': casus = WESSEN; break;
        case 'M': casus = WEM;    break;
        case 'N': casus = WEN;    break;
        default:  continue; // passt schon jetzt nicht in das Hauptmuster
      }

      // und jetzt die einzelnen Keywords ohne fuehrendes "@WE", beendende Id
      mixed tmp;
      switch (part[3..<2]) {
        case "R": case "SSEN": case "M": case "N":               // Name
          parts[i] = funcall(name_cls[ob_nr], casus, 1);  break;
        case "RU": case "SSENU": case "MU": case "NU":           // unbestimmt
          parts[i] = funcall(name_cls[ob_nr], casus);     break;
        case "RQP": case "SSENQP": case "MQP": case "NQP":       // Pronoun
          if (objectp(tmp = obs[ob_nr]))
            parts[i] = (string)tmp->QueryPronoun(casus);
          break;
        case "RQA": case "SSENQA": case "MQA": case "NQA":       // Article
          if (objectp(tmp = obs[ob_nr]))
            tmp = (string)tmp->QueryArticle(casus, 1, 1);
          if (stringp(tmp) && !(tmp[<1]^' ')) 
            tmp = tmp[0..<2];                // Extra-Space wieder loeschen
          break;
        case "RQPPMS": case "SSENQPPMS": case "MQPPMS": case "NQPPMS":
          if (objectp(tmp = obs[ob_nr]))
            parts[i] = (string)tmp->QueryPossPronoun(MALE, casus, SINGULAR);
          break;
        case "RQPPFS": case "SSENQPPFS": case "MQPPFS": case "NQPPFS":
          if (objectp(tmp = obs[ob_nr]))
            parts[i] = (string)tmp->QueryPossPronoun(FEMALE, casus, SINGULAR);
          break;
        case "RQPPNS": case "SSENQPPNS": case "MQPPNS": case "NQPPNS":
          if (objectp(tmp = obs[ob_nr]))
            parts[i] = (string)tmp->QueryPossPronoun(NEUTER, casus, SINGULAR);
          break;
        case "RQPPMP": case "SSENQPPMP": case "MQPPMP": case "NQPPMP":
          if (objectp(tmp = obs[ob_nr]))
            parts[i] = (string)tmp->QueryPossPronoun(MALE, casus, PLURAL);
          break;
        case "RQPPFP": case "SSENQPPFP": case "MQPPFP": case "NQPPFP":
          if (objectp(tmp = obs[ob_nr]))
            parts[i] = (string)tmp->QueryPossPronoun(FEMALE, casus, PLURAL);
          break;
        case "RQPPNP": case "SSENQPPNP": case "MQPPNP": case "NQPPNP":
          if (objectp(tmp = obs[ob_nr]))
            parts[i] = (string)tmp->QueryPossPronoun(NEUTER, casus, PLURAL);
          break;
        default:
          continue;
      }
      
      // wenn tmp ein String war, weisen wir es hier pauschal zu
      if (stringp(tmp))
        parts[i] = tmp;

      // auf Wunsch wird nach Satzenden gross geschrieben
      if (caps)
        switch (parts[i-1][<2..]) {
          case ". ":  case "! ":  case "? ":
          case ".":   case "!":   case "?":
          case ".\n": case "!\n": case "?\n":
          case "\" ": case "\"\n":
            parts[i] = capitalize(parts[i]);
            break;
        }
    }
    return implode(parts, "");
  }
  return str;
}

protected void reset

(

void

)

Definiert in Zeile 1371 der Datei simul_efun.c.

Benutzt CleanLivingData() und set_next_reset().

                       {
  set_next_reset(7200);
  CleanLivingData();
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

int restore_object

(

string

name

)

Definiert in Zeile 870 der Datei simul_efun.c.

{
  int result;
  mixed index;
  mixed save;
  mapping properties;
  int i;
  closure cl;

  // get actual property settings (by create())
  properties = (mapping)previous_object()->QueryProperties();

//  DEBUG(sprintf("RESTORE %O\n",name));
  // restore object
  result=funcall(bind_lambda(#'efun::restore_object, previous_object()), name);
  //'))
  //_get_save_data liefert tatsaechlich mixed zurueck, wenn das auch immer ein 
  //mapping sein sollte.
  save = (mixed)previous_object()->_get_save_data();
  if(mappingp(save))
  {
    index = m_indices(save);
    for(i = sizeof(index)-1; i>=0; i--)
    {
      properties[index[i]] = save[index[i]];
      properties[index[i], F_MODE] = save[index[i], F_MODE]
                            &~(SETCACHED|QUERYCACHED);
    }
  }
  else properties = ([]);

  // restore properties
  (void)funcall(
              bind_lambda(
                         unbound_lambda(({'arg}), //'})
                                      ({#'call_other,({#'this_object}),
                                      "SetProperties",'arg})),//')
                         previous_object()),properties);
  previous_object()->_set_save_data(0);
  return result;
}

mixed save_object

(

mixed

name

)

Definiert in Zeile 820 der Datei simul_efun.c.

{
  mapping properties;
  mapping save;
  mixed index, res;
  int i;

  // nur Strings und 0 zulassen
  if ((!stringp(name) || !strlen(name)) && 
      (!intp(name) || name!=0)) {
      set_this_object(previous_object());
      raise_error(sprintf(
         "Only non-empty strings and 0 may be used as filename in "
         "sefun::save_object()! Argument was %O\n",name));
  }
  save = m_allocate(0, 2);
  properties = (mapping)previous_object()->QueryProperties();

  if(mappingp(properties))
  {
    // delete all entries in mapping properties without SAVE flag!
    index = m_indices(properties);
    for(i = sizeof(index)-1; i>=0;i--)
    {
      if(properties[index[i], F_MODE] & SAVE)
      {
       save[index[i]] = properties[index[i]];
       save[index[i], F_MODE] =
       properties[index[i], F_MODE] &
                    (~(SETMNOTFOUND|QUERYMNOTFOUND|QUERYCACHED|SETCACHED));
      }
    }
  }
  else save = ([]);

  // save object!
  previous_object()->_set_save_data(save);
  // format: wie definiert in config.h
  if (stringp(name))
    res = funcall(bind_lambda(#'efun::save_object, previous_object()), name,
       __LIB__SAVE_FORMAT_VERSION__);
  else
    res = funcall(bind_lambda(#'efun::save_object, previous_object()),
       __LIB__SAVE_FORMAT_VERSION__);
  previous_object()->_set_save_data(0);

  return res;
}

nomask string secure_euid

(

)

Definiert in Zeile 1768 der Datei simul_efun.c.

{
  string euid;

  if (!this_interactive()) // Es muss einen interactive geben
     return 0;
  euid=geteuid(this_interactive());
  // ueber alle Caller iterieren. Wenn eines davon eine andere euid hat als
  // der Interactive und diese nicht die ROOTID ist, wird 0 zurueckgeben.
  // Ebenso, falls ein Selbstzerstoerer irgendwo in der Kette ist.
  foreach(object caller: caller_stack()) {
      if (!objectp(caller) ||
       (geteuid(caller)!=euid && geteuid(caller)!=ROOTID))
         return 0;
  }
  return euid; // 'sichere' euid zurueckgeben
}

nomask int secure_level

(

)

Definiert in Zeile 1750 der Datei simul_efun.c.

{
  int *level;
  //kette der Caller durchlaufen, den niedrigsten Level in der Kette
  //zurueckgeben. Zerstoerte Objekte (Selbstzerstoerer) fuehren zur Rueckgabe
  //von 0.
  //caller_stack(1) fuegt dem Rueckgabearray this_interactive() hinzu bzw. 0,
  //wenn es keinen Interactive gibt. Die 0 fuehrt dann wie bei zerstoerten
  //Objekten zur Rueckgabe von 0, was gewuenscht ist, da es hier einen
  //INteractive geben muss.
  level=map(caller_stack(1),function int (object caller)
      {if (objectp(caller))
       return(query_wiz_level(geteuid(caller)));
       return(0); // kein Objekt da, 0.
      } );
  return(min(level)); //den kleinsten Wert im Array zurueckgeben (ggf. 0)
}

nomask int set_light

(

int

i

)

Definiert in Zeile 1813 der Datei simul_efun.c.

Benutzt inv(), light(), ob(), P_INT_LIGHT und P_LIGHT.

         : das Lichtlevel innerhalb des Objekts
{
    object ob, *inv;
    int lall, light, dark, tmp;

    if (!(ob=previous_object())) return 0; // ohne das gehts nicht.

    // aus kompatibilitaetsgruenden kann man auch den Lichtlevel noch setzen
    if (i!=0) ob->SetProp(P_LIGHT, ob->QueryProp(P_LIGHT)+i);

    // Lichtberechnung findet eigentlich in der Mudlib statt.
    return (int)ob->QueryProp(P_INT_LIGHT);
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

void set_next_reset

(

int

time

)

Definiert in Zeile 1421 der Datei simul_efun.c.

{    }

int set_object_heart_beat	(	object	ob,
		int	flag
	)

Definiert in Zeile 913 der Datei simul_efun.c.

{
  if (objectp(ob))
    return funcall(bind_lambda(#'efun::set_heart_beat,ob),flag);
}

nomask void set_this_player

(

object

pl

)

Definiert in Zeile 753 der Datei simul_efun.c.

                                       {
  raise_error("Available only for root\n");
}

public object shadow	(	object	ob,
		int	flag
	)

Definiert in Zeile 1611 der Datei simul_efun.c.

{
  object res = funcall(#'_shadow,ob, flag);
  if (flag)
    "/secure/shadowmaster"->RegisterShadow(previous_object());
  return res;
}

varargs void shout	(	string	s,
		mixed	where
	)

Definiert in Zeile 1331 der Datei simul_efun.c.

                                           {
    object *u;
    string *pfade;

    if ( !sizeof( u = users() - ({ this_player(), 0 }) ) )
       return;

    if ( !where )
       pfade = ({ "/" });
    else if ( intp(where) )
       pfade =
           ({ implode( efun::explode( object_name( environment(this_player()) ),
                                   "/" )[0..2], "/" ) + "/" });
    else if ( stringp(where) )
       pfade = ({ where });
    else
       pfade = where;

    filter( filter( u, "_shout_filter", ME, implode( pfade, "|" ) ),
                #'tell_object/*'*/, to_string(s) );
}

nomask int shutdown

(

string

reason

)

__EFUN_DEFINED__(strftime)

Definiert in Zeile 514 der Datei simul_efun.c.

Benutzt ARCH_SECURITY, ctime(), dtime(), log_file, name, output, ROOTID und shutdown().

{
  string name;
  string obname;
  string output;

  if (!reason)
    return 0;
  if ( !ARCH_SECURITY && getuid(previous_object())!=ROOTID &&
          object_name(previous_object())!="/obj/shut" )
  {
    write("You have no permission to shut down the gamedriver!\n");
    return 0;
  }
  if ((this_interactive())&&(name=getuid(this_interactive())))
  {
    name=capitalize(name);
    filter(users(),#'tell_object,//'
               capitalize(name)+" faehrt das Spiel herunter!\n");
  }
  else
    name="ANONYMOUS";
  if (previous_object()) obname=capitalize(getuid(previous_object()));
  output=name;
  if (obname && name!=obname) output=output+" ("+obname+")";
  if (previous_object()&&object_name(previous_object())=="/obj/shut"){
    output+=" faehrt das Spiel via Armageddon herunter.\n";
    output=dtime(time())+": "+output;
    log_file("GAME_LOG",output+"\n",-1);
    efun::shutdown();
    return 1;
  }
  output=ctime(time())+": "+output+" faehrt das Spiel herunter.\n";
  output+="    Grund: "+reason;
  log_file("GAME_LOG",output+"\n",-1);
  efun::shutdown();
  return 1;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

varargs mixed* slice_array	(	mixed	array,
		int	from,
		int	to
	)

Definiert in Zeile 2065 der Datei simul_efun.c.

Benutzt abs.

                                                          {

  if(!pointerp(array)) {
    set_this_object(previous_object());
    raise_error(sprintf("Bad argument 1 to slice_array(): %O",array));
  }
  if (intp(from) && intp(to)) {
    if (from>=0 && to>=0)
      return(array[from .. to]);
    else if (from>=0 && to<0)
      return(array[from .. <abs(to)]);
    else if (from<0 && to>=0)
      return(array[<abs(from) .. to]);
    else
      return(array[<abs(from) .. <abs(to)]);
  }
  else if (intp(from)) {
    if (from>=0)
      return(array[from .. ]);
    else
      return(array[<abs(from) .. ]);
  }
  else {
    return(array);
  }
}

varargs mixed* slice_array	(	mixed *	array,
		int	from,
		int	to
	)

nomask varargs int snoop	(	object	me,
		object	you
	)

Definiert in Zeile 231 der Datei simul_efun.c.

Benutzt ASNOOPLOGFILE, CHMASTER, dtime(), find_snooped(), IS_ARCH, IS_DEPUTY, Lcut(), log_file, NAME, P_SNOOPFLAGS, PO, query_snoop(), query_wiz_grp(), SF_LOCKED, snoop(), SNOOPLOGFILE, WEM, WEN und WER.

{
    int ret;
    object snooper0, snooper, snooper2, snooper3;

    if( !objectp(me) || me == you || !PO )
       return 0;

    snooper0 = find_snooped(me);

     if(you){
        if ( PO != me && query_wiz_grp(me) >= query_wiz_grp(geteuid(PO)) )
            return 0;

        if ( query_wiz_grp(me) <= query_wiz_grp(you) &&
             !(you->QueryAllowSnoop(me)) )
            if ( !IS_DEPUTY(me) || IS_ARCH(you) )
               return 0;

        if ( (snooper = efun::query_snoop(you)) &&
             query_wiz_grp(snooper) >= query_wiz_grp(me) ){
            if ( (int)snooper->QueryProp(P_SNOOPFLAGS) & SF_LOCKED )
               return 0;

            tell_object( snooper, sprintf( "%s snooped jetzt %s.\n",
                                       me->name(WER), you->name(WER) ) );

            snooper2 = me;

            while ( snooper3 = query_snoop(snooper2) ){
               tell_object( snooper,
                           sprintf( "%s wird seinerseits von %s gesnooped.\n"
                                   ,snooper2->name(WER),
                                   snooper3->name(WEM) ) );
               snooper2 = snooper3;
            }

            efun::snoop( snooper, snooper2 );

            if ( efun::query_snoop(snooper2) != snooper )
               tell_object( snooper, sprintf( "Du kannst %s nicht snoopen.\n",
                                          snooper2->name(WEN) ) );
            else{
               tell_object( snooper, sprintf( "Du snoopst jetzt %s.\n",
                                          snooper2->name(WEN) ) );
               if ( !IS_DEPUTY(snooper) ){
                   log_file( SNOOPLOGFILE, sprintf("%s: %O %O %O\n",
                                               dtime(time()),
                                               snooper,
                                               snooper2,
                                               environment(snooper2) ),
                            100000 );
                   if (snooper0)
                      CHMASTER->send( "Snoop", snooper,
                                    sprintf( "%s *OFF* %s (%O)",
                                            capitalize(getuid(snooper)),
                                            capitalize(getuid(snooper0)),
                                            environment(snooper0) ) );

                   CHMASTER->send( "Snoop", snooper,
                                 sprintf("%s -> %s (%O)",
                                        capitalize(getuid(snooper)),
                                        capitalize(getuid(snooper2)),
                                        environment(snooper2)));
               }
               else{
                   log_file( ASNOOPLOGFILE, sprintf( "%s: %O %O %O\n",
                                                 dtime(time()),
                                                 snooper,
                                                 snooper2,
                                                 environment(snooper2) )
                            ,100000 );
               }
            }
        }
        else
            if (snooper)
               if ( !me->QueryProp(P_SNOOPFLAGS) & SF_LOCKED ){
                   printf( "%s wird bereits von %s gesnooped. Benutze das "
                          "\"f\"-Flag, wenn du dennoch snoopen willst.\n",
                          you->name(WER), snooper->name(WEM) );
                   return 0;
               }

        ret = efun::snoop( me, you );

        if ( !IS_DEPUTY(me) && efun::query_snoop(you) == me){
            log_file( SNOOPLOGFILE, sprintf( "%s: %O %O %O\n",
                                         Lcut(dtime(time())),
                                         me, you, environment(you) ),
                     100000 );

            if (snooper0)
               CHMASTER->send( "Snoop", me,
                             sprintf( "%s *OFF* %s (%O).",
                                     capitalize(getuid(me)),
                                     capitalize(getuid(snooper0)),
                                     environment(snooper0) ) );

            CHMASTER->send( "Snoop", me, sprintf( "%s -> %s (%O).",
                                             capitalize(getuid(me)),
                                             capitalize(getuid(you)),
                                             environment(you) ) );
        }
        else{
            if ( efun::query_snoop(you) == me ){
               log_file( ASNOOPLOGFILE, sprintf( "%s: %O %O %O\n",
                                             Lcut(dtime(time())),
                                             me, you, environment(you) ),
                        100000 );
            }
        }

        if ( ret && query_wiz_grp(me) <= query_wiz_grp(you) &&
             !IS_DEPUTY(me) )
            tell_object( you, "*** " + NAME(me) + " snoopt Dich!\n" );

        return ret;
     }
     else {
        if ( (me == PO ||
              query_wiz_grp(geteuid(PO)) > query_wiz_grp(me) ||
              (query_wiz_grp(geteuid(PO)) == query_wiz_grp(me) &&
              query_snoop(PO) == me)) && snooper0 ){
            if ( !IS_DEPUTY(me) ){
               log_file( SNOOPLOGFILE, sprintf( "%s: %O %O %O *OFF*\n",
                                            Lcut(dtime(time())), me,
                                            snooper0,
                                            environment(snooper0) ),
                        100000 );

                CHMASTER->send( "Snoop", me,
                              sprintf( "%s *OFF* %s (%O).",
                                      capitalize(getuid(me)),
                                      capitalize(getuid(snooper0)),
                                      environment(snooper0) ) );
            }
            else{
               log_file( ASNOOPLOGFILE, sprintf( "%s: %O %O %O *OFF*\n",
                                             Lcut(dtime(time())), me,
                                             snooper0,
                                             environment(snooper0) ),
                        100000 );
            }

            return efun::snoop(me);
        }
     }
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

void start_simul_efun

(

)

Definiert in Zeile 1355 der Datei simul_efun.c.

Benutzt BACKBONE_WIZINFO_SIZE, info, InitLivingData() und set_next_reset().

                        {
  mixed *info;

  // Falls noch nicht getan, extra_wizinfo initialisieren
  if ( !pointerp(info = get_extra_wizinfo(0)) )
    set_extra_wizinfo(0, info = allocate(BACKBONE_WIZINFO_SIZE));

  InitLivingData(info);

  set_next_reset(10); // direkt mal aufraeumen
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

void StopCallOut

(

int

arg

)

Definiert in Zeile 1022 der Datei simul_efun.c.

{
  if (arg && extern_call() && object_name(previous_object())!="/secure/master")
    return 0;
  if (arg && !CallOutStopped)
    write_file("/log/call_out_stop",sprintf("__CALLED %s (%d)\n__(CUT HERE)__\n",
                                       ctime(time()),arg));
  CallOutStopped=arg;
}

private string stretch	(	string	s,
		int	width
	)

Definiert in Zeile 591 der Datei simul_efun.c.

Benutzt len und TRIM_LEFT.

                                            {
  int len=strlen(s);
  if (len==width) return s;

  // reine Leerzeilen, direkt zurueckgeben
  string trimmed=trim(s,TRIM_LEFT," ");
  if (trimmed=="") return s; 
  int start_spaces = len - strlen(trimmed);

  string* words = explode(trimmed, " ");
  // der letzte kriegt keine Spaces
  int word_count=sizeof(words) - 1;
  // wenn Zeile nur aus einem Wort, wird das Wort zurueckgegeben
  if (!word_count)
    return " "*start_spaces + words[0];

  int space_count = width - len;

  int space_per_word=(word_count+space_count) / word_count;
  // Anz.Woerter mit Zusatz-Space
  int rest=(word_count+space_count) % word_count; 
  // Rest-Spaces Verteilen
  foreach (int pos : rest) words[pos]+=" ";
  return (" "*start_spaces) + implode( words, " "*space_per_word );
}

varargs string strftime	(	mixed	fmt,
		int	clock,
		int	localized
	)

Definiert in Zeile 503 der Datei simul_efun.c.

Benutzt dtime().

                                                             {
  if (intp(clock) && clock >= 0)
    return dtime(clock);
  else if (intp(fmt) && fmt >= 0)
    return dtime(fmt);
  
  return dtime(time());
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

nomask void swap

(

object

obj

)

Definiert in Zeile 1521 der Datei simul_efun.c.

{
  write("Your are not allowed to swap objects by hand!\n");
  return;
}

string time2string	(	string	format,
		int	time
	)

Definiert in Zeile 1630 der Datei simul_efun.c.

Benutzt i.

{
  int days,hours,mins,secs,i,ch,max,abbr,dummy;
  string *parts, fmt;

  secs = time;
  mins = (time/60);
  hours = (time/3600);
  days = (time/86400);
  abbr = 0;

  parts = regexplode( format, "\(%\(-|\)[0-9]*[dhmsxDHMSX]\)|\(%%\)" );

  max = 0;
  for( i=1; i<sizeof(parts); i+=2 )
  {
    ch = parts[i][<1];
    switch( parts[i][<1] )
    {
    case 'x': case 'X':
       abbr = sscanf( parts[i], "%%%d", dummy ) && dummy==0;
       // NO break !
    case 'd': case 'D':
       max |= 7;
       break;
    case 'h': case 'H':
       max |= 3;
       break;
    case 'm': case 'M':
       max |= 1;
       break;
    }
  }
  if( max & 4 ) hours %= 24;
  if( max & 2 ) mins %= 60;
  if( max ) secs %= 60;

  for( i=1; i<sizeof(parts); i+=2 )
  {
    fmt = parts[i][0..<2];
    ch = parts[i][<1];
    if( ch=='x' )
    {
      if( days>0 ) ch='d';
      else if( hours>0 ) ch='h'; else ch = (mins>0) ? 'm' : 's';
    } else if( ch=='X' )
    {
      if( days>0 ) ch='D';
      else if( hours>0 ) ch='H'; else ch = (mins>0) ? 'M' : 'S';
    }
    switch( ch )
    {
      case 'd': parts[i] = sprintf( fmt+"d", days ); break;
      case 'h': parts[i] = sprintf( fmt+"d", hours ); break;
      case 'm': parts[i] = sprintf( fmt+"d", mins ); break;
      case 's': parts[i] = sprintf( fmt+"d", secs ); break;
      case 'D':
       if(abbr) parts[i] = "d"; else
       parts[i] = sprintf( fmt+"s", (days==1) ? "Tag" : "Tage" );
       break;
      case 'H':
       if(abbr) parts[i] = "h"; else
       parts[i] = sprintf( fmt+"s", (hours==1) ? "Stunde" : "Stunden" );
       break;
      case 'M':
       if(abbr) parts[i] = "m"; else
       parts[i] = sprintf( fmt+"s", (mins==1) ? "Minute" : "Minuten" );
       break;
      case 'S':
       if(abbr) parts[i] = "s"; else
       parts[i] = sprintf( fmt+"s", (secs==1) ? "Sekunde" : "Sekunden" );
       break;
      case '%':
       parts[i] = "%";
       break;
      }
    }
    return implode( parts, "" );
}

public void unshadow

(

)

Definiert in Zeile 1624 der Datei simul_efun.c.

                       {
  funcall(#'_unshadow);
  "/secure/shadowmaster"->UnregisterShadow(previous_object());
}

public void update_actions

(

)

Definiert in Zeile 758 der Datei simul_efun.c.

{
  int objs;

  if (environment(previous_object()))
    previous_object()->move(environment(previous_object()),1);
  filter(all_inventory(previous_object()),"move_inv",previous_object());
}

string upperstring

(

string

s

)

Definiert in Zeile 562 der Datei simul_efun.c.

Benutzt i.

{
#if __EFUN_DEFINED__(upper_case)
  return(upper_case(s));
#else
  int i;
  if (!stringp(s)) return 0;
  for (i=strlen(s)-1;i>=0;i--) s[i]=((s[i]<'a'||s[i]>'z')?s[i]:s[i]-32);
  return s;
#endif
}

string uptime

(

)

Definiert in Zeile 723 der Datei simul_efun.c.

{
  int t;
  int tmp;
  string s;

  t=time()-__BOOT_TIME__;
  s="";
  if (t>=86400)
    s+=sprintf("%d Tag%s, ",tmp=t/86400,(tmp==1?"":"e"));
  if (t>=3600)
    s+=sprintf("%d Stunde%s, ",tmp=(t=t%86400)/3600,(tmp==1?"":"n"));
  if (t>60)
    s+=sprintf("%d Minute%s und ",tmp=(t=t%3600)/60,(tmp==1?"":"n"));
  return s+sprintf("%d Sekunde%s",t=t%60,(t==1?"":"n"));
}

string version

(

)

Definiert in Zeile 584 der Datei simul_efun.c.

{
  return __VERSION__;
}

varargs void wizlist	(	string	name,
		int	sortkey
	)

Definiert in Zeile 945 der Datei simul_efun.c.

                                                {
  int i, pos, total_cmd;
  int *cmds;
  mixed *a;
  mixed *b;

  if (!name) {
    if (this_player())
                     name = getuid(this_player());
    if (!name)
      return;
  }

  // Schluessel darf nur in einem gueltigen Bereich sein
  if (sortkey<=WL_NAME||sortkey>WL_EXTRA) sortkey=WL_COMMANDS;

  a = transpose_array(wizlist_info());

  // Sortieren der Liste nach dem sortierschluessel
  if (sortkey==0)
  {
    a = order_alist(a);
  } else {
    cmds = a[sortkey];
    a[sortkey] = a[0];
    a[0] = cmds;
    a = order_alist(a);
    cmds = a[0];
    a[0] = a[sortkey];
    a[sortkey] = cmds;
  }

  // cmds wurde missbraucht - wieder zuruecksetzen
  cmds = a[WL_COMMANDS];

  if ((pos = member(a[WL_NAME], name)) < 0 && name != "ALL")
    return;
  b = allocate(sizeof(cmds));
  for (i = sizeof(cmds); i;) {
    b[<i] = i;
    total_cmd += cmds[--i];
  }
  a = transpose_array(a + ({b}) );
  if (name != "ALL") {
    if (pos + 18 < sizeof(cmds)) {
      a = a[pos-2..pos+2]+a[<15..];
    } else if (pos < sizeof(cmds) - 13) {
      a = a[pos-2..];
    } else {
      a = a[<15..];
    }
  }
  write("\nWizard top score list\n\n");
  if (total_cmd == 0)
    total_cmd = 1;
  for (i = sizeof(a); i; ) {
    b = a[<i--];
    printf("%-20s %6d %2d%% %6s [%6dk,%6d] %6d %d\n",
          b[WL_NAME], b[WL_COMMANDS], b[WL_COMMANDS] * 100 / total_cmd,
     "("+(string)b[<1]+")", b[WL_TOTAL_COST] / 1000,
          b[WL_HEART_BEATS], b[WL_EXTRA], b[WL_ARRAY_TOTAL]
          );
  }
  printf("\nTotal         %7d         (%d)\n\n", total_cmd, sizeof(cmds));
}

mixed* wizlist_info

(

)

Definiert in Zeile 937 der Datei simul_efun.c.

{
  if (ARCH_SECURITY || !extern_call())
            return efun::wizlist_info();
  return 0;
}

---

Variablen-Dokumentation

int CallOutCount [static]

Definiert in Zeile 1018 der Datei simul_efun.c.

int CallOutStopped = 0 [static]

Definiert in Zeile 1017 der Datei simul_efun.c.

string count_table

Initialisierung:

    "0112122312232334122323342334344512232334233434452334344534454556"

Definiert in Zeile 2110 der Datei simul_efun.c.

int CountMessages = 0 [static]

Definiert in Zeile 1019 der Datei simul_efun.c.

mixed dtime_cache = ({-1,""})

Definiert in Zeile 97 der Datei simul_efun.c.

string LastMessage [static]

Definiert in Zeile 1020 der Datei simul_efun.c.

int process_flag

Definiert in Zeile 773 der Datei simul_efun.c.