diff options
author | Ezra Peisach <epeisach@mit.edu> | 2001-07-01 11:45:10 +0000 |
---|---|---|
committer | Ezra Peisach <epeisach@mit.edu> | 2001-07-01 11:45:10 +0000 |
commit | a0490b297ecdffb8a8b6f9f28dfc6c79272fa64a (patch) | |
tree | 18df914fbc2da52b68725e073930e7f39326df94 /src | |
parent | 6f5a4947bafb2174468c593b8f6be9f4ba2c58a6 (diff) | |
download | krb5-a0490b297ecdffb8a8b6f9f28dfc6c79272fa64a.zip krb5-a0490b297ecdffb8a8b6f9f28dfc6c79272fa64a.tar.gz krb5-a0490b297ecdffb8a8b6f9f28dfc6c79272fa64a.tar.bz2 |
* tcl_kadm5.h: File with prototypes for Tcl_kadm5_init and
Tcl_ovsec_kadm_init.
* tcl_kadm5.c: Include tcl_kadm5.h. Declare
tcl_kadm5_{rename,chpass,get}_principal,
tcl_kadm5_chpass_principal_util, tcl_kadm5_randkey_principal,
tcl_kadm5_{create,delete,modify,get}_policy,
tcl_kadm5_free_{principal,policy}_ent, tcl_kadm5_get_privs as
static.
* test.c, tcl_ovsec_kadm.c: Include tcl_kadm5.h.
git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@13538 dc483132-0cff-0310-8789-dd5450dbe970
Diffstat (limited to 'src')
-rw-r--r-- | src/kadmin/testing/util/ChangeLog | 13 | ||||
-rw-r--r-- | src/kadmin/testing/util/tcl_kadm5.c | 58 | ||||
-rw-r--r-- | src/kadmin/testing/util/tcl_kadm5.h | 4 | ||||
-rw-r--r-- | src/kadmin/testing/util/tcl_ovsec_kadm.c | 1 | ||||
-rw-r--r-- | src/kadmin/testing/util/test.c | 5 |
5 files changed, 50 insertions, 31 deletions
diff --git a/src/kadmin/testing/util/ChangeLog b/src/kadmin/testing/util/ChangeLog index 6fcb79c..fc74237 100644 --- a/src/kadmin/testing/util/ChangeLog +++ b/src/kadmin/testing/util/ChangeLog @@ -1,3 +1,16 @@ +2001-07-01 Ezra Peisach <epeisach@mit.edu> + + * tcl_kadm5.h: File with prototypes for Tcl_kadm5_init and + Tcl_ovsec_kadm_init. + + * tcl_kadm5.c: Include tcl_kadm5.h. Declare + tcl_kadm5_{rename,chpass,get}_principal, + tcl_kadm5_chpass_principal_util, tcl_kadm5_randkey_principal, + tcl_kadm5_{create,delete,modify,get}_policy, + tcl_kadm5_free_{principal,policy}_ent, tcl_kadm5_get_privs as static. + + * test.c, tcl_ovsec_kadm.c: Include tcl_kadm5.h. + 2001-06-08 Ezra Peisach <epeisach@mit.edu> * tcl_kadm5.c: Cleanup assignments in conditionals. diff --git a/src/kadmin/testing/util/tcl_kadm5.c b/src/kadmin/testing/util/tcl_kadm5.c index 73ddd31..9e0e2ea 100644 --- a/src/kadmin/testing/util/tcl_kadm5.c +++ b/src/kadmin/testing/util/tcl_kadm5.c @@ -11,6 +11,7 @@ #include <k5-int.h> #include <errno.h> #include <stdlib.h> +#include "tcl_kadm5.h" struct flagval { char *name; @@ -1821,8 +1822,9 @@ finished: } -int tcl_kadm5_rename_principal(ClientData clientData, Tcl_Interp *interp, - int argc, char *argv[]) +static int tcl_kadm5_rename_principal(ClientData clientData, + Tcl_Interp *interp, + int argc, char *argv[]) { krb5_principal source, target; krb5_error_code krb5_ret; @@ -1861,8 +1863,9 @@ int tcl_kadm5_rename_principal(ClientData clientData, Tcl_Interp *interp, -int tcl_kadm5_chpass_principal(ClientData clientData, Tcl_Interp *interp, - int argc, char *argv[]) +static int tcl_kadm5_chpass_principal(ClientData clientData, + Tcl_Interp *interp, + int argc, char *argv[]) { krb5_principal princ; char *pw; @@ -1918,9 +1921,9 @@ finished: -int tcl_kadm5_chpass_principal_util(ClientData clientData, - Tcl_Interp *interp, - int argc, char *argv[]) +static int tcl_kadm5_chpass_principal_util(ClientData clientData, + Tcl_Interp *interp, + int argc, char *argv[]) { krb5_principal princ; char *new_pw; @@ -2005,8 +2008,9 @@ finished: -int tcl_kadm5_randkey_principal(ClientData clientData, Tcl_Interp *interp, - int argc, char *argv[]) +static int tcl_kadm5_randkey_principal(ClientData clientData, + Tcl_Interp *interp, + int argc, char *argv[]) { krb5_principal princ; krb5_keyblock *keyblocks; @@ -2079,8 +2083,8 @@ finished: -int tcl_kadm5_get_principal(ClientData clientData, Tcl_Interp *interp, - int argc, char *argv[]) +static int tcl_kadm5_get_principal(ClientData clientData, Tcl_Interp *interp, + int argc, char *argv[]) { krb5_principal princ; kadm5_principal_ent_rec ent; @@ -2153,8 +2157,8 @@ finished: return retcode; } -int tcl_kadm5_create_policy(ClientData clientData, Tcl_Interp *interp, - int argc, char *argv[]) +static int tcl_kadm5_create_policy(ClientData clientData, Tcl_Interp *interp, + int argc, char *argv[]) { int tcl_ret; kadm5_ret_t ret; @@ -2201,8 +2205,8 @@ finished: -int tcl_kadm5_delete_policy(ClientData clientData, Tcl_Interp *interp, - int argc, char *argv[]) +static int tcl_kadm5_delete_policy(ClientData clientData, Tcl_Interp *interp, + int argc, char *argv[]) { kadm5_ret_t ret; char *policy; @@ -2229,8 +2233,8 @@ int tcl_kadm5_delete_policy(ClientData clientData, Tcl_Interp *interp, -int tcl_kadm5_modify_policy(ClientData clientData, Tcl_Interp *interp, - int argc, char *argv[]) +static int tcl_kadm5_modify_policy(ClientData clientData, Tcl_Interp *interp, + int argc, char *argv[]) { char *policy_string; kadm5_policy_ent_t policy = 0; @@ -2275,8 +2279,8 @@ finished: } -int tcl_kadm5_get_policy(ClientData clientData, Tcl_Interp *interp, - int argc, char *argv[]) +static int tcl_kadm5_get_policy(ClientData clientData, Tcl_Interp *interp, + int argc, char *argv[]) { kadm5_policy_ent_rec ent; Tcl_DString *ent_dstring = 0; @@ -2334,9 +2338,9 @@ finished: -int tcl_kadm5_free_principal_ent(ClientData clientData, - Tcl_Interp *interp, - int argc, char *argv[]) +static int tcl_kadm5_free_principal_ent(ClientData clientData, + Tcl_Interp *interp, + int argc, char *argv[]) { char *ent_name; kadm5_principal_ent_t ent; @@ -2391,9 +2395,9 @@ int tcl_kadm5_free_principal_ent(ClientData clientData, } -int tcl_kadm5_free_policy_ent(ClientData clientData, - Tcl_Interp *interp, - int argc, char *argv[]) +static int tcl_kadm5_free_policy_ent(ClientData clientData, + Tcl_Interp *interp, + int argc, char *argv[]) { char *ent_name; kadm5_policy_ent_t ent; @@ -2447,8 +2451,8 @@ int tcl_kadm5_free_policy_ent(ClientData clientData, } -int tcl_kadm5_get_privs(ClientData clientData, Tcl_Interp *interp, - int argc, char *argv[]) +static int tcl_kadm5_get_privs(ClientData clientData, Tcl_Interp *interp, + int argc, char *argv[]) { int tcl_ret; char *set_ret; diff --git a/src/kadmin/testing/util/tcl_kadm5.h b/src/kadmin/testing/util/tcl_kadm5.h new file mode 100644 index 0000000..7e23775 --- /dev/null +++ b/src/kadmin/testing/util/tcl_kadm5.h @@ -0,0 +1,4 @@ + +void Tcl_kadm5_init(Tcl_Interp *interp); +void Tcl_ovsec_kadm_init(Tcl_Interp *interp); + diff --git a/src/kadmin/testing/util/tcl_ovsec_kadm.c b/src/kadmin/testing/util/tcl_ovsec_kadm.c index 6fe3d2f..b8a39bd 100644 --- a/src/kadmin/testing/util/tcl_ovsec_kadm.c +++ b/src/kadmin/testing/util/tcl_ovsec_kadm.c @@ -11,6 +11,7 @@ #include <k5-int.h> #include <errno.h> #include <stdlib.h> +#include "tcl_kadm5.h" struct flagval { char *name; diff --git a/src/kadmin/testing/util/test.c b/src/kadmin/testing/util/test.c index 1627b11..dabd927 100644 --- a/src/kadmin/testing/util/test.c +++ b/src/kadmin/testing/util/test.c @@ -3,6 +3,7 @@ #elif HAVE_TCL_TCL_H #include <tcl/tcl.h> #endif +#include "tcl_kadm5.h" #define _TCL_MAIN ((TCL_MAJOR_VERSION * 100 + TCL_MINOR_VERSION) >= 704) @@ -27,10 +28,6 @@ extern int main(); int *tclDummyMainPtr = (int *) main; #endif -/* No header files... sigh... */ -extern void Tcl_ovsec_kadm_init(Tcl_Interp *interp); -extern void Tcl_kadm5_init(Tcl_Interp *interp); - int Tcl_AppInit(Tcl_Interp *interp) { Tcl_ovsec_kadm_init(interp); |