1------------------------------------------------------------------------------
2--                                                                          --
3--                         GNAT COMPILER COMPONENTS                         --
4--                                                                          --
5--           G N A T . S E R I A L _ C O M M U N I C A T I O N S            --
6--                                                                          --
7--                                 B o d y                                  --
8--                                                                          --
9--                     Copyright (C) 2007-2012, AdaCore                     --
10--                                                                          --
11-- GNAT is free software;  you can  redistribute it  and/or modify it under --
12-- terms of the  GNU General Public License as published  by the Free Soft- --
13-- ware  Foundation;  either version 3,  or (at your option) any later ver- --
14-- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
15-- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
16-- or FITNESS FOR A PARTICULAR PURPOSE.                                     --
17--                                                                          --
18-- As a special exception under Section 7 of GPL version 3, you are granted --
19-- additional permissions described in the GCC Runtime Library Exception,   --
20-- version 3.1, as published by the Free Software Foundation.               --
21--                                                                          --
22-- You should have received a copy of the GNU General Public License and    --
23-- a copy of the GCC Runtime Library Exception along with this program;     --
24-- see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --
25-- <http://www.gnu.org/licenses/>.                                          --
26--                                                                          --
27-- GNAT was originally developed  by the GNAT team at  New York University. --
28-- Extensive contributions were provided by Ada Core Technologies Inc.      --
29--                                                                          --
30------------------------------------------------------------------------------
31
32--  Default version of this package
33
34with Ada.Streams; use Ada.Streams;
35
36package body GNAT.Serial_Communications is
37
38   pragma Warnings (Off);
39   --  Kill warnings on unreferenced formals
40
41   type Port_Data is new Integer;
42
43   -----------------------
44   -- Local Subprograms --
45   -----------------------
46
47   procedure Unimplemented;
48   pragma No_Return (Unimplemented);
49   --  This procedure raises a Program_Error with an appropriate message
50   --  indicating that an unimplemented feature has been used.
51
52   ----------
53   -- Name --
54   ----------
55
56   function Name (Number : Positive) return Port_Name is
57   begin
58      Unimplemented;
59      return "";
60   end Name;
61
62   ----------
63   -- Open --
64   ----------
65
66   procedure Open
67     (Port : out Serial_Port;
68      Name : Port_Name)
69   is
70   begin
71      Unimplemented;
72   end Open;
73
74   ---------
75   -- Set --
76   ---------
77
78   procedure Set
79     (Port      : Serial_Port;
80      Rate      : Data_Rate        := B9600;
81      Bits      : Data_Bits        := CS8;
82      Stop_Bits : Stop_Bits_Number := One;
83      Parity    : Parity_Check     := None;
84      Block     : Boolean          := True;
85      Local     : Boolean          := True;
86      Flow      : Flow_Control     := None;
87      Timeout   : Duration         := 10.0)
88   is
89   begin
90      Unimplemented;
91   end Set;
92
93   ----------
94   -- Read --
95   ----------
96
97   overriding procedure Read
98     (Port   : in out Serial_Port;
99      Buffer : out Stream_Element_Array;
100      Last   : out Stream_Element_Offset)
101   is
102   begin
103      Unimplemented;
104   end Read;
105
106   -----------
107   -- Write --
108   -----------
109
110   overriding procedure Write
111     (Port   : in out Serial_Port;
112      Buffer : Stream_Element_Array)
113   is
114   begin
115      Unimplemented;
116   end Write;
117
118   -----------
119   -- Close --
120   -----------
121
122   procedure Close (Port : in out Serial_Port) is
123   begin
124      Unimplemented;
125   end Close;
126
127   -------------------
128   -- Unimplemented; --
129   -------------------
130
131   procedure Unimplemented is
132   begin
133      raise Program_Error with "Serial_Communications not implemented";
134   end Unimplemented;
135
136end GNAT.Serial_Communications;
137