Overview
Comment:Does not issue warnings about Reduce reserved words if the
second argument (use_reduce) is "no".
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 228301c3c3b9690e51ac5ed47c312ea0261d1c8c3d0209089d6653d977847b9f
User & Date: geraint@users.sourceforge.net on 2004-09-02 22:06:09
Other Links: branch diff | manifest | tags
Context
2004-09-03
08:34:26
Moved standard CR packages into the mtt:: workspace. check-in: 77f05bcb5d user: geraint@users.sourceforge.net tags: origin/master, trunk
2004-09-02
22:06:09
Does not issue warnings about Reduce reserved words if the
second argument (use_reduce) is "no". check-in: 228301c3c3 user: geraint@users.sourceforge.net tags: origin/master, trunk
22:04:06
Passes ${use_reduce} to mtt_make_sympar so that it can decide
if to issue warnings about Reduce reserved words check-in: 60949b33f3 user: geraint@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/mtt_make_sympar from [7c246fcfb8] to [fb9ff055b0].

︙
9
10
11
12
13
14
15




16
17
18
19
20
21
22

9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26








+
+
+
+








# Copyright (C) 2000 by Peter J. Gawthrop

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.11  2002/04/28 18:41:27  geraint
## Fixed [ 549658 ] awk should be gawk.
## Replaced calls to awk with call to gawk.
##
## Revision 1.10  2001/07/28 21:10:18  geraint
## Generate warning instead of error if reserved word used.
##
## Revision 1.9  2001/07/23 05:16:39  geraint
## Simple filter for Reduce reserved words in sympar.
##
## Revision 1.8  2001/07/04 06:00:12  gawthrop
︙
45
46
47
48
49
50
51



52
53
54
55
56
57
58

49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65








+
+
+








##
##
###############################################################


sys=$1 # System name
filename=$1_sympar.txt

use_reduce=$2

# Inform user
echo Creating $filename

# Create list of all sympars including those that are aliased
sh $1_type.sh 'echo ' ' ' ' ' |\
gawk '{printf("abg2sympar_m2txt %s %s\n ", $1, $2)}' |\
sh | sort -u > mtt_all_sympar.txt
︙
100
101
102
103
104
105
106

107

108
109
110
111

112
113
114
115
116
117
118
119
120
121
122
123
124
125
126













107
108
109
110
111
112
113
114

115
116
117
118

119
120
121
122
123











124
125
126
127
128
129
130
131
132
133
134
135








+
-
+



-
+




-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+

          printf("%s%s", comma, sysname[j]);
          comma=",";
        }
        printf("\n")

}' < mtt_sympar.txt >$filename

if [ ! "${use_reduce}" == "no" ]; then
reserved_words=`\
    reserved_words=`\
    cat ${MTT_LIB}/reduce/reserved_words.txt	|\
    gawk '{printf "%s ", $0}'			|\
    tr [a-z] [A-Z]`
sympar_words=`\
    sympar_words=`\
    cat ${filename}				|\
    cut -f1					|\
    gawk '{printf "%s ", $0}'			|\
    tr [a-z] [A-Z]`
flag=0
for reserved_word in ${reserved_words}; do
    for sympar_word in ${sympar_words}; do
	if [ ${sympar_word} = ${reserved_word} ]; then
	    echo ""
	    echo "*** MTT Warning:"
	    echo "    ${sympar_word} is reserved (Reduce)"
	    echo ""
	fi
    done
done
    flag=0
    for reserved_word in ${reserved_words}; do
	for sympar_word in ${sympar_words}; do
	    if [ ${sympar_word} = ${reserved_word} ]; then
		echo ""
		echo "*** MTT Warning:"
		echo "    ${sympar_word} is reserved (Reduce)"
		echo ""
	    fi
	done
    done
fi

MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]