$! ---diagramh.vax--- $! $! VAX VMS procedure procedure to diagram $! HTML language source code files. $ $! Caution: This has not been tested since making changes, as I do not $! have a VAX available. $! $! Usage: $! diagramh.vax filename(s) $! to append diagram of the file(s) to diagram.out $! $! Note--This does not delete diagram.out before appending to it. $! I assume that the executable and this procedure are in your search path. $! $! Written by Mitchell R Grunes. $! for his own and other's use, written in his own time $! $! Utilities for this and other languages and plastforms are documented at $! http://mgrunes.com/diagram/index.html $ $ $ if P1 .EQS. "" $ then $ define/user sys$input sys$command $ run diagramh $ goto quit $ endif $ $! Must pre-create diagram.out if does not exist $ open/append/error=noSkip diagram.out diagram.out $ goto Skip $noSkip: $ open/write diagram.out diagram.out $Skip: $ close diagram.out $ $! Must pre-create diagram2.sc with same file attributes $ open/write diagram2.sc diagram2.sc $ close diagram2.sc $ $ write sys$output "========================-- "+P1+" --========================" $ !Prompt answers: input from %1, output to diagram2.sc (for now), $ ! place numbers in column 80, don't use IBM PC graphics, $ ! warn of lines over 5000 cols. $ $ open/write diagram.sc diagram.sc $ write diagram.sc "$Run diagramh" $ write diagram.sc P1 $ write diagram.sc "diagram2.sc" $ write diagram.sc 80 $ write diagram.sc 0 $ write diagram.sc 0 $ write diagram.sc "5000" $ close diagram.sc $ $ @diagram.sc $ $ append diagram2.sc diagram.out $ delete diagram.sc;* $ delete diagram2.sc;* $ $ if (P2 .NES. "") then @diagramh.vax 'P2' 'P3' 'P4' 'P5' 'P6' 'P7' 'P8' $ $quit: