ref_language::apm::add_language_639_2_codes (private)

 ref_language::apm::add_language_639_2_codes

Defined in packages/ref-language/tcl/apm-callback-procs.tcl

Fills language_639_2_codes The ISO-639-2 codes are in a dat file located at ref-language/sql/commjon directory. The file was downloaded from http://www.loc.gov/standards/iso639-2/ISO-639-2_utf-8.txt Separator is "|" and the columns are:

• ISO 639-2 Bibliographic code (used if terminology one is empty)
• ISO 639-2 Terminology code (used if exists)
• ISO 639-1 code (2 digits)
• Language name in english
• Language name in french (ignored if present)

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    set filename "[acs_root_dir]/packages/ref-language/sql/common/iso-639-2.dat"

    set channel [open $filename]
    set data [read $channel]
    close $channel

    set row_list [split $data "\n"]
    foreach row $row_list {

        if { $row eq "" } {
            continue
        }

        set col_list [split $row "|"]

        # Set iso-639-2 code to terminology if exists, otherwise
        # uses the bibliography one (see RFC 4646)

        set iso2b [lindex $col_list 0]
        set iso2 [lindex $col_list 1]
        set iso1 [lindex $col_list 2]
        set label [lindex $col_list 3]

        if { $iso2 eq "" } {
            set iso2 $iso2b
        }

        ref_language::set_data -iso2 $iso2 -iso1 $iso1 -label $label

    }

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

packages/ref-language/tcl/apm-callback-procs.xql