1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59
|
/* struct::tree - critcl - layer 1 declarations
* (c) Tree functions
*/
#ifndef _T_H
#define _T_H 1
#include "tclpre9compat.h"
#include <ds.h>
TPtr t_new (void);
void t_delete (TPtr t);
void t_structure (TPtr t);
void t_dump (TPtr t, FILE* f);
int t_deserialize (TPtr dst, Tcl_Interp* interp, Tcl_Obj* src);
int t_assign (TPtr dst, TPtr src);
enum wtypes {
WT_BFS, WT_DFS
};
enum worder {
WO_BOTH, WO_IN, WO_PRE, WO_POST
};
typedef int (*t_walk_function) (Tcl_Interp* interp,
TN* n, Tcl_Obj* cs,
Tcl_Obj* da, Tcl_Obj* db,
Tcl_Obj* action);
int t_walkoptions (Tcl_Interp* interp, int n,
Tcl_Size objc, Tcl_Obj* CONST* objv,
int* type, int* order, int* remainder,
char* usage);
int t_walk (Tcl_Interp* interp, TN* tdn, int type, int order,
t_walk_function f, Tcl_Obj* cs,
Tcl_Obj* avn, Tcl_Obj* nvn);
int t_walk_invokescript (Tcl_Interp* interp, TN* n, Tcl_Obj* cs,
Tcl_Obj* avn, Tcl_Obj* nvn,
Tcl_Obj* action);
int t_walk_invokecmd (Tcl_Interp* interp, TN* n, Tcl_Obj* dummy0,
Tcl_Obj* dummy1, Tcl_Obj* dummy2,
Tcl_Obj* action);
CONST char* t_newnodename (T* td);
#endif /* _T_H */
/*
* Local Variables:
* mode: c
* c-basic-offset: 4
* fill-column: 78
* End:
*/
|