symlinkapp.pl

   1 #!/usr/bin/perl -w
   2
   3 $n_args = $#ARGV + 1;
   4
   5 if ($n_args < 1)
   6 {
   7     print "usage: modularize_app <app directory>" ;
   8     print "\n" ;
   9     print "\n" ;
  10
  11     exit 1
  12 }
  13
  14 if (!-d $ARGV[0] )
  15 {
  16     print "$ARGV[0] does not exist\n" ;
  17     exit 1
  18 }
  19
  20 $app_location = `cd $ARGV[0] ; pwd`;
  21 $app_location =~ s/^\s*(.*?)\s*$/$1/;
  22
  23 $app_name = `basename $app_location`;
  24 $app_name =~ s/^\s*(.*?)\s*$/$1/;
  25
  26 $symlinksh = "../../../util/modular/symlink.sh";
  27 $newsymlinksh = "../../../util/modular/symlink.sh.new";
  28
  29 open IN, "< $symlinksh" or die "can't open $symlinksh: $!";
  30 open OUT, "> $newsymlinksh" or die "can't open $newsymlinksh for writing: $!";
  31
  32 while (<IN>)
  33 {
  34     if (/symlink_app\(\) \{/)
  35     {
  36         print OUT "symlink_app_$app_name() {\n";
  37         print OUT "    src_dir programs/$app_name\n";
  38         print OUT "    dst_dir app/$app_name\n";
  39
  40         print OUT "\n";
  41
  42 ################# Add c files
  43
  44         @files = ();
  45
  46         print $app_name, "\n" ;
  47         foreach $cfile ( `ls *.c` )
  48         {
  49             @files = (@files, $cfile)
  50         }
  51
  52         if ($#files + 1)
  53         {
  54             foreach $cfile ( @files )
  55             {
  56                 $cfile = `basename $cfile`;
  57                 $cfile =~ s/^\s*(.*?)\s*$/$1/;
  58             if (-l $cfile)
  59             {
  60                 print "ASFSDFSDFSDF: $cfile\n";
  61             }
  62                 print OUT "    action\t$cfile\n";
  63             }
  64
  65             print OUT "\n";
  66         }
  67
  68 ################# Add README files
  69
  70         @files = ();
  71
  72         foreach $file ( `ls README` )
  73         {
  74             @files = (@files, $file);
  75         }
  76
  77         if ($#files + 1)
  78         {
  79             foreach $file (@files)
  80             {
  81                 $file = `basename $file`;
  82                 $file =~ s/^\s*(.*?)\s*$/$1/;
  83                 print OUT "    action\t$file\n";
  84             }
  85
  86             print OUT "\n" ;
  87         }
  88
  89
  90
  91 ################# Add h files
  92
  93         @files = ();
  94
  95         foreach $hfile ( `ls *.h` )
  96         {
  97             @files = (@files, $hfile);
  98         }
  99
 100         if ($#files + 1)
 101         {
 102             foreach $hfile (@files)
 103             {
 104                 $hfile = `basename $hfile`;
 105                 $hfile =~ s/^\s*(.*?)\s*$/$1/;
 106                 print OUT "    action\t$hfile\n";
 107             }
 108
 109             print OUT "\n" ;
 110         }
 111
 112 ################ Add man files
 113
 114         @files = ();
 115
 116         foreach $manfile (`ls *.man`)
 117         {
 118             @files = (@files, $manfile);
 119         }
 120
 121         if ($#files + 1)
 122         {
 123             foreach $manfile ( @files )
 124             {
 125                 $manfile = `basename $manfile`;
 126                 $manfile =~ s/^\s*(.*?)\s*$/$1/;
 127                 print OUT "    action\t$manfile\n";
 128             }
 129
 130             print OUT "\n" ;
 131         }
 132
 133 ###################################
 134
 135         print OUT "}\n";
 136         print OUT "\n";
 137
 138         # print "symlink_app() {"
 139
 140         print OUT ;
 141
 142         print OUT "    symlink_app_$app_name\n"
 143     }
 144     else
 145     {
 146         print OUT ;
 147     }
 148 }
 149
 150 system (  "mv $newsymlinksh $symlinksh\n" );