← Back to branch summary

~ubuntu-branches/ubuntu/karmic/grace/karmic

« back to all changes in this revision

Viewing changes to arch/vms/dotest.com

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2002-03-19 14:19:58 UTC
  • Revision ID: james.westby@ubuntu.com-20020319141958-5gxna6vo1ek3zjml
Tags: upstream-5.1.7
Import upstream version 5.1.7

Show diffs side-by-side

added added

removed removed

Lines of Context:
arch/vms/dotest.com
 
1
$ ! This command file reads DOTEST. and executes the GRACE commands.
 
2
$ !
 
3
$ XMGRACE = XMGRACE + " -noask"
 
4
$ !
 
5
$ ON CONTROL_Y THEN GOTO DONE
 
6
$ ON ERROR THEN GOTO DONE
 
7
$ OPEN IN DOTEST.
 
8
$LOOP:
 
9
$ READ/END=DONE IN REC
 
10
$ IF (F$EXTRACT (0, 6, REC) .EQS. "$GRACE")
 
11
$ THEN
 
12
$   REDIR = F$ELEMENT (1, "<", REC)
 
13
$   IF (REDIR .NES. "<")
 
14
$   THEN
 
15
$     WRITE SYS$OUTPUT "$ DEFINE/USER SYS$INPUT ''REDIR'"
 
16
$     DEFINE/USER SYS$INPUT 'REDIR'
 
17
$     REC = F$ELEMENT (0, "<", REC)
 
18
$   ENDIF
 
19
$   REC = "XM" + (REC - "$")
 
20
$   WRITE SYS$OUTPUT "$ ", REC
 
21
$   'REC'
 
22
$ ENDIF
 
23
$ GOTO LOOP
 
24
$DONE:
 
25
$ CLOSE IN
 
26
$ EXIT