← Back to branch summary

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

« back to all changes in this revision

Viewing changes to invocation.adb

  • 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:
invocation.adb
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.Text_IO;
7
17
with Command_Line_Wrapper; use Command_Line_Wrapper;
36
33
            Config.FE_Simple := False;
37
34
         elsif Match("--no-clear") then
38
35
            Config.No_Clean := True;
 
36
         elsif Match("--read-from") then
 
37
            -- The user had better set _INCLUDEALLHDRS_...
 
38
            Config.All_Headers := True;
 
39
            Config.Read_From := True;
 
40
         elsif Match("--ask-charset") then
 
41
            Config.Ask_Charset := True;
39
42
         else
40
43
            -- We haven't got an options match.
41
44
            if Parse_All then
113
116
               Mimefile := Eat;
114
117
               Recipients := Eat_Remaining_Arguments;
115
118
            end if;
 
119
         elsif Match("-remotesend") then
 
120
            if not More(Needed => 3) then
 
121
               Error("-remotesend needs at least three arguments: _TMPFILE_ _RESULTFILE_ _RVFILE_"
 
122
                     & ", then _RECIPIENTS_");
 
123
            else
 
124
               Run_Mode := Remote_Send;
 
125
               Tmpfile := Eat;
 
126
               Resultfile := Eat;
 
127
               RVfile     := Eat;
 
128
               Recipients := Eat_Remaining_Arguments;
 
129
            end if;
 
130
         elsif Match("-remotesendmime") then
 
131
            if not More(Needed => 4) then
 
132
               Error("-remotesendmime needs at least four arguments: _TMPFILE_ _RESULTFILE_ _RVFILE_ _MIMETYPE_"
 
133
                     & ", then _RECIPIENTS_");
 
134
            else
 
135
               Run_Mode := Remote_Mime_Send;
 
136
               Tmpfile := Eat;
 
137
               Resultfile := Eat;
 
138
               RVfile := Eat;
 
139
               Mimefile := Eat;
 
140
               Recipients := Eat_Remaining_Arguments;
 
141
            end if;
 
142
         elsif Match("-server") then
 
143
            Run_Mode := Server;
116
144
         elsif Match("-clear") then
117
145
            Run_Mode := Clear_Temp;
118
146
         elsif Match("-clearc") then