[613] | 1 | RGUTIN ;CAIRO/DKM - Platform specific inits;04-Sep-1998 11:26;DKM
|
---|
| 2 | ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
|
---|
| 3 | ;=================================================================
|
---|
| 4 | N RGOS,RGD,RGH,X
|
---|
| 5 | S U="^",X="ERROR^RGUTIN",@^%ZOSF("TRAP"),RGOS=$P(^%ZOSF("OS"),U,2)
|
---|
| 6 | I 'RGOS D
|
---|
| 7 | .D HOME^%ZIS,TITLE^RGUT("RTL Platform-specific Inits",1.6)
|
---|
| 8 | .S RGD(1)="$$TEST^RGUTIN(""RGUTIN""_%S)"
|
---|
| 9 | .S RGH(1)="Enter the name of this MUMPS environment for the RG-namespace"
|
---|
| 10 | .S RGH(2)="platform-specific initialization process."
|
---|
| 11 | .S RGOS=$$ENTRY^RGMSCLKP("^DD(""OS"")","UX","Operating System: ","B","*","RGD","",0,5,"","","HELP(.RGH)")
|
---|
| 12 | .W !!
|
---|
| 13 | D:RGOS>0 INIT(RGOS)
|
---|
| 14 | Q
|
---|
| 15 | INIT(RGOS) ;
|
---|
| 16 | N I,X,Y,Z
|
---|
| 17 | S X="RGUTIN"_RGOS,I=0
|
---|
| 18 | I '$$TEST(X) D Q
|
---|
| 19 | .X "ZL RGUTOS1 ZS RGUTOS"
|
---|
| 20 | .W !!,"Init not found for specified OS. Will use generic init.",!!
|
---|
| 21 | K ^TMP($J)
|
---|
| 22 | F Z=0,RGOS F X=$S(Z:3,1:1):1 S Y=$T(+X^@("RGUTIN"_Z)) Q:Y="" S I=I+1,^TMP($J,I)=Y
|
---|
| 23 | S $P(^TMP($J,1),";")="RGUTOS "
|
---|
| 24 | X "ZR F Z=1:1:I ZI ^TMP($J,Z) ZS:Z=I RGUTOS"
|
---|
| 25 | W !!,"Initialization completed for "_$P(^DD("OS",RGOS,0),"^")_" operating system.",!!
|
---|
| 26 | K ^TMP($J)
|
---|
| 27 | Q
|
---|
| 28 | TEST(X) X ^%ZOSF("TEST")
|
---|
| 29 | Q $T
|
---|
| 30 | ERROR W !!,"An error has occurred during initialization.",!
|
---|
| 31 | Q
|
---|