Thread: [Lxr-commits] CVS: lxr/lib/LXR/Lang Cobol.pm,NONE,1.1 generic.conf,1.16,1.17
Brought to you by:
ajlittoz
From: Dave B. <bro...@us...> - 2004-08-10 16:14:34
|
Update of /cvsroot/lxr/lxr/lib/LXR/Lang In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6751/lib/LXR/Lang Modified Files: generic.conf Added Files: Cobol.pm Log Message: add cobol support --- NEW FILE: Cobol.pm --- # -*- tab-width: 4 -*- ############################################### # # $Id: Cobol.pm,v 1.1 2004/08/10 16:14:25 brondsem 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 2004/08/10 16:14:25 brondsem 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; Index: generic.conf =================================================================== RCS file: /cvsroot/lxr/lxr/lib/LXR/Lang/generic.conf,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- generic.conf 21 Jul 2004 20:44:31 -0000 1.16 +++ generic.conf 10 Aug 2004 16:14:25 -0000 1.17 @@ -160,9 +160,394 @@ 'langid' => '5', }, - 'COBOL' => { - 'reserved' => [], - 'langid' => '6', + 'Cobol' => { + 'reserved' => [ + + # other + 'LIKE', + 'END-IF', + + # ansi + 'ACCEPT', + 'ACCESS', + 'ADD', + 'ADVANCING', + 'AFTER', + 'ALL', + 'ALPHABET', + 'ALPHABETIC', + 'ALPHABETICLOWER', + 'ALPHABETICUPPER', + 'ALPHANUMERIC', + 'ALPHANUMERICEDITED', + 'ALSO', + 'ALTER', + 'ALTERNATE', + 'AND', + 'ANY', + 'ARE', + 'AREA', + 'AREAS', + 'ASCENDING', + 'ASSIGN', + 'AT', + 'AUTHOR', + 'BEFORE', + 'BINARY', + 'BLANK', + 'BLOCK', + 'BOTTOM', + 'BY', + 'CALL', + 'CANCEL', + 'CD', + 'CF', + 'CH', + 'CHARACTER', + 'CHARACTERS', + 'CLASS', + 'CLOCKUNITS', + 'CLOSE', + 'COBOL', + 'CODE', + 'CODESET', + 'COLLATING', + 'COLUMN', + 'COMMA', + 'COMMON', + 'COMMUNICATION', + 'COMP', + 'COMP0', + 'COMP1', + 'COMP2', + 'COMP3', + 'COMP4', + 'COMP5', + 'COMP6', + 'COMPUTATIONAL', + 'COMPUTATIONAL0', + 'COMPUTATIONAL1', + 'COMPUTATIONAL2', + 'COMPUTATIONAL3', + 'COMPUTATIONAL4', + 'COMPUTATIONAL5', + 'COMPUTATIONAL6', + 'COMPUTATIONALX', + 'COMPUTE', + 'COMPX', + 'CONFIGURATION', + 'CONTAINS', + 'CONTENT', + 'CONTINUE', + 'CONTROL', + 'CONTROLAREA', + 'CONTROLS', + 'CONVERTING', + 'COPY', + 'CORR', + 'CORRESPONDING', + 'COUNT', + 'CURRENCY', + 'DATA', + 'DATE', + 'DATECOMPILED', + 'DATEWRITTEN', + 'DAY', + 'DAYOFWEEK', + 'DE', + 'DEBUGCONTENTS', + 'DEBUGGING', + 'DEBUGITEM', + 'DEBUGLINE', + 'DEBUGNAME', + 'DEBUGSUB1', + 'DEBUGSUB2', + 'DEBUGSUB3', + 'DECIMALPOINT', + 'DECLARATIVES', + 'DELETE', + 'DELIMITED', + 'DELIMITER', + 'DEPENDING', + 'DESCENDING', + 'DESTINATION', + 'DETAIL', + 'DISABLE', + 'DISPLAY', + 'DIVIDE', + 'DIVISION', + 'DOWN', + 'DUPLICATES', + 'DYNAMIC', + 'EGI', + 'ELSE', + 'EMI', + 'ENABLE', + 'END', + 'ENDADD', + 'ENDCALL', + 'ENDCOMPUTE', + 'ENDDELETE', + 'ENDDIVIDE', + 'ENDEVALUATE', + 'ENDIF', + 'ENDMULTIPLY', + 'ENDOFPAGE', + 'ENDPERFORM', + 'ENDREAD', + 'ENDRECEIVE', + 'ENDRETURN', + 'ENDREWRITE', + 'ENDSEARCH', + 'ENDSTART', + 'ENDSTRING', + 'ENDSUBTRACT', + 'ENDUNSTRING', + 'ENDWRITE', + 'ENTER', + 'ENVIRONMENT', + 'EOP', + 'EQUAL', + 'ERROR', + 'ESI', + 'EVALUATE', + 'EVERY', + 'EXCEPTION', + 'EXIT', + 'EXTEND', + 'EXTERNAL', + 'FALSE', + 'FD', + 'FILE', + 'FILECONTROL', + 'FILLER', + 'FINAL', + 'FIRST', + 'FOOTING', + 'FOR', + 'FROM', + 'FUNCTION', + 'GENERATE', + 'GIVING', + 'GLOBAL', + 'GO', + 'GREATER', + 'GROUP', + 'HEADING', + 'HIGHVALUE', + 'HIGHVALUES', + 'IDENTIFICATION', + 'IF', + 'IN', + 'INDEX', + 'INDEXED', + 'INDICATE', + 'INITIAL', + 'INITIALIZE', + 'INITIATE', + 'INPUT', + 'INPUTOUTPUT', + 'INSPECT', + 'INSTALLATION', + 'INTO', + 'INVALID', + 'IO', + 'IOCONTROL', + 'JUST', + 'JUSTIFIED', + 'KEY', + 'LABEL', + 'LAST', + 'LEADING', + 'LEFT', + 'LENGTH', + 'LESS', + 'LIMIT', + 'LIMITS', + 'LINAGE', + 'LINAGECOUNTER', + 'LINE', + 'LINECOUNTER', + 'LINES', + 'LINKAGE', + 'LOCK', + 'LOWVALUE', + 'LOWVALUES', + 'MEMORY', + 'MERGE', + 'MESSAGE', + 'MODE', + 'MODULES', + 'MORELABELS', + 'MOVE', + 'MULTIPLE', + 'MULTIPLY', + 'NATIVE', + 'NEGATIVE', + 'NEXT', + 'NO', + 'NOT', + 'NUMBER', + 'NUMERIC', + 'NUMERICEDITED', + 'OBJECTCOMPUTER', + 'OCCURS', + 'OF', + 'OFF', + 'OMITTED', + 'ON', + 'OPEN', + 'OPTIONAL', + 'OR', + 'ORDER', + 'ORGANIZATION', + 'OTHER', + 'OUTPUT', + 'OVERFLOW', + 'PACKEDDECIMAL', + 'PADDING', + 'PAGE', + 'PAGECOUNTER', + 'PERFORM', + 'PF', + 'PH', + 'PIC', + 'PICTURE', + 'PLUS', + 'POINTER', + 'POSITION', + 'POSITIVE', + 'PRINTING', + 'PROCEDURE', + 'PROCEDURES', + 'PROCEED', + 'PROGRAM', + 'PROGRAMID', + 'PURGE', + 'QUEUE', + 'QUOTE', + 'QUOTES', + 'RANDOM', + 'RD', + 'READ', + 'RECEIVE', + 'RECORD', + 'RECORDS', + 'REDEFINES', + 'REEL', + 'REFERENCE', + 'REFERENCES', + 'RELATIVE', + 'RELEASE', + 'REMAINDER', + 'REMOVAL', + 'RENAMES', + 'REPLACE', + 'REPLACING', + 'REPORT', + 'REPORTING', + 'REPORTS', + 'RERUN', + 'RESERVE', + 'RETURN', + 'REVERSED', + 'REWIND', + 'REWRITE', + 'RF', + 'RH', + 'RIGHT', + 'ROUNDED', + 'RUN', + 'SAME', + 'SD', + 'SEARCH', + 'SECTION', + 'SECURITY', + 'SEGMENT', + 'SEGMENTLIMIT', + 'SELECT', + 'SEND', + 'SENTENCE', + 'SEPARATE', + 'SEQUENCE', + 'SEQUENTIAL', + 'SET', + 'SIGN', + 'SIZE', + 'SORT', + 'SORTMERGE', + 'SOURCE', + 'SOURCECOMPUTER', + 'SPACE', + 'SPACES', + 'SPECIALNAMES', + 'STANDARD', + 'STANDARD1', + 'STANDARD2', + 'START', + 'STATUS', + 'STOP', + 'STRING', + 'SUBQUEUE1', + 'SUBQUEUE2', + 'SUBQUEUE3', + 'SUBTRACT', + 'SUM', + 'SUPER', + 'SUPPRESS', + 'SYMBOLIC', + 'SYNC', + 'SYNCHRONIZED', + 'TALLYING', + 'TAPE', + 'TERMINAL', + 'TERMINATE', + 'TEST', + 'TEXT', + 'THAN', + 'THEN', + 'THROUGH', + 'THRU', + 'TIME', + 'TIMES', + 'TO', + 'TOP', + 'TRAILING', + 'TRUE', + 'TYPE', + 'UNIT', + 'UNSTRING', + 'UNTIL', + 'UP', + 'UPON', + 'USAGE', + 'USE', + 'USING', + 'VALUE', + 'VALUES', + 'VARYING', + 'WHEN', + 'WITH', + 'WORDS', + 'WORKINGSTORAGE', + 'WRITE', + 'ZERO', + 'ZEROES', + 'ZEROS', + ], + 'spec' => [ + 'comment' => ('^[\d ]*\*', '$'), + 'string' => ('"', '"'), + ], + 'typemap' => { + 'd' => 'data item', + 'f' => 'file description', + 'g' => 'group item', + 'p' => 'paragraph', + 'P' => 'program id', + 's' => 'section', + }, + 'langid' => '6', }, 'Perl' => { 'reserved' => [ 'sub', ], |