stdfuns.c-Dateireferenz

gehe zum Quellcode dieser Datei

Funktionen
static string	file_print ()
static void	abort ()
mixed	SetProp (string label, mixed arg)
static void	SetLabel (string label, mixed argument)
static mixed	QueryLabel (string label)
string	QueryFile ()
string *	EditText ()
static void	ClearText ()
static void	SetText (string *text)
object	Creature ()
static string	help ()
void	remove ()
static void	abortx ()
static void	normal_save_string ()
static void	filewrite (string str)
static void	correct_save (string str)
static void	getrightname (string str)
static string	arrayconvert (string *text)
static string	arrayprint (string *text)
static string	comment (string *text)
static void	gotogetstring ()
static void	show_file_string ()
static void	getstring (string str)
static void	gotogettext ()
static void	gettext (string str)
Variablen
static mixed	comm
static object	creature
static string *	edittext
static string	Filename
static string	oldfile
static int	written

---

Dokumentation der Funktionen

static void abort

(

)

[static]

Definiert in Zeile 234 der Datei stdfuns.c.

Benutzt comm, Filename und input_to().

Wird benutzt von getstring() und gettext().

{
  write("Do you want to save the file " + Filename + " befor? (y/n) ");
  comm = insert_alist("nextfun", "abortx", comm);
  input_to("filewrite");
}

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

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

static void abortx

(

)

[static]

Definiert in Zeile 163 der Datei stdfuns.c.

Benutzt creature, destruct(), P_NAME und QueryProp().

Wird benutzt von filewrite() und getrightname().

{
  write("Aborted...\n");
  if (creature) creature->remove();
  if (creature) destruct(creature);
  return say(this_player()->QueryProp(P_NAME)
                     + " stops to write a file and aborts.\n");
}

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

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

static string arrayconvert

(

string *

text

)

[static]

Definiert in Zeile 256 der Datei stdfuns.c.

Benutzt i und old_explode().

{
  int    i;
  string outstring;
  outstring = "";
  for (i = 0; i < sizeof(text) - 1; i++)
    outstring += "\"" +
      implode(old_explode(implode(old_explode("*" + text[i] + "*", "\\"), "\\\\"),
                                      "\""), "\\\"")[1..<2] + "\\n\"\ +\n";
  if (sizeof(text))
    outstring += "\"" +
      implode(old_explode(implode(old_explode("*" + text[sizeof(text) - 1] + "*","\\"),
                                                      "\\\\"),"\""), "\\\"")[1..<2] + "\\n\"\n";
  return outstring;
}

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

static string arrayprint

(

string *

text

)

[static]

Definiert in Zeile 274 der Datei stdfuns.c.

Benutzt i.

{
  int    i;
  string outstring;
  outstring = "";
  for (i = 0; i < sizeof(text); i++)
    outstring += text[i] + "\n";
  return outstring;
}

static void ClearText

(

)

[static]

Definiert in Zeile 46 der Datei stdfuns.c.

Benutzt edittext.

{ edittext = ({}); }

static string comment

(

string *

text

)

[static]

Definiert in Zeile 289 der Datei stdfuns.c.

Benutzt i.

{
  int    i;
  string outstring;
  if (!sizeof(text) || (sizeof(text) == 1 && text[0] == ""))
    return "";
  outstring = "/* " + text[0] + "\n";
  for (i = 1; i < sizeof(text); i++)
    outstring += " * " + text[i] + "\n";
  return outstring;
}

static void correct_save

(

string

str

)

[static]

Definiert in Zeile 217 der Datei stdfuns.c.

Benutzt comm, Filename, filewrite() und input_to().

{
  if (str == "y") {
    if (file_size(Filename + "~") != -1 && !rm(Filename + "~"))
      return write("Can't write file " + Filename
                                   + "! Please control your access rights!\n");
    rename(Filename, Filename + "~");
    return filewrite("y");
  }
  if (str == "n")
    return (void) call_other(this_object(), assoc("nextfun", comm));
  write("O.k. to overwrite " + Filename + "?? (y/n) ");
  input_to("correct_save");
}

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

object Creature

(

)

Definiert in Zeile 54 der Datei stdfuns.c.

Benutzt creature.

Wird benutzt von insert_exit2(), store_long(), store_short() und store_short2().

{ return creature; }

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

string* EditText

(

)

Definiert in Zeile 42 der Datei stdfuns.c.

Benutzt edittext.

Wird benutzt von show_comment(), show_detail(), show_door(), show_long(), store_comment(), store_desc(), store_dlong() und store_long().

{ return edittext; }

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

static string file_print

(

)

[static]

Wird benutzt von filewrite(), gettext(), normal_save_string() und show_file_string().

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

static void filewrite

(

string

str

)

[static]

Definiert in Zeile 184 der Datei stdfuns.c.

Benutzt abortx(), comm, file_print(), Filename, input_to() und written.

Wird benutzt von correct_save().

{
  if (str == "n") {
    write("No save done.\n");
    return (void) call_other(this_object(), assoc("nextfun", comm));
  }
  if (str == "y") {
    write("Trying to write " + Filename + "...\n");
    if (!written && !(file_size(Filename) == -1)) {
      write("File " + Filename + " already exists!\n");
      write("O.k to overwrite " + Filename + "? (y/n) ");
      input_to("correct_save");
      return;
    }
    if (written) {
      if (file_size(Filename[0..<3] + ".old") != -1
                  && !rm(Filename[0..<3] + ".old"))
                return write("Can't write file " + Filename
                                     + "! Please control your access rights!\n");
      rename(Filename, Filename[0..<3] + ".old");
    }
    if (!write_file(Filename, file_print())) {
                    write("Can't write file " + Filename + "! Please control your access rights!\n");
                    return abortx();
                  }
    write("Done...\n");
                written = 1;
    return (void) call_other(this_object(), assoc("nextfun", comm));
  }
  write("Do you want to save this file?? (y/n) ");
  input_to("filewrite");
}

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

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

static void getrightname

(

string

str

)

[static]

Definiert in Zeile 243 der Datei stdfuns.c.

Benutzt abortx().

{
  if (str == "~q")
    return abortx();
  this_player()->command_me("make " + str);
  return;
}

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

static void getstring

(

string

str

)

[static]

Definiert in Zeile 325 der Datei stdfuns.c.

Benutzt abort(), comm, Filename, gotogetstring(), help(), P_NAME, QueryProp(), SetProp() und show_file_string().

{
  if (str[0..1] == "~!") {
    if (str[2..<1] == "") {
      comm = insert_alist("nextfun", "gotogetstring", comm);
      write("You interrupt to make " + Filename + "\nRestart with \"~m\".\n");
      say(this_player()->QueryProp(P_NAME) + " interupts to write a file.\n");
      SetProp("making", 1);
      return;
    }
    this_player()->command_me(str[2..<1]);
    return gotogetstring();
  }
  switch (str) {
  case "":
    return (void) call_other(this_object(), assoc("nostring", comm));
  case "~q":
    return abort();
  case "~h":
                write(help());
    return gotogetstring();
  case "~f":
                return show_file_string();
  case ".":
    return (void) call_other(this_object(), assoc("ready", comm));
  case "**":
    return (void) call_other(this_object(), assoc("ready", comm));
  case "~r":
    return (void) call_other(this_object(), assoc("redisplay", comm));
  case "~d":
                return (void) call_other(this_object(), assoc("delete", comm));
  case "~s":
    return (void) call_other(this_object(), assoc("save_file", comm));
    /* end switch */
  }
  return (void) call_other(this_object(), assoc("insert_string", comm), str);
}

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

static void gettext

(

string

str

)

[static]

Definiert in Zeile 374 der Datei stdfuns.c.

Benutzt abort(), arrayprint(), comm, edittext, file_print(), Filename, firstline, gotogettext(), help(), input_to(), lastline, old_explode(), P_NAME, QueryProp(), SetLabel() und SetProp().

{
  string thefile, rest;
  string *include, *restarr;
  int    bytes;
  int    firstline,lastline;
  if (str[0..1] == "~!") {
    if (str[2..<1] == "") {
      SetLabel("nextfun", "gotogettext");
      write("You interrupt to make " + Filename + "\nRestart with \"~m\".\n");
      say(this_player()->QueryProp(P_NAME) + " interupts to write a file.\n");
      SetProp("making", 1);
      return;
    }
    this_player()->command_me(str[2..<1]);
    write("]");
    input_to("gettext");
    return;
  }
  if (str[0..1] == "~i") {
    if (str[2..] == "") {
      write("Usage: ~i <file> [<line>][-][<line>].\n]");
      input_to("gettext");
      return;
    }
    str = str[2..];
    if(str[0] == ' ') str = str[1..];
    if(!sscanf(str,"%s %s",thefile,rest))
      thefile = str;
    thefile = (string)this_player()->get_path(thefile);
    if((bytes = file_size(thefile)) == -2) {
      write(thefile + " is a directory.\n]");
      input_to("gettext");
      return;
    }
    if(bytes == -1) {
      write("No such file: " + thefile + ".\n]");
      input_to("gettext");
      return;
    }
    include = old_explode(read_file(thefile),"\n");
    if(!rest) {
      edittext += include;
      write("Including " + thefile + "...\n]");
      input_to("gettext");
      return;
    }
    restarr = old_explode("*-" + rest + "-*","-")[1..<2];
    if(restarr[0] == "") restarr[0] = "0";
    if(sizeof(restarr) == 1) restarr += restarr;
    if(restarr[1] == "") restarr [1] = "" + (sizeof(include)-1);
    rest = implode(restarr," - ");
    if(!sscanf(rest,"%d - %d",firstline,lastline)) {
      write("Wrong second argument. Usage: ~i <file> [<line>][-][<line>].\n]");
      input_to("gettext");
      return;
    }
    if(firstline > sizeof(include)-1) {
      write(thefile + " hasn't that many lines.\n]");
      input_to("gettext");
      return;
    }
    if(lastline > sizeof(include)-1)
      lastline = sizeof(include) -1;
    if(lastline < firstline) lastline = firstline;
    edittext += include[firstline..lastline];
    write("Including " + thefile + " line");
    if(lastline == firstline) write(" " + lastline + ".\n]");
    else write("s " + firstline + " - " + lastline + ".\n]");
    input_to("gettext");
    return;
  }
  switch (str) {
    case "~q":
      return abort();
    case "~r":
      write(arrayprint(edittext) + "]");
      input_to("gettext");
      return;
    case "~d":
      if (!sizeof(edittext)) {
                write("No lines in the buffer.\n]");
                input_to("gettext");
                return;
      }
      edittext = edittext[0..<2];
      comm = insert_alist("nextwrite", arrayprint(edittext), comm);
      return gotogettext();
    case ".":
      return (void) call_other(this_object(), assoc("ready", comm));
    case "**":
      return (void) call_other(this_object(), assoc("ready", comm));
    case "~f":
      return (void) call_other(this_object(), assoc("show_file", comm));
    case "~s":
      comm = insert_alist("nextfun", "gotogettext", comm);
      comm = insert_alist("nextwrite", "Continue...\n", comm);
      write(file_print() + "Do you want to save this file? (y/n) ");
      input_to("filewrite");
      return;
    case "~h":
      write(help() + "~i <file> includes the file <file>\n" +
                     "          (optional: begin - end)\n]");
      input_to("gettext");
      return;
      /* end switch */
    }
  if (strlen(str) > assoc("lenmax", comm)) {
    write("This line ist too long. Please enter again!\n]");
    input_to("gettext");
    return;
  }
  if (!str)
    edittext += ({""});
  else
    edittext += ({str});
  write("]");
  input_to("gettext");
}

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

static void gotogetstring

(

)

[static]

Definiert in Zeile 303 der Datei stdfuns.c.

Benutzt comm und input_to().

Wird benutzt von getstring() und show_file_string().

{
  write(assoc("prompt", comm));
  input_to("getstring");
}

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

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

static void gotogettext

(

)

[static]

Definiert in Zeile 366 der Datei stdfuns.c.

Benutzt comm und input_to().

Wird benutzt von gettext().

{
  write(assoc("nextwrite", comm) + "]");
  input_to("gettext");
}

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

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

static string help

(

)

[static]

Definiert in Zeile 142 der Datei stdfuns.c.

Wird benutzt von getstring() und gettext().

{
  return
    ("The maker accepts the following commands:\n" +
     "~h ...... shows this text            ~q ...... aborts the execution\n" +
     "~d ...... delete the last line and   ~r ...... show the last text\n" +
     "          redisplay                  ~f ...... shows the file\n" +
     ". / ** .. end the action and return  ~s ...... saves the object in the current\n" +
     "          to the menu                          form\n" +
     "~!<cmd>.. escape and command <cmd>   ~! ...... interrupt, restart with \"~m\"\n");
}

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

static void normal_save_string

(

)

[static]

Definiert in Zeile 174 der Datei stdfuns.c.

Benutzt comm, file_print(), Filename und input_to().

{
  write(file_print()
                + "Do you want to save this file " + Filename + "? (y/n) ");
  comm = insert_alist("nextfun", "gotogetstring", comm);
  input_to("filewrite");
}

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

string QueryFile

(

)

Definiert in Zeile 38 der Datei stdfuns.c.

Benutzt Filename.

Wird benutzt von getmode() und getstatus().

{ return Filename; }

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

static mixed QueryLabel

(

string

label

)

[static]

Definiert in Zeile 34 der Datei stdfuns.c.

Benutzt comm.

{ return assoc(label, comm); }

void remove

(

)

Definiert in Zeile 154 der Datei stdfuns.c.

Benutzt creature und destruct().

{
  if (creature) creature->remove();
  if (creature) destruct(creature);
  return;
}

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

static void SetLabel	(	string	label,
		mixed	argument
	)			[static]

Definiert in Zeile 28 der Datei stdfuns.c.

Benutzt comm.

Wird benutzt von gettext() und show_file_string().

                                                   {
  comm = insert_alist(label, argument, comm);
}

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

mixed SetProp	(	string	label,
		mixed	arg
	)

Definiert in Zeile 144 der Datei properties.c.

Benutzt closure_call, F_MODE, F_SET_METHOD, F_VALUE, flag, NOSETMETHOD, prop, result() und Set().

{
  closure func;
  mixed result;
   
  // nur fuer heute
  if (!objectp(this_object()))
    return 0;

  // NOSETMETHOD: Darf nicht gesetzt werden
  if (prop[F_MODE][name] & NOSETMETHOD ) return -1;

  // Set-Method abfragen, so vorhanden
  if (func=prop[F_SET_METHOD][name])
  {
    int flag;

    // Wert als Set-Method? gleich zurueckgeben
    if (!closurep(func)) return func;

    // An dieser Stelle muss func eine Closure sein. Da Set() ungebundene
    // Lambdas bindet, kann es auch nur eine gebundene Closure sein und das
    // Objekt existiert auch noch (sonst waere func == 0).

    // closure_call setzen, falls noch nicht gesetzt
    if ((flag=closure_call<time()))
      closure_call = time()+59;

    // Dann mal die Closure aufrufen. Bei Fehler selbige loeschen
    if (catch(result=funcall(func, Value, name);publish))
    {
      prop[F_SET_METHOD]-=([name]);
    }
      
    // Wenn closure_call gesetzt wurde, wieder loeschen
    if (flag) closure_call = 0;

    // Und zurueckgeben
    return result; 
  }

  // _set_*-Methode vorhanden? falls ja, aufrufen.i
  // TODO: Closurecache einfuehren und Funktionaufruf nur noch machen, wenn es
  // die _set_* auch gibt?
  if (call_resolved(&result,this_object(),"_set_"+name,Value ))
        return result;

  // Letzte Moeglichkeit: Muss eine 'normale' Property sein
  return Set( name, Value, F_VALUE, extern_call() );
}

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

static void SetText

(

string *

text

)

[static]

Definiert in Zeile 50 der Datei stdfuns.c.

Benutzt edittext.

{ edittext = text; }

static void show_file_string

(

)

[static]

Definiert in Zeile 311 der Datei stdfuns.c.

Benutzt file_print(), gotogetstring() und SetLabel().

Wird benutzt von getstring().

{
  SetLabel("nextfun","gotogetstring");
  write(file_print());
/* smore(file_print(), 0, (int) environment()->QueryProp(P_PAGESIZE)); */
  return gotogetstring();
}

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

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

---

Variablen-Dokumentation

mixed comm [static]

Definiert in Zeile 6 der Datei stdfuns.c.

Wird benutzt von abort(), correct_save(), filewrite(), getstring(), gettext(), gotogetstring(), gotogettext(), normal_save_string(), QueryLabel(), SetLabel() und show_hist().

object creature [static]

Definiert in Zeile 7 der Datei stdfuns.c.

Wird benutzt von abortx(), Creature() und remove().

string* edittext [static]

Definiert in Zeile 9 der Datei stdfuns.c.

Wird benutzt von ClearText(), EditText(), gettext() und SetText().

string Filename [static]

Definiert in Zeile 10 der Datei stdfuns.c.

Wird benutzt von abort(), correct_save(), filewrite(), getstring(), gettext(), normal_save_string() und QueryFile().

string oldfile [static]

Definiert in Zeile 11 der Datei stdfuns.c.

int written [static]

Definiert in Zeile 13 der Datei stdfuns.c.

Wird benutzt von filewrite().