Return to %ED.m CVS log

Up to [Coherent Logic Development] / freem / contrib

Annotation of freem/contrib/%ED.m, revision 1.1.1.1

1.1       snw         1: %ED    ; A.Trocha; initialize Editor Global 01/29/1999 03:07/GMT+1
                      2:        ; $Source: /cvsroot-fuse/gump/FreeM/mlib/%ED.m,v $
                      3:        ; $Revision: 1.3 $ $Date: 2000/02/18 15:13:41 $
                      4:        ; after having run this proggy you can invoke the editor by
                      5:        ; entering X ^%E
                      6:        ;
                      7:        ; by default VI is used as editor. If you would like another editor
                      8:        ; please set the ^%SYS("EDITOR") Global accordingly
                      9:        ;
                     10:        S ^%E="N a,prg,f,exec,e X ^%E(1)"
                     11:        S ^%E(1)="W !!,""EDIT PROGRAM NAME: "" R prg Q:prg=""""  X ^%E(2)"
                     12:        S ^%E(2)="S prg=$TR(prg,""^""),f=$V(4) X ^%E(3)"
                     13:        S ^%E(3)="S:$A(prg)=37 f=$V(8) X ^%E(4)"
                     14:        S ^%E(4)="S:$L(f)>0&($A(f,$L(f))'=47) f=f_$C(47) X ^%E(5)"
                     15:        S ^%E(5)="D rexist^%ED(prg) S e=^%UTILITY($J,""%ED"") X ^%E(5.5)"
                     16:        S ^%E(5.5)="X:e=0 ^%E(6) X:e=1 ^%E(12)"
                     17:        S ^%E(6)="W !,""CREATE A NEW PROGRAM? <Y>: "" X ^%E(7)"
                     18:        S ^%E(7)="R a S a=$TR(a,""y"",""Y"") S:a="""" a=""Y"" X ^%E(8)"
                     19:        S ^%E(8)="Q:a'=""Y""  X ^%E(9)"
                     20:        S ^%E(9)="ZR  X ^%E(10)"
                     21:        S ^%E(10)="ZI prg_"" ; [""_$ZD_""-""_$ZT_""]"" ZS @prg X ^%E(11)"
                     22:        S ^%E(11)="W !,prg_"" created!"",*7 H 1 X ^%E(12)"
                     23:        S ^%E(12)="S exec=""!"_$$ed^%ED()_" ""_f_prg_$V(98) X ^%E(13)"
                     24:        S ^%E(13)="x exec S tmp=$V(1) U 0:(0::::65) X ^%E(14)"
                     25:        S ^%E(14)="V 23:""zl ""_prg_"" zl ""_prg_"" V 1:tmp""_$C(13)"
                     26:        I $G(QUIET)=1 Q
                     27:        ;
                     28:        W !,"Full Screen Editor installed."
                     29:        W !,"To use the editor enter:  X ^%E",!!
                     30:        Q
                     31:        ;
                     32:        ;
                     33: rexist(rtn) ;--- check if a given routine exists
                     34:        N exec
                     35:        S $ZT="error^%ED"
                     36:        S exec="ZL "_rtn_" G cont^%ED" X exec
                     37: cont   S ^%UTILITY($J,$ZN)=1 Q
                     38: error  S ^%UTILITY($J,$ZN)=0 Q
                     39:        ;
                     40:        ;
                     41: ed()   ;--- which editor to use  (this is used be ^%E)
                     42:        N ed
                     43:        S ed=$G(^%SYS("EDITOR"))
                     44:        I $TR(ed," ")="" Q "vi"
                     45:        Q ed
                     46:        ;
                     47: chksum() ;--- chksum... not used yet... wanted to use it to determine if a
                     48:        ;---- routine was changed to change to date+time in the header line
                     49:        N sum,i,line
                     50:        S i=0:1 S line=$T(+i) Q:line=""  S sum=$G(sum)+$ZCRC(line)
                     51:        Q sum
                     52:        ;
                     53:        ;
                     54: other  ;--- entry-point for %SYSGEN to change default editor
                     55:        N x,erg,QUIET
                     56:        S %ta=+$G(%ta)
                     57: other0 W !,?%ta,"Editor: " R x
                     58:        I x="" W !,"Not changed!",! Q
                     59:        W !,?%ta,"Sure? <Y> "
                     60:        S erg=$$ask^%MUTIL("Y")
                     61:        I erg=0 G other0
                     62:        S ^%SYS("EDITOR")=x
                     63:        W !,?%ta,"Changed.",!
                     64:        S QUIET=1 D ^%ED
                     65:        Q
                     66:        ;
                     67:        ;
                     68: current        ;--- show the current editor
                     69:        N ed
                     70:        S %ta=+$G(%ta)
                     71:        S ed=$G(^%SYS("EDITOR"))
                     72:        W !!,?%ta,"Current Editor: "
                     73:        W $S(ed'="":ed,1:"vi")
                     74:        Q