beta 2013.05.19 19:27

1 files changed, 170 insertions, 170 deletions

diff --git a/scripts/context/lua/mtx-grep.lua b/scripts/context/lua/mtx-grep.lua
index dbcce67f6..cd4856040 100644
--- a/scripts/context/lua/mtx-grep.lua
+++ b/scripts/context/lua/mtx-grep.lua
@@ -1,170 +1,170 @@
-if not modules then modules = { } end modules ['mtx-babel'] = {
-    version   = 1.001,
-    comment   = "companion to mtxrun.lua",
-    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
-    copyright = "PRAGMA ADE / ConTeXt Development Team",
-    license   = "see context related readme files"
-}
-
-local helpinfo = [[
-<?xml version="1.0"?>
-<application>
- <metadata>
-  <entry name="name">mtx-grep</entry>
-  <entry name="detail">Simple Grepper</entry>
-  <entry name="version">0.10</entry>
- </metadata>
- <flags>
-  <category name="basic">
-   <subcategory>
-    <flag name="pattern"><short>search for pattern (optional)</short></flag>
-    <flag name="count"><short>count matches only</short></flag>
-    <flag name="nocomment"><short>skip lines that start with %% or #</short></flag>
-    <flag name="xml"><short>pattern is lpath expression</short></flag>
-   </subcategory>
-  </category>
- </flags>
- <comments>
-    <comment>patterns are lua patterns and need to be escaped accordingly</comment>
- </comments>
-</application>
-]]
-
-local application = logs.application {
-    name     = "mtx-grep",
-    banner   = "Simple Grepper 0.10",
-    helpinfo = helpinfo,
-}
-
-local report = application.report
-
-scripts      = scripts      or { }
-scripts.grep = scripts.grep or { }
-
-local find, format = string.find, string.format
-
-local cr       = lpeg.P("\r")
-local lf       = lpeg.P("\n")
-local crlf     = cr * lf
-local newline  = crlf + cr + lf
-local content  = lpeg.C((1-newline)^0) * newline + lpeg.C(lpeg.P(1)^1)
-
-local write_nl = texio.write_nl
-
- -- local pattern = "LIJST[@TYPE='BULLET']/LIJSTITEM[contains(text(),'Kern')]"
-
-function scripts.grep.find(pattern, files, offset)
-    if pattern and pattern ~= "" then
-        statistics.starttiming(scripts.grep)
-        local nofmatches, noffiles, nofmatchedfiles = 0, 0, 0
-        local n, m, name, check = 0, 0, "", nil
-        local count, nocomment = environment.argument("count"), environment.argument("nocomment")
-        if environment.argument("xml") then
-            for i=offset or 1, #files do
-                local globbed = dir.glob(files[i])
-                for i=1,#globbed do
-                    local nam = globbed[i]
-                    name = nam
-                    local data = xml.load(name)
-                    if data and not data.error then
-                        n, m, noffiles = 0, 0, noffiles + 1
-                        if count then
-                            for c in xml.collected(data,pattern) do
-                                m = m + 1
-                            end
-                            if m > 0 then
-                                nofmatches = nofmatches + m
-                                nofmatchedfiles = nofmatchedfiles + 1
-                                write_nl(format("%5i  %s",m,name))
-                                io.flush()
-                            end
-                        else
-                            for c in xml.collected(data,pattern) do
-                                m = m + 1
-                                write_nl(format("%s: %s",name,xml.tostring(c)))
-                            end
-                        end
-                    end
-                end
-            end
-        else
-            if nocomment then
-                if count then
-                    check = function(line)
-                        n = n + 1
-                        if find(line,"^[%%#]") then
-                            -- skip
-                        elseif find(line,pattern) then
-                            m = m + 1
-                        end
-                    end
-                else
-                    check = function(line)
-                        n = n + 1
-                        if find(line,"^[%%#]") then
-                            -- skip
-                        elseif find(line,pattern) then
-                            m = m + 1
-                            write_nl(format("%s %6i: %s",name,n,line))
-                            io.flush()
-                        end
-                    end
-                end
-            else
-                if count then
-                    check = function(line)
-                        n = n + 1
-                        if find(line,pattern) then
-                            m = m + 1
-                        end
-                    end
-                else
-                    check = function(line)
-                        n = n + 1
-                        if find(line,pattern) then
-                            m = m + 1
-                            write_nl(format("%s %6i: %s",name,n,line))
-                            io.flush()
-                        end
-                    end
-                end
-            end
-            local capture = (content/check)^0
-            for i=offset or 1, #files do
-                local globbed = dir.glob(files[i])
-                for i=1,#globbed do
-                    local nam = globbed[i]
-                    name = nam
-                    local data = io.loaddata(name)
-                    if data then
-                        n, m, noffiles = 0, 0, noffiles + 1
-                        capture:match(data)
-                        if count and m > 0 then
-                            nofmatches = nofmatches + m
-                            nofmatchedfiles = nofmatchedfiles + 1
-                            write_nl(format("%5i  %s",m,name))
-                            io.flush()
-                        end
-                    end
-                end
-            end
-        end
-        statistics.stoptiming(scripts.grep)
-        if count and nofmatches > 0 then
-            write_nl(format("\nfiles: %s, matches: %s, matched files: %s, runtime: %0.3f seconds",noffiles,nofmatches,nofmatchedfiles,statistics.elapsedtime(scripts.grep)))
-        end
-    end
-end
-
-local pattern = environment.argument("pattern")
-local files   = environment.files and #environment.files > 0 and environment.files
-
-if environment.argument("exporthelp") then
-    application.export(environment.argument("exporthelp"),files[1])
-elseif pattern and files then
-    scripts.grep.find(pattern, files)
-elseif files then
-    scripts.grep.find(files[1], files, 2)
-else
-    application.help()
-end
+if not modules then modules = { } end modules ['mtx-babel'] = {

+    version   = 1.001,

+    comment   = "companion to mtxrun.lua",

+    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",

+    copyright = "PRAGMA ADE / ConTeXt Development Team",

+    license   = "see context related readme files"

+}

+

+local helpinfo = [[

+<?xml version="1.0"?>

+<application>

+ <metadata>

+  <entry name="name">mtx-grep</entry>

+  <entry name="detail">Simple Grepper</entry>

+  <entry name="version">0.10</entry>

+ </metadata>

+ <flags>

+  <category name="basic">

+   <subcategory>

+    <flag name="pattern"><short>search for pattern (optional)</short></flag>

+    <flag name="count"><short>count matches only</short></flag>

+    <flag name="nocomment"><short>skip lines that start with %% or #</short></flag>

+    <flag name="xml"><short>pattern is lpath expression</short></flag>

+   </subcategory>

+  </category>

+ </flags>

+ <comments>

+    <comment>patterns are lua patterns and need to be escaped accordingly</comment>

+ </comments>

+</application>

+]]

+

+local application = logs.application {

+    name     = "mtx-grep",

+    banner   = "Simple Grepper 0.10",

+    helpinfo = helpinfo,

+}

+

+local report = application.report

+

+scripts      = scripts      or { }

+scripts.grep = scripts.grep or { }

+

+local find, format = string.find, string.format

+

+local cr       = lpeg.P("\r")

+local lf       = lpeg.P("\n")

+local crlf     = cr * lf

+local newline  = crlf + cr + lf

+local content  = lpeg.C((1-newline)^0) * newline + lpeg.C(lpeg.P(1)^1)

+

+local write_nl = texio.write_nl

+

+ -- local pattern = "LIJST[@TYPE='BULLET']/LIJSTITEM[contains(text(),'Kern')]"

+

+function scripts.grep.find(pattern, files, offset)

+    if pattern and pattern ~= "" then

+        statistics.starttiming(scripts.grep)

+        local nofmatches, noffiles, nofmatchedfiles = 0, 0, 0

+        local n, m, name, check = 0, 0, "", nil

+        local count, nocomment = environment.argument("count"), environment.argument("nocomment")

+        if environment.argument("xml") then

+            for i=offset or 1, #files do

+                local globbed = dir.glob(files[i])

+                for i=1,#globbed do

+                    local nam = globbed[i]

+                    name = nam

+                    local data = xml.load(name)

+                    if data and not data.error then

+                        n, m, noffiles = 0, 0, noffiles + 1

+                        if count then

+                            for c in xml.collected(data,pattern) do

+                                m = m + 1

+                            end

+                            if m > 0 then

+                                nofmatches = nofmatches + m

+                                nofmatchedfiles = nofmatchedfiles + 1

+                                write_nl(format("%5i  %s",m,name))

+                                io.flush()

+                            end

+                        else

+                            for c in xml.collected(data,pattern) do

+                                m = m + 1

+                                write_nl(format("%s: %s",name,xml.tostring(c)))

+                            end

+                        end

+                    end

+                end

+            end

+        else

+            if nocomment then

+                if count then

+                    check = function(line)

+                        n = n + 1

+                        if find(line,"^[%%#]") then

+                            -- skip

+                        elseif find(line,pattern) then

+                            m = m + 1

+                        end

+                    end

+                else

+                    check = function(line)

+                        n = n + 1

+                        if find(line,"^[%%#]") then

+                            -- skip

+                        elseif find(line,pattern) then

+                            m = m + 1

+                            write_nl(format("%s %6i: %s",name,n,line))

+                            io.flush()

+                        end

+                    end

+                end

+            else

+                if count then

+                    check = function(line)

+                        n = n + 1

+                        if find(line,pattern) then

+                            m = m + 1

+                        end

+                    end

+                else

+                    check = function(line)

+                        n = n + 1

+                        if find(line,pattern) then

+                            m = m + 1

+                            write_nl(format("%s %6i: %s",name,n,line))

+                            io.flush()

+                        end

+                    end

+                end

+            end

+            local capture = (content/check)^0

+            for i=offset or 1, #files do

+                local globbed = dir.glob(files[i])

+                for i=1,#globbed do

+                    local nam = globbed[i]

+                    name = nam

+                    local data = io.loaddata(name)

+                    if data then

+                        n, m, noffiles = 0, 0, noffiles + 1

+                        capture:match(data)

+                        if count and m > 0 then

+                            nofmatches = nofmatches + m

+                            nofmatchedfiles = nofmatchedfiles + 1

+                            write_nl(format("%5i  %s",m,name))

+                            io.flush()

+                        end

+                    end

+                end

+            end

+        end

+        statistics.stoptiming(scripts.grep)

+        if count and nofmatches > 0 then

+            write_nl(format("\nfiles: %s, matches: %s, matched files: %s, runtime: %0.3f seconds",noffiles,nofmatches,nofmatchedfiles,statistics.elapsedtime(scripts.grep)))

+        end

+    end

+end

+

+local pattern = environment.argument("pattern")

+local files   = environment.files and #environment.files > 0 and environment.files

+

+if environment.argument("exporthelp") then

+    application.export(environment.argument("exporthelp"),files[1])

+elseif pattern and files then

+    scripts.grep.find(pattern, files)

+elseif files then

+    scripts.grep.find(files[1], files, 2)

+else

+    application.help()

+end