dummy_rtems.adb

RTEMS (Real-Time Executive for Multiprocessor Systems) is a free open source real-time operating sys

      BUFFER : in     RTEMS.ADDRESS;
      Size   : in     RTEMS.Unsigned32;
      RESULT :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end MESSAGE_QUEUE_URGENT;

   procedure MESSAGE_QUEUE_BROADCAST (
      ID     : in     RTEMS.ID;
      BUFFER : in     RTEMS.ADDRESS;
      Size   : in     RTEMS.Unsigned32;
      COUNT  :    out RTEMS.UNSIGNED32;
      RESULT :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end MESSAGE_QUEUE_BROADCAST;

   procedure MESSAGE_QUEUE_RECEIVE (
      ID         : in     RTEMS.ID;
      BUFFER     : in     RTEMS.ADDRESS;
      OPTION_SET : in     RTEMS.OPTION;
      TIMEOUT    : in     RTEMS.INTERVAL;
      Size       :    out RTEMS.Unsigned32;
      RESULT     :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end MESSAGE_QUEUE_RECEIVE;

   procedure MESSAGE_QUEUE_FLUSH (
      ID     : in     RTEMS.ID;
      COUNT  :    out RTEMS.UNSIGNED32;
      RESULT :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end MESSAGE_QUEUE_FLUSH;

-- Event Manager

   procedure EVENT_SEND (
      ID       : in     RTEMS.ID;
      EVENT_IN : in     RTEMS.EVENT_SET;
      RESULT   :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end EVENT_SEND;

   procedure EVENT_RECEIVE (
      EVENT_IN   : in     RTEMS.EVENT_SET;
      OPTION_SET : in     RTEMS.OPTION;
      TICKS      : in     RTEMS.INTERVAL;
      EVENT_OUT  :    out RTEMS.EVENT_SET;
      RESULT     :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end EVENT_RECEIVE;

-- Signal Manager

   procedure SIGNAL_CATCH (
      ASR_HANDLER : in     RTEMS.ASR_HANDLER;
      MODE_SET    : in     RTEMS.MODE;
      RESULT      :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end SIGNAL_CATCH;

   procedure SIGNAL_SEND (
      ID         : in     RTEMS.ID;
      SIGNAL_SET : in     RTEMS.SIGNAL_SET;
      RESULT     :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end SIGNAL_SEND;

-- Partition Manager

   procedure PARTITION_CREATE (
      NAME             : in     RTEMS.NAME;
      STARTING_ADDRESS : in     RTEMS.ADDRESS;
      LENGTH           : in     RTEMS.UNSIGNED32;
      BUFFER_SIZE      : in     RTEMS.UNSIGNED32;
      ATTRIBUTE_SET    : in     RTEMS.ATTRIBUTE;
      ID               :    out RTEMS.ID;
      RESULT           :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end PARTITION_CREATE;

   procedure PARTITION_IDENT (
      NAME   : in     RTEMS.NAME;
      NODE   : in     RTEMS.UNSIGNED32;
      ID     :    out RTEMS.ID;
      RESULT :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end PARTITION_IDENT;

   procedure PARTITION_DELETE (
      ID     : in     RTEMS.ID;
      RESULT :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end PARTITION_DELETE;

   procedure PARTITION_GET_BUFFER (
      ID     : in     RTEMS.ID;
      BUFFER :    out RTEMS.ADDRESS;
      RESULT :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end PARTITION_GET_BUFFER;

   procedure PARTITION_RETURN_BUFFER (
      ID     : in     RTEMS.ID;
      BUFFER : in     RTEMS.ADDRESS;
      RESULT :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end PARTITION_RETURN_BUFFER;

-- Region Manager

   procedure REGION_CREATE (
      NAME             : in     RTEMS.NAME;
      STARTING_ADDRESS : in     RTEMS.ADDRESS;
      LENGTH           : in     RTEMS.UNSIGNED32;
      PAGE_SIZE        : in     RTEMS.UNSIGNED32;
      ATTRIBUTE_SET    : in     RTEMS.ATTRIBUTE;
      ID               :    out RTEMS.ID;
      RESULT           :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end REGION_CREATE;

   procedure REGION_IDENT (
      NAME   : in     RTEMS.NAME;
      ID     :    out RTEMS.ID;
      RESULT :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end REGION_IDENT;

   procedure REGION_DELETE (
      ID     : in     RTEMS.ID;
      RESULT :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end REGION_DELETE;

   procedure REGION_GET_SEGMENT (
      ID         : in     RTEMS.ID;
      SIZE       : in     RTEMS.UNSIGNED32;
      OPTION_SET : in     RTEMS.OPTION;
      TIMEOUT    : in     RTEMS.INTERVAL;
      SEGMENT    :    out RTEMS.ADDRESS;
      RESULT     :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end REGION_GET_SEGMENT;

   procedure REGION_RETURN_SEGMENT (
      ID      : in     RTEMS.ID;
      SEGMENT : in     RTEMS.ADDRESS;
      RESULT  :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end REGION_RETURN_SEGMENT;

-- Dual Ported Memory Manager

   procedure PORT_CREATE (
      NAME           : in     RTEMS.NAME;
      INTERNAL_START : in     RTEMS.ADDRESS;
      EXTERNAL_START : in     RTEMS.ADDRESS;
      LENGTH         : in     RTEMS.UNSIGNED32;
      ID             :    out RTEMS.ID;
      RESULT         :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end PORT_CREATE;

   procedure PORT_IDENT (
      NAME   : in     RTEMS.NAME;
      ID     :    out RTEMS.ID;
      RESULT :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end PORT_IDENT;

   procedure PORT_DELETE (
      ID     : in     RTEMS.ID;
      RESULT :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end PORT_DELETE;

   procedure PORT_EXTERNAL_TO_INTERNAL (
      ID       : in     RTEMS.ID;
      EXTERNAL : in     RTEMS.ADDRESS;
      INTERNAL :    out RTEMS.ADDRESS;
      RESULT   :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end PORT_EXTERNAL_TO_INTERNAL;

   procedure PORT_INTERNAL_TO_EXTERNAL (
      ID       : in     RTEMS.ID;
      INTERNAL : in     RTEMS.ADDRESS;
      EXTERNAL :    out RTEMS.ADDRESS;
      RESULT   :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end PORT_INTERNAL_TO_EXTERNAL;

-- Input/Output Manager

   procedure IO_INITIALIZE (
      MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
      MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
      ARGUMENT     : in     RTEMS.ADDRESS;
      RESULT       :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end IO_INITIALIZE;

   procedure IO_OPEN (
      MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
      MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
      ARGUMENT     : in     RTEMS.ADDRESS;
      RESULT       :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end IO_OPEN;

   procedure IO_CLOSE (
      MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
      MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
      ARGUMENT     : in     RTEMS.ADDRESS;
      RESULT       :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end IO_CLOSE;

   procedure IO_READ (
      MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
      MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
      ARGUMENT     : in     RTEMS.ADDRESS;
      RESULT       :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end IO_READ;

   procedure IO_WRITE (
      MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
      MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
      ARGUMENT     : in     RTEMS.ADDRESS;
      RESULT       :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end IO_WRITE;

   procedure IO_CONTROL (
      MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
      MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
      ARGUMENT     : in     RTEMS.ADDRESS;
      RESULT       :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end IO_CONTROL;

-- Fatal Error Manager

   procedure FATAL_ERROR_OCCURRED (
      THE_ERROR : in     RTEMS.UNSIGNED32
   ) is
   begin

      NULL;

   end FATAL_ERROR_OCCURRED;

-- Rate Monotonic Manager

   procedure RATE_MONOTONIC_CREATE (
      NAME   : in     RTEMS.NAME;
      ID     :    out RTEMS.ID;
      RESULT :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end RATE_MONOTONIC_CREATE;

   procedure RATE_MONOTONIC_IDENT (
      NAME   : in     RTEMS.NAME;
      ID     :    out RTEMS.ID;
      RESULT :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end RATE_MONOTONIC_IDENT;

   procedure RATE_MONOTONIC_DELETE (
      ID     : in     RTEMS.ID;
      RESULT :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end RATE_MONOTONIC_DELETE;

   procedure RATE_MONOTONIC_CANCEL (
      ID     : in     RTEMS.ID;
      RESULT :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end RATE_MONOTONIC_CANCEL;

   procedure RATE_MONOTONIC_PERIOD (
      ID      : in     RTEMS.ID;
      LENGTH  : in     RTEMS.INTERVAL;
      RESULT  :    out RTEMS.STATUS_CODES
   ) is
   begin

      RESULT := RTEMS.SUCCESSFUL;

   end RATE_MONOTONIC_PERIOD;

-- Multiprocessing Manager

   procedure MULTIPROCESSING_ANNOUNCE
   is
   begin

      NULL;

   end MULTIPROCESSING_ANNOUNCE;

end DUMMY_RTEMS;