head 1.1; branch 1.1.1; access; symbols netbsd-11-0-RC4:1.1.1.1 netbsd-11-0-RC3:1.1.1.1 netbsd-11-0-RC2:1.1.1.1 netbsd-11-0-RC1:1.1.1.1 perseant-exfatfs-base-20250801:1.1.1.1 netbsd-11:1.1.1.1.0.30 netbsd-11-base:1.1.1.1 netbsd-10-1-RELEASE:1.1.1.1 perseant-exfatfs-base-20240630:1.1.1.1 perseant-exfatfs:1.1.1.1.0.28 perseant-exfatfs-base:1.1.1.1 netbsd-8-3-RELEASE:1.1.1.1 netbsd-9-4-RELEASE:1.1.1.1 netbsd-10-0-RELEASE:1.1.1.1 netbsd-10-0-RC6:1.1.1.1 netbsd-10-0-RC5:1.1.1.1 netbsd-10-0-RC4:1.1.1.1 netbsd-10-0-RC3:1.1.1.1 netbsd-10-0-RC2:1.1.1.1 netbsd-10-0-RC1:1.1.1.1 netbsd-10:1.1.1.1.0.26 netbsd-10-base:1.1.1.1 netbsd-9-3-RELEASE:1.1.1.1 cjep_sun2x-base1:1.1.1.1 cjep_sun2x:1.1.1.1.0.24 cjep_sun2x-base:1.1.1.1 cjep_staticlib_x-base1:1.1.1.1 netbsd-9-2-RELEASE:1.1.1.1 cjep_staticlib_x:1.1.1.1.0.22 cjep_staticlib_x-base:1.1.1.1 netbsd-9-1-RELEASE:1.1.1.1 phil-wifi-20200421:1.1.1.1 phil-wifi-20200411:1.1.1.1 is-mlppp:1.1.1.1.0.20 is-mlppp-base:1.1.1.1 phil-wifi-20200406:1.1.1.1 netbsd-8-2-RELEASE:1.1.1.1 netbsd-9-0-RELEASE:1.1.1.1 netbsd-9-0-RC2:1.1.1.1 netbsd-9-0-RC1:1.1.1.1 phil-wifi-20191119:1.1.1.1 netbsd-9:1.1.1.1.0.18 netbsd-9-base:1.1.1.1 phil-wifi-20190609:1.1.1.1 netbsd-8-1-RELEASE:1.1.1.1 netbsd-8-1-RC1:1.1.1.1 pgoyette-compat-merge-20190127:1.1.1.1 pgoyette-compat-20190127:1.1.1.1 pgoyette-compat-20190118:1.1.1.1 pgoyette-compat-1226:1.1.1.1 pgoyette-compat-1126:1.1.1.1 pgoyette-compat-1020:1.1.1.1 pgoyette-compat-0930:1.1.1.1 pgoyette-compat-0906:1.1.1.1 pgoyette-compat-0728:1.1.1.1 netbsd-8-0-RELEASE:1.1.1.1 phil-wifi:1.1.1.1.0.16 phil-wifi-base:1.1.1.1 pgoyette-compat-0625:1.1.1.1 netbsd-8-0-RC2:1.1.1.1 pgoyette-compat-0521:1.1.1.1 pgoyette-compat-0502:1.1.1.1 pgoyette-compat-0422:1.1.1.1 netbsd-8-0-RC1:1.1.1.1 pgoyette-compat-0415:1.1.1.1 pgoyette-compat-0407:1.1.1.1 pgoyette-compat-0330:1.1.1.1 pgoyette-compat-0322:1.1.1.1 pgoyette-compat-0315:1.1.1.1 pgoyette-compat:1.1.1.1.0.14 pgoyette-compat-base:1.1.1.1 matt-nb8-mediatek:1.1.1.1.0.12 matt-nb8-mediatek-base:1.1.1.1 perseant-stdc-iso10646:1.1.1.1.0.10 perseant-stdc-iso10646-base:1.1.1.1 netbsd-8:1.1.1.1.0.8 netbsd-8-base:1.1.1.1 prg-localcount2-base3:1.1.1.1 prg-localcount2-base2:1.1.1.1 prg-localcount2-base1:1.1.1.1 prg-localcount2:1.1.1.1.0.6 prg-localcount2-base:1.1.1.1 pgoyette-localcount-20170426:1.1.1.1 bouyer-socketcan-base1:1.1.1.1 pgoyette-localcount-20170320:1.1.1.1 bouyer-socketcan:1.1.1.1.0.4 bouyer-socketcan-base:1.1.1.1 pgoyette-localcount-20170107:1.1.1.1 pgoyette-localcount-20161104:1.1.1.1 localcount-20160914:1.1.1.1 pgoyette-localcount-20160806:1.1.1.1 pgoyette-localcount-20160726:1.1.1.1 pgoyette-localcount:1.1.1.1.0.2 pgoyette-localcount-base:1.1.1.1 v0_16_1:1.1.1.1 GNU:1.1.1; locks; strict; comment @# @; 1.1 date 2016.01.12.19.50.40; author christos; state Exp; branches 1.1.1.1; next ; commitid mjqfEJ9Ohc4GbGQy; 1.1.1.1 date 2016.01.12.19.50.40; author christos; state Exp; branches; next ; commitid mjqfEJ9Ohc4GbGQy; desc @@ 1.1 log @Initial revision @ text @#! /bin/sh # Test recognition of Scheme format strings. tmpfiles="" trap 'rm -fr $tmpfiles' 1 2 3 15 tmpfiles="$tmpfiles f-sc-1.data" cat <<\EOF > f-sc-1.data # Valid: no argument, ( | . *) "abc~~def" # Valid: one argument, (* | . *) "abc~Sdef" # Valid: 11 arguments, (* * * * * * * * * * * | . *) "abc~10@@*~Sdef" # Invalid: unterminated "abc~~def~" # Invalid: unterminated "abc~~def~1" # Invalid: unterminated "abc~~def~:" # Invalid: unterminated "abc~~def~@@" # Valid: colon "abc~:Sdef" # Valid: atsign "abc~@@Sdef" # Valid: colon and atsign "abc~:@@Sdef" # Valid: atsign and colon "abc~@@:Sdef" # Valid: params before atsign and colon "abc~3,-4,,'*@@:Sdef" # Invalid: params after atsign and colon "abc~@@:3,-4Sdef" # Invalid: params after atsign and colon "abc~@@:-4Sdef" # Invalid: params after atsign and colon "abc~@@:,-4Sdef" # Valid: V and # params, (i() * | . *) "abc~#,vSdef" # Invalid: wrong type params "abc~,'*Sdef" # Valid: FORMAT-ASCII, (i() i() i() c() * | . *) "abc~v,v,v,vA" # Invalid: too many params "abc~v,v,v,v,5A" # Valid: FORMAT-S-EXPRESSION, (i() i() i() c() * | . *) "abc~v,v,v,vS" # Invalid: too many params "abc~v,v,v,v,5S" # Valid: FORMAT-PRETTY, (* | . *) "abc~Y" # Invalid: too many params "abc~3Y" # Valid: FORMAT-DECIMAL, (i() c() c() i() i | . *) "abc~v,v,v,vD" # Invalid: too many params "abc~v,v,v,v,5D" # Valid: FORMAT-BINARY, (i() c() c() i() i | . *) "abc~v,v,v,vB" # Invalid: too many params "abc~v,v,v,v,5B" # Valid: FORMAT-OCTAL, (i() c() c() i() i | . *) "abc~v,v,v,vO" # Invalid: too many params "abc~v,v,v,v,5O" # Valid: FORMAT-HEXADECIMAL, (i() c() c() i() i | . *) "abc~v,v,v,vX" # Invalid: too many params "abc~v,v,v,v,5X" # Valid: FORMAT-RADIX, (i() i() c() c() i() i | . *) "abc~v,v,v,v,vR" # Invalid: too many params "abc~v,v,v,v,v,5R" # Valid: FORMAT-PLURAL, (* | . *) "abc~P" # Valid: FORMAT-PLURAL, (i | . *) "abc~R egg~:P" # Invalid: too many params "abc~2P" # Valid: FORMAT-CHARACTER, (c | . *) "abc~C" # Valid: FORMAT-CHARACTER, ( | . *) "abc~4C" # Invalid: too many params "abc~4,4C" # Valid: FORMAT-FIXED-FLOAT, (i() i() i() c() c() r | . *) "abc~v,v,v,v,vF" # Invalid: too many params "abc~v,v,v,v,v,5F" # Valid: FORMAT-EXPONENTIAL-FLOAT, (i() i() i() i() c() c() c() r | . *) "abc~v,v,v,v,v,v,vE" # Invalid: too many params "abc~v,v,v,v,v,v,v,5E" # Valid: FORMAT-GENERAL-FLOAT, (i() i() i() i() c() c() c() r | . *) "abc~v,v,v,v,v,v,vG" # Invalid: too many params "abc~v,v,v,v,v,v,v,5G" # Valid: FORMAT-DOLLARS-FLOAT, (i() i() i() c() r | . *) "abc~v,v,v,v$" # Invalid: too many params "abc~v,v,v,v,5$" # Valid: FORMAT-FIXED-FLOAT-COMPLEX, (C | .*) "abc~I" # Valid: FORMAT-TERPRI, (i() | . *) "abc~v%" # Invalid: too many params "abc~v,5%" # Valid: FORMAT-FRESH-LINE, (i() | . *) "abc~v&" # Invalid: too many params "abc~v,5&" # Valid: FORMAT-SPACE, (i() | . *) "abc~v_" # Invalid: too many params "abc~v,5_" # Valid: FORMAT-TAB, (i() | . *) "abc~v/" # Invalid: too many params "abc~v,5/" # Valid: FORMAT-PAGE, (i() | . *) "abc~v|" # Invalid: too many params "abc~v,5|" # Valid: FORMAT-TILDE, (i() | . *) "abc~v~" # Invalid: too many params "abc~v,5~" # Valid: FORMAT-FORCE-OUTPUT, ( | . *) "abc~!" # Invalid: too many params "abc~5!" # Valid: FORMAT-IMPLEMENTATION, ( | . *) "abc~Q" # Invalid: too many params "abc~5Q" # Valid: FORMAT-TABULATE, (i() i() c() | . *) "abc~v,v,vT" # Invalid: too many params "abc~v,v,v,5T" # Valid: FORMAT-GOTO absolute, (* r c | . *) "abc~S~F~S~2@@*~C" # Invalid: type incompatibility "abc~S~F~S~1@@*~C" # Valid: FORMAT-GOTO backward, (* c r | . *) "abc~S~S~F~2:*~C" # Invalid: type incompatibility "abc~S~S~F~1:*~C" # Invalid: too many params "abc~v,4*" # Valid: FORMAT-GOTO with large number "abc~S~F~S~1000000@@*~C" # Valid: FORMAT-INDIRECTION, (~ ( | . *) | . *) "abc~?" # Valid: FORMAT-INDIRECTION, (~ | . *) "abc~@@?" # Invalid: too many params "abc~4?" # Valid: FORMAT-INDIRECTION, (~ ( | . *) | . *) "abc~K" # Valid: FORMAT-INDIRECTION, (~ | . *) "abc~@@K" # Invalid: too many params "abc~4K" # Valid: FORMAT-CASE-CONVERSION, (* | . *) "abc~(~S~)" # Invalid: too many params "abc~4(~S~)" # Invalid: too many params "abc~(~S~4)" # Invalid: unterminated "abc~(~S" # Invalid: separator "abc~(~S~;~S~)" # Valid: FORMAT-CONDITIONAL, (i() c | . *) "abc~@@[~D~]~C" # Valid: FORMAT-CONDITIONAL, (i() | . *) "abc~@@[~D~D~]~C" # Invalid: separator "abc~@@[~D~;~D~]~C" # Valid: FORMAT-CONDITIONAL, (* i c | . *) "abc~:[~X~;~D~]~C" # Invalid: missing separator "abc~:[~D~]~C" # Invalid: too many separators "abc~:[~X~;~D~;~E~]~C" # Valid: FORMAT-CONDITIONAL, (* | . *) "abc~[~D~;~X~]~C" # Valid: FORMAT-CONDITIONAL, (* i c | . *) "abc~[~D~;~X~:;~R~]~C" # Invalid: default clause not last "abc~[~D~;~X~:;~R~;~R~]~C" # Invalid: too many params "abc~4@@[~D~]" # Invalid: too many params "abc~@@[~D~4]" # Invalid: too many params "abc~4:[~D~;~X~]" # Invalid: too many params "abc~:[~D~4;~X~]" # Invalid: too many params "abc~:[~D~;~X~4]" # Valid: FORMAT-CONDITIONAL, one param, without colon or atsign "abc~4[~D~;~X~]" # Invalid: too many params "abc~4,4[~D~;~X~]" # Invalid: too many params "abc~[~D~4;~X~]" # Invalid: too many params "abc~[~D~;~X~4]" # Valid: FORMAT-ITERATION, (( | . *) | . *) "abc~{~~~}" # Valid: FORMAT-ITERATION, (( | . ( | . *)) | . *) "abc~:{~~~}" # Valid: FORMAT-ITERATION, ( | . *) "abc~@@{~~~}" # Valid: FORMAT-ITERATION, ( | . ( | . *)) "abc~:@@{~~~}" # Valid: FORMAT-ITERATION with indirection, (~ ( | . *) | . *) "abc~{~}" # Valid: FORMAT-ITERATION with indirection, (~ ( | . ( | . *)) | . *) "abc~:{~}" # Valid: FORMAT-ITERATION with indirection, (~ | . *) "abc~@@{~}" # Valid: FORMAT-ITERATION with indirection, (~ | . ( | . *)) "abc~:@@{~}" # Valid: FORMAT-ITERATION with loop, (( | . i c) | . *) "abc~{~D ~C~}" # Valid: FORMAT-ITERATION with loop, (( | . (i c | . *)) | . *) "abc~:{~D ~C~}" # Valid: FORMAT-ITERATION with loop, ( | . i c) "abc~@@{~D ~C~}" # Valid: FORMAT-ITERATION with loop, ( | . (i c | . *)) "abc~:@@{~D ~C~}" # Valid: FORMAT-ITERATION with variable-advance loop, (( | . *) | . *) "abc~{~[~D~]~}" # Valid: FORMAT-ITERATION with variable-advance loop, (( | . (* | . *)) | . *) "abc~:{~[~D~]~}" # Valid: FORMAT-ITERATION with variable-advance loop, ( | . *) "abc~@@{~[~D~]~}" # Valid: FORMAT-ITERATION with variable-advance loop, ( | . (* | . *)) "abc~:@@{~[~D~]~}" # Invalid: separator "abc~{~D~;~C~}" # Invalid: wrongly nested "abc~{~(~}~)" # Valid: any number of arguments "abc~v,v,v,v,v!" # Invalid: type incompatibility between integer and list "abc~D~:*~{~D~}" # Invalid: type incompatibility between real and list "abc~{~S~}~:*~F" # Valid: list must be empty "abc~{~C~}~:*~{~D~}" EOF : ${XGETTEXT=xgettext} n=0 while read comment; do read string n=`expr $n + 1` tmpfiles="$tmpfiles f-sc-1-$n.in f-sc-1-$n.po" cat < f-sc-1-$n.in (gettext ${string}) EOF ${XGETTEXT} -L Scheme -o f-sc-1-$n.po f-sc-1-$n.in || exit 1 test -f f-sc-1-$n.po || exit 1 fail= if echo "$comment" | grep 'Valid:' > /dev/null; then if grep scheme-format f-sc-1-$n.po > /dev/null; then : else fail=yes fi else if grep scheme-format f-sc-1-$n.po > /dev/null; then fail=yes else : fi fi if test -n "$fail"; then echo "Format string recognition error:" 1>&2 cat f-sc-1-$n.in 1>&2 echo "Got:" 1>&2 cat f-sc-1-$n.po 1>&2 exit 1 fi rm -f f-sc-1-$n.in f-sc-1-$n.po done < f-sc-1.data rm -fr $tmpfiles exit 0 @ 1.1.1.1 log @import latest GPLv2 gettext @ text @@