Progressing.

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

diff --git a/hbytes/parse.c b/hbytes/parse.c
index 14d8f9906b59334ab8343e59c54d98e3d1e153cf..a7ac819c637813e78caef4991c3c46f32e2ebdf0 100644 (file)
--- a/hbytes/parse.c
+++ b/hbytes/parse.c
@@ -22,6 +22,10 @@ int pat_obj(Tcl_Interp *ip, Tcl_Obj *obj, Tcl_Obj **val) {
   return TCL_OK;
 }
 
+int pat_int(Tcl_Interp *ip, Tcl_Obj *obj, int *val) {
+  return Tcl_GetIntFromObj(ip, obj, val);
+}
+  
 int pat_hbv(Tcl_Interp *ip, Tcl_Obj *var, HBytes_Var *agg) {
   int rc;
   Tcl_Obj *val;
@@ -64,3 +68,12 @@ int pat_hb(Tcl_Interp *ip, Tcl_Obj *obj, HBytes_Value *val) {
 Tcl_Obj *ret_hb(Tcl_Interp *ip, HBytes_Value val) {
   return hbytes_set_obj(0, val.start, HBYTES_LEN(val));
 }
+
+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);
+}