view release on metacpan or  search on metacpan

lib/Prima/CodeManager/hilite/hilite_html.pl  view on Meta::CPAN

$main::hilite{case_html} = 0;
$main::hilite{rexp_html} = [
#	'(\/\/.*$)',			{ color => 0xaaaaaa,},
	'(<\/*\w+>|<\w+|>)',			{ color => 0xcc0000,},
	'(\$_.+?\})',			{ color => 0xff00ff,},
	'(\$[A-Z]+\{.*?\})',	{ color => 0x0077ff,},
#	'((alt|class|href|id|name|ondblclick|onclick|onfocus|onblur|readonly|READONLY|title|src|style|type|value)="[^\$<>]*?")',	{ color => 0x00aa55,},
	'((alt|class|href|id|name|ondblclick|onclick|onblur|readonly|READONLY|title|src|style|type|value)(?=\s*=\s*"[^<>]*?"))',	{ color => 0x00aa55,},
#	'((?<=onclick)\s*=\s*"[^\$<>]*?")',	{ color => 0xff00aa,},
#	'((?<=ondblclick)\s*=\s*"[^\$<>]*?")',{ color => 0xff00aa,},
#	'((?<=onblur)\s*=\s*"[^\$<>]*?")',	{ color => 0xff00aa,},
#	'((?<=onfocus)\s*=\s*"[^\$<>]*?")',	{ color => 0xff00aa,},
#	'((alt|class|href||id|name|ondblclick|onclick|onblur|readonly|READONLY|title|src|style|type|value)="[^<>]*?")',		{ color => 0x00aa55,},
	'(\&S_.+?\))',			{ color => 0x7777ff,},
	'(http:[\/\w\.]+)',		{ color => 0xcccc00,},
	'(&[\w^;]+?;)',			{ color => 0x0000ff,},

lib/Prima/CodeManager/hilite/hilite_tt.pl  view on Meta::CPAN

$main::hilite{rexp_html} = [
#	'(\/\/.*$)',			{ color => 0xaaaaaa,},
	'(<\/*\w+>)',			{ color => 0xcc0000,},
	'(<\w+)',				{ color => 0xcc0000,},
	'(>)',					{ color => 0xcc0000,},
	'(\$_.+?\})',			{ color => 0xff00ff,},
	'(\&S_.+?\))',			{ color => 0x7777ff,},
	'(http:[\/\w\.]+)',		{ color => 0xcccc00,},
	'(&[\w^;]+?;)',			{ color => 0x0000ff,},
	'(="[^\$<>]*?")',		{ color => 0x00aa33,},
	'(\$[A-Z]+\{.*?\})',	{ color => 0x0077ff,},
	'(<!--output.*?-->)',	{ color => 0x0066bb,style => fs::Bold,},
	'(<!--.*?-->)',			{ color => 0xaaaaaa,},
	'(<!--perl)',			{ color => 0x007777,backColor => 0xaaffff,},
	'(perl-->)',			{ color => 0x007777,backColor => 0xaaffff,},
];

$main::hilite{blok_html} = [
#	'(^<!--perl.*$)','(^perl-->)',1,0x00aaaa
];

lib/Prima/CodeManager/hilite/hilite_tt2.pl  view on Meta::CPAN

$main::hilite{case_tt2} = 0;
$main::hilite{rexp_tt2} = [
	'(<\/*\w+>|<\w+|>)',			{ color => 0xcc0000,},
	'(\$_.+?\})',			{ color => 0xff00ff,},
	'(\&S_.+?\))',			{ color => 0x7777ff,},
	'(http:[\/\w\.]+)',						{ color => 0xcccc00,},
	'(&[\w^;]+?;)',							{ color => 0x0000ff,},
	'((class|src|href|style|id)="[^\$<>]*?")',		{ color => 0x00aa55,},
	'(\$[A-Z]+\{.*?\})',					{ color => 0x0077ff,},
	'(<!--output.*?-->)',					{ color => 0x0066bb,style => fs::Bold,},
	'(<!--.*?-->)',							{ color => 0xaaaaaa,},
	'(\[\%-?\s*#.*?\%\])',					{ color => 0xaaaaaa,},
	'(\[\%.*(FOREACH|META|END).*?\%\])',	{ color => 0x0055ff,style => fs::Bold,},
	'(\[\%\s*[^#].*?\%\])',					{ color => 0x008844,},
];

$main::hilite{blok_tt2} = [
#	'(^<!--perl.*$)','(^perl-->)',1,0x00aaaa
];