Overview
Comment:New much simpler version -- does not check for multiple crs -- these
are removed later anyway.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 3661becaf81ddb03b101ebcc93b88b3f43e643b43185e2fd20678da863997ddb
User & Date: gawthrop@users.sourceforge.net on 1997-04-22 12:50:15.000
Other Links: branch diff | manifest | tags
Context
1997-04-23
07:26:49
Added -o switch -- ode and dae are the same
Added switches to default menu check-in: 645d1d2c5c user: gawthrop@users.sourceforge.net tags: origin/master, trunk
1997-04-22
12:50:15
New much simpler version -- does not check for multiple crs -- these
are removed later anyway. check-in: 3661becaf8 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
1997-04-17
11:18:34
Write out the RCS header first! check-in: e59d7a2fad user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Side-by-Side Diff Ignore Whitespace Patch
Modified mttroot/mtt/bin/trans/awk/lbl2cr.awk from [2522d5714b] to [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 ]