X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl.git;a=blobdiff_plain;f=base%2Fparse.c;h=911cadd3eb71e34d2bbb2dcbef206dc343480e33;hp=539f0748727a31d1b88db14225d35781d89c300e;hb=a43cdb5c69224a60f9e87110093e35a0f1f0b468;hpb=a41625aefb08ed5bf5f07951841bdfe30c4a72c7

diff --git a/base/parse.c b/base/parse.c
index 539f074..911cadd 100644
--- a/base/parse.c
+++ b/base/parse.c
@@ -10,18 +10,6 @@ int pat_charfrom(Tcl_Interp *ip, Tcl_Obj *obj, int *val,
   return TCL_OK;
 }
 
-int pat_enum(Tcl_Interp *ip, Tcl_Obj *obj, const void **val,
-	     const void *opts, size_t sz, const char *what) {
-  *val= enum_lookup_cached_func(ip,obj,opts,sz,what);
-  if (!*val) return TCL_ERROR;
-  return TCL_OK;
-}
-  
-int pat_obj(Tcl_Interp *ip, Tcl_Obj *obj, Tcl_Obj **val) {
-  *val= obj;
-  return TCL_OK;
-}
-
 int pat_int(Tcl_Interp *ip, Tcl_Obj *obj, int *val) {
   return Tcl_GetIntFromObj(ip, obj, val);
 }
@@ -86,10 +74,6 @@ Tcl_Obj *ret_hb(Tcl_Interp *ip, HBytes_Value val) {
   return obj;
 }
 
-Tcl_Obj *ret_int(Tcl_Interp *ip, int val) {
-  return Tcl_NewIntObj(val);
-}
-
 Tcl_Obj *ret_long(Tcl_Interp *ip, long val) {
   return Tcl_NewLongObj(val);
 }
@@ -97,12 +81,3 @@ Tcl_Obj *ret_long(Tcl_Interp *ip, long val) {
 Tcl_Obj *ret_string(Tcl_Interp *ip, const char *val) {
   return Tcl_NewStringObj(val,-1);
 }
-
-Tcl_Obj *ret_obj(Tcl_Interp *ip, Tcl_Obj *val) {
-  return val;
-}
-
-void setstringresult(Tcl_Interp *ip, const char *m) {
-  Tcl_ResetResult(ip);
-  Tcl_AppendResult(ip, m, (char*)0);
-}