/[gcl]/gcl/h/object.h
ViewVC logotype

Diff of /gcl/h/object.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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;

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26