File: doxygen-filter.pl

package info (click to toggle)
lapackpp 2024.10.26-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 6,500 kB
  • sloc: cpp: 80,181; ansic: 27,660; python: 4,838; xml: 182; perl: 99; makefile: 53; sh: 23
file content (32 lines) | stat: -rwxr-xr-x 512 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
#!/usr/bin/perl

use strict;

sub dollar
{
    my( $pre ) = @_;
    if ($pre eq '\\') {
        # change \$ to $
        return '$';
    }
    elsif ($pre eq '\\f') {
        # don't change \f$
        return '\\f$';
    }
    else {
        # change $ to \f$
        return $pre . '\\f$';
    }
}

while (<>) {
    # replace \[ and \] by \f[ and \f]
    s/\\([\[\]])/\\f$1/g;

    # replace         $  by  \f$
    # replace        \$  by  $
    # don't change  \f$
    s/(\\f|\\|)\$/dollar($1)/eg;

    print
}