OpenCL.pas


{%../../Common/LicenseHeader.txt%}

unit OpenCL;

{$zerobasedstrings}

interface

uses System;
uses System.Runtime.InteropServices;
uses System.Runtime.CompilerServices;

type
  
  {$region Вспомогательные типы}
  
  {%Types.Interface!Pack Essentials.pas%}
  
  {$endregion Вспомогательные типы}
  
  {$region Особые типы}
  {%!!}clErrorCode = record procedure RaiseIfError; end;{%}
  OpenCLException = sealed class(Exception)
    private ec: clErrorCode;
    public property Code: clErrorCode read ec;
    
    public constructor(ec: clErrorCode; message: string);
    begin
      inherited Create(message);
      self.ec := ec;
    end;
    
    public constructor(ec: clErrorCode) :=
      Create(ec, $'Ошибка OpenCL: {ec}');
    
  end;
  
  {$endregion Особые типы}
  
  {$region Подпрограммы ядра}
  
  {%Feature.Interface!Pack Essentials.pas%}
  
  {$endregion Подпрограммы ядра}
  
  {$region Подпрограммы расширений}
  
  {%Extension.Interface!Pack Essentials.pas%}
  
  {$endregion Подпрограммы расширений}
  
implementation

{$region Особые типы}

type
  platform_id = {%>cl_platform_id!!}IntPtr{%};
  loadable_platform = record
    private id: platform_id;
    
    private static function clGetExtensionFunctionAddressForPlatform(pl: platform_id; name: string): IntPtr; external 'OpenCL';
    public function GetProcAddress(name: string) := clGetExtensionFunctionAddressForPlatform(self.id, name);
    
  end;
  cl_extension_base = abstract class
    public pl: loadable_platform;
    
    public constructor(pl: platform_id) := self.pl.id := pl;
    
  end;
  
procedure clErrorCode.RaiseIfError :=
  {%>if IS_ERROR then%} raise new OpenCLException(self);

{$endregion Особые типы}

{$region Инициализаторы расширений}

{%Extension.Implementation!Pack Essentials.pas%}

{$endregion Инициализаторы расширений}

end.