+*/
+
+/*
+ * NUMBER type of option
+ *____________________________________________________________________________
+ *
+ */
+
+cl_number_option::cl_number_option(class cl_base *the_creator,
+ char *aname, char *Ihelp):
+ cl_option(the_creator, aname, Ihelp)
+{}
+
+void
+cl_number_option::print(class cl_console_base *con)
+{
+ con->dd_printf("%ld", value.ival);
+}
+
+void
+cl_number_option::set_value(char *s)
+{
+ if (s)
+ value.ival= strtol(s, NIL, 0);
+ inform_users();
+}
+
+
+/*
+ * FLOAT type of option
+ *____________________________________________________________________________
+ *
+ */
+
+cl_float_option::cl_float_option(class cl_base *the_creator,
+ char *aname, char *Ihelp):
+ cl_option(the_creator, aname, Ihelp)
+{}
+
+void
+cl_float_option::print(class cl_console_base *con)
+{
+ con->dd_printf("%.3f", value.fval);
+}
+
+void
+cl_float_option::set_value(char *s)
+{
+ if (s)
+ value.fval= strtod(s, NIL);
+ inform_users();
+}