/usr/share/ada/adainclude/pcscada/pcsc-scard-utils.ads is in libpcscada2-dev 0.7.1-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 | --
-- Copyright (c) 2008-2010,
-- Reto Buerki <reet@codelabs.ch>
--
-- This file is part of PCSC/Ada.
--
-- PCSC/Ada is free software; you can redistribute it and/or modify
-- it under the terms of the GNU Lesser General Public License as published
-- by the Free Software Foundation; either version 2.1 of the License, or
-- (at your option) any later version.
--
-- PCSC/Ada is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU Lesser General Public License for more details.
--
-- You should have received a copy of the GNU Lesser General Public License
-- along with PCSC/Ada; if not, write to the Free Software
-- Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
-- MA 02110-1301 USA
--
-- <PURPOSE>
-- SCard utilities package. This package contains convenience functions and
-- procedures which can be invoked from the client code for specific
-- conversion or callback operations.
-- </PURPOSE>
--
with PCSC.Thin;
with PCSC.SCard;
use PCSC;
package PCSC.SCard.Utils is
type Callback is access procedure (ID : Reader_ID := Null_Reader_ID);
-- Callback for reader ID handling. Provides a flexible way to access
-- specific readers inside a reader ID set.
procedure Action_Info (Text : String);
-- This function is used by all test and example programs of PCSC/Ada:
-- Pretty print some information about an operation to stdout. After the
-- action is complete, the Action_Result() function can be used to display
-- the result code of the operation.
procedure Action_Result (Result : String);
-- Pretty print the result code of an operation to stdout. Before calling
-- this function, Action_Info() should be used to describe the operation.
procedure For_Every_Reader
(Readers : Reader_ID_Set;
Call : Callback);
-- Call 'Callback' procedure for every reader in readers list.
procedure Print_ReaderID (ID : Reader_ID);
-- Print out specific reader ID to default output.
function To_Hex_String
(Given : Byte_Set := Null_Byte_Set;
Len : Positive)
return String;
-- Returns hex-representation string of binary data (Byte_Set). Len defines
-- the length of the returned string, this is usally two times the length
-- of the initial byte set (because each byte is represented by two
-- 'chars').
function To_Hex_String (Given : Byte_Set := Null_Byte_Set) return String;
-- Returns hex-representation string of binary data (Byte_Set). The string
-- length will be the double length of the initial byte set. If a
-- Null_Byte_Set is passed to this function, "0" is returned.
function To_Hex_String
(Given : Thin.Byte_Array := Thin.Null_Byte_Array;
Len : Positive)
return String;
-- Returns hex-representation string of binary data (Byte_Array). Len
-- defines the length of the returned string.
function To_Hex_String (Given : ATR := Null_ATR) return String;
-- Returns hex-representation string of an ATR. If a Null_ATR is passed,
-- "0" is returned.
function To_Long_Long_Integer
(Given : Byte_Set := Null_Byte_Set)
return Long_Long_Integer;
-- Return converted Long_Long_Integer value from Byte_Set. Maximal value
-- which can be converted is Long_Long_Integer'Last. If given Byte_Set
-- contains a bigger number than Long_Long_Integer'Last, a "Number_Too_Big"
-- exception will be raised. If a Null_Byte_Set is passed, 0 is returned.
function To_String (Reader : Reader_ID := Null_Reader_ID) return String;
-- Return string from reader ID.
function To_String (States : Card_States_Set) return String;
-- Return string representation of card states.
function To_String (States : Reader_States_Set) return String;
-- Return string representation of reader states.
function To_String (Given : Byte_Set := Null_Byte_Set) return String;
-- Convert byte set to string. This function does not remove or trim
-- newlines. If Null_Byte_Set is passed for 'Given', a "0" string is
-- returned.
function To_String
(Given : Byte_Set := Null_Byte_Set;
Len : Natural)
return String;
-- Convert Len bytes from byte set to string. This function does not remove
-- or trim newlines. If Null_Byte_Set is passed for 'Given', a "0" string
-- is returned. If Len > Given'Last, Len = Given'Last will be used instead.
end PCSC.SCard.Utils;
|