Partial const-ification, as indicated by the modern Tcl API, except

for any bits that would require changing the admin APIs.

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@20352 dc483132-0cff-0310-8789-dd5450dbe970

diff --git a/src/kadmin/testing/util/tcl_kadm5.c b/src/kadmin/testing/util/tcl_kadm5.c
index 4eb5283865c0a2a68d74044ddb9253ec19627c0d..21c6418480829a25c8721d0537dcf5320e76c88d 100644 (file)
--- a/src/kadmin/testing/util/tcl_kadm5.c
+++ b/src/kadmin/testing/util/tcl_kadm5.c
@@ -142,7 +142,8 @@ static int put_server_handle(Tcl_Interp *interp, void *handle, char **name)
     return TCL_OK;
 }
 
-static int get_server_handle(Tcl_Interp *interp, char *name, void **handle) 
+static int get_server_handle(Tcl_Interp *interp, const char *name,
+                            void **handle) 
 {
     Tcl_HashEntry *entry;
 
@@ -163,7 +164,7 @@ static int get_server_handle(Tcl_Interp *interp, char *name, void **handle)
     return TCL_OK;
 }
 
-static int remove_server_handle(Tcl_Interp *interp, char *name) 
+static int remove_server_handle(Tcl_Interp *interp, const char *name)
 {
     Tcl_HashEntry *entry;
 
@@ -179,7 +180,7 @@ static int remove_server_handle(Tcl_Interp *interp, char *name)
 
 #define GET_HANDLE(num_args, ignored) \
     void *server_handle; \
-    char *whoami = argv[0]; \
+    const char *whoami = argv[0]; \
     argv++, argc--; \
     if (argc != num_args + 1) { \
        Tcl_AppendResult(interp, whoami, ": ", arg_error, 0); \
@@ -245,7 +246,7 @@ static Tcl_DString *unparse_str(char *in_str)
 
 
          
-static int parse_str(Tcl_Interp *interp, char *in_str, char **out_str)
+static int parse_str(Tcl_Interp *interp, const char *in_str, char **out_str)
 {
      if (! in_str) {
          *out_str = 0;
@@ -254,7 +255,7 @@ static int parse_str(Tcl_Interp *interp, char *in_str, char **out_str)
          *out_str = 0;
      }
      else {
-         *out_str = in_str;
+         *out_str = (char *) in_str;
      }
      return TCL_OK;
 }
@@ -508,7 +509,7 @@ static Tcl_DString *unparse_tl_data(krb5_tl_data *tl_data, int n_tl_data)
          sprintf(buf, "%d", tl_data->tl_data_length);
          Tcl_DStringAppendElement(str, buf);
          Tcl_DStringAppend(str, " ", 1);
-         Tcl_DStringAppend(str, tl_data->tl_data_contents,
+         Tcl_DStringAppend(str, (char *) tl_data->tl_data_contents,
                            tl_data->tl_data_length);
          Tcl_DStringEndSublist(str);
      }
@@ -541,11 +542,11 @@ static Tcl_DString *unparse_flags(struct flagval *array, int size,
 
 
 static int parse_flags(Tcl_Interp *interp, Tcl_HashTable *table,
-                      struct flagval *array, int size, char *str,
+                      struct flagval *array, int size, const char *str,
                       krb5_flags *flags)
 {
      int tmp, argc, i, retcode = TCL_OK;
-     char **argv;
+     const char **argv;
      Tcl_HashEntry *entry;
 
      if (Tcl_GetInt(interp, str, &tmp) == TCL_OK) {
@@ -573,7 +574,7 @@ static int parse_flags(Tcl_Interp *interp, Tcl_HashTable *table,
          *flags |= *(krb5_flags *) Tcl_GetHashValue(entry);
      }
   
-     Tcl_Free(argv);
+     Tcl_Free((char *) argv);
      return(retcode);
 }
 
@@ -590,7 +591,8 @@ static Tcl_DString *unparse_krb5_flags(krb5_flags flags)
                          sizeof(struct flagval), flags);
 }
 
-static int parse_krb5_flags(Tcl_Interp *interp, char *str, krb5_flags *flags)
+static int parse_krb5_flags(Tcl_Interp *interp, const char *str,
+                           krb5_flags *flags)
 {
      krb5_flags tmp;
      static Tcl_HashTable *table = 0;
@@ -614,7 +616,8 @@ static Tcl_DString *unparse_aux_attributes(krb5_int32 flags)
 }
 
 
-static int parse_aux_attributes(Tcl_Interp *interp, char *str, long *flags)
+static int parse_aux_attributes(Tcl_Interp *interp, const char *str,
+                               long *flags)
 {
      krb5_flags tmp;
      static Tcl_HashTable *table = 0;
@@ -631,7 +634,8 @@ static int parse_aux_attributes(Tcl_Interp *interp, char *str, long *flags)
      return TCL_OK;
 }
 
-static int parse_principal_mask(Tcl_Interp *interp, char *str, krb5_int32 *flags)
+static int parse_principal_mask(Tcl_Interp *interp, const char *str,
+                               krb5_int32 *flags)
 {
      krb5_flags tmp;
      static Tcl_HashTable *table = 0;
@@ -648,7 +652,8 @@ static int parse_principal_mask(Tcl_Interp *interp, char *str, krb5_int32 *flags
      return TCL_OK;
 }
 
-static int parse_policy_mask(Tcl_Interp *interp, char *str, krb5_int32 *flags)
+static int parse_policy_mask(Tcl_Interp *interp, const char *str,
+                            krb5_int32 *flags)
 {
      krb5_flags tmp;
      static Tcl_HashTable *table = 0;
@@ -787,11 +792,11 @@ static Tcl_DString *unparse_principal_ent(kadm5_principal_ent_t princ,
      return str;
 }
 
-static int parse_keysalts(Tcl_Interp *interp, char *list,
+static int parse_keysalts(Tcl_Interp *interp, const char *list,
                          krb5_key_salt_tuple **keysalts,
                          int num_keysalts)
 {
-     char **argv, **argv1 = NULL;
+     const char **argv, **argv1 = NULL;
      int i, tmp, argc, argc1, retcode;
 
      *keysalts = NULL;
@@ -835,23 +840,23 @@ static int parse_keysalts(Tcl_Interp *interp, char *list,
          }
          (*keysalts)[i].ks_salttype = tmp;
 
-         Tcl_Free(argv1);
+         Tcl_Free((char *) argv1);
          argv1 = NULL;
      }
 
 finished:
      if (argv1) {
-         Tcl_Free(argv1);
+        Tcl_Free((char *) argv1);
      }
-     Tcl_Free(argv);
+     Tcl_Free((char *) argv);
      return retcode;
 }
 
-static int parse_key_data(Tcl_Interp *interp, char *list,
+static int parse_key_data(Tcl_Interp *interp, const char *list,
                          krb5_key_data **key_data,
                          int n_key_data)
 {
-     char **argv;
+     const char **argv;
      int argc, retcode;
 
      *key_data = NULL;
@@ -882,16 +887,16 @@ static int parse_key_data(Tcl_Interp *interp, char *list,
      }
 
 finished:
-     Tcl_Free(argv);
+     Tcl_Free((char *) argv);
      return retcode;
 }
 
-static int parse_tl_data(Tcl_Interp *interp, char *list,
+static int parse_tl_data(Tcl_Interp *interp, const char *list,
                         krb5_tl_data **tlp,
                         int n_tl_data)
 {
      krb5_tl_data *tl, *tl2;
-     char **argv, **argv1 = NULL;
+     const char **argv, **argv1 = NULL;
      int i, tmp, argc, argc1, retcode;
 
      *tlp = NULL;
@@ -959,7 +964,7 @@ static int parse_tl_data(Tcl_Interp *interp, char *list,
          tl->tl_data_contents = (krb5_octet *) malloc(tmp+1);
          strcpy((char *) tl->tl_data_contents, argv1[2]);
 
-         Tcl_Free(argv1);
+         Tcl_Free((char *) argv1);
          argv1 = NULL;
          tl = tl->tl_data_next;
      }
@@ -972,9 +977,9 @@ static int parse_tl_data(Tcl_Interp *interp, char *list,
 
 finished:
      if (argv1) {
-         Tcl_Free(argv1);
+        Tcl_Free((char *) argv1);
      }
-     Tcl_Free(argv);
+     Tcl_Free((char *) argv);
      return retcode;
 }
 
@@ -982,7 +987,7 @@ static int parse_config_params(Tcl_Interp *interp, char *list,
                               kadm5_config_params *params)
 {
      static Tcl_HashTable *table = 0;
-     char **argv = NULL;
+     const char **argv = NULL;
      int tmp, argc, retcode;
 
      memset(params, 0, sizeof(kadm5_config_params));
@@ -1134,7 +1139,7 @@ static int parse_principal_ent(Tcl_Interp *interp, char *list,
      krb5_error_code krb5_ret;
      int tcl_ret;
      int argc;
-     char **argv;
+     const char **argv;
      int tmp;
      int retcode = TCL_OK;
 
@@ -1326,7 +1331,7 @@ static int parse_principal_ent(Tcl_Interp *interp, char *list,
      }
 
 finished:
-     Tcl_Free(argv);
+     Tcl_Free((char *) argv);
      *out_princ = princ;
      return retcode;
 }
@@ -1386,7 +1391,7 @@ static int parse_policy_ent(Tcl_Interp *interp, char *list,
      kadm5_policy_ent_t policy = 0;
      int tcl_ret;
      int argc;
-     char **argv;
+     const char **argv;
      int tmp;
      int retcode = TCL_OK;
 
@@ -1475,7 +1480,7 @@ static int parse_policy_ent(Tcl_Interp *interp, char *list,
      policy->policy_refcnt = tmp;
 
 finished:
-     Tcl_Free(argv);
+     Tcl_Free((char *) argv);
      *out_policy = policy;
      return retcode;
 }
@@ -1558,16 +1563,16 @@ static Tcl_DString *unparse_keyblocks(krb5_keyblock *keyblocks, int num_keys)
 enum init_type { INIT_NONE, INIT_PASS, INIT_CREDS };
      
 static int _tcl_kadm5_init_any(enum init_type init_type, ClientData clientData,
-                       Tcl_Interp *interp, int argc, char *argv[])
+                       Tcl_Interp *interp, int argc, const char *argv[])
 {
      kadm5_ret_t ret;
      char *client_name, *pass, *service_name;
      int tcl_ret;
      krb5_ui_4 struct_version, api_version;
-     char *handle_var;
+     const char *handle_var;
      void *server_handle;
      char *handle_name, *params_str;
-     char *whoami = argv[0];
+     const char *whoami = argv[0];
      kadm5_config_params params;
 
      argv++, argc--;
@@ -1643,19 +1648,19 @@ static int _tcl_kadm5_init_any(enum init_type init_type, ClientData clientData,
 }
 
 static int tcl_kadm5_init(ClientData clientData, Tcl_Interp *interp,
-                         int argc, char *argv[])
+                         int argc, const char *argv[])
 {
      return _tcl_kadm5_init_any(INIT_PASS, clientData, interp, argc, argv);
 }
 
 static int tcl_kadm5_init_with_creds(ClientData clientData, Tcl_Interp *interp,
-                                    int argc, char *argv[])
+                                    int argc, const char *argv[])
 {
      return _tcl_kadm5_init_any(INIT_CREDS, clientData, interp, argc, argv);
 }
 
 static int tcl_kadm5_destroy(ClientData clientData, Tcl_Interp *interp,
-                            int argc, char *argv[])
+                            int argc, const char *argv[])
 {
      kadm5_ret_t ret;
      int tcl_ret;
@@ -1679,7 +1684,7 @@ static int tcl_kadm5_destroy(ClientData clientData, Tcl_Interp *interp,
 
 static int tcl_kadm5_create_principal(ClientData clientData, 
                                      Tcl_Interp *interp,
-                                     int argc, char *argv[])
+                                     int argc, const char *argv[])
 {
      int tcl_ret;
      kadm5_ret_t ret;
@@ -1749,7 +1754,7 @@ finished:
 
 static int tcl_kadm5_delete_principal(ClientData clientData, 
                                      Tcl_Interp *interp,
-                                     int argc, char *argv[])
+                                     int argc, const char *argv[])
 {
      krb5_principal princ;
      krb5_error_code krb5_ret;
@@ -1787,7 +1792,7 @@ static int tcl_kadm5_delete_principal(ClientData clientData,
 
 static int tcl_kadm5_modify_principal(ClientData clientData, 
                                      Tcl_Interp *interp,
-                                     int argc, char *argv[])
+                                     int argc, const char *argv[])
 {
      char *princ_string;
      kadm5_principal_ent_t princ = 0;
@@ -1834,7 +1839,7 @@ finished:
 
 static int tcl_kadm5_rename_principal(ClientData clientData, 
                                      Tcl_Interp *interp,
-                                     int argc, char *argv[])
+                                     int argc, const char *argv[])
 {
      krb5_principal source, target;
      krb5_error_code krb5_ret;
@@ -1875,7 +1880,7 @@ static int tcl_kadm5_rename_principal(ClientData clientData,
          
 static int tcl_kadm5_chpass_principal(ClientData clientData, 
                                      Tcl_Interp *interp,
-                                     int argc, char *argv[])
+                                     int argc, const char *argv[])
 {
      krb5_principal princ;
      char *pw;
@@ -1931,7 +1936,7 @@ finished:
 
 static int tcl_kadm5_chpass_principal_util(ClientData clientData,
                                           Tcl_Interp *interp,
-                                          int argc, char *argv[])
+                                          int argc, const char *argv[])
 {
      krb5_principal princ;
      char *new_pw;
@@ -2016,7 +2021,7 @@ finished:
 
 static int tcl_kadm5_randkey_principal(ClientData clientData, 
                                       Tcl_Interp *interp,
-                                      int argc, char *argv[])
+                                      int argc, const char *argv[])
 {
      krb5_principal princ;
      krb5_keyblock *keyblocks;
@@ -2089,7 +2094,7 @@ finished:
 
 
 static int tcl_kadm5_get_principal(ClientData clientData, Tcl_Interp *interp,
-                                  int argc, char *argv[])
+                                  int argc, const const char *argv[])
 {
      krb5_principal princ;
      kadm5_principal_ent_rec ent;
@@ -2163,7 +2168,7 @@ finished:
 }
      
 static int tcl_kadm5_create_policy(ClientData clientData, Tcl_Interp *interp,
-                                  int argc, char *argv[])
+                                  int argc, const char *argv[])
 {
      int tcl_ret;
      kadm5_ret_t ret;
@@ -2211,7 +2216,7 @@ finished:
 
 
 static int tcl_kadm5_delete_policy(ClientData clientData, Tcl_Interp *interp,
-                                  int argc, char *argv[])
+                                  int argc, const char *argv[])
 {
      kadm5_ret_t ret;
      char *policy;
@@ -2238,7 +2243,7 @@ static int tcl_kadm5_delete_policy(ClientData clientData, Tcl_Interp *interp,
 
 
 static int tcl_kadm5_modify_policy(ClientData clientData, Tcl_Interp *interp,
-                                  int argc, char *argv[])
+                                  int argc, const char *argv[])
 {
      char *policy_string;
      kadm5_policy_ent_t policy = 0;
@@ -2284,7 +2289,7 @@ finished:
 
 
 static int tcl_kadm5_get_policy(ClientData clientData, Tcl_Interp *interp,
-                               int argc, char *argv[])
+                               int argc, const char *argv[])
 {
      kadm5_policy_ent_rec ent;
      Tcl_DString *ent_dstring = 0;
@@ -2343,7 +2348,7 @@ finished:
      
 static int tcl_kadm5_free_principal_ent(ClientData clientData,
                                        Tcl_Interp *interp,
-                                       int argc, char *argv[])
+                                       int argc, const char *argv[])
 {
      char *ent_name;
      kadm5_principal_ent_t ent;
@@ -2399,7 +2404,7 @@ static int tcl_kadm5_free_principal_ent(ClientData clientData,
                    
 static int tcl_kadm5_free_policy_ent(ClientData clientData,
                                     Tcl_Interp *interp,
-                                    int argc, char *argv[])
+                                    int argc, const char *argv[])
 {
      char *ent_name;
      kadm5_policy_ent_t ent;
@@ -2453,9 +2458,9 @@ static int tcl_kadm5_free_policy_ent(ClientData clientData,
          
                    
 static int tcl_kadm5_get_privs(ClientData clientData, Tcl_Interp *interp,
-                              int argc, char *argv[])
+                              int argc, const char *argv[])
 {
-     char *set_ret;
+     const char *set_ret;
      kadm5_ret_t ret;
      char *priv_var;
      long privs;

diff --git a/src/kadmin/testing/util/tcl_ovsec_kadm.c b/src/kadmin/testing/util/tcl_ovsec_kadm.c
index fa91a23bf98a32ca5518d0fb3db05d6f2c774b5b..cf732fc4ab7bf69d3c53f10b40a14921423a5c04 100644 (file)
--- a/src/kadmin/testing/util/tcl_ovsec_kadm.c
+++ b/src/kadmin/testing/util/tcl_ovsec_kadm.c
@@ -114,7 +114,8 @@ static int put_server_handle(Tcl_Interp *interp, void *handle, char **name)
     return TCL_OK;
 }
 
-static int get_server_handle(Tcl_Interp *interp, char *name, void **handle) 
+static int get_server_handle(Tcl_Interp *interp, const char *name,
+                            void **handle) 
 {
     Tcl_HashEntry *entry;
 
@@ -135,7 +136,7 @@ static int get_server_handle(Tcl_Interp *interp, char *name, void **handle)
     return TCL_OK;
 }
 
-static int remove_server_handle(Tcl_Interp *interp, char *name) 
+static int remove_server_handle(Tcl_Interp *interp, const char *name) 
 {
     Tcl_HashEntry *entry;
 
@@ -152,7 +153,7 @@ static int remove_server_handle(Tcl_Interp *interp, char *name)
 #define GET_HANDLE(num_args, do_dostruct) \
     void *server_handle; \
     int dostruct = 0; \
-    char *whoami = argv[0]; \
+    const char *whoami = argv[0]; \
     argv++, argc--; \
     if ((argc > 0) && (! strcmp(argv[0], "-struct"))) { \
        if (! do_dostruct) { \
@@ -227,7 +228,8 @@ static Tcl_DString *unparse_str(char *in_str)
 
 
          
-static int parse_str(Tcl_Interp *interp, char *in_str, char **out_str)
+static int parse_str(Tcl_Interp *interp, const char *in_str,
+                    const char **out_str)
 {
      if (! in_str) {
          *out_str = 0;
@@ -236,7 +238,7 @@ static int parse_str(Tcl_Interp *interp, char *in_str, char **out_str)
          *out_str = 0;
      }
      else {
-         *out_str = in_str;
+        *out_str = in_str;
      }
      return TCL_OK;
 }
@@ -439,11 +441,11 @@ static Tcl_DString *unparse_flags(struct flagval *array, int size,
 
 
 static int parse_flags(Tcl_Interp *interp, Tcl_HashTable *table,
-                      struct flagval *array, int size, char *str,
+                      struct flagval *array, int size, const char *str,
                       krb5_flags *flags)
 {
      int tmp, argc, i, retcode = TCL_OK;
-     char **argv;
+     const char **argv;
      Tcl_HashEntry *entry;
 
      if (Tcl_GetInt(interp, str, &tmp) == TCL_OK) {
@@ -471,7 +473,7 @@ static int parse_flags(Tcl_Interp *interp, Tcl_HashTable *table,
          *flags |= *(krb5_flags *) Tcl_GetHashValue(entry);
      }
   
-     Tcl_Free(argv);
+     Tcl_Free((char *) argv);
      return(retcode);
 }
 
@@ -488,7 +490,8 @@ static Tcl_DString *unparse_krb5_flags(krb5_flags flags)
                          sizeof(struct flagval), flags);
 }
 
-static int parse_krb5_flags(Tcl_Interp *interp, char *str, krb5_flags *flags)
+static int parse_krb5_flags(Tcl_Interp *interp, const char *str,
+                           krb5_flags *flags)
 {
      krb5_flags tmp;
      static Tcl_HashTable *table = 0;
@@ -512,7 +515,8 @@ static Tcl_DString *unparse_aux_attributes(krb5_int32 flags)
 }
 
 
-static int parse_aux_attributes(Tcl_Interp *interp, char *str, long *flags)
+static int parse_aux_attributes(Tcl_Interp *interp, const char *str,
+                               long *flags)
 {
      krb5_flags tmp;
      static Tcl_HashTable *table = 0;
@@ -529,7 +533,8 @@ static int parse_aux_attributes(Tcl_Interp *interp, char *str, long *flags)
      return TCL_OK;
 }
 
-static int parse_principal_mask(Tcl_Interp *interp, char *str, krb5_int32 *flags)
+static int parse_principal_mask(Tcl_Interp *interp, const char *str,
+                               krb5_int32 *flags)
 {
      krb5_flags tmp;
      static Tcl_HashTable *table = 0;
@@ -547,7 +552,8 @@ static int parse_principal_mask(Tcl_Interp *interp, char *str, krb5_int32 *flags
 }
 
 
-static int parse_policy_mask(Tcl_Interp *interp, char *str, krb5_int32 *flags)
+static int parse_policy_mask(Tcl_Interp *interp, const char *str,
+                            krb5_int32 *flags)
 {
      krb5_flags tmp;
      static Tcl_HashTable *table = 0;
@@ -651,14 +657,14 @@ static Tcl_DString *unparse_principal_ent(ovsec_kadm_principal_ent_t princ)
 
      
      
-static int parse_principal_ent(Tcl_Interp *interp, char *list,
+static int parse_principal_ent(Tcl_Interp *interp, const char *list,
                               ovsec_kadm_principal_ent_t *out_princ)
 {
      ovsec_kadm_principal_ent_t princ = 0;
      krb5_error_code krb5_ret;
      int tcl_ret;
      int argc;
-     char **argv;
+     const char **argv;
      int tmp;
      int retcode = TCL_OK;
 
@@ -782,7 +788,7 @@ static int parse_principal_ent(Tcl_Interp *interp, char *list,
      }
 
 finished:
-     Tcl_Free(argv);
+     Tcl_Free((char *) argv);
      *out_princ = princ;
      return retcode;
 }
@@ -842,7 +848,7 @@ static int parse_policy_ent(Tcl_Interp *interp, char *list,
      ovsec_kadm_policy_ent_t policy = 0;
      int tcl_ret;
      int argc;
-     char **argv;
+     const char **argv;
      int tmp;
      int retcode = TCL_OK;
 
@@ -931,7 +937,7 @@ static int parse_policy_ent(Tcl_Interp *interp, char *list,
      policy->policy_refcnt = tmp;
 
 finished:
-     Tcl_Free(argv);
+     Tcl_Free((char *) argv);
      *out_policy = policy;
      return retcode;
 }
@@ -1005,16 +1011,16 @@ static Tcl_DString *unparse_keyblock(krb5_keyblock *keyblock)
 
 
 static int tcl_ovsec_kadm_init(ClientData clientData, Tcl_Interp *interp,
-                              int argc, char *argv[])
+                              int argc, const char *argv[])
 {
      ovsec_kadm_ret_t ret;
      char *client_name, *pass, *service_name, *realm;
      int tcl_ret;
      krb5_ui_4 struct_version, api_version;
-     char *handle_var;
+     const char *handle_var;
      void *server_handle;
      char *handle_name;
-     char *whoami = argv[0];
+     const char *whoami = argv[0];
 
      argv++, argc--;
 
@@ -1068,7 +1074,7 @@ static int tcl_ovsec_kadm_init(ClientData clientData, Tcl_Interp *interp,
 
 
 static int tcl_ovsec_kadm_destroy(ClientData clientData, Tcl_Interp *interp,
-                                 int argc, char *argv[])
+                                 int argc, const char *argv[])
 {
      ovsec_kadm_ret_t ret;
      int tcl_ret;
@@ -1092,7 +1098,7 @@ static int tcl_ovsec_kadm_destroy(ClientData clientData, Tcl_Interp *interp,
 
 static int tcl_ovsec_kadm_create_principal(ClientData clientData, 
                                           Tcl_Interp *interp,
-                                          int argc, char *argv[])
+                                          int argc, const char *argv[])
 {
      int tcl_ret;
      ovsec_kadm_ret_t ret;
@@ -1162,13 +1168,13 @@ finished:
 
 static int tcl_ovsec_kadm_delete_principal(ClientData clientData, 
                                           Tcl_Interp *interp,
-                                          int argc, char *argv[])
+                                          int argc, const char *argv[])
 {
      krb5_principal princ;
      krb5_error_code krb5_ret;
      ovsec_kadm_ret_t ret;
      int tcl_ret;
-     char *name;
+     const char *name;
      
      GET_HANDLE(1, 0);
 
@@ -1201,9 +1207,9 @@ static int tcl_ovsec_kadm_delete_principal(ClientData clientData,
 
 static int tcl_ovsec_kadm_modify_principal(ClientData clientData, 
                                           Tcl_Interp *interp,
-                                          int argc, char *argv[])
+                                          int argc, const char *argv[])
 {
-     char *princ_string;
+     const char *princ_string;
      ovsec_kadm_principal_ent_t princ = 0;
      int tcl_ret;
      krb5_int32 mask;
@@ -1248,7 +1254,7 @@ finished:
 
 static int tcl_ovsec_kadm_rename_principal(ClientData clientData,
                                           Tcl_Interp *interp,
-                                          int argc, char *argv[])
+                                          int argc, const char *argv[])
 {
      krb5_principal source, target;
      krb5_error_code krb5_ret;
@@ -1291,7 +1297,7 @@ static int tcl_ovsec_kadm_rename_principal(ClientData clientData,
          
 static int tcl_ovsec_kadm_chpass_principal(ClientData clientData, 
                                           Tcl_Interp *interp,
-                                          int argc, char *argv[])
+                                          int argc, const char *argv[])
 {
      krb5_principal princ;
      char *pw;
@@ -1348,7 +1354,7 @@ finished:
 
 static int tcl_ovsec_kadm_chpass_principal_util(ClientData clientData,
                                                Tcl_Interp *interp,
-                                               int argc, char *argv[])
+                                               int argc, const char *argv[])
 {
      krb5_principal princ;
      char *new_pw;
@@ -1432,11 +1438,11 @@ finished:
 
 static int tcl_ovsec_kadm_randkey_principal(ClientData clientData,
                                            Tcl_Interp *interp,
-                                           int argc, char *argv[])
+                                           int argc, const char *argv[])
 {
      krb5_principal princ;
      krb5_keyblock *keyblock;
-     char *keyblock_var;
+     const char *keyblock_var;
      Tcl_DString *keyblock_dstring = 0;
 #ifdef OVERRIDE     
      int override_qual;
@@ -1506,7 +1512,7 @@ finished:
 
 static int tcl_ovsec_kadm_get_principal(ClientData clientData,
                                        Tcl_Interp *interp,
-                                       int argc, char *argv[])
+                                       int argc, const char *argv[])
 {
      krb5_principal princ;
      ovsec_kadm_principal_ent_t ent;
@@ -1610,7 +1616,7 @@ finished:
      
 static int tcl_ovsec_kadm_create_policy(ClientData clientData,
                                        Tcl_Interp *interp,
-                                       int argc, char *argv[])
+                                       int argc, const char *argv[])
 {
      int tcl_ret;
      ovsec_kadm_ret_t ret;
@@ -1659,7 +1665,7 @@ finished:
 
 static int tcl_ovsec_kadm_delete_policy(ClientData clientData,
                                        Tcl_Interp *interp,
-                                       int argc, char *argv[])
+                                       int argc, const char *argv[])
 {
      ovsec_kadm_ret_t ret;
      char *policy;
@@ -1687,7 +1693,7 @@ static int tcl_ovsec_kadm_delete_policy(ClientData clientData,
 
 static int tcl_ovsec_kadm_modify_policy(ClientData clientData,
                                        Tcl_Interp *interp,
-                                       int argc, char *argv[])
+                                       int argc, const char *argv[])
 {
      char *policy_string;
      ovsec_kadm_policy_ent_t policy = 0;
@@ -1734,7 +1740,7 @@ finished:
 
 static int tcl_ovsec_kadm_get_policy(ClientData clientData,
                                     Tcl_Interp *interp,
-                                    int argc, char *argv[])
+                                    int argc, const char *argv[])
 {
      ovsec_kadm_policy_ent_t ent;
      Tcl_DString *ent_dstring = 0;
@@ -1829,7 +1835,7 @@ finished:
      
 static int tcl_ovsec_kadm_free_principal_ent(ClientData clientData,
                                             Tcl_Interp *interp,
-                                            int argc, char *argv[])
+                                            int argc, const char *argv[])
 {
      char *ent_name;
      ovsec_kadm_principal_ent_t ent;
@@ -1884,7 +1890,7 @@ static int tcl_ovsec_kadm_free_principal_ent(ClientData clientData,
                    
 static int tcl_ovsec_kadm_free_policy_ent(ClientData clientData,
                                          Tcl_Interp *interp,
-                                         int argc, char *argv[])
+                                         int argc, const char *argv[])
 {
      char *ent_name;
      ovsec_kadm_policy_ent_t ent;
@@ -1938,9 +1944,9 @@ static int tcl_ovsec_kadm_free_policy_ent(ClientData clientData,
          
                    
 static int tcl_ovsec_kadm_get_privs(ClientData clientData, Tcl_Interp *interp,
-                                   int argc, char *argv[])
+                                   int argc, const char *argv[])
 {
-     char *set_ret;
+     const char *set_ret;
      ovsec_kadm_ret_t ret;
      char *priv_var;
      long privs;