comparison src/lread.c @ 4844:91b3d00e717f

Various cleanups for Dynarr code, from Unicode-internal ws dynarr.c: Add comment explaining Dynarr_largest() use. dynarr.c: In Dynarr_insert_many(), don't call Dynarr_resize() unless we actually need to resize, and note that an assert() that we are inserting at or below the current end could be wrong if code wants to access stuff between `len' and `largest'. dynarr.c: Don't just Dynarr_resize() to the right size; instead use Dynarr_reset() then Dynarr_add_many(), so that the 'len' and 'largest' and such get set properly. dynarr.c, faces.c, gutter.c, lisp.h, lread.c, lrecord.h, redisplay-output.c, redisplay.c: Rename Dynarr member 'cur' to 'len' since it's the length of the dynarr, not really a pointer to a "current insertion point". Use type_checking_assert() instead of just assert() in some places. Add additional assertions (Dynarr_verify*()) to check that we're being given positions within range. Use them in Dynarr_at, Dynarr_atp, etc. New Dynarr_atp_allow_end() for retrieving a pointer to a position that might be the element past the last one. New Dynarr_past_lastp() to retrieve a pointer to the position past the last one, using Dynarr_atp_allow_end(). Change code appropriately to use it. Rename Dynarr_end() to Dynarr_lastp() (pointer to the last element) for clarity, and change code appropriately to use it. Change code appropriately to use Dynarr_begin(). Rewrite Dynarr_add_many(). New version can accept a NULL pointer to mean "reserve space but don't put anything in it". Used by stack_like_malloc().
author Ben Wing <ben@xemacs.org>
date Wed, 13 Jan 2010 04:07:42 -0600
parents 8f1ee2d15784
children 17362f371cc2 19a72041c5ed
comparison
equal deleted inserted replaced
4843:715b15990d0a 4844:91b3d00e717f
2152 st.keywords = Dynarr_new (structure_keyword_entry); 2152 st.keywords = Dynarr_new (structure_keyword_entry);
2153 st.validate = validate; 2153 st.validate = validate;
2154 st.instantiate = instantiate; 2154 st.instantiate = instantiate;
2155 Dynarr_add (the_structure_type_dynarr, st); 2155 Dynarr_add (the_structure_type_dynarr, st);
2156 2156
2157 return Dynarr_atp (the_structure_type_dynarr, 2157 return Dynarr_lastp (the_structure_type_dynarr);
2158 Dynarr_length (the_structure_type_dynarr) - 1);
2159 } 2158 }
2160 2159
2161 void 2160 void
2162 define_structure_type_keyword (struct structure_type *st, Lisp_Object keyword, 2161 define_structure_type_keyword (struct structure_type *st, Lisp_Object keyword,
2163 int (*validate) (Lisp_Object keyword, 2162 int (*validate) (Lisp_Object keyword,