#AVSLib = 0

Structure int64_t
  a.l
  b.l
EndStructure 



Structure AVSDLLVideoInfo
  ; // Video
  width.l
  height.l
  raten.l
  rated.l
  aspectn.l
  aspectd.l
  interlaced_frame.l
  top_field_first.l
  num_frames.l
  pixel_type.l
  ; // Audio
  audio_samples_per_second.l
  sample_type.l
  nChannels.l
  num_audio_frames.l
  num_audio_samples.Double 
EndStructure 


Structure AVSDLLVideoPlane 
  width.l
  height.l
  pitch.l
  *Data.l 
EndStructure 

Structure AVSDLLVideoFrame 
  plane.AVSDLLVideoPlane[3]
EndStructure 

Structure AVSDLLAudioPos 
  start.int64_t 
  count.int64_t 
EndStructure


Global avs_initialize.l
Global avs_exit.l
Global avs_close.l
Global avs_create_env.l
Global avs_destroy_env.l
Global avs_getaframe.l
Global avs_getlasterror.l
Global avs_getlasterror_CRLF.l
Global avs_getvframe.l
Global avs_open_file.l
Global avs_open_script.l


Procedure.l avs_init(location.s)
  Shared DLL.l
  If OpenLibrary(#AVSLib,location.s+"\AVSredirect.dll")
    avs_initialize          = GetFunction(#AVSLib, "avs_init")
    avs_exit                = GetFunction(#AVSLib, "avs_exit")
    avs_close               = GetFunction(#AVSLib, "avs_close")
    avs_destroy_env         = GetFunction(#AVSLib, "avs_destroy_env")
    avs_create_env          = GetFunction(#AVSLib, "avs_create_env")
    avs_getaframe           = GetFunction(#AVSLib, "avs_getaframe")
    avs_getlasterror        = GetFunction(#AVSLib, "avs_getlasterror")
    avs_getlasterror_CRLF   = GetFunction(#AVSLib, "avs_getlasterror_CRLF")
    avs_getvframe           = GetFunction(#AVSLib, "avs_getvframe")
    avs_open_file           = GetFunction(#AVSLib, "avs_open_file")
    avs_open_script         = GetFunction(#AVSLib, "avs_open_script")
    Delay(5)
    ProcedureReturn CallFunctionFast(avs_initialize)
  Else
    ProcedureReturn -1
    MessageRequester("Error","Loading avsredirect.dll failed",0)
  EndIf
EndProcedure

Procedure.l avs_exit()
  Shared DLL.l
  CallFunctionFast(avs_exit)
  ProcedureReturn CloseLibrary(#AVSLib)
EndProcedure

Procedure avs_create_env()  ;avsredirect_Init()
    ProcedureReturn CallFunctionFast(avs_create_env)
EndProcedure

Procedure.l avs_close(a.l,b.l)
  ProcedureReturn CallFunctionFast(avs_close,a,b)
EndProcedure

Procedure.l avs_destroy_env(a.l)
  CallFunctionFast(avs_destroy_env,a)
EndProcedure

Procedure.l avs_getaframe(a.l,b.l,c.l,d.l)
  ProcedureReturn CallFunctionFast(avs_getaframe,a,b,c,d)
EndProcedure

Procedure.l avs_getlasterror(a.l,b.l)
  ProcedureReturn CallFunctionFast(avs_getlasterror,a,b)
EndProcedure

Procedure.l avs_getlasterror_CRLF(a.l, b.l)
  ProcedureReturn CallFunctionFast(avs_getlasterror_CRLF,a,b)
EndProcedure

Procedure.l avs_getvframe(a.l,b.l,c.l)
    ProcedureReturn CallFunctionFast(avs_getvframe,a,b,c)
EndProcedure

Procedure.l avs_open(a.l,b.l,c.l)
  ProcedureReturn CallFunctionFast(avs_open_file,a,b,c)
EndProcedure

Procedure.l avs_script(a.l,b.l,c.l)
  ProcedureReturn CallFunctionFast(avs_open_script,a,b,c)
EndProcedure
 
; jaPBe Version=3.7.1.619
; Build=0
; FirstLine=35
; CursorPosition=73
; ExecutableFormat=Windows
; DontSaveDeclare
; EOF