Return to make_vi_tags CVS log

Up to [local] / OpenXM_contrib / pari-2.2 / src

Annotation of OpenXM_contrib/pari-2.2/src/make_vi_tags, Revision 1.1.1.1

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