Return to %ED.m CVS log

Up to [Coherent Logic Development] / freem / mlib

Annotation of freem/mlib/%ED.m, revision 1.1

1.1     ! snw         1: %ED ; EDIT A ROUTINE
        !             2:     N RTN,PTH,EDITOR,CMD
        !             3:     R "Routine: ",RTN
        !             4:     S PTH=^$ROUTINE(RTN,"PATH")
        !             5:     THROW:PTH="" "ZNOPGM"
        !             6:     S EDITOR=^$SYSTEM("ENVIRONMENT","EDITOR")
        !             7:     S:EDITOR="" EDITOR="vi"
        !             8:     S CMD="!"_EDITOR_" "_PTH @CMD
        !             9:     Q