microcode.c-Dateireferenz

#include "tweak.h"
#include "types.h"

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

Dieser Graph zeigt, welche Datei direkt oder indirekt diese Datei enthält:

gehe zum Quellcode dieser Datei

Makrodefinitionen
#define	CODE   0
#define	QUOTE   1
Funktionen
static nomask public string	output (mixed res)
static void	create ()
static nomask closure	get_function (string str)
static nomask public int	pre_parse (mixed code)
nomask static varargs public mixed	prog_parse (mixed token, int func)
static nomask public mixed	eval (mixed code)
static nomask public void	add_input (string input)
static nomask public void	clear_input ()
nomask varargs string	get_line ()
static nomask private string	transform (string e)
Variablen
static private mapping	memory
static private string *	G_input
static private string *	history

---

Makro-Dokumentation

#define CODE   0

Definiert in Zeile 18 der Datei microcode.c.

#define QUOTE   1

Definiert in Zeile 19 der Datei microcode.c.

---

Dokumentation der Funktionen

static nomask public void add_input

(

string

input

)

[static]

Definiert in Zeile 79 der Datei microcode.c.

Wird benutzt von lisp().

{ 
  if(!stringp(input)) return;
  G_input += old_explode(input, "\n"); 
}

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

static nomask public void clear_input

(

)

[static]

Definiert in Zeile 86 der Datei microcode.c.

Wird benutzt von lisp().

{
  G_input = ({});
}

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

static void create

(

)

[static]

Definiert in Zeile 21 der Datei microcode.c.

Benutzt G_input und memory.

{
  memory = m_allocate(0, 2);
  G_input = ({});
}

static nomask public mixed eval

(

mixed

code

)

[static]

Definiert in Zeile 71 der Datei microcode.c.

{
  mapping sym;
  sym = filter_indices(memory, #'symbolp);
  return apply(lambda(m_indices(sym), code), m_values(sym));
}

static nomask closure get_function

(

string

str

)

[static]

Definiert in Zeile 27 der Datei microcode.c.

Wird benutzt von make_symbol().

{
  closure sym;
  if((sym = symbol_function(str, this_object())) ||     // FUNCTIONS
     (sym = symbol_function(str)) ||
     (sym = symbol_variable(str)))
    return sym;
#if defined(symbol_variable)
  if(str == "memory") return #'memory;
#endif
  return 0;
}

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

nomask varargs string get_line

(

)

Definiert in Zeile 93 der Datei microcode.c.

{
  if(sizeof(G_input))
  {
    if(!pointerp(history)) history = ({});
    history += ({ G_input[0] });
    G_input[0..0] = ({});
    return history[<1];
  }
  return 0;  
}

static nomask public string output

(

mixed

res

)

[static]

Definiert in Zeile 121 der Datei microcode.c.

{
  res = regexplode(sprintf("%O", res),
                   "\n[ ]*|[,]\n[ ]*|[(][{\[]|[\]}][)]|[#][']|"
                  +" [/][*] sizeof[(][)] == [0-9][0-9]* [*][/]")
      - ({"\n", ",\n", "#'"});
  res = map(res, #'transform);
  return sprintf("%s\n", implode(res, ""));
}

static nomask public int pre_parse

(

mixed

code

)

[static]

Definiert in Zeile 41 der Datei microcode.c.

Wird benutzt von CodeGen().

{
  if(pointerp(code) && sizeof(code) &&
     (closurep(code[0]) || symbolp(code[0])))
  {
    mixed idx, tmp;
    if(sizeof(tmp = old_explode(sprintf("%O", code[0]), "->")) > 1)
      idx = tmp[1];
    else idx = code[0];
    // warning only the setting of bit 0 or 1 is allowed, not 0 and 1
    // thus 01 leads to normal quote, 10 for special, 11 not quote at all
    return (memory[idx, QUOTE] & (3<<2*(sizeof(code)-1)))>>2*(sizeof(code)-1);
  }
}

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

nomask static varargs public mixed prog_parse	(	mixed	token,
		int	func
	)			[static]

Definiert in Zeile 58 der Datei microcode.c.

Benutzt memory.

Wird benutzt von CodeGen().

{
  if(symbolp(token))
      if(!member(memory, token))
        token = ({#'?, ({#'member, ({#'memory}), quote(token)}),
                     ({#'[, ({#'memory}), quote(token)}),
                     ({#'raise_error,
                                       sprintf("Symbol %O' not bound\n", token) }) });
      else token = func ? token : memory[token];
  return token;
}

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

static nomask private string transform

(

string

e

)

[static]

Definiert in Zeile 106 der Datei microcode.c.

{
  switch(e)
  {
  case "({": return "(";
  case "})": return ")";
  case "([": return "[";
  case "])": return "]";
  }
  if(strstr(e, " /* sizeof() == ") != -1) return "";
  if(strstr(e, "\n") != -1) if(e[0] == ',') return " "; else return "";
  return e;
}

---

Variablen-Dokumentation

private string* G_input [static]

Definiert in Zeile 13 der Datei microcode.c.

Wird benutzt von create().

private string* history [static]

Definiert in Zeile 14 der Datei microcode.c.

Wird benutzt von AddHistory(), DoHistory(), initialize(), modify_command(), parsecommand(), reallocate_histbuf(), show_hist() und tmhist().

private mapping memory [static]

Definiert in Zeile 12 der Datei microcode.c.

Wird benutzt von cmd_memory(), create(), do_cmd(), Load(), parseNext(), prog_parse(), Remove(), Save() und ShowData().