Browse Source

Vertical beautification

Alois Mahdal 11 years ago
parent
commit
0e3d4a12ab
1 changed files with 14 additions and 0 deletions
  1. 14
    0
      bin/mkexec.pl

+ 14
- 0
bin/mkexec.pl View File

@@ -10,6 +10,11 @@ my $DEFAULT_TYPE = 'pl';
10 10
 my $DEFAULT_MODE = 0755;
11 11
 my $DEFAULT_FORCE = 0;
12 12
 
13
+
14
+## .... ##   . . .  .   .    .     .      .       .        .         .
15
+## INIT ## -------------------------------------------------------------------
16
+## '''' ##   ' ' '  '   '    '     '      '       '        '         '
17
+
13 18
 my $force = $ARGV[0] == '-f' ? shift : $DEFAULT_FORCE;
14 19
 my $name = shift or usage;
15 20
 my $type = ($ARGV[0] ? shift : guesstype $name);
@@ -36,6 +41,10 @@ $cmds->{editor}->{test} = "editor --version 2>/dev/null";
36 41
 $cmds->{editor}->{run}  = "editor '%s'";
37 42
 
38 43
 
44
+## ... ##   # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
45
+## RUN ## ----------------------------------------------------------------- #
46
+## ''' ##   # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
47
+
39 48
 if (exists $bangs->{$type}) {
40 49
     -e $name and not $force || mkexec $name, mkbody($type);
41 50
     chmod $DEFAULT_MODE, $name;
@@ -44,6 +53,11 @@ if (exists $bangs->{$type}) {
44 53
     die "unknown type: $type\n";
45 54
 }
46 55
 
56
+
57
+## .... ##   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''-.
58
+## SUBZ ## ----------------------------------------------------------------- :
59
+## '''' ##   ..............................................................-'
60
+
47 61
 sub usage {
48 62
     print STDERR "usage: $0 filename [type]\n";
49 63
     exit 0;