← Back to branch summary

~ubuntu-branches/ubuntu/vivid/topal/vivid

« back to all changes in this revision

Viewing changes to externals-simple.ads

  • Committer: Bazaar Package Importer
  • Author(s): Phil Brooke
  • Date: 2008-07-18 07:57:38 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 dapper)
  • Revision ID: james.westby@ubuntu.com-20080718075738-1jbtf92kurbkezdz
Tags: 62-1
* New upstream release.  This includes the necessary upstream work
  to make it work properly again.
* Move from contrib to main (Alpine is in main).
* Fix standards-version to 3.8.0.
* Update gnat dependency and add more architectures.
* Update debian/compat.
* Update description.
* Update copyright file.
* Update depends/recommends/suggests.
* Patches are installed in their own directory.

Show diffs side-by-side

added added

removed removed

Lines of Context:
externals-simple.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
package Externals.Simple is
7
17
 
45
42
   -- Date string YmdHMS.
46
43
   function Date_String return String;
47
44
 
 
45
   -- date A >> D
 
46
   procedure Date_1_Append(A, D : in String);
 
47
 
48
48
   -- Diff --brief.  Returns true for `there are changes', false for
49
49
   -- `no changes'.
50
50
   function Diff_Brief (F1 : in String;
60
60
   procedure Echo_Append (E : in String;
61
61
                          D : in String);
62
62
 
 
63
   -- Equivalent of `echo -n E >> D'.
 
64
   procedure Echo_Append_N (E : in String;
 
65
                            D : in String);
 
66
 
63
67
   -- Equivalent of `echo E > D'.
64
68
   procedure Echo_Out (E : in String;
65
69
                       D : in String);
100
104
                        Source : in String;
101
105
                        Target : in String);
102
106
 
103
 
   -- Equivelant of `stty sane'.
 
107
   -- Equivalent of `stty sane'.
104
108
   procedure Stty_Sane;
105
109
 
 
110
   -- Equivalent of `system'.
 
111
   function System (Argv : in UBS) return Integer;
 
112
   function System (Argv : in String) return Integer;
 
113
 
106
114
   -- Equivalent of `test -d D'
107
115
   function Test_D (D : in String) return Boolean;
108
116
 
112
120
   -- Equivalent of `test -r D'
113
121
   function Test_R (D : in String) return Boolean;
114
122
 
 
123
   -- Equivalent of `test -p D'
 
124
   function Test_P (D : in String) return Boolean;
 
125
 
115
126
   -- Equivalent of `test -s D'
116
127
   function Test_S (D : in String) return Boolean;
117
128
 
118
 
   -- View a MIME file.
119
 
   procedure View_MIME (F : String);
 
129
   -- Guess content type of F using `file'.
 
130
   function Guess_Content_Type (F : in String) return String;
 
131
 
 
132
   -- Use locale charmap to get the current keymap.
 
133
   function Get_Charmap return String;
 
134
 
 
135
   -- Convert charmaps within a single file (F) from charset CF to
 
136
   --  charset CT.
 
137
   procedure Convert_Charmap (F, CF, CT : in String);
120
138
 
121
139
end Externals.Simple;