wok rev 24130
Add tnylpo
| author | Pascal Bellard <pascal.bellard@slitaz.org> |
|---|---|
| date | Mon Oct 18 14:47:15 2021 +0000 (2021-10-18) |
| parents | e613c69d3e36 |
| children | db9d9cb3c164 |
| files | p2c/receipt qb2c/receipt sokojs/stuff/multiset.sh sokojs/stuff/slc2htm.sh tnylpo/description.txt tnylpo/receipt |
line diff
1.1 --- a/p2c/receipt Sat Oct 16 18:25:56 2021 +0000 1.2 +++ b/p2c/receipt Mon Oct 18 14:47:15 2021 +0000 1.3 @@ -13,6 +13,12 @@ 1.4 1.5 DEPENDS="perl" 1.6 1.7 +current_version() 1.8 +{ 1.9 + wget -O - $WEB_SITE 2>/dev/null | \ 1.10 + sed "/tar/!d;s|.*$PACKAGE-\\(.*\\).tar.*\".*|\\1|;q" 1.11 +} 1.12 + 1.13 # Rules to configure and make the package. 1.14 compile_rules() 1.15 { 1.16 @@ -35,7 +41,6 @@ 1.17 cp sys.p2crc loc.p2crc system.imp system.m2 turbo.imp string.pas \ 1.18 $DESTDIR/usr/lib/p2c 1.19 mv $DESTDIR/usr/lib/p2c/sys.p2crc $DESTDIR/usr/lib/p2c/p2crc 1.20 - 1.21 } 1.22 1.23 # Rules to gen a SliTaz package suitable for Tazpkg. 1.24 @@ -43,4 +48,3 @@ 1.25 { 1.26 cp -a $install/* $fs 1.27 } 1.28 -
2.1 --- a/qb2c/receipt Sat Oct 16 18:25:56 2021 +0000 2.2 +++ b/qb2c/receipt Mon Oct 18 14:47:15 2021 +0000 2.3 @@ -11,6 +11,12 @@ 2.4 WGET_URL="${WEB_SITE%/}" 2.5 TAGS="basic C" 2.6 2.7 +current_version() 2.8 +{ 2.9 + wget -O - $(dirname $WGET_URL) 2>/dev/null | \ 2.10 + sed '/qb2c/!d;s|.*qb2c-||;s|.tgz.*||' 2.11 +} 2.12 + 2.13 # Rules to configure and make the package. 2.14 compile_rules() 2.15 {
3.1 --- a/sokojs/stuff/multiset.sh Sat Oct 16 18:25:56 2021 +0000 3.2 +++ b/sokojs/stuff/multiset.sh Mon Oct 18 14:47:15 2021 +0000 3.3 @@ -1,29 +1,9 @@ 3.4 #!/bin/sh 3.5 3.6 -grep -q 'text/html' level.htm || patch -p0 <<EOT 3.7 ---- level.htm 3.8 -+++ level.htm 3.9 -@@ -22,12 +22,14 @@ 3.10 - <html> 3.11 - <head> 3.12 - <title></title> 3.13 -+<META HTTP-EQUIV="Content Type" CONTENT="text/html;charset=utf-8"> 3.14 - <script type="text/javascript"> 3.15 - <!-- 3.16 - if (parent.frames[0] == null) { document.location = "sokojs.htm" } 3.17 --Row=16 3.18 --Col=16 3.19 --document.write("<body style=\"margin:0\" bgcolor=\"black\"> <b><FONT FACE=\"Comic Sans MS\" SIZE=4 COLOR=\"red\">LEVEL ", 3.20 -+Row = eval(parent.frames[0].document.forms[1].elements[0].value) 3.21 -+Col = eval(parent.frames[0].document.forms[1].elements[1].value) 3.22 -+document.write("<body style=\"margin:0\" bgcolor=\"black\"> <b><FONT FACE=\"Comic Sans MS\" SIZE=4 COLOR=\"red\">", 3.23 -+ parent.frames[0].document.forms[1].elements[2].value," LEVEL ", 3.24 - eval(parent.frames[0].document.forms[0].elements[(Row*Col)+1].value) + 1); 3.25 - 3.26 - 3.27 +[ -s level.htm ] && rm level.htm && patch -p0 <<EOT 3.28 --- main.htm 3.29 +++ main.htm 3.30 -@@ -11,8 +11,9 @@ 3.31 +@@ -11,8 +11,9 @@ Voir : http://www.gnu.org/licenses/gpl.h 3.32 --> 3.33 <html> 3.34 <head> 3.35 @@ -34,7 +14,7 @@ 3.36 <!-- 3.37 img.r{ 3.38 width:30px; 3.39 -@@ -76,19 +77,19 @@ 3.40 +@@ -76,19 +77,19 @@ if (parent.frames[0] == null) { document 3.41 var ie4= (navigator.appName == "Microsoft Internet Explorer")?1:0; 3.42 var ns4= (navigator.appName=="Netscape")?1:0; 3.43 3.44 @@ -58,7 +38,7 @@ 3.45 } 3.46 } 3.47 3.48 -@@ -108,7 +109,7 @@ 3.49 +@@ -108,7 +109,7 @@ function Imajevent(){ 3.50 if (window.event.keyCode == 37) { 3.51 Move(eval(manpos) - 1) 3.52 } else if (window.event.keyCode == 38) { 3.53 @@ -67,7 +47,7 @@ 3.54 } else if (window.event.keyCode == 39) { 3.55 Move(eval(manpos) + 1) 3.56 } else if (window.event.keyCode == 40) { 3.57 -@@ -150,7 +151,7 @@ 3.58 +@@ -150,7 +151,7 @@ manU = new Image(30, 30); manU.src = "8 3.59 manD = new Image(30, 30); manD.src = "9.gif"; // down 3.60 3.61 level = new Array() 3.62 @@ -76,7 +56,7 @@ 3.63 moves = 0 3.64 3.65 function ReloadLevel() { 3.66 -@@ -168,14 +169,18 @@ 3.67 +@@ -168,14 +169,18 @@ function ReloadLevel() { 3.68 3.69 function GoLevel(n) { 3.70 if (n == nbLevel) ReloadLevel() 3.71 @@ -98,7 +78,7 @@ 3.72 } 3.73 3.74 function print_moves(m) { 3.75 -@@ -226,7 +231,7 @@ 3.76 +@@ -226,7 +231,7 @@ function Move(a) { 3.77 if (nbBoxin == 0) { 3.78 if (nbLevel < maxLevel) { 3.79 alert("You have done a good job !") 3.80 @@ -107,7 +87,7 @@ 3.81 GoLevel(nbLevel) 3.82 } else { 3.83 alert("Congratulations !") 3.84 -@@ -246,14 +251,14 @@ 3.85 +@@ -246,14 +251,14 @@ function Move(a) { 3.86 for (y = 0 ; y < Row; y++) { 3.87 document.write ("<TR>") 3.88 for (x = 0; x < Col; x++) { 3.89 @@ -128,14 +108,18 @@ 3.90 } 3.91 document.write("<\/TR>") 3.92 } 3.93 -@@ -266,8 +271,12 @@ 3.94 +@@ -266,8 +271,16 @@ function Move(a) { 3.95 document.write("<FORM>", 3.96 "<INPUT TYPE=button onClick=\"Javascript:ReloadLevel();\" value=\"Restart\">", 3.97 "<INPUT TYPE=button onClick=\"Javascript:UndoMove();\" value=\"Undo\"><p id=\"moves\" style=\"color:white\">0 moves</p></center>") 3.98 + style="style='font-family:Courier New;font-size:14px;font-weight:bold;border:1;border-color:0;padding:0;margin:0px;background-color:#c0c0c0;color:#404040..'" 3.99 + document.write("<select id='set' "+style+" onChange=\"Javascript:GoSet();\">") 3.100 ++ document.write("<option>Change level pack</option>"); 3.101 + document.write("<option>sokojs</option>"); 3.102 -+ document.write("</select><br />") 3.103 ++ document.write("</select><br />") 3.104 ++ document.write("<body style=\"margin:0\" bgcolor=\"black\"> <b><FONT FACE=\"Comic Sans MS\" SIZE=4 COLOR=\"red\">", 3.105 ++ parent.frames[0].document.forms[1].elements[2].value," LEVEL ", 3.106 ++ eval(parent.frames[0].document.forms[0].elements[(Row*Col)+1].value) + 1,"<br/>") 3.107 for (i = 0; i <= maxLevel; i++) { 3.108 - document.write("<INPUT style='font-family:Courier New;font-size:14px;font-weight:bold;border:1;border-color:0;padding:0;margin:0px;background-color:#c0c0c0;color:#404040รน' TYPE=\"button\" onClick=\"Javascript:GoLevel(", i, ");\" value=\"", (i<9?" ":"")+(i+1), "\">") 3.109 + document.write("<INPUT "+style+" TYPE=\"button\" onClick=\"Javascript:GoLevel(", i, ");\" value=\"", (i<9?" ":"")+(i+1), "\">") 3.110 @@ -144,7 +128,7 @@ 3.111 3.112 --- sokojs.htm 3.113 +++ sokojs.htm 3.114 -@@ -22,13 +22,13 @@ 3.115 +@@ -22,14 +22,13 @@ Foundation, Inc., 59 Temple Place - Suit 3.116 <html> 3.117 <head> 3.118 <TITLE>Sokoban (C) Michel Buze</TITLE> 3.119 @@ -154,16 +138,27 @@ 3.120 <meta name="viewport" content="width=device-width, initial-scale=1"> 3.121 </head> 3.122 3.123 - <frameset border="0" rows="0,700,*"> 3.124 +-<frameset border="0" rows="0,700,*"> 3.125 -<frame src="level0.htm"> 3.126 +-<frame src="0.gif"> 3.127 ++<frameset border="0" rows="0,*"> 3.128 +<frame src="sokojs/level0.htm"> 3.129 <frame src="0.gif"> 3.130 - <frame src="0.gif"> 3.131 <noframes> 3.132 + <body> 3.133 EOT 3.134 -[ -s level0.htm ] && mkdir sokojs && mv level?*.htm sokojs && 3.135 -sed -i 's|location = "|&../|;/.*main.htm/i document.write("<FORM ACTION=\\"\\">")\ 3.136 +[ -s level0.htm ] && mkdir sokojs && for l in level*.htm ; do 3.137 + col=$(sed '/^Col/!d;s|Col=||' $l) 3.138 + pos=$(sed '/write/!d;/value=\\"[0-9]/!d;s|.*value=."||;s|.".*||' $l) 3.139 + awk -vx=$(($pos%$col+2)) -vy=$(($pos/$col+10)) '{ c="@" 3.140 + if (substr($0,x,1) == ".") c="+" 3.141 + if(l++==y) $0=substr($0,1,x-1) c substr($0,x+1) 3.142 + print }' < $l | sed -e "s|1)|&.replace('+','.').replace('@','_')|" \ 3.143 + -e '/level.htm/d;s|location = "|&../|;/.*main.htm/i document.write("<FORM ACTION=\\"\\">")\ 3.144 document.write("<INPUT TYPE=\\"button\\" value=\\""+Row+"\\">",\ 3.145 "<INPUT TYPE=\\"button\\" value=\\""+Col+"\\">",\ 3.146 "<INPUT TYPE=\\"button\\" value=\\"sokojs\\">",\ 3.147 - "<INPUT TYPE=\\"button\\" value=\\"97\\"><\\/FORM>")' sokojs/level*.htm 3.148 + "<INPUT TYPE=\\"button\\" value=\\"97\\"><\\/FORM>")' > sokojs/$l 3.149 + rm -f $l 3.150 +done 3.151 +
4.1 --- a/sokojs/stuff/slc2htm.sh Sat Oct 16 18:25:56 2021 +0000 4.2 +++ b/sokojs/stuff/slc2htm.sh Mon Oct 18 14:47:15 2021 +0000 4.3 @@ -1,5 +1,21 @@ 4.4 #!/bin/sh 4.5 4.6 +swap() { 4.7 + awk 'BEGIN { n=0 } { l[n++]=$0 } END { 4.8 + for (i = 0; i < length(l[0]); i++) { 4.9 + for (j = 0; j < n; j++) printf "%s", substr(l[j],i+1,1) 4.10 + print "" 4.11 + }}' 4.12 +} 4.13 + 4.14 +filter() { 4.15 + sed 's| _| |;s|_ | |;s|^_| |;s|_$| |' 4.16 +} 4.17 + 4.18 +check() { 4.19 + grep -Eq ' _|_ |^_|_$' 4.20 +} 4.21 + 4.22 [ -z "$1" ] && echo "$0 set1.slc ..." && exit 1 4.23 [ ! -s "main.htm" ] && echo "$PWD/main.htm not found" && exit 2 4.24 4.25 @@ -32,6 +48,11 @@ 4.26 height="$(echo "$line" | sed 's|.*Height="||;s|".*||')" 4.27 height=$((($row-$height)/2)) 4.28 l=0 4.29 + echo -n "" > $set/tmp0 4.30 + while [ $height -gt $l ]; do 4.31 + printf "$fmt\n" "" >> "$set/tmp0" 4.32 + l=$(($l+1)) 4.33 + done 4.34 cat > "$set/level$level.htm" <<EOT 4.35 <html> 4.36 <head> 4.37 @@ -42,24 +63,29 @@ 4.38 <!-- 4.39 if (parent.frames[0] == null) { document.location = "../sokojs.htm" } 4.40 l = new Array( 4.41 +// $id ${maxwidth}x$maxheight+$((($col-$width)/2))+$height 4.42 EOT 4.43 - prev="" 4.44 continue ;; 4.45 *\</Level\>) state="" 4.46 while [ $row -gt $l ]; do 4.47 - printf "\"$fmt\",\n" "$prev" >> "$set/level$level.htm" 4.48 - prev="" 4.49 + printf "$fmt\n" "" >> "$set/tmp0" 4.50 l=$(($l+1)) 4.51 done 4.52 + while swap < $set/tmp0 | check || check < $set/tmp0 ; do 4.53 + swap < $set/tmp0 | filter | swap | filter > $set/tmp1 4.54 + mv -f $set/tmp1 $set/tmp0 4.55 + done 4.56 + x=$(($(sed '/[@+]/{s|[@+].*||;q}' $set/tmp0 |\ 4.57 + wc -cl | sed 's|^|-|;s|......$|+&|'))) 4.58 + sed 's|.*|"&",|;$s|,$|);|' $set/tmp0 >> "$set/level$level.htm" 4.59 cat >> "$set/level$level.htm" <<EOT 4.60 -$(printf "\"$fmt\"" "$prev")); 4.61 4.62 Row=$row 4.63 Col=$col 4.64 for (x = 0; x < Row; x++) 4.65 for (y = 0; y < Col; y++) 4.66 document.write("<INPUT TYPE=\"button\" value=\"", 4.67 - ' _#*$.'.indexOf(l[x].substring(y, y + 1)), "\">") 4.68 + ' _#*$.'.indexOf(l[x].substring(y, y + 1).replace('+','.').replace('@','_')), "\">") 4.69 document.write("<INPUT TYPE=\"button\" value=\"$x\">", 4.70 "<INPUT TYPE=\"button\" value=\"$level\"><\/FORM>") 4.71 4.72 @@ -69,12 +95,12 @@ 4.73 "<INPUT TYPE=\"button\" value=\"$set\">", 4.74 "<INPUT TYPE=\"button\" value=\"COUNT\"><\/FORM>") 4.75 parent.frames[1].location = "../main.htm" 4.76 -parent.frames[2].location = "../level.htm" 4.77 //--> 4.78 </script></form> 4.79 </body> 4.80 </html> 4.81 EOT 4.82 + rm -f $set/tmp* 4.83 level=$(($level+1)) 4.84 continue ;; 4.85 esac 4.86 @@ -82,20 +108,7 @@ 4.87 Description) 4.88 echo "$line" >> "$set/description.txt" ;; 4.89 Level) 4.90 - [ "$prev" ] && printf "\"$fmt\",$comment\n" "$prev" >> "$set/level$level.htm" || 4.91 - echo "// $id ${maxwidth}x$maxheight+$((($col-$width)/2))+$height" >> "$set/level$level.htm" 4.92 - while [ $height -gt 0 ]; do 4.93 - printf "\"$fmt\",\n" "" >> "$set/level$level.htm" 4.94 - height=$(($height-1)) 4.95 - l=$(($l+1)) 4.96 - done 4.97 - prev="$(echo "$line" | sed 's|.*<L>||;s|</L>||;:a;s|\([#.+@$\*]_*\) |\1_|;ta')" 4.98 - comment="" 4.99 - if echo "$prev" | grep -Eq '@|\+'; then 4.100 - x=$(($(echo "$prev" | sed 's|[@+].*||' | wc -c)+($l*$col)+($col-$width)/2-1)) 4.101 - comment=" // $(printf "\"$fmt\"," "$prev") $x" 4.102 - prev="$(echo "$prev" | sed 's|\+|.|;s|@|_|')" 4.103 - fi 4.104 + printf "$fmt\n" "$(echo "$line" | sed 's|.*<L>||;s|</L>||;:a;s|\([#.+@$\*]_*\) |\1_|;ta')" >> "$set/tmp0" 4.105 l=$(($l+1)) 4.106 esac 4.107 done < "$file"
5.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 5.2 +++ b/tnylpo/description.txt Mon Oct 18 14:47:15 2021 +0000 5.3 @@ -0,0 +1,5 @@ 5.4 +tnylpo allows the execution of programs written for CP/M-80 version 2.2 under 5.5 +Unixy operating systems. It has been tested under Linux, and Mac OS X, but 5.6 +should need little to no modifications to run under any other reasonably 5.7 +recent system. The companion program tnylpo-convert converts text files to 5.8 +and from the CP/M format.
6.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 6.2 +++ b/tnylpo/receipt Mon Oct 18 14:47:15 2021 +0000 6.3 @@ -0,0 +1,35 @@ 6.4 +# SliTaz package receipt. 6.5 + 6.6 +PACKAGE="tnylpo" 6.7 +VERSION="1.1.4" 6.8 +CATEGORY="misc" 6.9 +SHORT_DESC="Run CP/M-80 programs under Unix/Linux." 6.10 +MAINTAINER="pascal.bellard@slitaz.org" 6.11 +LICENSE="BSD" 6.12 +TARBALL="$PACKAGE-$VERSION.tar.gz" 6.13 +WEB_SITE="https://gitlab.com/gbrein/tnylpo" 6.14 +WGET_URL="$WEB_SITE/-/archive/$VERSION/$TARBALL" 6.15 + 6.16 +DEPENDS="ncursesw" 6.17 +BUILD_DEPENDS="ncursesw-dev" 6.18 + 6.19 +current_version() 6.20 +{ 6.21 + wget -O - ${WGET_URL%/arch*}/tags 2>/dev/null | \ 6.22 + sed '/tar.gz/!d;s|.*/tnylpo-\(.*\).tar.gz".*|\1|;q' 6.23 +} 6.24 + 6.25 +# Rules to configure and make the package. 6.26 +compile_rules() 6.27 +{ 6.28 + make 6.29 +} 6.30 + 6.31 +# Rules to gen a SliTaz package suitable for Tazpkg. 6.32 +genpkg_rules() 6.33 +{ 6.34 + mkdir -p $fs/usr/bin $install/usr/share/man 6.35 + cp -a $src/tnylpo $fs/usr/bin 6.36 + cp -a $src/tnylpo-convert $fs/usr/bin 6.37 + cp -a $src/tnylpo*.1 $install/usr/share/man 6.38 +}