OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [tools/] [update/] [acpolish] - Blame information for rev 507

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 30 unneback 
#!/usr/bin/perl
2 
 
3 
use strict ;
4 
 
5 
sub print_macro($$);
6 
 
7 
#
8 
# Perl script to beautify and enhance RTEMS autoconf Makefile.ins
9 
#
10 
# Reads from stdin and writes to stdout
11 
#
12 
# usage:
13 
# acpolish Makefile.in~
14 
# mv Makefile.in~ Makefile.in
15 
#
16 
# Note: This tool is not indented to be exported from the source-tree
17 
#
18 
 
19 
if ( -f "Makefile.am" )
20 
{
21 
  # Refuse to work on Makefile.ins generated from automake;
22 
  # redirecting STDOUT to Makefile.in will trash the Makefile.in ;-
23 
 
24 
  die "acpolish must not be run in automake directories" ;
25 
}
26 
 
27 
my $experimental = 0 ; # enable experimental/unsafe features
28 
my $verbose = 0 ;
29 
my $build_pgms_seen = "" ;
30 
my $make_exe_seen = 0 ;
31 
my $install_seen = 0 ;
32 
my $top_builddir = "";
33 
my $subdir = "";
34 
my @installdirs = () ;
35 
 
36 
my @pieces = () ;
37 
my @files = () ;
38 
my @variants = () ;
39 
my @vars = () ;
40 
 
41 
# Strip off duplicate entries from a list
42 
sub purge($)
43 
{
44 
  my $list = $_[0] ; # Reference to list !
45 
  my (@tmp) = () ;
46 
 
47 
  foreach my $l ( @{$list} )
48 
  {
49 
    my $i = 1 ;
50 
    foreach my $t (@tmp)
51 
    {
52 
      if ( $t eq $l )
53 
      {
54 
        $i = 0 ;
55 
        last ;
56 
      }
57 
    }
58 
    push @tmp,$l if ($i) ;
59 
  }
60 
 
61 
  @{$list} = @tmp ;
62 
}
63 
 
64 
sub find_root
65 
{
66 
  $top_builddir = "." ;
67 
  $subdir="";
68 
  my $pwd = `pwd`; chomp $pwd;
69 
  $pwd .= "/" ;
70 
  my $len ;
71 
 
72 
  if ( -f "configure.in" )  { return $top_builddir ; }
73 
  my $i = rindex($pwd,'/');
74 
 
75 
  $len = $i;
76 
  $pwd = substr($pwd,0,$len);
77 
  $i = rindex($pwd,'/');
78 
  $subdir = substr($pwd,$i+1,$len - 1);
79 
  $top_builddir = ".." ;
80 
 
81 
  while( -d "$top_builddir" )
82 
  {
83 
    if ( -f "${top_builddir}/configure.in" )
84 
    {
85 
      return $top_builddir ;
86 
    }
87 
    $len=$i;
88 
    $pwd = substr($pwd,0,$len);
89 
    $i = rindex($pwd,'/');
90 
    $subdir = substr($pwd,$i+1,$len - 1) . "/$subdir";
91 
    $top_builddir .= "/.." ;
92 
  } ;
93 
  die "Can't find configure.in\n" ;
94 
}
95 
 
96 
find_root();
97 
 
98 
my @buffer = () ;
99 
 
100 
sub subst_line
101 
{
102 
# substitute obsolete variables
103 
  if ( /^([^\s]*)[\s]+$/o )
104 
  { # strip trailing spaces
105 
    $_ = "$1\n";
106 
  }
107 
  if ( /^(.*)MKLIB(.*)$/o )
108 
  {
109 
    s/MKLIB/RANLIB/g ;
110 
  }
111 
  if ( /^(.*)\$\(INSTINCFLAGS\)(.*)$/o )
112 
  {
113 
    s/\$\(INSTINCFLAGS\)/-m 644/g ;
114 
  }
115 
  if ( /^(.*)ASM(_FILES|_PIECES|_O_FILES)(.*)$/o )
116 
  {
117 
    s/ASM_FILES/S_FILES/g ;
118 
    s/ASM_PIECES/S_PIECES/g ;
119 
    s/ASM_O_FILES/S_O_FILES/g ;
120 
    print STDERR "ASM: $_"  if ( $verbose > 0) ;
121 
  }
122 
  if ( /^(.*)MP_PIECES(.*)$/o )
123 
  { # HACK: this is not always correct
124 
    s/MP_PIECES/MP_C_PIECES/g ;
125 
    print STDERR "MP_PIECES: $_"  if ( $verbose > 0 );
126 
  }
127 
  if ( /^(.*)\$\(RTEMS_BSP\)(.*)$/o )
128 
  {
129 
    s/\$\(RTEMS_BSP\)/\@RTEMS_BSP\@/g ;
130 
  }
131 
  if ( /^(.*)\$\(RTEMS_ROOT\)\/mkinstalldirs(.*)$/o )
132 
  {
133 
    $_ = "$1\$\(mkinstalldirs\)$2\n" ;
134 
  }
135 
  if ( /^(.*)\$\{(.*)_FILES\}(.*)$/o )
136 
  {
137 
    $_ = "$1\$\($2_FILES\)$3\n" ;
138 
  }
139 
  if ( /^(.*)\$\{(.*)_PIECES\}(.*)$/o )
140 
  {
141 
    $_ = "$1\$\($2_PIECES\)$3\n" ;
142 
  }
143 
  if ( /^(.*)\$\(PROJECT_ROOT\)\/\@RTEMS_BSP\@\/lib\/include(.*)$/o )
144 
  {
145 
    $_ = "$1\$\(PROJECT_INCLUDE\)$2\n" ;
146 
  }
147 
  if ( /^(.*)\$\{PROJECT_RELEASE\}(.*)$/o )
148 
  {
149 
    $_ = "$1\$\(PROJECT_RELEASE\)$2\n" ;
150 
  }
151 
  if ( /^(.*\$\(INSTALL_[A-Z]+\))[\s]+-m[\s]+([54])([0-9][0-9].*)$/o )
152 
  {
153 
    my $v = $2 + 2 ;
154 
    $_ = "$1 -m $v$3\n" ;
155 
  }
156 
  if ( /^H_FILES[\s]*=[\s]*\$\(wildcard[\s]+\$\(srcdir\)\/\*\.h\)[\s]*$/o )
157 
  {
158 
     my $files =`ls *.h 2>/dev/null`;
159 
     print STDERR "WARNING: Replacing \"\(wildcard... in $_\n" ;
160 
     my $line = "H_FILES =";
161 
     my @l = split(' ',$files) ;
162 
     foreach(@l) { $line .= " \$\(srcdir\)/$_"; }
163 
     $line .= "\n" ;
164 
     $_ = "$line" ;
165 
  }
166 
  if ( /^(.*)RTEMS_HAS_([A-Z]+)(.*)$/o )
167 
  {
168 
     print STDERR "WARNING: Replacing RTEMS_HAS_$2 with HAS_$2\n" ;
169 
     $_ = "$1HAS_$2$3\n" ;
170 
  }
171 
  if ( /^[\s]*\$[({]PGM[)}]:[\s]*(.*)\$([({]SRCS[)}])(.*)$/o )
172 
  {
173 
      $_ = "\$(PGM):$1$3\n" ;
174 
  }
175 
  if ( /^.*\$\(make\-exe\).*$/o )
176 
  {
177 
    $make_exe_seen = 1 ;
178 
  }
179 
  if ( /^.*\$\(INSTALL_(DATA|SCRIPT|PROGRAM)\)(.*)$/o )
180 
  {
181 
    $install_seen = 1 ;
182 
  }
183 
}
184 
 
185 
{
186 
# 1st PASS:
187 
# * Read input file
188 
# * concatenate multiple lines
189 
# * Remove obsolete variables
190 
 
191 
  my @ibuf = () ;
192 
  my $line = "" ;
193 
 
194 
  while (  )
195 
  {
196 
    &subst_line ;
197 
    if ( /^(#.*)$/o )
198 
    { # preserve comments
199 
      $line = "$_" ;
200 
      push @ibuf, $line ;
201 
      $line = "" ;
202 
    }
203 
    elsif ( /^.*\\$/o )
204 
    { # multilines
205 
      chop ;
206 
      $line .= "$_\\" ;
207 
    }
208 
    else
209 
    {
210 
      $line .= "$_" ;
211 
      push @ibuf, $line ;
212 
      $line = "" ;
213 
    }
214 
  }
215 
  @buffer = @ibuf;
216 
}
217 
 
218 
{
219 
# 2nd PASS:
220 
# * remove automatically generated lines
221 
# * process some selected make rules
222 
  my $line = "" ;
223 
  my @tbuf = () ;
224 
  foreach (@buffer)
225 
  {
226 
    if ( /^[\t](.*)$/o )
227 
    { # make rule production
228 
      my $line = $1 ;
229 
      tr/\\/ / ;
230 
      my @l = split(/;/,$_);
231 
      foreach (@l)
232 
      { # try to get installation directories
233 
        if ( /^.*\$\(mkinstalldirs\).*\s\$\(INSTALLDIRS\)$/o )
234 
        {
235 
        }
236 
        elsif ( /^.*\$\(mkinstalldirs\).*\s([^\s]+)$/o )
237 
        {
238 
          push @installdirs, "$1" ;
239 
        }
240 
        elsif ( /^.*\$\(INSTALL_CHANGE\).*\s([^\s]+)(\/[^\.\s]+\.[^\s\/]+)$/o )
241 
        {
242 
#            print STDERR "WARNING - DIR1: $1 <$2> " ;
243 
            push @installdirs, "$1" ;
244 
        }
245 
        elsif ( /^.*\$\(INSTALL_CHANGE\).*\s([^\s]+)$/o )
246 
        {
247 
#          print STDERR "DIR2 $1\n" ;
248 
          push @installdirs, "$1" ;
249 
        }
250 
      }
251 
      push @tbuf, "§3$line"
252 
    }
253 
    elsif ( /^[\s]*\#.*$/o )
254 
    { # comment
255 
      push @tbuf, "$_" ;
256 
    }
257 
    elsif ( /^[\s]*([A-Z_]*)_FILES[\s]*\=[\s]*(.*)$/o )
258 
    { # *_FILES = ... Macros
259 
      if ( /^[\s]*([A-Z_]*_|)(CC|C|EQ|H|I|O|S|X)_FILES[\s]*\=[\s]*(.*)$/o )
260 
      {
261 
#        print STDERR "FILES: <$1>--<$2>--<$3>\n" ;
262 
        my $f = "$1$2_FILES" ;
263 
        ${"var_$f"}="$3" ;
264 
        if ( ( $experimental > 0 )
265 
          and ( ( "$2" eq "C" ) or ( "$2" eq "CC" ) or ( "$2" eq "S" )
266 
          or ( "$2" eq "I" ) or ( "$2" eq "H" ) ) )
267 
        {
268 
          my $p = "$1$2_PIECES" ;
269 
          if ( not defined ${"var_$p"} )
270 
          {
271 
            print STDERR "ADDING $p\n" ;
272 
            ${"var_$p"} = "" ;
273 
            push @tbuf, "§4$p\n" ;
274 
            push @pieces, "$p" ;
275 
          }
276 
        }
277 
        # place a marker
278 
        push @tbuf, "§4$f\n" ;
279 
        push @files, "$f" ;
280 
      }
281 
      else
282 
      { # found a bug
283 
        print STDERR "UNKNOWN _FILES: $_\n" ;
284 
        my $f = "$1_FILES" ;
285 
        ${"var_$f"}="$2" ;
286 
        # place a marker
287 
        push @tbuf, "§4$f\n" ;
288 
        push @files, "$f" ;
289 
      }
290 
    }
291 
    elsif ( /^[\s]*([A-Z_]*)_PIECES[\s]*\=[\s]*(.*)$/o )
292 
    { # *_PIECES = ... Macros
293 
      if ( /^[\s]*([A-Z][A-Z0-9_]*_|)(CC|C|EQ|H|I|O|S|X|REL)_PIECES[\s]*\=[\s]*(.*)$/o )
294 
      {
295 
        my $p = "$1$2_PIECES" ;
296 
 
297 
        if ( not defined ${"var_$p"} )
298 
        {
299 
          ${"var_$p"} = "$3" ;
300 
          push @tbuf, "§4$p\n" ;
301 
          push @pieces, "$p" ;
302 
        }
303 
        else
304 
        {
305 
          ${"var_$p"} .= " $3" ;
306 
        }
307 
      }
308 
      elsif ( /^[\s]*(BSP|CPU|GENERIC)_PIECES[\s]*\=[\s]*(.*)$/o )
309 
      { # Explicit exceptions from the *_PIECES naming conventions
310 
        # They should better be replaced in future
311 
        my $p = "$1_PIECES" ;
312 
        ${"var_$p"}="$2" ;
313 
        # place a marker
314 
        push @tbuf, "§4$p\n" ;
315 
        push @pieces, "$p" ;
316 
      }
317 
      else
318 
      { # found a bug
319 
        print STDERR "UNKNOWN _PIECES: $_\n" ;
320 
        my $p = "$1_PIECES" ;
321 
        ${"var_$p"}="$2" ;
322 
        # place a marker
323 
        push @tbuf, "§4$p\n" ;
324 
        push @pieces, "$p" ;
325 
      }
326 
    }
327 
    elsif ( /^[\s]*([A-Z_]+)_PIECES_([^\s]+)_V[\s]*\=[\s]*(.*)$/o )
328 
    { # *_PIECES_.._V = ... Macros
329 
      if ( /^[\s]*([A-Z][A-Z0-9_]*_|)(CC|C|EQ|H|I|O|S|X|REL)_PIECES_([^\s]+)_V[\s]*\=[\s]*(.*)$/o )
330 
      {
331 
        my @l = split(/_/,$3);
332 
        my $v = "$1$2-$#l" ;
333 
        if ( not defined @{"variants_$v"} ) { push @variants, "$v" ; }
334 
 
335 
        my $p = "$1$2_PIECES_$3_V" ;
336 
        push @{"variants_${v}"}, "$p" ;
337 
 
338 
        ${"var_$p"}="$4" ;
339 
        # place a marker
340 
        push @tbuf, "§4$p\n" ;
341 
        push @pieces, "$p" ;
342 
      }
343 
      else
344 
      { # found a bug
345 
        print STDERR "UNKNOWN _PIECES: $_\n" ;
346 
        my $p = "$1_PIECES" ;
347 
        ${"var_$p"}="$2" ;
348 
        # place a marker
349 
        push @tbuf, "§4$p\n" ;
350 
        push @pieces, "$p" ;
351 
      }
352 
    }
353 
    elsif ( /^[\s]*([^\s+=]+)[\s]*\=[\s]*(.*)$/o )
354 
    { # makefile variables
355 
      if ( ( "$1" eq "subdir" )
356 
        or ( "$1" eq "top_srcdir" )
357 
        or ( "$1" eq "top_builddir" )
358 
        or ( "$1" eq "RTEMS_ROOT" )
359 
        or ( "$1" eq "PROJECT_ROOT" )
360 
        or ( "$1" eq "INSTALL" )
361 
        or ( "$1" eq "PACKHEX" )
362 
        or ( "$1" eq "INSTALL_CHANGE" )
363 
        or ( "$1" eq "mkinstalldirs" )
364 
        or ( "$1" eq "ACLOCAL" )
365 
        or ( "$1" eq "AUTOCONF" )
366 
        or ( "$1" eq "ACLOCAL_M4" )
367 
        or ( "$1" eq "ACLOCAL_AMFLAGS" )
368 
      )
369 
      {
370 
        print STDERR "REMOVE: $1\n" if $verbose ;
371 
      }
372 
      elsif ( "$1" eq "srcdir" )
373 
      { # place marker
374 
        push @tbuf, "§0\n";
375 
      }
376 
      elsif ( "$1" eq "INSTALLDIRS" )
377 
      { # process the block
378 
        my $input = $2 ;
379 
        $input =~ s/\\\\/ /g ;
380 
        my @l = split(' ',$input);
381 
        foreach (@l)
382 
        {
383 
          if ( /[\s]*([^\s]+)[\s]*$/o )
384 
          {
385 
            push @installdirs, "$1" ;
386 
          }
387 
        }
388 
      }
389 
      else
390 
      {
391 
# print STDERR "MACRO: <$1> = <$2>\n";
392 
        my $p = "$1" ;
393 
        ${"var_$p"}="$2" ;
394 
        # place a marker
395 
        push @tbuf, "§4$p\n" ;
396 
        push @vars, "$p" ;
397 
      }
398 
    }
399 
    elsif ( /^[\s]*([^\s+=]+)[\s]*\+\=[\s]*(.*)$/o )
400 
    { # makefile variable addition
401 
# print STDERR "MACRO: <$1> += <$2>\n";
402 
        my $p = "$1" ;
403 
        if ( not defined ${"var_$p+"} )
404 
        {
405 
          # place a marker
406 
          push @tbuf, "§5$p\n" ;
407 
          push @vars, "$p+" ;
408 
        }
409 
        else
410 
        {
411 
          print STDERR "WARNING += $_" ;
412 
        }
413 
        ${"var_$p+"} .=" $2" ;
414 
    }
415 
    elsif ( /^[\s]*(\@[^\s]+\@)$/o )
416 
    { # autoconf variable
417 
      if ( "$1" eq "\@SET_MAKE\@" )
418 
      {
419 
      }
420 
      else
421 
      {
422 
        push @tbuf, "$1\n" ;
423 
      }
424 
    }
425 
    elsif ( /^[\s]*include[\s]+(.*)$/o )
426 
    { # include line
427 
      push @tbuf, "$_" ;
428 
      if ( /^include[\s\t]*.*(directory|leaf|lib)\.cfg.*$/o )
429 
      {
430 
        push @tbuf, "§1\n" ;
431 
        push @tbuf, "PACKHEX = \@PACKHEX\@\n" if ( $make_exe_seen == 1 ) ;
432 
        push @tbuf, "§2\n" ;
433 
      }
434 
    }
435 
    elsif ( /^[\s]*(ifeq|ifneq|else|endif)[\s]+(.*)$/o )
436 
    { # gmake conditionals
437 
      # Most of them are removed, but we still have some :-
438 
      push @tbuf, "$1 $2\n" ;
439 
    }
440 
    elsif ( /^\@.*_(TRUE|FALSE)\@.*$/o )
441 
    { # automake conditionals
442 
      # HACK: Don't know how to handle them, so let's pass them through
443 
      push @tbuf, "$_" ;
444 
    }
445 
    elsif ( /^[\s]*([^:]+)[\s]*(:[:]*)[\s]*(.*)$/o )
446 
    {
447 
      if ( "$2" eq "::" )
448 
      {
449 
        # Warn about "::"-rules
450 
        # Will be silently removed below.
451 
        print STDERR "WARNING: Removing \"::\" in RULE $_\n" ;
452 
      }
453 
 
454 
      if ( ( "$1" eq "Makefile" )
455 
        or ( "$1" eq "\$\(INSTALLDIRS\)" )
456 
        or ( "$1" eq "\$\(ACLOCAL_M4\)" )
457 
        or ( "$1" eq "config\.status" )
458 
        or ( "$1" eq "\$\(srcdir\)/configure" )
459 
      )
460 
      { # delete entry
461 
        shift @buffer ;
462 
      }
463 
      elsif ( ( "$1" eq "all" )
464 
        or    ( "$1" eq "preinstall" ) )
465 
      {
466 
        # Note the dependencies
467 
        # Not yet exploited, but could be useful for dependency
468 
        # tracking in future
469 
        if ( defined ${"var_$1"} )
470 
          { ${"var_$1"} .= " $3" ; }
471 
        else
472 
          { ${"var_$1"} = "$3" ; }
473 
        push @tbuf, "$1: $3\n" ;
474 
      }
475 
      else
476 
      { # make rule
477 
        push @tbuf, "$1: $3\n" ;
478 
      }
479 
    }
480 
    elsif ( /^[\s]*$/o )
481 
    { # empty line
482 
      push @tbuf, "\n" ;
483 
    }
484 
    else
485 
    {
486 
      die "PASS 2: Unhandled $_" ;
487 
    }
488 
  }
489 
  @buffer = @tbuf ;
490 
  @tbuf = @installdirs ;
491 
  @installdirs = () ;
492 
  foreach ( @tbuf )
493 
  {
494 
    if ( /^([^\s]+)(\/[^\.\s]+\.[^\s\/]+)$/o )
495 
    {
496 
       print STDERR "WARNING - stripping of file: $1 <$2> " if ( $verbose > 1 );
497 
       push @installdirs, "$1" ;
498 
    }
499 
    else
500 
    {
501 
       push @installdirs, "$_" ;
502 
    }
503 
  }
504 
  purge \@installdirs ;
505 
  purge \@pieces ;
506 
}
507 
 
508 
# A fragment to debug conditionals
509 
#foreach( @variants )
510 
#{
511 
#  my $v = $_ ;
512 
#  print STDERR "VARIANT: $v\n";
513 
#  foreach (@{"variants_${v}"})
514 
#  {
515 
#    print STDERR "* $_\n;" ;
516 
#  }
517 
#}
518 
 
519 
# sanity check on *_FILES macros
520 
# too fragile for the time being,
521 
# therefore disabled by default
522 
if ( $experimental > 1 )
523 
{
524 
  foreach( @files )
525 
  {
526 
    my $file = "$_" ;
527 
    my $line = ${"var_$_"} ;
528 
    $line =~ tr /\\/ /;
529 
    my @l = split(' ',$line);
530 
    my @o = () ;
531 
    foreach (@l)
532 
    {
533 
      if ( /^([^\.]+)\.([a-z]+)$/o )
534 
      {
535 
        print STDERR "$file: *.$2 in $_\n" ;
536 
      }
537 
      elsif ( /^\$\(.*\)$/o )
538 
      {
539 
        print STDERR "$file: REF: $_\n" ;
540 
      }
541 
      else
542 
      {
543 
        print STDERR "$file: UNHANDLED: $_\n" ;
544 
      }
545 
    }
546 
  }
547 
}
548 
 
549 
# print STDERR "PASS 2: @buffer" ;
550 
 
551 
{
552 
# PASS 3:
553 
# * output to new Makefile
554 
# * prettyprint newlines
555 
 
556 
  my $nl_seen = 0 ;
557 
  foreach ( @buffer )
558 
  {
559 
    if ( /^$/o )
560 
    {
561 
      $nl_seen++ ;
562 
      print "\n" if ( $nl_seen < 2 );
563 
    }
564 
    elsif ( /^\§0$/o )
565 
    {
566 
      print "\@SET_MAKE\@\n" ;
567 
      print "srcdir = \@srcdir\@\n" ;
568 
      print "top_srcdir = \@top_srcdir\@\n" ;
569 
      print "top_builddir = $top_builddir\n" ;
570 
      if ( "$subdir" )
571 
      {
572 
        print "subdir = $subdir\n";
573 
      }
574 
      else
575 
      {
576 
        print "\nACLOCAL = aclocal\n" ;
577 
        print "AUTOCONF = autoconf\n" ;
578 
        print "ACLOCAL_M4 = \$(top_srcdir)/aclocal.m4\n" ;
579 
        print "ACLOCAL_AMFLAGS = -I \@RTEMS_TOPdir\@/aclocal\n" ;
580 
      }
581 
      print "\nRTEMS_ROOT = \@RTEMS_ROOT\@\n" ;
582 
      print "PROJECT_ROOT = \@PROJECT_ROOT\@\n\n" ;
583 
      $nl_seen = 1 ;
584 
    }
585 
    elsif ( /^\§1$/o )
586 
    {
587 
      print "\n" ;
588 
      print "INSTALL = \@INSTALL\@\n" if ( $install_seen > 0 );
589 
      print "INSTALL_CHANGE = \@INSTALL_CHANGE\@\n" ;
590 
      $nl_seen = 0 ;
591 
    }
592 
    elsif ( /^\§2$/o )
593 
    { # Handle installdirs related items
594 
      if ( $#installdirs >= 0 )
595 
      {
596 
        print "mkinstalldirs = \$(SHELL) \$(top_srcdir)/\@RTEMS_TOPdir\@/mkinstalldirs\n\n" ;
597 
        my $line = join( ' ',@installdirs );
598 
        &print_macro( "INSTALLDIRS =", $line );
599 
        print "\n\$(INSTALLDIRS):\n\t\@\$(mkinstalldirs) \$(INSTALLDIRS)\n\n" ;
600 
        $nl_seen = 1 ;
601 
      }
602 
    }
603 
    elsif ( /^\§3(.*)$/o  )
604 
    { # pretty print a shell script fragment/make production
605 
      my @l = split(/\\\\/,$1);
606 
      if ( $#l >= 0 ) { my $i = shift @l ; print "\t$i"; }
607 
      foreach( @l ) { print "\\\n$_"; }
608 
      print "\n" ;
609 
      $nl_seen = 0 ;
610 
    }
611 
    elsif ( /^\§4(.*)$/o  )
612 
    { # pretty print a make variable
613 
      &print_macro( "$1 =", ${"var_$1"} );
614 
      $nl_seen = 0 ;
615 
    }
616 
    elsif ( /^\§5(.*)$/o  )
617 
    { # pretty print an addition to a make variable
618 
      &print_macro( "$1 +=", ${"var_$1+"}) ;
619 
      $nl_seen = 0 ;
620 
    }
621 
    else
622 
    {
623 
      $nl_seen = 0 ;
624 
      print "$_" ;
625 
    }
626 
  }
627 
}
628 
 
629 
# Add rules for config.status generated files
630 
if ( "$build_pgms_seen" )
631 
{
632 
print "%: \$(srcdir)/%.in \$(top_builddir)/config.status\n" ;
633 
print " cd \$(top_builddir) \\\n" ;
634 
print "  && CONFIG_FILES=" ;
635 
print "\$(subdir)/" if ( "$subdir" );
636 
print "\$@ CONFIG_HEADERS= \$(SHELL) ./config.status\n";
637 
}
638 
else
639 
{
640 
print "Makefile: \$(srcdir)/Makefile.in \$(top_builddir)/config.status\n" ;
641 
print "\tcd \$(top_builddir) \\\n" ;
642 
print "\t && CONFIG_FILES=" ;
643 
print "\$(subdir)/" if ( "$subdir" );
644 
print "\$@ CONFIG_HEADERS= \$(SHELL) ./config.status\n";
645 
}
646 
 
647 
if ( ! "$subdir" )
648 
{
649 
print "\n\$(ACLOCAL_M4): \@MAINTAINER_MODE_TRUE\@ configure.in\n" ;
650 
print "\tcd \$(srcdir) && \$(ACLOCAL) \$(ACLOCAL_AMFLAGS)\n" ;
651 
print "\nconfig.status: \$(srcdir)/configure \$(CONFIG_STATUS_DEPENDENCIES)\n" ;
652 
print "\t\$(SHELL) ./config.status --recheck\n" ;
653 
print "\$(srcdir)/configure: \@MAINTAINER_MODE_TRUE\@\$(srcdir)/configure.in";
654 
print " \$(ACLOCAL_M4)\n" ;
655 
print "\tcd \$(srcdir) && \$(AUTOCONF)\n"
656 
}
657 
 
658 
exit 0 ;
659 
 
660 
sub print_macro($$)
661 
{
662 
  my ($line,$input) = @_ ;
663 
  $input =~ s/\\\\/ /g;
664 
  my @l = split(' ',$input);
665 
 
666 
  foreach (@l) {
667 
    if ( ( length($line) + length($_) ) < 76 )
668 
    {
669 
          $line .= " $_";
670 
    }
671 
    else
672 
    {
673 
           print "$line \\\n";
674 
           $line = "    $_" ;
675 
    }
676 
  }
677 
  print "$line\n" ;
678 
}
679 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.