Index: /branches/eam_branches/ipp-20111122/Ohana/src/libohana/include/ohana.h
===================================================================
--- /branches/eam_branches/ipp-20111122/Ohana/src/libohana/include/ohana.h	(revision 33115)
+++ /branches/eam_branches/ipp-20111122/Ohana/src/libohana/include/ohana.h	(revision 33116)
@@ -238,5 +238,8 @@
 int     dparse                 PROTO((double *X, int NX, char *line));
 int     dparse_csv             PROTO((double *X, int NX, char *line));
+int     iparse                 PROTO((int *X, int NX, char *line));
 int     iparse_csv             PROTO((int *X, int NX, char *line));
+int     tparse                 PROTO((time_t *X, int NX, char *line));
+int     tparse_csv             PROTO((time_t *X, int NX, char *line));
 int     fparse                 PROTO((float *X, int NX, char *line));
 int     get_argument           PROTO((int argc, char **argv, char *arg));
Index: /branches/eam_branches/ipp-20111122/Ohana/src/libohana/src/string.c
===================================================================
--- /branches/eam_branches/ipp-20111122/Ohana/src/libohana/src/string.c	(revision 33115)
+++ /branches/eam_branches/ipp-20111122/Ohana/src/libohana/src/string.c	(revision 33116)
@@ -205,4 +205,20 @@
 }
 
+int iparse (int *X, int NX, char *line) {
+
+  int i;
+  char *word;
+  char *ptr;
+
+  word = line;
+  for (i = 0; i < NX - 1; i++)
+    word = _parse_nextword (word);
+
+  *X = strtol (word, &ptr, 0);
+  if (ptr == word) return (FALSE);
+  if (word[0] == '-') return (-1);
+  return (1);
+}
+
 int iparse_csv (int *X, int NX, char *line) {
 
@@ -225,4 +241,38 @@
   if (word[0] == '-') return (-1);
   return (1);
+}
+
+int tparse (time_t *X, int NX, char *line) {
+
+  int i, status;
+  char *word;
+
+  word = line;
+  for (i = 0; i < NX - 1; i++)
+    word = _parse_nextword (word);
+
+  status = ohana_str_to_time (word, X);
+  if (!status) return (FALSE);
+  return (TRUE);
+}
+
+int tparse_csv (time_t *X, int NX, char *line) {
+
+  int i, status;
+  char *word;
+
+  word = line;
+  for (i = 0; i < NX - 1; i++)
+    word = _parse_nextword_csv (word);
+  
+  if (word[0] == '"') word[0] = ' ';
+  if (word[0] == ',') {
+      *X = 0;
+      return 1;
+  }
+
+  status = ohana_str_to_time (word, X);
+  if (!status) return (FALSE);
+  return (TRUE);
 }