Overview
Comment:Returns 0 if no names.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: b4a9b70c25bcd676a85a210c0b51c1c386ef1664f83e76d08b286f0656fac1c5
User & Date: gawthrop@users.sourceforge.net on 1997-05-22 09:42:48
Other Links: branch diff | manifest | tags
Context
1997-05-22
10:11:04
Fixed dat2gdat bug (with parameters) check-in: 3bf171c3b1 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
09:42:48
Returns 0 if no names. check-in: b4a9b70c25 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
09:28:22
Removed trailing , in output. check-in: 40a245a375 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes

Modified mttroot/mtt/bin/trans/name2index from [277eeb6873] to [231060ba2b].

11
12
13
14
15
16
17



18
19
20
21
22
23
24
25
26
27
28



29
30
31
32

33
34
35
# Copyright (c) P.J.Gawthrop, 1997.

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$



## Revision 1.1  1997/05/22 08:48:21  peterg
## Initial revision
##
###############################################################

awk '
{
  name_index[$4"_"$3]=$2;
}
END{
  N=split(names,Names,",");



  for (i=1; i<N; i++) {
    printf("%i,",name_index[Names[i]]);
  }
  printf("%i\n",name_index[Names[N]]);

}'  names=$2 < $1_struc.txt

  







>
>
>











>
>
>
|
|
<

>



11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

37
38
39
40
41
# Copyright (c) P.J.Gawthrop, 1997.

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.2  1997/05/22 09:28:22  peterg
## Removed trailing , in output.
##
## Revision 1.1  1997/05/22 08:48:21  peterg
## Initial revision
##
###############################################################

awk '
{
  name_index[$4"_"$3]=$2;
}
END{
  N=split(names,Names,",");
  if (N==0)
    printf("0\n")
  else {
    for (i=1; i<N; i++)
      printf("%i,",name_index[Names[i]]);

  printf("%i\n",name_index[Names[N]]);
  }
}'  names=$2 < $1_struc.txt

  


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