TGalileoGPIO

type TGalileoGPIO = class(TCustomGPIO)

protected

type

  TPinOpMode = (

  Unknown,

  GPIO,

  FastIO,

  PWM,

  ADC,

  UART,

  SPI,

  I2C

);

  TPinOpModes = set of TPinOpMode;

  TPinMux = record

  Pin: Integer;

  Value: TPinValue;

end;

  TPinMuxes = array of TPinMux;

  TPinOpSetup = record

public

  Pin: Integer;

  ChipId: Integer;

  Muxes: TPinMuxes;

  OutputEnable: Integer;

  PullupEnable: Integer;

  MemBitPos: Integer;

  procedure Reset;

end;

  TPinEntry = record

public

  Name: StdString;

  Modes: TPinOpModes;

  GPIO: TPinOpSetup;

  FastIO: TPinOpSetup;

  PWM: TPinOpSetup;

  ADC: TPinOpSetup;

  UART: TPinOpSetup;

  SPI: TPinOpSetup;

  I2C: TPinOpSetup;

  procedure Reset;

end;

  TPinEntries = array of TPinEntry;

  TBusEntry = record

  Path: StdString;

  Pins: array of Integer;

end;

  TBoardInfo = record

  Entries: TPinEntries;

  GPIO: TBusEntry;

  FastIO: TBusEntry;

  PWM: TBusEntry;

  ADC: TBusEntry;

  UART: TBusEntry;

  SPI: TBusEntry;

  I2C: TBusEntry;

  InternalLED: Integer;

end;

public

type

  TFastIO = TFastIO;

protected

  FBoardInfo: TBoardInfo;

  function GetPinMode(); override;

  procedure SetPinMode(); override;

  function GetPinValue(); override;

  procedure SetPinValue(); override;

  function GetPinDrive(); override;

  procedure SetPinDrive(); override;

  class procedure InitGalileo1Info();

  class procedure InitGalileo2Info();

  class procedure InitEdisonInfo();

  property FastIO: TFastIO; [r]

public

  constructor Create;

  destructor Destroy; override;

  procedure SetFastOutput();

  procedure SetFastValue();

  property Board: TGalileoBoard; [r]

  property SysfsGPIO: TSysfsGPIO; [r]

  property InternalLEDPin: Integer; [r]

end;

TGalileoGPIO

TCustomGPIO

TObject