Annotation of OpenXM/src/asir-doc/int-parts/datatype/string.texi, Revision 1.1
1.1 ! noro 1: @comment $OpenXM$
! 2: @section $BJ8;zNs(B
! 3:
! 4: @example
! 5: struct oSTRING @{ $BJ8;zNs(B
! 6: short id; $B<1JL;R(B (= O_STR)
! 7: short pad;
! 8: char *body; 0 $B=*C<(B C $BJ8;zNs$X$N%]%$%s%?(B
! 9: @} *VECT;
! 10: @end example
! 11:
! 12: @noindent
! 13: C $B$N(B 0 $B=*C<J8;zNs$N(B wrapper $B$G$"$k(B. $B2C;;(B ($BJ8;zNs$N@\B3(B), $BHf3S1i;;$N$_$,(B
! 14: $BMQ0U$5$l$F$$$k(B.
! 15:
! 16: @subsection $BJ8;zNs$N@8@.(B
! 17: @example
! 18: #include "ca.h"
! 19:
! 20: MKSTR(m,b) (macro; STRING m; char *b)
! 21:
! 22: 0 $B=*C<(B C $B$NJ8;zNs(B b $B$r(B Risa $BJ8;zNs(B object m $B$KJQ49$9$k(B.
! 23: @end example
! 24:
! 25: @subsection $B;MB'(B
! 26: @example
! 27: #include "ca.h"
! 28:
! 29: void addstr(VL vl,STRING a, STRING b, STRING *rp)
! 30: *rp = a->body $B$H(B b->body $B$r7R$2$?J8;zNs(B
! 31:
! 32: int compstr(VL vl,STRING a,STRING b)
! 33: $BI8=`%i%$%V%i%j4X?t(B strcmp() $B$K$h$kHf3S7k2L$rJV$9(B.
! 34: @end example
! 35:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>