From 298d75d46ba6bd26646c9c6a51aa0c932fadeb33 Mon Sep 17 00:00:00 2001
From: onefang
Date: Wed, 28 May 2025 10:42:37 +1000
Subject: Switch to using the standard polygLua.

---
 test_.lua | 186 --------------------------------------------------------------
 1 file changed, 186 deletions(-)
 delete mode 100755 test_.lua

(limited to 'test_.lua')

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()
-
-
-- 
cgit v1.1