File : g-sercom.adb
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 -- --
19 -- --
20 -- --
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
34 with Ada.Streams; use Ada.Streams;
35
36 package 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
136 end GNAT.Serial_Communications;