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;
}
#
|
