diff options
| author | Chris Provenzano <proven@mit.edu> | 1995-01-13 21:47:20 +0000 |
|---|---|---|
| committer | Chris Provenzano <proven@mit.edu> | 1995-01-13 21:47:20 +0000 |
| commit | f33a07721c4afce077c8abcace13e34e29e04af4 (patch) | |
| tree | 496d2f518b0acc2079d3fa72044400e9f87c6f6f /src/admin/edit/tcl_wrapper.c | |
| parent | 6c54cd4356478f300fb057a3e43b60b4884387fe (diff) | |
| download | krb5-f33a07721c4afce077c8abcace13e34e29e04af4.tar.gz krb5-f33a07721c4afce077c8abcace13e34e29e04af4.tar.xz krb5-f33a07721c4afce077c8abcace13e34e29e04af4.zip | |
Removed all references to DECLARG and OLDDECLARG.
Added krb5_context to all krb5_routines throughout the tree.
git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@4813 dc483132-0cff-0310-8789-dd5450dbe970
Diffstat (limited to 'src/admin/edit/tcl_wrapper.c')
| -rw-r--r-- | src/admin/edit/tcl_wrapper.c | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/src/admin/edit/tcl_wrapper.c b/src/admin/edit/tcl_wrapper.c index 6391b62aa6..55b08d4e82 100644 --- a/src/admin/edit/tcl_wrapper.c +++ b/src/admin/edit/tcl_wrapper.c @@ -28,14 +28,11 @@ #include "kdb5_edit.h" #include <tcl.h> -#define CMDDECL(x) int x(DECLARG(ClientData, clientData),\ - DECLARG(Tcl_Interp, interp),\ - DECLARG(int, argc),\ - DECLARG(char **, argv))\ -OLDDECLARG(ClientData, clientData)\ -OLDDECLARG(Tcl_Interp *, interp)\ -OLDDECLARG(int, argc)\ -OLDDECLARG(char **, argv) +#define CMDDECL(x) int x(clientData, interp, argc, argv)\ + ClientData clientData;\ + Tcl_Interp * interp;\ + int argc;\ + char ** argv; #define CMDPROTO(x) int x PROTOTYPE((ClientData, Tcl_Interp,\ int, char **)) #define MKCMD(name,cmd) Tcl_CreateCommand(interp, name, cmd,\ @@ -57,13 +54,13 @@ void change_rnd_key PROTOTYPE((int, char **)); void add_v4_key PROTOTYPE((int, char **)); void change_v4_key PROTOTYPE((int, char **)); void delete_entry PROTOTYPE((int, char **)); -void extract_srvtab PROTOTYPE((int, char **)); +void extract_srvtab PROTOTYPE((krb5_context, int, char **)); void extract_v4_srvtab PROTOTYPE((int, char **)); void list_db PROTOTYPE((int, char **)); void dump_db PROTOTYPE((int, char **)); void load_db PROTOTYPE((int, char **)); -void set_dbname PROTOTYPE((int, char **)); -void enter_master_key PROTOTYPE((int, char **)); +void set_dbname PROTOTYPE((krb5_context, int, char **)); +void enter_master_key PROTOTYPE((krb5_context, int, char **)); /* * this is mostly stolen from tcl_ExitCmd() |