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
114
|
-- This file is part of SmartEiffel The GNU Eiffel Compiler Tools and Libraries
--
-- SmartEiffel is free software; you can redistribute it and/or modify it
-- under the terms of the GNU General Public License, as published by the
-- Free Software Foundation; either version 2, or (at your option) any later
-- version.
-- SmartEiffel 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 General Public License for
-- more details. You should have received a copy of the GNU General Public
-- License along with SmartEiffel; see the file COPYING. If not, write to
-- the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
-- MA 02111-1307, USA.
--
-- Copyright(C) 1994-2002: INRIA - LORIA (INRIA Lorraine) - ESIAL U.H.P.
-- - University of Nancy 1 - FRANCE
-- Copyright(C) 2003: INRIA - LORIA (INRIA Lorraine) - I.U.T. Charlemagne
-- - University of Nancy 2 - FRANCE
--
-- Dominique COLNET, Suzanne COLLIN, Olivier ZENDRA,
-- Philippe RIBET, Cyril ADRIAN
--
-- http://SmartEiffel.loria.fr - SmartEiffel@loria.fr
--
class ACE_CHECK
--
-- The `ace_check' command.
--
inherit
COMMAND_LINE_TOOLS
creation make
feature {ACE_CHECK_VISITOR}
accept(visitor: ACE_CHECK_VISITOR) is
do
visitor.visit_ace_check(Current)
end
feature
command_name: STRING is "ace_check"
command_line_help_summary: STRING is
"Usage: ace_check [options] <ACEfileName>.ace%N%
%%N%
%The ace_check command helps you to check the syntax of your ACE file.%N%
%Option summary:%N%
%%N%
% -help Display this help information%N%
% -version Display SmartEiffel version information%N"
feature {NONE}
make is
local
argi: INTEGER; arg, view: STRING; verbose: BOOLEAN
string_command_line: STRING_COMMAND_LINE
do
if argument_count = 0 then
system_tools.bad_use_exit(Current)
end
string_command_line.set_command_name(command_name)
if ace_file_mode then end
verbose := echo.verbose
echo.unset_verbose
from
argi := 1
until
argi > argument_count
loop
arg := argument(argi)
if ace.file_path = arg then
elseif is_valid_argument_for_ace_mode(arg) then
else
std_error.put_string("Bad argument: %"")
std_error.put_string(arg)
std_error.put_string("%".%N")
die_with_code(exit_failure_code)
end
argi := argi + 1
end
if ace.file_path = Void then
std_error.put_string("No ACE file name in command line.%N")
die_with_code(exit_failure_code)
end
if verbose then
echo.set_verbose
end
!!view.make(2048)
ace.pretty_in(view)
std_output.put_string(view)
end
is_valid_argument_for_ace_mode(arg: STRING): BOOLEAN is
do
if is_some_flag(arg) then
if (is_version_flag(arg)
or else
is_help_flag(arg))
then
Result := true
end
else
Result := true
end
end
valid_argument_for_ace_mode: STRING is
"Only the -verbose, -version, and -help flags are allowed.%N"
end -- ACE_CHECK
|
