Author Topic: C Lessons (Read 10480 times)

Charles Pegge · « **on:** August 17, 2012, 04:41:09 AM »

Link to previous C Lessons

http://www.oxygenbasic.org/forum/index.php?topic=289.0

Peter · « **Reply #1 on:** August 17, 2012, 12:47:24 PM »

c-lesson Arithmetic pointer

Do you know this easy expression?

int (* (* (a)) []) ()

a is a function with return value of type pointer to array of pointers to functions with return value of type int

Very easy to do with C. But is too heavy for OxygenBasic.

Charles Pegge · « **Reply #2 on:** August 17, 2012, 01:04:31 PM »

A deprecated style of coding, I hope!

One should never have to encounter such expressions. OOP eliminates the need for pointy- pointy code

Peter · « **Reply #3 on:** August 17, 2012, 01:30:54 PM »

Hi Charles,

You hope in vain!

Charles Pegge · « **Reply #4 on:** August 17, 2012, 01:34:41 PM »

A pleasant surprise: GCC supports inner functions

Code: C

 
#include <stdlib.h>
#include <stdio.h>
 
int f()
{
  return 2;
};
 
 
int main()
{
  printf("%i\n",f()); //result 2
  int f()
  {
    return 3;
  };
  printf("%i\n",f()); //result 3
}
 

Charles

efgee · « **Reply #5 on:** August 17, 2012, 01:42:52 PM »

Wow, this was new to me...
Working to much with tcc I guess

Thanks for the info.

Charles Pegge · « **Reply #6 on:** August 17, 2012, 01:50:32 PM »

And of course, scope:

Code: C

 
#include <stdlib.h>
#include <stdio.h>
 
 
int main()
{
  int a=2;
  {
    int a=3;
    printf("%i\n",a); //result 3
  };
  printf("%i\n",a); //result 2
}
 

Charles

Charles Pegge · « **Reply #7 on:** August 17, 2012, 03:53:01 PM »

OOP model

Code: C

 
#include <stdlib.h>
#include <stdio.h>
 
 
//VIRTUAL TABLE
 
typedef struct 
{
  int (*m1)(void*this);
  int (*m2)(void*this);
  int c;
} vfoo;
 
//OBJECT
 
typedef struct 
{
  vfoo *vtp;
  int  a;
} cfoo;
 
//METHODS
 
int m1(void*this)
{
  cfoo*c=this;
  c->a=4;
  c->vtp->m2(this);
  return 1;
};
 
int m2(void*this)
{
  cfoo*c=this;
  printf("ok");
  return 2;
};
 
//CREATE
 
int main()
{
  vfoo tfoo={&m1,&m2,1}; //virtual part. (once for all objects)
  cfoo foo={&tfoo,0};    //object part. (each object)
  foo.vtp->m1(&foo);
  printf("%i",foo.a);
}
//result: ok4
 

Charles

Charles Pegge · « **Reply #8 on:** August 22, 2012, 03:01:08 AM »

BSTRING FUNCTIONS

bstrings are dynamic binary string pointers. The length is a 4 byte int value located immediately before the first character, and the string is terminated with at least 2 null characters which are not included in the length value.

the bstring points to the first character of the string.

Code: C

 
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
typedef char * bstring;
 
 
const int empty[4]={0,0,0,0};
 
 
bstring bstringbuf(int n)
{
  if (n==0) return (char*) &empty+4;
  int*t=malloc(n+8);
  *t=n;
  *(t+n-4)=0;
  return (char*) t+4;
}
 
bstring bstringnuls(int n)
{
  if (n==0) return (char*) &empty+4;
  int m=(n+12)>>2;
  int*t=calloc(m,sizeof(long));
  *t=n;
  return (char*) t+4;
}
 
void bstringfree(bstring*s)
{
  if (s==NULL) return;
  if (*s==NULL) return;
  free(*s-sizeof(long));
  *s=(bstring) &empty+4; 
}
 
long bstringlen(bstring s)
{
  if (s==NULL) return 0;
  return *((long*)(s-sizeof(long)));
}
 
void bstringcat(bstring *s,bstring t)
{
  if (t==NULL) return;
  int ls,lt,le;
  ls=bstringlen(*s);
  lt=bstringlen(t);
  if (lt==0) return;
  le=ls+lt;
  if (le>0)
  {
    bstring b=bstringnuls(le);
    strcpy(b,*s);
    strcpy(b+ls,t);
    bstringfree(s);
    *s=b;
  }
}
 
void bstringcatl(bstring *s,char*t)
{
  if (t==NULL) return;
  int ls,lt,le;
  ls=bstringlen(*s);
  lt=strlen(t);
  if (lt==0) return;
  le=ls+lt;
  if (le>0)
  {
    bstring b=bstringnuls(le);
    if (*s != NULL) strcpy(b,*s);
    strcpy(b+ls,t);
    bstringfree(s);
    *s=b;
  }
}
 
void bstringsetlen(bstring *s,int n)
{
  if (n==0) return;
  int ls,lt,le;
  ls=bstringlen(*s);
  lt=n-ls;
  if (lt==0) return;
  le=ls+lt;
  if (le>0)
  {
    bstring b=bstringnuls(le);
    if (*s != NULL)
    {
      strncpy(b,*s,le);
    }
    bstringfree(s);
    *s=b;
  }
}
 
void bstringleft(bstring*t,bstring s,int n)
{
  if (n<=0) n=0;
  int le=bstringlen(s);
  if (le>n) le=n;
  bstring b=bstringnuls(le);
  if (s != NULL) strncpy(b,s,le);
  bstringfree(t);
  *t=b;
}
 
void bstringmid(bstring*t,bstring s,int p,int n)
{
  p--;
  int le=bstringlen(s);
  if (n<0) n=0;
  if (p<0) p=le+p+1;   //offset from right
  if (n>=le-p) n=le-p; //limit with offset
  if (n<0) n=0;
  bstring b=bstringnuls(n);
  if (s != NULL) strncpy(b,s+p,n);
  bstringfree(t);
  *t=b;
}
 
void bstringmidp(bstring*t,bstring s,int p)
{
  p--;
  int lt=bstringlen(*t);
  int ls=bstringlen(s);
  if (p<0) p=lt+p+1;   //offset from right
  if (ls>=lt-p) ls=lt-p; //limit with offset
  if (ls<=0) return;
  if (s != NULL) strncpy(*t+p,s,ls);
}
 
void bstringmidpl(bstring*t,char* s,int p)
{
  p--;
  int lt=bstringlen(*t);
  int ls=strlen(s);
  if (p<0) p=lt+p+1;   //offset from right
  if (ls>=lt-p) ls=lt-p; //limit with offset
  if (ls<=0) return;
  if (s != NULL) strncpy(*t+p,s,ls);
}
 
 
int main()
{
  //TESTS
  //
  bstring       p=NULL,q=NULL;
  bstringcatl   (&p,"Hello ");
  bstringcatl   (&q,"World ");
  bstringcat    (&p,q);
  bstringcatl   (&p," ok");
  bstringsetlen (&p,15);
  bstringmid    (&p,p,-9,11);
  bstringmidpl  (&p,"X",2);
  printf        ("%s\n",p);
  printf        ("%i\n",bstringlen(p));
  bstringfree   (&p);
}
 

Charles

JRS · « **Reply #9 on:** August 22, 2012, 01:02:30 PM »

Charles,

I tried to compile the BStr example with gcc under Ubuntu 64. I had to change ALL the long references to int. A long in 64 bit is 8 bytes I think.

jrs@laptop:~/O2C$ gcc bstr.c -o bstr
jrs@laptop:~/O2C$ ./bstr
WXrld ok
9
jrs@laptop:~/O2C$

Code: [Select]

    #include <stdio.h>  
    #include <stdlib.h>  
    #include <string.h>  
      
    typedef char * bstring;  
      
      
    const int empty[4]={0,0,0,0};  
      
      
    bstring bstringbuf(int n)  
    {  
      if (n==0) return (char*) &empty+4;  
      int*t=malloc(n+8);  
      *t=n;  
      *(t+n-4)=0;  
      return (char*) t+4;  
    }  
      
    bstring bstringnuls(int n)  
    {  
      if (n==0) return (char*) &empty+4;  
      int m=(n+12)>>2;  
      int*t=calloc(m,sizeof(int));  
      *t=n;  
      return (char*) t+4;  
    }  
      
    void bstringfree(bstring*s)  
    {  
      if (s==NULL) return;  
      if (*s==NULL) return;  
      free(*s-sizeof(int));  
      *s=(bstring) &empty+4;   
    }  
      
    int bstringlen(bstring s)  
    {  
      if (s==NULL) return 0;  
      return *((int*)(s-sizeof(int)));  
    }  
      
    void bstringcat(bstring *s,bstring t)  
    {  
      if (t==NULL) return;  
      int ls,lt,le;  
      ls=bstringlen(*s);  
      lt=bstringlen(t);  
      if (lt==0) return;  
      le=ls+lt;  
      if (le>0)  
      {  
        bstring b=bstringnuls(le);  
        strcpy(b,*s);  
        strcpy(b+ls,t);  
        bstringfree(s);  
        *s=b;  
      }  
    }  
      
    void bstringcatl(bstring *s,char*t)  
    {  
      if (t==NULL) return;  
      int ls,lt,le;  
      ls=bstringlen(*s);  
      lt=strlen(t);  
      if (lt==0) return;  
      le=ls+lt;  
      if (le>0)  
      {  
        bstring b=bstringnuls(le);  
        if (*s != NULL) strcpy(b,*s);  
        strcpy(b+ls,t);  
        bstringfree(s);  
        *s=b;  
      }  
    }  
      
    void bstringsetlen(bstring *s,int n)  
    {  
      if (n==0) return;  
      int ls,lt,le;  
      ls=bstringlen(*s);  
      lt=n-ls;  
      if (lt==0) return;  
      le=ls+lt;  
      if (le>0)  
      {  
        bstring b=bstringnuls(le);  
        if (*s != NULL)  
        {  
          strncpy(b,*s,le);  
        }  
        bstringfree(s);  
        *s=b;  
      }  
    }  
      
    void bstringleft(bstring*t,bstring s,int n)  
    {  
      if (n<=0) n=0;  
      int le=bstringlen(s);  
      if (le>n) le=n;  
      bstring b=bstringnuls(le);  
      if (s != NULL) strncpy(b,s,le);  
      bstringfree(t);  
      *t=b;  
    }  
      
    void bstringmid(bstring*t,bstring s,int p,int n)  
    {  
      p--;  
      int le=bstringlen(s);  
      if (n<0) n=0;  
      if (p<0) p=le+p+1;   //offset from right  
      if (n>=le-p) n=le-p; //limit with offset  
      if (n<0) n=0;  
      bstring b=bstringnuls(n);  
      if (s != NULL) strncpy(b,s+p,n);  
      bstringfree(t);  
      *t=b;  
    }  
      
    void bstringmidp(bstring*t,bstring s,int p)  
    {  
      p--;  
      int lt=bstringlen(*t);  
      int ls=bstringlen(s);  
      if (p<0) p=lt+p+1;   //offset from right  
      if (ls>=lt-p) ls=lt-p; //limit with offset  
      if (ls<=0) return;  
      if (s != NULL) strncpy(*t+p,s,ls);  
    }  
      
    void bstringmidpl(bstring*t,char* s,int p)  
    {  
      p--;  
      int lt=bstringlen(*t);  
      int ls=strlen(s);  
      if (p<0) p=lt+p+1;   //offset from right  
      if (ls>=lt-p) ls=lt-p; //limit with offset  
      if (ls<=0) return;  
      if (s != NULL) strncpy(*t+p,s,ls);  
    }  
      
      
    int main()  
    {  
      //TESTS  
      //  
      bstring       p=NULL,q=NULL;  
      bstringcatl   (&p,"Hello ");  
      bstringcatl   (&q,"World ");  
      bstringcat    (&p,q);  
      bstringcatl   (&p," ok");  
      bstringsetlen (&p,15);  
      bstringmid    (&p,p,-9,11);  
      bstringmidpl  (&p,"X",2);  
      printf        ("%s\n",p);  
      printf        ("%i\n",bstringlen(p));  
      bstringfree   (&p);  
    }

Charles Pegge · « **Reply #10 on:** August 22, 2012, 06:55:43 PM »

Thanks John.

I did some investigation and I think the most reliable way to specify a fixed length integer is: __int32 / __int64.

Charles

JRS · « **Reply #11 on:** August 22, 2012, 07:38:34 PM »

I had to use the <stdint.h> include and change all the __int32 to u_int32_t for your new version to compile with gcc on Ubuntu 64.

jrs@laptop:~/O2C$ gcc bstr2.c -o bstr2
bstr2.c: In function ‘bstringbuf’:
bstr2.c:13:7: error: unknown type name ‘__int32’
bstr2.c: In function ‘bstringnuls’:
bstr2.c:23:7: error: unknown type name ‘__int32’
bstr2.c: At top level:
bstr2.c:36:5: error: unknown type name ‘__int32’
bstr2.c: In function ‘bstringlen’:
bstr2.c:39:17: error: ‘__int32’ undeclared (first use in this function)
bstr2.c:39:17: note: each undeclared identifier is reported only once for each function it appears in
bstr2.c:39:25: error: expected expression before ‘)’ token
jrs@laptop:~/O2C$

Code: [Select]

    #include <stdio.h>  
    #include <stdlib.h>  
    #include <string.h>  
    #include <stdint.h> 
      
    typedef char * bstring;  
      
    const int empty[4]={0,0,0,0};  
      
      
    bstring bstringbuf(int n)  
    {  
      if (n==0) return (char*) &empty+4;  
      u_int32_t*t=malloc(n+8);  
      *t=n;  
      *(t+n-4)=0;  
      return (char*) t+4;  
    }  
      
    bstring bstringnuls(int n)  
    {  
      if (n==0) return (char*) &empty+4;  
      int m=(n+12)>>2;  
      u_int32_t*t=calloc(m,4);  
      *t=n;  
      return (char*) t+4;  
    }  
      
    void bstringfree(bstring*s)  
    {  
      if (s==NULL) return;  
      if (*s==NULL) return;  
      free(*s-4);  
      *s=(bstring) &empty+4;   
    }  
      
    u_int32_t bstringlen(bstring s)  
    {  
      if (s==NULL) return 0;  
      return *((u_int32_t*)(s-4));  
    }  
      
    void bstringcat(bstring *s,bstring t)  
    {  
      if (t==NULL) return;  
      int ls,lt,le;  
      ls=bstringlen(*s);  
      lt=bstringlen(t);  
      if (lt==0) return;  
      le=ls+lt;  
      if (le>0)  
      {  
        bstring b=bstringnuls(le);  
        strcpy(b,*s);  
        strcpy(b+ls,t);  
        bstringfree(s);  
        *s=b;  
      }  
    }  
      
    void bstringcatl(bstring *s,char*t)  
    {  
      if (t==NULL) return;  
      int ls,lt,le;  
      ls=bstringlen(*s);  
      lt=strlen(t);  
      if (lt==0) return;  
      le=ls+lt;  
      if (le>0)  
      {  
        bstring b=bstringnuls(le);  
        if (*s != NULL) strcpy(b,*s);  
        strcpy(b+ls,t);  
        bstringfree(s);  
        *s=b;  
      }  
    }  
      
    void bstringsetlen(bstring *s,int n)  
    {  
      if (n==0) return;  
      int ls,lt,le;  
      ls=bstringlen(*s);  
      lt=n-ls;  
      if (lt==0) return;  
      le=ls+lt;  
      if (le>0)  
      {  
        bstring b=bstringnuls(le);  
        if (*s != NULL)  
        {  
          strncpy(b,*s,le);  
        }  
        bstringfree(s);  
        *s=b;  
      }  
    }  
      
    void bstringleft(bstring*t,bstring s,int n)  
    {  
      if (n<=0) n=0;  
      int le=bstringlen(s);  
      if (le>n) le=n;  
      bstring b=bstringnuls(le);  
      if (s != NULL) strncpy(b,s,le);  
      bstringfree(t);  
      *t=b;  
    }  
      
      
    void bstringmid(bstring*t,bstring s,int p,int n)  
    {  
      p--;  
      int le=bstringlen(s);  
      if (n<0) n=0;  
      if (p<0) p=le+p+1;   //offset from right  
      if (n>=le-p) n=le-p; //limit with offset  
      if (n<0) n=0;  
      bstring b=bstringnuls(n);  
      if (s != NULL) strncpy(b,s+p,n);  
      bstringfree(t);  
      *t=b;  
    }  
      
      
    void bstringmidp(bstring*t,bstring s,int p)  
    {  
      p--;  
      int lt=bstringlen(*t);  
      int ls=bstringlen(s);  
      if (p<0) p=lt+p+1;   //offset from right  
      if (ls>=lt-p) ls=lt-p; //limit with offset  
      if (ls<=0) return;  
      if (s != NULL) strncpy(*t+p,s,ls);  
    }  
      
      
    void bstringmidpl(bstring*t,char* s,int p)  
    {  
      p--;  
      int lt=bstringlen(*t);  
      int ls=strlen(s);  
      if (p<0) p=lt+p+1;   //offset from right  
      if (ls>=lt-p) ls=lt-p; //limit with offset  
      if (ls<=0) return;  
      if (s != NULL) strncpy(*t+p,s,ls);  
    }  
      
    int main()  
    {  
      //TESTS  
      //  
      bstring       p=NULL,q=NULL;  
      bstringcatl   (&p,"Hello ");  
      bstringcatl   (&q,"World ");  
      bstringcat    (&p,q);  
      bstringcatl   (&p," ok");  
      bstringsetlen (&p,15);  
      bstringmid    (&p,p,-9,11);  
      bstringmidpl  (&p,"X",2);  
      printf        ("%s\n",p);  
      printf        ("%i\n",bstringlen(p));  
      bstringfree   (&p);  
    }

jrs@laptop:~/O2C$ ./bstr2
WXrld ok
9
jrs@laptop:~/O2C$

Charles Pegge · « **Reply #12 on:** August 23, 2012, 01:06:38 AM »

This is nuts!

MinGW GCC stdint does not have such a type.
Does your stdint.h define int32_t ?

JRS · « **Reply #13 on:** August 23, 2012, 01:15:22 AM »

I don't know where I got u_int32_t when it should have been int32_t.

Code: [Select]

/* Copyright (C) 1997,1998,1999,2000,2001,2006 Free Software Foundation, Inc.
   This file is part of the GNU C Library.

   The GNU C Library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Lesser General Public
   License as published by the Free Software Foundation; either
   version 2.1 of the License, or (at your option) any later version.

   The GNU C Library is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public
   License along with the GNU C Library; if not, write to the Free
   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
   02111-1307 USA.  */

/*
 *	ISO C99: 7.18 Integer types <stdint.h>
 */

#ifndef _STDINT_H
#define _STDINT_H	1

#include <features.h>
#include <bits/wchar.h>
#include <bits/wordsize.h>

/* Exact integral types.  */

/* Signed.  */

/* There is some amount of overlap with <sys/types.h> as known by inet code */
#ifndef __int8_t_defined
# define __int8_t_defined
typedef signed char		int8_t;
typedef short int		int16_t;
typedef int			int32_t;
# if __WORDSIZE == 64
typedef long int		int64_t;
# else
__extension__
typedef long long int		int64_t;
# endif
#endif

/* Unsigned.  */
typedef unsigned char		uint8_t;
typedef unsigned short int	uint16_t;
#ifndef __uint32_t_defined
typedef unsigned int		uint32_t;
# define __uint32_t_defined
#endif
#if __WORDSIZE == 64
typedef unsigned long int	uint64_t;
#else
__extension__
typedef unsigned long long int	uint64_t;
#endif


/* Small types.  */

/* Signed.  */
typedef signed char		int_least8_t;
typedef short int		int_least16_t;
typedef int			int_least32_t;
#if __WORDSIZE == 64
typedef long int		int_least64_t;
#else
__extension__
typedef long long int		int_least64_t;
#endif

/* Unsigned.  */
typedef unsigned char		uint_least8_t;
typedef unsigned short int	uint_least16_t;
typedef unsigned int		uint_least32_t;
#if __WORDSIZE == 64
typedef unsigned long int	uint_least64_t;
#else
__extension__
typedef unsigned long long int	uint_least64_t;
#endif


/* Fast types.  */

/* Signed.  */
typedef signed char		int_fast8_t;
#if __WORDSIZE == 64
typedef long int		int_fast16_t;
typedef long int		int_fast32_t;
typedef long int		int_fast64_t;
#else
typedef int			int_fast16_t;
typedef int			int_fast32_t;
__extension__
typedef long long int		int_fast64_t;
#endif

/* Unsigned.  */
typedef unsigned char		uint_fast8_t;
#if __WORDSIZE == 64
typedef unsigned long int	uint_fast16_t;
typedef unsigned long int	uint_fast32_t;
typedef unsigned long int	uint_fast64_t;
#else
typedef unsigned int		uint_fast16_t;
typedef unsigned int		uint_fast32_t;
__extension__
typedef unsigned long long int	uint_fast64_t;
#endif


/* Types for `void *' pointers.  */
#if __WORDSIZE == 64
# ifndef __intptr_t_defined
typedef long int		intptr_t;
#  define __intptr_t_defined
# endif
typedef unsigned long int	uintptr_t;
#else
# ifndef __intptr_t_defined
typedef int			intptr_t;
#  define __intptr_t_defined
# endif
typedef unsigned int		uintptr_t;
#endif


/* Largest integral types.  */
#if __WORDSIZE == 64
typedef long int		intmax_t;
typedef unsigned long int	uintmax_t;
#else
__extension__
typedef long long int		intmax_t;
__extension__
typedef unsigned long long int	uintmax_t;
#endif


/* The ISO C99 standard specifies that in C++ implementations these
   macros should only be defined if explicitly requested.  */
#if !defined __cplusplus || defined __STDC_LIMIT_MACROS

# if __WORDSIZE == 64
#  define __INT64_C(c)	c ## L
#  define __UINT64_C(c)	c ## UL
# else
#  define __INT64_C(c)	c ## LL
#  define __UINT64_C(c)	c ## ULL
# endif

/* Limits of integral types.  */

/* Minimum of signed integral types.  */
# define INT8_MIN		(-128)
# define INT16_MIN		(-32767-1)
# define INT32_MIN		(-2147483647-1)
# define INT64_MIN		(-__INT64_C(9223372036854775807)-1)
/* Maximum of signed integral types.  */
# define INT8_MAX		(127)
# define INT16_MAX		(32767)
# define INT32_MAX		(2147483647)
# define INT64_MAX		(__INT64_C(9223372036854775807))

/* Maximum of unsigned integral types.  */
# define UINT8_MAX		(255)
# define UINT16_MAX		(65535)
# define UINT32_MAX		(4294967295U)
# define UINT64_MAX		(__UINT64_C(18446744073709551615))


/* Minimum of signed integral types having a minimum size.  */
# define INT_LEAST8_MIN		(-128)
# define INT_LEAST16_MIN	(-32767-1)
# define INT_LEAST32_MIN	(-2147483647-1)
# define INT_LEAST64_MIN	(-__INT64_C(9223372036854775807)-1)
/* Maximum of signed integral types having a minimum size.  */
# define INT_LEAST8_MAX		(127)
# define INT_LEAST16_MAX	(32767)
# define INT_LEAST32_MAX	(2147483647)
# define INT_LEAST64_MAX	(__INT64_C(9223372036854775807))

/* Maximum of unsigned integral types having a minimum size.  */
# define UINT_LEAST8_MAX	(255)
# define UINT_LEAST16_MAX	(65535)
# define UINT_LEAST32_MAX	(4294967295U)
# define UINT_LEAST64_MAX	(__UINT64_C(18446744073709551615))


/* Minimum of fast signed integral types having a minimum size.  */
# define INT_FAST8_MIN		(-128)
# if __WORDSIZE == 64
#  define INT_FAST16_MIN	(-9223372036854775807L-1)
#  define INT_FAST32_MIN	(-9223372036854775807L-1)
# else
#  define INT_FAST16_MIN	(-2147483647-1)
#  define INT_FAST32_MIN	(-2147483647-1)
# endif
# define INT_FAST64_MIN		(-__INT64_C(9223372036854775807)-1)
/* Maximum of fast signed integral types having a minimum size.  */
# define INT_FAST8_MAX		(127)
# if __WORDSIZE == 64
#  define INT_FAST16_MAX	(9223372036854775807L)
#  define INT_FAST32_MAX	(9223372036854775807L)
# else
#  define INT_FAST16_MAX	(2147483647)
#  define INT_FAST32_MAX	(2147483647)
# endif
# define INT_FAST64_MAX		(__INT64_C(9223372036854775807))

/* Maximum of fast unsigned integral types having a minimum size.  */
# define UINT_FAST8_MAX		(255)
# if __WORDSIZE == 64
#  define UINT_FAST16_MAX	(18446744073709551615UL)
#  define UINT_FAST32_MAX	(18446744073709551615UL)
# else
#  define UINT_FAST16_MAX	(4294967295U)
#  define UINT_FAST32_MAX	(4294967295U)
# endif
# define UINT_FAST64_MAX	(__UINT64_C(18446744073709551615))


/* Values to test for integral types holding `void *' pointer.  */
# if __WORDSIZE == 64
#  define INTPTR_MIN		(-9223372036854775807L-1)
#  define INTPTR_MAX		(9223372036854775807L)
#  define UINTPTR_MAX		(18446744073709551615UL)
# else
#  define INTPTR_MIN		(-2147483647-1)
#  define INTPTR_MAX		(2147483647)
#  define UINTPTR_MAX		(4294967295U)
# endif


/* Minimum for largest signed integral type.  */
# define INTMAX_MIN		(-__INT64_C(9223372036854775807)-1)
/* Maximum for largest signed integral type.  */
# define INTMAX_MAX		(__INT64_C(9223372036854775807))

/* Maximum for largest unsigned integral type.  */
# define UINTMAX_MAX		(__UINT64_C(18446744073709551615))


/* Limits of other integer types.  */

/* Limits of `ptrdiff_t' type.  */
# if __WORDSIZE == 64
#  define PTRDIFF_MIN		(-9223372036854775807L-1)
#  define PTRDIFF_MAX		(9223372036854775807L)
# else
#  define PTRDIFF_MIN		(-2147483647-1)
#  define PTRDIFF_MAX		(2147483647)
# endif

/* Limits of `sig_atomic_t'.  */
# define SIG_ATOMIC_MIN		(-2147483647-1)
# define SIG_ATOMIC_MAX		(2147483647)

/* Limit of `size_t' type.  */
# if __WORDSIZE == 64
#  define SIZE_MAX		(18446744073709551615UL)
# else
#  define SIZE_MAX		(4294967295U)
# endif

/* Limits of `wchar_t'.  */
# ifndef WCHAR_MIN
/* These constants might also be defined in <wchar.h>.  */
#  define WCHAR_MIN		__WCHAR_MIN
#  define WCHAR_MAX		__WCHAR_MAX
# endif

/* Limits of `wint_t'.  */
# define WINT_MIN		(0u)
# define WINT_MAX		(4294967295u)

#endif	/* C++ && limit macros */


/* The ISO C99 standard specifies that in C++ implementations these
   should only be defined if explicitly requested.  */
#if !defined __cplusplus || defined __STDC_CONSTANT_MACROS

/* Signed.  */
# define INT8_C(c)	c
# define INT16_C(c)	c
# define INT32_C(c)	c
# if __WORDSIZE == 64
#  define INT64_C(c)	c ## L
# else
#  define INT64_C(c)	c ## LL
# endif

/* Unsigned.  */
# define UINT8_C(c)	c
# define UINT16_C(c)	c
# define UINT32_C(c)	c ## U
# if __WORDSIZE == 64
#  define UINT64_C(c)	c ## UL
# else
#  define UINT64_C(c)	c ## ULL
# endif

/* Maximal type.  */
# if __WORDSIZE == 64
#  define INTMAX_C(c)	c ## L
#  define UINTMAX_C(c)	c ## UL
# else
#  define INTMAX_C(c)	c ## LL
#  define UINTMAX_C(c)	c ## ULL
# endif

#endif	/* C++ && constant macros */

#endif /* stdint.h */

Charles Pegge · « **Reply #14 on:** August 23, 2012, 01:57:47 PM »

Parsing words and symbols

Code: C

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdint.h>
 
//BWORD
//parsing
 
char SkipSpace(char*s,int*i)
{
  char c;
  while (1)
  {
    c=s[*i];
    if (c==0) break;
    if (c>32) break;
    (*i)++;
  }
  return c;
}
 
 
void EndLine(char*s,int*i)
{
  char c;
  while (1)
  {
    c=s[*i];
    if ((c==0)||(c==10)||(c==13)) break;
    (*i)++;
  }
}
 
 
void SkipLine(char*s,int*i)
{
  char c;
  while (1)
  {
    c=s[*i];
    if (c==0) break;
    if (c==10)
    {
      (*i)++;
      break;
    }
    if (c==13)
    {
      *i++;
      if (s[*i]==10)
      {
        (*i)++;
        break;
      }
    }
    (*i)++;
  }
}
 
 
char SkipLSpace(char*s,int*i)
{
  char c;
  while (1)
  {
    c=s[*i];
    if (c==0)  break;
    if (c==10) break;
    if (c==13) break;
    if (c>32)  break;
    (*i)++;
  }
  return c;
}
 
 
char SkipWord(char*s,int*i)
{
  char c,d;
  c=s[*i];
  //if (strchr(".,;:!£$%^&*()+-*/\\|={}[]<>?@~'",c)!=NULL)
  //{
  //  (*i)++;
  //  return c;
  //}
  //
  //QUOTES
  if ((c==34) || (c==96))
  {
    (*i)++;
    while (1)
    {
      d=s[*i];
      if ((d==c) || (c==0)) break;
      (*i)++;
    }
    (*i)++;
    return c;
  }
  if (c==35) goto morechars;
  if (c<48)  goto singles;
  if (c<58)  goto morechars;
  if (c<65)  goto singles;
  if (c<91)  goto morechars;
  if (c==95) goto morechars;
  if (c<97)  goto singles;
  if (c<123) goto morechars;
  if (c<128) goto singles;
  //
  singles:
  //
  (*i)++;
  return c;
  //
  morechars:
  //
  while (1)
  {
    (*i)++;
    c=s[*i];
    if (c==35) continue;
    if (c<48)  break;
    if (c<58)  continue;
    if (c<65)  break;
    if (c<91)  continue;
    if (c==95) continue;
    if (c<97)  break;
    if (c<123) continue;
    if (c<128) break;
  }
  return c;
}
 
 
typedef struct
{
  char ascw,ascn;
  int  swd,nwd,lenw;
} bword;
 
 
void wword(bword*w,char*s,int*i)
{
  w->ascw=SkipSpace(s,i);
  int b=*i;
  w->swd=b;
  SkipWord(s,i);
  w->lenw=*i-b;
  w->ascn=SkipLSpace(s,i);
  w->nwd=*i;
}
 
 
void ShowWord(bword*w,char*s)
{
  char wr[128];
  strncpy(wr,s+w->swd,w->lenw);
  wr[w->lenw]=(char) 0;
  printf("%s ",wr);
}
 
 
/*
#include <stdint.h>
int8_t ii;
int32_t jj;
uint64_t kk;
*/
 
int main()
{
  //TESTS
  //
  char s[ ]="\
  Hello Brave New World!!\\\
  ";
  int  i=0,j;
  bword w;
  for (j=1;j<8;j++)
  {
    wword(&w,s,&i);
    ShowWord(&w,s);
    if (s[ i]==0) break;
  }
  printf("\n%i",j);
  printf("\n%i",w.ascw);
  printf("\n%i",w.ascn);
}
 

Charles

Oxygen Basic

News:

Author Topic: C Lessons (Read 10480 times)

Charles Pegge

C Lessons

Peter

Re: C Lessons

Charles Pegge

Re: C Lessons

Peter

Re: C Lessons

Charles Pegge

Re: C Lessons

efgee

Re: C Lessons

Charles Pegge

Re: C Lessons

Charles Pegge

Re: C Lessons

Charles Pegge

Re: C Lessons

JRS

Re: C Lessons

Charles Pegge

Re: C Lessons

JRS

Re: C Lessons

Charles Pegge

Re: C Lessons

JRS

Re: C Lessons

Charles Pegge

Re: C Lessons