Initial commit of original code

1 files changed, 119 insertions, 0 deletions

diff --git a/slip/slipfos.c b/slip/slipfos.c
new file mode 100644
index 0000000..eb8e775
--- /dev/null
+++ b/slip/slipfos.c
@@ -0,0 +1,119 @@
+/* FOSSIL SLIP interface for uip
+   Implements slipdev_char_poll and slipdev_char_put */
+   
+/*
+ * Copyright (c) 2005, 2009 Jeffrey Armstrong
+ * All rights reserved. 
+ *
+* Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. The name of the author may not be used to endorse or promote
+ *    products derived from this software without specific prior
+ *    written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS
+ * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+ * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
+ * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
+ * GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+ * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+ * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+ * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ *
+ * This file is part of the uIP TCP/IP stack - MS-DOS FOSSIL port.
+ * 
+ * Author: Jeffrey Armstrong <jeff@rainbow-100.com>
+ *
+ */
+
+#include <stdio.h>
+#include "uip.h"
+#include "fossil.h"
+#include "slipfos.h"
+
+#define DEFAULT_BAUD    9600
+
+int slipdev_char_poll_2()
+{
+unsigned char in;
+int return_val;
+
+        if(F_Peek_Check()) {
+
+          in =  Get_Raw();
+
+#ifdef DEBUG_FOSSIL
+            printf("Actual poll value = %d\n",in);
+#endif
+
+          return_val = (int)in;
+
+        } else {
+                return_val = -1;
+        }
+        return return_val;
+
+}
+
+u8_t slipdev_char_poll(u8_t *c)
+{
+unsigned char in;
+u8_t return_val;
+
+        /* if(F_Peek() && F_Get_Status(CK_DCD)) { */
+            
+        if(F_Peek_Check()) {
+
+          in =  Get_Raw();
+                        
+#ifdef DEBUG_FOSSIL
+            printf("Actual poll value = %d\n",in);
+#endif
+                                
+          *c = (u8_t)in;
+          return_val = (u8_t)1;
+        
+        } else {
+                return_val = (u8_t)0;
+        }
+        return return_val;
+}
+
+void slipdev_char_put(u8_t c)
+{
+        F_Send_Char(TRANSMIT, (unsigned char)c);
+}
+
+int slip_fossil_init(int desired_port, int speed)
+{
+        port = desired_port;
+
+        printf("SLIP FOSSIL Settings - Port: %d Speed: %d\n",port,speed);
+
+        if(!F_Init()) {
+                printf("FOSSIL initialization failed\n");
+                return -1;
+        }
+        if (!F_Set_Baud(speed)) {
+                printf("FOSSIL baud set failed\n");
+                return -2;
+        }
+        /*Fl_Ctrl(TXONXOFF); */
+
+        /* slattach uses hardware flow control */
+        Fl_Ctrl(CTSRTS);
+
+        F_Dtr(TRUE);
+        printf("DTR has been raised!\n");
+        
+        return 1;
+}