@@ -5,10 +5,16 @@
  * external vars: opt, idx, objc, objv
  */
 
 #ifndef _TCL_OPTS_H
 #define _TCL_OPTS_H
+
+#define OPTFLAG(option, var)			\
+    if (strcmp(opt, (option)) == 0) {		\
+	var = 1;				\
+	continue;				\
+    }
 
 #define OPT_PROLOG(option)			\
     if (strcmp(opt, (option)) == 0) {		\
 	if (++idx >= objc) {			\
 	    Tcl_AppendResult(interp,		\
@@ -15,13 +21,15 @@
 		"no argument given for ",	\
 		(option), " option",		\
 		(char *) NULL);			\
 	    return TCL_ERROR;			\
 	}
+
 #define OPT_POSTLOG()				\
 	continue;				\
     }
+
 #define OPTOBJ(option, var)			\
     OPT_PROLOG(option)				\
     var = objv[idx];				\
     OPT_POSTLOG()