11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# Copyright (c) P.J.Gawthrop 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.52 2000/08/24 08:30:45 peterg
## *** empty log message ***
##
## Revision 1.51 2000/08/01 12:25:24 peterg
## Some changes to include files
##
## Revision 1.50 2000/05/19 17:46:41 peterg
|
>
>
>
|
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
# Copyright (c) P.J.Gawthrop 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.53 2000/08/24 17:10:59 peterg
## New dummy variables mtt_o (for optimisation), mtt_s (for segmentation)
##
## Revision 1.52 2000/08/24 08:30:45 peterg
## *** empty log message ***
##
## Revision 1.51 2000/08/01 12:25:24 peterg
## Some changes to include files
##
## Revision 1.50 2000/05/19 17:46:41 peterg
|
354
355
356
357
358
359
360
361
362
363
364
365
366
367
|
space="[ $tab]*"
spaces="[ $tab][ $tab]*"
non_space="[^ ]*"
args='[a-zA-Z0-9,._"]*'
# Body
cat $Sys_rep.m |\
grep -v '^[ ]*function' |\
grep -v '^[ ]*endfunction' |\
grep -v 'MTT_data' |\
sed "s/^$space%/#/" | sed "s/\([;)]$space\)%/\1#/" |\
awk -F# '{printf("%s",$1)
if (NF>1) printf("{* %s *}", $2)
printf("\n")
|
>
|
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
|
space="[ $tab]*"
spaces="[ $tab][ $tab]*"
non_space="[^ ]*"
args='[a-zA-Z0-9,._"]*'
# Body
cat $Sys_rep.m |\
grep -v 'Remove in mtt_m2p' |\
grep -v '^[ ]*function' |\
grep -v '^[ ]*endfunction' |\
grep -v 'MTT_data' |\
sed "s/^$space%/#/" | sed "s/\([;)]$space\)%/\1#/" |\
awk -F# '{printf("%s",$1)
if (NF>1) printf("{* %s *}", $2)
printf("\n")
|