src/tclegg.h File Reference

#include "lush.h"
#include "proto.h"

Include dependency graph for tclegg.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Data Structures
struct	timer_str
struct	_tcl_strings
struct	_tcl_int
struct	_tcl_coups
struct	_tcl_cmds
struct	_cd_tcl_cmd
struct	LocaleTable
Defines
#define	CMD_LEAVE   (Function)(-1)
#define	MATCH_PARTIAL   0
#define	MATCH_EXACT   1
#define	MATCH_MASK   2
#define	MATCH_CASE   3
#define	MATCH_MODE   4
#define	MATCH_CRON   5
#define	BIND_USE_ATTR   0x010
#define	BIND_STACKABLE   0x020
#define	BIND_HAS_BUILTINS   0x040
#define	BIND_WANTRET   0x080
#define	BIND_ALTER_ARGS   0x100
#define	BIND_STACKRET   0x200
#define	BIND_NOMATCH   0
#define	BIND_AMBIGUOUS   1
#define	BIND_MATCHED   2
#define	BIND_EXECUTED   3
#define	BIND_EXEC_LOG   4
#define	BIND_QUIT   5
#define	STDVAR
#define	BADARGS(nl, nh, example)
#define	CHECKVALIDITY(a)
Typedefs
typedef struct timer_str	tcl_timer_t
typedef void(*	tcleventcallback )(char *, char *, int, const char *, int)
typedef struct _tcl_strings	tcl_strings
typedef struct _tcl_int	tcl_ints
typedef struct _tcl_coups	tcl_coups
typedef struct _tcl_cmds	tcl_cmds
typedef struct _cd_tcl_cmd	cd_tcl_cmd
Functions
void	do_tcl_async (char *, char *, tcleventcallback)
unsigned long	add_timer (tcl_timer_t **, int, char *, unsigned long)
int	remove_timer (tcl_timer_t **, unsigned long)
void	list_timers (Tcl_Interp *, tcl_timer_t *)
void	wipe_timers (Tcl_Interp *, tcl_timer_t **)
void	do_check_timers (tcl_timer_t **)
	void ((void(*)(tcl_cmds *)) global[14])(tcl_cmds *)
void	add_cd_tcl_cmds (cd_tcl_cmd *)
	void ((void(*)(tcl_cmds *)) global[15])(tcl_cmds *)
void	rem_cd_tcl_cmds (cd_tcl_cmd *)
	void ((void(*)(tcl_strings *)) global[18])(tcl_strings *)
	void ((void(*)(tcl_strings *)) global[19])(tcl_strings *)
	void ((void(*)(tcl_coups *)) global[209])(tcl_coups *)
	void ((void(*)(tcl_coups *)) global[210])(tcl_coups *)
	void ((void(*)(tcl_ints *)) global[16])(tcl_ints *)
	void ((void(*)(tcl_ints *)) global[17])(tcl_ints *)
void	do_tcl_sync (char *, char *, tcleventcallback, int)
const char *	tcl_resultstring ()
int	tcl_resultint ()
int	tcl_resultempty ()
int	tcl_threaded ()
int	fork_before_tcl ()
Variables
static const LocaleTable	localeTable []

---

Define Documentation

#define BADARGS	(	nl,
		nh,
		example		)

Value:

do {                                   \
        if ((argc < (nl)) || ((argc > (nh)) && ((nh) != -1))) {         \
                Tcl_AppendResult(irp, "wrong # args: should be \"",     \
                                 argv[0], (example), "\"", NULL);       \
                return TCL_ERROR;                                       \
        }                                                               \
} while (0)

Definition at line 138 of file tclegg.h.

Referenced by botaddr_tcl_set(), botfl_tcl_set(), console_tcl_set(), def_tcl_set(), fstat_tcl_get(), fstat_tcl_set(), hosts_tcl_get(), hosts_tcl_set(), laston_tcl_get(), laston_tcl_set(), pass_tcl_set(), tcl_addbot(), tcl_adduser(), tcl_backup(), tcl_bind(), tcl_binds(), tcl_botattr(), tcl_callevent(), tcl_chattr(), tcl_chhandle(), tcl_countusers(), tcl_ctime(), tcl_dccdumpfile(), tcl_delhost(), tcl_deluser(), tcl_die(), tcl_dumpfile(), tcl_duration(), tcl_finduser(), tcl_getting_users(), tcl_getuser(), tcl_ignorelist(), tcl_isignore(), tcl_killignore(), tcl_killtimer(), tcl_killutimer(), tcl_loadhelp(), tcl_loadmodule(), tcl_logfile(), tcl_matchaddr(), tcl_matchattr(), tcl_matchcidr(), tcl_matchstr(), tcl_md5(), tcl_modules(), tcl_myip(), tcl_newignore(), tcl_passwdOk(), tcl_putcmdlog(), tcl_putlog(), tcl_putloglev(), tcl_putxferlog(), tcl_rand(), tcl_reloadhelp(), tcl_sendnote(), tcl_setuser(), tcl_strftime(), tcl_stripcodes(), tcl_timer(), tcl_timers(), tcl_unixtime(), tcl_unloadhelp(), tcl_unloadmodule(), tcl_userlist(), tcl_utimer(), tcl_utimers(), and tcl_validuser().

#define BIND_ALTER_ARGS   0x100

Definition at line 83 of file tclegg.h.

#define BIND_AMBIGUOUS   1

Definition at line 93 of file tclegg.h.

Referenced by check_tcl_fil().

#define BIND_EXEC_LOG   4

Definition at line 96 of file tclegg.h.

Referenced by check_tcl_ctcpr(), check_tcl_fil(), check_tcl_flud(), check_tcl_msg(), check_tcl_msgm(), check_tcl_notc(), check_tcl_out(), check_tcl_raw(), check_tcl_raw4(), and check_tcl_wall().

#define BIND_EXECUTED   3

Definition at line 95 of file tclegg.h.

Referenced by check_tcl_msg().

#define BIND_HAS_BUILTINS   0x040

Definition at line 74 of file tclegg.h.

Referenced by check_tcl_fil(), and check_tcl_msg().

#define BIND_MATCHED   2

Definition at line 94 of file tclegg.h.

Referenced by check_tcl_msg().

#define BIND_NOMATCH   0

Definition at line 92 of file tclegg.h.

Referenced by check_tcl_fil(), check_tcl_msgm(), check_tcl_notc(), and check_tcl_wall().

#define BIND_QUIT   5

Definition at line 97 of file tclegg.h.

Referenced by check_tcl_fil().

#define BIND_STACKABLE   0x020

Definition at line 59 of file tclegg.h.

Referenced by check_tcl_ctcpr(), check_tcl_flud(), check_tcl_msgm(), check_tcl_notc(), check_tcl_out(), check_tcl_raw(), check_tcl_raw4(), and check_tcl_wall().

#define BIND_STACKRET   0x200

Definition at line 88 of file tclegg.h.

Referenced by check_tcl_msgm(), check_tcl_notc(), and check_tcl_wall().

#define BIND_USE_ATTR   0x010

Definition at line 56 of file tclegg.h.

Referenced by check_tcl_ctcpr(), check_tcl_fil(), check_tcl_msg(), check_tcl_msgm(), and check_tcl_notc().

#define BIND_WANTRET   0x080

Definition at line 80 of file tclegg.h.

Referenced by check_tcl_ctcpr(), check_tcl_flud(), check_tcl_out(), check_tcl_raw(), and check_tcl_raw4().

#define CHECKVALIDITY

(

a

)

Value:

do {                                    \
        if (!check_validity(argv[0], (a))) {                            \
                Tcl_AppendResult(irp, "bad builtin command call!",      \
                                 NULL);                                 \
                return TCL_ERROR;                                       \
        }                                                               \
} while (0)

Definition at line 146 of file tclegg.h.

#define CMD_LEAVE   (Function)(-1)

Definition at line 40 of file tclegg.h.

#define MATCH_CASE   3

Definition at line 47 of file tclegg.h.

#define MATCH_CRON   5

Definition at line 49 of file tclegg.h.

#define MATCH_EXACT   1

Definition at line 45 of file tclegg.h.

Referenced by check_tcl_msg(), check_tcl_raw(), and check_tcl_raw4().

#define MATCH_MASK   2

Definition at line 46 of file tclegg.h.

Referenced by check_tcl_ctcpr(), check_tcl_flud(), check_tcl_msgm(), check_tcl_notc(), check_tcl_out(), and check_tcl_wall().

#define MATCH_MODE   4

Definition at line 48 of file tclegg.h.

#define MATCH_PARTIAL   0

Definition at line 44 of file tclegg.h.

Referenced by check_tcl_fil().

#define STDVAR

Value:

(cd, irp, argc, argv)                                    \
        ClientData cd;                                                  \
        Tcl_Interp *irp;                                                \
        int argc;                                                       \
        char *argv[];

Definition at line 132 of file tclegg.h.

---

Typedef Documentation

typedef struct _cd_tcl_cmd cd_tcl_cmd

typedef struct _tcl_cmds tcl_cmds

typedef struct _tcl_coups tcl_coups

typedef struct _tcl_int tcl_ints

typedef struct _tcl_strings tcl_strings

typedef struct timer_str tcl_timer_t

typedef void(* tcleventcallback)(char *, char *, int, const char *, int)

Definition at line 114 of file tclegg.h.

---

Function Documentation

void add_cd_tcl_cmds

(

cd_tcl_cmd *

)

Definition at line 414 of file tcl.c.

References _cd_tcl_cmd::callback, _cd_tcl_cmd::cdata, interp, _cd_tcl_cmd::name, and NULL.

Referenced by init_bind().

{
  while (table->name) {
    Tcl_CreateCommand(interp, table->name, table->callback,
                      (ClientData) table->cdata, NULL);
    table++;
  }
}

Here is the caller graph for this function:

unsigned long add_timer	(	tcl_timer_t **	,
		int	,
		char *	,
		unsigned	long
	)

Definition at line 561 of file chanprog.c.

References timer_str::mins, nmalloc, return(), and timer_id.

Referenced by tcl_timer(), and tcl_utimer().

{
  tcl_timer_t *old = (*stack);

  *stack = nmalloc(sizeof **stack);
  (*stack)->next = old;
  (*stack)->mins = elapse;
  (*stack)->cmd = nmalloc(strlen(cmd) + 1);
  strcpy((*stack)->cmd, cmd);
  /* If it's just being added back and already had an id,
   * don't create a new one.
   */
  if (prev_id > 0)
    (*stack)->id = prev_id;
  else
    (*stack)->id = timer_id++;
  return (*stack)->id;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void do_check_timers

(

tcl_timer_t **

)

Definition at line 603 of file chanprog.c.

References do_tcl, egg_snprintf, timer_str::mins, timer_str::next, nfree, and NULL.

Referenced by core_minutely(), and core_secondly().

{
  tcl_timer_t *mark = *stack, *old = NULL;
  char x[16];

  /* New timers could be added by a Tcl script inside a current timer
   * so i'll just clear out the timer list completely, and add any
   * unexpired timers back on.
   */
  *stack = NULL;
  while (mark) {
    if (mark->mins > 0)
      mark->mins--;
    old = mark;
    mark = mark->next;
    if (!old->mins) {
      egg_snprintf(x, sizeof x, "timer%lu", old->id);
      do_tcl(x, old->cmd);
      nfree(old->cmd);
      nfree(old);
    } else {
      old->next = *stack;
      *stack = old;
    }
  }
}

Here is the caller graph for this function:

void do_tcl_async	(	char *	,
		char *	,
		tcleventcallback
	)

Definition at line 729 of file tcl.c.

References do_tcl_sync().

Referenced by dns_tcl_iporhostres().

                                                                          {
  do_tcl_sync(context, script, callback, 0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void do_tcl_sync	(	char *	,
		char *	,
		tcleventcallback	,
		int
	)

Referenced by do_tcl_async(), and mainloop().

Here is the caller graph for this function:

int fork_before_tcl

(

)

Definition at line 1102 of file tcl.c.

References tcl_threaded().

Referenced by bg_do_split(), bg_prepare_split(), and bg_send_quit().

{
#ifndef REPLACE_NOTIFIER
  return tcl_threaded();
#endif
  return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void list_timers	(	Tcl_Interp *	,
		tcl_timer_t *
	)

Definition at line 647 of file chanprog.c.

References argv, timer_str::cmd, EGG_CONST, egg_snprintf, timer_str::id, timer_str::mins, timer_str::next, and Tcl_Free.

Referenced by tcl_timers(), and tcl_utimers().

{
  char mins[10], id[16], *x;
  EGG_CONST char *argv[3];
  tcl_timer_t *mark;

  for (mark = stack; mark; mark = mark->next) {
    egg_snprintf(mins, sizeof mins, "%u", mark->mins);
    egg_snprintf(id, sizeof id, "timer%lu", mark->id);
    argv[0] = mins;
    argv[1] = mark->cmd;
    argv[2] = id;
    x = Tcl_Merge(3, argv);
    Tcl_AppendElement(irp, x);
    Tcl_Free((char *) x);
  }
}

Here is the caller graph for this function:

void rem_cd_tcl_cmds

(

cd_tcl_cmd *

)

Definition at line 432 of file tcl.c.

References interp, and _cd_tcl_cmd::name.

{
  while (table->name) {
    Tcl_DeleteCommand(interp, table->name);
    table++;
  }
}

int remove_timer	(	tcl_timer_t **	,
		unsigned	long
	)

Definition at line 583 of file chanprog.c.

References timer_str::cmd, and nfree.

Referenced by tcl_killtimer(), and tcl_killutimer().

{
  tcl_timer_t *old;
  int ok = 0;

  while (*stack) {
    if ((*stack)->id == id) {
      ok++;
      old = *stack;
      *stack = ((*stack)->next);
      nfree(old->cmd);
      nfree(old);
    } else
      stack = &((*stack)->next);
  }
  return ok;
}

Here is the caller graph for this function:

int tcl_resultempty

(

)

Definition at line 463 of file tcl.c.

References tcl_resultstring().

Referenced by add_note(), answer_local_whom(), cmd_chat(), cmd_whom(), remote_tell_who(), and tell_who().

                      {
  const char *result;
  result = tcl_resultstring();
  return (result && result[0]) ? 0 : 1;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int tcl_resultint

(

)

Definition at line 470 of file tcl.c.

References interp, and NULL.

Referenced by call_tcl_func(), cmd_chat(), and cmd_whom().

{
  int result;
#ifdef USE_TCL_OBJ
  if (Tcl_GetIntFromObj(NULL, Tcl_GetObjResult(interp), &result) != TCL_OK)
#else
  if (Tcl_GetInt(NULL, interp->result, &result) != TCL_OK)
#endif
    result = 0;
  return result;
}

Here is the caller graph for this function:

const char* tcl_resultstring

(

)

Definition at line 452 of file tcl.c.

References interp.

Referenced by answer_local_whom(), call_tcl_func(), cmd_set(), cmd_tcl(), remote_tell_who(), tcl_resultempty(), tell_verbose_status(), and tell_who().

{
  const char *result;
#ifdef USE_TCL_OBJ
  result = Tcl_GetStringResult(interp);
#else
  result = interp->result;
#endif
  return result;
}

Here is the caller graph for this function:

int tcl_threaded

(

)

Definition at line 1090 of file tcl.c.

Referenced by fork_before_tcl(), and tell_verbose_status().

{
#ifdef HAVE_TCL_GETCURRENTTHREAD
  if (Tcl_GetCurrentThread() != (Tcl_ThreadId)0)
    return 1;
#endif

  return 0;
}

Here is the caller graph for this function:

void

(

(void(*)(tcl_ints *))

global[17]

)

Definition at line 1034 of file tcl.c.

References interp, _tcl_int::name, nfree, NULL, strtot, and tcl_eggint().

{
  int i, f;
  intinfo *ii;

  f = TCL_GLOBAL_ONLY | TCL_TRACE_READS | TCL_TRACE_WRITES | TCL_TRACE_UNSETS;
  for (i = 0; list[i].name; i++) {
    ii = (intinfo *) Tcl_VarTraceInfo(interp, list[i].name, f, tcl_eggint,
                                      NULL);
    Tcl_UntraceVar(interp, list[i].name, f, tcl_eggint, (ClientData) ii);
    if (ii) {
      strtot -= sizeof(intinfo);
      nfree(ii);
    }
  }
}

Here is the call graph for this function:

void

(

(void(*)(tcl_ints *))

global[16]

)

Definition at line 1012 of file tcl.c.

References interp, _tcl_int::name, nmalloc, NULL, protect_readonly, _tcl_int::readonly, intinfo::ro, strtot, tcl_eggint(), _tcl_int::val, and intinfo::var.

{
  int i, tmp;
  intinfo *ii;

  for (i = 0; list[i].name; i++) {
    ii = nmalloc(sizeof *ii);
    strtot += sizeof(intinfo);
    ii->var = list[i].val;
    ii->ro = list[i].readonly;
    tmp = protect_readonly;
    protect_readonly = 0;
    tcl_eggint((ClientData) ii, interp, list[i].name, NULL, TCL_TRACE_WRITES);
    protect_readonly = tmp;
    tcl_eggint((ClientData) ii, interp, list[i].name, NULL, TCL_TRACE_READS);
    Tcl_TraceVar(interp, list[i].name,
                 TCL_TRACE_READS | TCL_TRACE_WRITES | TCL_TRACE_UNSETS,
                 tcl_eggint, (ClientData) ii);
  }

}

Here is the call graph for this function:

void

(

(void(*)(tcl_coups *))

global[210]

)

Definition at line 1073 of file tcl.c.

References interp, _tcl_coups::name, nfree, NULL, strtot, and tcl_eggcouplet().

{
  int i, f;
  coupletinfo *cp;

  f = TCL_GLOBAL_ONLY | TCL_TRACE_READS | TCL_TRACE_WRITES | TCL_TRACE_UNSETS;
  for (i = 0; list[i].name; i++) {
    cp = (coupletinfo *) Tcl_VarTraceInfo(interp, list[i].name, f,
                                          tcl_eggcouplet, NULL);
    strtot -= sizeof(coupletinfo);
    Tcl_UntraceVar(interp, list[i].name, f, tcl_eggcouplet, (ClientData) cp);
    nfree(cp);
  }
}

Here is the call graph for this function:

void

(

(void(*)(tcl_coups *))

global[209]

)

Definition at line 1053 of file tcl.c.

References interp, coupletinfo::left, _tcl_coups::lptr, _tcl_coups::name, nmalloc, NULL, coupletinfo::right, _tcl_coups::rptr, strtot, and tcl_eggcouplet().

{
  coupletinfo *cp;
  int i;

  for (i = 0; list[i].name; i++) {
    cp = nmalloc(sizeof *cp);
    strtot += sizeof(coupletinfo);
    cp->left = list[i].lptr;
    cp->right = list[i].rptr;
    tcl_eggcouplet((ClientData) cp, interp, list[i].name, NULL,
                   TCL_TRACE_WRITES);
    tcl_eggcouplet((ClientData) cp, interp, list[i].name, NULL,
                   TCL_TRACE_READS);
    Tcl_TraceVar(interp, list[i].name,
                 TCL_TRACE_READS | TCL_TRACE_WRITES | TCL_TRACE_UNSETS,
                 tcl_eggcouplet, (ClientData) cp);
  }
}

Here is the call graph for this function:

void

(

(void(*)(tcl_strings *))

global[19]

)

Definition at line 995 of file tcl.c.

References interp, _tcl_strings::name, nfree, NULL, strtot, and tcl_eggstr().

{
  int i, f;
  strinfo *st;

  f = TCL_GLOBAL_ONLY | TCL_TRACE_READS | TCL_TRACE_WRITES | TCL_TRACE_UNSETS;
  for (i = 0; list[i].name; i++) {
    st = (strinfo *) Tcl_VarTraceInfo(interp, list[i].name, f, tcl_eggstr,
                                      NULL);
    Tcl_UntraceVar(interp, list[i].name, f, tcl_eggstr, st);
    if (st != NULL) {
      strtot -= sizeof(strinfo);
      nfree(st);
    }
  }
}

Here is the call graph for this function:

void

(

(void(*)(tcl_strings *))

global[18]

)

Definition at line 971 of file tcl.c.

References _tcl_strings::buf, strinfo::flags, _tcl_strings::flags, interp, _tcl_strings::length, strinfo::max, _tcl_strings::name, nmalloc, NULL, protect_readonly, strinfo::str, STR_DIR, STR_PROTECT, strtot, and tcl_eggstr().

{
  int i;
  strinfo *st;
  int tmp;

  for (i = 0; list[i].name; i++) {
    st = nmalloc(sizeof *st);
    strtot += sizeof(strinfo);
    st->max = list[i].length - (list[i].flags & STR_DIR);
    if (list[i].flags & STR_PROTECT)
      st->max = -st->max;
    st->str = list[i].buf;
    st->flags = (list[i].flags & STR_DIR);
    tmp = protect_readonly;
    protect_readonly = 0;
    tcl_eggstr((ClientData) st, interp, list[i].name, NULL, TCL_TRACE_WRITES);
    protect_readonly = tmp;
    tcl_eggstr((ClientData) st, interp, list[i].name, NULL, TCL_TRACE_READS);
    Tcl_TraceVar(interp, list[i].name, TCL_TRACE_READS | TCL_TRACE_WRITES |
                 TCL_TRACE_UNSETS, tcl_eggstr, (ClientData) st);
  }
}

Here is the call graph for this function:

void

(

(void(*)(tcl_cmds *))

global[15]

)

Definition at line 424 of file tcl.c.

References interp, and _tcl_cmds::name.

{
  int i;

  for (i = 0; table[i].name; i++)
    Tcl_DeleteCommand(interp, table[i].name);
}

void

(

(void(*)(tcl_cmds *))

global[14]

)

Definition at line 387 of file tcl.c.

References interp, _tcl_cmds::name, and NULL.

{
  int i;

  for (i = 0; table[i].name; i++)
    Tcl_CreateCommand(interp, table[i].name, table[i].func, NULL, NULL);
}

void wipe_timers	(	Tcl_Interp *	,
		tcl_timer_t **
	)

Definition at line 632 of file chanprog.c.

References timer_str::next, nfree, and NULL.

Referenced by cmd_restart().

{
  tcl_timer_t *mark = *stack, *old;

  while (mark) {
    old = mark;
    mark = mark->next;
    nfree(old->cmd);
    nfree(old);
  }
  *stack = NULL;
}

Here is the caller graph for this function:

---

Variable Documentation

const LocaleTable localeTable[] [static]

Definition at line 216 of file tclegg.h.

Referenced by init_tcl().