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 Tcl format strings. tmpfiles="" trap 'rm -fr $tmpfiles' 1 2 3 15 tmpfiles="$tmpfiles f-t-1.data" cat <<\EOF > f-t-1.data # Valid: no argument "abc%%" # Valid: one character argument "abc%c" # Valid: one string argument "abc%s" # Valid: one integer argument "abc%i" # Valid: one integer argument "abc%d" # Valid: one integer argument "abc%o" # Valid: one integer argument "abc%u" # Valid: one integer argument "abc%x" # Valid: one integer argument "abc%X" # Valid: one floating-point argument "abc%e" # Valid: one floating-point argument "abc%E" # Valid: one floating-point argument "abc%f" # Valid: one floating-point argument "abc%g" # Valid: one floating-point argument "abc%G" # Valid: one argument with flags "abc%0#g" # Valid: one argument with width "abc%2g" # Valid: one argument with width "abc%*g" # Valid: one argument with precision "abc%.4g" # Valid: one argument with precision "abc%.*g" # Valid: one argument with width and precision "abc%14.4g" # Valid: one argument with width and precision "abc%14.*g" # Valid: one argument with width and precision "abc%*.4g" # Valid: one argument with width and precision "abc%*.*g" # Invalid: unterminated "abc%" # Invalid: unknown format specifier "abc%y" # Invalid: unknown format specifier "abc%F" # Invalid: flags after width "abc%*0g" # Invalid: twice precision "abc%.4.2g" # Valid: three arguments "abc%d%u%u" # Valid: a numbered argument "abc%1$d" # Invalid: zero "abc%0$d" # Valid: two-digit numbered arguments "abc%11$def%10$dgh%9$dij%8$dkl%7$dmn%6$dop%5$dqr%4$dst%3$duv%2$dwx%1$dyz" # Invalid: unterminated number "abc%1" # Invalid: flags before number "abc%+1$d" # Valid: three arguments, two with same number "abc%1$4x,%2$c,%1$u" # Invalid: argument with conflicting types "abc%1$4x,%2$c,%1$s" # Valid: no conflict "abc%1$4x,%2$c,%1$u" # Invalid: mixing of numbered and unnumbered arguments "abc%d%2$x" # Valid: numbered argument with constant precision "abc%1$.9x" # Valid: * does mix with numbered arguments "abc%1$.*x" # Valid: missing non-final argument "abc%2$x%3$s" # Valid: permutation "abc%2$ddef%1$d" # Valid: multiple uses of same argument "abc%2$xdef%1$sghi%2$x" # Valid: one argument with width "abc%2$#*g" # Valid: one argument with width and precision "abc%3$*.*g" # Invalid: zero "abc%0$*.*g" EOF : ${XGETTEXT=xgettext} n=0 while read comment; do read string n=`expr $n + 1` tmpfiles="$tmpfiles f-t-1-$n.in f-t-1-$n.po" escape_dollars='s/\$/\\\$/g' string=`echo "$string" | sed -e "$escape_dollars"` cat < f-t-1-$n.in [msgcat::mc ${string}]; EOF ${XGETTEXT} -L Tcl -o f-t-1-$n.po f-t-1-$n.in || exit 1 test -f f-t-1-$n.po || exit 1 fail= if echo "$comment" | grep 'Valid:' > /dev/null; then if grep tcl-format f-t-1-$n.po > /dev/null; then : else fail=yes fi else if grep tcl-format f-t-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-t-1-$n.in 1>&2 echo "Got:" 1>&2 cat f-t-1-$n.po 1>&2 exit 1 fi rm -f f-t-1-$n.in f-t-1-$n.po done < f-t-1.data rm -fr $tmpfiles exit 0 @ 1.1.1.1 log @import latest GPLv2 gettext @ text @@