/*

CLASS {NATIVE_Localize_str|_Delphi},
NATIVE, UNTESTED,
ABSTRACT :

IMPORT: {System_functions} .

    //{ get strings stored by a compiler }
    
    FUN Get_untranslated_strings(
    	STR S|trings_array[] ), NATIVE:
		S[].Clear
        NATIVE @
        "var i: Integer;"
        "   for i := 0 to High(Localize_str) do"
        "       if Localize_str[i] = '' then"
        "          if Localize_name[i][1] <> '[' then"
        "             X_S.Add(MAXINT, '[' + Localize_name[i] + ']')"
        "          else X_S.Add(MAXINT, Localize_name[i])"
        "       else X_S.Add(MAXINT, Localize_name[i] + '=' + Localize_str[i]);" 
        .
        
    FUN Set_translated_strings(
    	STR N|ames_array[], STR S|trings_array[]), NATIVE :
       @"var i: Integer;"
        "   for i := 0 to X_S.Count() do"
        "       if i <= High(Localize_name) then"
        "       begin"
        "           Localize_name[i] := X_N.GetStrings(i);"
        "           Localize_str[i] := X_S.GetStrings(i);"
        "       end"
        "       else break;" .
        
    NATIVE: @ "var untranslated_saved: Boolean;"
               "var directory_lang: String;" .
        
    FUN Set_path_directory_lang|uage_files(
    	STR Dir|ectory_path ), NATIVE :
        "    directory_lang := X_Dir;" .
        
    FUN Get_path_directory_lang ==> STR, NATIVE :
        "    RESULT := directory_lang;" .
    
    FUN Are_untranslated_saved ==> BOOL, NATIVE :
        "RESULT := untranslated_saved;" .
        
    FUN Set_untranslated_saved( BOOL Sav|ed_flag ), NATIVE :
        "untranslated_saved := X_Sav;" .
        
    FUN Path_translated_strings ==> STR :
        RESULT = Get_application_data_dir .
        
END
*/
