# HG changeset patch
# User Pascal Bellard <pascal.bellard@slitaz.org>
# Date 1645887725 0
# Node ID 035e82f04c94a2943868e4825326a6fca605454d
# Parent  b53e18d1978e0141a47dc8108f41cb4d70b7ebde
sokojs: add shrink.sh

diff -r b53e18d1978e -r 035e82f04c94 sokojs/stuff/htm2slc.sh
--- a/sokojs/stuff/htm2slc.sh	Sat Feb 26 07:43:46 2022 +0100
+++ b/sokojs/stuff/htm2slc.sh	Sat Feb 26 15:02:05 2022 +0000
@@ -2,7 +2,7 @@
 
 case "$0" in
 *2txt*)
-  [ -z "$1" ] && echo "$0 file" && exit 1
+  [ -z "$1" ] && echo "Usage: $0 file" && exit 1
   sed '/^"\|<L>\|<Level/!d;s|.*<Level Id="|; |;s| *<L>||;s|</L>||;s| *"[,)].*||;s|^"||;s|".*||;s|_| |g;/^$/d' "$1" | awk 'BEGIN {n=1000;h=0}
 { s[h++]=$0
   if (/^;/) next
@@ -12,7 +12,7 @@
   exit;;
 esac
 
-[ -z "$1" ] && echo "$0 set/" && exit 1
+[ -z "$1" ] && echo "Usage: $0 set/" && exit 1
 [ ! -s "$1/level0.htm" ] && echo "$1/level0.htm not found" && exit 2
 
 cat <<EOT
diff -r b53e18d1978e -r 035e82f04c94 sokojs/stuff/shrink.sh
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/sokojs/stuff/shrink.sh	Sat Feb 26 15:02:05 2022 +0000
@@ -0,0 +1,49 @@
+#!/bin/sh
+
+[ -z "$1" ] && echo "Usage: $0 level-files..." && exit 1
+case "$0" in
+*unshrink*)
+	sed -i 's|.*//!||' $@ ;;
+*)	for file in $@ ; do awk 'BEGIN { begin=9999; end=9999; tab=" " }
+function scan(s) {
+  i=2
+  for (b=0;;i++) {
+    c=substr(s,i,1)
+    if (c != " ") break
+    b++
+  }
+  if (c != "\"") line[row++]=s
+  else if (row == 0) print "//!" s
+  else line2[cut++]=s
+  for (e=0;;i++) {
+    c=substr(s,i,1)
+    if (c == "\"") break
+    if (c == " ") e++; else e=0
+  }
+  if (b < begin) begin=b
+  if (e < end && line[row-1]==s) end=e
+  col=i-2
+}
+function flush() {
+  for (i=0;i<row;i++) {
+    if (i == row-1) tail="\"); //!"; else tail="\",  //!"
+    print "\"" tab substr(line[i],begin+2,length(line[i])-end-begin-3) tail line[i]
+  }
+  for (i=0;i<cut;i++) print "//!" line2[i]
+}
+{ if (/^"/) {
+    scan($0); n++
+    if (/");/) flush()
+  } 
+  else if (/^Row/) print "Row=" row " //!" $0
+  else if (/^Col/) print "Col=" col-begin-end+length(tab) " //!" $0
+  else if (/[0-9]\\">",$/) {
+    s=$0; sub(/.*value=\\"/,"",s); sub(/\\">.*/,"",s)
+    l=length(line[0])-3; n-=cut+row; begin-=length(tab)
+    n=s - (l*n) - begin - ((begin+end)*(int(s/l)-n))
+    print "document.write(\"<INPUT TYPE=\\\"button\\\" value=\\\"" n "\\\">\", //!" $0
+  }
+  else print }' < $file > $file.$$
+		mv -f $file.$$ $file
+	done ;;
+esac
diff -r b53e18d1978e -r 035e82f04c94 sokojs/stuff/slc2htm.sh
--- a/sokojs/stuff/slc2htm.sh	Sat Feb 26 07:43:46 2022 +0100
+++ b/sokojs/stuff/slc2htm.sh	Sat Feb 26 15:02:05 2022 +0000
@@ -16,7 +16,7 @@
     grep -Eq ' _|_ |^_|_$'
 }
 
-[ -z "$1" ] && echo "$0 set1.slc ..." && exit 1
+[ -z "$1" ] && echo "Usage: $0 set1.slc ..." && exit 1
 [ ! -s "main.htm" ] && echo "$PWD/main.htm not found" && exit 2
 
 while [ "$1" ]; do
diff -r b53e18d1978e -r 035e82f04c94 sokojs/stuff/unshrink.sh
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/sokojs/stuff/unshrink.sh	Sat Feb 26 15:02:05 2022 +0000
@@ -0,0 +1,1 @@
+shrink.sh
\ No newline at end of file