lib/metalua/extension/H.mlua

-------------------------------------------------------------------------------
-- Copyright (c) 2006-2013 Fabien Fleutot and others.
--
-- All rights reserved.
--
-- This program and the accompanying materials are made available
-- under the terms of the Eclipse Public License v1.0 which
-- accompanies this distribution, and is available at
-- http://www.eclipse.org/legal/epl-v10.html
--
-- This program and the accompanying materials are also made available
-- under the terms of the MIT public license which accompanies this
-- distribution, and is available at http://www.lua.org/license.html
--
-- Contributors:
--     Fabien Fleutot - API and implementation
--
-------------------------------------------------------------------------------

require 'metalua.walk.id'
-{ extension 'log' }

mlp.expr.prefix:add{ '!', prec = 5,
   builder = function(_,x)
                local v = mlp.gensym()
                return `Stat{ +{ block:
                                 local -{v} = -{x};
                                 (-{v}).h_boundary=true },
                              v }
             end }

mlp.stat:add{ '!', mlp.expr, builder = |x| +{stat: (-{x[1]}).h_boundary=true } }

-- * if there's no boundary in it, is there a need to rename vars?
--   ==> first pass to mark binders which contain boundaries,
--       then 2nd pass only touched those which have a splice
--       in them.

return +{ require (-{ `String{ package.metalua_extension_prefix .. 'H-runtime' } }) }