Switch to using the standard polygLua.HEADmaster

1 files changed, 0 insertions, 186 deletions

diff --git a/test_.lua b/test_.lua
deleted file mode 100755
index 9e1931a..0000000
--- a/test_.lua
+++ /dev/null
@@ -1,186 +0,0 @@
-#!/usr/bin/env luajit
-
-if type(jit) == 'table' then
-  print(arg[0] .. ' is being run by ' .. jit.version .. ' under ' .. jit.os .. ' on a ' .. jit.arch .. '.  Lua version ' .. _VERSION)
-else
-  print(arg[0] .. ' is being run by Lua version ' .. _VERSION)
-end
-
-
-local _ = require 'PolygLua'
-
-
-I'Starting from the top.'
-
-Help = [[
-This is part of the blah blah blah...
-]]
-
-Version = '0.0 crap'
-
-local options =
-{
-    start =     {help = 'Command to start the scanning process, for Sys V init.', value = 'blah'},
---    restart = {start},
---    ['force-reload'] = {start},
-    status =    {help = 'Command to check the status of the scanning process, for Sys V init.',},
-    stop =      {help = 'Command to stop the scanning process, for Sys V init.',},
-    JACK =      {help = 'Command to start the JACK stuff, for users.',},
-    STOP =      {help = 'Command to stop the JACK stuff, for users.',
-        func = function(self, options, a, args, i)
---[=[
-        _.killEmAll{'qsynth'}
-        __[[
-            a2j_control --stop
-            sleep 2
-            a2j_control --exit
-            sleep 2
-        ]]:Do()
-        _.killEmAll{'alsa_in', 'alsa_out', 'zita-a2j', 'zita-j2a',  'aseqjoy', 'jack-plumbing'}
-        __[[
-            sleep 2
-            jack_control stop
-            sleep 2
-            jack_control exit
-            sleep 2
-        ]]:Do()
-        _.killEmAll{'jmcore', 'qjackctl'}
-        -- Catia is python, and no easy way to kill it.
-        -- Also it keeps jackdbus alive, no matter how hard you kill it.
-        __'pkill -TERM -u $USER -f catia':Do()
-        __'sleep 2':Do()
-        _.killEmAll{'jackdbus', 'a2jmidid'}
-]=]
-        end
-    },
-    install =
-    {
-        help = 'Command to install aataaj.lua',
-        func = function(self, options, a, args, i)
-            local w = __[[whoami]]:noErr():Do().lines[1]
-            local d = __[[pwd]]:noErr():Do().lines[1]
-            if 'root' ~= w then
-                E'Need to be root user to install.'
-            else
-                print('INSTALLING!!!')
-                __[[#!/bin/bash
-                    echo "Installing PolygLua"
-                    ./PolygLua.lua -vvvv
-                ]]:log():show():Do()
-            end
-            os.exit(0)
-        end
-    },
-}
-options['restart'] = options['start']
-options['force-reload'] = options['start']
-
-print('start = ' .. options.start.value)
-_.parse(arg, options, 'test_')
-print('start = ' .. options.start.value)
-print('stop = ' .. options.stop.value)
-
-
-
-__[[
-    echo -n "This'll print forking later.  "
-    date
-    sleep 2
-]]:log():show():fork('echo -n "later is "; date')
-print('')
-
-
-local GUI = 'qjackctl'
-if _.runnable'catia' then GUI = 'catia' end
-local speaker = 'espeak'
-if _.runnable'espeak-ng' then speaker = 'espeak-ng' end
-print('' .. GUI .. '  ' .. speaker)
-print('')
-
-for i,l in ipairs(__'free -h':log():Do().lines) do
-    print(l)
-end
-print('')
-
-for i,l in ipairs(__'uname -a\nfree -h':log():Do().lines) do
-    print(l)
-end
-print('')
-
-__'uname -a':log():Then'free -h':show():Do()
-print('')
-
-__{'uname -a', 'free -h'}:log():show():Do()
-print('')
-
-
-print(__[[#!/bin/NoSuchCommand
-    echo "Should not print."
-]]:log():show():Do().status)
-print('')
-
-__[[#!/bin/bash
-    echo "G'day world from bash."
-]]:log():show():Do()
-print('')
-
-print(__[[#!/usr/bin/tcc -run
-    #include <tcclib.h>
-
-    int main()
-    {
-        printf("G'day world from C.\n");
-        return 1;
-    }
-]]:log():show():Do().status)
-print('')
-
-__[[#!/usr/bin/env luajit
-    print("G'day " .. "world " .. [=[from]=] .. ' Lua.')
-]]:log():show():Do()
-print('')
-
-__[[#!/usr/bin/perl
-    print "G'day world from perl.\n";
-]]:log():show():Do()
-print('')
-
-__[[#!/usr/bin/env php
-<?php
-    print("G'day world from php.\n");
-]]:log():show():Do()
-print('')
-
--- Note no indent for Python, coz whitespace is significant.
-__[[#!/usr/bin/env python3
-print("G'day world from python.")
-]]:log():show():Do()
-print('')
-
-__[[#!/usr/bin/ruby
-    puts "G'day world from ruby."
-]]:log():show():Do()
-print('')
-
-
-print(__'true':log():show():Do().status)
-print(__'false':log():show():Do().status)
-print(__'exit 42':log():show():Do().status)
-print(__'return 42':log():show():Do().status)
-print(__'command NoSuchCommand':log():show():Do().status)
-
-
---__'qpdfview':forkOnce()
---__'qpdfview':forkOnce()
-
-print('')
-
-for i,a in ipairs(arg) do print('arg[' .. i .. '] = ' .. a) end
-print('')
-for k,a in  pairs(arg) do print('arg[' .. k .. '] = ' .. a) end
-
-__'date':log():show():Do()
--- Should get that "later" thing printed while the sleep is happening.
-__'date; sleep 5; date':log():show():Do()
-
-