Overview
Comment:No longer writes out non-unique names - now done in rbg_fig2m
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: f9d502be67e4b7e2eaa33969c1756b80f3a907eb0b62626d5456297ce4f9cf22
User & Date: gawthrop@users.sourceforge.net on 1997-03-19 12:08:01.000
Other Links: branch diff | manifest | tags
Context
1997-03-19
16:39:12
Put in the correct date. check-in: b76d0046bb user: gawthrop@users.sourceforge.net tags: origin/master, trunk
12:08:01
No longer writes out non-unique names - now done in rbg_fig2m check-in: f9d502be67 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
12:02:01
Now writes an error message if a lable is used twice in the fig file. check-in: d808cfe780 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Unified Diff Ignore Whitespace Patch
Modified mttroot/mtt/bin/trans/abg2lbl_fig2txt from [6aac9b5394] to [41d2a49d06].
︙︙
9
10
11
12
13
14
15



16
17
18
19
20
21
22

# Acausal bond graph to causal bond graph: mfile format

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



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


# P.J.Gawthrop March 1997
# Copyright (c) P.J.Gawthrop, 1997

infofile='mtt_info.txt'








>
>
>








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

# Acausal bond graph to causal bond graph: mfile format

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
# Revision 1.1  1997/03/18  13:55:01  peterg
# Initial revision
#
###############################################################


# P.J.Gawthrop March 1997
# Copyright (c) P.J.Gawthrop, 1997

infofile='mtt_info.txt'
︙︙
47
48
49
50
51
52
53





54

55
56
57
58

59
60


awk '/:/ {print $NF}' $1_abg.fig | \
sed 's/\\001//' | \
sort | \
tee $1_raw_list | \
sort -u> $1_unique_raw_list






grep -v  '\[[0-9]*\]'  $1_raw_list | awk --field-separator ':' \

 '{if ($1 ~ "SS") \
	print "% Component type", $1, "\n\t" $2 "\t\texternal\texternal";
	else \
	print "% Component type", $1, "\n\t" $2 "\t\tlin\t\targ1,arg2" }' \

>>$1_lbl.txt









>
>
>
>
>
|
>
|


|
>



50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70


awk '/:/ {print $NF}' $1_abg.fig | \
sed 's/\\001//' | \
sort | \
tee $1_raw_list | \
sort -u> $1_unique_raw_list

#Write out non-unique names
#echo 'Non-unique names (if any):'
#diff $1_unique_raw_list  $1_raw_list | grep '>' | sed 's/>/	/'

#Write out the outline lbl file
grep -v  '\[[0-9]*\]'  $1_unique_raw_list | awk --field-separator ':' \
 '{if (($1 !~ "0")&&($1 !~ "1")) \
    {if ($1 ~ "SS") \
	print "% Component type", $1, "\n\t" $2 "\t\texternal\texternal";
	else \
	print "% Component type", $1, "\n\t" $2"\t\tlin\t\targ1,arg2"} \
 }' \
>>$1_lbl.txt
MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]