View difference between Paste ID: iUp4xjJT and 4mha6G26

 #!/bin/sh
 
 # The ramdisk /bin/sh uses "\c" at end of line to suppress newlines.
-#
+# Oher shells use -ne and -e.  So define c or the other two.
 c=\\c
-K="\033[1;30m"
+#ne=-ne; e=-e
-R="\033[1;31m"
+
-G="\033[1;32m"
+E=$(printf "\033")
-Y="\033[1;33m"
+ESC=$(printf "\033")
-B="\033[1;34m"
+C_D=$(printf "\004")
-M="\033[1;35m"
+C_H=$(printf "\010")
-C="\033[1;36m"
+TAB=$(printf "\011")
-W="\033[1;37m"
+BS=$(printf "\177")
-N="\033[0m"
+
-BOLD="\033[1m"
+
-REV="\033[7m"
+
-ITAL="\033[3m"
+
-UNDR="\033[4m"
+K="${E}[1;30m"
-BLNK="\033[5m"
+R="${E}[1;31m"
 G="${E}[1;32m"
-WB="\033[44;37m"
+Y="${E}[1;33m"
-BW="\033[47;34m"
+B="${E}[1;34m"
 M="${E}[1;35m"
-DRAW="\033(0"
+C="${E}[1;36m"
-TEXT="\033(B"
+W="${E}[1;37m"
 N="${E}[0m"
-#ESC=$(printf "\033")
+BOLD="${E}[1m"
-ESC=`echo "\033"`
+REV="${E}[7m"
-TAB=`echo "\011"`
+ITAL="${E}[3m"
 UNDR="${E}[4m"
 BLNK="${E}[5m"
-EMPTY="                    "
+
-EMPTYLINE="${EMPTY}${EMPTY}${EMPTY}${EMPTY}${EMPTY}${EMPTY}${EMPTY}${EMPTY}"
+WB="${E}[1;44;37m"
 BW="${E}[0;47;34m"
 
-SERV="irc.freenode.net"
+DRAW="${E}(0"
 TEXT="${E}(B"
 
 #NICK="zippy"
 DSRV="irc.freenode.net"
-    printf "${ESC}[%d;%dH" ${1:-1} ${2:-1}
+SERV=$DSRV
-    [ $# -gt 2 ] && {
+
-        shift 2
+
-        printf "%s" "$*"
+
-    }
+
   printf "${ESC}[%d;%dH" ${1:-1} ${2:-1}
   [ $# -gt 2 ] && {
-spaceat()
+    shift 2
     printf "%s" "$*"
-    blanks=`echo $EMPTYLINE | head -c $3`
+  }
-    printf "${ESC}[%d;%dH${blanks}" ${1:-1} ${2:-1}
+
 
 sreplace()
 {
   S1=$(expr substr "$STR" 1 $1)
-    case $1 in
+  [ $# -lt 2 ] && S1=$(expr substr $STR 1 $(($1 - 1)))
-        0) printf "${ESC}[?25l" ;;
+  S2=$(expr substr "$STR" $(($1 + 1)) ${#STR})
-        *) printf "${ESC}[?12l${ESC}[?25h" ;;
+  STR="${S1}${2}${S2}"
 }
 
 cursor()
 {
   case $1 in
-    case $1 in
+    0) printf "${ESC}[?25l" ;;
-        0) printf "${ESC}[22m" ;;
+    *) printf "${ESC}[?12l${ESC}[?25h" ;;
-        *) printf "${ESC}[1m" ;;
+
 }
 
 bold()
 {
   case $1 in
-    if [ -t 0 ]
+    0) printf "${ESC}[22m" ;;
     *) printf "${ESC}[1m" ;;
-      if [ -z "$_STTY" ]
+
-      then
+
-        _STTY=$(stty -g)
+
-        stty -echo -icanon time ${GET_TMOUT:-0} min ${GET_MIN:-0}
+
-      elif [ -n "$GET_TMOUT$GET_MIN" ]
+
-      then
+  if [ -t 0 ]
-        stty -echo -icanon time ${GET_TMOUT:-0} min ${GET_MIN:-0}
+  then
-      fi
+    if [ -z "$_STTY" ]
     then
-#    _KEY=$(dd bs=1 count=1  2>/dev/null; printf '.')
+      _STTY=$(stty -g)
-    _KEY=$(dd bs=1 count=1  2>/dev/null; echo '.')
+      stty -echo -icanon time ${GET_TMOUT:-0} min ${GET_MIN:-0}
-    _KEY=${_KEY%.}
+    elif [ -n "$GET_TMOUT$GET_MIN" ]
-    [ -n "$_KEY" ]
+
       stty -echo -icanon time ${GET_TMOUT:-0} min ${GET_MIN:-0}
     fi
   fi
 #  _KEY=$(dd bs=1 count=1  2>/dev/null; printf '.')
-    while :
+  _KEY=$(dd bs=1 count=1  2>/dev/null; echo '.')
-    do
+  _KEY=${_KEY%.}
-      GET_TMOUT=5 get && break ## Half second timeout on each loop
+  [ -n "$_KEY" ]
-    done
+
 
-    case $_KEY in
+
-    "${ESC}")
+
-      stty -echo -icanon time 0 min 0
+  while :
-      read _KEY
+  do
-      if [ -z "$_KEY" ]
+    GET_TMOUT=5 get && break ## Half second timeout on each loop
-      then
+  done
-#        _KEY='?'
+
-        _KEY="${ESC}"
+  case $_KEY in
-      fi
+  "${ESC}")
-    ;;
+    stty -echo -icanon time 0 min 0
     read _KEY
     if [ -z "$_KEY" ]
     then
 #      _KEY='?'
       _KEY="${ESC}"
     fi
-# Now draw the GUI
+  ;;
-echo "\033[2J\033[1;1H"
+
 }
 
 
-echo $WB$DRAW"\c"
+# Define GUI Widgets (StrName, FieldLength, AtLoc, EmptyStr, Type)
-echo "\033[1;1Hlqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk"
+WS1="NICK";  WL1=39;  WA1="${E}[2;13H";   WE1="${WA1}$(printf "%-39s")"
-echo          "x NICK                                              x"
+WS2="ID";    WL2=39;  WA2="${E}[3;13H";   WE2="${WA2}$(printf "%-39s")"
-echo          "x IDENTIFY                                          x"
+WS3="IPAS";  WL3=39;  WA3="${E}[4;13H";   WE3="${WA3}$(printf "%-39s")"
-echo          "x PASSWORD                                          x"
+WS4="SERV";  WL4=39;  WA4="${E}[6;13H";   WE4="${WA4}$(printf "%-39s")"
-echo          "tqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqu"
+WS5="PORT";  WL5=39;  WA5="${E}[7;13H";   WE5="${WA5}$(printf "%-39s")"
-echo          "x SERVER                                            x"
+WS6="NPAS";  WL6=39;  WA6="${E}[8;13H";   WE6="${WA6}$(printf "%-39s")"
-echo          "x PORT                                              x"
+WS7="PASS";  WL7=39;  WA7="${E}[9;13H";   WE7="${WA7}$(printf "%-39s")"
-echo          "x NEEDPASS                                          x"
+WS8="CH1";   WL8=24;  WA8="${E}[11;3H";   WE8="${WA8}$(printf "%-24s")"
-echo          "x PASSWORD                                          x"
+WS9="CH2";   WL9=24;  WA9="${E}[12;3H";   WE9="${WA9}$(printf "%-24s")"
-echo          "t CHANNELS  qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqu"
+WS10="CH3";  WL10=24; WA10="${E}[13;3H";  WE10="${WA10}$(printf "%-24s")"
-echo          "x                          KEY                      x"
+WS11="CH4";  WL11=24; WA11="${E}[14;3H";  WE11="${WA11}$(printf "%-24s")"
-echo          "x                          KEY                      x"
+WS12="NK1";  WL12=3;  WA12="${E}[11;32H"; WE12="${WA12}$(printf "%-3s")"
-echo          "x                          KEY                      x"
+WS13="NK2";  WL13=3;  WA13="${E}[12;32H"; WE13="${WA13}$(printf "%-3s")"
-echo          "x                          KEY                      x"
+WS14="NK3";  WL14=3;  WA14="${E}[13;32H"; WE14="${WA14}$(printf "%-3s")"
-echo          "mqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj"
+WS15="NK4";  WL15=3;  WA15="${E}[14;32H"; WE15="${WA15}$(printf "%-3s")"
-echo $TEXT$BW"\c"
+WS16="KEY1"; WL16=15; WA16="${E}[11;37H"; WE16="${WA16}$(printf "%-15s")"
-echo      "\033[14A\033[13G                                       "
+WS17="KEY2"; WL17=15; WA17="${E}[12;37H"; WE17="${WA17}$(printf "%-15s")"
-echo             "\033[13G                                       "
+WS18="KEY3"; WL18=15; WA18="${E}[13;37H"; WE18="${WA18}$(printf "%-15s")"
-echo             "\033[13G                                       "
+WS19="KEY4"; WL19=15; WA19="${E}[14;37H"; WE19="${WA19}$(printf "%-15s")"
-echo      "\033[1B\033[13G                                       "
+
-echo             "\033[13G                                       "
+###################
-echo             "\033[13G                                       "
+
-echo             "\033[13G                                       "
+
-echo "\033[1B\033[3G                        \033[32G   \033[37G               "
+printf "${ESC}[2J"
-echo        "\033[3G                        \033[32G   \033[37G               "
+
-echo        "\033[3G                        \033[32G   \033[37G               "
+
-echo        "\033[3G                        \033[32G   \033[37G               "
+
-echo "\033[13A\033[13G${NICK}"
+printat 1 1  "$WB$DRAW"
-echo        "\033[13G${ID}"
+echo "lqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk"
-echo        "\033[13G${IPAS}"
+echo "x NICK                                              x"
-echo "\033[1B\033[13G${SERV}"
+echo "x IDENTIFY                                          x"
-echo        "\033[13G${PORT}"
+echo "x PASSWORD                                          x"
-echo        "\033[13G${NPAS}"
+echo "tqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqu"
-echo        "\033[13G${PASS}"
+echo "x SERVER                                            x"
-echo "\033[1B\033[3G${CH1}\033[32G${NK1}\033[37G$KEY1"
+echo "x PORT                                              x"
-echo        "\033[3G${CH2}\033[32G${NK2}\033[37G$KEY2"
+echo "x NEEDPASS                                          x"
-echo        "\033[3G${CH3}\033[32G${NK3}\033[37G$KEY3"
+echo "x PASSWORD                                          x"
-echo        "\033[3G${CH4}\033[32G${NK4}\033[37G$KEY4"
+echo "t CHANNELS  qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqu"
-echo $N
+echo "x                          KEY                      x"
 echo "x                          KEY                      x"
 echo "x                          KEY                      x"
 echo "x                          KEY                      x"
 echo "mqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj"
 printf "$TEXT$BW"
 #
 echo "${WE1}${WA1}${NICK}"
 echo "${WE2}${WA2}${ID}"
 echo "${WE3}${WA3}${IPAS}"
 echo "${WE4}${WA4}${SERV}"
 echo "${WE5}${WA5}${PORT}"
 echo "${WE6}${WA6}${NPAS}"
 echo "${WE7}${WA7}${PASS}"
 echo "${WE8}${WA8}${CH1}${WE12}${WA12}${NK1}${WE16}${WA16}${KEY1}"
 echo "${WE9}${WA9}${CH2}${WE13}${WA13}${NK2}${WE17}${WA17}${KEY2}"
 echo "${WE10}${WA10}${CH3}${WE14}${WA14}${NK3}${WE18}${WA18}${KEY3}"
 echo "${WE11}${WA11}${CH4}${WE15}${WA15}${NK4}${WE19}${WA19}${KEY4}"
 #echo $N
 }
 
 # Open the tinyirc wrapper script and read lines until one starts with tinyirc.
 IRC=/usr/local/bin/irc
 if [ -r $IRC ] ; then
 exec 3<$IRC
 # Find SERV NICK PORT
 while read line <&3
 do
   if [ "${line%% *}" = "tinyirc" ] ; then
     # Tries to remove the first word
     CFG="${line#tinyirc }"
     # Check if we removed anything
     if [ "$CFG" != "$line" ] ; then
       for ARG in $CFG
       do
 	case $ARG in
-CHAN=${SERV#*/}
+
 	  -i) ID="yes" ;;
 	  -*) ARGS="$ARGS $ARG" ;;
 	  ''|*[!0-9]*) NICK="$ARG" ;;
 	  *) PORT="$ARG" ;;
 	esac
       done
     fi
-#for J in 1 2 3 4
+
 done
-while [ $J -lt 5 ]
+
 fi
 
 # Remove irc:// from SERV
 case $SERV in
   *://*) SERV=${SERV#*://} ;;
 esac
 # Split SERV at first /
 case $SERV in
   */*) CHAN=${SERV#*/} ;;
   *) CHAN="" ;;
 esac
 SERV=${SERV%%/*}
 # Split SERV at first :
 case $SERV in
   *:*) PORT=${SERV#*:} ; SERV=${SERV%%:*} ;;
 esac
 
 # Get the channels
 J=1; while [ $J -lt 5 ]
 do
-  else
+
-    # We got some server opts (no channel)
+
     */*) CHAN=${CHAN#*/} ;;
     *) CHAN="" ;;
   esac
   case $CH in
     *[\?\&,]*) OPTS=${CH#*[[\?\&,]} ; CH=${CH%%[\?\&,]*} ;;
     *) OPTS="" ;;
   esac
   echo "$J CH=<$CH> OPTS=<$OPTS>"
   if [ -n "$CH" ] ; then
     eval CH$J=$CH ; eval OPTS$J=$OPTS ;
     case $OPTS in
       *key=*) CK=${OPTS#key=} ; CK=${CK#*[[\?\&,]} ; eval KEY$J=$CK ;;
       *needkey*) eval NK$J="yes" ;;
     esac
     J=`expr $J + 1` ;
   elif [ -z "$OPTS" ] ; then
     J=`expr $J + 1` ;
   else # We got some server opts (no channel)
     SOPT="$SOPT,$OPTS"
   fi
   case $OPTS in
     *identify=*) IPAS=${OPTS#identify=} ; IPAS=${IPAS#*[[\?\&,]} ;;
   esac
   case $OPTS in
     *pass=*) PASS=${OPTS#pass=} ; PASS=${PASS#*[[\?\&,]} ;;
     *needpass*) NPAS="yes" ;;
   esac
 done
 
 # Check if various passwords are needed
 if [ -n "$ID" ] ; then ID="yes" ;
 elif [ -n "$IPAS" ] ; then ID="yes" ;
 else ID="no" ;
 fi
 if [ -n "$NPAS" ] ; then NPAS="yes" ;
 elif [ -n "$PASS" ] ; then NPAS="yes" ;
 else NPAS="no" ;
 fi
-#echo "IDENT=<$IPAS>"
+
-#echo "PASS=<$PASS>"
+
-#echo "NPAS=<$NPAS>"
+
-#
+
-#echo "CH1=<$CH1> <$OPTS1>"
+
-#echo "CH2=<$CH2> <$OPTS2>"
+
-#echo "CH3=<$CH3> <$OPTS3>"
+
-#echo "CH4=<$CH4> <$OPTS4>"
+
-#echo "CHAN=<$CHAN> <$SOPT>"
+
-#
+
-#case "" in
+
-#X)
+
 fi
-#;;
+
-#esac
+
 else NK4="no" ;
 fi
-#echo "Edit TinyIRC Configuration? [y/"$B"n"$N"] \c"
+
-#read -s -n1 EDIT
+
-#echo "$EDIT"
+################## Now draw and run the GUI.
 ShowGUI
 
 #cursor 0
-pick=1
+
 y=2
 x=13
 xo=13
-# Run main dialog box until q.
+STR=$NICK
 
 # Run main dialog box until ESC
-printat $y $x ""
+
 do
 printat $y $x
 get_key
 MV=0 # Handle widget traversal (UP,DN,TAB).
 case $_KEY in
-        _KEY=$pick
+
         #_KEY=$J
 	eval SP=\$WS$J
-        [ "$pick" -gt 11 ] && pick=$(( $pick - 4 ))
+	eval $SP=$STR
 	x=$xo
-        [ "$pick" -gt 7 ] && [ "$pick" -lt 16 ] && pick=$(( $pick + 4 ))
+
-;; '[A')printat 1 24 "key=[UP]"
+;; '[A')printat 1 24 "key=[UP]" ; MV=$J
-        [ "$pick" -eq 12 ] && pick=8
+        [ "$J" -eq 12 ] && J=8
-        [ "$pick" -eq 16 ] && pick=8
+        [ "$J" -eq 16 ] && J=8
-        pick=$(( $pick - 1 ))
+        J=$(($J - 1))
-;; '[B')printat 1 24 "key=[DN]"
+;; '[B')printat 1 24 "key=[DN]" ; MV=$J
-        [ "$pick" -ne 11 ] && [ "$pick" -ne 15 ] && pick=$(( $pick + 1 ))
+        [ "$J" -ne 11 ] && [ "$J" -ne 15 ] && J=$(($J + 1))
-;; "${TAB}")printat 1 24 "key=[TB]"
+;; "${TAB}")printat 1 24 "key=[TB]" ; MV=$J
-        [ "$pick" -eq 19 ] && pick=0
+        [ "$J" -eq 19 ] && J=0
-        pick=$(( $pick + 1 ))
+        [ "$J" -gt 7 ] && J=$(($J + 4))
         [ "$J" -gt 19 ] && J=$(($J - 11))
         [ "$J" -le 7 ] && J=$(($J + 1))
 ;; '[D')printat 1 24 "key=[<<]"
         [ $x -gt $xo ] && x=$(($x - 1))
-;; *)printat 1 24 "key=[${_KEY}]"
+
         [ $x -lt $((${#STR} + $xo)) ] && x=$(($x + 1))
 ;; '[5~')printat 1 24 "key=[V+]"
 ;; '[6~')printat 1 24 "key=[V-]"
-if [ "$pick" -lt 1 ] ; then pick=1
+
-elif [ "$pick" -gt 19 ] ; then pick=19
+
 ;; "${C_D}")printat 1 24 "key=[^D]"
-if   [ "$pick" -lt 4 ] ; then y=$(( $pick + 1 )) ; x=13
+;; "${C_H}")printat 1 24 "key=[^H]"
-elif [ "$pick" -lt 8 ] ; then y=$(( $pick + 2 )) ; x=13
+;; "${BS}")printat 1 24 "key=[BS]"
-elif [ "$pick" -lt 12 ] ; then y=$(( $pick + 3 )) ; x=3
+	[ $x -gt $xo ] && {
-elif [ "$pick" -lt 16 ] ; then y=$(( $pick - 1 )) ; x=32
+          sreplace $(($x - $xo))
-elif [ "$pick" -lt 20 ] ; then y=$(( $pick - 5 )) ; x=37
+	  x=$(($x - 1))
           printat $y $xo "$STR "
           printat $y $x
         }
-# Goto top left corner (1,1) and set normal text, fix tty, turn on the cursor.
+;; [[:cntrl:]]) printat 1 24 "key=[CTL]"
-printat 1 1 "${ESC}[0m"
+;; [[:graph:]]) printat 1 24 "key=[${_KEY}]"
 	sreplace $(($x - $xo)) "${_KEY}"
         printat $y $xo $STR
-cursor 1
+	x=$(($x + 1))
         printat $y $x
 ;; *)printat 1 24 "key=[HUH]"
 ;;
 esac
 
 # Set x and y if traversing between widgets
 if [ $MV -ne 0 ] ; then
   eval WL=\$WL$MV
   printat $y $xo; printf "%-${WL}s"
   eval SP=\$WS$MV
   eval STR=\$"$SP"
   eval printat $y $xo $STR
   # Should erase from xo+$(#STR) to widgetlength.
   if [ "$J" -lt 1 ] ; then J=1
   elif [ "$J" -gt 19 ] ; then J=19
   fi
   if   [ "$J" -lt 4 ] ; then y=$(($J + 1)) ; x=13
   elif [ "$J" -lt 8 ] ; then y=$(($J + 2)) ; x=13
   elif [ "$J" -lt 12 ] ; then y=$(($J + 3)) ; x=3
   elif [ "$J" -lt 16 ] ; then y=$(($J - 1)) ; x=32
   elif [ "$J" -lt 20 ] ; then y=$(($J - 5)) ; x=37
   fi
   xo=$x
   eval SP=\$WS$J
   eval STR=\$"$SP"
   eval printat $y $xo $STR
 fi
 done
 
 # Goto top left corner (1,1), set normal text, fix tty, turn on the cursor.
 printat 1 1 $N
 stty sane
 clear
 cursor 1
 
 ### Construct a tinyirc command line to save.
 CMD="tinyirc $NICK $PORT ${SERV:-$DSRV}"
 
 OPS=""
 OP=\?
 case "$ID" in y*|Y*) OPS="${OP}identify=$IPAS"; OP=\& ;; esac
 if [ -n "$PASS" ] ; then
   OPS="${OPS}${OP}pass=${PASS}";
 else case "$NPAS" in
   y*|Y*) OPS="${OPS}${OP}needpass" ;; esac
 fi
 [ -n "$OPS" ] && CMD="${CMD}/$OPS"
 
 for J in 1 2 3 4
 do
 eval CH="\$CH$J"; eval NK="\$NK$J"; eval KEY="\$KEY$J"
 [ -n "$CH" ] && {
   CMD="${CMD}/$CH"
   if [ -n "$KEY" ] ; then
     CMD="${CMD},key=${KEY}"
   else case "$NK" in
     y*|Y*) CMD="${CMD},needkey" ;; esac
   fi
 }
 done
 
 echo $CMD