Импорт интерфейсных функций (методов класса С) из dll

XIncludeFile "vsm.pbi"
 
Structure ClassParam
  *vt ;pointer to virtual table as first entry 
  
  ; Приватные переменные класса.
  *inst.IINSTANCE
  *ckt.IDSIMCKT
  *Pin1.IDSIMPIN
  *Pin2.IDSIMPIN
  *Pin3.IDSIMPIN
  *Pin4.IDSIMPIN
EndStructure 
 
EnableExplicit
EnableASM
 
Declare ModelNEW()
 
ProcedureCDLL createdsimmodel(device.s, *ils.ILICENCESERVER)
  Protected *Result=0
  
  If *ils\Authorize($80808081)
    *Result=ModelNEW()
  EndIf
     
  ProcedureReturn *Result
EndProcedure
 
ProcedureCDLL deletedsimmodel(*model.IDSIMMODEL)
  If *model
    ;ClearStructure(*model, ClassParam)
    FreeMemory(*model) 
  EndIf
EndProcedure
 
; Первой для каждого вывода вызывается функция isdigital.
; Она должна вернуть «1», если вывод с данным именем является цифровым, и «0», если нет.
Procedure isdigital(*PinName)
  Protected *This.ClassParam
  mov *This, ecx
  
  ProcedureReturn 1 ; В компоненте все выводы цифровые.
EndProcedure
 
; Далее, вызывается функция setup.
; Ей передаются интерфейсы объектов IINSTANCE – интерфейс экземпляра,
; и IDSIMCKT – интерфейс схемы. 
; В этой функции мы должны проинициализировать внутренние переменные, 
; а также сохранить на будущее ссылки на IINSTANCE и IDSIMCKT.
; Также, в этой функции чаще всего сохраняются адреса интерфейсов выводов
; (через вызов функции inst->getdsimpin).
Procedure setup(*instance.IINSTANCE, *dsimckt.IDSIMCKT)
  Protected *This.ClassParam
  mov *This, ecx
  
  *This\inst = *instance ; Сохраняем указатели на объекты.
  *This\ckt  = *dsimckt
  
  ; Сохраняем указатели на объекты выводов модели.
  *This\Pin1 = *instance\getdsimpin("In", #True)
  *This\Pin2 = *instance\getdsimpin("Out", #True)
  *This\Pin3 = *instance\getdsimpin("pinx", #True)
  *This\Pin4 = *instance\getdsimpin("G", #True)
  
  ; Запускаем таймер. Через полсекунды будет вызнана процедура setcallback() с кодом $20.
  *This\ckt\setcallback(500000000000, *This, $20)
  
EndProcedure
 
; Функция runctl вызывается при смене режима симуляции – например,
; когда мы приостанавливаем процесс симуляции.
; Это удобно для того, чтобы остановить внутренние таймеры
; или проделать другие необходимые действия.
Procedure runctrl(mode.RUNMODES)
  Protected *This.ClassParam
  mov *This, ecx
EndProcedure
 
; Функция actuate вызывается, если у нас приводятся в действие актюаторы – стандартные
; элементы управления компонентом. Они бывают двух видов – «больше/меньше» и «нажато/отпущено». 
Procedure actuate(time.REALTIME, newstate.ACTIVESTATE)
  Protected *This.ClassParam
  mov *This, ecx
EndProcedure
 
; Функция indicate вызывается каждый раз при перерисовке экрана.
; Если мы возвращаем значение FALSE, то эта функция больше не будет вызываться.
Procedure indicate(time.REALTIME,  *aData.ACTIVEDATA)
  Protected *This.ClassParam
  mov *This, ecx
  
  ProcedureReturn #True
EndProcedure
 
; Функция simulate вызывается при каждом изменении состояния выводов.
; Небольшое замечание – она вызывается также когда мы изменяем состояние собственного вывода,
; так что необходимо точно устанавливать, произошло ли какое-либо входное событие и какое именно.
Procedure simulate(time.ABSTIME, mode.DSIMMODES)
  Protected *This.ClassParam
  mov *This, ecx
  
  ; Считываем логическое состояние входа "In" и устанавливаем противоположное на выходе "Out".
  If ishigh(*This\Pin1\istate())
    *This\Pin2\setstate2(time, 1, #SLO)
  Else
    *This\Pin2\setstate2(time, 1, #SHI)
  EndIf
  
EndProcedure
 
; Функция callback вызывается при наступлении определенного времени,
; которое задается вызовом IDSIMCKT::setcallback. Её удобно использовать для тактовых генераторов.
Procedure callback(time.ABSTIME, eventid.EVENTID)
  Protected *This.ClassParam
  mov *This, ecx
  
  If eventid = $20
    
    ; Считываем логическое состояние выхода "G" и устанавливаем противоположное на этом выходе,
    ; т. е. инвертируем логическое состояние выхода "G".
    If ishigh(*This\Pin4\istate()) 
      *This\Pin4\setstate2(time, 1, #SLO)
    Else
      *This\Pin4\setstate2(time, 1, #SHI)
    EndIf
    
    ; Запускаем таймер. Через полсекунды будет вызнана процедура setcallback() с кодом $20.
    *This\ckt\setcallback(time + 500000000000, *This, $20)
    
  EndIf
EndProcedure
 
; Создание объекта.
Procedure ModelNEW()
  Protected *this.ClassParam=0
  
  *this = AllocateMemory(SizeOf(ClassParam)) 
  If *this
    ;InitializeStructure(*this, ClassParam)
    *this\vt = ?ClassFunct
  EndIf   
  
  ProcedureReturn *this 
EndProcedure
 
DataSection
  ClassFunct:
  Data.i @isdigital()
  Data.i @setup()
  Data.i @runctrl()
  Data.i @actuate()
  Data.i @indicate()
  Data.i @simulate()
  Data.i @callback()
EndDataSection