Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
MUMPS V1 OS File Entry for Fileman 22.3
58 views
Skip to first unread message
Sam Habiel
May 24, 2013, 12:01:35 PM5/24/13
to
I have been working on this off and on and I am giving up for now. After a lot of trial and error, these settings seem to work. One thing I could never get to work is the Function key sequences from Fileman since MV1 doesn't seem to read stuff after the escape key when terminators are turned off. I haven't debugged this yet.
NAME: MUMPS V1 GLOBAL LENGTH (MAX): 250
ROUTINE SIZE (MAX): 15000 NEW COMMAND: SUPPORTED
INDIVIDUAL SUBSCRIPT LENGTH: 250
BREAK LOGIC: U:$G(X) $I:("CONTROLC") U:'$G(X) $I:("NOCONTROLC")
SAVE SYMBOL TABLE: X "S %=$&%ZWRITE(X)"
ROUTINE EXISTENCE TEST: I $L($T(^@X))
DELETE ROUTINE: X "K ^$R(X)" ECHO OFF: U $I:("NOECHO")
ECHO ON: U $I:("ECHO")
HIGHEST CHARACTER VALUE: N DIUTF8 S DIUTF8=$L($C(256))>0 S Y=$C($S(DIUTF8:9830
37,1:255))
LOAD ROUTINE INTO ARRAY: N %,%N S %N=0 F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N^@X)
Q:$L(%)=0 S @(DIF_XCNP_",0)")=%
SELECT ROUTINES: K ^UTILITY($J) D ^%ZRSEL S X="" X "F S X=$O(^%UTILITY($J,""R
OUTINE"",X)) Q:X="""" S ^UTILITY($J,X)=""""" K ^%UTILITY($J,"ROUTINE")
WRITE FROM SDP: O DIO F U DIO R % Q:%="#$#" U IO W:$A(%)'=12 ! W %
FIND SDP END: W !,"#$#",! C IO
TURN OFF READ TERMINATORS: U $I:("TERMINATOR="_$C(10,13,27))
TURN ON READ TERMINATORS: U $I:("TERMINATOR="_$C(0,1,2,3,4,5,6,7,8,9,10,11,12,
13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31))
GET READ TERMINATOR: X "S Y=$A($K)"
CHECK EXISTENCE OF UCI: K Y N % X "F %=1:1:64 I ^$S(""VOL"",1,""UCI"",%)=X S Y
=1" S Y=$G(Y,0)
SET $X & $Y FROM 'IOX' & 'IOY': S $X=IOX,$Y=IOY
ZSAVE CODE: X "M ^$R(X)=^UTILITY($J,0)"
NAME: MUMPS V1 GLOBAL LENGTH (MAX): 250
ROUTINE SIZE (MAX): 15000 NEW COMMAND: SUPPORTED
INDIVIDUAL SUBSCRIPT LENGTH: 250
BREAK LOGIC: U:$G(X) $I:("CONTROLC") U:'$G(X) $I:("NOCONTROLC")
SAVE SYMBOL TABLE: X "S %=$&%ZWRITE(X)"
ROUTINE EXISTENCE TEST: I $L($T(^@X))
DELETE ROUTINE: X "K ^$R(X)" ECHO OFF: U $I:("NOECHO")
ECHO ON: U $I:("ECHO")
HIGHEST CHARACTER VALUE: N DIUTF8 S DIUTF8=$L($C(256))>0 S Y=$C($S(DIUTF8:9830
37,1:255))
LOAD ROUTINE INTO ARRAY: N %,%N S %N=0 F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N^@X)
Q:$L(%)=0 S @(DIF_XCNP_",0)")=%
SELECT ROUTINES: K ^UTILITY($J) D ^%ZRSEL S X="" X "F S X=$O(^%UTILITY($J,""R
OUTINE"",X)) Q:X="""" S ^UTILITY($J,X)=""""" K ^%UTILITY($J,"ROUTINE")
WRITE FROM SDP: O DIO F U DIO R % Q:%="#$#" U IO W:$A(%)'=12 ! W %
FIND SDP END: W !,"#$#",! C IO
TURN OFF READ TERMINATORS: U $I:("TERMINATOR="_$C(10,13,27))
TURN ON READ TERMINATORS: U $I:("TERMINATOR="_$C(0,1,2,3,4,5,6,7,8,9,10,11,12,
13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31))
GET READ TERMINATOR: X "S Y=$A($K)"
CHECK EXISTENCE OF UCI: K Y N % X "F %=1:1:64 I ^$S(""VOL"",1,""UCI"",%)=X S Y
=1" S Y=$G(Y,0)
SET $X & $Y FROM 'IOX' & 'IOY': S $X=IOX,$Y=IOY
ZSAVE CODE: X "M ^$R(X)=^UTILITY($J,0)"
Ray Newman
May 24, 2013, 6:13:33 PM5/24/13
to
8,9,10,11,12,13,14,16,18,20,21,22,23,24,25,26,28,29,30,31)) Q
;This code is DOne to USE 0 correctly for ESCAPE sequences.
The result comes back in $KEY.
Ray Newman
0 new messages