On 2014-03-06 05:38, Hans Hagen wrote:
> On 3/6/2014 12:00 AM, Rik Kabel wrote:
>> On 2014-03-05 10:54, Wolfgang Schuster wrote:
>>>
>>> Am 05.03.2014 um 16:18 schrieb Wolfgang Schuster
>>> <schuster.wolfgang@gmail.com <mailto:schuster.wolfgang@gmail.com>>:
>>>
>>>>
>>>> Am 05.03.2014 um 16:07 schrieb Rik Kabel <context@rik.users.panix.com
>>>> <mailto:context@rik.users.panix.com>>:
>>>>
>>>>>> striplong
>>>>>>
>>>>>
>>>>> It would be nice if striplong worked, but the example fails when
>>>>> string.striplong is used in place of string.strip. The log says:
>>>>>
>>>>>     ! LuaTeX error [string "\directlua "]:1: attempt to call field
>>>>>     'striplong' (a nil value)
>>>>>     stack traceback:
>>>>>         [string "\directlua "]:1: in main chunk.
>>>>>
>>>>> Is the format of the call different than shown in the wiki, or is a
>>>>> different mechanism required to quote a potentially long string?
>>>>
>>>> The name of the function is “strings.striplong”.
>>>
>>> This should be “utilities.strings.striplong” but it has no effect
>>> because when take a look
>>> at the saved string in Lua you can see that blank lines are removed
>>> from the text.
>>>
>>> Wolfgang
>>
>> Indeed. This does build without error, but the
>> utilities.strings.striplong result is worse than the string.strip
>> result, with some additional whitespace at the end of the test string
>> from the earlier example.
>
> the definition of 'worse' depends on expectations and given the fact 
> that in tex a newline or two newlines in a row have a different 
> meaning it is just a guess what you want to achieve
>
> anyway, the next beta will have
>
> local str = table.concat( {
> "  ",
> "    aap",
> "  noot mies",
> "  ",
> "    ",
> " zus    wim jet",
> "zus    wim jet",
> "       zus    wim jet",
> "    ",
> }, "\n")
>
> utilities.strings.striplines(str,'prune'):
>
> [[aap
> noot mies
>
>
> zus    wim jet
> zus    wim jet
> zus    wim jet]]
>
> utilities.strings.striplines(str,'prune and collapse'):
>
> [[aap
> noot mies
>
> zus    wim jet
> zus    wim jet
> zus    wim jet]]
>
> utilities.strings.striplines(str,'prune and no empty'):
>
> [[aap
> noot mies
> zus    wim jet
> zus    wim jet
> zus    wim jet]]
>
> utilities.strings.striplines(str,'retain'):
>
> [[
> aap
> noot mies
>
>
> zus    wim jet
> zus    wim jet
> zus    wim jet
> ]]
>
> utilities.strings.striplines(str,'retain and collapse'):
>
> [[
> aap
> noot mies
>
> zus    wim jet
> zus    wim jet
> zus    wim jet
> ]]
>
> utilities.strings.striplines(str,'retain and no empty'):
>
> [[
> aap
> noot mies
> zus    wim jet
> zus    wim jet
> zus    wim jet
> ]]
>
> so you can choose what you like
>
> Hans

indeed, beauty is in the eye of the beholder.

Thank you for the flexible solution that allows each of us to find beauty.

Could you please ensure that this handles text in buffers the same way 
that it handles other strings? I noticed that this is handled a bit 
differently, as the following shows,but perhaps it is my clumsy coding. 
The buffer result is closer to what I expect in terms of internal 
whitespace, but still does not show expected trimming of leading and 
trailing whitespace. That trimming, of course, is the point of the exercise.


    \def\StringsStripLong#1%
       {\ctxlua{context(utilities.strings.striplong([==[#1]==]))}}

    \def\StringStrip#1%
       {\ctxlua{context(string.strip([==[#1]==]))}}

    \startbuffer[testbuffer]

    B This is a test.

    And it has an unexpected result.


    \stopbuffer

    \long\def\testmacro{

    M This is a test.

    And it has an unexpected result.


    }

    \starttext

    \subject{Lua string.strip passed TeX buffer}
    ¦\StringStrip{\getbuffer[testbuffer]}¦

    \subject{Lua string.strip passed TeX macro}
    ¦\StringStrip{\testmacro}¦

    \subject{Lua utilities.strings.striplong passed TeX buffer}
    ¦\StringsStripLong{\getbuffer[testbuffer]}¦

    \subject{Lua utilities.strings.striplong passed TeX macro}
    ¦\StringsStripLong{\testmacro}¦

    \stoptext

-- 
Rik