35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
;;
*)
echo $1 is an unknown option
exit;;
esac
shift
done
# Language
if [ -n "$3" ]; then
lang=$3
else
lang="m"
fi
|
>
>
>
>
>
>
>
|
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
;;
*)
echo $1 is an unknown option
exit;;
esac
shift
done
## Representation
if [ -z $1 ]; then
echo 'usage [options] cse2smx_lang system [smx|smxa|smxax]'
exit
fi
# Language
if [ -n "$3" ]; then
lang=$3
else
lang="m"
fi
|
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
rm -f $1_$rep.body
# Use reduce to accomplish the transformation
$SYMBOLIC << EOF >cse2smx_lang.log
lang := $lang;
%% Fixes for c and cc (if needed)
$include;
|
<
<
<
>
>
>
>
|
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
rm -f $1_$rep.body
# Use reduce to accomplish the transformation
$SYMBOLIC << EOF >cse2smx_lang.log
lang := $lang;
in "$1_subs.r";
in "$1_def.r";
in "$1_cse.r";
in "$1_cr.r";
%% Fixes for c and cc (if needed)
$include;
clear mttx; % Dont need this now - use mkid instead
OFF Echo;
% Load the general translator package
LOAD GENTRAN;
|