[interchange-cvs] interchange - heins modified code/UI_Tag/jsq.coretag

interchange-core@icdevgroup.org interchange-core@icdevgroup.org
Sat Aug 3 17:23:01 2002


User:      heins
Date:      2002-08-03 21:22:05 GMT
Added:     code/UI_Tag jsq.coretag
Log:
* Add missing [jsq] tag. (Also aliased to jsquote.)

Revision  Changes    Path
1.1                  interchange/code/UI_Tag/jsq.coretag


rev 1.1, prev_rev 1.0
Index: jsq.coretag
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
UserTag jsquote Alias jsq
UserTag jsq hasEndTag
UserTag jsq NoReparse
UserTag jsq PosNumber 0
UserTag jsq Routine <<EOR
sub {
	my $text =3D shift;
	$text =3D~ s/^[ \t\r]*\n//;
	my @lines =3D split /\r?\n/, $text;

	for(@lines) {
		( $_ !~ /'/ and s/\r/\\r/g, s/(^|[^\\])\$\{?(\w+)\}?/$1' + $2 + '/g, $_ =
=3D qq{'$_'} )
		  or
		( $_ !~ /"/ and s/\r/\\r/g, s/(^|[^\\])\$\{?(\w+)\}?/$1" + $2 + "/g, $_ =
=3D qq{"$_"} )
		  or=20
		( s/'/\\'/g,  s/\r/\\r/g, s/(^|[^\\])\$\{?(\w+)\}?/$1' + $2 + '/g, $_ =3D=
 qq{'$_'} );
	}
	return join (" +\n", @lines);
}
EOR