11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
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.58 2000/10/17 09:54:29 peterg
## replaced switchopen by logic
##
## Revision 1.57 2000/10/15 10:35:35 peterg
## Fixed _input.p header
##
## Revision 1.56 2000/10/14 09:14:24 peterg
## *** empty log message ***
##
## Revision 1.55 2000/10/11 09:06:17 peterg
|
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
|
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
|
-
+
|
{*** System $Sys, rep $rep, language Pascal, file $Filename ***}
{*** Translated by MTT from $Sys_rep.m on `date` ***}
EOF
# Regexps
name="[a-zA-Z0-9_]*"
name="[a-zA-Z0-9_][a-zA-Z0-9_][a-zA-Z0-9_]*"
fun_name="$Sys\_$name"
mttfun_name=$name
tab=' '
space="[ $tab]*"
spaces="[ $tab][ $tab]*"
non_space="[^ ]*"
args='[a-zA-Z0-9,._"]*'
|