Replace mkexec with mkx (simpler, better...)

README.md

@@ -74,17 +74,17 @@ mode, where you can enter URLs one per line.  Quit this mode by entering *EOF*
     url2
 
 
-### mkexec ###
+### mkx ###
 
-    mkexec [-f] [-e] name [type] [purpose]
+    mkx [-f|--force] FILE [TEMPLATE]
+    mkx -l|--list
 
 Make executable script, i.e. create new file, add shebang line and template,
-and mark it executable (0755).  type (py, pl, bash...) and purpose (test
-or nothing) are used to choose the right template.  If not supplied, attempt
-is made to guess from the filename.
+and mark it executable (0755).  If TEMPLATE is not given, language is guessed
+from FILE suffix.  If the file already  exist, gives up, unless `-f` option
+is passed.
 
-If the file already  exist, gives up, unless *-f* option is passed.  *-e*
-option causes default editor to be spawned with the new file loaded.
+Use `-l` to list supported TEMPLATEs
 
 
 ### pfile ###

bin/mkexec

@@ -1,176 +0,0 @@
-#!/usr/bin/perl
-# make an executable file
-
-use strict;
-use warnings;
-
-sub usage; sub mkexec; sub guesstype; sub guesspurpose;
-sub getcmd; sub launch_editor;
-
-my $DEFAULT_TYPE = 'sh';
-my $DEFAULT_MODE = 0755;
-my $DEFAULT_FORCE = 0;
-my $DEFAULT_EDIT = 0;
-
-
-## .... ##   . . .  .   .    .     .      .       .        .         .
-## INIT ## -------------------------------------------------------------------
-## '''' ##   ' ' '  '   '    '     '      '       '        '         '
-
-my $force = $DEFAULT_FORCE;
-my $edit = $DEFAULT_EDIT;
-my $name; my $type; my $purpose;
-
-foreach (@ARGV) {
-    if (m/\b-f\b|\b--force\b/) {
-        $force++;
-    } elsif (m/\b-e\b|\b--edit\b/) {
-        $edit++;
-    } elsif (defined $type) {
-        $purpose = $_;
-    } elsif (defined $name) {
-        $type = $_;
-    } else {
-        $name = $_;
-    }
-}
-
-usage unless defined $name;
-$type = guesstype $name unless defined $type;
-$purpose = guesspurpose $name unless defined $purpose;
-
-my $bangs = {
-    pl   => `which perl`,
-    sh   => '/bin/sh',
-    py   => `which python`,
-    bash => '/bin/bash',
-    sed  => `which sed`,
-    bc   => `which bc`,
-    exp  => `which expect` . " -f",
-};
-
-my $templates = {
-    py => {
-        ''      => "if __name__ == '__main__':\n",
-        test    => "import unittest\n\n\n"
-                   . "class TestCase(unittest.TestCase):\n"
-                   . "    pass\n\n\n"
-                   . "if __name__ == '__main__':\n"
-                   ."    unittest.main()\n",
-    },
-    pl => {
-        ''      => "use strict;\nuse warnings;\n",
-        test    => "use strict;\nuse warnings;\nuse Test::More;\n\n",
-    },
-    bash => {
-        'ffoo'  => "\n. \"\$(ffoom path)\" || exit 3\n\n"
-                   . "ffoo import pretty\n\n"
-                   . "FFOO_DEBUG=true",
-        'shellfu'  => "\n. \"\$(shellfu-get path)\" || exit 3\n\n"
-                   . "shellfu import pretty\n\n"
-                   . "PRETTY_DEBUG=\${PRETTY_DEBUG:-true}\n\n"
-                   . "usage() {\n"
-                   . "    mkusage \"arg...\"\n"
-                   . "}\n\n"
-                   . "main() {\n"
-                   . "    while true; do case \$1 in\n"
-                   . "        -*) usage ;;\n"
-                   . "        *)  break ;;\n"
-                   . "    esac done\n"
-                   . "}\n\n"
-                   . "main \"\$@\"",
-    },
-};
-
-my $editors = [ qw/ vim editor / ];
-my $cmds;
-$cmds->{vim}->{test}    = "vim --version 2>/dev/null";
-$cmds->{vim}->{run}     = "vim +\"normal G\$\" '%s'";
-$cmds->{editor}->{test} = "editor --version 2>/dev/null";
-$cmds->{editor}->{run}  = "editor '%s'";
-
-unless ($purpose eq ""
-        or exists $templates->{$type}->{$purpose}) {
-    warn "undefined purpose '$purpose' for type '$type'\n";
-    $purpose = "";
-}
-
-
-## ... ##   # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
-## RUN ## ----------------------------------------------------------------- #
-## ''' ##   # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
-
-if (exists $bangs->{$type}) {
-    $force and -e $name
-        and (defined `cp "$name" "$name~"` or die $!);
-    (not -e $name or $force)
-        and mkexec $name, mkbody($type, $purpose);
-    chmod $DEFAULT_MODE, $name;
-    launch_editor $name if $edit;
-} else {
-    die "unknown type: $type\n";
-}
-
-
-## .... ##   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''-.
-## SUBZ ## ----------------------------------------------------------------- :
-## '''' ##   ..............................................................-'
-
-sub usage {
-    print STDERR "usage: $0 [-f|-e] filename [type] [purpose]\n";
-    exit 0;
-}
-
-sub guesstype {
-    my $name = shift;
-    my ($ext) = $name =~ m|\.(\w+)$|;
-    return ( $ext ? $ext : $DEFAULT_TYPE);
-}
-
-sub guesspurpose {
-    my $name = shift;
-    my $testword = '[tT][eE][sS][tT]';
-    return 'test' if $name =~ m|^test_|i;
-    return 'test' if $name =~ m|_test.py$|i;
-    return 'test' if $name =~ m|_test.pl$|i;
-    return 'test' if $name =~ m|\btest\w*/|i;
-    return 'test' if $name =~ m|.*Test/|i;
-    return 'test' if $name =~ m|\bt/|;
-    return ''
-}
-
-sub mkbody {
-    my $type = shift;
-    my $purpose = shift;
-    my $tmpl = "";
-    $tmpl .= $templates->{$type}->{$purpose}
-        if exists $templates->{$type}
-            and exists $templates->{$type}->{$purpose};
-    return sprintf "#!%s\n%s\n", $bangs->{$type}, $tmpl;
-}
-
-sub mkexec {
-    my ($name, $body) = @_;
-    open EXE, ">", $name    or die "cannot open $name for writing: $!\n";
-    -W EXE                  or die "file $name is not writable\n";
-    print EXE $body;
-    close EXE               or die "cannot close $name: $!\n";
-}
-
-sub get_cmd {
-    foreach (@$editors) {
-        return $cmds->{$_}->{run} if `$cmds->{$_}->{test}`
-    }
-    warn "no supported editor available\n";
-    return;
-}
-
-sub launch_editor {
-    my $name = shift;
-    my $form = get_cmd;
-    if ($form) {
-        my $command = sprintf get_cmd, $name;
-        exec "$command";
-    } else { return }
-    warn "failed to launch editor: $form\n";
-}

bin/mkx

@@ -0,0 +1,191 @@
+#!/bin/bash
+
+
+usage() {
+    local self
+    self="$(basename "$0")"
+    warn "usage: $self [-f|--force] FILE [[+]TEMPLATE]"
+    warn "usage: $self -l|--list"
+    exit 2
+}
+
+warn() {
+    #
+    # Print warning
+    #
+    echo "$@" >&2
+}
+
+die() {
+    #
+    # Warn and exit prematurely
+    #
+    warn "$@"
+    exit 3
+}
+
+lstemplates() {
+    #
+    # Print list of valid templates
+    #
+    echo +pya
+    echo +shellfu
+    echo Bash
+    echo Lua
+    echo Perl
+    echo py3
+    echo Python3
+    echo Python
+}
+
+#shellcheck disable=SC2016
+mktemplate() {
+    #
+    # Print template $1 for $FilePath
+    #
+    # Template may be a name of built-in template (starting with
+    # plus sign) or language name (actually *interpreter* name).
+    #
+    local tmplname="${1:-$Template}"
+    case "$tmplname" in
+        sh)
+            echo "#!/bin/sh"
+            echo ''
+            echo ''
+            ;;
+        bash|Bash)
+            echo "#!/bin/bash"
+            echo ''
+            echo ''
+            ;;
+        lua|Lua)
+            echo "#!$(which lua)"
+            echo ''
+            ;;
+        pl|Perl)
+            echo "#!$(which perl)"
+            echo ''
+            echo 'use strict;'
+            echo 'use warnings;'
+            echo ''
+            echo ''
+            ;;
+        py|Python)
+            echo "#!$(which python)"
+            echo ''
+            echo "if __name__ == '__main__':"
+            echo '    '
+            ;;
+        py3|Python3)
+            echo "#!/usr/bin/python3"
+            echo ''
+            echo "if __name__ == '__main__':"
+            echo '    '
+            ;;
+        +pya)
+            echo '#!/usr/bin/python'
+            echo '"""'
+            echo 'A simple application'
+            echo '"""'
+            echo ''
+            echo 'import sys'
+            echo ''
+            echo ''
+            echo 'class App(object):'
+            echo '    """'
+            echo '    Main application class'
+            echo '    """'
+            echo ''
+            echo '    def __init__(self, argv):'
+            echo '        self.argv = argv'
+            echo '        # agument decoding and further initializations'
+            echo ''
+            echo '    @classmethod'
+            echo '    def main(cls, argv):'
+            echo '        """'
+            echo '        Initialize and launch'
+            echo '        """'
+            echo '        app = cls(argv)'
+            echo '        app.run()'
+            echo ''
+            echo '    def run(self):'
+            echo '        """'
+            echo '        Run the application'
+            echo '        """'
+            echo '        # actual action (calling other methods)'
+            echo '        print self.argv'
+            echo '        print __doc__'
+            echo ''
+            echo ''
+            echo 'if __name__ == '__main__':'
+            echo '    App.main(sys.argv)'
+            ;;
+        +shellfu)
+            echo "#!/bin/bash"
+            echo ""
+            echo '. "$(shellfu-get path)" || exit 3'
+            echo ''
+            echo 'shellfu import pretty'
+            echo ''
+            echo 'PRETTY_DEBUG=${PRETTY_DEBUG:-true}'
+            echo ''
+            echo 'usage() {'
+            echo '    mkusage "arg..."'
+            echo '}'
+            echo ''
+            echo 'main() {'
+            echo '    while true; do case $1 in'
+            echo '        -*) usage ;;'
+            echo '        *)  break ;;'
+            echo '    esac done'
+            echo '}'
+            echo ''
+            echo 'main "$@"'
+            ;;
+        "")
+            mktemplate "$(guess_language)"
+            ;;
+        *)
+            die "unknown template or language: $Template"
+            ;;
+    esac
+}
+
+guess_language() {
+    #
+    # Guess intended language from filepath $FilePath
+    #
+    local fname     # file name
+    fname="$(basename "$FilePath")"
+    case "$fname" in
+        *.*)    echo "${fname##*.}" ;;
+        *)      echo "$MKX_DEFAULT_LANG" ;;
+    esac
+}
+
+
+#
+# Default language
+#
+MKX_DEFAULT_LANG=${MKX_DEFAULT_LANG:-sh}
+
+main() {
+    local FilePath  # destination file path
+    local Template  # built-in template name
+    local careful     # ignore existing file
+    careful=true
+    while true; do case $1 in
+        -f|--force) careful=false; shift ;;
+        -l|--list)  lstemplates; exit 0 ;;
+        -*) usage ;;
+        *)  break ;;
+    esac done
+    FilePath="$1"
+    Template="$2"
+    test -n "$FilePath" || usage
+    test -f "$FilePath" && $careful && die "file already exists: $FilePath"
+    mktemplate > "$FilePath"
+    chmod +x "$FilePath"
+}
+
+main "$@"