Overview
Comment:Remove the _lower stuff -- see idf this works now.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 6ca7e84e06c5b9fc9214379b3cda24375ea783fc95773f3df0395687533f2303
User & Date: gawthrop@users.sourceforge.net on 1998-11-20 09:48:31
Other Links: branch diff | manifest | tags
Context
1998-11-20
10:07:14
Initial revision check-in: d0a11aa4e1 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
09:48:31
Remove the _lower stuff -- see idf this works now. check-in: 6ca7e84e06 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
09:46:34
Modernised lbl syntax check-in: eb55eea029 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/cr_txt2r from [7b281e063b] to [0caeae9d1b].

︙︙
12
13
14
15
16
17
18






19
20
21
22
23
24
25

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

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






## Revision 1.6  1998/04/14 13:54:15  peterg
## Uses the _sub.sh rep to recursively generate and include sub systems.
##
## Revision 1.5  1998/03/09 13:36:00  peterg
## Cosmetic change
##
## Revision 1.4  1998/03/06 15:54:41  peterg








>
>
>
>
>
>








12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

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

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.7  1998/04/14 17:46:28  peterg
## To avoid clashes when creating for more thsan one top level file, adds
## _lower attribute to lower lecel constitutive relationship files.
## .constitutive relationship files only in top level _constitutive
## relationship files.
##
## Revision 1.6  1998/04/14 13:54:15  peterg
## Uses the _sub.sh rep to recursively generate and include sub systems.
##
## Revision 1.5  1998/03/09 13:36:00  peterg
## Cosmetic change
##
## Revision 1.4  1998/03/06 15:54:41  peterg
︙︙
50
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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96

97
98
99
100
101
102

# Initial revision
#
###############################################################

# The level of the recursion null at top level; _lower at lower levels.
level=$2

crfile=$1_cr$level.r


if [ -f "$crfile" ]; then
    echo "Using    $crfile"
else
    # Inform user
    echo "Creating $crfile"

    echo "% Constitutive relation file for $1 ($crfile)" > $crfile
    echo "% Generated by MTT at `date`" >> $crfile

echo  >> $crfile

    # Recursively create subsystem CR files -- at lower level
    sh $1_sub.sh 'cr_txt2r ' ' _lower' 
    
    # Include subsystem CR files
    sh $1_sub.sh 'echo ' '_cr_lower.r' |\
    awk '{
      print "in \"" $1 "\";"
    }'  >> $crfile

if [ -z "$level" ]; then

    # Copy .cr files
    awk '{
	 if (NF>0) {
         print "mtt -q -u crcopy " $1; 
         }
    }' $1_cr.txt  | sh

    # Include the .cr files
    awk '{
	 if (NF>0) {
         print "in \"" $1 ".cr\";"
         }
    }' $1_cr.txt  >> $crfile

    echo 'END;' >> $crfile
fi


fi
# Now invoke the standard error handling.
#mtt_error mtt_error.txt










|
>










|





|




|















<
|
>







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
90
91
92
93
94
95
96
97
98
99
100
101

102
103
104
105
106
107
108
109

# Initial revision
#
###############################################################

# The level of the recursion null at top level; _lower at lower levels.
level=$2

crfile=$1_cr.r
CRFILE=$1_cr.r

if [ -f "$crfile" ]; then
    echo "Using    $crfile"
else
    # Inform user
    echo "Creating $crfile"

    echo "% Constitutive relation file for $1 ($crfile)" > $crfile
    echo "% Generated by MTT at `date`" >> $crfile

    echo  >> $crfile

    # Recursively create subsystem CR files -- at lower level
    sh $1_sub.sh 'cr_txt2r ' ' _lower' 
    
    # Include subsystem CR files
    sh $1_sub.sh 'echo ' "_cr.r" |\
    awk '{
      print "in \"" $1 "\";"
    }'  >> $crfile

  if [ -z "$level" ]; then

    # Copy .cr files
    awk '{
	 if (NF>0) {
         print "mtt -q -u crcopy " $1; 
         }
    }' $1_cr.txt  | sh

    # Include the .cr files
    awk '{
	 if (NF>0) {
         print "in \"" $1 ".cr\";"
         }
    }' $1_cr.txt  >> $crfile


  fi
echo 'END;' >> $crfile

fi
# Now invoke the standard error handling.
#mtt_error mtt_error.txt

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