Files
2025-10-14 09:52:32 +09:00

416 lines
20 KiB
Plaintext

;@Extension.Container.Version.1
;-- DO NOT CHANGE THE LINE ABOVE --
IF (VERSION.BUILD.BASE()<138311.)
(
PRINTF %ERROR "%s: Software too old, please contact support@lauterbach.com." "XNG"
ENDDO
)
PMACRO.EXPLICIT
PRIVATE &sParamline &sPpf &sCmd &sParameters &sAccess &sAccessSpaces &sAccessMachine &sOptionAccess &sOptionAccessMisc &sName &sMachine &sArguments &nVariant
PRIVATE &bTaskConfig &bExtLoad &bCleanup
ENTRY &sCmd %LINE &sParamline
&sParameters=STRing.SCANAndExtract("&sParamline","PARAMETERS=","")
&sAccess=STRing.SCANAndExtract("&sParamline","ACCESS=","")
&sAccessSpaces=STRing.SCANAndExtract("&sParamline","ACCESSSPACES=","")
&sAccessMachine=STRing.SCANAndExtract("&sParamline","ACCESSMACHINE=","")
&sName=STRing.SCANAndExtract("&sParamline","NAME=","")
&sMachine=STRing.SCANAndExtract("&sParamline","MACHINE=","")
&sArguments=STRing.SCANAndExtract("&sParamline","ARGUMENTS=","")
&sParameters=STRing.Replace("&sParameters","""","",0.)
IF ("&sArguments"!="")
&sArguments=&sArguments
IF ("&sAccess"!="")
&sOptionAccess="/ACCESS &sAccess"
IF ("&sAccessSpaces"!="")
&sOptionAccessMisc="/ACCESSSPACES &sAccessSpaces"
IF ("&sAccessMachine"!="")
&sOptionAccessMisc="&(sOptionAccessMisc) /ACCESSMACHINE &sAccessMachine"
&sName=STRing.Replace("&sName","""","",0.)
&bTaskConfig=STRing.SCAN("task.config,ext.config",STRing.LoWeR("&sCmd"),0.)>=0.
&bExtLoad=STRing.SCAN("ext.load",STRing.LoWeR("&sCmd"),0.)>=0.
&bCleanup=STRing.SCAN("task.res,ext.res,ext.delete",STRing.LoWeR("&sCmd"),0.)>=0.
&sPpf=OS.PresentPracticeFile()
IF (&bTaskConfig||&bExtLoad)
(
IF ("&nVariant"!="32.")&&("&nVariant"!="64.")
(
IF CPUIS64BIT()
&nVariant="64."
ELSE
&nVariant="32."
)
IF STRing.ComPare("&sArguments","*32BIT*")
&nVariant="32."
ELSE IF STRing.ComPare("&sArguments","*64BIT*")
&nVariant="64."
)
IF (&bTaskConfig)
(
PRIVATE &sMachineName
&sMachineName="XNG"
TASK.RESet
IF (&nVariant==32.)
(
GOSUB extension_32bit "&sParameters" "&sOptionAccess"
IF !STRing.Compare("&sArguments","*MENU=NONE*")
GOSUB menu_32bit "&sMachineName" ""
GOSUB autoload_32bit ""
)
ELSE IF (&nVariant==64.)
(
PRINTF %ERROR "%s: No support for %ubit, please contact support@lauterbach.com." "XNG" &nVariant
)
)
ELSE IF (&bExtLoad)
(
PRIVATE &sMachineName &sInfix &sOptionName &sOptionMachine
&sInfix=""
&sMachineName="XNG"
IF ("&sName"!="")
(
&sInfix=STRing.UPpeR("&(sName).")
&sMachineName="&(sName)"
&sOptionName="/NAME &sMachineName"
)
ELSE IF PRACTICE.FUNCtion.AVAILable(SYStem.Option.MACHINESPACES)
(
IF SYStem.Option.MACHINESPACES()
&sInfix=TASK.TRANSPOSE.INFIX(OS.FILE.BASENAME("&sPpf",".**"))+"."
)
IF ("&sMachine"!="")
(
&sOptionMachine="/MACHINE &sMachine"
)
IF (&nVariant==32.)
(
GOSUB extension_32bit "&sParameters" "&sOptionAccess &sOptionAccessMisc &sOptionName &sOptionMachine"
IF !STRing.Compare("&sArguments","*MENU=NONE*")
GOSUB menu_32bit "&sMachineName" "&sInfix"
GOSUB autoload_32bit "&sOptionMachine"
)
ELSE IF (&nVariant==64.)
(
PRINTF %ERROR "%s: No support for %ubit, please contact support@lauterbach.com." "XNG" &nVariant
)
)
ELSE IF (&bCleanup)
(
PRIVATE &sMachineName &sOptionMachine
&sMachineName="XNG"
IF ("&sName"!="")
(
&sMachineName="&(sName)"
)
IF ("&sMachine"!="")
(
&sOptionMachine="/MACHINE &sMachine"
)
GOSUB menu_delete "&sMachineName"
GOSUB autoload_delete "&sOptionMachine"
)
ENDDO
extension_32bit: ; (options)
(
PARAMETERS &sParameters &sOptions
EXTension.LOAD &sParameters &sOptions
(
VDMyTQAwMDMuMDAxQCgjKVRSQUNFMzIgY29uZmlndXJhdGlvbiBmaWxlIFYwMDMuMDAxIDogYXJt
L3huZwAAAAAAAAAAAAAAdGwAACfcZGwAAAHIZGEABAAAZXAAAAAkaHMABAK8AABURVhUAAECAwAA
HXwAACAcAAAAAAAAAAAAAAAAAAAAAAAAAABOgAAglCH/8HwIAqaQAQAUSAAH0UgAFLVIABbBPGAA
ADhjGihIABv1PGAAADhjF0RIABwNPGAAADhjF9RIABwNPGAAADhjGExIABwNPGAAADhjGkhIABvR
PGAAADhjGwBIABvRPGAABDhjAbhIABzlgAEAFHwIA6Y4IQAQToAAIJQh/9B8CAKmkAEANDxgAAA4
YyAgSAAb8T0gAASQaQJkPGAAADhjICxIABu5PSAABJBpAlg8YAAAOGMgQEgAG6U9IAAEkGkCVDxg
AAA4YyBUSAAbkTkj//85QP/9fAlQQECBAWg9IAAEkGkCSD0gAASBKQJUOSn//zlA//18CVBAQYEC
BD0gAAQ5QAAAkUkCYD0gAAQ5QAABkUkCXDxgAAA4YyB0SAAbPT0gAASQaQJQPSAABIEpAng5Kf//
OUD//XwJUEBAgQAQPSAABDlAAoCRSQJ4PSAABDlAAOCRSQJsPGAAADhjIJhIABsRPGAAADhjIKBI
ABr5PSAABJBpAmg8YAAAOGMgsEgAGuU9IAAEkGkCmDxgAAA4YyC8SAAa3T0gAASQaQKUPGAAADhj
IMxIABq9PSAABJBpAnQ8YAAAOGMg1EgAGqk9IAAEkGkCiDxgAAA4YyDgSAAalT0gAASQaQJwPGAA
ADhjIPBIABqBPSAABJBpAnw8YAAAOGMhAEgAGnk9IAAEkGkChDxgAAA4YyEQSAAaWT0gAASQaQKA
PGAAADhjIRhIABpFPSAABJBpApA4YAAAgAEANHwIA6Y4IQAwToAAIJPhACw4YwAkPSAABJBpAkg4
gAAESAAaTXx/G3lBggAMg+EALEv//oA9QAAAOSohIIDKISCA6QAEgQkACIFJAAyQwQAIkOEADJEB
ABCRQQAUgUkAEIEpABSRQQAYkSEAHD0gAASAaQJISAAZ4YEhAAh8A0gAQYIALIEhABB8A0gAQYIA
HIEhABg74AACfAkYAEGCABCD4QAsS//+DDvgAAFX6Rg4fSFKFIFJAAw9IAAEkUkCeIPhACxL//3s
PSAABDlAAAGRSQJgPSAABDlAAAKRSQJcPGAAADhjIIRIABk9PSAABJBpAkw9IAAEgSkCeDkp//85
QP/9fAlQQECBABA9IAAEOUAH8JFJAng9IAAEOUAA7JFJAmxL//4APSAABIFJAmQ5Kv//OGAAADkA
//18CUBATYEAIJQh//B8CAKmkAEAFD0gAASAaQJofGoaFEgAGPmAAQAUfAgDpjghABBOgAAgPSAA
BIFJAmQ5Kv//OGD//zkA//18CUBATYEAIJQh//B8CAKmkAEAFD0gAASAaQKYfGoaFEgAGLE9IAAE
gSkCZHxjShSAAQAUfAgDpjghABBOgAAgPSAABIFJAlg5Kv//OGD//zkA//18CUBATYEAIJQh//B8
CAKmkAEAFH1DU3hIABhlgAEAFHwIA6Y4IQAQToAAIJQh//B8CAKmkAEAFDygAAA4pSE4OIAAIDxg
AAQ4YwKcSAAYqT0gAASQaQKMPGAAADhjCQyAAQAUfAgDpjghABBOgAAglCH/0HwIAqaQAQA0k4EA
IJPBACiT4QAsfH8beHycI3g9IAAEgSkCYCwJAABAggD0PSAABIBpAlQ5I///O8D//zlA//18CVBA
QIEAnH/k+3g8YAAAOGMhREgAGDk8YAAAOGMhUEgAGEV/5Pt4PGAAADhjJDxIABfJSAAYAT0gAASA
aQJ0OIAAEHx/GhRIABfVSAAX6Uv//uk5I///OUD//XwJUEBAgQF8SAAX0TicAAE8YAAAOGMhXEgA
F4VIABe9KB4ABEGBAgA9IAAAOSkjAFfeEDp9SfAufSpKFH0pA6ZOgAQgSAAXKTkj//85QP/9fAlQ
QEGBARwdPAAwOSkAEHxpGhRIABcJfH4beCgDAAFAgv88OGAAAkgAF1VL//8wPSAABIEpAkw5Kf//
O8D//zlA//18CVBAQYH/FJLhAAw4YAABSAAW7Xx3G3g9IAAEg8kCXCweAABBggDAksEACJMBABCT
IQAUk0EAGJNhAByToQAkO6AAADvAAAA/AAAEOyD//TrAAAF9Okt4SAAAJDhjAARIABZ5fHsbeEgA
ADQ7vQABgToCXHwJ6EBAgQBEgTgCTDkpAAhXoyg0fGkaFEgAFk05I///fAnIQECB/8R8G/hAQIL/
zH7es3h8F+hAQIL/wDhgAAJIABaFS///tILBAAiC4QAMgwEAEIMhABSDQQAYg2EAHIOhACRL//5A
O8D//0v//jiC4QAMS//+MD0gAASBKQJ4fTxJ1nxpGhRIABXdfGQbeDxgAAA4YyQ8SAAV/Uv//mQ8
YAAAOGMhZEgAFe08YAAAOGMh7EgAFeE4YAAASAAWCYABADR8CAOmg4EAIIPBACiD4QAsOCEAME6A
ACA8YAAAOGMhbEgAFbFL///EPGAAADhjIXRIABWhS///tDxgAAA4YyF8SAAVkUv//6Q8YAAAOGMh
iEgAFYFL//+Uf8TzeDxgAAA4YyGQSAAVbUv//4CUIf/gfAgCppABACSToQAUk8EAGEv/+/V8fRt4
S//8NXx+G3g4fQABSAAVtSwdAABAgQA8k4EAEJPhABw74AAAP4AABH/k+3h/w/N4S//83YE8ApR/
3koUO/8AAXwd+ABAgv/kg4EAEIPhAByAAQAkfAgDpoOhABSDwQAYOCEAIE6AACCUIf/wfAgCppAB
ABQ8YAAEOGMAAEgAFA2AAQAUfAgDpjghABBOgAAglCH/sHwIAqaQAQBUk4EAQJOhAEST4QBMfHwb
eEv/+0F8fRt4S//7gSwdAABAgQCAkyEANJNBADiTYQA8k8EASHx/G3g7wAAAP0AABDtgAAA/IAAE
gJoCdDigABB8nyIUOGEACEgAFDGbYQAYOIEACH+D43hIABNRLAMAAEGCADiBOQKUf/9KFDveAAF8
HfAAQIL/xDvg//+DIQA0g0EAOINhADyDwQBISAAAHDvg//9IAAAUgyEANINBADiDYQA8g8EASH/j
+3iAAQBUfAgDpoOBAECDoQBEg+EATDghAFBOgAAglCH/8HwIAqaQAQAUS//3iT0gAASBKQKMLAkA
AECCADg9IAAEiSkCnCwJAABAggAUPGAABDhjAAA4YwAkSAAAPDxgAAQ4YwKcS//+1T0gAASQaQKM
PSAABIEpAowsCf//QYIAOCwJAABBggAgPGAABDhjAAA4YwAUgAEAFHwIA6Y4IQAQToAAIDxgAAQ4
YwAAOGMAJEv//+Q8YAAEOGMAADhjADRL///UlCH/4HwIAqaQAQAkk8EAGJPhABx8niN4fL8reDxg
AAA4YyGYSAASqTkj//85QP/9fAlQQECBADA9IAAEgSkCYCwJAABBggEQOGAAAIABACR8CAOmg8EA
GIPhABw4IQAgToAAIJOhABRIABKVO74AAT0gAASBKQJcfT1J1nwJGEBBgAAMg6EAFEv//7A8YAAA
OGMhqEgAEjk5I///OUD//XwJUEBAgQAMg6EAFEv//4xIABJNfGobeDkj//85AP/9fAlAQEGBAPg9
IAAEgSkCYCwJAABBggBQPSAABIBpAlx8fRnWfGP6FBxjAuA4YwAIfGNSFDkj//85QP/9fAlQQEGB
ABw9IAAEgSkCbHxjShSDoQAUOGMBcEv//zSDoQAUS///KB+9Afx8fRoUOSP//zlA//18CVBAQYEA
GD0gAASBKQJsfGNKFIOhABRIAABgg6EAFEv/+Rk5I///OUD//XwJUEBBgf7kPSAABICJAnh8niHW
OIQAeHxkGhRIABGBOSP//zlA//18CVBAQYEAKD0gAASBKQJsfGNKFD0gAASBKQJgLAkAAECC/2w4
YwC4S//+nDhgAABL//6Ug6EAFEv//niUIf+gfAgCppABAGSSwQA4kuEAPJMBAECTIQBEk0EASJNh
AEyTgQBQk6EAVJPBAFiT4QBcPSAABIMJAoxL//gZf4PAUD0gAASAaQKUf5wblkv/9718A+BAQIEB
0H+E43h/A8N4S//4yTxgAAA4YyHsSAAQ+ThgAHpIABEhPGAAADhjIdBIABDlOGAAAEgAEQ09IAAE
gGkCiHx4GhRIABCdfH8beHxkG3g8YAAAOGMh4EgAEQ1/5Pt4PGAAADhjIehIABCpOGAAfkgAENE9
IAAEgGkCcHx4GhRIABBhfH0beHxkG3g8YAAAOGMh8EgAEH04YAB6SAAQpTxgAAA4YyIESAAQaThg
AABIABCRPSAABIBpAnx8eBoUSAAQIT0gAASBKQJkf+NKFCwdAABBggBoO8AAAD7AAAQ/QAAAO1ol
fD7gAAQ/YAAAO3siFD8gAASAdgKAfH8aFEgAD+F8ZBt4f0PTeEgAEAWAdwKQfH8aFEgAD8l8ZBt4
f2PbeEgAD+2BOQKEf/9KFDveAAF8HugAQIL/wDxgAAA4YyHsSAAPzThgAHpIAA/1PSAABIEpAlwo
CQABQIEAmDxgAAA4YyIcSAAPqThgAABIAA/RPSAABIEpAlwsCQAAQYICDJJBACiSYQAskoEAMJKh
ADQ7wAAAPqAAADq1Iiw+wAAAOtYiWD8gAAA7OSJgPuAAADr3InA/QAAAO1okPD9gAAA7eyHsPoAA
AEgAAWA4YAB4SAAPbTxgAAA4YyG0SAAPMThgAABIAA9ZO4AAAEv//hQ8YAAAOGMiJEgADxVL//9s
OGAAfkgADzl/xPN4fqOreEgADv04YAAASAAPJUgAARg4YwAcSAAOuXxzG3h+w7N4SAAO3Tu8AAF+
Zpt4f6XreH8ky3g4YQAISAAO0TihAAg4gAAAfuO7eEgADxV+ZJt4f0PTeEgADql/Y9t4SAAOoTh/
ACBIAA5pfHIbeDh0IoBIAA6NfkaTeH+l63h/JMt4OGEACEgADoU+YAAAOnMiiDihAAg4gAAAfmOb
eEgADsF+RJN4f0PTeEgADlV/Y9t4SAAOTTh/AFhIAA4VfH8beDxgAAA4YyKQSAAONX/m+3h/pet4
fyTLeDhhAAhIAA4tOKEACDiAAAB+Y5t4SAAOcX/k+3h/Q9N4SAAOBX9j23hIAA39O94AAT0gAASB
KQJcfAnwQECBAFR/3/N4KAkAAUGB/tB/5ft4f4TjeH8Dw3hL//qhfH8beDkj//85QP/9fAlQQECB
/sw4YAB+SAAN4TxgAAA4YyI4SAANpThgAABIAA3NS///oIJBACiCYQAsgoEAMIKhADQ8YAAAOGMh
7EgADX2AAQBkfAgDpoLBADiC4QA8gwEAQIMhAESDQQBIg2EATIOBAFCDoQBUg8EAWIPhAFw4IQBg
ToAAIDxgAAA4Yw+sToAAIJQh//B8CAKmkAEAFEv/8Ok8YAAEOGMAXIABABR8CAOmOCEAEE6AACCU
If/gfAgCppABACSTwQAYk+EAHHx/G3h8vit4fIMjeUGCAMQ5P///OUD//XwJUEBAgQA4f+T7eDxg
AAA4YyQ8SAAMzTxgAAA4YyWMSAAMwYABACR8CAOmg8EAGIPhABw4IQAgToAAIJOhABR/5Pt4SAAM
8X/k+3g8YAAAOGMkPEgADI08YAAAOGMljEgADIF/4/t4SAAMSXx9G3gsHgAAQYIAFDkj//85QP/9
fAlQQECBAGh/pOt4PGAAADhjJDxIAAxNPGAAADhjJYxIAAxBOIAAIH/j+3hIAAxNg6EAFEv//3B/
5Pt4PGAAADhjJDxIAAwdPGAAADhjJYxIAAwROT///zlA//18CVBAQYH/RJOhABRL//98fGQbeH/D
83hIAAxBS///kJQh/4B8CAKmkAEAhJPBAHiT4QB8PSAAADkpHZQ9QAAEOUoBuIEJACSA6QAogMkA
LICqAAiAigAEPGAAADhjIxRIAAulS//vYT0gAASBKQJgLAkAAEGCAqA8YAAAOGMjXEgAC4U/wAAA
O94h7H/D83hIAAt1PGAAADhjI5xIAAtpP+AABICfAmQ8YAAAOGMjuEgAC6mAnwJkPGAAADhjJDxI
AAtFgH8CZEgACw18ZBt4PGAAADhjI+BIAAstOIAABIB/AmRIAAtFf8PzeEgACxmAnwJkPSAABIEp
Amh8hEoUPGAAADhjI+hIAAr9S//xnXx+G3h8ZBt4PGAAADhjJAhIAArlPGAAADhjJBBIAAp5fH8b
eHxkG3g8YAAAOGMkJEgACsU5P///OUD//XwJUEBAgQHUPGAAADhjIexIAAqpPGAAADhjJFBIAAqd
S//xhXx/G3h/xfN4PIAAADiEJGw4YQAISAAKjX/k+3g4YQAISAAKyX/k+3g8YAAAOGMiFEgACmU/
4AAEgJ8CWDxgAAA4YySwSAAKUYE/Alg5Kf//OUD//XwJUEBAgQGEPGAAADhjIexIAAoxPSAABIEp
AmAsCQAAQIIBsDxgAAA4YyTgSAAKFT/gAAA7/yTQf+X7eH/k+3g9IAAEgGkCVEv//O0/wAAAO94h
7H/D83hIAAnpPGAAADhjJPxIAAndf+X7eH/k+3g9IAAEgGkCUEv//L1/w/N4SAAJwTxgAAA4YyU0
SAAJtT/gAASAnwJIPGAAADhjIeBIAAn1gJ8CSDxgAAA4YyQ8SAAJkYB/Akg5I///OUD//XwJUEBB
gQFASAAJSXxkG3g8YAAAOGMj4EgACWk9IAAEgIkCeDxgAAA4YyVQSAAJVTxgAAA4YyHsSAAJSTxg
AAA4YyVYSAAI3Xx/G3h8ZBt4PGAAADhjJWRIAAkpOT///zlA//18CVBAQIEA7DxgAAA4YyHsSAAJ
DYABAIR8CAOmg8EAeIPhAHw4IQCAToAAIDxgAAA4YyN8SAAI6Uv//WR/4/t4SAAIrXxkG3g8YAAA
OGMkQEgACM04gAAQf+P7eEgACNlL//4MS//v+Xx/G3h8ZBt4PGAAADhjJNBIAAj5f+T7eDxgAAA4
YyQ8SAAIlTxgAAA4YyWMSAAIiTiAABA9IAAEgGkCWEgACJFL//48PGAAADhjJRhIAAhpPIAAADiE
JNB8hSN4PSAABIBpAkxL//tFPGAAADhjIexIAAhFS//+hDxgAAA4YyOoSAAINUv//sw8YAAAOGMl
hEgACCU4gAAQf+P7eEgACDE8YAAAOGMlkEgACA04gADIf+P7eEgACCVL//7olCH/8HwIAqaQAQAU
PGAABDhjAFw4YwAQSAAHIYABABR8CAOmOCEAEE6AACCUIf/wfAgCppABABST4QAMfH8beHxlG3h8
ZBt4PGAAADhjJdRIAAgtS//rZX/j+3hL//LlgAEAFHwIA6aD4QAMOCEAEE6AACCUIf/wfAgCppAB
ABST4QAMfH8beHxkG3g8YAAAOGMl+EgAB+lL/+shPSAABIBpAnB8fxoUSAAHIYABABR8CAOmg+EA
DDghABBOgAAglCH/8HwIAqaQAQAUk8EACJPhAAx8fht4fJ8jeHyFI3h8ZBt4PGAAADhjJhhIAAeR
S//qyT0gAASAaQJwfH4aFEgABsl8HxhAQIAAWD0gAASAaQJ8fH4aFEgABrE9IAAEgSkCZD1AAASB
SgKAfSlSFD1AAASAigKEf/8h1n/p+hR8fxoUSAAGhYABABR8CAOmg8EACIPhAAw4IQAQToAAIDhg
//9L///klCH/8HwIAqaQAQAUk8EACJPhAAx8fht4fJ8jeHyFI3h8ZBt4PGAAADhjJkRIAAbpS//q
IT0gAASAaQJwfH4aFEgABiF8HxhAQIAAWD0gAASAaQJ8fH4aFEgABgk9IAAEgSkCZD1AAASBSgKQ
fSlSFD1AAASAigKEf/8h1n/p+hR8fxoUSAAF3YABABR8CAOmg8EACIPhAAw4IQAQToAAIDhg//9L
///klCH/8HwIAqaQAQAUk+EADD/gAAQ7/wCAf+P7eEgABRk4fwAYSAAFETh/ADBIAAUJOH8ASEgA
BQGAAQAUfAgDpoPhAAw4IQAQToAAIJQh//B8CAKmkAEAFJPhAAxL/+lNS//sLXx/G3hL/+xtLB8A
AECBAGQ9IAAEgQkClD1AAAQ5SgHIOUr//DkgAAA44AAUfOkDppRqAAR8Y0IUOSkAAXwfSABBggAI
QgD/7DxgAAQ4YwHIVSkQOjlAAAB9Q0kugAEAFHwIA6aD4QAMOCEAEE6AACA5IAAAS///1Dkj//85
QP/9fAlQQECBAAw4YAAAToAAIJQh//B8CAKmkAEAFJPhAAx8fxt4S//ooUv/68l8aRt4OUP//zhg
AAA5AP/9fApAQEGBABx8afhQPSAABIEpApR8Y0uWOGMAAVRjBD6AAQAUfAgDpoPhAAw4IQAQToAA
IJQh//B8CAKmkAEAFJPhAAx8fxt4S//oQTk///85QP/9fAlQQEGBAFCTwQAIPSAABICJAnQ/wAAE
O94CHDigABB8nyIUf8PzeEgABCk5IAAAmT4AEIPBAAg8YAAEOGMCHIABABR8CAOmg+EADDghABBO
gAAgPQAABDkoAhw84AAAOUcm7ICnJuyAygAEoOoACIlKAAqQqAIckMkABLDpAAiZSQAKS///tJQh
//B8CAKmkAEAFJPhAAw8YAAAOGMm+EgABFlL/+eRPSAABIEpAlg5Kf//O+AAADlA//18CVBAQYEA
KD0gAASD6QJgLB8AAECCAHA9IAAEgGkCUDkj//98CVBAQIEAHH/j+3iAAQAUfAgDpoPhAAw4IQAQ
ToAAIJPBAAhIAANBfH4beD0gAASAaQJYSAADMTk+//874AAAOUD//XwJUEBBgQCMOSP//3wJUEBA
gQBUg8EACEv//6w9IAAEgSkCTDkp//874AAAOUD//XwJUEBBgf+Qk8EACDhgAAFIAAMFPSAABIEp
Akw5KQAIVGMoNHxpGhRIAALJfH4beEv//4h8Y/BQPSAABIPpAnh/4/uWO/8AAX/k+3g8YAAAOGMn
EEgAA1GDwQAIS///OIPBAAhL//8wlCH/8HwIAqaQAQAUS//+wYABABR8CAOmOCEAEE6AACCUIf/w
fAgCppABABQ8YAAAOGMnMEgAAwlL/+ZBPSAABIEpAmAsCQAAQYIAHD0gAASBKQJMOSn//zlA//18
CVBAQIEAJDxgAAA4YydISAAC0ThgAACAAQAUfAgDpjghABBOgAAgOGAAAUgAAiU9IAAEgSkCTDkp
AAxUYyg0fGkaFEgAAek5I///OIAAADlA//18CVBAQIEAFDxgAAA4YydsSAACfUv//6w4YwAgSAAB
vXxkG3hL///klCH/4HwIAqaQAQAkk8EAGJPhABx8fht4fJ8jeEv/5YU9IAAEgSkCXHwJ+EBBgQAk
PGAABDhjAjyAAQAkfAgDpoPBABiD4QAcOCEAIE6AACCToQAUS//oeX+j8FA9IAAEgGkClH+9G5ZL
/+gdfAPoQEGBABQ8YAAEOGMCPIOhABRL//+4f+X7eH+k63h/w/N4S//uJTkj//85QP/9fAlQQEGB
ADw4YwAYPUAABDlKAOA5SgAEOSAAEX0pA6aQagAAOGMABDlKAAxCAP/0PGAABDhjAOCDoQAUS///
YDxgAAQ4YwI8g6EAFEv//1CJQwAALAoAAEGCACCJJAAAfAlQAECCABQ4hAABjUMAASwKAABAgv/o
iGQAAHxjUFBOgAAgOEABAXyCEAhOgAAgOEABAnyCEAhOgAAgOEABH3yCEAhOgAAgOEABL3yCEAhO
gAAgOEABPnyCEAhOgAAgOEABQnyCEAhOgAAgOEABRHyCEAhOgAAgOEABRnyCEAhOgAAgOEACAXyC
EAhOgAAgOEACBHyCEAhOgAAgOEACBnyCEAhOgAAgOEACB3yCEAhOgAAgOEADA3yCEAhOgAAgOEAD
EXyCEAhOgAAgOEADFXyCEAhOgAAgOEADY3yCEAhOgAAgOEAEAHyCEAhOgAAgOEAED3yCEAhOgAAg
OEAEMXyCEAhOgAAgOEAEMnyCEAhOgAAgOEAEUnyCEAhOgAAgOEAEU3yCEAhOgAAgOEAFE3yCEAhO
gAAgOEAHAXyCEAhOgAAgOEAHA3yCEAhOgAAgOEAHBHyCEAhOgAAgOEAHFHyCEAhOgAAgOEAKAXyC
EAhOgAAgOEAKFHyCEAhOgAAgvgIDBAAAAAUAQFZFUlNJT04tSU5GT0AAMTAxOTQAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAACfSAAAH6AAAAAYAAAANAAAAAAAAAAAAAAAAaHR0cHM6Ly9zdm4u
aW50ZXJuLmxhdXRlcmJhY2guY29tL3N2bi9rZXJuZWxzcmMvYnJhbmNoZXMvbmlnaHRseQAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AABodHRwczovL3N2bi5pbnRlcm4ubGF1dGVyYmFjaC5jb20vc3ZuL2tlcm5lbHNyYwAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAGJhdW1laXN0ZXIAAAAAAABlZGstbGludXg2NGJpdC03AAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAR0NDIDkuNS4wAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAfo
AAAABgAAAA0AAABOAAAn0gAAB+gAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUZ7WE5HAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAIAAAAFxceGNmXC5kYXRhAGNvcmVQYXJ0aXRpb25UYWIAAAAAeE9iUGFydGl0aW9uc1N0
YXR1cwBDb3JlUGFydGl0aW9uc0dldFBhcnRpdGlvbkJ5SWQAAGJzcENQYXJ0aXRpb24AAABwZXJD
cHVDb3JlU2NoZWR1bGVyAHhjZl90AAAALm5iUGFydGl0aW9ucwAAAC5wYXJ0aXRpb25zAHhjZlBh
cnRpdGlvbl90AAAubmFtZQAAAC5lbnRyeVBvaW50AC5uYk1lbW9yeUFyZWFzAAAubWVtb3J5QXJl
YXMAAAAAeGNmTWVtb3J5QXJlYV90AC5zdGFydAAALnNpemUAAAAAgOsAAAACgBDA68AAAAfwYuf0
TwAABzhwYXJ0aXRpb24AAABFWFQuUEFSVCAleABFWFQuUEFSVAAAAAAlMmQuAAAAAHJlYWR5AAAA
cnVubmluZwBpZGxlAAAAAHN1c3BlbmRlZAAAAHdhaXRpbmcAKCVkLikAAABuYkJzcENwdUN0eHRz
AAAAYnNwQ3B1Q3R4dHMAcGFydGl0aW9uIGluZGV4IG5vdCBmb3VuZCEKAGVudHJ5IHBvaW50OgoA
AABMaXN0ICVhACU4eAoKAAAAbWVtb3J5IGFyZWFzOiAlZC4KAABzdGFydCAgICAgc2l6ZQoAJTh4
CgAAAAB2Y3B1cwoAAHZjcHUKAAAAdmNwdSAlZDoKAAAAY291bGQgbm90IGdldCB2Y3B1IGNvbnRl
bnRzCgAAAAAgIHNwICAAADB4JXg6OjoweCU4eAAAAABEYXRhLmR1bXAgJXMAAAAAICBsciAgAABM
aXN0ICVzACAgcGMgIAAAbWFnaWMgICAgAAAAbmFtZSAgICAgICAgICAgAGlkICAgICAgIAAAAG1p
ZABzdGF0ZSAAAFNvcnJ5OiBwYXJ0aXRpb24gbm90IGZvdW5kLgBQQVJUSVRJT04AAABQQVJUaXRp
b24AAAD//+Ps///kKP//5Dj//+RI///kWCVAY0h5cGVydmlzb3IgQXdhcmVuZXNzIFZlcnNpb24g
ICVzICAlcyAgJTAyZC4lMDJkLiUwNGQgKEJ1aWxkICVzKQoKAAAAAHNtcCAgICAgICAgICAgICAg
ICAgICAgIHRydWUAAAAAc21wICAgICAgICAgICAgICAgICAgICAgZmFsc2UAAAB4Y2YgICAgICAg
ICAgICAgICAgICAgICAAAAAAVmFyLnZpZXcgJSVPcGVuICUlSGV4ICh4Y2ZfdCkoKiglYSkpAAAA
ACAgJTh4ICAAbnVtIHBhcnRpdGlvbnMgKHhjZikgICAgJTh4ICAAAAAlM2QuCgAAAFxceG5nXFxu
YlBhcnRpdGlvbnMAbnVtIHBhcnRpdGlvbnMgKHhuZykgICAgJTh4ACAgJTNkLiAgICAgIAAAAABw
YXJ0aXRpb24gbGlzdCAoeGNmKSAgICAAAAAAVmFyLnZpZXcgJSUlJU9wZW4gJSUlJUhleCAlJSUl
U3RyaW5nICh4Y2ZQYXJ0aXRpb25fdFslZF0pKCooJSVhKSkAAABwYXJ0aXRpb24gbGlzdCAoeG5n
KSAgICAlOHggIAAAAERhdGEuZHVtcCAlYQAAAABwYXJ0aXRpb24gc3RhdHVzICAgICAgICAAAAAA
Y3VycmVudCBwYXJ0aXRpb24gICAgICAgAAAAAGNvcmUgc2NoZWR1bGVyICAgICAgICAgIAAAAABz
aXplb2YgY29yZVBhcnRpdGlvbiAgICAAAAAAJTR4CgAAAAB4bmdWZXJzaW9uAAB4bmcgdmVyc2lv
biAgICAgICAgICAgICAlOHggIAAAACAgICAgICAgICAAAAogICAgAAAAVEVTVAAAAABhcmd1bWVu
dCAgICAgICAgICAgICAgICB2YWx1ZSAgICAgY29udGVudCAgIHN5bWJvbAAARmN0RXh0UGFydE1h
Z2ljOiBwYXIxOiAweCU4eCA9ICVzAAAARmN0RXh0UGFydE1BQ291bnQ6IHBhcjE6IDB4JTh4AABG
Y3RFeHRQYXJ0TUFTdGFydDogcGFyMTogMHglOHgsIHBhcjI6IDB4JTh4AEZjdEV4dFBhcnRNQVNp
emU6IHBhcjE6IDB4JTh4LCBwYXIyOiAweCU4eAAARVhULlBBUlRJVElPTi5NRU1BUkVBLlNJWkUA
AF9fUlRPU19YTkdfX0ZVTkMAAAAARVhULlBBUlRJVElPTi5NRU1BUkVBLlNUQVJUAEVYVC5QQVJU
SVRJT04uTUVNQVJFQS5DT1VOVABFWFQuUEFSVElUSU9OLk1BR0lDAEh5cGVydmlzb3IAAGdldEN1
cnJlbnRHdWVzdElkIGVudHJ5AGdldEN1cnJlbnRHdWVzdElkIGV4aXQsIGlkPSVkLgAAZ2V0Q3Vy
cmVudFZjcHVJZCBlbnRyeQAAZ2V0Q3VycmVudEd1ZXN0SWQgZXhpdCBkZWZhdWx0IDAuAAAAZ2V0
Q3VycmVudFZjcHVJZCBleGl0LCBpZD0lZC4AAABjcHNyAAAAAHIxMwByMTQAcjAAAHIxAAByMgAA
cjMAAHI0AAByNQAAcjYAAHI3AAByOAAAcjkAAHIxMAByMTEAcjEyAHBjAABYTkcAQVJNAERBVEEA
ACLoAAAhVAAAIvQAACNYAAAEYAAAAAMAPAAAAAQARAAAC3gAAAADADwAAAAEAEQAAAd8AAAAAgAA
AAAAACLMAAAAAAAAIpgAACKkAAAitAAAIsAAACLEAAAAAAAAAAEARgAAAAAloAAAEPwAACWYAAAl
mAAAI1gAACNYAAAPoAAAJtgAAAADAAAABwAAAAAAACaMAAAVFAAAJrwAAAADAAAAAwAAAAAAACaM
AAAVXAAAJqAAAAADAAAAAwAAAAMAACaMAAAVqAAAJnAAAAADAAAAAwAAAAMAACaMAAAWUAAAJ4wA
AAAAAAAABAAAJ5QAAAAAAAAABAAAJ5gAAAAAAAAABAAAJ5wAAAAAAAAABAAAJ6AAAAAAAAAABAAA
J6QAAAAAAAAABAAAJ6gAAAAAAAAABAAAJ6wAAAAAAAAABAAAJ7AAAAAAAAAABAAAJ7QAAAAAAAAA
BAAAJ7gAAAAAAAAABAAAJ7wAAAAAAAAABAAAJ8AAAAAAAAAABAAAJ8QAAAAAAAAABAAAJ8gAAAAA
AAAABAAAJ8wAAAAAAAAABAAAJ9AAAAAAAAAABAAAAAAAAAAAAAAAAAAAI1gAACfUAAAn2AAAAABU
MzJF
)
RETURN
)
menu_32bit: ;(header, infix)
(
PMACRO.LOCK
(
PRIVATE &sHeader &sInfix &sMenuName
PARAMETERS &sHeader &sInfix
&sMenuName=TASK.TRANSPOSE.INFIX("&sHeader")
IF MENU.EXIST("TASK.&(sMenuName)")
MENU.Delete.NAME TASK.&(sMenuName)
IF MENU.EXIST("EXT.&(sMenuName)")
MENU.Delete.NAME EXT.&(sMenuName)
MENU.ReProgram
(&+
; --------------------------------------------------------------------------------
; @Title: Menu File for TRACE32 Hypervisor Awareness
; @Description: -
; @Keywords: hypervisor menu awareness
; @Author: DIE KJM
; @Copyright: (C) 1989-2022 Lauterbach GmbH, licensed for use with TRACE32(R) only
; --------------------------------------------------------------------------------
; $Id: xng.m 8129 2022-11-07 12:29:54Z amerkle $
NAME "EXT.&sMenuName"
IF !MENU.EXIST("EXT.&sMenuName")
(
add
menu
(
POPUP "&sHeader"
(
default
menuitem "Display &Partitions" "EXTension.&(sInfix)PARTition"
;menuitem "Display &XCF" "EXTension.&(sInfix)XCF"
separator
MENUITEM "Display Task Tree" "TASK.List.TREE"
;MENUITEM "Display Core Activity" "CORE.List" ; XNG is single-core
)
)
menu "ext.&(sInfix)part"
(
default
menuitem "Display detailed"
(
PRIVATE &magic
&magic=address.offset(track.address())
EXT.&(sInfix)PART &magic
)
menuitem "Display xcf struct"
(
PRIVATE &address
&address=track.address()
Var.view %Open %Hex %String (xcfPartition_t)(*(&address))
)
menuitem "Dump xcf entry"
(
PRIVATE &address
&address=track.address()
Data.dump &address /Long /Dialog
)
)
)
)
)
PMACRO.UNLOCK
RETURN
)
autoload_32bit: ;(options)
(
PARAMETERS &sOptions
RETURN
)
menu_delete: ;(header)
(
PRIVATE &sHeader &sMenuName
PARAMETERS &sHeader
&sMenuName=TASK.TRANSPOSE.INFIX("&sHeader")
IF MENU.EXIST("TASK.&(sMenuName)")
MENU.Delete.NAME TASK.&(sMenuName)
IF MENU.EXIST("EXT.&(sMenuName)")
MENU.Delete.NAME EXT.&(sMenuName)
RETURN
)
autoload_delete: ;(options)
(
PARAMETERS &sOptionMachine
RETURN
)