Repatch (from linux) of OSX IRAF

1 files changed, 149 insertions, 0 deletions

diff --git a/vendor/voclient/libsamp/examples/snoop.c b/vendor/voclient/libsamp/examples/snoop.c
new file mode 100644
index 00000000..7fb511cc
--- /dev/null
+++ b/vendor/voclient/libsamp/examples/snoop.c
@@ -0,0 +1,149 @@
+/**
+ *  SNOOP - Example task to subscribe to all message and print them out.
+ *
+ *  Usage:
+ *		% snoop [-m mtype] [-s sender] [-v] [-d]
+ *
+ *  	where	-m <mtype>		print only the given mtype
+ *  	     	-s <sender>		print messages from named sender
+ *  	     	-v			verbose output
+ *  	     	-d			debug output
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
+#include <string.h>
+#include <ctype.h>
+
+#include "samp.h"				/* LIBSAMP interface	*/
+
+
+    
+int	samp		= 0;			/* samp struct handle	*/
+
+int	verbose		= 0;			/* task options		*/
+int	debug		= 0;
+char   *mtype		= NULL;
+char   *filt_mtype	= NULL;
+char   *filt_sender	= NULL;
+
+static char *name	= "snoop";		/* metadata		*/
+static char *descr	= "Example App";
+    
+
+static void   help_summary (void);
+
+
+
+/****************************************************************************
+ * Simple user-methods to install as message handlers.  In this case
+ *  we have a simple method to filter message by type or sender so we
+ *  only print the desired messages.
+ */
+
+void msg_handler (char *sender, char *msg_id, int params)
+{
+    if (filt_sender && strcasecmp (filt_sender, sender))
+	return;
+    if (filt_mtype && strcasecmp (filt_mtype, mtype))
+	return;
+
+    /*  Either no filters were set, or the message is of the requested type,
+     *  print the contents.
+     */
+    samp_printMessage (mtype, sender, msg_id, params);
+}
+
+
+
+/****************************************************************************
+ *  Program entry point.
+ */
+int
+main (int argc, char **argv)
+{
+    int	   i, j, len;
+    char   cmd[SZ_CMD];
+
+
+    /* Process commandline arguments.
+    */
+    memset (cmd, 0, SZ_CMD);
+    for (i=1; i < argc; i++) {
+        if (argv[i][0] == '-' && !(isdigit(argv[i][1]))) {
+            len = strlen (argv[i]);
+            for (j=1; j < len; j++) {
+                switch (argv[i][j]) {
+                case 'm':  filt_mtype = argv[++i];   	j = len; break;
+                case 's':  filt_sender = argv[++i];  	j = len; break;
+                case 'd':  debug++;   				 break;
+                case 'v':  verbose++;				 break;
+                default:
+                    fprintf (stderr, "Unknown option '%c'\n\n", argv[i][j]);
+		    help_summary ();
+                    break;
+                }
+            }
+        } else
+	    break;
+    }
+
+
+    /* Initialize the SAMP interface.
+    */
+    samp = sampInit (name, descr);
+
+    /*  Set up some local application metadata values.  These tell the
+     *  Hub and other applications who we are.
+     */
+    samp_Metadata (samp, "author.email", "Will E Coyote");
+    samp_Metadata (samp, "author.name", "rascal@acme.com");
+
+    /*  Subscribe to all message types and install the message handler.
+     */
+    samp_Subscribe (samp, "*",  msg_handler);
+
+    /*  Register with the Hub and begin messaging .....
+     */
+    sampStartup (samp);
+
+    /*  Loop until we're told to quit.
+     */
+    memset (cmd, 0, SZ_CMD);
+    do {
+	if (cmd[0] == 'q')
+	    break;
+	printf ("Type 'q' to quit ......\n");
+    } while (fgets (cmd, SZ_CMD, stdin));
+
+
+    /*  Clean up.  The Shutdownunregisters us from the Hub, we then need
+     *  to close the interface separately to free any allocated memory.
+     */
+    if (sampShutdown (samp) < 0)
+	fprintf (stderr, "Shutdown fails\n");
+    sampClose (samp);
+
+    return (0);
+}
+
+
+
+/********************************
+ **   Private methods.
+ *******************************/
+static void
+help_summary (void)
+{ 
+ fprintf (stderr,
+     "  Usage:\n"
+     "		%% snoop [-m mtype] [-s sender] [-v] [-d]\n"
+     "\n"
+     "  	where	-m <mtype>	print only the given mtype\n"
+     "  	     	-s <sender>	print messages from named sender\n"
+     "  	     	-v		verbose output\n"
+     "  	     	-d		debug output\n"
+     "\n" 
+ );
+}