steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.encodings.iana no longer throws errors for name>encoding/encoding>name

db4
Daniel Ehrenberg 2009-03-18 18:13:11 -05:00
parent 4aec9d2c46
commit 68a81675c0
3 changed files with 12 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
basis/io/encodings/iana/iana-docs.factor
View File

@ -9,24 +9,15 @@ ARTICLE: "io.encodings.iana" "IANA-registered encoding names"
{ $subsection name>encoding } { $subsection name>encoding }
{ $subsection encoding>name } { $subsection encoding>name }
"To let a new encoding be used with the above words, use the following:" "To let a new encoding be used with the above words, use the following:"
{ $subsection register-encoding } { $subsection register-encoding } ;
"Exceptions when encodings or names are not found:"
{ $subsection missing-encoding }
{ $subsection missing-name } ;
HELP: missing-encoding
{ $error-description "The error called from " { $link name>encoding } " when there is no encoding descriptor registered corresponding to the given name." } ;
HELP: missing-name
{ $error-description "The error called from " { $link encoding>name } " when there is no name registered corresponding to the given encoding." } ;
HELP: name>encoding HELP: name>encoding
{ $values { "name" "an encoding name" } { "encoding" "an encoding descriptor" } } { $values { "name" "an encoding name" } { "encoding" "an encoding descriptor" } }
{ $description "Given an IANA-registered encoding name, find the encoding descriptor that represents it, or " { $code f } " if it is not found (either not implemented in Factor or not registered)." } ; { $description "Given an IANA-registered encoding name, find the encoding descriptor that represents it, or " { $snippet "f" } " if it is not found (either not implemented in Factor or not registered)." } ;
HELP: encoding>name HELP: encoding>name
{ $values { "encoding" "an encoding descriptor" } { "name" "an encoding name" } } { $values { "encoding" "an encoding descriptor" } { "name" "an encoding name" } }
{ $description "Given an encoding descriptor, return the preferred IANA name." } ; { $description "Given an encoding descriptor, return the preferred IANA name. If no name is found, returns " { $snippet "f" } "." } ;
{ name>encoding encoding>name } related-words { name>encoding encoding>name } related-words

10
basis/io/encodings/iana/iana-tests.factor
View File

@ -19,10 +19,10 @@ ebcdic-fisea "EBCDIC-FI-SE-A" register-encoding
"csEBCDICFISEA" n>e-table get delete-at "csEBCDICFISEA" n>e-table get delete-at
ebcdic-fisea e>n-table get delete-at ebcdic-fisea e>n-table get delete-at
] unit-test ] unit-test
[ "EBCDIC-FI-SE-A" name>encoding ] must-fail [ f ] [ "EBCDIC-FI-SE-A" name>encoding ] unit-test
[ "csEBCDICFISEA" name>encoding ] must-fail [ f ] [ "csEBCDICFISEA" name>encoding ] unit-test
[ ebcdic-fisea encoding>name ] must-fail [ f ] [ ebcdic-fisea encoding>name ] unit-test
[ ebcdic-fisea "foobar" register-encoding ] must-fail [ ebcdic-fisea "foobar" register-encoding ] must-fail
[ "foobar" name>encoding ] must-fail [ f ] [ "foobar" name>encoding ] unit-test
[ ebcdic-fisea encoding>name ] must-fail [ f ] [ ebcdic-fisea encoding>name ] unit-test

12
basis/io/encodings/iana/iana.factor
View File

@ -10,15 +10,11 @@ SYMBOL: e>n-table
SYMBOL: aliases SYMBOL: aliases
PRIVATE> PRIVATE>
ERROR: missing-encoding name ; : name>encoding ( name -- encoding/f )
n>e-table get-global at ;
: name>encoding ( name -- encoding ) : encoding>name ( encoding -- name/f )
dup n>e-table get-global at [ ] [ missing-encoding ] ?if ; e>n-table get-global at ;
ERROR: missing-name encoding ;
: encoding>name ( encoding -- name )
dup e>n-table get-global at [ ] [ missing-name ] ?if ;
<PRIVATE <PRIVATE
: parse-iana ( file -- synonym-set ) : parse-iana ( file -- synonym-set )