diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-10-20 12:51:40 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-10-20 12:51:40 +0000 |
| commit | 779f016e4fd1ec590e563add0c2eb44f96486a35 (patch) | |
| tree | 511a4b62bb99c7b960fb7aedf170409ba7fee64e /gcc/melt/warmelt-modes.melt | |
| parent | 9aa805feecdefd5c0742134f9e2c51a73a6edf92 (diff) | |
| download | gcc-779f016e4fd1ec590e563add0c2eb44f96486a35.tar.gz | |
2014-10-20 Basile Starynkevitch <basile@starynkevitch.net>
{{doc is generated again}}
* melt/warmelt-macro.melt (install_global_definition_binding):
Simplified an assertion for readability.
(mexpand_defselector): Don't check the selector classname if it is
the CLASS_SELECTOR symbol.
* melt/warmelt-modes.melt (makedoc_docmd): Improved to have a
basenv, etc...
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@216466 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/melt/warmelt-modes.melt')
| -rw-r--r-- | gcc/melt/warmelt-modes.melt | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/melt/warmelt-modes.melt b/gcc/melt/warmelt-modes.melt index 24858747d50..f6a500cf256 100644 --- a/gcc/melt/warmelt-modes.melt +++ b/gcc/melt/warmelt-modes.melt @@ -38,7 +38,8 @@ (defun install_melt_mode (mode :cstring modename) - :doc #{$INSTALL_MELT_MODE installs a new MELT mode, ie an instance of $CLASS_MELT_MODE. If $MODE has no :named_name use $MODENAME.}# + :doc #{$INSTALL_MELT_MODE installs a new MELT mode, ie an instance of $CLASS_MELT_MODE. +If $MODE has no :named_name use $MODENAME.}# (debug "install_melt_mode mode=" mode "\n.. modename=" modename) (assert_msg "check mode" (is_a mode class_melt_mode) mode) (let ( (cmdict (get_field :sysdata_mode_dict initial_system_data)) @@ -1782,6 +1783,7 @@ has basic debug support thru DEBUG, ASSERT_MSG..." (add2out sbuf "meltmakedoc_") (add2out_cident sbuf (make_string_nakedbasename discr_string outarg)) (strbuf2string discr_string sbuf))) + (basenv (fresh_env curenv (tuple 'base-doc outarg))) (macroenv (fresh_env curenv (tuple 'macro-doc outarg))) (mdinfo (instance class_makedoc_module_context @@ -1790,7 +1792,7 @@ has basic debug support thru DEBUG, ASSERT_MSG..." :mocx_expclassdict (make_mapstring discr_map_strings 131) :mocx_initialenv curenv :mocx_macroenv macroenv - :mocx_basenv curenv + :mocx_basenv basenv :mocx_funcount (make_integerbox discr_integer 0) :mocx_filetuple () :mocx_cheaderlist (make_list discr_list) @@ -1839,13 +1841,12 @@ has basic debug support thru DEBUG, ASSERT_MSG..." curargfile (debug "make_list curargfile=" curargfile) (let ( (curead (read_file curargfile)) - (newenv (fresh_env curenv (tuple 'env-doc modnam curargfile))) ) (debug "makedoc_docmd curead=" curead "\n..curargfile=" curargfile) (assert_msg "check curead" (is_list_or_null curead) curead) (inform_at () "mode makedoc read $1 s-expressions from file $2" (list_length curead) curargfile) (list_append2list rlist curead) - (let ( (curxlist (macroexpand_toplevel_list curead newenv macroexpand_1 mdinfo)) + (let ( (curxlist (macroexpand_toplevel_list curead basenv macroexpand_1 mdinfo)) (:long curxlistlen (list_length curxlist)) ) (inform_at () "mode makedoc macro-expanded $1 expressions from file $2" curxlistlen curargfile) |