[418] | 1 | $! JGRAPH.COM: Execute jgraph on VMS.
|
---|
| 2 | $ SAVE_VER = 'F$VERIFY( F$TRNLNM( "JGRAPH_VERIFY"))'
|
---|
| 3 | $ ! How to use this procedure:
|
---|
| 4 | $ ! (1) define a symbol to execute the command file
|
---|
| 5 | $ ! $ JGRAPH :== @dev:[directory]JGRAPH.COM
|
---|
| 6 | $ ! We will assume that both this jgraph.com and jgraph.exe reside
|
---|
| 7 | $ ! in dev:[directory].
|
---|
| 8 | $ ! (2) Then, to run the program with say the HYPERCUBE.JGR file,
|
---|
| 9 | $ ! $ JGRAPH HYPERCUBE ! (Yes you can leave off the .JGR extension)
|
---|
| 10 | $ ! To generate a stand-alone PostScript file that can be sent directly
|
---|
| 11 | $ ! to the printer, use:
|
---|
| 12 | $ ! $ JGRAPH HYPERCUBE "-P"
|
---|
| 13 | $ ! or simply
|
---|
| 14 | $ ! $ JGRAPH HYPERCUBE -P
|
---|
| 15 | $ ! If you really want lowercase to reprint input in expanded form:
|
---|
| 16 | $ ! $ JGRAPH HYPERCUBE "-p"
|
---|
| 17 | $ ! The resulting output file will have a ".jps" extension.
|
---|
| 18 | $!
|
---|
| 19 | $ ON ERROR THEN GOTO EXIT
|
---|
| 20 | $ ON CONTROL_Y THEN GOTO EXIT
|
---|
| 21 | $!
|
---|
| 22 | $L1:
|
---|
| 23 | $ P1 = F$SEARCH( F$PARSE( P1, ".JGR"))
|
---|
| 24 | $ IF P1 .NES. "" THEN GOTO L2
|
---|
| 25 | $ INQUIRE /LOCAL P1 "Input File : "
|
---|
| 26 | $ GOTO L1
|
---|
| 27 | $L2:
|
---|
| 28 | $ JPS_FILE = F$PARSE( P1,,, "NAME") + ".JPS"
|
---|
| 29 | $ THIS_FILE = F$ENVIRONMENT("PROCEDURE")
|
---|
| 30 | $ HERE = F$PARSE(THIS_FILE,,,"DEVICE",) + F$PARSE(THIS_FILE,,,"DIRECTORY",)
|
---|
| 31 | $ RUN_JGRAPH := $'HERE'JGRAPH
|
---|
| 32 | $!
|
---|
| 33 | $ TMP = F$VERIFY( 1)
|
---|
| 34 | $ RUN_JGRAPH <'p1' >'jps_file' "''P2'"
|
---|
| 35 | $ $status = $STATUS
|
---|
| 36 | $ TMP = 'F$VERIFY( TMP)
|
---|
| 37 | $!
|
---|
| 38 | $EXIT:
|
---|
| 39 | $ EXIT $status + 0*F$VERIFY( SAVE_VER)
|
---|