Thread: [Lxr-commits] CVS: lxr/lib/LXR Lang.pm,1.52,1.53
Brought to you by:
ajlittoz
From: Andre-Littoz <ajl...@us...> - 2013-11-08 09:15:41
|
Update of /cvsroot/lxr/lxr/lib/LXR In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv12547/lib/LXR Modified Files: Lang.pm Log Message: Lang.pm: category family feature Categories are processed based on their name prefix. They are tagged with a CSS class equal to their full name. Index: Lang.pm =================================================================== RCS file: /cvsroot/lxr/lxr/lib/LXR/Lang.pm,v retrieving revision 1.52 retrieving revision 1.53 diff -u -d -r1.52 -r1.53 --- Lang.pm 24 Sep 2013 07:36:09 -0000 1.52 +++ Lang.pm 8 Nov 2013 09:15:38 -0000 1.53 @@ -210,7 +210,7 @@ a I<string> to mark -=item 1 C<$dir> +=item 1 C<$css> a I<string> containing the CSS class @@ -248,9 +248,8 @@ =cut sub processcomment { - my ($self, $frag) = @_; - - multilinetwist($frag, 'comment'); + shift @_; + goto &multilinetwist; } @@ -271,9 +270,34 @@ =cut sub processstring { - my ($self, $frag) = @_; + shift @_; + goto &multilinetwist; +} - multilinetwist($frag, 'string'); + +=head2 C<processextra ($frag, $kind)> + +Method C<processextra> marks the fragment as language specific. + +=over + +=item 1 C<$frag> + +a I<string> to mark + +=item 1 C<$kind> + +a I<string> containing the CSS class + +=back + +Uses function C<multilinetwist>. + +=cut + +sub processextra { + shift @_; + goto &multilinetwist; } # |