diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-30 11:45:22 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-30 11:45:22 +0000 |
| commit | d9bb334bd4c7b936ac788e3a1e172c343747b001 (patch) | |
| tree | ef4e325395ba3ecae79e4549fb1962afb6666262 /gcc | |
| parent | a2095b788b40965606c43444230e464ada6638d2 (diff) | |
| download | gcc-d9bb334bd4c7b936ac788e3a1e172c343747b001.tar.gz | |
2011-08-30 Pierre Vittet <piervit@pvittet.com>
* melt/warmelt-base.melt (read_strv): New primitive.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@178291 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
| -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 |