Re: feature request

[Aditya Mahajan <adityam@umich.edu>]

[-- Attachment #1: Type: TEXT/PLAIN, Size: 680 bytes --]

On Mon, 14 Nov 2011, Hans Hagen wrote:

> On 14-11-2011 09:47, Aditya Mahajan wrote:
>>  On Fri, 11 Nov 2011, Steffen Wolfrum wrote:
>> 
>> >  quite often I wish we could have a kind of in line comment:
>> >  Something like ¿this is my comment¡ this.
>> > 
>> >  I assume it is not trivial due to catcode issues, to say the least.
>> >  But nevertheless, as it is getting close to christmas, I just wanted
>> >  to mention this idea here.
>>
>>  As long as there is no line break in the comment, the following lua
>>  based solution works (inspired by m-translate)
>> 
> or ...
>

Why not go all the way with full multiline comments then? See attached.

Aditya

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: TEXT/x-tex; name=comment.tex, Size: 3106 bytes --]

\startluacode
     thirddata          = thirddata or { }
     local comments     = { filters = { } }
     thirddata.comments = comments

     local textlineactions = resolvers.openers.helpers.textlineactions
     local sequencers      = utilities.sequencers
     local constants       = interfaces.constants

     local gsub, find, format = string.gsub, string.find, string.format

     function comments.install(name,settings)
         local settings = utilities.parsers.settings_to_hash(settings)
         local start = string.escapedpattern(settings[constants.start] or "")
         local stop  = string.escapedpattern(settings[constants.stop] or "")
         local any   = ".-"
         if start ~= "" and stop ~= "" then
            local strip_inline = function(s) return gsub(s, start .. any .. stop, "", 1) end
            local strip_start  = function(s) return gsub(s, start .. any,         "", 1) end
            local strip_stop   = function(s) return gsub(s, "^"   .. any .. stop, "", 1) end 
            local insideComment = false 
            comments.filters[name] = function(s)
                local filter = comments.filters[name]
                if s == "" then
                    return s
                elseif insideComment then
                    if find(s,stop) then
                        insideComment = false
                        return filter(strip_stop(s))
                    else
                        return ""
                    end
                elseif find(s,start) then
                    if find(s, stop) then
                        return filter(strip_inline(s))
                    else
                        insideComment = true 
                        return strip_start(s)
                    end
                else
                    return s
                end
             end
             sequencers.appendaction(textlineactions,"after",format("thirddata.comments.filters.%s",name))
             comments.disable(name)
         end
     end

     function comments.enable(name)
        sequencers.enableaction(textlineactions,format("thirddata.comments.filters.%s",name))
     end

     function comments.disable(name)
        sequencers.disableaction(textlineactions,format("thirddata.comments.filters.%s",name))
     end

\stopluacode

\unprotect

\unexpanded\def\installcomments{\dodoubleargument\doinstallcomments}

\def\doinstallcomments[#1][#2]%
    {\ctxlua{thirddata.comments.install(\!!bs#1\!!es,\!!bs\detokenize{#2}\!!es)}}

\unexpanded\def\enablecomments[#1]%
   {\ctxlua{thirddata.comments.enable (\!!bs#1\!!es)}}

\unexpanded\def\disablecomments[#1]%
   {\ctxlua{thirddata.comments.disable(\!!bs#1\!!es)}}

\protect

\installcomments[test] [start=/*,stop=*/]

\starttext
\enablecomments[test]

\section{Test of /*inline*/ comments}
/* Test for multiline comments
 * to see if they work
 */

Another test for /* inline comments */ with multiple /* commented lines
that span /* false nested comments as well */ to see if it works

\stoptext

[-- Attachment #3: Type: text/plain, Size: 485 bytes --]

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : http://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________