Doxyfile.filter 803 Bytes
Newer Older
Klaus Schmidinger's avatar
Klaus Schmidinger committed
1 2 3 4 5 6 7 8 9 10 11
#!/usr/bin/perl

# Filter source files for use with Doxygen.
#
# Escapes special characters in comments marked with "///<".
#
# Usage: Doxyfile.filter filename
#
# See the main source file 'vdr.c' for copyright information and
# how to reach the author.
#
etobi's avatar
etobi committed
12
# $Id: Doxyfile.filter 3.0 2013/02/17 10:54:05 kls Exp $
Klaus Schmidinger's avatar
Klaus Schmidinger committed
13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

$TAG = "///<";

while (<>) {
      $t = $_;
      $p = index($t, $TAG);
      if ($p >= 0) {
         $p += length($TAG);
         print substr($t, 0, $p);
         $quote = 0;
         while (1) {
               $s = substr($t, $p++, 1);
               last        if ($s eq "");
               $quote ^= 1 if ($s eq '"');
               print "\\"  if (!$quote && $s =~ /[\\\@<>]/);
               print $s;
               }
         }
      else {
         print $t;
         }
      }