Special Language Processing

Path:  APIS  :  APIS Documentation  :  Metadata   : Berkeley Conversion

* Extrlang		9/30/2000
PARAMETER String

Testlang = .F.
lcode = ""

DO CASE

      CASE "ARABIC"$UPPER(String)
            Lcode = "ara"
      CASE "GREEK"$UPPER(String)
            Lcode = "grc"
      CASE "LATIN"$UPPER(String)
            Lcode = "lat"
      CASE "ARAMAIC"$UPPER(String)
            Lcode = "arc"
      CASE "COPTIC"$UPPER(String)
            Lcode = "cop"
      CASE "DEMOTIC"$UPPER(String)
            Lcode = "egy"
      CASE "HEBREW"$UPPER(String)
            Lcode = "heb"
      CASE "HIERATIC"$UPPER(String)
            Lcode = "egy"
       CASE "HIEROGLYPHIC"$UPPER(String)
             Lcode = "egy"
        
ENDCASE

Columbia Libraries    Digital Program

Last revision: 03/28/01 © Columbia University