Tcl Library Source Code

Check-in [3c45e337d4]
Login
Core Home Blog Docs Downloads Tickets Timeline Branches Tags Wiki

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Ticket [9318a6687f]: Applied patch by Max Jarek to update the code to the IBAN Registry version 47. Bumped package version to 1.4.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 3c45e337d402ba665150be67e191ae17a9426980
User & Date: andreask 2014-01-21 17:39:25.868
Context
2014-01-21
19:19
Fixed manpage names clashes within Tcllib. No problem within embedded/ docs, due to the directory structure. When installed however all are in the same directory and some clashed. check-in: 6c93670d5e user: andreask tags: trunk
17:56
Fixes to various testsuites and code, in preparation for 1.16 release. Release Candidate Branch opened now. check-in: 9fd75df6e5 user: aku tags: tcllib-1-16-rc
17:39
Ticket [9318a6687f]: Applied patch by Max Jarek to update the code to the IBAN Registry version 47. Bumped package version to 1.4. check-in: 3c45e337d4 user: andreask tags: trunk
17:28
Ticket [861f53ff24]. Added proper initialization to CreateNonce when falling back to md5 (no dev/urandom). Bumped version to 1.3.3. check-in: 8175173735 user: andreask tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to modules/valtype/ChangeLog. 







1
2
3
4
5
6
7








2013-10-28  Andreas Kupries  <[email protected]>

	* iban.tcl: Ticket [a3dd326ec8]: Applied patch by Max
	* iban.test: Jarek to update the code to the IBAN Registry
	* iban.man: version 46. Bumped package version to 1.3.
	* pkgIndex.tcl:


>
>
>
>
>
>
>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

2014-01-21  Andreas Kupries  <[email protected]>

	* iban.tcl: Ticket [9318a6687f]: Applied patch by Max
	* iban.test: Jarek to update the code to the IBAN Registry
	* iban.man: version 47. Bumped package version to 1.4.
	* pkgIndex.tcl:

2013-10-28  Andreas Kupries  <[email protected]>

	* iban.tcl: Ticket [a3dd326ec8]: Applied patch by Max
	* iban.test: Jarek to update the code to the IBAN Registry
	* iban.man: version 46. Bumped package version to 1.3.
	* pkgIndex.tcl:
︙︙
Changes to modules/valtype/iban.man. 
1
2
3
4
5
6
7
8
9
10

[comment {-*- tcl -*- --- doctools ---}]
[vset PACKAGE iban]
[vset VERSION 1.3]
[vset A an]
[vset NAME IBAN]
[vset NAMEX {International Bank Account Number}]
[vset CODE IBAN]
[vset OK  ....]
[vset BAD ....]
[vset KEYWORDS k_iban]



|








1
2
3
4
5
6
7
8
9
10

[comment {-*- tcl -*- --- doctools ---}]
[vset PACKAGE iban]
[vset VERSION 1.4]
[vset A an]
[vset NAME IBAN]
[vset NAMEX {International Bank Account Number}]
[vset CODE IBAN]
[vset OK  ....]
[vset BAD ....]
[vset KEYWORDS k_iban]
︙︙
Changes to modules/valtype/iban.tcl.
︙︙
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

    # Type Methods

    typevariable cclen -array {
	AL 28 AD 24 AT 20 BH 22 BE 16 BA 20 BG 22 BR 29 CR 21 HR 21 CY 28 CZ 24 DK 18 FO 18 GL 18 DO 28 EE 20 FI 18
	FR 27 GF 27 GP 27 MQ 27 RE 27 PF 27 TF 27 YT 27 NC 27 PM 27 WF 27 GE 22 DE 22 GI 23 GR 27 HU 28
	IS 26 IE 22 IL 23 IT 27 KZ 20 KW 30 LV 21 LB 28 LI 21 LT 20 LU 20 MK 19 MT 31 MR 27 MU 30 MC 27
	ME 22 NL 18 NO 15 PL 28 PS 29 PT 25 RO 24 SM 27 SA 24 RS 22 SK 24 SI 19 ES 24 SE 24 CH 21 TN 24 TR 26
	AE 23 GB 22 AZ 28 MD 24 PK 24 VG 24 GT 28 QA 29
    }

    typevariable charmap {
	A 10 B 11 C 12 D 13 E 14 F 15 G 16 H 17 I 18 J 19 K 20 L 21 M 22
	N 23 O 24 P 25 Q 26 R 27 S 28 T 29 U 30 V 31 W 32 X 33 Y 34 Z 35
    }









|








29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

    # Type Methods

    typevariable cclen -array {
	AL 28 AD 24 AT 20 BH 22 BE 16 BA 20 BG 22 BR 29 CR 21 HR 21 CY 28 CZ 24 DK 18 FO 18 GL 18 DO 28 EE 20 FI 18
	FR 27 GF 27 GP 27 MQ 27 RE 27 PF 27 TF 27 YT 27 NC 27 PM 27 WF 27 GE 22 DE 22 GI 23 GR 27 HU 28
	IS 26 IE 22 IL 23 IT 27 KZ 20 KW 30 LV 21 LB 28 LI 21 LT 20 LU 20 MK 19 MT 31 MR 27 MU 30 MC 27
	ME 22 NL 18 NO 15 PL 28 PS 29 PT 25 RO 24 SM 27 SA 24 RS 22 SK 24 SI 19 ES 24 SE 24 CH 21 TN 24 TR 26
	AE 23 GB 22 AZ 28 MD 24 PK 24 VG 24 GT 28 QA 29 JO 30
    }

    typevariable charmap {
	A 10 B 11 C 12 D 13 E 14 F 15 G 16 H 17 I 18 J 19 K 20 L 21 M 22
	N 23 O 24 P 25 Q 26 R 27 S 28 T 29 U 30 V 31 W 32 X 33 Y 34 Z 35
    }
︙︙
84
85
86
87
88
89
90
91

        $type validate $value
    }
}

# # ## ### ##### ######## ############# ######################
## Ready

package provide valtype::iban 1.3








|

84
85
86
87
88
89
90
91

        $type validate $value
    }
}

# # ## ### ##### ######## ############# ######################
## Ready

package provide valtype::iban 1.4
Changes to modules/valtype/iban.test.
︙︙
65
66
67
68
69
70
71

72
73
74
75
76
77
78

    GT82TRAJ01020000001210029690
    HR1210010051863000160
    HU42117730161111101800000000
    IE29AIBK93115212345678
    IL620108000000099999999
    IS140159260076545510730339
    IT60X0542811101000000123456

    KW81CBKU0000000000001234560101
    KZ86125KZT5004100100
    LB62099900000001001901229114
    LI21088100002324013AA
    LT121000011101001000
    LU280019400644750000
    LV80BANK0000435195001








>








65
66
67
68
69
70
71
72
73
74
75
76
77
78
79

    GT82TRAJ01020000001210029690
    HR1210010051863000160
    HU42117730161111101800000000
    IE29AIBK93115212345678
    IL620108000000099999999
    IS140159260076545510730339
    IT60X0542811101000000123456
    JO94CBJO0010000000000131000302
    KW81CBKU0000000000001234560101
    KZ86125KZT5004100100
    LB62099900000001001901229114
    LI21088100002324013AA
    LT121000011101001000
    LU280019400644750000
    LV80BANK0000435195001
︙︙
Changes to modules/valtype/pkgIndex.tcl. 
1
2
3
4
5
6
7
8
9
10
11
12
13

package ifneeded valtype::common                 1 [list source [file join $dir valtype.tcl]]
package ifneeded valtype::creditcard::amex       1 [list source [file join $dir cc_amex.tcl]]
package ifneeded valtype::creditcard::discover   1 [list source [file join $dir cc_discover.tcl]]
package ifneeded valtype::creditcard::mastercard 1 [list source [file join $dir cc_mastercard.tcl]]
package ifneeded valtype::creditcard::visa       1 [list source [file join $dir cc_visa.tcl]]
package ifneeded valtype::gs1::ean13             1 [list source [file join $dir ean13.tcl]]
package ifneeded valtype::imei                   1 [list source [file join $dir imei.tcl]]
package ifneeded valtype::isbn                   1 [list source [file join $dir isbn.tcl]]
package ifneeded valtype::luhn                   1 [list source [file join $dir luhn.tcl]]
package ifneeded valtype::luhn5                  1 [list source [file join $dir luhn5.tcl]]
package ifneeded valtype::usnpi                  1 [list source [file join $dir usnpi.tcl]]
package ifneeded valtype::verhoeff               1 [list source [file join $dir verhoeff.tcl]]
package ifneeded valtype::iban                 1.3 [list source [file join $dir iban.tcl]]













|

1
2
3
4
5
6
7
8
9
10
11
12
13

package ifneeded valtype::common                 1 [list source [file join $dir valtype.tcl]]
package ifneeded valtype::creditcard::amex       1 [list source [file join $dir cc_amex.tcl]]
package ifneeded valtype::creditcard::discover   1 [list source [file join $dir cc_discover.tcl]]
package ifneeded valtype::creditcard::mastercard 1 [list source [file join $dir cc_mastercard.tcl]]
package ifneeded valtype::creditcard::visa       1 [list source [file join $dir cc_visa.tcl]]
package ifneeded valtype::gs1::ean13             1 [list source [file join $dir ean13.tcl]]
package ifneeded valtype::imei                   1 [list source [file join $dir imei.tcl]]
package ifneeded valtype::isbn                   1 [list source [file join $dir isbn.tcl]]
package ifneeded valtype::luhn                   1 [list source [file join $dir luhn.tcl]]
package ifneeded valtype::luhn5                  1 [list source [file join $dir luhn5.tcl]]
package ifneeded valtype::usnpi                  1 [list source [file join $dir usnpi.tcl]]
package ifneeded valtype::verhoeff               1 [list source [file join $dir verhoeff.tcl]]
package ifneeded valtype::iban                 1.4 [list source [file join $dir iban.tcl]]
This page was generated in about 0.012s by Fossil 2.26 [1205ec86cb] 2025-04-30 16:57:32