Adding IANA encodings table

extra/io/encodings/iana/iana.factor

@@ -1,7 +1,27 @@
-USING: kernel strings unicode.syntax.backend ; 
+USING: kernel strings unicode.syntax.backend io.files assocs
+splitting sequences io namespaces sets
+io.encodings.ascii io.encodings.utf8 io.encodings.utf16 io.encodings.8-bit ;
+IN: io.encodings.iana
 
 VALUE: n>e-table
-VALUE: e>n-table
+
+: e>n-table H{
+    { ascii "US-ASCII" }
+    { utf8 "UTF-8" }
+    { utf16 "UTF-16" }
+    { utf16be "UTF-16BE" }
+    { utf16le "UTF-16LE" }
+    { latin1 "ISO-8859-1" }
+    { latin2 "ISO-8859-2" }
+    { latin3 "ISO-8859-3" }
+    { latin4 "ISO-8859-4" }
+    { latin/cyrillic "ISO-8859-5" }
+    { latin/arabic "ISO-8859-6" }
+    { latin/greek "ISO-8859-7" }
+    { latin/hebrew "ISO-8859-8" }
+    { latin5 "ISO-8859-9" }
+    { latin6 "ISO-8859-10" }
+} ;
 
 : name>encoding ( string -- encoding )
     n>e-table at ;
@@ -9,4 +29,21 @@ VALUE: e>n-table
 : encoding>name ( encoding -- string )
     e>n-table at ;
 
+: parse-iana ( stream -- synonym-set )
+    lines { "" } split [
+        [ " " split ] map
+        [ first { "Name:" "Alias:" } member? ] filter
+        [ second ] map { "None" } diff
+    ] map ;
 
+: make-n>e ( stream -- n>e ) ! encodings is string => symbol
+    parse-iana [ [
+        dup [
+            e>n-table value-at
+            [ swap [ set ] with each ]
+            [ drop ] if*
+        ] with each
+    ] each ] H{ } make-assoc ;
+
+"resource:extra/io/encodings/iana/character-sets"
+ascii <file-reader> make-n>e \ n>e-table set-value

extra/unicode/syntax/backend/backend.factor

@@ -1,4 +1,4 @@
-USING: kernel parser sequences definitions ;
+USING: kernel parser sequences words ;
 IN: unicode.syntax.backend
 
 : VALUE: