capa/capa51/pProj/capaSubjective.c - diff

Return to capaSubjective.c CVS log

Up to [LON-CAPA] / capa / capa51 / pProj

version 1.1.1.1, 1999/09/28 21:26:22	version 1.2, 2000/01/31 18:34:13
Line 9 char* strtoupper(char* source)	Line 9 char* strtoupper(char* source)
{	{
char* result;	char* result;
int i,len=strlen(source);	int i,len=strlen(source);
result=capa_malloc(len,1);	result=capa_malloc(len+2,1);
for(i=0;i<len;i++) result[i]=toupper(source[i]);	for(i=0;i<len;i++) result[i]=toupper(source[i]);
	result[i]='\0';
return result;	return result;
}	}