;-- libtester

name$ = "polyglot64"

Prototype.i in (path.s)
Prototype.i av (lang.s)
Prototype.s tr (lang.s, code.s)
Prototype.s tc (lang.s, code.s, lcase)
pathy.s = GetCurrentDirectory()+"polyglot/"


If OpenLibrary(0, name$+".dll")
  
  pginit.in = GetFunction(0, "pg_init")
  pgavai.av = GetFunction(0, "pg_isLanguageAvailable")
  pgtran.tr = GetFunction(0, "pg_translate")
  pgtrac.tc = GetFunction(0, "pg_translateCompound")
  
  
  Debug "INIT: " + CallFunctionFast(pginit, @pathy, @"Polyglot-*.xml", 100)
  Debug "IsAT: " + CallFunctionFast(pgavai, @"deAT")  
  Debug "TRAN: " + PeekS(CallFunctionFast(pgtran, @"deAT", @"CONTEXT_CLASS_GODDESS"))
  Debug "TRAC: " + PeekS(CallFunctionFast(pgtrac, @"deAT", @"meine CONTEXT_CLASS_GODDESS bringt mich MENU_SETTING_HIGH"))
EndIf
; IDE Options = PureBasic 5.24 LTS (MacOS X - x64)
; CursorPosition = 22
; EnableUnicode
; EnableThread
; EnableXP