# -*- tab-width: 4 -*- ################################################# $Id: Cobol.pm,v 1.1.1.1 2006/04/26 07:48:23 hellwolf Exp $## Enhances the support for the Java language over that provided by# Generic.pm## 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.## This program is distributed in the hope that it will be useful,# but WITHOUT ANY WARRANTY; without even the implied warranty of# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the# GNU General Public License for more details.## You should have received a copy of the GNU General Public License# along with this program; if not, write to the Free Software# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.package LXR::Lang::Cobol;my $CVSID = '$Id: Cobol.pm,v 1.1.1.1 2006/04/26 07:48:23 hellwolf Exp $ ';use strict;use LXR::Common;require LXR::Lang;require LXR::Lang::Generic;@LXR::Lang::Cobol::ISA = ('LXR::Lang::Generic');sub referencefile { }sub processcode {	my ($self, $code) = @_;	$$code =~ s {(^|[^\w\#-])([\w~-][\w-]*)\b}	{	  $1.		( $2 eq "" ? $2 :		(grep(/^$2$/, $self->langinfo('reserved')) ? "<span class='reserved'>$2</span>" : 		(		  $index->issymbol($2, $$self{'release'})) ?		 join($2, @{$$self{'itag'}}) :		 $2));	}ge;}1;