Return to %uredi.m CVS log

Up to [Coherent Logic Development] / freem / contrib

Annotation of freem/contrib/%uredi.m, revision 1.1

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