diff options
author | Hans Hagen <pragma@wxs.nl> | 2020-06-25 12:13:32 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2020-06-25 12:13:32 +0200 |
commit | 2e657baa195eb8a5011a0f08eeb32bd3396ea1bf (patch) | |
tree | 183b7c9ce7a4f897c57743d6bbfe31ab0db42495 /tex/context/base/mkiv/buff-ini.lua | |
parent | 56c53b52bfa815946a62fdb28ee432b5d849b9c9 (diff) | |
download | context-2e657baa195eb8a5011a0f08eeb32bd3396ea1bf.tar.gz |
2020-06-25 10:58:00
Diffstat (limited to 'tex/context/base/mkiv/buff-ini.lua')
-rw-r--r-- | tex/context/base/mkiv/buff-ini.lua | 37 |
1 files changed, 20 insertions, 17 deletions
diff --git a/tex/context/base/mkiv/buff-ini.lua b/tex/context/base/mkiv/buff-ini.lua index e4f01c03f..b4290f8b1 100644 --- a/tex/context/base/mkiv/buff-ini.lua +++ b/tex/context/base/mkiv/buff-ini.lua @@ -46,8 +46,6 @@ local getcommand = token.get_command local getcsname = token.get_csname local getnextchar = token.get_next_char -local scanners = interfaces.scanners - local variables = interfaces.variables local settings_to_array = utilities.parsers.settings_to_array local formatters = string.formatters @@ -623,21 +621,26 @@ end tokens.pickup = pickup -scanners.pickupbuffer = function() - local name = scanstring() - local start = scanstring() - local stop = scanstring() - local finish = scanstring() - local catcodes = scaninteger() - local doundent = scanboolean() - local data = pickup(start,stop) - if doundent or (autoundent and doundent == nil) then - data = undent(data) - end - buffers.assign(name,data,catcodes) - -- context[finish]() - context(finish) -end +implement { + name = "pickupbuffer", + actions = function() + -- let's pickup all here (no arguments) + local name = scanstring() + local start = scanstring() + local stop = scanstring() + local finish = scanstring() + local catcodes = scaninteger() + local doundent = scanboolean() + -- could be a scanner: + local data = pickup(start,stop) + if doundent or (autoundent and doundent == nil) then + data = undent(data) + end + buffers.assign(name,data,catcodes) + -- context[finish]() + context(finish) + end +} local function savebuffer(list,name,prefix) -- name is optional if not list or list == "" then |