document tcmdifgen (and split from app, in theory)

[chiark-tcl.git] / base / parse.c

diff --git a/base/parse.c b/base/parse.c
index 539f0748727a31d1b88db14225d35781d89c300e..911cadd3eb71e34d2bbb2dcbef206dc343480e33 100644 (file)
--- 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);
-}