Add lua test/time

perl     csv-easy-xs      50000     0.018     0.015
perl     csv-easy-pp      50000     0.018     0.016
perl     csv-xsbc         50000     0.033     0.031
perl     csv-test-xs      50000     0.038     0.036
perl     csv-test-pp      50000     0.509     0.507
perl     csv-pegex        50000     1.302     1.299
ruby1.9  csv-ruby         50000     0.143     0.134
ruby2.0  csv-ruby         50000     0.144     0.125
python2  csv-python2      50000     0.015     0.013
python3  csv-python3      50000     0.027     0.024
lua      csv-lua          50000     0.012     0.010
go       csv-go           50000     0.172     0.157
java     csvJava          50000     0.091     0.087

Author: H.Merijn Brand - Tux

csv-lua.lua

@@ -0,0 +1,20 @@
+#!/usr/bin/lua
+
+local lpeg   = require "lpeg"
+local field  = '"' * lpeg.Cs (((lpeg.P (1) - '"')
+             + lpeg.P'""' / '"')^0) * '"'
+             + lpeg.C ((1 - lpeg.S',\n"')^0)
+
+local record = field * (',' * field)^0 * (lpeg.P'\n' + -1)
+
+function csv (s)
+    return lpeg.match (record, s)
+    end
+
+-- Count total number of fields from stdin
+local n = 0
+for l in io.stdin:lines () do
+    local rec = { csv (l) }
+    n = n + #rec
+    end
+print (n)

time.pl

@@ -30,15 +30,16 @@ sub usage {
 close    $fh;
 
 my %lang = (
-    #      ext   prog       args
-    0 => [ ".rb", "ruby1.9",         ],
-    1 => [ ".rb", "ruby2.0",         ],
-    2 => [ ".py", "python2",         ],
-    3 => [ ".py", "python3",         ],
-    5 => [ ".pl", "perl",            ],
-    6 => [ ".pl", "perl6",   "-Ilib" ],
-    8 => [ ".go", "go",      "run"   ],
-    9 => [ "",    "java",    "-cp csvJava.jar:opencsv-2.3.jar csvJava" ],
+    #       ext     prog       args
+    0 => [ ".rb",  "ruby1.9",         ],
+    1 => [ ".rb",  "ruby2.0",         ],
+    2 => [ ".py",  "python2",         ],
+    3 => [ ".py",  "python3",         ],
+    5 => [ ".pl",  "perl",            ],
+    6 => [ ".pl",  "perl6",   "-Ilib" ],
+    7 => [ ".lua", "lua"              ],
+    8 => [ ".go",  "go",      "run"   ],
+    9 => [ "",     "java",    "-cp csvJava.jar:opencsv-2.3.jar csvJava" ],
     );
 my @test = (
     # lang irc script
@@ -60,8 +61,9 @@ sub usage {
     [ 1, 0, "csv-ruby"    ],
     [ 2, 0, "csv-python2" ],
     [ 3, 0, "csv-python3" ],
-    [ 9, 0, "csvJava"     ],
+    [ 7, 0, "csv-lua"     ],
     [ 8, 0, "csv-go"      ],
+    [ 9, 0, "csvJava"     ],
     );
 my %start;
 foreach my $v (keys %lang) {