# Copyright 2002-2007 Interchange Development Group and others

#

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version. See the LICENSE file for details.

UserTag jsquote Alias jsq

UserTag jsq hasEndTag

UserTag jsq NoReparse

UserTag jsq PosNumber 0

UserTag jsq Version 1.8

UserTag jsq Routine <<EOR

sub {

my $text = shift;

$text =~ s/^[ \t\r]*\n//;

my @lines = split /\r?\n/, $text;

for(@lines) {

( $_ !~ /'/ and s/\r/\\r/g, s/(^|[^\\])\$\{?(\w+)\}?/$1' + $2 + '/g, $_ = qq{'$_'} )

or

( $_ !~ /"/ and s/\r/\\r/g, s/(^|[^\\])\$\{?(\w+)\}?/$1" + $2 + "/g, $_ = qq{"$_"} )

or

( s/'/\\'/g, s/\r/\\r/g, s/(^|[^\\])\$\{?(\w+)\}?/$1' + $2 + '/g, $_ = qq{'$_'} );

}

@lines = "''" unless @lines;

return join (" +\n", @lines);

}

EOR