---------------------------------------------------------------------------- -- Copyright (C) 2021, AdaCore -- -- Redistribution and use in source and binary forms, with or without -- modification, are permitted provided that the following conditions are -- met: -- 1. Redistributions of source code must retain the above copyright -- notice, this list of conditions and the following disclaimer. -- 2. Redistributions in binary form must reproduce the above copyright -- notice, this list of conditions and the following disclaimer in -- the documentation and/or other materials provided with the -- distribution. -- 3. Neither the name of the copyright holder nor the names of its -- contributors may be used to endorse or promote products derived -- from this software without specific prior written permission. -- -- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -- "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT -- LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR -- A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT -- HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, -- SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT -- LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -- DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY -- THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT -- (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE -- OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -- -- ----------------------------------------------------------------------------
type CDC_Line_Coding is record
Bitrate : UInt32;
Stop_Bit : UInt8;
Parity : UInt8;
Data_Bits : UInt8;
end record
with Pack, Size => 56;
type CDC_Line_Control_State is record
DTE_Is_Present : Boolean;
Half_Duplex_Carrier_control : Boolean;
Reserved : UInt14;
end record
with Pack, Size => 16;
type Default_Serial_Class (TX_Buffer_Size, RX_Buffer_Size : BBqueue.Count)
is limited new USB_Device_Class with private;
function Line_Coding (This : Default_Serial_Class)
return CDC_Line_Coding
function List_Ctrl_State (This : Default_Serial_Class)
return CDC_Line_Control_State
procedure Read (This : in out Default_Serial_Class;
Str : out String;
Len : out UInt32)
procedure Read (This : in out Default_Serial_Class;
Buf : System.Address;
Len : in out UInt32)
procedure Set_Interface_String (This : in out Default_Serial_Class;
Stack : in out USB_Device_Stack'Class;
Str : String)
Only has effect when called before enumeration
procedure Write (This : in out Default_Serial_Class;
UDC : in out USB_Device_Controller'Class;
Str : String;
Len : out UInt32)
procedure Write (This : in out Default_Serial_Class;
UDC : in out USB_Device_Controller'Class;
Buf : System.Address;
Len : in out UInt32)