From fc9b18afa66eca90d15302af3161a09e942c3a37 Mon Sep 17 00:00:00 2001
From: bremner <bremner@09fa754a-f411-0410-976a-da6bfa213b30>
Date: Tue, 11 Jul 2006 11:15:40 +0000
Subject: git-svn-id: file:///export/data/bremner/svn/trunk/inetools@5465
 09fa754a-f411-0410-976a-da6bfa213b30

---
 ine_io.c | 53 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 ine_io.c

(limited to 'ine_io.c')

diff --git a/ine_io.c b/ine_io.c
new file mode 100644
index 0000000..46d1716
--- /dev/null
+++ b/ine_io.c
@@ -0,0 +1,53 @@
+#include <stdio.h>
+#include <errno.h>
+
+void scan_for_begin(int *m_p, int *n_p, char **type_p){
+  char  buf[BUFSIZ];
+  char *cursor;
+  int m,n;
+
+  while ( fgets(buf,BUFSIZ,stdin) !=NULL )    {
+    fputs(buf,stdout);
+    for (cursor=buf; isblank(*cursor); cursor++);
+    if (strncmp(cursor,"begin",5)==0) break;
+  }
+
+  if (fgets(buf,BUFSIZ,stdin)==NULL) {
+    fprintf(stderr,"No parameter line");
+    exit(1);
+  }
+
+  m=strtol(buf,&cursor,10);
+  if (errno==ERANGE || m==0){
+    fprintf(stderr,"Missing or absurd row count");
+    exit(1);
+  }    
+  *m_p=m;
+
+  n=strtol(cursor,&cursor,10);
+  if (errno==ERANGE || m==0){
+    fprintf(stderr,"Missing or absurd column count");
+    exit(1);
+  }    
+  
+  *n_p=n;
+
+  while (isblank(*cursor)){
+    cursor++;
+  }
+
+  *type_p=cursor;
+  
+}
+
+void check_type( char *type, char *ok[], int count){
+  int i;
+  for (i=0; i< count; i++){
+    if (strncmp(type,ok[i],strlen(ok[i]))==0)
+      return;
+  }
+  
+  fprintf(stderr,"Type %s not permitted\n",
+           type);
+  exit(1);
+}
-- 
cgit v1.2.3