source: trunk/ULinux.pas

unit ULinux;

{$mode delphi}

interface

uses
  Classes, SysUtils, UDevice;

type

  { TLinux }

  TLinux = class(TDevice)
    constructor Create; override;
  end;

implementation

{ TLinux }

constructor TLinux.Create;
begin
  inherited;
  Identity := 'router';
  with Routerboard do begin
    Logo.Add('  LLL           III');
    Logo.Add('  LLL');
    Logo.Add('  LLL           III  NNNNNNN   UUU  UUU  XXX  XXX');
    Logo.Add('  LLL           III  NNN  NNN  UUU  UUU    XXXXX ');
    Logo.Add('  LLL           III  NNN  NNN  UUU  UUU   XXXXX  ');
    Logo.Add('  LLLLLLLLLLL   III  NNN  NNN   UUUUUU   XXX  XXX');
    Vendor := 'Linux foundation';
    Model := 'Generic';
    OS := 'Linux';
    Version := '1.0.0';
    Copyright := '1999-2020';
    Website := 'http://www.linuxfoundation.com/';
  end;
  with RootContext do begin
    with Childs.AddNew('ip', 'IP options') do begin

    end;
  end;
end;

end.