blob: b56653436822c40fd50ce2e12b6b5959c360326d (
plain)
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
|
# -*- tcl -*-
# This file is part of Mailutils testsuite.
# Copyright (C) 2002, Free Software Foundation
#
# This program 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 of the License, or
# (at your option) any later version.
#
# This program 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 this program; if not, write to the Free Software Foundation,
# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
set exdir "${srcdir}/../examples"
set scripts [list\
ex-null.sv\
box.sv\
ex-1.10.2.sv\
ex-2.3a.sv\
ex-2.5.1.sv\
ex-2.7.3.sv\
ex-3.1a.sv\
ex-3.1b.sv\
ex-4.2.sv\
ex-4.4a.sv\
ex-4.4b.sv\
ex-4.5.sv\
ex-5.1.sv\
ex-5.7.sv\
ex-save-all.sv\
example.sv\
exn-2.3b.sv]
# t-complex.sv
# t-exists.sv
# t-fileinto.sv
# t-mailutils.sv
for {set s $scripts} {[llength $s] != 0} {set s [lrange $s 1 end]} {
set source_name [lindex $s 0]
mu_exec -message "sieve -c $source_name" \
-arg -c -arg ${exdir}/$source_name
}
# end of compile.exp
|
