Magellan Linux

  • Back to homepage
    • /[magellan-source]/trunk/mkinitrd-magellan/busybox/docs/autodocifier.pl

    Diff of /trunk/mkinitrd-magellan/busybox/docs/autodocifier.pl

    Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

    revision 532 by niro, Sat Sep 1 22:45:15 2007 UTC revision 816 by niro, Fri Apr 24 18:33:46 2009 UTC
    # Line 1  Line 1 
    1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
    2    # vi: set sw=4 ts=4:
    3    
    4  use strict;  use strict;
    5  use Getopt::Long;  use Getopt::Long;
    # Line 36  sub beautify { Line 37  sub beautify {
    37   s/"\s*$//;   s/"\s*$//;
    38   s/%/%%/g;   s/%/%%/g;
    39   s/\$/\\\$/g;   s/\$/\\\$/g;
    40     s/\@/\\\@/g;
    41   eval qq[ sprintf(qq{$_}) ]   eval qq[ sprintf(qq{$_}) ]
    42   } @line   } @line
    43   );   );
    # Line 48  sub pod_for_usage { Line 50  sub pod_for_usage {
    50   my $usage = shift;   my $usage = shift;
    51    
    52   # Sigh.  Fixup the known odd-name applets.   # Sigh.  Fixup the known odd-name applets.
    53    # Perhaps we can use some of APPLET_ODDNAME from include/applets.h ?
    54   $name =~ s/dpkg_deb/dpkg-deb/g;   $name =~ s/dpkg_deb/dpkg-deb/g;
    55   $name =~ s/fsck_minix/fsck.minix/g;   $name =~ s/fsck_minix/fsck.minix/g;
    56   $name =~ s/mkfs_minix/mkfs.minix/g;   $name =~ s/mkfs_minix/mkfs.minix/g;
    57   $name =~ s/run_parts/run-parts/g;   $name =~ s/run_parts/run-parts/g;
    58   $name =~ s/start_stop_daemon/start-stop-daemon/g;   $name =~ s/start_stop_daemon/start-stop-daemon/g;
    59     $name =~ s/ether_wake/ether-wake/g;
    60    
    61   # make options bold   # make options bold
    62   my $trivial = $usage->{trivial};   my $trivial = $usage->{trivial};
    # Line 301  John BEPPU <b@ax9.org> Line 305  John BEPPU <b@ax9.org>
    305    
    306  =cut  =cut
    307    
     # $Id: autodocifier.pl,v 1.1 2007-09-01 22:43:43 niro Exp $  
    Legend:
    Removed from v.532  
    changed lines
      Added in v.816