12 lines
135 B
C
12 lines
135 B
C
|
#include "string.h"
|
||
|
|
|
||
|
|
/* $Header $ */
|
||
|
|
|
||
|
|
int _asc(str)
|
||
|
|
String *str;
|
||
|
|
{
|
||
|
|
if(str==0 || str->strval==0)
|
||
|
|
error(3);
|
||
|
|
return( *str->strval);
|
||
|
|
}
|