Differences From Artifact [2522d5714b]:

To Artifact [d41370188c]:


8
9
10
11
12
13
14



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







+
+
+







# Copyright (c) P.J.Gawthrop, 1996.

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
# Revision 1.6  1997/03/22  15:15:44  peterg
# Ignores symbolic ($i) crs.
#
# Revision 1.5  1997/03/20  12:05:31  peterg
# Now just writes out the cr name.
#
# Revision 1.4  1996/11/09  20:38:45  peterg
# Put in new lib pat
#
## Revision 1.3  1996/11/04 14:51:14  peterg
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
56
57
58
59
60
61
62

63













64







65
66
















-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-
-
-
-
-
-
-
+
+
-
-
-
-
-
-
-
-
-
symbol_count = 0;
symbols = "";
}
{
  if ( (match($1,comment)==0) && (NF>=3) ) {
    cr = $2;
    first_char = substr(cr,1,1);
    if ( (matches(not_a_cr,cr )==0) \
    if ( (matches(not_a_cr,cr)==0) && (match(cr,numeric)==0) )
	 && (match(not_a_cr,$3)==0) \
	 && (match($3,"\\$")==0) \
	 && (match(first_char,numeric)==0) \
	 && (length(cr )>0) \
	 && (matches(symbols,cr ) ==0) ) {
      symbol_count++;
      symbols = sprintf("%s %s", symbols, cr );
    }
  }
}
END {
# create the _cr file

	 print cr;
  if (symbol_count>0) {
    split(symbols,symbol);
    for (i = 1; i <= symbol_count; i++) {
      #printf("$MTTPATH/lib/cr/r/%s.cr ", symbol[i]);
      printf("%s\n", symbol[i]);
    }
  }
	 }
}








}

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