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