← Back to branch summary

~ubuntu-branches/ubuntu/precise/topal/precise

« back to all changes in this revision

Viewing changes to misc.ads

  • Committer: Bazaar Package Importer
  • Author(s): Phil Brooke
  • Date: 2008-07-18 07:57:38 UTC
  • mto: This revision was merged to the branch mainline in revision 3.
  • Revision ID: james.westby@ubuntu.com-20080718075738-i1szqvmxz0evz32p
Tags: upstream-62
Import upstream version 62

Show diffs side-by-side

added added

removed removed

Lines of Context:
misc.ads
1
 
--
2
 
--
3
 
--
4
 
--
 
1
-- Topal: GPG/GnuPG and Alpine/Pine integration
 
2
-- Copyright (C) 2001--2008  Phillip J. Brooke
 
3
--
 
4
-- This program is free software: you can redistribute it and/or modify
 
5
-- it under the terms of the GNU General Public License version 3 as
 
6
-- published by the Free Software Foundation.
 
7
--
 
8
-- This program is distributed in the hope that it will be useful,
 
9
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
 
10
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
11
-- GNU General Public License for more details.
 
12
--
 
13
-- You should have received a copy of the GNU General Public License
 
14
-- along with this program.  If not, see <http://www.gnu.org/licenses/>.
5
15
 
6
16
with Ada.Sequential_IO;
7
17
with Ada.Text_IO;
53
50
   -- Throw away leading blanks from a string.
54
51
   function Trim_Leading_Spaces (S : String) return String;
55
52
 
56
 
   -- Create our own temporary file names.
57
 
   function Temp_File_Name (Tail : String) return String;
 
53
   -- Create our own temporary file names.  A sequence number is also
 
54
   --  inserted unless Use_Sequence_Number is set to False.
 
55
   function Temp_File_Name (Tail                : String;
 
56
                            Use_Sequence_Number : Boolean := True) return String;
58
57
 
59
58
   -- An `unbounded' Get_Line.
60
59
   function Unbounded_Get_Line (File : in Ada.Text_IO.File_Type)
62
61
 
63
62
   function Unbounded_Get_Line return UBS;
64
63
 
 
64
   -- Eat and fold an entire file.
 
65
   function Read_Fold (File : in String) return UBS;
 
66
 
65
67
   -- Open and close the result file.
66
68
   procedure Open_Result_File (Resultfile : in String);
67
69
 
81
83
   -- delimiter, but also honouring quoting and stuffing using `"'.
82
84
   function Split_Arguments (A : UBS) return UBS_Array;
83
85
 
 
86
   -- Split up a GPG colon-separated line.
 
87
   function Split_GPG_Colons (AS : String) return UBS_Array;
 
88
 
84
89
   -- Get the basename of a filename.
85
90
   function Basename (S : String) return String;
86
91
 
87
92
   -- Basename.
88
93
   function Command_Basename return String;
89
94
 
 
95
   -- Hexadecimal decoder.
 
96
   function Hex_Decode (S : in String) return Natural;
 
97
 
90
98
end Misc;