ref: ead3a8bdddf008c4af3950d4c25bdeba01ad498c
parent: 749362e3549a6aeeacb6f8766388f5286c31b2ab
author: qwx <qwx@sciops.net>
date: Thu Oct 29 10:56:54 EDT 2020
add obsolete bullshit scripts that might be of use maybe
--- /dev/null
+++ b/graveyard/ccp
@@ -1,0 +1,42 @@
+#!/bin/rc
+# this is a pile of shit.
+
+e
+exit 'no. you are stupid for wanting to use this.'
+
+if(! ~ $#* 2 || ! test -d $1 || ! test -d $2)
+ exit 'usage: $0 ref dest'
+s=$1
+r=$2
+if(! ~ $1 /*)
+ s=`{pwd}^/^$"s
+if(! ~ $2 /*)
+ r=`{pwd}^/^$"r
+
+# get missing files in dest
+cd $s || exit
+ofs=$ifs
+ifs='
+'
+ref=`{du -n | sed '$d;s,^[0-9]+ ['']?\./,,;s,['']?$,,;s,'''','',g' | sort -d}
+for(i in $ref){
+ f=$r^/^$"i
+ if(! test -e $f){
+ if(test -d $i)
+ mkdir $f
+ if not
+ cp $i $f
+ }
+ if not if(! test -d $i && ! ~ `{cmp $i $f} '')
+ cp $i $f
+}
+
+# remove extra files in dest
+cd $r || exit
+ref=`{du -n | sed '$d;s,^[0-9]+ ['']?\./,,;s,['']?$,,;s,'''','',g' | sort -d}
+for(i in $ref){
+ f=$s^/^$"i
+ if(! test -e $f)
+ rm -r $i
+}
+ifs=$ofs
--- /dev/null
+++ b/graveyard/gitindex9
@@ -1,0 +1,5 @@
+#!/bin/rc -e
+git/fs
+mkdir -p .git/index9/tracked/`{cd /mnt/git/HEAD/tree && walk -d .}
+touch .git/index9/tracked/`{cd /mnt/git/HEAD/tree && walk -f .}
+unmount /mnt/git
--- /dev/null
+++ b/graveyard/hdup
@@ -1,0 +1,20 @@
+#!/bin/rc
+awk '
+{
+ if(a[n] != $1){
+ n++
+ a[n] = $1
+ a[n,1] = 0
+ s[$1] = $2
+ }else{
+ s[$1] = s[$1] " " $2
+ a[n,1] = 1
+ }
+}
+END{
+ for(i=1; i<n; i++){
+ if(a[i,1] == 1)
+ print s[a[i]]
+ }
+}
+' $*
--- /dev/null
+++ b/graveyard/hswt
@@ -1,0 +1,11 @@
+#!/bin/rc
+
+# don't care about simple port reads and about some writes
+cat $1 | sed -n '/^wport 5000/N
+/^wport 5004/{
+ x
+ G
+ s/wport 5000 ([^ ]+)\nrport 5004 ([^ ]+)\nwport 5004 ([^ ]+)/ wr(igfx, 0x\1, 0x\3); \/\* was 0x\2 \*\//p;
+}
+h' | sed '/igfx, 0x000(4f0|45400)/d'
+# | sed '/igfx, 0x000(4f0|45400|e421|6401|44008)/d'
--- /dev/null
+++ b/graveyard/hswt2
@@ -1,0 +1,12 @@
+#!/bin/rc
+
+cat $1 | sed -n '/^wport f000/{
+ N
+ s/wport f000 ([^ ]+)\nrport f004 ([^ ]+)/ rr(igfx, 0x\1); \/\* is 0x\2 \*\//p
+ h
+}
+/^wport f004/{
+ x
+ G
+ s/rr\(igfx, (0x[^ ]+)\);.*\nwport f004 ([^ ]+)/wr(igfx, \1, 0x\2);/p
+}' | sed '/igfx, 0x000(4f0|45400|44008)/d'
--- /dev/null
+++ b/graveyard/lr1
@@ -1,0 +1,8 @@
+#!/bin/rc
+# FIXME: this lists both files and directories
+s='s/^[0-9]* //'
+if(~ $1 -Q){ # remove rc quoting
+ s='s/^[0-9]* ''*(.*)/\1/;s/''$//;s/''''/''/g'
+ shift
+}
+du -n $* | sed $s
--- /dev/null
+++ b/graveyard/phex
@@ -1,0 +1,4 @@
+#!/bin/rc
+sed 's/^/hex(/;s/$/)/' | pc -n | tr -d '
+'
+status=''
--- /dev/null
+++ b/graveyard/sawk
@@ -1,0 +1,2 @@
+#!/bin/rc
+awk -f /bin/stats.awk -f <{echo $1} $*(2-)
--- /dev/null
+++ b/graveyard/vnc
@@ -1,0 +1,26 @@
+#!/bin/rc
+
+# This works as is:
+#
+# ; aux/listen1 -t tcp!*!5900 /bin/ssh tcp!9dump!17060 socat tcp-connect:localhost:5900 stdio
+# ; vncv $sysname # from another window
+#
+# This works if a password (I'm using one) is already in factotum, else
+# I don't get a prompt:
+#
+# ; cat <<'!' >bin/rc/vnc
+# /bin/ssh tcp!9dump!17060 socat tcp-connect:localhost:5900 stdio
+# !
+# ; chmod +x bin/rc/vnc
+# ; execnet
+# ; echo 'key proto=vnc server=exec!vnc !password=setecastronomy' >/mnt/factotum/ctl
+# ; vncv exec!vnc
+
+#aux/listen1 -t tcp!*!5900 /bin/ssh tcp!9dump!17060 socat tcp-connect:localhost:5900 stdio
+#/bin/ssh tcp!9dump!17060 socat tcp-connect:localhost:5900 stdio
+#ssh tcp!9dump!17060 '~/vnc'
+#ssh tcp!9dump!17060 'pkill vnc'
+# try execnet when factotum key is already in place
+
+# FIXME: compression -> ?
+/bin/ssh tcp!9dump!17060 socat tcp-connect:localhost:5900 stdio
--- /dev/null
+++ b/graveyard/yt
@@ -1,0 +1,4 @@
+#!/bin/rc
+
+tr ',\{\}' '
+' | grep 'audio%2Fwebm' | sed -n '/^\\"url/{s/\\\\u0026/\&/g;s/\\//g;s/.*"([^"]+)".*/\1/p;}'