diff options
| -rw-r--r-- | gcc/ChangeLog.MELT | 3 | ||||
| -rw-r--r-- | gcc/melt/warmelt-base.melt | 5 |
2 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ChangeLog.MELT b/gcc/ChangeLog.MELT index 70ab7c0f3f0..0a01d04eb0a 100644 --- a/gcc/ChangeLog.MELT +++ b/gcc/ChangeLog.MELT @@ -1,3 +1,6 @@ +2011-08-30 Pierre Vittet <piervit@pvittet.com> + + * melt/warmelt-base.melt (read_strv): New primitive. 2011-08-30 Basile Starynkevitch <basile@starynkevitch.net> * melt-runtime.h (MELTOBMAG_BOX, meltgc_new_box, melt_box_content) diff --git a/gcc/melt/warmelt-base.melt b/gcc/melt/warmelt-base.melt index 349a5d600ca..a784a1447ed 100644 --- a/gcc/melt/warmelt-base.melt +++ b/gcc/melt/warmelt-base.melt @@ -275,6 +275,10 @@ number $NUM opaque location number $LOC.}# :doc #{Read from file named by the $FILNAM string balue a list of MELT s-expressions.}# #{(meltgc_read_file (melt_string_str((melt_ptr_t)($filnam)), (char*)0))}#) +(defprimitive read_strv (strv) :value + :doc #{Return the list of s-exprs contained in in parsed string + $STRV. $STRV can be a boxed string or a strbuf value.}# + #{(meltgc_read_from_val ((melt_ptr_t) ($STRV), NULL))}# ) ;; to signal an error in a source with some additional string value (defprimitive error_strv (loc :cstring cmsg :value strv) :void @@ -2603,6 +2607,7 @@ polyhedron values.}# pair_set_head ppstrbuf_mixbigint read_file + read_strv register_pass_execution_hook register_pragma_handler register_pre_genericize_hook_first |