flat.scm.sh

Grégoire Sutre, 07/22/2010 03:09 pm

Download (247 Bytes)

 
1
#!/bin/sh
2
3
cat <<EOF
4
scm flat :
5
nb_channels = 1 ;
6
parameters :
7
real a ;
8
9
automaton proc :
10
initial : 1
11
EOF
12
13
i=1
14
while [ $i -lt $1 ]; do
15
cat <<EOF
16
state $i : to $((i+1)) : when true ;
17
EOF
18
i=$((i+1))
19
done
20
21
cat <<EOF
22
state $i : to 1 : when true ;
23
EOF