Tcl Library Source Code

Check-in [3c45e337d4]
Login

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]]