C语言部分函数原型实现

学习、研究库函数的实现，能使你考虑问题更加严谨、全面，培养良好的编程风格和习惯

最近想学习一下C语言库函数的内部实现，于是自己简单地写了几个

贴出以下代码，希望大家能够帮忙指正、优化、完善，

特别是考虑不周和执行效率上给出指导意见

阅读本文前，可以先参考本博客的上一篇文章 C语言函数小集合

调试环境：
VS2008（C）

// sysFunc.cpp : Defines the entry point for the console application.
//
#include "stdafx.h"
#include <ctype.h>
/**************************************/
/**********     isalnum()     *********/
/**************************************/
int m_isalnum(char ch)
{
return ((ch<='9'&&ch>='0')
||(ch<='z'&&ch>='a')
||(ch<='Z'&&ch>='A'));
}
void fun_isalnum()
{
char str[]="A12a;D*s06";
int i;
printf("Test isalnum.: %s/n", str);
for(i=0; str[i]!=NULL; i++) /* #define NULL 0 */
{
if(m_isalnum(str[i])) /* isalnum(str[i]) */
printf("%c is a number or character./n", str[i]);
}
}
/**************************************/
/**********     isalpha()     *********/
/**************************************/
int m_isalpha(char ch)
{
return ((ch<='z'&&ch>='a')
||(ch<='Z'&&ch>='A'));
}
void fun_isalpha()
{
char str[]="A12a;D*s06";
int i;
printf("/nTest isalpha: %s/n", str);
for(i=0; str[i]!='/0'; i++)
{
if(m_isalpha(str[i])) /* isalpha(str[i]) */
printf("%c is a character./n", str[i]);
}
}
/**************************************/
/**********     islower()     *********/
/**************************************/
int m_islower(char ch)
{
return (ch<='z'&&ch>='a');
}
void fun_islower()
{
char str[]="A12a;D*s06";
int i;
printf("/nTest islower: %s/n", str);
for(i=0; str[i]!='/0'; i++)
{
if(m_islower(str[i])) /* isalpha(str[i]) */
printf("%c is a lower character./n", str[i]);
}
}
/**************************************/
/**********     isupper()     *********/
/**************************************/
int m_isupper(char ch)
{
return (ch<='Z'&&ch>='A');
}
void fun_isupper()
{
char str[]="A12a;D*s06";
int i;
printf("/nTest isupper: %s/n", str);
for(i=0; str[i]!='/0'; i++)
{
if(m_isupper(str[i])) /* isalpha(str[i]) */
printf("%c is a isupper character./n", str[i]);
}
}
/**************************************/
/**********     isxdigit()    *********/
/**************************************/
int m_isxdigit(char ch)
{
return (ch<='9'&&ch>='0');
}
void fun_isxdigit()
{
char str[]="A12a;D*s06";
int i;
printf("/nTest isxdigit: %s/n", str);
for(i=0; str[i]!='/0'; i++)
{
if(m_isxdigit(str[i])) /* isalpha(str[i]) */
printf("%c is a isxdigit character./n", str[i]);
}
}
/**************************************/
/**********     tolower()     *********/
/**************************************/
char m_tolower(char ch)
{
if(ch<='Z'&&ch>='A')
return (ch+'a'-'A');
return '0';
}
void fun_tolower()
{
char str[]="A12a;D*s06";
int i;
char ch;
printf("/nTest tolower: %s/n", str);
for(i=0; str[i]!='/0'; i++)
{
ch=str[i];
if(m_isalpha(ch)) /* isalpha(str[i]) */
{
if(ch<='Z'&&ch>='A')
ch=m_tolower(ch);
printf("%c is a tolower character./n", ch);
}
}
}
/**************************************/
/**********     toupper()     *********/
/**************************************/
char m_toupper(char ch)
{
if(ch<='z'&&ch>='a')
return (ch+'A'-'a');
return '0';
}
void fun_toupper()
{
char str[]="A12a;D*s06";
int i;
char ch;
printf("/nTest toupper: %s/n", str);
for(i=0; str[i]!='/0'; i++)
{
ch=str[i];
if(m_isalpha(ch)) /* isalpha(str[i]) */
{
if(ch<='z'&&ch>='a')
ch=m_toupper(ch);
printf("%c is a toupper character./n", ch);
}
}
}
/**************************************/
/**********       atoi()      *********/
/**************************************/
int m_atoi(char *str)
{
char *s=str;
int sum=0, flag=1;
if(*s==NULL)
return 0;
while(*s==' ') /* skip space */
s++;
if(*s=='-')
{
flag=-1;
s++;
}
while(*s!='/0' && m_isxdigit(*s))
{
sum=*s-'0'+sum*10;
s++;
}

return flag*sum;
}
void fun_atoi()
{
char str[]="   -123.456def";
printf("/nTest atoi.../n");
printf("%s char to int: %d/n", str, m_atoi(str));
}
/**************************************/
/**********       itoa()      *********/
/**************************************/
void m_itoa(int n)
{
char *s=NULL;
int i, j, mod, flag=0;
char num[20];
if(n<0)
{
flag=1;
n=-n;
}
i=0;
do
{
mod=n%10;
n=n/10;
num[i++]=mod+'0';
} while (n>0);

if(flag) /* print '-' */
printf("-");
for(j=i-1; j>=0; j--) /* print reverse char */
{
printf("%c", num[j]);
}
}
void fun_itoa()
{
int n=1234;
printf("/nTest itoa.../n");
printf("%d char to int: ", n);
m_itoa(n);
printf("/n");
}
/**************************************/
/**********       atof()      *********/
/**************************************/
float m_atof(char *str)
{
char *s=str;
if(*s=='/0')
return 0.0;

float sum=0.0;
int flag=1, pow=0;
if(*s=='-')
{
flag=-1;
s++;
}
while(*s!='/0')
{
if(*s=='.') /* dot */
{
pow=1;
s++;
continue;
}
sum=*s-'0'+sum*10;
pow*=10;
s++;
}
return flag*sum/pow;
}
void fun_atof()
{
char str[]="-123.345";
printf("/nTest atof.../n");
printf("%s char to int: %f/n", str, m_atof(str));
}
/**************************************/
/**********       ftoa()      *********/
/**************************************/
void m_ftoa(float n)
{
char num[20];
int i, j, val, mod, flag, pow;
float dot;
if(n<-1e-6)
{
flag=1;
n=-n;
}
i=0;
val=(int)n; /* integer */
dot=n-val;  /* decimal */
do
{
mod=val%10;
val=val/10;
num[i++]=mod+'0';
}while(val>0);
if(dot>1e-6)
{
num[i]='.';
pow=10;
}
do
{
dot=dot*pow;
mod=(int)dot;
num[i++]=mod+'0';
dot=dot-mod; /* error, why, float... help me */
} while (dot>1e-6);
if(flag)
printf("-");
for(j=i-1; j>=0; j--)
printf("%c", num[j]);
}
void fun_ftoa()
{
float n=-1234.5678;
printf("/nTest ftoa.../n");
printf("%d char to int: ", n);
m_ftoa(n);
printf("/n");
}
/**************************************/
/**********       main()      *********/
/**************************************/
int _tmain(int argc, _TCHAR* argv[])
{
fun_isalnum();
fun_isalpha();
fun_islower();
fun_isupper();
fun_isxdigit();
fun_tolower();
fun_toupper();
fun_atof();
fun_atoi();
fun_itoa();
fun_ftoa();
return 0;
}

运行结果：