+void ir_tcl_read_grs (Z_GenericRecord *r, IrTcl_GRS_Record **grs_record);
+int ir_tcl_get_grs (Tcl_Interp *interp, IrTcl_GRS_Record *grs_record,
+ int argc, char **argv);
+
+#define IR_TCL_FAIL_CONNECT 1
+#define IR_TCL_FAIL_READ 2
+#define IR_TCL_FAIL_WRITE 3
+#define IR_TCL_FAIL_IN_APDU 4
+#define IR_TCL_FAIL_UNKNOWN_APDU 5
+
+#define IR_TCL_R_Idle 0
+#define IR_TCL_R_Writing 1
+#define IR_TCL_R_Waiting 2
+#define IR_TCL_R_Reading 3
+#define IR_TCL_R_Connecting 4