WebSVN – svnkaklik – Diff – /programy/C/PIC/test/PIC16F887/sscanf/main.c

 #include <16F887.h>
 #device *=16
 #device adc=8
 #device PASS_STRINGS=IN_RAM
 #zero_ram
 #FUSES NOWDT                     //No Watch Dog Timer
 #FUSES INTRC_IO                  //Internal RC Osc, no CLKOUT
 #FUSES PUT                       //Power Up Timer
 #FUSES MCLR                      //Master Clear pin enabled
 #FUSES NOPROTECT                 //Code protected from reads
 #FUSES NOCPD                     //No EE protection
 #FUSES BROWNOUT                  //Reset when brownout detected
 #FUSES NOIESO                    //Internal External Switch Over mode disabled
 #FUSES NOFCMEN                   //Fail-safe clock monitor disabled
 #FUSES NOLVP                     //No low voltage prgming, B3(PIC16) or B5(PIC18) used for I/O
 #FUSES NODEBUG                   //No Debug mode for ICD
 #FUSES NOWRT                     //Program memory not write protected
 #FUSES BORV21                    //Brownout reset at 2.1V
 #use delay(clock=8000000,RESTART_WDT)
-#use rs232(baud=BAUDRATE,parity=N,xmit=TXD,rcv=RXD,bits=8,errors)
+//#use rs232(baud=9600,parity=N,xmit=TXD,rcv=RXD,bits=8,errors)
+#use rs232(baud=9600,parity=N,xmit=PIN_B7,rcv=PIN_B6,bits=8)
-/*$F*************************************************************************
-*
+/*$F*************************************************************************
-* Copyright (C)pa 2004 Mark Norton
+*
-*
+* Copyright (C)pa 2004 Mark Norton
-* Permission is hereby granted, free of charge, to any person obtaining
+*
-* a copy of this software and associated documentation files (the
+* Permission is hereby granted, free of charge, to any person obtaining
-* "Software"), to deal in the Software without restriction, including
+* a copy of this software and associated documentation files (the
-* without limitation the rights to use, copy, modify, merge, publish,
+* "Software"), to deal in the Software without restriction, including
-* distribute, sublicense, and/or sell copies of the Software, and to
+* without limitation the rights to use, copy, modify, merge, publish,
-* permit persons to whom the Software is furnished to do so, subject to
+* distribute, sublicense, and/or sell copies of the Software, and to
-* the following conditions:
+* permit persons to whom the Software is furnished to do so, subject to
-*
+* the following conditions:
-* The above copyright notice and this permission notice shall be included
+*
-* in all copies or substantial portions of the Software.
+* The above copyright notice and this permission notice shall be included
-*
+* in all copies or substantial portions of the Software.
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+*
-* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-* IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+* IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
-* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
-* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
-*
+* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-* Functional
+*
-* Description:  Implementation of sscanf() function for the CCS compiler
+* Functional
-*
+* Description:  Implementation of sscanf() function for the CCS compiler
-*****************************************************************************/
+*
-#include <string.h>
+*****************************************************************************/
-#include <stdlib.h>
+#include <string.h>
+#include <stdlib.h>
-/* Uncomment any of these to reduce the code size
-   Note that the HEX is a big hog
+/* Uncomment any of these to reduce the code size
-*/
+   Note that the HEX is a big hog
-#define NO_FLOAT
+*/
-// #define NO_INT
+#define NO_FLOAT
-// #define NO_SIGNED_INT
+// #define NO_INT
-// #define NO_STRING
+// #define NO_SIGNED_INT
-// #define NO_HEX
+// #define NO_STRING
+// #define NO_HEX
-/* *************************************************************************
-  DESCRIPTION:  Converts string pointed to by s to an unsigned long (16 bit)
+/* *************************************************************************
-  RETURN: result of the conversion
+  DESCRIPTION:  Converts string pointed to by s to an unsigned long (16 bit)
-  ALGORITHM:  none
+  RETURN: result of the conversion
-  NOTES:  the next position in the string is returned in endptr
+  ALGORITHM:  none
- *************************************************************************** */
+  NOTES:  the next position in the string is returned in endptr
-long my_atoul(char *s, char *endptr, int base)
+ *************************************************************************** */
-{
+long my_atoul(char *s, char *endptr, int base)
-  signed long result;
+{
-  int index;
+  signed long result;
-  char c;
+  int index;
+  char c;
-  index = 0;
-  result = 0;
+  index = 0;
-  *endptr = s;
+  result = 0;
+  *endptr = s;
-  if (( !s ) || ( !*s ))
-    return ( 0 );
+  if (( !s ) || ( !*s ))
+    return ( 0 );
-  c = *s;
+  c = *s;
-  // increase index if positive sign is detected
-  if (c == '+')
+  // increase index if positive sign is detected
-  {
+  if (c == '+')
-    c = *(++s);
+  {
-  }
+    c = *(++s);
+  }
-  // The number is a decimal number
-  if (base == 10)
+  // The number is a decimal number
-  {
+  if (base == 10)
-    while (c >= '0' && c <= '9')
+  {
-    {
+    while (c >= '0' && c <= '9')
-      result = 10*result + (c - '0');
+    {
-      c = *(++s);
+      result = 10*result + (c - '0');
-    }
+      c = *(++s);
-  }
+    }
-  else if (base == 16)    // The number is a hexa number
+  }
-  {
+  else if (base == 16)    // The number is a hexa number
-    if (c == '0' && (*(s+1) == 'x' || *(s+1) == 'X'))
+  {
-    {
+    if (c == '0' && (*(s+1) == 'x' || *(s+1) == 'X'))
-      s += 2;
+    {
-      c = *s;
+      s += 2;
-    }
+      c = *s;
+    }
-    c = toupper(c);
-    while ( 1 )
+    c = toupper(c);
-    {
+    while ( 1 )
-      if (c >= '0' && c <= '9')
+    {
-        result = (result << 4) + (c - '0');
+      if (c >= '0' && c <= '9')
-      else if (c >= 'A' && c <='F')
+        result = (result << 4) + (c - '0');
-        result = (result << 4) + (c - 'A' + 10);
+      else if (c >= 'A' && c <='F')
-      else
+        result = (result << 4) + (c - 'A' + 10);
-        break;
+      else
-      c = toupper(*(++s));
+        break;
-    }
+      c = toupper(*(++s));
-  }
+    }
-  *endptr = s;
+  }
-  return(result);
+  *endptr = s;
-}
+  return(result);
+}
-/* *************************************************************************
-  DESCRIPTION:  Converts string pointed to by s to a float
+/* *************************************************************************
-  RETURN: result of the conversion
+  DESCRIPTION:  Converts string pointed to by s to a float
-  ALGORITHM:  none
+  RETURN: result of the conversion
-  NOTES:  the next position in the string is returned in endptr
+  ALGORITHM:  none
- *************************************************************************** */
+  NOTES:  the next position in the string is returned in endptr
-float my_atof(char * s, char *endptr)
+ *************************************************************************** */
-{
+float my_atof(char * s, char *endptr)
-  float pow10 = 1.0;
+{
-  float result = 0.0;
+  float pow10 = 1.0;
-  int sign = 0;
+  float result = 0.0;
-  char c;
+  int sign = 0;
+  char c;
-  c = *s;
+  c = *s;
-  if(c == '-')
-  {
+  if(c == '-')
-    sign = 1;
+  {
-    c = *(++s);
+    sign = 1;
-  }
+    c = *(++s);
-  else if(c == '+')
+  }
-    c = *(++s);
+  else if(c == '+')
+    c = *(++s);
-  while((c >= '0' && c <= '9'))
-  {
+  while((c >= '0' && c <= '9'))
-    result = 10*result + c - '0';
+  {
-    c = *(++s);
+    result = 10*result + c - '0';
-  }
+    c = *(++s);
+  }
-  if (c == '.')
-  {
+  if (c == '.')
-    c = *(++s);
+  {
-    while((c >= '0' && c <= '9'))
+    c = *(++s);
-    {
+    while((c >= '0' && c <= '9'))
-      pow10 = pow10*10;
+    {
-      result += (c - '0')/pow10;
+      pow10 = pow10*10;
-      c = *(++s);
+      result += (c - '0')/pow10;
-    }
+      c = *(++s);
-  }
+    }
+  }
-   if (sign == 1)
-     result = -1*result;
+   if (sign == 1)
+     result = -1*result;
-  *endptr = s;
-  return(result);
+  *endptr = s;
-}
+  return(result);
+}
-/* *************************************************************************
-  DESCRIPTION:  Implementation of scanf() using CCS C compiler
+/* *************************************************************************
-  RETURN: total number of arguments read
+  DESCRIPTION:  Implementation of scanf() using CCS C compiler
-  ALGORITHM:  none
+  RETURN: total number of arguments read
-  NOTES:  none
+  ALGORITHM:  none
- *************************************************************************** */
+  NOTES:  none
-int8 sscanf(
+ *************************************************************************** */
-  char  *buf,    /* pointer to the buffer that we are scanning */
+int8 sscanf(
-  char  *fmt,    /* pointer to the format string */
+  char  *buf,    /* pointer to the buffer that we are scanning */
-  char  *pArgs)  /* pointer to array of arguments */
+  char  *fmt,    /* pointer to the format string */
-{
+  char  *pArgs)  /* pointer to array of arguments */
+{
-  int8        count = 0;
-  char        *p;
+  int8        count = 0;
-  int1        size_long;
+  char        *p;
-  int1        sign;
+  int1        size_long;
-  char        *endptr;
+  int1        sign;
+  char        *endptr;
-  while (1)
-  {
+  while (1)
-   /* Look to see if we are out of arguments */
+  {
-   if ( !pArgs )
+   /* Look to see if we are out of arguments */
-     return( count );
+   if ( !pArgs )
+     return( count );
-   /* Gobble up the fmt string */
-    while (*buf == *fmt)
+   /* Gobble up the fmt string */
-    {
+    while (*buf == *fmt)
-      if ((*buf == 0) || (*fmt == 0))
+    {
-        return (count);
+      if ((*buf == 0) || (*fmt == 0))
-      buf++;
+        return (count);
-      fmt++;
+      buf++;
-    }
+      fmt++;
+    }
-    /* Check for the % */
-    if (*fmt != '%')
+    /* Check for the % */
-      break;
+    if (*fmt != '%')
+      break;
-    /* fmt should be '%' go to the next character */
-    fmt++;
+    /* fmt should be '%' go to the next character */
+    fmt++;
-    /* get the size modifier */
-    switch (*fmt)
+    /* get the size modifier */
-    {
+    switch (*fmt)
-      case 'l':
+    {
-      case 'L':
+      case 'l':
-        fmt++;
+      case 'L':
-        size_long = TRUE;
+        fmt++;
-        break;
+        size_long = TRUE;
-      default:
+        break;
-        size_long = FALSE;
+      default:
-        break;
+        size_long = FALSE;
-    }
+        break;
+    }
-    /* fmt should point to our first conversion letter at this point */
-    switch (*fmt)
+    /* fmt should point to our first conversion letter at this point */
-    {
+    switch (*fmt)
-#ifndef NO_FLOAT
+    {
-      case 'f':
+#ifndef NO_FLOAT
-      case 'F':
+      case 'f':
-        /* Get a pointer to this argument */
+      case 'F':
-        p = (float *)(*pArgs);
+        /* Get a pointer to this argument */
+        p = (float *)(*pArgs);
-        /* convert to a number */
-        *(float *)p = (float)my_atof(buf, &endptr);
+        /* convert to a number */
+        *(float *)p = (float)my_atof(buf, &endptr);
-        /* Make sure that we succeeded */
-        if ( buf == endptr )
+        /* Make sure that we succeeded */
-          return ( count );
+        if ( buf == endptr )
-        buf = endptr;
+          return ( count );
+        buf = endptr;
-        /* count this one */
-        count++;
+        /* count this one */
-        break;
+        count++;
-#endif
+        break;
-#ifndef NO_SIGNED_INT
+#endif
-      case 'd':
+#ifndef NO_SIGNED_INT
-      case 'D':
+      case 'd':
-        /* Get a pointer to this argument */
+      case 'D':
-        p = (signed int8 *)(*pArgs);
+        /* Get a pointer to this argument */
-        if (*buf == '-')
+        p = (signed int8 *)(*pArgs);
-        {
+        if (*buf == '-')
-          buf++;
+        {
-          sign = TRUE;
+          buf++;
-        }
+          sign = TRUE;
-        else
+        }
-          sign = FALSE;
+        else
+          sign = FALSE;
-        /* convert to a number */
-        if ( size_long )
+        /* convert to a number */
-        {
+        if ( size_long )
-          *(signed int16 *)p = (signed int16)my_atoul(buf, &endptr, 10);
+        {
-          if (sign)
+          *(signed int16 *)p = (signed int16)my_atoul(buf, &endptr, 10);
-            *(signed int16 *)p = -(*(signed int16 *)p);
+          if (sign)
-        }
+            *(signed int16 *)p = -(*(signed int16 *)p);
-        else
+        }
-        {
+        else
-          *(signed int8 *)p = (signed int8)my_atoul(buf, &endptr, 10);
+        {
-          if (sign)
+          *(signed int8 *)p = (signed int8)my_atoul(buf, &endptr, 10);
-            *(signed int8 *)p = -(*(signed int8 *)p);
+          if (sign)
-        }
+            *(signed int8 *)p = -(*(signed int8 *)p);
-        /* Make sure that we succeeded */
+        }
-        if ( buf == endptr )
+        /* Make sure that we succeeded */
-          return ( count );
+        if ( buf == endptr )
-        buf = endptr;
+          return ( count );
+        buf = endptr;
-        /* count this one */
-        count++;
+        /* count this one */
-        break;
+        count++;
-#endif
+        break;
-#ifndef NO_INT
+#endif
-      case 'u':
+#ifndef NO_INT
-      case 'U':
+      case 'u':
-        /* Get a pointer to this argument */
+      case 'U':
-        p = (int8 *)(*pArgs);
+        /* Get a pointer to this argument */
+        p = (int8 *)(*pArgs);
-        /* convert to a number */
-        if ( size_long )
+        /* convert to a number */
-          *(int16 *)p = (int16) my_atoul(buf, &endptr, 10);
+        if ( size_long )
-        else
+          *(int16 *)p = (int16) my_atoul(buf, &endptr, 10);
-          *(int8 *)p = (int8) my_atoul(buf, &endptr, 10);
+        else
+          *(int8 *)p = (int8) my_atoul(buf, &endptr, 10);
-        /* Make sure that we succeeded */
-        if ( buf == endptr )
+        /* Make sure that we succeeded */
-          return ( count );
+        if ( buf == endptr )
-        buf = endptr;
+          return ( count );
+        buf = endptr;
-        /* count this one */
-        count++;
+        /* count this one */
-        break;
+        count++;
-#endif
+        break;
-#ifndef NO_STRING
+#endif
-      case 's':
+#ifndef NO_STRING
-        /* Get a pointer to this argument */
+      case 's':
-        p = (char *)(*pArgs);
+        /* Get a pointer to this argument */
+        p = (char *)(*pArgs);
-        /* copy the chars */
-        while (1)
+        /* copy the chars */
-        {
+        while (1)
-          if ((isspace(*buf)) || (!*buf))
+        {
-          {
+          if ((isspace(*buf)) || (!*buf))
-            *p = 0;
+          {
-            break;
+            *p = 0;
-          }
+            break;
-          else
+          }
-          {
+          else
-            *p = *buf;
+          {
-            p++;
+            *p = *buf;
-            buf++;
+            p++;
-          }
+            buf++;
-        }
+          }
+        }
-        /* count this one */
-        count++;
+        /* count this one */
-        break;
+        count++;
-#endif
+        break;
-#ifndef NO_HEX
+#endif
-      case 'x':
+#ifndef NO_HEX
-      case 'X':
+      case 'x':
-        /* Get a pointer to this argument */
+      case 'X':
-        p = (int8 *)(*pArgs);
+        /* Get a pointer to this argument */
+        p = (int8 *)(*pArgs);
-        /* convert to a number */
-        if ( size_long )
+        /* convert to a number */
-          *(int16 *)p = (int16) my_atoul(buf, &endptr, 16);
+        if ( size_long )
-        else
+          *(int16 *)p = (int16) my_atoul(buf, &endptr, 16);
-          *(int8 *)p = (int8) my_atoul(buf, &endptr, 16);
+        else
+          *(int8 *)p = (int8) my_atoul(buf, &endptr, 16);
-        /* Make sure that we succeeded */
-        if ( buf == endptr )
+        /* Make sure that we succeeded */
-          return ( count );
+        if ( buf == endptr )
-        buf = endptr;
+          return ( count );
+        buf = endptr;
-        /* count this one */
-        count++;
+        /* count this one */
-        break;
+        count++;
-#endif
+        break;
-      /* unhandled format specifier */
+#endif
-      default:
+      /* unhandled format specifier */
-        return (count);
+      default:
-    }
+        return (count);
-    /* Technically this is incorrect but since the size of all pointers
+    }
-       are the same, who cares ;)
+    /* Technically this is incorrect but since the size of all pointers
+       are the same, who cares ;)
-       point to the next argument
-    */
+       point to the next argument
-    pArgs += sizeof(char *);
+    */
+    pArgs += sizeof(char *);
-    /* Move to the next format char */
-    fmt++;
+    /* Move to the next format char */
-  }
+    fmt++;
+  }
-  return (count);
-}
+  return (count);
+}
-void main() {
-    char x;
+void main() {
-    char sbuffer[64];
+    char x;
-    char cmd=0,param=0;
+    char sbuffer[64];
-    long l;
+    char cmd=0,param=0;
+    long l;
-    set_tris_a(0x80);
-    port_b_pullups(0xFF);
+    set_tris_a(0x80);
-    set_tris_b(0xFF);
+    port_b_pullups(0xFF);
-    set_tris_d(0);
+    set_tris_b(0xFF);
-    set_tris_e(0x01);
+    set_tris_d(0);
-    setup_oscillator(OSC_8MHZ);
+    set_tris_e(0x01);
-    setup_adc_ports(sAN5|VSS_VDD);
+    setup_oscillator(OSC_8MHZ);
-    setup_adc(ADC_CLOCK_INTERNAL);
+    setup_adc_ports(sAN5|VSS_VDD);
-    set_adc_channel(5);
+    setup_adc(ADC_CLOCK_INTERNAL);
-    setup_timer_0(RTCC_INTERNAL|RTCC_DIV_1);
+    set_adc_channel(5);
-    setup_timer_1(T1_INTERNAL|T1_DIV_BY_2);
+    setup_timer_0(RTCC_INTERNAL|RTCC_DIV_1);
-    setup_timer_2(T2_DIV_BY_16, 155, 1);
+    setup_timer_1(T1_INTERNAL|T1_DIV_BY_2);
-    setup_ccp1(CCP_PWM);
+    setup_timer_2(T2_DIV_BY_16, 155, 1);
-    set_pwm1_duty(75);
+    setup_ccp1(CCP_PWM);
-    setup_comparator(NC_NC_NC_NC);
+    set_pwm1_duty(75);
+    setup_comparator(NC_NC_NC_NC);
-sprintf(sbuffer,"/S30\n\");
-x = sscanf(sbuffer,"/%C%d", &cmd, &param);
+sprintf(sbuffer,"/S30\n\");
-printf("\n\rsscanf sez: %u found, cmd %X param %X\n\r",x,cmd,param);
+x = sscanf(sbuffer,"/%C%d", &cmd, &param);
+printf("\n\rsscanf sez: %u found, cmd %X param %X\n\r",x,cmd,param);
-}
+}

Subversion Repositories svnkaklik

(root)/programy/C/PIC/test/PIC16F887/sscanf/main.c – Rev 874 → 876