Go to the documentation of this file.
6 static char *
rcsid=
"@(#)$Id$";
31 register int newval=ckintval(argv[2]);
39 a->c.str.chars[
n]=newval;
46 {
ckarg(1);
n=ckintval(argv[0]);
47 return((isupper(
n))?
T:
NIL);}
53 {
ckarg(1);
n=ckintval(argv[0]);
54 return((islower(
n))?
T:
NIL);}
60 {
ckarg(1);
n=ckintval(argv[0]);
61 return((isalpha(
n))?
T:
NIL);}
67 {
ckarg(1);
n=ckintval(argv[0]);
68 return((isdigit(
n))?
T:
NIL);}
74 {
ckarg(1);
n=ckintval(argv[0]);
75 return((isalnum(
n))?
T:
NIL);}
81 {
ckarg(1);
n=ckintval(argv[0]);
82 return((islower(
n))?(
makeint(toupper(
n))):argv[0]);}
88 {
ckarg(1);
n=ckintval(argv[0]);
89 return((isupper(
n))?(
makeint(tolower(
n))):argv[0]);}
95 {
register byte *str1, *str2;
96 int start1,end1,start2,end2;
100 start1=ckintval(argv[2]); end1=ckintval(argv[3]);
101 end1=
min(end1,vecsize(s1));
102 start2=ckintval(argv[4]); end2=ckintval(argv[5]);
103 end2=
min(end2,vecsize(s2));
105 if (len!=end2-start2)
return(
NIL);
106 str1= &s1->
c.
str.
chars[start1]; str2= &s2->c.str.chars[start2];
107 while (len-->0)
if (*str1++ != *str2++)
return(
NIL);
114 {
register byte *str1, *str2;
115 int start1,end1,start2,end2,ch1,ch2;
119 start1=ckintval(argv[2]); end1=ckintval(argv[3]); end1=
min(end1,vecsize(s1));
120 start2=ckintval(argv[4]); end2=ckintval(argv[5]); end2=
min(end2,vecsize(s2));
122 if (len!=end2-start2)
return(
NIL);
123 str1= &s1->
c.
str.
chars[start1]; str2= &s2->c.str.chars[start2];
125 ch1= *str1++; ch2= *str2++;
126 if (islower(ch1)) ch1=toupper(ch1);
127 if (islower(ch2)) ch2=toupper(ch2);
128 if (ch1!=ch2)
return(
NIL);}
136 #define eusstrcmp(a,b) strcmp((char *)(a), (char *)(b))
pointer LOWCASEP(context *ctx, int n, argv)
defun("ADR_TO_STRING", mod, ADR_TO_STRING)
pointer DIGITP(context *ctx, int n, argv)
pointer STR_GE(context *ctx, int n, argv)
pointer STR_LE(context *ctx, int n, argv)
pointer UPCASEP(context *ctx, int n, argv)
pointer SETCHAR(context *ctx, int n, argv)
pointer STRINGEQ(context *ctx, int n, argv)
pointer ALPHAP(context *ctx, int n, argv)
pointer STRINGEQUAL(context *ctx, int n, argv)
pointer error(enum errorcode ec,...) pointer error(va_alist) va_dcl
pointer STR_EQ(context *ctx, int n, argv)
pointer CHDOWNCASE(context *ctx, int n, argv)
void charstring(context *ctx, pointer mod)
pointer CHUPCASE(context *ctx, int n, argv)
pointer STR_GT(context *ctx, int n, argv)
pointer STR_LT(context *ctx, int n, argv)
pointer ALNUMP(context *ctx, int n, argv)
pointer EUSCHAR(context *ctx, int n, argv)
euslisp
Author(s): Toshihiro Matsui
autogenerated on Thu Jun 15 2023 02:06:43