--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/intercom/gsm/gsm_opti.c	Fri Jun 25 09:57:52 2010 +0200
@@ -0,0 +1,40 @@
+/*
+ * Copyright 1992 by Jutta Degener and Carsten Bormann, Technische
+ * Universitaet Berlin.  See the accompanying file "COPYRIGHT" for
+ * details.  THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
+ */
+
+/* $Header: /home/kbs/jutta/src/gsm/gsm-1.0/src/RCS/gsm_option.c,v 1.1 1992/10/28 00:15:50 jutta Exp $ */
+
+#include "private.h"
+
+#include "gsm.h"
+#include "proto.h"
+
+int gsm_option P3((r, opt, val), gsm r, int opt, int *val)
+{
+  int result = -1;
+
+  switch (opt) {
+  case GSM_OPT_VERBOSE:
+#ifndef	NDEBUG
+    result = r->verbose;
+    if (val)
+      r->verbose = *val;
+#endif
+    break;
+
+  case GSM_OPT_FAST:
+
+#if	defined(FAST) && defined(USE_FLOAT_MUL)
+    result = r->fast;
+    if (val)
+      r->fast = !!*val;
+#endif
+    break;
+
+  default:
+    break;
+  }
+  return result;
+}