[BACK]Return to make_vi_tags CVS log [TXT][DIR] Up to [local] / OpenXM_contrib / pari-2.2 / src

Diff for /OpenXM_contrib/pari-2.2/src/Attic/make_vi_tags between version 1.1 and 1.2

version 1.1, 2001/10/02 11:17:00 version 1.2, 2002/09/11 07:26:47
Line 6  $src=$ARGV[0] || "$ENV{HOME}/PARI/src";
Line 6  $src=$ARGV[0] || "$ENV{HOME}/PARI/src";
 $tmptags="$src/tags.tmp";  $tmptags="$src/tags.tmp";
 $tags="$src/tags";  $tags="$src/tags";
   
   @tags=""; $old="";
 # assume ctags outputs sorted tags (e.g Exuberant Ctags)  # assume ctags outputs sorted tags (e.g Exuberant Ctags)
 system("ctags -f $tmptags `find $src -name '*.[chs]' -type f -print`");  system("ctags -f $tmptags `find $src -name '*.[chs]' -type f -print`");
 getnames("$src/gp/gp_init.c");  getnames("$src/gp/gp_init.c");
 getnames("$src/language/init.c");  getnames("$src/language/init.c");
   geterrs("$src/language/errmsg.c");
 open(T,"$tmptags");  open(T,"$tmptags");
 @tags=""; $old="";  
 for (sort(@gp))  for (sort(@gp))
 {  {
   ($a, $b) = split(/#/);    ($a, $b) = split(/#/);
Line 24  for (sort(@gp))
Line 25  for (sort(@gp))
   }    }
 }  }
 while(<T>) { push(@tags,$_); }  while(<T>) { push(@tags,$_); }
   close(T);
   
 open(OUT,">$tags");  open(OUT,">$tags");
 print OUT sort(@tags);  print OUT sort(@tags);
 unlink $tmptags;  unlink $tmptags;
Line 36  sub getnames
Line 39  sub getnames
     if (/^entree functions_/../^$/)      if (/^entree functions_/../^$/)
     {      {
       push(@gp,"$2#$1") if (/[^"]*"([^"]*)".*\(void\*\) *([^,]*)/);        push(@gp,"$2#$1") if (/[^"]*"([^"]*)".*\(void\*\) *([^,]*)/);
       }
     }
     close(A);
   }
   
   sub geterrs
   {
     my $f = $_[0];
     open(A,$f);
     while (<A>)
     {
       if (m,^/(\*\s*\w+\s*\*)/,)
       {
         $e = $pat = $1;
         $e =~ s/\W*(\w+)\W*/$1/;
         push(@tags, "$e\t$f\t/$pat\n");
     }      }
   }    }
   close(A);    close(A);
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>