Author: paultcochrane Date: Fri Mar 9 01:00:39 2007 New Revision: 17401 Modified: trunk/languages/APL/MAINTAINER (props changed) trunk/languages/BASIC/MAINTAINER (props changed) trunk/languages/HQ9plus/MAINTAINER (props changed) trunk/languages/PIR/MAINTAINER (props changed) trunk/languages/WMLScript/MAINTAINER (props changed) trunk/languages/Zcode/MAINTAINER (props changed) trunk/languages/abc/MAINTAINER (props changed) trunk/languages/amber/MAINTAINER (props changed) trunk/languages/befunge/MAINTAINER (props changed) trunk/languages/bf/MAINTAINER (props changed) trunk/languages/c99/MAINTAINER (props changed) trunk/languages/cardinal/MAINTAINER (props changed) trunk/languages/dotnet/MAINTAINER (props changed) trunk/languages/ecmascript/MAINTAINER (props changed) trunk/languages/lazy-k/MAINTAINER (props changed) trunk/languages/lisp/MAINTAINER (props changed) trunk/languages/lua/MAINTAINER (props changed) trunk/languages/lua/lib/alarm.pir (props changed) trunk/languages/lua/t/alarm.t (props changed) trunk/languages/lua/t/package.t (contents, props changed) trunk/languages/lua/t/regex.t (props changed) trunk/languages/lua/t/rx_captures (contents, props changed) trunk/languages/lua/t/rx_charclass (contents, props changed) trunk/languages/lua/t/rx_metachars (contents, props changed) trunk/languages/ook/MAINTAINER (props changed) trunk/languages/parakeet/MAINTAINER (props changed) trunk/languages/parrot_compiler/MAINTAINER (props changed) trunk/languages/perl6/MAINTAINER (props changed) trunk/languages/pheme/MAINTAINER (props changed) trunk/languages/plumhead/lib/Parrot/Test/Plumhead/Perl5re.pm (props changed) trunk/languages/plumhead/src/perl5re/gen_past_pir.pl (props changed) trunk/languages/punie/MAINTAINER (props changed) trunk/languages/pynie/MAINTAINER (props changed) trunk/languages/pynie/README (contents, props changed) trunk/languages/pynie/config/makefiles/root.in (props changed) trunk/languages/pynie/examples/ex-3-1-4-a.py (props changed) trunk/languages/pynie/examples/ex-3-2-a.py (props changed) trunk/languages/pynie/examples/ex-3-2-b.py (props changed) trunk/languages/pynie/examples/ex-3-2-c.py (props changed) trunk/languages/pynie/examples/ex-3.py (props changed) trunk/languages/pynie/pynie.pir (props changed) trunk/languages/pynie/src/PAST/Grammar.tg (props changed) trunk/languages/pynie/src/builtins/io.pir (props changed) trunk/languages/pynie/src/builtins/lists.pir (props changed) trunk/languages/pynie/src/builtins/oper.pir (props changed) trunk/languages/pynie/src/parser/Grammar.pg (props changed) trunk/languages/pynie/src/parser/indent.pir (props changed) trunk/languages/pynie/t/00-parrot/01-literals.t (props changed) trunk/languages/pynie/t/00-parrot/02-op-math.t (props changed) trunk/languages/pynie/t/00-parrot/03-op-logic.t (props changed) trunk/languages/pynie/t/00-parrot/05-vars.t (props changed) trunk/languages/pynie/t/00-parrot/06-stmts.t (props changed) trunk/languages/pynie/t/00-parrot/07-op-cmp.t (props changed) trunk/languages/pynie/t/harness (props changed) trunk/languages/scheme/MAINTAINER (props changed) trunk/languages/tcl/src/class/tclproc.pir (props changed) trunk/languages/unlambda/MAINTAINER (props changed) trunk/languages/urm/MAINTAINER (props changed)
Log: [languages] Set svn:eol-style property to 'native' (part 2) Modified: trunk/languages/lua/t/package.t ============================================================================== --- trunk/languages/lua/t/package.t (original) +++ trunk/languages/lua/t/package.t Fri Mar 9 01:00:39 2007 @@ -1,303 +1,303 @@ -#! perl -# Copyright (C) 2007, The Perl Foundation. -# $Id$ - -=head1 NAME - -t/package.t - Lua Package Library - -=head1 SYNOPSIS - - % perl -I../lib -Ilua/t lua/t/package.t - -=head1 DESCRIPTION - -Tests Lua Package Library -(implemented in F<languages/lua/lib/luapackage.pir>). - -See "Lua 5.1 Reference Manual", section 5.3 "Modules", -L<http://www.lua.org/manual/5.1/manual.html#5.3>. - -=cut - -use strict; -use warnings; -use FindBin; -use lib "$FindBin::Bin"; - -use Parrot::Test tests => 15; -use Test::More; - -language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'function module' ); -print(type(mod)) -local _G = _G -module("mod") -_G.print(_G.type(_G.mod)) -_G.assert(_G.mod == _G.package.loaded.mod) -CODE -nil -table -OUTPUT - -language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'function require' ); -local m = require "io" -m.write("hello world\n") -CODE -hello world -OUTPUT - -unlink('../complex.lua') if ( -f '../complex.lua' ); -my $X; -open $X, '>', '../complex.lua'; -print {$X} << 'CODE'; - -complex = {} - -function complex.new (r, i) return {r=r, i=i} end - ---defines a constant 'i' -complex.i = complex.new(0, 1) - -function complex.add (c1, c2) - return complex.new(c1.r + c2.r, c1.i + c2.i) -end - -function complex.sub (c1, c2) - return complex.new(c1.r - c2.r, c1.i - c2.i) -end - -function complex.mul (c1, c2) - return complex.new(c1.r*c2.r - c1.i*c2.i, - c1.r*c2.i + c1.i*c2.r) -end - -local function inv (c) - local n = c.r^2 + c.i^2 - return complex.new(c.r/n, -c.i/n) -end - -function complex.div (c1, c2) - return complex.mul(c1, inv(c2)) -end - -return complex -CODE -close $X; - -language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'function require' ); -m = require "complex" -assert(m == complex) -print(complex.i.r, complex.i.i) -CODE -0 1 -OUTPUT - -language_output_like( 'lua', << 'CODE', << 'OUTPUT', 'function require (no module)' ); -require "no_module" -CODE -/module 'no_module' not found:\n/ -OUTPUT - -unlink('../foo.lua') if ( -f '../foo.lua' ); -open $X, '>', '../foo.lua'; -print {$X} '?syntax error?'; -close $X; - -language_output_like( 'lua', << 'CODE', << 'OUTPUT', 'function require (syntax error)'); -require "foo" -CODE -/error loading module 'foo' from file '.*foo.lua':\n/ -OUTPUT - -language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'function require & package.preload' ); -foo = {} -foo.bar = 1234 -function foo_loader () - return foo -end -package.preload.foo = foo_loader - -m = require 'foo' -assert(m == foo) -print(m.bar) -CODE -1234 -OUTPUT - -TODO: -{ - local $TODO = 'need setfenv'; - -unlink('../complex.lua') if ( -f '../complex.lua' ); -open $X, '>', '../complex.lua'; -print {$X} << 'CODE'; -module(...) - -function new (r, i) return {r=r, i=i} end - ---defines a constant 'i' -i = new(0, 1) - -function add (c1, c2) - return new(c1.r + c2.r, c1.i + c2.i) -end - -function sub (c1, c2) - return new(c1.r - c2.r, c1.i - c2.i) -end - -function mul (c1, c2) - return new(c1.r*c2.r - c1.i*c2.i, - c1.r*c2.i + c1.i*c2.r) -end - -local function inv (c) - local n = c.r^2 + c.i^2 - return new(c.r/n, -c.i/n) -end - -function div (c1, c2) - return mul(c1, inv(c2)) -end -CODE -close $X; - -language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'function require & module' ); -require "complex" -print(complex.i.r, complex.i.i) -CODE -0 1 -OUTPUT -} - -SKIP: -{ -skip('only with Parrot', 1) if (exists $ENV{PARROT_LUA_TEST_PROG}); - -unlink('../mod_foo.pbc') if ( -f '../mod_foo.pbc' ); -unlink('../mod_foo.pir') if ( -f '../mod_foo.pir' ); -open $X, '>', '../mod_foo.pir'; -print {$X} <<'PIR'; -.HLL 'Lua', 'lua_group' - -.sub '__onload' :anon :load -# print "__onload mod_foo\n" - .const .Sub entry = 'luaopen_mod_foo' - set_root_global 'luaopen_mod_foo', entry -.end - -.sub 'luaopen_mod_foo' -# print "luaopen_mod_foo\n" - .local pmc _lua__GLOBAL - _lua__GLOBAL = global '_G' - new $P1, .LuaString - .local pmc _mod_foo - new _mod_foo, .LuaTable - set $P1, 'mod_foo' - _lua__GLOBAL[$P1] = _mod_foo - .const .Sub _mod_foo_bar = '_mod_foo_bar' - set $P1, 'bar' - _mod_foo[$P1] = _mod_foo_bar - .return (_mod_foo) -.end - -.sub '_mod_foo_bar' :anon - .param pmc extra :slurpy - new $P0, .LuaNumber - set $P0, 3.14 - .return ($P0) -.end -PIR -close $X; - -language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'function require (PIR)' ); -assert(nil == mod_foo) -m = require "mod_foo" -assert(m == mod_foo) -assert(m == package.loaded.mod_foo) -print(m.bar()) -CODE -3.14 -OUTPUT -} - -language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'table package.loaded' ); -t = {} -for k in pairs(package.loaded) do - table.insert(t, k) -end -table.sort(t) -for k, v in ipairs(t) do - print(v) -end -CODE -_G -coroutine -debug -io -math -os -package -string -table -OUTPUT - -language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'table package.path' ); -print(type(package.path)) -CODE -string -OUTPUT - -SKIP: -{ -skip('only with Parrot', 3) if (exists $ENV{PARROT_LUA_TEST_PROG}); - -delete $ENV{LUA_PBCPATH}; -language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'table package.pbcpath' ); -print(type(package.pbcpath)) -print(package.pbcpath) -CODE -string -./?.pbc;./?.pir;languages/lua/lib/?.pbc -OUTPUT - -$ENV{LUA_PBCPATH} = "?.pbc"; -language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'table package.pbcpath' ); -print(package.pbcpath) -CODE -?.pbc -OUTPUT - -$ENV{LUA_PBCPATH} = ";;languages/lua/?.pbc"; -language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'table package.pbcpath' ); -print(package.pbcpath) -CODE -;./?.pbc;./?.pir;languages/lua/lib/?.pbc;languages/lua/?.pbc -OUTPUT - -delete $ENV{LUA_PBCPATH}; -} - -language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'table package.preload' ); -print(type(package.preload)) -print(# package.preload) -CODE -table -0 -OUTPUT - -language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'function package.seeall' ); -m = {} -package.seeall(m) -m.print("hello") -CODE -hello -OUTPUT - -# Local Variables: -# mode: cperl -# cperl-indent-level: 4 -# fill-column: 100 -# End: -# vim: expandtab shiftwidth=4: - +#! perl +# Copyright (C) 2007, The Perl Foundation. +# $Id$ + +=head1 NAME + +t/package.t - Lua Package Library + +=head1 SYNOPSIS + + % perl -I../lib -Ilua/t lua/t/package.t + +=head1 DESCRIPTION + +Tests Lua Package Library +(implemented in F<languages/lua/lib/luapackage.pir>). + +See "Lua 5.1 Reference Manual", section 5.3 "Modules", +L<http://www.lua.org/manual/5.1/manual.html#5.3>. + +=cut + +use strict; +use warnings; +use FindBin; +use lib "$FindBin::Bin"; + +use Parrot::Test tests => 15; +use Test::More; + +language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'function module' ); +print(type(mod)) +local _G = _G +module("mod") +_G.print(_G.type(_G.mod)) +_G.assert(_G.mod == _G.package.loaded.mod) +CODE +nil +table +OUTPUT + +language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'function require' ); +local m = require "io" +m.write("hello world\n") +CODE +hello world +OUTPUT + +unlink('../complex.lua') if ( -f '../complex.lua' ); +my $X; +open $X, '>', '../complex.lua'; +print {$X} << 'CODE'; + +complex = {} + +function complex.new (r, i) return {r=r, i=i} end + +--defines a constant 'i' +complex.i = complex.new(0, 1) + +function complex.add (c1, c2) + return complex.new(c1.r + c2.r, c1.i + c2.i) +end + +function complex.sub (c1, c2) + return complex.new(c1.r - c2.r, c1.i - c2.i) +end + +function complex.mul (c1, c2) + return complex.new(c1.r*c2.r - c1.i*c2.i, + c1.r*c2.i + c1.i*c2.r) +end + +local function inv (c) + local n = c.r^2 + c.i^2 + return complex.new(c.r/n, -c.i/n) +end + +function complex.div (c1, c2) + return complex.mul(c1, inv(c2)) +end + +return complex +CODE +close $X; + +language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'function require' ); +m = require "complex" +assert(m == complex) +print(complex.i.r, complex.i.i) +CODE +0 1 +OUTPUT + +language_output_like( 'lua', << 'CODE', << 'OUTPUT', 'function require (no module)' ); +require "no_module" +CODE +/module 'no_module' not found:\n/ +OUTPUT + +unlink('../foo.lua') if ( -f '../foo.lua' ); +open $X, '>', '../foo.lua'; +print {$X} '?syntax error?'; +close $X; + +language_output_like( 'lua', << 'CODE', << 'OUTPUT', 'function require (syntax error)'); +require "foo" +CODE +/error loading module 'foo' from file '.*foo.lua':\n/ +OUTPUT + +language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'function require & package.preload' ); +foo = {} +foo.bar = 1234 +function foo_loader () + return foo +end +package.preload.foo = foo_loader + +m = require 'foo' +assert(m == foo) +print(m.bar) +CODE +1234 +OUTPUT + +TODO: +{ + local $TODO = 'need setfenv'; + +unlink('../complex.lua') if ( -f '../complex.lua' ); +open $X, '>', '../complex.lua'; +print {$X} << 'CODE'; +module(...) + +function new (r, i) return {r=r, i=i} end + +--defines a constant 'i' +i = new(0, 1) + +function add (c1, c2) + return new(c1.r + c2.r, c1.i + c2.i) +end + +function sub (c1, c2) + return new(c1.r - c2.r, c1.i - c2.i) +end + +function mul (c1, c2) + return new(c1.r*c2.r - c1.i*c2.i, + c1.r*c2.i + c1.i*c2.r) +end + +local function inv (c) + local n = c.r^2 + c.i^2 + return new(c.r/n, -c.i/n) +end + +function div (c1, c2) + return mul(c1, inv(c2)) +end +CODE +close $X; + +language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'function require & module' ); +require "complex" +print(complex.i.r, complex.i.i) +CODE +0 1 +OUTPUT +} + +SKIP: +{ +skip('only with Parrot', 1) if (exists $ENV{PARROT_LUA_TEST_PROG}); + +unlink('../mod_foo.pbc') if ( -f '../mod_foo.pbc' ); +unlink('../mod_foo.pir') if ( -f '../mod_foo.pir' ); +open $X, '>', '../mod_foo.pir'; +print {$X} <<'PIR'; +.HLL 'Lua', 'lua_group' + +.sub '__onload' :anon :load +# print "__onload mod_foo\n" + .const .Sub entry = 'luaopen_mod_foo' + set_root_global 'luaopen_mod_foo', entry +.end + +.sub 'luaopen_mod_foo' +# print "luaopen_mod_foo\n" + .local pmc _lua__GLOBAL + _lua__GLOBAL = global '_G' + new $P1, .LuaString + .local pmc _mod_foo + new _mod_foo, .LuaTable + set $P1, 'mod_foo' + _lua__GLOBAL[$P1] = _mod_foo + .const .Sub _mod_foo_bar = '_mod_foo_bar' + set $P1, 'bar' + _mod_foo[$P1] = _mod_foo_bar + .return (_mod_foo) +.end + +.sub '_mod_foo_bar' :anon + .param pmc extra :slurpy + new $P0, .LuaNumber + set $P0, 3.14 + .return ($P0) +.end +PIR +close $X; + +language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'function require (PIR)' ); +assert(nil == mod_foo) +m = require "mod_foo" +assert(m == mod_foo) +assert(m == package.loaded.mod_foo) +print(m.bar()) +CODE +3.14 +OUTPUT +} + +language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'table package.loaded' ); +t = {} +for k in pairs(package.loaded) do + table.insert(t, k) +end +table.sort(t) +for k, v in ipairs(t) do + print(v) +end +CODE +_G +coroutine +debug +io +math +os +package +string +table +OUTPUT + +language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'table package.path' ); +print(type(package.path)) +CODE +string +OUTPUT + +SKIP: +{ +skip('only with Parrot', 3) if (exists $ENV{PARROT_LUA_TEST_PROG}); + +delete $ENV{LUA_PBCPATH}; +language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'table package.pbcpath' ); +print(type(package.pbcpath)) +print(package.pbcpath) +CODE +string +./?.pbc;./?.pir;languages/lua/lib/?.pbc +OUTPUT + +$ENV{LUA_PBCPATH} = "?.pbc"; +language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'table package.pbcpath' ); +print(package.pbcpath) +CODE +?.pbc +OUTPUT + +$ENV{LUA_PBCPATH} = ";;languages/lua/?.pbc"; +language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'table package.pbcpath' ); +print(package.pbcpath) +CODE +;./?.pbc;./?.pir;languages/lua/lib/?.pbc;languages/lua/?.pbc +OUTPUT + +delete $ENV{LUA_PBCPATH}; +} + +language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'table package.preload' ); +print(type(package.preload)) +print(# package.preload) +CODE +table +0 +OUTPUT + +language_output_is( 'lua', << 'CODE', << 'OUTPUT', 'function package.seeall' ); +m = {} +package.seeall(m) +m.print("hello") +CODE +hello +OUTPUT + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: + Modified: trunk/languages/lua/t/rx_captures ============================================================================== --- trunk/languages/lua/t/rx_captures (original) +++ trunk/languages/lua/t/rx_captures Fri Mar 9 01:00:39 2007 @@ -1,12 +1,12 @@ -(a.)..(..) zzzabcdefzzz ab\tef basic match -(a(b(c))(d)) abcd abcd\tbc\tc\td nested match -((%w+)) abcd abcd\tabcd nested match -(a*(.)%w(%s*)) aa!b c aa!b \t!\t nested match -(a?).. abcd a opt -(A?).. abcd '' opt -()aa() flaaap 3\t5 empty capture -(.)%1 bookkeeper o backreference -(%w+)%s+%1 hello hello hello backreference -(.*)x 123x 123 repeated dot capture - -## vim: noexpandtab tabstop=4 shiftwidth=4 +(a.)..(..) zzzabcdefzzz ab\tef basic match +(a(b(c))(d)) abcd abcd\tbc\tc\td nested match +((%w+)) abcd abcd\tabcd nested match +(a*(.)%w(%s*)) aa!b c aa!b \t!\t nested match +(a?).. abcd a opt +(A?).. abcd '' opt +()aa() flaaap 3\t5 empty capture +(.)%1 bookkeeper o backreference +(%w+)%s+%1 hello hello hello backreference +(.*)x 123x 123 repeated dot capture + +## vim: noexpandtab tabstop=4 shiftwidth=4 Modified: trunk/languages/lua/t/rx_charclass ============================================================================== --- trunk/languages/lua/t/rx_charclass (original) +++ trunk/languages/lua/t/rx_charclass Fri Mar 9 01:00:39 2007 @@ -1,38 +1,38 @@ -[c] abcdef c character class -^[a] abcdef a anchored character class -[^e] abcdef a negated character class -^[a]? abcdef a anchored optional character class -[^e]? abcdef a negated optional character class -^[^e] abcdef a anchored negated character class -^[^a] abcdef nil anchored negated character class -[b-d] abcdef b character range -[b-d] abxxef b character range -[b-d] axcxef c character range -[b-d] axxdef d character range -[b-d] axxxef nil character range -[^b-d] abcdef a negated character range -[^b-d] bbccdd nil negated character range -[-] ab-def - unescaped hyphen -[%-] ab-def - escaped hyphen -[%-] abcdef nil escaped hyphen -[^%-] ---x-- x negated escaped hyphen -[^%-] ------ nil negated escaped hyphen -[%-+] ab-def - escaped hyphen in range -[%-+] ab+def + escaped hyphen in range -[%-+] abcdef nil escaped hyphen in range -[+%-] ab-def - escaped hyphen in range -[+%-] ab+def + escaped hyphen in range -[+%-] abcdef nil escaped hyphen in range -[^%-+] ---x-- x negated escaped hyphen in range -[^%-+] ------ nil negated escaped hyphen in range -[^+%-] ---x-- x negated escaped hyphen in range -[^+%-] ------ nil negated escaped hyphen in range -["\\] \\ \ escaped backslash -[%]] ] ] escaped close bracket -[%] \\]] /malformed pattern \(missing ']'\)/ unescaped backslash (or no closing brace) -ab\\cd ab\092cd ab\cd literal match with backslash -%? ab<? ? literal match with question mark -[A-Z0-9] abcdef nil two enumerated ranges -[A-Z0-9] abcDef D two enumerated ranges - -## vim: noexpandtab tabstop=4 shiftwidth=4 +[c] abcdef c character class +^[a] abcdef a anchored character class +[^e] abcdef a negated character class +^[a]? abcdef a anchored optional character class +[^e]? abcdef a negated optional character class +^[^e] abcdef a anchored negated character class +^[^a] abcdef nil anchored negated character class +[b-d] abcdef b character range +[b-d] abxxef b character range +[b-d] axcxef c character range +[b-d] axxdef d character range +[b-d] axxxef nil character range +[^b-d] abcdef a negated character range +[^b-d] bbccdd nil negated character range +[-] ab-def - unescaped hyphen +[%-] ab-def - escaped hyphen +[%-] abcdef nil escaped hyphen +[^%-] ---x-- x negated escaped hyphen +[^%-] ------ nil negated escaped hyphen +[%-+] ab-def - escaped hyphen in range +[%-+] ab+def + escaped hyphen in range +[%-+] abcdef nil escaped hyphen in range +[+%-] ab-def - escaped hyphen in range +[+%-] ab+def + escaped hyphen in range +[+%-] abcdef nil escaped hyphen in range +[^%-+] ---x-- x negated escaped hyphen in range +[^%-+] ------ nil negated escaped hyphen in range +[^+%-] ---x-- x negated escaped hyphen in range +[^+%-] ------ nil negated escaped hyphen in range +["\\] \\ \ escaped backslash +[%]] ] ] escaped close bracket +[%] \\]] /malformed pattern \(missing ']'\)/ unescaped backslash (or no closing brace) +ab\\cd ab\092cd ab\cd literal match with backslash +%? ab<? ? literal match with question mark +[A-Z0-9] abcdef nil two enumerated ranges +[A-Z0-9] abcDef D two enumerated ranges + +## vim: noexpandtab tabstop=4 shiftwidth=4 Modified: trunk/languages/lua/t/rx_metachars ============================================================================== --- trunk/languages/lua/t/rx_metachars (original) +++ trunk/languages/lua/t/rx_metachars Fri Mar 9 01:00:39 2007 @@ -1,104 +1,104 @@ -. a a dot (.) -. \n \n dot (.) -. '' nil dot (.) -a%s+f abcdef nil whitespace (%s) -ab%s+cdef ab cdef ab cdef whitespace (%s) -a%S+f abcdef abcdef not whitespace (%S) -a%S+f ab cdef nil not whitespace (%S) -^abc abcdef abc start and end of string (^) -^abc abc\ndef abc start and end of string (^) -^abc def\nabc nil start and end of string (^) -def\n^abc def\nabc nil start and end of string (^) -def$ abcdef def start and end of string ($) -def$ abc\ndef def start and end of string ($) -def$ def\nabc nil start and end of string ($) -def$\nabc def\nabc nil start and end of string (^) -abc\n$ abc\n abc\n end of string ($) -abc$ abc\n nil end of string ($) -c\nd abc\ndef c\nd newline (\n) -c\nd abc\010def c\nd newline (\n) -c\n+d abc\n\ndef c\n\nd newline (\n) -a\n+f abcdef nil newline (\n) -b\nc abc\ndef nil newline (\n) -c\td abc\tdef c\td horizontal tab (\t) -c\td abc\09def c\td horizontal tab (\t) -c\t+d abc\t\tdef c\t\td horizontal tab (\t) -a\t+f abcdef nil horizontal tab (\t) -b\tc abc\tdef nil horizontal tab (\t) -c\rd abc\rdef c\rd return (\r) -c\rd abc\013def c\rd return (\r) -c\r+d abc\r\rdef c\r\rd return (\r) -a\r+f abcdef nil return (\r) -b\rc abc\rdef nil return (\r) -c\fd abc\fdef c\fd formfeed (\f) -c\fd abc\012def c\fd formfeed (\f) -c\f+d abc\f\fdef c\f\fd formfeed (\f) -a\f+f abcdef nil formfeed (\f) -b\fc abc\fdef nil formfeed (\f) -c\033d abc!def c!d dec (\0) -c\033d abc\033def c!d dec (\0) -c\033+d abc!!def c!!d dec (\0) -a\033+f abcdef nil dec (\0) -b\033c abc!def nil dec (\0) -a%^d a^d a^d escaped (useless) -a^d a^d a^d not escaped -%^d ^d ^d escaped -a%$d a$d a$d escaped (useless) -a$d a$d a$d not escaped -a%$ a$ a$ escaped -a%(d a(d a(d escaped -a%)d a)d a)d escaped -a%%d a%d a%d escaped -a% a% /malformed pattern \(ends with '%'\)/ not escaped -a%.d a.d a.d escaped -a%.d abd nil escaped -a%[d a[d a[d escaped -a%]d a]d a]d escaped -a%*d a*d a*d escaped -*ad *ad *ad not escaped -a%+d a+d a+d escaped -a%-d a-d a-d escaped -a%?d a?d a?d escaped -a%yd ayd ayd escaped -a%w+f a=[ *f nil word character -a%w+f abcdef abcdef word character -a%W+f a&%- f a&%- f not word character -a%W+f abcdef nil not word character -a%d+f abcdef nil digit -ab%d+cdef ab42cdef ab42cdef digit -a%D+f abcdef abcdef not digit -a%D+f ab0cdef nil not digit -a%l+f aBCDEf nil lowercase letter -a%l+f abcdef abcdef lowercase letter -a%L+f a&2D f a&2D f not lowercase letter -a%L+f aBCdEf nil not lowercase letter -a%u+f abcdef nil uppercase letter -a%u+f aBCDEf aBCDEf uppercase letter -a%U+f a&2d f a&2d f not uppercase letter -a%U+f a&2D f nil not uppercase letter -a%a+f aBcDef aBcDef all letter -a%a+f a=[ *f nil all letter -a%A+f a&%- f a&%- f not all letter -a%A+f abcdef nil not all letter -a%p+f abcdef nil ponctuation -a%p+f a,;:!f a,;:!f ponctuation -a%P+f abcdef abcdef not ponctuation -a%P+f adc:ef nil not ponctuation -a%c+f abcdef nil control character -a%c+f a\04\03\02f a\04\03\02f control character -a%C+f abcdef abcdef not control character -a%C+f abc\01ef nil not control character -a%x+f axyzef nil hexadecimal -a%x+f ab3Def ab3Def hexadecimal -a%X+f abcdef nil not hexadecimal -a%X+f axy;Zf axy;Zf not hexadecimal -a%z+f abcdef nil zero -a%z+f a\0f a zero -a%Z+f abcdef abcdef not zero -a%Z+f abc\0ef nil not zero -a%b()f a(bcde)f a(bcde)f balanced -a%b()f a(b(de)f nil balanced -a%b()f a(b(d)e)f a(b(d)e)f balanced -a%b''f a'bcde'f a'bcde'f balanced - -## vim: noexpandtab tabstop=4 shiftwidth=4 +. a a dot (.) +. \n \n dot (.) +. '' nil dot (.) +a%s+f abcdef nil whitespace (%s) +ab%s+cdef ab cdef ab cdef whitespace (%s) +a%S+f abcdef abcdef not whitespace (%S) +a%S+f ab cdef nil not whitespace (%S) +^abc abcdef abc start and end of string (^) +^abc abc\ndef abc start and end of string (^) +^abc def\nabc nil start and end of string (^) +def\n^abc def\nabc nil start and end of string (^) +def$ abcdef def start and end of string ($) +def$ abc\ndef def start and end of string ($) +def$ def\nabc nil start and end of string ($) +def$\nabc def\nabc nil start and end of string (^) +abc\n$ abc\n abc\n end of string ($) +abc$ abc\n nil end of string ($) +c\nd abc\ndef c\nd newline (\n) +c\nd abc\010def c\nd newline (\n) +c\n+d abc\n\ndef c\n\nd newline (\n) +a\n+f abcdef nil newline (\n) +b\nc abc\ndef nil newline (\n) +c\td abc\tdef c\td horizontal tab (\t) +c\td abc\09def c\td horizontal tab (\t) +c\t+d abc\t\tdef c\t\td horizontal tab (\t) +a\t+f abcdef nil horizontal tab (\t) +b\tc abc\tdef nil horizontal tab (\t) +c\rd abc\rdef c\rd return (\r) +c\rd abc\013def c\rd return (\r) +c\r+d abc\r\rdef c\r\rd return (\r) +a\r+f abcdef nil return (\r) +b\rc abc\rdef nil return (\r) +c\fd abc\fdef c\fd formfeed (\f) +c\fd abc\012def c\fd formfeed (\f) +c\f+d abc\f\fdef c\f\fd formfeed (\f) +a\f+f abcdef nil formfeed (\f) +b\fc abc\fdef nil formfeed (\f) +c\033d abc!def c!d dec (\0) +c\033d abc\033def c!d dec (\0) +c\033+d abc!!def c!!d dec (\0) +a\033+f abcdef nil dec (\0) +b\033c abc!def nil dec (\0) +a%^d a^d a^d escaped (useless) +a^d a^d a^d not escaped +%^d ^d ^d escaped +a%$d a$d a$d escaped (useless) +a$d a$d a$d not escaped +a%$ a$ a$ escaped +a%(d a(d a(d escaped +a%)d a)d a)d escaped +a%%d a%d a%d escaped +a% a% /malformed pattern \(ends with '%'\)/ not escaped +a%.d a.d a.d escaped +a%.d abd nil escaped +a%[d a[d a[d escaped +a%]d a]d a]d escaped +a%*d a*d a*d escaped +*ad *ad *ad not escaped +a%+d a+d a+d escaped +a%-d a-d a-d escaped +a%?d a?d a?d escaped +a%yd ayd ayd escaped +a%w+f a=[ *f nil word character +a%w+f abcdef abcdef word character +a%W+f a&%- f a&%- f not word character +a%W+f abcdef nil not word character +a%d+f abcdef nil digit +ab%d+cdef ab42cdef ab42cdef digit +a%D+f abcdef abcdef not digit +a%D+f ab0cdef nil not digit +a%l+f aBCDEf nil lowercase letter +a%l+f abcdef abcdef lowercase letter +a%L+f a&2D f a&2D f not lowercase letter +a%L+f aBCdEf nil not lowercase letter +a%u+f abcdef nil uppercase letter +a%u+f aBCDEf aBCDEf uppercase letter +a%U+f a&2d f a&2d f not uppercase letter +a%U+f a&2D f nil not uppercase letter +a%a+f aBcDef aBcDef all letter +a%a+f a=[ *f nil all letter +a%A+f a&%- f a&%- f not all letter +a%A+f abcdef nil not all letter +a%p+f abcdef nil ponctuation +a%p+f a,;:!f a,;:!f ponctuation +a%P+f abcdef abcdef not ponctuation +a%P+f adc:ef nil not ponctuation +a%c+f abcdef nil control character +a%c+f a\04\03\02f a\04\03\02f control character +a%C+f abcdef abcdef not control character +a%C+f abc\01ef nil not control character +a%x+f axyzef nil hexadecimal +a%x+f ab3Def ab3Def hexadecimal +a%X+f abcdef nil not hexadecimal +a%X+f axy;Zf axy;Zf not hexadecimal +a%z+f abcdef nil zero +a%z+f a\0f a zero +a%Z+f abcdef abcdef not zero +a%Z+f abc\0ef nil not zero +a%b()f a(bcde)f a(bcde)f balanced +a%b()f a(b(de)f nil balanced +a%b()f a(b(d)e)f a(b(d)e)f balanced +a%b''f a'bcde'f a'bcde'f balanced + +## vim: noexpandtab tabstop=4 shiftwidth=4 Modified: trunk/languages/pynie/README ============================================================================== --- trunk/languages/pynie/README (original) +++ trunk/languages/pynie/README Fri Mar 9 01:00:39 2007 @@ -1,4 +1,4 @@ -## $Id: $ +## $Id$ =head1 Pynie - A Python compiler for Parrot
