1 files changed, 68 insertions, 0 deletions
diff --git a/src/EOS_Utils.c b/src/EOS_Utils.c
new file mode 100755
index 0000000..815a665
--- /dev/null
+++ b/src/EOS_Utils.c
@@ -0,0 +1,68 @@
+#include <ctype.h>
+#include <string.h>
+#include <stdlib.h>
+#include <stdio.h>
+
+#include "cctk.h"
+#include "cctk_Parameters.h"
+#include "cctk_Arguments.h"
+
+#include "util_String.h"
+#include "util_ErrorCodes.h"
+#include "util_Table.h"
+
+ /*@@
+   @routine    EOS_StrSep
+   @date       Wed Mar  2 14:57:50 2005
+   @author     Ian Hawke
+   @desc 
+   A wrapper to Util_StrSep that returns the last token if there 
+   are no more delimiters. Note that the documentation is incorrect;
+   delim_set (here delim) cannot be a set but must be a single 
+   character.
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+
+@@*/
+
+
+const char * EOS_StrSep(const char ** string_ptr, const char * delim);
+
+const char * EOS_StrSep(const char ** string_ptr, const char * delim)
+{
+  
+  const char * token;
+  const char ** string;
+  
+  string = string_ptr;
+  
+  if (string == NULL)
+  {
+    return NULL;
+  }
+  
+  token = Util_StrSep(string_ptr, delim);
+  
+  if ( (token == NULL) && (strlen(*string) > 0) && 
+       (!(CCTK_Equals(*string, "\n"))) )
+  {
+    string_ptr = string;
+    token = Util_StrSep(string_ptr, "\n");
+    if ( (token == NULL) && (strlen(*string) > 0) )
+    {
+      string_ptr = '\0';
+      token = *string;
+    } 
+  }
+
+#ifdef EOS_GTR_DEBUG
+  printf("EOS_StrSep: token '%s' and string_ptr '%s' (%s)\n",
+         token, *string_ptr, *string);
+#endif
+
+  return token;
+}