Return to make_vi_tags CVS log

Up to [local] / OpenXM_contrib / pari / src

Annotation of OpenXM_contrib/pari/src/make_vi_tags, Revision 1.1

1.1     ! maekawa     1: #!/usr/local/bin/perl
        !             2: # Build a (sorted) VI(M) tags file including GP functions
        !             3: #
        !             4: $src=$ARGV[0] || "$ENV{HOME}/PARI/src";
        !             5: $tmptags="$src/tags.tmp";
        !             6: $tags="$src/tags";
        !             7:
        !             8: # assume ctags outputs sorted tags (e.g Exuberant Ctags)
        !             9: system("ctags -f $tmptags `find $src -name \*.[chs] -type f -print`");
        !            10: getnames("$src/gp/gp_init.c");
        !            11: getnames("$src/language/init.c");
        !            12: open(T,"$tmptags");
        !            13: for (sort(@gp))
        !            14: {
        !            15:   ($a, $b) = split(/#/);
        !            16:   if ($a eq $old) { push(@tags,"$b$rest\n"); next; }
        !            17:   $old = $a;
        !            18:   while(<T>)
        !            19:   {
        !            20:     push(@tags,$_);
        !            21:     if (/^$a(.*)/) { $rest="$1"; push(@tags,"$b$rest\n"); last; }
        !            22:   }
        !            23: }
        !            24: while(<T>) { push(@tags,$_); }
        !            25: open(OUT,">$tags");
        !            26: print OUT sort(@tags);
        !            27: unlink $tmptags;
        !            28:
        !            29: sub getnames
        !            30: {
        !            31:   open(A,$_[0]);
        !            32:   while (<A>)
        !            33:   {
        !            34:     if (/^entree functions_/../^$/)
        !            35:     {
        !            36:       push(@gp,"$2#$1") if (/[^"]*"([^"]*)".*\(void\*\) *([^,]*)/);
        !            37:     }
        !            38:   }
        !            39:   close(A);
        !            40: }