tst2005

-- inline=false
local cfgl =
        { indent='' -- like parentindent
        , prefixindent="" -- use indent
        , prefix="{\n"
        , suffixindent=nil -- use indent
        , suffix="}\n"
        , itemindent='\\t ' -- use indent
        , itemprefix=""
        , itemsuffix=",\n"

tst2005

--[[    print("a")
        print("b")
]]--    print("c")
        print("D")      --[[
        print("e")
        print("f")      ]]--

--[[--  print("a")
        print("b")
--]]--  print("c")      --[[--

tst2005

#!/bin/sh

# source: https://gist.github.com/tst2005/797af97fd263677da9e3eede873887ac

for i in $*
do
	echo "$i"
	openssl x509 -subject -issuer -enddate -noout -in $i \
	| sed -e 's#, \([^ ]\+\) = #/\1=#g' -e 's,^\(subject\|issuer\)=\([^ ]\+\) = ,\1= /\2=,g'
	echo "--------"

tst2005

#include <stdio.h>
int main(void) {
  printf("C   C CCCCC C     C      CCC        C   C  CCC  CCCC  C     CCCC\n");
  printf("C   C C     C     C     C   C       C   C C   C C   C C     C   C\n");
  printf("CCCCC CCCC  C     C     C   C       C C C C   C CCCC  C     C   C\n");
  printf("C   C C     C     C     C   C       C C C C   C C  C  C     C   C\n");
  printf("C   C CCCCC CCCCC CCCCC  CCC         C C   CCC  C   C CCCCC CCCC\n");
  return 0;
}

tst2005

local a = 1
local function a() return a end
assert( type( a() ) == "function" )

local a = 1
local a; function a() return a end
assert( type( a() ) == "function" )

local a = 1
local a = function() return a end

tst2005

--[[
local function ✆(✕,✖)
    local ☻ = ✕+✖
    return ☻
end
return ✆
]]--

local function 🐅(😸, 😹)
    local 😼 = 😸 + 😹

tst2005

#alias sshtmp='ssh -oUserKnownHostsFile="$HOME/.ssh/tmp_known_hosts"'
#alias scptmp='scp -oUserKnownHostsFile="$HOME/.ssh/tmp_known_hosts"'
alias sshtmpreset='>$HOME/.ssh/tmp_known_hosts ;#'
alias sshtmp='__sshtmp_cmd ssh'
alias scptmp='__sshtmp_cmd scp'

__sshtmp_cmd() {
        local cmd="$1";shift
        local host="$1"
        local user=''

tst2005

local function test(f)
	local function pack2end(a1, ...)
		return a1, {...}
	end
	local ok, t_result = pack2end(pcall(f))
	if not ok then
		return("error="..t_result[1] )
	else
		return("ok="..#t_result )

tst2005

#! /bin/bash

if [ $# -ne 3 ]; then
	echo "Usage: $0 <n> <orig.pdf> <new.pdf>"
	exit 1
fi

command -v pdfseparate >/dev/null || { echo >&2 "require pdfseparate"; exit 1; }
command -v pdfunite    >/dev/null || { echo >&2 "require pdfunite"   ; exit 1; }

tst2005

local data = ???
for line in data:read("*l") do -- OR data:match("([^\n])\n") do
  for word in line:match("(%S+)") do
    i=i+1
  end
  i=i+10
end