Repatch (from linux) of OSX IRAF

1 files changed, 314 insertions, 0 deletions

diff --git a/vendor/voclient/libsamp/sampMap.c b/vendor/voclient/libsamp/sampMap.c
new file mode 100644
index 00000000..11b071e9
--- /dev/null
+++ b/vendor/voclient/libsamp/sampMap.c
@@ -0,0 +1,314 @@
+/**
+ *  SAMPMAP.C -- (Internal) Interface to support the Map structure
+ *
+ *             map = samp_newMap  ()
+ *                  samp_freeMap  (Map map)
+ *  
+ *       nelem = samp_getMapSize  (Map map)
+ *          key = samp_getMapKey  (Map map, int index)
+ *          val = samp_getMapVal  (Map map, int index)
+ *  
+ *           samp_setStringInMap  (Map map, char *value)
+ *              samp_setMapInMap  (Map map1, Map map2)
+ *             samp_setListInMap  (Map map, List list)
+ *              samp_setIntInMap  (Map map, int ival)
+ *            samp_setFloatInMap  (Map map, float rval)
+ *  
+ *   str = samp_getStringFromMap  (Map map, char *key)
+ *      map = samp_getMapFromMap  (Map map, char *key)
+ *    list = samp_getListFromMap  (Map map, char *key)
+ *     ival = samp_getIntFromMap  (Map map, char *key)
+ *   rval = samp_getFloatFromMap  (Map map, char *key)
+ *
+ *
+ *  @brief      (Internal) Interface to support the Map structure
+ *  
+ *  @file       sampMap.c
+ *  @author     Mike Fitzpatrick
+ *  @date       7/10/09
+ */
+
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <unistd.h>
+#include <string.h>
+
+#include "samp.h"
+
+
+
+
+/**
+ *  SAMP_NEWMAP -- Create a new Map object
+ *
+ *  @brief	Create a new Map object
+ *  @fn		int samp_newMap (void)
+ *
+ *  @return 		handle to new Map
+ */
+handle_t
+samp_newMap ()
+{
+    return ( (handle_t) xr_newStruct() );
+}
+
+
+/**
+ *  SAMP_FREEMAP -- Free the given Map object
+ *
+ *  @brief	Free the given Map object
+ *  @fn		void samp_freeMap (Map map)
+ *
+ *  @param  map		Map object to free
+ *  @return 		nothing
+ */
+void
+samp_freeMap (Map map)
+{
+    if (map > 0)
+        xr_freeStruct (map);
+}
+
+
+/*
+ *  SAMP_GETMAPSIZE -- Get the number of elements in a Map.
+ *
+ *  @brief	Get the number of elements in a Map.
+ *  @fn		int nelem = samp_getMapSize (Map map)
+ *
+ *  @param  map		handle to Map object
+ *  @return 		number of elements
+ */
+int samp_getMapSize (Map map)
+{
+    return (xr_structSize (map));
+}
+
+
+/*
+ *  SAMP_GETMAPKEY -- Get a Map keyword by index.
+ *
+ *  @brief	Get a Map keyword by index.
+ *  @fn		char *key = samp_getMapKey (Map map, int index)
+ *
+ *  @param  map		handle to Map object
+ *  @param  index	Map element index
+ *  @return 		Map keyword
+ */
+char *
+samp_getMapKey (Map map, int index)
+{
+    return (xr_getStructKey (map, index));
+}
+
+
+/*
+ *  SAMP_GETMAPVAL -- Get a Map value by index.
+ *
+ *  @brief	Get a Map value by index.
+ *  @fn		char *val = samp_getMapVal (Map map, int index)
+ *
+ *  @param  map		handle to Map object
+ *  @param  index	Map element index
+ *  @return 		Map value
+ */
+char *
+samp_getMapVal (Map map, int index)
+{
+    return (xr_getStructVal (map, index));
+}
+
+
+/**
+ *  SAMP_SETSTRINGINMAP -- Set a string in a Map (append)
+ *
+ *  @brief	Set a string in a Map (append)
+ *  @fn		void samp_setStringInMap (Map map, char *key, char *value)
+ *
+ *  @param  map		handle to Map object
+ *  @param  key		Map key
+ *  @param  value	Map value
+ *  @return 		nothing
+ */
+void
+samp_setStringInMap (Map map, char *key, char *value)
+{
+    xr_setStringInStruct (map, key, value);
+}
+
+
+/**
+ *  SAMP_SETMAPINMAP -- Set a Map in a Map (append)
+ *
+ *  @brief	Set a Map in a Map (append)
+ *  @fn		void samp_setMapInMap (Map map1, char *key, Map map2)
+ *
+ *  @param  map1	handle to Map object
+ *  @param  key		Map key
+ *  @param  map2	handle to Map object to set
+ *  @return 		nothing
+ */
+void
+samp_setMapInMap (Map map1, char *key, Map map2)
+{
+    xr_setStructInStruct (map1, key, map2);
+}
+
+
+/**
+ *  SAMP_SETLISTINMAP -- Set a List in a Map (append)
+ *
+ *  @brief	Set a List in a Map (append)
+ *  @fn		void samp_setListInMap (Map map, char *key, List list)
+ *
+ *  @param  map		handle to Map object
+ *  @param  key		Map key
+ *  @param  list	handle to List object to set
+ *  @return 		nothing
+ */
+void
+samp_setListInMap (Map map, char *key, List list)
+{
+    xr_setArrayInStruct (map, key, list);
+}
+
+
+/**
+ *  SAMP_SETINTINMAP -- Set a Int in a Map (append)
+ *
+ *  @brief	Set a Int in a Map (append)
+ *  @fn		void samp_setIntInMap (Map map, char *key, int value)
+ *
+ *  @param  map		handle to Map object
+ *  @param  key		Map key
+ *  @param  value	value
+ *  @return 		nothing
+ */
+void
+samp_setIntInMap (Map map, char *key, int value)
+{
+    xr_setIntInStruct (map, key, value);
+}
+
+
+/**
+ *  SAMP_SETFLOATINMAP -- Set a Float in a Map (append)
+ *
+ *  @brief	Set a string in a Map (append)
+ *  @fn		void samp_setFloatInMap (Map map, char *key, float value)
+ *
+ *  @param  map		handle to Map object
+ *  @param  key		Map key
+ *  @param  value	value
+ *  @return 		nothing
+ */
+void
+samp_setFloatInMap (Map map, char *key, float value)
+{
+    xr_setDoubleInStruct (map, key, (double)value);
+}
+
+
+/****************************************************************************/
+
+/**
+ *  SAMP_GETSTRINGFROMMAP -- Get a string from the Map
+ *
+ *  @brief	Get a string from the Map
+ *  @fn		char *samp_getStringFromMap (Map map, char *key)  
+ *
+ *  @param  map		handle to Map object
+ *  @param  key		Map key
+ *  @return 		string value from Map
+ */
+char *
+samp_getStringFromMap (Map map, char *key)  
+{
+    static char  buf[SZ_SBUF], *res = buf;
+
+    memset (buf, 0, SZ_SBUF);
+    xr_getStringFromStruct (map, key, &res);
+
+    return (res);
+}
+
+
+/**
+ *  SAMP_GETMAPFROMMAP -- Get a Map from the Map
+ *
+ *  @brief	Get a Map from the Map
+ *  @fn		Map samp_getMapFromMap (Map map, char *key)  
+ *
+ *  @param  map		handle to Map object
+ *  @param  key		Map key
+ *  @return 		handle to Map value
+ */
+Map
+samp_getMapFromMap (Map map, char *key)  
+{
+    Map m = 0;
+    xr_getStructFromStruct (map, key, &m);
+
+    return (m);
+}
+
+
+/**
+ *  SAMP_GETLISTFROMMAP -- Get a LIST from the Map
+ *
+ *  @brief	Get a LIST from the Map
+ *  @fn		List samp_getListFromMap (Map map, char *key)  
+ *
+ *  @param  map		handle to Map object
+ *  @param  key		Map key
+ *  @return 		handle to List value
+ */
+List
+samp_getListFromMap (Map map, char *key)  
+{
+    List list = 0;
+    xr_getArrayFromStruct (map, key, &list);
+
+    return (list);
+}
+
+
+/**
+ *  SAMP_GETINTFROMMAP -- Get a integer from the Map
+ *
+ *  @brief	Get a integer from the Map
+ *  @fn		ival = samp_getIntFromMap (Map map, char *key)  
+ *
+ *  @param  map		handle to Map object
+ *  @param  key		Map key
+ *  @return 		integer value
+ */
+int
+samp_getIntFromMap (Map map, char *key)  
+{
+    int ival = 0;
+    xr_getIntFromStruct (map, key, &ival);
+
+    return (ival);
+}
+
+
+/**
+ *  SAMP_GETFLOATFROMMAP -- Get a float from the Map
+ *
+ *  @brief	Get a float from the Map
+ *  @fn		rval = samp_getFloatFromMap (Map map, char *key)  
+ *
+ *  @param  map		handle to Map object
+ *  @param  key		Map key
+ *  @return 		floating point value
+ */
+float
+samp_getFloatFromMap (Map map, char *key)  
+{
+    double dval = 0.0;
+    xr_getDoubleFromStruct (map, key, &dval);
+
+    return ((float) dval);
+}