[Tc2-checkins] [CSET 1.28] tc2make: package private symbols

[<mr...@mr...>]

# This is a BitKeeper generated diff -Nru style patch.
#
# ChangeSet
#   2005/04/11 22:43:41+02:00 mr...@fo... =

#   tc2make: package private symbols
# =

# tools/tc2make
#   2005/04/11 22:43:41+02:00 mr...@fo... +4 -1
#   package private symbols
# =

diff -Nru a/tools/tc2make b/tools/tc2make
--- a/tools/tc2make	2005-04-11 22:44:02 +02:00
+++ b/tools/tc2make	2005-04-11 22:44:02 +02:00
@@ -1,5 +1,5 @@
 #! /usr/bin/env perl
-# Copyright (C) 2001-2004  Michael Ahlberg, M=C3=A5ns Rullg=C3=A5rd
+# Copyright (C) 2001-2005  Michael Ahlberg, M=C3=A5ns Rullg=C3=A5rd
 =

 # Permission is hereby granted, free of charge, to any person obtaining
 # a copy of this software and associated documentation files (the
@@ -659,6 +659,7 @@
     my(@preinc, @postinc);
     my $doc =3D \$int{'doc'}{'main'};
     my($ext, $bc);
+    my $localif =3D $file =3D~ /^$topsrc/;
 =

     open $ifh, $file or print STDERR "$file: $!\n" and return;
 =

@@ -675,6 +676,8 @@
 	} elsif(/^\s*symbol\s+\"(.*?)\"\s+(.*)/){
 	    $int{'symbols'}{$1} =3D $2;
 	    $doc =3D \$int{'doc'}{'symbols'}{$1};
+	} elsif(/^psymbol\s+\"(.*?)\"\s+(.*)/){
+	    $int{'symbols'}{$1} =3D $2 if $localif;
 	} elsif(/^\s*((post|pre)?include)\s*(?:<<(.*))?$/){
 	    my $inc =3D $1;
 	    my $end =3D $3;