Overview
Comment:Ignores SS fields (assumes that if first field is a symbol then other
field is and SS-style field.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 9cc4fc0809705bda4f4f7fb1ba3dcfe9246e056e982e470d56ddf81f363ca5e5
User & Date: gawthrop@users.sourceforge.net on 1998-03-06 09:15:28
Other Links: branch diff | manifest | tags
Context
1998-03-06
09:38:58
Now writes correct structure file for multiport C & I check-in: 61f43ff9b8 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
09:15:28
Ignores SS fields (assumes that if first field is a symbol then other
field is and SS-style field. check-in: 9cc4fc0809 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
1998-03-05
10:17:41
Cosmetic change check-in: 7e29547fca user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/awk/lbl2cr.awk from [d41370188c] to [e20fbf4eef].

︙︙
8
9
10
11
12
13
14




15
16
17
18
19
20
21

# 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








>
>
>
>








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

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

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.7  1997/04/22 12:50:15  peterg
## New much simpler version -- does not check for multiple crs -- these
## are removed later anyway.
##
# 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
︙︙
47
48
49
50
51
52
53

54
55
56
57


58
59
60
61
62
63


64
65
66

    }


BEGIN {
comment = "%";
arg_delimiter = ",";
not_a_cr = "effort flow state internal external zero none";

numeric = "[0-9]";
symbolic = "\044"; # Ascii $
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) && (match(cr,numeric)==0) )


	 print cr;
	 }
}








>




>
>



|
|
|
>
>

|


51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75

    }


BEGIN {
comment = "%";
arg_delimiter = ",";
not_a_cr = "effort flow state internal external zero none";
is_a_SS = "internal external zero";
numeric = "[0-9]";
symbolic = "\044"; # Ascii $
symbol_count = 0;
symbols = "";

print "lin"
}
{
  if ( (match($1,comment)==0) && (NF>=3) ) {
      cr = $2
      first_char = substr(cr,1,1);
      if ( (matches(not_a_cr,cr)==0) &&
         (match(numeric,first_char)==0) &&
         (matches(is_a_SS,$3)==0))
	 print cr;
  }
}

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