source: trunk/src/libc.i@ 4

#line 1 "libc.c"





















#line 1 "os2ahci.h"





















































































































































































































































































typedef unsigned char    u8;
typedef unsigned short   u16;
typedef unsigned long    u32;


typedef struct {
  u32   options;         
  u32   status;          
  u32   tbl_addr;        
  u32   tbl_addr_high;   
  u32   reserved[4];
} AHCI_CMD_HDR;


typedef struct {
  u32   addr;            
  u32   addr_hi;         
  u32   reserved;
  u32   flags_size;      
} AHCI_SG;





typedef struct {
  u16   vendor;          
  u16   device;          
  u16   subvendor;       
  u16   subdevice;       
  u32   class;           
  u32   class_mask;      
  u32   board;           
} PCI_ID;


typedef struct D_INFO {
  struct D_INFO  *next;         
  char            vendor[8];    
  char            product[8];   
  char            revision[8];  
  u32             sectors;      
};


typedef struct P_INFO {
  struct P_INFO  *p_info;       
} P_INFO;


typedef struct AD_INFO {
  struct AD_INFO  *next;        
  PCI_ID          *pci_id;      
  P_INFO           ports[32];   
  int              intr;        
  u8              *mmio;        
  u8              *dma_buf;     
} AD_INFO;






extern int         debug;          

extern PCI_ID      pci_ids[];      
extern AD_INFO    *ai_root;        

#line 23 "libc.c"

#line 1 "i:/c600/include\\stdarg.h"














#line 16 "i:/c600/include\\stdarg.h"





#line 22 "i:/c600/include\\stdarg.h"










#line 33 "i:/c600/include\\stdarg.h"
#line 34 "i:/c600/include\\stdarg.h"


typedef char  *va_list;

#line 39 "i:/c600/include\\stdarg.h"




#line 25 "libc.c"
#line 1 "i:/c600/include\\stdio.h"














#line 16 "i:/c600/include\\stdio.h"





#line 22 "i:/c600/include\\stdio.h"


typedef unsigned int size_t;

#line 27 "i:/c600/include\\stdio.h"













#line 41 "i:/c600/include\\stdio.h"



struct _iobuf {
        char  *_ptr;
        int   _cnt;
        char  *_base;
        char  _flag;
        char  _file;
        };
typedef struct _iobuf FILE;

#line 54 "i:/c600/include\\stdio.h"

















































extern FILE _near _cdecl _iob[];
#line 105 "i:/c600/include\\stdio.h"
#line 106 "i:/c600/include\\stdio.h"





typedef long fpos_t;

#line 114 "i:/c600/include\\stdio.h"




























int  _cdecl _filbuf(FILE  *);
int  _cdecl _flsbuf(int, FILE  *);
FILE  *  _cdecl _fsopen(const char  *,
        const char  *, int);
void  _cdecl clearerr(FILE  *);
int  _cdecl fclose(FILE  *);
int  _cdecl fcloseall(void);
FILE  *  _cdecl fdopen(int, const char  *);
int  _cdecl feof(FILE  *);
int  _cdecl ferror(FILE  *);
int  _cdecl fflush(FILE  *);
int  _cdecl fgetc(FILE  *);
int  _cdecl fgetchar(void);
int  _cdecl fgetpos(FILE  *, fpos_t  *);
char  *  _cdecl fgets(char  *, int, FILE  *);
int  _cdecl fileno(FILE  *);
int  _cdecl flushall(void);
FILE  *  _cdecl fopen(const char  *,
        const char  *);
int  _cdecl fprintf(FILE  *, const char  *, ...);
int  _cdecl fputc(int, FILE  *);
int  _cdecl fputchar(int);
int  _cdecl fputs(const char  *, FILE  *);
size_t  _cdecl fread(void  *, size_t, size_t, FILE  *);
FILE  *  _cdecl freopen(const char  *,
        const char  *, FILE  *);
int  _cdecl fscanf(FILE  *, const char  *, ...);
int  _cdecl fsetpos(FILE  *, const fpos_t  *);
int  _cdecl fseek(FILE  *, long, int);
long  _cdecl ftell(FILE  *);
size_t  _cdecl fwrite(const void  *, size_t, size_t,
        FILE  *);
int  _cdecl getc(FILE  *);
int  _cdecl getchar(void);
char  *  _cdecl gets(char  *);
int  _cdecl getw(FILE  *);
void  _cdecl perror(const char  *);
int  _cdecl _pclose(FILE  *);
FILE  *  _cdecl _popen(const char  *,
        const char  *);
int  _cdecl printf(const char  *, ...);
int  _cdecl putc(int, FILE  *);
int  _cdecl putchar(int);
int  _cdecl puts(const char  *);
int  _cdecl putw(int, FILE  *);
int  _cdecl remove(const char  *);
int  _cdecl rename(const char  *, const char  *);
void  _cdecl rewind(FILE  *);
int  _cdecl rmtmp(void);
int  _cdecl scanf(const char  *, ...);
void  _cdecl setbuf(FILE  *, char  *);
int  _cdecl setvbuf(FILE  *, char  *, int, size_t);
int  _cdecl sprintf(char  *, const char  *, ...);
int  _cdecl sscanf(const char  *, const char  *, ...);
char  *  _cdecl tempnam(char  *, char  *);
FILE  *  _cdecl tmpfile(void);
char  *  _cdecl tmpnam(char  *);
int  _cdecl ungetc(int, FILE  *);
int  _cdecl unlink(const char  *);
int  _cdecl vfprintf(FILE  *, const char  *, va_list);
int  _cdecl vprintf(const char  *, va_list);
int  _cdecl vsprintf(char  *, const char  *, va_list);

#line 206 "i:/c600/include\\stdio.h"



















#line 26 "libc.c"
#line 1 "i:/c600/include\\string.h"














#line 16 "i:/c600/include\\string.h"





#line 22 "i:/c600/include\\string.h"








void  *  _cdecl memccpy(void  *, const void  *,
        int, unsigned int);
void  *  _cdecl memchr(const void  *, int, size_t);
int  _cdecl memcmp(const void  *, const void  *,
        size_t);
int  _cdecl memicmp(const void  *, const void  *,
        unsigned int);
void  *  _cdecl memcpy(void  *, const void  *,
        size_t);
void  *  _cdecl memmove(void  *, const void  *,
        size_t);
void  *  _cdecl memset(void  *, int, size_t);
void  _cdecl movedata(unsigned int, unsigned int, unsigned int,
        unsigned int, unsigned int);
char  *  _cdecl strcat(char  *, const char  *);
char  *  _cdecl strchr(const char  *, int);
int  _cdecl strcmp(const char  *, const char  *);
int  _cdecl strcmpi(const char  *, const char  *);
int  _cdecl strcoll(const char  *, const char  *);
int  _cdecl stricmp(const char  *, const char  *);
char  *  _cdecl strcpy(char  *, const char  *);
size_t  _cdecl strcspn(const char  *, const char  *);
char  *  _cdecl strdup(const char  *);
char  *  _cdecl _strerror(const char  *);
char  *  _cdecl strerror(int);
size_t  _cdecl strlen(const char  *);
char  *  _cdecl strlwr(char  *);
char  *  _cdecl strncat(char  *, const char  *,
        size_t);
int  _cdecl strncmp(const char  *, const char  *,
        size_t);
int  _cdecl strnicmp(const char  *, const char  *,
        size_t);
char  *  _cdecl strncpy(char  *, const char  *,
        size_t);
char  *  _cdecl strnset(char  *, int, size_t);
char  *  _cdecl strpbrk(const char  *,
        const char  *);
char  *  _cdecl strrchr(const char  *, int);
char  *  _cdecl strrev(char  *);
char  *  _cdecl strset(char  *, int);
size_t  _cdecl strspn(const char  *, const char  *);
char  *  _cdecl strstr(const char  *,
        const char  *);
char  *  _cdecl strtok(char  *, const char  *);
char  *  _cdecl strupr(char  *);
size_t  _cdecl strxfrm (char  *, const char  *,
        size_t);



void _far * _far _cdecl _fmemccpy(void _far *, const void _far *,
        int, unsigned int);
void _far * _far _cdecl _fmemchr(const void _far *, int, size_t);
int _far _cdecl _fmemcmp(const void _far *, const void _far *,
        size_t);
void _far * _far _cdecl _fmemcpy(void _far *, const void _far *,
        size_t);
int _far _cdecl _fmemicmp(const void _far *, const void _far *,
        unsigned int);
void _far * _far _cdecl _fmemmove(void _far *, const void _far *,
        size_t);
void _far * _far _cdecl _fmemset(void _far *, int, size_t);
char _far * _far _cdecl _fstrcat(char _far *, const char _far *);
char _far * _far _cdecl _fstrchr(const char _far *, int);
int _far _cdecl _fstrcmp(const char _far *, const char _far *);
int _far _cdecl _fstricmp(const char _far *, const char _far *);
char _far * _far _cdecl _fstrcpy(char _far *, const char _far *);
size_t _far _cdecl _fstrcspn(const char _far *, const char _far *);
char _far * _far _cdecl _fstrdup(const char _far *);
char _near * _far _cdecl _nstrdup(const char _far *);
size_t _far _cdecl _fstrlen(const char _far *);
char _far * _far _cdecl _fstrlwr(char _far *);
char _far * _far _cdecl _fstrncat(char _far *, const char _far *,
        size_t);
int _far _cdecl _fstrncmp(const char _far *, const char _far *,
        size_t);
int _far _cdecl _fstrnicmp(const char _far *, const char _far *,
        size_t);
char _far * _far _cdecl _fstrncpy(char _far *, const char _far *,
        size_t);
char _far * _far _cdecl _fstrnset(char _far *, int, size_t);
char _far * _far _cdecl _fstrpbrk(const char _far *,
        const char _far *);
char _far * _far _cdecl _fstrrchr(const char _far *, int);
char _far * _far _cdecl _fstrrev(char _far *);
char _far * _far _cdecl _fstrset(char _far *, int);
size_t _far _cdecl _fstrspn(const char _far *, const char _far *);
char _far * _far _cdecl _fstrstr(const char _far *,
        const char _far *);
char _far * _far _cdecl _fstrtok(char _far *, const char _far *);
char _far * _far _cdecl _fstrupr(char _far *);
#line 27 "libc.c"







static void long_to_asc(long val, char *buf, int radix);



static char hex_digits[] = "0123456789abcdef";








int vsprintf(char *buf, const char *fmt, va_list va)
{
  char *orig = buf;
  char *s;
  int lmod;

  for (; *fmt != '\0'; fmt++) {
    switch (*fmt) {

    case '%':
      lmod = (fmt[1] == 'l') ? 1 : 0;
      fmt += lmod;
      switch (fmt[1]) {

      case 's':
        if ((s = ((char *  *)(va += sizeof(char *)))[-1]) == ((void *)0))
          s = "[null]";
        while ((*buf = *(s++)) != '\0')
          buf++;
        break;
      
      case 'd':
        long_to_asc((lmod) ? ((long  *)(va += sizeof(long)))[-1] : ((int  *)(va += sizeof(int)))[-1], buf, 10);
        buf += strlen(buf);
        break;

      case 'x':
        long_to_asc((lmod) ? ((long  *)(va += sizeof(long)))[-1] : ((int  *)(va += sizeof(int)))[-1], buf, 16);
        buf += strlen(buf);
        break;

      default:
        *(buf++) = *fmt;
        break;
      }

    case '\n':
      *(buf++) = '\r';
      *(buf++) = '\n';
      break;

    default:
      *(buf++) = *fmt;
      break;

    }
  }

  *buf = '\0';
  return((size_t) (buf - orig));
}




int sprintf(char *buf, const char *fmt, ...)
{
  va_list va;

  va = (va_list)&fmt + sizeof(fmt);
  return(vsprintf(buf, fmt, va));
}







void dprintf(const char *fmt, ...)
{
  static long mutex;
  static char buf[1024];
  va_list va;
  char *s;

  if (!debug) {
    return;
  }

  DevHelp_SemRequest(&mutex, -1L);

  va = (va_list)&fmt + sizeof(fmt);
  vsprintf(buf, fmt, va);

  
  for (s = buf; *s != '\0'; s++) {
    while (!inp(0x3fd) & 0x40);         
    outp(0x3f8, *s);                    
  }

  DevHelp_SemClear(&mutex);
}




void *memmove(void *v_dst, void *v_src, size_t len)
{
  char *dst = (char *) v_dst;
  char *src = (char *) v_src;
  void *orig = dst;

  if (dst <= src || dst > src + len) {
    
    while (len--) {
      *(dst++) = *(src++);
    }

  } else {
    


    src += len;
    dst += len;
    while (len--) {
      *(--dst) = *(--src);
    }
  }

  return(orig);
}




size_t strlen(const char *s)
{
  size_t len = 0;

  while (*(s++) != '\0') {
    len++;
  }
  return(len);
}




char *strcpy(char *dst, const char *src)
{
  char *orig = dst;

  while ((*(dst++) = *(src++)) != '\0');
  return(orig);
}




static void long_to_asc(long val, char *buf, int radix)
{
  char tmp[80];
  char *s;

  if (radix > 16) {
    sprintf(buf, "n/a");
  }

  tmp[sizeof(tmp) - 1] = '\0';

  for (s = tmp + sizeof(tmp) - 2; s > tmp; s--) {
    *s = hex_digits[val % radix];
    if ((val /= radix) == 0) {
      break;
    }
  }

  strcpy(buf, s);
}