Changeset edb9d70 in rtems

Timestamp:

07/06/00 20:10:00 (23 years ago)

Author:

Joel Sherrill <joel.sherrill@…>

Branches:

4.10, 4.11, 4.8, 4.9, 5, master

Children:

6c5aba2

Parents:

501d312

Message:

Patch rtems-rc-20000705-1.diff from Ralf Corsepius <corsepiu@…>.
CVS: ----------------------------------------------------------------------
CVS: Enter Log. Lines beginning with `CVS:' are removed automatically
CVS:
CVS: Committing in .
CVS:
CVS: Modified Files:
CVS: c/src/tests/libtests/termios/init.c
CVS: ----------------------------------------------------------------------

File:

• tools/update/cipolish (modified) (3 diffs)

tools/update/cipolish

@@ -17 +17 @@
 my @vars = () ;
 my @buffer = () ;
+my %var_ ;
 
 # find relative up-path to VERSION
@@ -130 +131 @@
     if ( /^[\s]*(RTEMS_ENABLE_LIBCDIR).*$/o )
     {
-      if (  ( not defined $main::var_RTEMS_PROG_CC_FOR_TARGET )
-        and ( not defined $main::var_RTEMS_PROG_CXX_FOR_TARGET )
+      if (  ( not variable_seen( "RTEMS_PROG_CC_FOR_TARGET" ) )
+        and ( not variable_seen( "RTEMS_PROG_CXX_FOR_TARGET" ) )
       ) 
       {
@@ -221 +222 @@
 }
 
-sub define_variable
-{
-  my ($name,$value) = @_ ;
-
-  if ( not defined ${"var_$name"} )
-  {
-# print STDERR "DEFINING $name = $value\n" ;
-    push @vars, "$name" ;
-    ${"var_$name"} = "$value" ;
+sub variable_seen($)
+{
+  my $label = "$_[0]" ;
+  my $res = defined $var_{"$label"};
+#print STDERR "SEEN: $label ->$res<\n" ;
+  return $res ;
+}
+
+sub define_variable($$)
+{
+  my ($label,@value) = @_ ;
+
+  if ( not variable_seen("$label") )
+  {
+# print STDERR "DEFINING $label\n" ;
+    push @vars, "$label" ;
   }
-  else
-  {
-# print STDERR "APPENDING <$name> <- <$value>\n" ; 
-    ${"var_$name"} .= " $value" ;
+
+  foreach my $i ( @{value} )
+  {
+    push @{$var_{"$label"}}, $i ;
   }
 }