Source

opycaml / idlconvert.pl

Full commit
#!/usr/bin/perl
while(<>){
    s/Py([A-Za-z]*)[ ]*\*/Py$1_p /g;
    s/\[option\]\s*([A-Za-z0-9_]+)/$1_option/g;
    s/\[new\]\s*([A-Za-z0-9_]+)/$1_noincr/g;
    s/\[stolen\]\s*([A-Za-z0-9_]+)/$1_incr/g;
    s/\[internal\]//g;
    s/\[wrap\] ([A-Za-z0-9_]+)/$1_wrap/g; # in ML side, _wrap must be removed (module.pl)
    s/\[mlname[^\]]*\]//g;
    if( /^[^\/]/ ){
        s/value/value_/g;
    }
    print;
}