Show
Ignore:
Timestamp:
07/13/09 13:15:34 (4 years ago)
Author:
hans-christoph
Message:

check-compose: auch Dopplungen erkennen

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • Compose/check-compose.pl

    r1926 r1927  
    11#!/usr/bin/perl -w 
    22 
    3 # Dieses Skript prüft übergebene Compose-Dateien auf Präfix-Eigenschaft 
     3# Dieses Skript prüft übergebene Compose-Dateien auf  
     4# Präfix-Eigenschaft und auf Code-Dopplungen 
     5# 
    46# Beispiel-Aufruf: 
    57# 
     
    3032    } 
    3133 
     34    if ($code{"@codes"}) { 
     35            print <<EOF; 
     36 
     37* @codes Sequenz mehrfach verwendet 
     38 $line 
     39 $code{"@codes"} 
     40EOF 
     41    } 
     42 
    3243    $code{"@codes"} = $line; 
     44 
    3345    if ($prefix{"@codes"}) { 
    3446            print <<EOF;