From d3298e21fbb4359ec3ff42d9e12c4ea27c29d057 Mon Sep 17 00:00:00 2001
From: musil <tmusil@users.sourceforge.net>
Date: Thu, 10 Dec 2009 11:35:49 +0000
Subject: only temporary

svn path=/trunk/externals/iemlib/; revision=12824
---
 iemlib2/src/iem_pbank_temp.c | 102 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 102 insertions(+)
 create mode 100644 iemlib2/src/iem_pbank_temp.c

(limited to 'iemlib2/src')

diff --git a/iemlib2/src/iem_pbank_temp.c b/iemlib2/src/iem_pbank_temp.c
new file mode 100644
index 0000000..0a9e970
--- /dev/null
+++ b/iemlib2/src/iem_pbank_temp.c
@@ -0,0 +1,102 @@
+// 1.)  allow only readable ASCII (0x0a, 0x0d, 0x20...0x7e), else drop
+    txvec_src = txbuf1;
+    txvec_dst = txbuf2;
+	txlen1 = txalloc;
+    p = 0;
+    for(l=0; l<txlen; l++)
+    {
+      if(((*txvec_src >= ' ') && (*txvec_src <= '~')) || (*txvec_src == 0x0a) || (*txvec_src == 0x0d))
+      {
+        *txvec_dst++ = *txvec_src++;// copy the same char
+        p++;
+      }
+      else
+        txvec_src++;// drop anything else
+    }
+    txlen = p - 1; // dst is 2
+	
+	// 2.) unify windows return
+    txvec_src = txbuf2;
+    txvec_dst = txbuf1;
+    p = 0;
+    for(l=0; l<txlen; l++)
+    {
+      if((*txvec_src == 0x0d)&&(txvec_src[1] == 0x0a))  // windows return
+      {
+        *txvec_dst++ = IEM_PBANK_UNIFIED_EOL;
+        txvec_src += 2;
+        l++;
+        p++;
+      }
+      else
+      {
+        *txvec_dst++ = *txvec_src++;
+        p++;
+      }
+    }
+    txlen = p; // dst is 1
+
+	
+	
+    IEM_PBANK_UNIFIED_EOL  IEM_PBANK_UNIFIED_SEP
+     
+    
+    
+    // unify return
+    txvec_dst = txbuf2;
+    for(l=0; l<txlen; l++)
+    {
+      if(*txvec_dst == 0x0d)// replace '0x0d' by '0x0a'
+        *txvec_dst = 0x0a;
+      txvec_dst++;
+    }
+    
+    // unify EndOfLine
+    txvec_src = txbuf2;
+    txvec_dst = txbuf1;
+    p = 0;
+    for(l=0; l<txlen; l++)
+    {
+      if(!strncmp(txvec_src, eol+eol_offset, eol_length)) /* replace eol by 0x0a */
+      {
+        txvec_src += eol_length;
+        l += eol_length - 1;
+        *txvec_dst++ = 0x0a;
+        p++;
+      }
+      else
+      {
+        *txvec_dst++ = *txvec_src++;// copy the same char
+        p++;
+      }
+    }
+    txlen = p;
+    
+#if(IEMLIB2_DEBUG)
+    post("after UNI EOL RET");
+    txvec_src = txbuf1;
+    for(l=0; l<txlen; l++)
+    {
+      post("%d:%x=%c",l,*txvec_src,*txvec_src);
+      txvec_src++;
+    }
+#endif
+    
+    // unify separator
+    txvec_src = txbuf1;
+    txvec_dst = txbuf2;
+    for(l=0; l<txlen; l++)
+    {
+      if(*txvec_src == sep)// replace 'sep' by ';'
+      {
+        txvec_src++;
+        *txvec_dst++ = ';';
+      }
+      else if((*txvec_src == ',') && (mode[IEM_PBANK_END_OF_LINE] != 'c')) // replace ',' by '.'
+      {
+        txvec_src++;
+        *txvec_dst++ = '.';
+      }
+      else
+        *txvec_dst++ = *txvec_src++;// drop anything else
+    }
\ No newline at end of file
-- 
cgit v1.2.1