typeof EasyLocFileContent = [[S r1] r1];;

fun Init_EasyLocEditor(editorPath, className)=
   let strextr _loadressini -> l in
   let getInfo l "DefaultLanguage" -> lang in
   let strcatn editorPath::"/"::className::"."::lang::".lang"::nil -> tmpLangFile in
   let strcatn editorPath::"/"::className::".english.lang"::nil -> tmpEnglFile in
   let (if ((_checkpack tmpLangFile) != nil) then tmpLangFile else tmpEnglFile) -> langFile in
      set EasyLocFileContent = strextr _getpack _checkpack langFile;
   0;;
   
fun GetEasyLoc(kw, l) =
   if (l == nil) then
      "!!ERR_REF!!"
   else
      let hd l -> [keyw info] in
         if !strcmp kw keyw then
            let linebuild info -> draft in
               substr draft 0 ((strlen draft) - 1)
         else
            GetEasyLoc kw tl l;;
   
fun EasyLocEditor(kw) =
   GetEasyLoc kw EasyLocFileContent;;