diff -Nru chiark-tcl-1.2.1/adns/adns.c chiark-tcl-1.3.1/adns/adns.c --- chiark-tcl-1.2.1/adns/adns.c 2012-06-02 11:11:08.000000000 +0000 +++ chiark-tcl-1.3.1/adns/adns.c 2018-08-19 11:16:24.000000000 +0000 @@ -494,7 +494,7 @@ if (op.reverseany || (op.sflags & oisf_reverse)) { const int *af; - for (af=aftry; af < af + sizeof(af)/sizeof(*af); af++) { + for (af=aftry; af < af + sizeof(aftry)/sizeof(*aftry); af++) { memset(&sa,0,sizeof(sa)); sa.sa_family= *af; r= inet_pton(*af,domain,&sa); diff -Nru chiark-tcl-1.2.1/base/extension.make chiark-tcl-1.3.1/base/extension.make --- chiark-tcl-1.2.1/base/extension.make 2016-06-09 12:13:21.000000000 +0000 +++ chiark-tcl-1.3.1/base/extension.make 2018-08-19 11:16:24.000000000 +0000 @@ -41,18 +41,22 @@ %+tcmdif.h: %.tct $(BASE_TCT) $(OTHER_TCTS) $(TCMDIFGEN) $(TCMDIFGEN) -wh $(TCMDIFARGS) -OTHER_DIRS += ../base/ +OTHER_DIRS += $(BASE_DIR) OTHER_DIRS += $(addprefix ../,$(dir $(OTHER_EXTS))) OTHER_DIRS += . null := space := $(null) # -$(SHLIB).test.tcl: +test-load.tcl: echo >$@ "load $(SHLIB).so" -test-load: $(SHLIB).so $(SHLIB).test.tcl +test-load: $(SHLIB).so test-load.tcl @set -x; LD_LIBRARY_PATH=$(subst $(space),:,$(strip $(OTHER_DIRS)))$${LD_LIBRARY_PATH+:}$${LD_LIBRARY_PATH} \ - tclsh$(TCL_VERSION) $(SHLIB).test.tcl + tclsh$(TCL_VERSION) test-load.tcl + +debian-substvars: all + set -e; d=`pwd`; cd ..; \ + dpkg-shlibdeps -T"$$d"/$@ "$$d"/$(SHLIB).so include $(BASE_DIR)/final.make diff -Nru chiark-tcl-1.2.1/base/Makefile chiark-tcl-1.3.1/base/Makefile --- chiark-tcl-1.2.1/base/Makefile 2012-06-02 11:11:08.000000000 +0000 +++ chiark-tcl-1.3.1/base/Makefile 2018-08-19 11:16:24.000000000 +0000 @@ -28,5 +28,7 @@ base+tcmdif.h: $(BASE_TCT) $(TCMDIFGEN) $(TCMDIFGEN) -wh -o$@ $< +debian-substvars: all + include shlib.make include final.make diff -Nru chiark-tcl-1.2.1/base/tcmdifgen chiark-tcl-1.3.1/base/tcmdifgen --- chiark-tcl-1.2.1/base/tcmdifgen 2012-06-02 11:11:08.000000000 +0000 +++ chiark-tcl-1.3.1/base/tcmdifgen 2018-08-19 11:16:24.000000000 +0000 @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/perl -w # code generator to help with writing Tcl extensions # Copyright 2006-2012 Ian Jackson @@ -151,9 +151,22 @@ # and the two predefined types `int' (C `int') and `obj' (Tcl_Obj*, # unmodified.) The corresponding definitions are in tcmdiflib.c. -use IO; +use strict; +use IO::File; use Data::Dumper; +our (%o, $oh); +our ($prefix, $write, $output); +our (%tables, %table_x, %entrytype_x); +our (%types, %type_init, %type_fini); + +sub parse ($$); +sub subst_in_decl ($$;$); +sub subst_in ($$;$); +sub o ($$$); +sub make_decl ($$$;$); +sub make_decl_init ($$$$;$); + parse('builtins','DATA'); while (@ARGV) { @@ -169,13 +182,16 @@ die "unknown option $_\n"; } else { if (!defined $prefix) { $prefix= $_; $prefix =~ s/\.[^.]+$//; } - $x= new IO::File $_,'r' or die "$_: $!\n"; + my $x= new IO::File $_,'r' or die "$_: $!\n"; parse($_,$x); } } die "must say -w\n" if !defined $write; +our ($c_entry, $c_entrytype); +our ($c_table, $c_entryextra, $c_of); + sub zilch () { undef $c_table; undef $c_entryextra; @@ -195,6 +211,7 @@ sub parse ($$) { my ($wh,$f) = @_; + my @i; while (defined($_= $f->getline)) { chomp; s/\s+$//; next if m/^\s*\#/; @@ -202,7 +219,7 @@ while (s/\t/ ' 'x(8 - (length $`) % 8) /e) { } s/^\s*//; - $this_indent= length $&; + my $this_indent= length $&; while (@i && $this_indent < $i[0]) { shift @i; } @@ -250,18 +267,18 @@ { N => 'subcmd', T => 'enum', A => $enumargs, O => '' }; } elsif (@i==2 && m/^(\??)([a-z]\w*)\s*(\S.*)/ && defined $c_entry) { - ($opt, $var, $type) = ($1,$2,$3); - ($type, $xtypeargs) = split_type_args($type); + my ($opt, $var, $typea) = ($1,$2,$3); + my ($type, $xtypeargs) = split_type_args($wh,$typea); push @{ $tables{$c_table}{$c_entry}{A} }, { N => $var, T => $type, A => $xtypeargs, O => ($opt eq '?') }; } elsif (@i==2 && m/^\=\>\s*(\S.*)$/ && defined $c_entry) { - ($type, $xtypeargs) = split_type_args($1); + my ($type, $xtypeargs) = split_type_args($wh,$1); $tables{$c_table}{$c_entry}{R}= $type; $tables{$c_table}{$c_entry}{X}= $xtypeargs; } elsif (@i==0 && m/^Type\s+([^\:]+)\:\s+(\S.*)$/) { - ($typename,$ctype)= ($1,$2); + my ($typenamea,$ctype)= ($1,$2); $ctype .= ' @' unless $ctype =~ m/\@/; - ($typename,$xtypeargs) = split_type_args($typename); + my ($typename,$xtypeargs) = split_type_args($wh,$typenamea); $types{$typename}= { C => $ctype, X => $xtypeargs }; } elsif (@i==0 && s/^Init\s+(\w+)\s+(\S.*)//) { $type_init{$1}= $2; @@ -279,11 +296,11 @@ #print Dumper(\%tables),"\n"; #print Dumper(\%types),"\n"; -foreach $t (sort keys %types) { - $type= $types{$t}; - $c= $type->{C}; - $xta= $type->{X}; - $decl= "int cht_pat_$t(Tcl_Interp *ip, Tcl_Obj *obj, "; +foreach my $t (sort keys %types) { + my $type= $types{$t}; + my $c= $type->{C}; + my $xta= $type->{X}; + my $decl= "int cht_pat_$t(Tcl_Interp *ip, Tcl_Obj *obj, "; $decl .= subst_in_decl('*val', $c, "type $t"); $decl .= ", $xta", if length $xta; $decl .= ");\n"; @@ -306,42 +323,44 @@ "};\n\n"); } +our (%dispatch_done); + foreach $c_table (sort keys %tables) { - $r_table= $tables{$c_table}; - $x_table= $table_x{$c_table}; - $op_tab= ''; + my $r_table= $tables{$c_table}; + my $x_table= $table_x{$c_table}; + my $op_tab= ''; foreach $c_entry (sort keys %$r_table) { - $c_entry_c= $c_entry; $c_entry_c =~ y/-/_/; - $r_entry= $r_table->{$c_entry}; - $pa_decl= "int pa_${c_table}_${c_entry_c}(ClientData cd,". + my $c_entry_c= $c_entry; $c_entry_c =~ y/-/_/; + my $r_entry= $r_table->{$c_entry}; + my $pa_decl= "int pa_${c_table}_${c_entry_c}(ClientData cd,". " Tcl_Interp *ip, int objc, Tcl_Obj *const *objv)"; - $pa_func= "cht_do_${c_table}_${c_entry_c}"; + my $pa_func= "cht_do_${c_table}_${c_entry_c}"; if (exists $r_entry->{D}) { $pa_func= "cht_dispatch_$r_entry->{D}"; } - $do_decl= "int $pa_func("; - @do_al= ('ClientData cd', 'Tcl_Interp *ip'); - @do_aa= qw(cd ip); - $pa_init= ''; - $pa_argc= " objc--; objv++;\n"; - $pa_vars= " int rc;\n"; - $pa_body= ''; - $pa_rslt= ''; - $pa_free= ''; - $pa_fini= ''; - $any_mand= 0; - $any_optl= 0; - $any_eerr= 0; - $any_eargc= 0; - $pa_hint= ''; + my $do_decl= "int $pa_func("; + my @do_al= ('ClientData cd', 'Tcl_Interp *ip'); + my @do_aa= qw(cd ip); + my $pa_init= ''; + my $pa_argc= " objc--; objv++;\n"; + my $pa_vars= " int rc;\n"; + my $pa_body= ''; + my $pa_rslt= ''; + my $pa_free= ''; + my $pa_fini= ''; + my $any_mand= 0; + my $any_optl= 0; + my $any_eerr= 0; + my $any_eargc= 0; + my $pa_hint= ''; $pa_hint .= "$c_table " if length $c_table && !length $table_x{$c_table}{T}; $pa_hint.= $c_entry; - foreach $arg (@{ $r_entry->{A} }) { - $n= $arg->{N}; - $t= $arg->{T}; - $a= $arg->{A}; + foreach my $arg (@{ $r_entry->{A} }) { + my $n= $arg->{N}; + my $t= $arg->{T}; + my $a= $arg->{A}; push @do_al, make_decl($n, $t, $arg->{A}, "table $c_table entry $c_entry arg $n"); $pa_vars .= make_decl_init("a_$n", $t, $a, \$pa_init, "pa_vars"); @@ -360,13 +379,13 @@ $any_eargc= 1; die if $any_optl; } - $paarg= "&a_$n"; - $pafin= ''; + my $paarg= "&a_$n"; + my $pafin= ''; if ($t eq 'enum') { $pa_vars .= " const void *v_$n= 0;\n"; $paarg= "&v_$n"; $pafin= "\n a_$n= v_$n; "; - ($a_tab, $ee_type, $estr) = enumargs($a); + my ($a_tab, $ee_type, $estr) = enumargs($a); $a = "cht_$a_tab, sizeof($ee_type), $estr"; o('h', 210, "extern const $ee_type cht_$a_tab".'[]'.";\n"); } @@ -380,7 +399,7 @@ } if (exists $r_entry->{V}) { $pa_hint .= " ..."; - $va= $r_entry->{V}; + my $va= $r_entry->{V}; push @do_al, subst_in_decl("${va}c", 'int @'); push @do_al, subst_in_decl("${va}v", 'Tcl_Obj *const *@'); push @do_aa, "objc+1", "objv-1"; @@ -394,8 +413,8 @@ $pa_body .= "end_optional:\n"; } if (exists $r_entry->{R}) { - $t= $r_entry->{R}; - $xta= $r_entry->{X}; + my $t= $r_entry->{R}; + my $xta= $r_entry->{X}; push @do_al, make_decl("*result", $t, "cht_do_al result"); $pa_vars .= make_decl_init("result", $t, $xta, \$pa_init, "pa_vars result"); @@ -431,6 +450,7 @@ $pa_init .= "\n" if length $pa_init; $pa_fini .= "}\n\n"; + my $static; if (length $c_table) { $static= 'static '; } else { @@ -461,14 +481,13 @@ } else { o('h',100, $do_decl.";\n") or die $!; } - $op_tab .= sprintf(" { %-20s %-40s%s },\n", "\"$c_entry\",", "pa_${c_table}_${c_entry_c}", - $r_entry->{I}); + ($r_entry->{I}) // ''); } if (length $c_table) { - $decl= "const $x_table->{C} cht_${c_table}_entries[]"; + my $decl= "const $x_table->{C} cht_${c_table}_entries[]"; o('h', 500, "extern $decl;\n"); o('c', 100, "$decl = {\n". @@ -478,13 +497,13 @@ } } -o(c, 0, "#include \"$prefix.h\"\n"); +o('c', 0, "#include \"$prefix.h\"\n"); -o(h, 0, +o('h', 0, "#ifndef INCLUDED_\U${prefix}_H\n". "#define INCLUDED_\U${prefix}_H\n\n"); -o(h, 999, +o('h', 999, "#endif /*INCLUDED_\U${prefix}_H*/\n"); if (defined $output) { @@ -494,7 +513,7 @@ } print $oh "/* AUTOGENERATED - DO NOT EDIT */\n" or die $!; -foreach $pr (sort keys %{ $o{$write} }) { +foreach my $pr (sort keys %{ $o{$write} }) { print $oh "\n" or die $!; print $oh $o{$write}{$pr} or die $!; } @@ -506,13 +525,13 @@ rename "$output.tmp", $output or die $!; } -sub o ($$) { +sub o ($$$) { my ($wh,$pr,$s) = @_; $o{$wh}{sprintf "%010d", $pr} .= $s; } -sub split_type_args ($) { - my ($type) = @_; +sub split_type_args ($$) { + my ($wh,$type) = @_; my ($xtypeargs); if ($type =~ m/^\w+$/) { $xtypeargs=''; @@ -525,7 +544,7 @@ return ($type,$xtypeargs); } -sub make_decl_init ($$$$$) { +sub make_decl_init ($$$$;$) { my ($n, $t, $a, $initcode, $why) = @_; my ($o,$init); $o= make_decl($n,$t,$a,"$why _init"); @@ -539,11 +558,11 @@ return " ".$o.";\n"; } -sub make_decl ($$$$) { +sub make_decl ($$$;$) { my ($n, $t, $ta, $why) = @_; - my ($type); + my ($type, $c); if ($t eq 'enum') { - ($a_tab, $ee_type, $estr) = enumargs($ta); + my ($a_tab, $ee_type, $estr) = enumargs($ta); $c= "const $ee_type* @"; } else { defined $types{$t} or die "unknown type $t ($why)\n"; @@ -552,14 +571,14 @@ return subst_in_decl($n,$c); } -sub subst_in_decl ($$$) { +sub subst_in_decl ($$;$) { my ($val, $pat, $why) = @_; local ($_) = subst_in($val, $pat, $why); s/ *(\**) *$/$1/; return $_; } -sub subst_in ($$$) { +sub subst_in ($$;$) { my ($val, $pat, $why) = @_; $pat =~ m/\@/ or die "$pat for $val in $why ?"; $pat =~ s/\@/$val/g; diff -Nru chiark-tcl-1.2.1/debian/changelog chiark-tcl-1.3.1/debian/changelog --- chiark-tcl-1.2.1/debian/changelog 2017-03-19 09:22:48.000000000 +0000 +++ chiark-tcl-1.3.1/debian/changelog 2018-08-19 11:16:24.000000000 +0000 @@ -1,3 +1,29 @@ +chiark-tcl (1.3.1) unstable; urgency=medium + + * autopkgtests: Drop tcl8.7 which is only in experimental now. + + -- Ian Jackson Sun, 19 Aug 2018 12:16:24 +0100 + +chiark-tcl (1.3.0) unstable; urgency=medium + + adns: + * Fix IPv6 PTR (reverse) lookups, and compilation with GCC-8. + Closes:#891544. + + dgram: + * Provide `dgram-socket sockname S'. Closes:#865451. + + tcmdifgen: + * Turn on warnings and `use strict' and fix everything. + * Replace deprecated `use IO;' with `use IO::File'. + + Makefiles and build system: + * Provide autopkgtests. + * Refer to $(BASE_DIR) rather than ../base/, making out-of-tree + extentions a bit easier. + + -- Ian Jackson Sun, 19 Aug 2018 00:21:18 +0100 + chiark-tcl (1.2.1) unstable; urgency=high * Multiarch: Use correct M-A triplet (DEB_HOST_MULTIARCH) for diff -Nru chiark-tcl-1.2.1/debian/regenerate-autopkgtests chiark-tcl-1.3.1/debian/regenerate-autopkgtests --- chiark-tcl-1.2.1/debian/regenerate-autopkgtests 1970-01-01 00:00:00.000000000 +0000 +++ chiark-tcl-1.3.1/debian/regenerate-autopkgtests 2018-08-19 11:16:24.000000000 +0000 @@ -0,0 +1,33 @@ +#!/bin/bash +set -e + +dt=debian/tests + +rm -rf $dt +mkdir -p $dt + +exec 4>$dt/control.new + +for sv in */debian-substvars; do + d=${sv%/*} + if ! test -e "$sv"; then continue; fi + make -C "$d" test-load.tcl + printf "%s..." $d + for v in '' "$@"; do + vv=${v:-def} + t=$d--$vv + printf " %s" $vv + exec 3>$dt/$t + echo >&3 "#!/usr/bin/tclsh$v" + cat >&3 "$d"/test-load.tcl + echo >&3 'set t {'"$d"'/runtest.tcl}' + echo >&3 'if {[file exists $t]} { source $t }' + chmod +x $dt/$t + echo >&4 "Tests: $t" + sed "s/^shlibs:Depends=/Depends: tcl$v, /" >&4 $sv + echo >&4 + done + echo +done + +mv $dt/control.new $dt/control diff -Nru chiark-tcl-1.2.1/debian/rules chiark-tcl-1.3.1/debian/rules --- chiark-tcl-1.2.1/debian/rules 2017-03-19 09:20:59.000000000 +0000 +++ chiark-tcl-1.3.1/debian/rules 2018-08-19 11:16:24.000000000 +0000 @@ -26,6 +26,8 @@ tclh:=$(firstword $(wildcard /usr/include/tcl8.*/tcl.h)) tclversion:=$(patsubst /usr/include/tcl%/tcl.h,%,$(tclh)) +tcl_versions= 8.5 8.6 + march := $(shell dpkg-architecture -q DEB_HOST_MULTIARCH) libsubdir = /$(march) @@ -104,4 +106,8 @@ $(checkdir) dh_testroot +debian/tests/control: debian/regenerate-autopkgtests debian/rules + $(MAKE) debian-substvars + $< $(tcl_versions) + .PHONY: binary binary-arch binary-indep clean checkroot diff -Nru chiark-tcl-1.2.1/debian/tests/adns--8.5 chiark-tcl-1.3.1/debian/tests/adns--8.5 --- chiark-tcl-1.2.1/debian/tests/adns--8.5 1970-01-01 00:00:00.000000000 +0000 +++ chiark-tcl-1.3.1/debian/tests/adns--8.5 2018-08-19 11:16:24.000000000 +0000 @@ -0,0 +1,4 @@ +#!/usr/bin/tclsh8.5 +load chiark_tcl_adns-1.so +set t {adns/runtest.tcl} +if {[file exists $t]} { source $t } diff -Nru chiark-tcl-1.2.1/debian/tests/adns--8.6 chiark-tcl-1.3.1/debian/tests/adns--8.6 --- chiark-tcl-1.2.1/debian/tests/adns--8.6 1970-01-01 00:00:00.000000000 +0000 +++ chiark-tcl-1.3.1/debian/tests/adns--8.6 2018-08-19 11:16:24.000000000 +0000 @@ -0,0 +1,4 @@ +#!/usr/bin/tclsh8.6 +load chiark_tcl_adns-1.so +set t {adns/runtest.tcl} +if {[file exists $t]} { source $t } diff -Nru chiark-tcl-1.2.1/debian/tests/adns--def chiark-tcl-1.3.1/debian/tests/adns--def --- chiark-tcl-1.2.1/debian/tests/adns--def 1970-01-01 00:00:00.000000000 +0000 +++ chiark-tcl-1.3.1/debian/tests/adns--def 2018-08-19 11:16:24.000000000 +0000 @@ -0,0 +1,4 @@ +#!/usr/bin/tclsh +load chiark_tcl_adns-1.so +set t {adns/runtest.tcl} +if {[file exists $t]} { source $t } diff -Nru chiark-tcl-1.2.1/debian/tests/cdb--8.5 chiark-tcl-1.3.1/debian/tests/cdb--8.5 --- chiark-tcl-1.2.1/debian/tests/cdb--8.5 1970-01-01 00:00:00.000000000 +0000 +++ chiark-tcl-1.3.1/debian/tests/cdb--8.5 2018-08-19 11:16:24.000000000 +0000 @@ -0,0 +1,4 @@ +#!/usr/bin/tclsh8.5 +load chiark_tcl_cdb-1.so +set t {cdb/runtest.tcl} +if {[file exists $t]} { source $t } diff -Nru chiark-tcl-1.2.1/debian/tests/cdb--8.6 chiark-tcl-1.3.1/debian/tests/cdb--8.6 --- chiark-tcl-1.2.1/debian/tests/cdb--8.6 1970-01-01 00:00:00.000000000 +0000 +++ chiark-tcl-1.3.1/debian/tests/cdb--8.6 2018-08-19 11:16:24.000000000 +0000 @@ -0,0 +1,4 @@ +#!/usr/bin/tclsh8.6 +load chiark_tcl_cdb-1.so +set t {cdb/runtest.tcl} +if {[file exists $t]} { source $t } diff -Nru chiark-tcl-1.2.1/debian/tests/cdb--def chiark-tcl-1.3.1/debian/tests/cdb--def --- chiark-tcl-1.2.1/debian/tests/cdb--def 1970-01-01 00:00:00.000000000 +0000 +++ chiark-tcl-1.3.1/debian/tests/cdb--def 2018-08-19 11:16:24.000000000 +0000 @@ -0,0 +1,4 @@ +#!/usr/bin/tclsh +load chiark_tcl_cdb-1.so +set t {cdb/runtest.tcl} +if {[file exists $t]} { source $t } diff -Nru chiark-tcl-1.2.1/debian/tests/control chiark-tcl-1.3.1/debian/tests/control --- chiark-tcl-1.2.1/debian/tests/control 1970-01-01 00:00:00.000000000 +0000 +++ chiark-tcl-1.3.1/debian/tests/control 2018-08-19 11:16:24.000000000 +0000 @@ -0,0 +1,54 @@ +Tests: adns--def +Depends: tcl, libadns1 (>= 1.5.0~), libc6 (>= 2.2.5), libtcl-chiark-1 + +Tests: adns--8.5 +Depends: tcl8.5, libadns1 (>= 1.5.0~), libc6 (>= 2.2.5), libtcl-chiark-1 + +Tests: adns--8.6 +Depends: tcl8.6, libadns1 (>= 1.5.0~), libc6 (>= 2.2.5), libtcl-chiark-1 + +Tests: cdb--def +Depends: tcl, libc6 (>= 2.14), libcdb1, libtcl-chiark-1 + +Tests: cdb--8.5 +Depends: tcl8.5, libc6 (>= 2.14), libcdb1, libtcl-chiark-1 + +Tests: cdb--8.6 +Depends: tcl8.6, libc6 (>= 2.14), libcdb1, libtcl-chiark-1 + +Tests: crypto--def +Depends: tcl, libc6 (>= 2.14), libnettle6, libtcl-chiark-1 + +Tests: crypto--8.5 +Depends: tcl8.5, libc6 (>= 2.14), libnettle6, libtcl-chiark-1 + +Tests: crypto--8.6 +Depends: tcl8.6, libc6 (>= 2.14), libnettle6, libtcl-chiark-1 + +Tests: dgram--def +Depends: tcl, libc6 (>= 2.14), libtcl-chiark-1 + +Tests: dgram--8.5 +Depends: tcl8.5, libc6 (>= 2.14), libtcl-chiark-1 + +Tests: dgram--8.6 +Depends: tcl8.6, libc6 (>= 2.14), libtcl-chiark-1 + +Tests: hbytes--def +Depends: tcl, libc6 (>= 2.14), libtcl-chiark-1 + +Tests: hbytes--8.5 +Depends: tcl8.5, libc6 (>= 2.14), libtcl-chiark-1 + +Tests: hbytes--8.6 +Depends: tcl8.6, libc6 (>= 2.14), libtcl-chiark-1 + +Tests: tuntap--def +Depends: tcl, libc6 (>= 2.2.5), libtcl-chiark-1 + +Tests: tuntap--8.5 +Depends: tcl8.5, libc6 (>= 2.2.5), libtcl-chiark-1 + +Tests: tuntap--8.6 +Depends: tcl8.6, libc6 (>= 2.2.5), libtcl-chiark-1 + diff -Nru chiark-tcl-1.2.1/debian/tests/crypto--8.5 chiark-tcl-1.3.1/debian/tests/crypto--8.5 --- chiark-tcl-1.2.1/debian/tests/crypto--8.5 1970-01-01 00:00:00.000000000 +0000 +++ chiark-tcl-1.3.1/debian/tests/crypto--8.5 2018-08-19 11:16:24.000000000 +0000 @@ -0,0 +1,4 @@ +#!/usr/bin/tclsh8.5 +load chiark_tcl_crypto-1.so +set t {crypto/runtest.tcl} +if {[file exists $t]} { source $t } diff -Nru chiark-tcl-1.2.1/debian/tests/crypto--8.6 chiark-tcl-1.3.1/debian/tests/crypto--8.6 --- chiark-tcl-1.2.1/debian/tests/crypto--8.6 1970-01-01 00:00:00.000000000 +0000 +++ chiark-tcl-1.3.1/debian/tests/crypto--8.6 2018-08-19 11:16:24.000000000 +0000 @@ -0,0 +1,4 @@ +#!/usr/bin/tclsh8.6 +load chiark_tcl_crypto-1.so +set t {crypto/runtest.tcl} +if {[file exists $t]} { source $t } diff -Nru chiark-tcl-1.2.1/debian/tests/crypto--def chiark-tcl-1.3.1/debian/tests/crypto--def --- chiark-tcl-1.2.1/debian/tests/crypto--def 1970-01-01 00:00:00.000000000 +0000 +++ chiark-tcl-1.3.1/debian/tests/crypto--def 2018-08-19 11:16:24.000000000 +0000 @@ -0,0 +1,4 @@ +#!/usr/bin/tclsh +load chiark_tcl_crypto-1.so +set t {crypto/runtest.tcl} +if {[file exists $t]} { source $t } diff -Nru chiark-tcl-1.2.1/debian/tests/dgram--8.5 chiark-tcl-1.3.1/debian/tests/dgram--8.5 --- chiark-tcl-1.2.1/debian/tests/dgram--8.5 1970-01-01 00:00:00.000000000 +0000 +++ chiark-tcl-1.3.1/debian/tests/dgram--8.5 2018-08-19 11:16:24.000000000 +0000 @@ -0,0 +1,4 @@ +#!/usr/bin/tclsh8.5 +load chiark_tcl_dgram-1.so +set t {dgram/runtest.tcl} +if {[file exists $t]} { source $t } diff -Nru chiark-tcl-1.2.1/debian/tests/dgram--8.6 chiark-tcl-1.3.1/debian/tests/dgram--8.6 --- chiark-tcl-1.2.1/debian/tests/dgram--8.6 1970-01-01 00:00:00.000000000 +0000 +++ chiark-tcl-1.3.1/debian/tests/dgram--8.6 2018-08-19 11:16:24.000000000 +0000 @@ -0,0 +1,4 @@ +#!/usr/bin/tclsh8.6 +load chiark_tcl_dgram-1.so +set t {dgram/runtest.tcl} +if {[file exists $t]} { source $t } diff -Nru chiark-tcl-1.2.1/debian/tests/dgram--def chiark-tcl-1.3.1/debian/tests/dgram--def --- chiark-tcl-1.2.1/debian/tests/dgram--def 1970-01-01 00:00:00.000000000 +0000 +++ chiark-tcl-1.3.1/debian/tests/dgram--def 2018-08-19 11:16:24.000000000 +0000 @@ -0,0 +1,4 @@ +#!/usr/bin/tclsh +load chiark_tcl_dgram-1.so +set t {dgram/runtest.tcl} +if {[file exists $t]} { source $t } diff -Nru chiark-tcl-1.2.1/debian/tests/hbytes--8.5 chiark-tcl-1.3.1/debian/tests/hbytes--8.5 --- chiark-tcl-1.2.1/debian/tests/hbytes--8.5 1970-01-01 00:00:00.000000000 +0000 +++ chiark-tcl-1.3.1/debian/tests/hbytes--8.5 2018-08-19 11:16:24.000000000 +0000 @@ -0,0 +1,4 @@ +#!/usr/bin/tclsh8.5 +load chiark_tcl_hbytes-1.so +set t {hbytes/runtest.tcl} +if {[file exists $t]} { source $t } diff -Nru chiark-tcl-1.2.1/debian/tests/hbytes--8.6 chiark-tcl-1.3.1/debian/tests/hbytes--8.6 --- chiark-tcl-1.2.1/debian/tests/hbytes--8.6 1970-01-01 00:00:00.000000000 +0000 +++ chiark-tcl-1.3.1/debian/tests/hbytes--8.6 2018-08-19 11:16:24.000000000 +0000 @@ -0,0 +1,4 @@ +#!/usr/bin/tclsh8.6 +load chiark_tcl_hbytes-1.so +set t {hbytes/runtest.tcl} +if {[file exists $t]} { source $t } diff -Nru chiark-tcl-1.2.1/debian/tests/hbytes--def chiark-tcl-1.3.1/debian/tests/hbytes--def --- chiark-tcl-1.2.1/debian/tests/hbytes--def 1970-01-01 00:00:00.000000000 +0000 +++ chiark-tcl-1.3.1/debian/tests/hbytes--def 2018-08-19 11:16:24.000000000 +0000 @@ -0,0 +1,4 @@ +#!/usr/bin/tclsh +load chiark_tcl_hbytes-1.so +set t {hbytes/runtest.tcl} +if {[file exists $t]} { source $t } diff -Nru chiark-tcl-1.2.1/debian/tests/tuntap--8.5 chiark-tcl-1.3.1/debian/tests/tuntap--8.5 --- chiark-tcl-1.2.1/debian/tests/tuntap--8.5 1970-01-01 00:00:00.000000000 +0000 +++ chiark-tcl-1.3.1/debian/tests/tuntap--8.5 2018-08-19 11:16:24.000000000 +0000 @@ -0,0 +1,4 @@ +#!/usr/bin/tclsh8.5 +load chiark_tcl_tuntap-1.so +set t {tuntap/runtest.tcl} +if {[file exists $t]} { source $t } diff -Nru chiark-tcl-1.2.1/debian/tests/tuntap--8.6 chiark-tcl-1.3.1/debian/tests/tuntap--8.6 --- chiark-tcl-1.2.1/debian/tests/tuntap--8.6 1970-01-01 00:00:00.000000000 +0000 +++ chiark-tcl-1.3.1/debian/tests/tuntap--8.6 2018-08-19 11:16:24.000000000 +0000 @@ -0,0 +1,4 @@ +#!/usr/bin/tclsh8.6 +load chiark_tcl_tuntap-1.so +set t {tuntap/runtest.tcl} +if {[file exists $t]} { source $t } diff -Nru chiark-tcl-1.2.1/debian/tests/tuntap--def chiark-tcl-1.3.1/debian/tests/tuntap--def --- chiark-tcl-1.2.1/debian/tests/tuntap--def 1970-01-01 00:00:00.000000000 +0000 +++ chiark-tcl-1.3.1/debian/tests/tuntap--def 2018-08-19 11:16:24.000000000 +0000 @@ -0,0 +1,4 @@ +#!/usr/bin/tclsh +load chiark_tcl_tuntap-1.so +set t {tuntap/runtest.tcl} +if {[file exists $t]} { source $t } diff -Nru chiark-tcl-1.2.1/dgram/dgram.c chiark-tcl-1.3.1/dgram/dgram.c --- chiark-tcl-1.2.1/dgram/dgram.c 2012-06-02 11:11:08.000000000 +0000 +++ chiark-tcl-1.3.1/dgram/dgram.c 2018-08-19 11:16:24.000000000 +0000 @@ -134,6 +134,18 @@ Tcl_BackgroundError(ip); } +int cht_do_dgramsocket_sockname(ClientData cd, Tcl_Interp *ip, + void *sock_v, SockAddr_Value *result) { + DgramSocket *sock= sock_v; + int r; + + socklen_t salen = sock->addr_buflen; + r= getsockname(sock->fd, sock->addr_buf, &salen); + if (r) return cht_posixerr(ip,errno,"getsockname"); + cht_sockaddr_create(result, sock->addr_buf, salen); + return TCL_OK; +} + int cht_do_dgramsocket_on_receive(ClientData cd, Tcl_Interp *ip, void *sock_v, Tcl_Obj *newscript) { DgramSocket *sock= sock_v; diff -Nru chiark-tcl-1.2.1/dgram/dgram.tct chiark-tcl-1.3.1/dgram/dgram.tct --- chiark-tcl-1.2.1/dgram/dgram.tct 2012-06-02 11:11:08.000000000 +0000 +++ chiark-tcl-1.3.1/dgram/dgram.tct 2018-08-19 11:16:24.000000000 +0000 @@ -32,6 +32,9 @@ sock iddata(&cht_dgram_socks) data hb remote sockaddr + sockname + sock iddata(&cht_dgram_socks) + => sockaddr on-receive sock iddata(&cht_dgram_socks) ?script obj diff -Nru chiark-tcl-1.2.1/dgram/runtest.tcl chiark-tcl-1.3.1/dgram/runtest.tcl --- chiark-tcl-1.2.1/dgram/runtest.tcl 1970-01-01 00:00:00.000000000 +0000 +++ chiark-tcl-1.3.1/dgram/runtest.tcl 2018-08-19 11:16:24.000000000 +0000 @@ -0,0 +1,2 @@ +set d [dgram-socket create *,*] +dgram-socket sockname $d diff -Nru chiark-tcl-1.2.1/.gitignore chiark-tcl-1.3.1/.gitignore --- chiark-tcl-1.2.1/.gitignore 2017-01-24 13:35:24.000000000 +0000 +++ chiark-tcl-1.3.1/.gitignore 2018-08-19 11:16:24.000000000 +0000 @@ -2,7 +2,8 @@ *.o *.so *.d -*.test.tcl +test-load.tcl +debian-substvars *+tcmdif.[ch] debian/files debian/libtcl-chiark-1 diff -Nru chiark-tcl-1.2.1/Makefile chiark-tcl-1.3.1/Makefile --- chiark-tcl-1.2.1/Makefile 2017-01-24 13:35:24.000000000 +0000 +++ chiark-tcl-1.3.1/Makefile 2018-08-19 11:16:24.000000000 +0000 @@ -11,7 +11,7 @@ default: all -clean all: +clean all debian-substvars: set -e; for d in $(SUBDIRS); do $(MAKE) -C $$d $@; done # To find undefined symbols when implementing, for example: