Add a way to demangle C++ symbols
[scilab.git] / scilab / modules / jit / src / perl / demangle.pl
1 #!/usr/bin/perl
2 # In the generated file, replace the mangled symbols by the classical C++
3 # symbol
4
5 use strict;
6
7 while (<>) {
8                 if(/(.*)(\".*\")(.*)/) {
9                                 my $command = "c++filt -n $2";
10                                 my $k = `$command`;
11                                 chomp $k;
12                                 print "$1\"$k\"$3";
13                 } else {
14                                 print "$_"
15     }
16
17