Return to %uredi.m CVS log

Up to [Coherent Logic Development] / freem / contrib

Annotation of freem/contrib/%uredi.m, revision 1.1.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: