Parent Directory | Revision Log | Patch
revision 1.37 by camm, Wed Jun 22 01:37:25 2005 UTC | revision 1.38 by camm, Wed Jun 29 04:22:16 2005 UTC | |
---|---|---|
# | Line 448 struct string { /* string hea | Line 448 struct string { /* string hea |
448 | /* string length */ | /* string length */ |
449 | }; | }; |
450 | ||
451 | #define stack_string(a_,b_) struct string _s={0};\ | |
452 | object a_=(object)&_s;\ | |
453 | set_type_of((a_),t_string);\ | |
454 | (a_)->st.st_self=(b_);\ | |
455 | (a_)->st.st_dim=(a_)->st.st_fillp=strlen(b_); | |
456 | ||
457 | #define TYPE_ERROR(a_,b_) {stack_string(tp_err,"~S is not of type ~S.");\ | |
458 | Icall_error_handler(sKwrong_type_argument,tp_err,2,(a_),(b_));} | |
459 | ||
460 | struct ustring { | struct ustring { |
461 | ||
462 | FIRSTWORD; | FIRSTWORD; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |