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

628 lines
28 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." "QXK"
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="QXK"
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." "QXK" &nVariant
)
)
ELSE IF (&bExtLoad)
(
PRIVATE &sMachineName &sInfix &sOptionName &sOptionMachine
&sInfix=""
&sMachineName="QXK"
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." "QXK" &nVariant
)
)
ELSE IF (&bCleanup)
(
PRIVATE &sMachineName &sOptionMachine
&sMachineName="QXK"
IF ("&sName"!="")
(
&sMachineName="&(sName)"
)
IF ("&sMachine"!="")
(
&sOptionMachine="/MACHINE &sMachine"
)
IF STRing.SCAN(HELP.FILTER(),"rtosqxk",0.)>=0.
HELP.FILTER.Delete rtosqxk
GOSUB menu_delete "&sMachineName"
GOSUB autoload_delete "&sOptionMachine"
)
ENDDO
extension_32bit: ; (options)
(
PARAMETERS &sParameters &sOptions
EXTension.LOAD &sParameters &sOptions
(
VDMyTQAwMDMuMDAxQCgjKVRSQUNFMzIgY29uZmlndXJhdGlvbiBmaWxlIFYwMDMuMDAxIDogYXJt
L3F4awAAAAAAAAAAAAAAdGwAADBAZGwAAANgZGEABAAAZXAAAAAkaHMABAc0AABURVhUAAECAwAA
JMwAACdsAAAAAAAAAAAAAAAAAAAAAAAAAABOgAAglCH/8HwIAqaQAQAUPGAAADhjHChIACNpPGAA
ADhjHMBIACMhPGAAADhjHGRIACMhPGAAADhjHRhIACMhSAAMtUgAD71IABV1SAASUUgAGk1IABuJ
PGAAADhjHhhIACMJPGAAADhjIQhIACMJSAAe0UgAH7VIACFdSAAh/TxgAAQ4YwAASAAkGYABABR8
CAOmOCEAEE6AACCUIf/wfAgCppABABSTwQAIk+EADDxgAAA4YydwSAAi1T0gAASQaQcIP+AAADv/
J3x/4/t4SAAivT0gAASQaQcEf+P7eEgAIrl8YxZwfGMBlD0gAASQaQcAPGAAADhjJ4hIACKRPSAA
BJBpBvw8YAAAOGMnlEgAIn09IAAEkGkG+DxgAAA4YyegSAAimTxgAAA4YyesSAAigT0gAASQaQb0
PGAAADhjJ7RIACJtPSAABJBpBvA9IAAEgSkHDCwJAABAggAgPSAABIEpBwg9QAAEgUoG9H0pUhQ9
QAAEkSoHDDxgAAA4YyfASAAiOTxgAAA4YyfMSAAiIT0gAASQaQbsPGAAADhjJ9RIACINPSAABJBp
Bug8YAAAOGMn4EgAIgUsA///QYIDUD/gAAA7/yfMf+P7eEgAIeE9IAAEkGkG5DxgAAA4Yyf4SAAh
zT0gAASQaQbgPGAAADhjKABIACG5PSAABJBpBtw8YAAAOGMoDEgAIaU9IAAEkGkG2DxgAAA4YygU
SAAhkT0gAASQaQbUPGAAADhjKCBIACGJPGAAADhjKDBIACFxPSAABJBpBtA8YAAAOGMoPEgAIV09
IAAEkGkGzDxgAAA4YyhESAAhST0gAASQaQbIPGAAADhjKExIACE1PSAABJBpBsQ8YAAAOGMoVEgA
ISE9IAAEkGkGwDxgAAA4YyhcSAAhDT0gAASQaQa8PGAAADhjKGRIACD5PSAABJBpBrg/wAAAO94o
bH/D83hIACDVPSAABJBpBrR/w/N4SAAg3TxgAAA4Yyh0SAAgxT0gAASQaQawPGAAADhjKHxIACCx
PSAABJBpBqw8YAAAOGMoiEgAIJ09IAAEkGkGqDxgAAA4YyiUSAAglX/j+3hIACCBPSAABJBpBqQ8
YAAAOGMopEgAIG09IAAEkGkGoDxgAAA4YyisSAAgWT0gAASQaQacPGAAADhjKLRIACBFPSAABJBp
Bpg8YAAAOGMovEgAIDE9IAAEkGkGlDxgAAA4YyjISAAgKTxgAAA4YyjQSAAgET0gAASQaQaEPGAA
ADhjKNxIAB/9PSAABJBpBpAsA///QYIBXDxgAAA4Yyj0SAAf4T0gAASQaQaILAP//0GCAVg8YAAA
OGMpDEgAH9E8YAAAOGMpGEgAH7k9IAAEkGkGgDxgAAA4YyjQSAAfpT0gAASQaQZ8PGAAADhjKSBI
AB+RPSAABJBpBng/4AAAO/8pLH/j+3hIAB9tPSAABJBpBnR/4/t4SAAfdTxgAAA4Yyk0SAAfXT0g
AASQaQZwPGAAADhjKERIAB9JPSAABJBpBmw8YAAAOGMpPEgAHzU9IAAEkGkGaDxgAAA4YylISAAf
IT0gAASQaQZkPGAAADhjKFxIAB8NPSAABJBpBmA8YAAAOGMoZEgAHvk9IAAEkGkGXDxgAAA4YylQ
SAAe8TxgAAA4YylYSAAe2T0gAASQaQZYPSAABIBpBww4YwABfGMANFRj2X6AAQAUfAgDpoPBAAiD
4QAMOCEAEE6AACA8YAAAOGMn8EgAHqVL//yoPGAAADhjKOhIAB6JPSAABJBpBpBL//6UPGAAADhj
KQBIAB5xPSAABJBpBohL//6YlCH/4JPhABw9IAAEgSkHACwJAABBggDEfAgCppABACSTQQAIk2EA
DJOBABCToQAUk8EAGHx7G3g7wAAAP6AABD9AAAQ/gAAESAAAFDveAAGBPAcAfAnwQECBAFBXyRA6
gH0HBHxpGhRIAB4pfH8beUGC/9yAegbYfH8aFEgAHf18A9gAQIL/yINBAAiDYQAMg4EAEIOhABSD
wQAYgAEAJHwIA6ZIAAAkO+D//4NBAAiDYQAMg4EAEIOhABSDwQAYgAEAJHwIA6Z/4/t4g+EAHDgh
ACBOgAAgO+D//0v//+w9IAAEgSkHACwJAABNggAglCH/4HwIAqaQAQAkk0EACJNhAAyTgQAQk6EA
FJPBABiT4QAcfHsbeDvAAAA/gAAEP0AABD+gAARIAAAUO94AAYE9BwB8CfBAQIEAQFfJEDqAfAcE
fGkaFEgAHUl8fxt5QYL/3IB6Bth8fxoUSAAdHXwD2ABAgv/IOIAAIH/j+3hIAB05S///uIABACR8
CAOmg0EACINhAAyDgQAQg6EAFIPBABiD4QAcOCEAIE6AACCUIf/wfAgCppABABSTwQAIk+EADHx+
G3h8nyN4OGAAekgAHQ08YAAAOGMpYEgAHNE4YAAASAAc+Xwe+EBBggBsPSAABIBpBuQ9IAAEgSkG
WHxjShR8Y/IUSAAcmXxpG3lBggBsPUAABIPKBuB/3khQP+AAADv/KdR/4/t4SAAcgX/E83g8YAAA
OGMphEgAHHE4gAAgf8PzeEgAHHF/4/t4SAAcXUgAABA8YAAAOGMpeEgAHE2AAQAUfAgDpoPBAAiD
4QAMOCEAEE6AACA9IAAEgGkHCD0gAASBKQbwfGNKFEgAHBF8fxt4PSAABIBpBthIABvpOGP//3//
HDBz6QABQYIAFDxgAAA4YymYSAAb8Uv//6Q8YAAAOGMppEgAG+FL//+UlCH/8HwIAqaQAQAUPSAA
BIEpBtB8Y0oUSAAbtSwDAABAggAcPGAAADhjKbSAAQAUfAgDpjghABBOgAAgPGAAADhjKbBL///o
lCH/wHwIAqaQAQBEk2EALJOBADCToQA0k8EAOJPhADw9IAAEgSkG4H+jShQ4YAB6SAAbkTxgAAA4
Yym8SAAbVThgAH5IABt9PGAAADhjKcRIABtBOGAAAEgAG2l/o+t4S///WXxkG3g8YAAAOGMp0EgA
GyE4YAB6SAAbSTxgAAA4YynYSAAbDThgAABIABs1PSAABIBpBsh8fRoUSAAa0Xx/G3g9IAAEgGkG
xHx9GhRIABq9fH4beD0gAASAaQbAfH0aFEgAGql8fBt4PSAABIBpBrx8fRoUSAAalXx7G3g9IAAE
gGkGuHx9GhRIABqBfGgbeH9n23h/huN4f8XzeH/k+3g8YAAAOGMp/EgAGoU9IAAEgGkG0Hx9GhRI
ABppLAMAAECCACiAAQBEfAgDpoNhACyDgQAwg6EANIPBADiD4QA8OCEAQE6AACCTIQAkOGAAekgA
Gm08YAAAOGMqIEgAGjE4YAB+SAAaWTxgAAA4YyosSAAaHThgAABIABpFPGAAADhjKdRIABoJPSAA
BIBpBsh8fRoUSAAZ1Xx/G3g9IAAEgGkGxHx9GhRIABnBfGkHdH//B3Q7////fAn4AEGCAMR9OUt4
fB9IAECBAMCSoQAUksEAGJLhAByTAQAgk0EAKD6gAAQ+wAAEPuAABD8AAAQ/QAAAO1oqTIB1Bsx8
fRoUSAAZgVfpEDp8aRoUSAAZdXx+G3iAdgawfH4aFEgAGVl8fBt4gHcGrHx+GhRIABk9fHsbeIB4
Bqh8fhoUSAAZLXxnG3h/Ztt4f4XjeH/k+3h/Q9N4SAAZOTv///98H8gAQIL/mIKhABSCwQAYguEA
HIMBACCDIQAkg0EAKEv//qg5IP//S///PIMhACRL//6YlCH/4HwIAqaQAQAkk2EADJOBABCToQAU
k8EAGJPhABw9IAAEgSkG6H/jShQ9IAAEg8kGpH/f8hQ4YAB6SAAY8TxgAAA4YypsSAAYtThgAH5I
ABjdPGAAADhjKnxIABihPSAABIBpBrB8fhoUSAAYeXx9G3g9IAAEgGkGrHx+GhRIABhZfHwbeD0g
AASAaQaofH4aFEgAGEV8fht4PSAABIBpBph8fxoUSAAYPXx7G3g9IAAEgGkGlHx/GhRIABgpfGgb
eH9n23h/xvN4f4XjeH+k63g8YAAAOGMqoEgAGCGAAQAkfAgDpoNhAAyDgQAQg6EAFIPBABiD4QAc
OCEAIE6AACCUIf/wfAgCppABABQ8oAAAOKUvuDiAAB88YAAEOGMHFEgAGC09IAAEkGkHEDxgAAA4
YwxYgAEAFHwIA6Y4IQAQToAAIJQh//B8CAKmkAEAFEv/9Fk9IAAEgSkG3CwJ//9BggB0PSAABIEp
BxAsCf//QYIAgCwJAABBggAsPSAABIEpBtQ8YAAEOGMAECwJ//9BggBQPGAABDhjABA4YwBASAAA
QD0gAASBKQbULAn//0GCABQ8YAAEOGMAEDhjABBIAAAgPGAABDhjABA4YwBQSAAAEDxgAAQ4YwAQ
OGMAIIABABR8CAOmOCEAEE6AACA8YAAEOGMAEDhjADBL///klCH/8HwIAqaQAQAUPGAABDhjABA4
YwBgSAAWCYABABR8CAOmOCEAEE6AACCUIf/wfAgCppABABST4QAMfH8beHwDIABBggCUf+T7eDxg
AAA4YyrESAAXETxgAAA4YyrYSAAXEX/k+3g8YAAAOGMq5EgAFolIABbBPSAABIBpBtQsA///QIIA
YD0gAASAaQbYfH8aFEgAFkF8ZBt4PGAAADhjKvBIABZVSAAWjTiAACB/4/t4SAAWaTxgAAA4YynU
SAAWOYABABR8CAOmg+EADDghABBOgAAgOGAAAkgAFk1L//9ofGP6FEgAFe18ZBt4PGAAADhjKuhI
ABYBSAAWOUv//4iUIf/gfAgCppABACSTYQAMPSAABIBpBwxIABXRfHsbeEv/8oU9IAAEgSkHACwJ
AABBggCMk0EACJOBABCToQAUk8EAGJPhABw7wAAAP4AABD9AAAQ/oAAESAAAFDveAAGBPQcAfAnw
QECBAEBXyRA6gHwHBHxpGhRIABVxfH8beUGC/9yAegbcfH8aFEgAFV0sAwAAQYL/yH9k23h/4/t4
S//+iUv//7iDQQAIg4EAEIOhABSDwQAYg+EAHIABACR8CAOmg2EADDghACBOgAAglCH/4HwIAqaQ
AQAkk6EAFJPBABiT4QAcPSAABIPJBxA9IAAEgGkHDEgAFPF8fRt4fGQbeH/D83hL//4hP+AAADv/
KdR/4/t4SAAU3X+k63h/w/N4S//31X/j+3hIABTJf8PzeEv/+8V/4/t4SAAUuX/D83hL//khgAEA
JHwIA6aDoQAUg8EAGIPhABw4IQAgToAAIJQh//B8CAKmkAEAFDygAAA4pSmsOIAAHzxgAAQ4YwcU
SAAUxT0gAASQaQcQPGAAADhjD8CAAQAUfAgDpjghABBOgAAglCH/8HwIAqaQAQAUS//w8T0gAASB
KQcQLAn//0GCADQ8YAAEOGMAqCwJAABAggAUgAEAFHwIA6Y4IQAQToAAIDxgAAQ4YwCoOGMAIEv/
/+Q8YAAEOGMAqDhjABBL///UlCH/8HwIAqaQAQAUPGAABDhjAKg4YwAwSAAS/YABABR8CAOmOCEA
EE6AACCUIf/wfAgCppABABST4QAMfH8beHwDIABBggCEf+T7eDxgAAA4Yyu0SAAUBTxgAAA4YyvI
SAAUBX/k+3g8YAAAOGMq5EgAE31IABO1PSAABIBpBth8fxoUSAATRXxkG3g8YAAAOGMq8EgAE1lI
ABOROIAAIH/j+3hIABNVPGAAADhjKdRIABM9gAEAFHwIA6aD4QAMOCEAEE6AACA4YAACSAATUUv/
/3iUIf/gfAgCppABACSTgQAQPSAABIBpBwxIABL1fHwbeEv/76k9IAAEgSkHACwJAABBggBgk6EA
FJPBABiT4QAcO+AAAD+gAAQ/wAAESAAAHH+E43hL//8FO/8AAYE+BwB8CfhAQIEAIFfpEDqAfQcE
fGkaFEgAEpksAwAAQYL/3Ev//9CDoQAUg8EAGIPhAByAAQAkfAgDpoOBABA4IQAgToAAIJQh//B8
CAKmkAEAFJPhAAw9IAAEg+kHED0gAASAaQcMSAASSXxkG3h/4/t4S//+iTxgAAA4YynUSAASPT0g
AASAaQbULAP//0CCACB/4/t4S//2lYABABR8CAOmg+EADDghABBOgAAgfGP6FEgAEeV8ZBt4PGAA
ADhjK9BIABH5S///zJQh//B8CAKmkAEAFDxgAAA4Yyw8SAASJT0gAASQaQcQPGAAADhjElSAAQAU
fAgDpjghABBOgAAglCH/8HwIAqaQAQAUS//uXT0gAASBKQcQLAkAAEGCADw9IAAEgSkGhDxgAAQ4
YwD8LAn//0GCABSAAQAUfAgDpjghABBOgAAgPGAABDhjAPw4YwAgS///5DxgAAQ4YwD8OGMAEEv/
/9SUIf/wfAgCppABABQ8YAAEOGMA/DhjADBIABBhgAEAFHwIA6Y4IQAQToAAIJQh//B8CAKmkAEA
FJPhAAx8fxt4fGQbeDxgAAA4YyxESAARcTxgAAA4YyxUSAARcX/k+3g8YAAAOGMq5EgAEOlIABEh
OIAAIH/j+3hIABDlSAARET0gAASAaQaELAP//0CCAIA9IAAEgGkGiHx/GhRIABCRfH8beHxkG3g8
YAAAOGMsaEgAEQ08YAAAOGMq2EgAEQ1/4/t4S//x8XxkG3g8YAAAOGMq5EgAEH08YAAAOGMu3EgA
EHF/4/t4S//yrTxgAAA4YynUSAAQXYABABR8CAOmg+EADDghABBOgAAgfGP6FEgAEDV8aBt4OUD/
/ziAAAA5IAAgfSkDpn0JVDBVKQf+fIRKFDlKAAFCAP/wPGAAADhjLGBIABANSAAQRUv//0SUIf/Q
fAgCppABADST4QAsPSAABIPpBxB/4/t4S//+wTxgAAA4YynUSAAP2T0gAASBKQaELAn//0CCABiA
AQA0fAgDpoPhACw4IQAwToAAIJMhABSTQQAYk2EAHJOBACCToQAkk8EAKDhgAHpIAA/FPGAAADhj
LHxIAA+JOGAAAEgAD7E9IAAEgGkGhHx/GhRIAA9lfH4beDvgAAA/IAAAOzkqxD9AAAA7WirYP2AA
ADt7KuQ/gAAAO5wu3D+gAAA7vSnUSAAAUH/k+3h/I8t4SAAPnX9D03hIAA+hf+P7eEv/8IV8ZBt4
f2PbeEgADxV/g+N4SAAPDX/j+3hL//FJf6PreEgADv07/wABLB8AH0GCABg5P///f8lMMHEpAAFB
gv/oS///pDxgAAA4YynUSAAO0YMhABSDQQAYg2EAHIOBACCDoQAkg8EAKEv//vCUIf/wfAgCppAB
ABQ8YAAAOGMtBEgADuU9IAAEkGkHEDxgAAA4YxWUgAEAFHwIA6Y4IQAQToAAIJQh//B8CAKmkAEA
FEv/6x09IAAEgSkHEDxgAAQ4YwFkLAkAAEGCABSAAQAUfAgDpjghABBOgAAgPGAABDhjAWQ4YwAQ
S///5JQh//B8CAKmkAEAFDxgAAQ4YwFkOGMAIEgADUGAAQAUfAgDpjghABBOgAAglCH/8HwIAqaQ
AQAUk+EADHx/G3h8ZBt4PGAAADhjLERIAA5RPGAAADhjLRBIAA5Rf+T7eDxgAAA4YyrkSAANyUgA
DgE4gAAgf+P7eEgADcVIAA3xPSAABIBpBoB8fxoUSAANgXxkG3g8YAAAOGMtHEgADZVIAA3NPSAA
BIBpBnx8fxoUSAANdTlA//84gAAAOSAAIH0pA6Z8aVQwVSkH/nyEShQ5SgABQgD/8DxgAAA4Yyxg
SAANUTxgAAA4YynUSAANRYABABR8CAOmg+EADDghABBOgAAglCH/0HwIAqaQAQA0kyEAFJNBABiT
YQAck4EAIJOhACSTwQAok+EALD0gAASD6QcQf+P7eEv//vU8YAAAOGMp1EgADO04YAB6SAANFTxg
AAA4Yyx8SAAM2ThgAABIAA0BPSAABIBpBnx8fxoUSAAMtXx+G3g74AAAPyAAADs5KsQ/QAAAO1oq
2D9gAAA7eyrkP4AAADucLtw/oAAAO70p1EgAAFB/5Pt4fyPLeEgADO1/Q9N4SAAM8X/j+3hL/+3V
fGQbeH9j23hIAAxlf4PjeEgADF1/4/t4S//umX+j63hIAAxNO/8AASwfACBBggAYOT///3/JTDBx
KQABQYL/6Ev//6Q8YAAAOGMp1EgADCGAAQA0fAgDpoMhABSDQQAYg2EAHIOBACCDoQAkg8EAKIPh
ACw4IQAwToAAIDxgAAA4YxgoToAAIJQh//B8CAKmkAEAFEv/6Ik9IAAEgSkG/DxgAAQ4YwGsLAn/
/0GCABSAAQAUfAgDpjghABBOgAAgPGAABDhjAaw4YwAQS///5JQh/7B8CAKmkAEAVJMhADQ9IAAE
gGkG+EgAC2F8eRt5QYICGJHBAAiR4QAMkgEAEJIhABSSQQAYkmEAHJKBACCSoQAkksEAKJLhACyT
AQAwk0EAOJNhADyTgQBAk6EARJPBAEiT4QBMO2AAAD3AAAQ94AAEPkAAADpSLEQ+YAAAOnMtnD+A
AAA7nCrkPgAABD9AAAA7Wi2oPiAABD6AAAA6lC2wPqAAADq1LbQ+wAAAOtYtHD7gAAA69yrwPwAA
ADsYKdSD7gZ0f/v51oEvBvx//0oUf+T7eH5Dk3hIAAstfmObeEgACzF/5Pt4f4PjeEgACq1IAArl
gHAGcHx/GhRIAAqRfH4beHxkG3h/Q9N4SAAK+X/E83h/g+N4SAAKgUgACrmAcQZsfH8aFEgACmV8
fRt4fGQbeH9D03hIAArNf6TreH+D43hIAApVSAAKjXye6FB/g+N4SAAKRUgACn09IAAEgGkGaHx/
GhRIAAoZfGQbeH6Do3hIAAolSAAKXT0gAASAaQZkfH8aFEgACfl8ZBt4fqOreEgACgVIAAo9PSAA
BIBpBmB8fxoUSAAJ2XxkG3h+w7N4SAAJ5UgACh09IAAEgGkGXHx/GhRIAAmtfGQbeH7ju3hIAAnF
SAAJ/X8Dw3hIAAm5O3sAAXwZ2ABAgv7UgcEACIHhAAyCAQAQgiEAFIJBABiCYQAcgoEAIIKhACSC
wQAoguEALIMBADCDQQA4g2EAPIOBAECDoQBEg8EASIPhAEyAAQBUfAgDpoMhADQ4IQBQToAAIJQh
//B8CAKmkAEAFDxgAAQ4YwGsOGMAIEgACGGAAQAUfAgDpjghABBOgAAgPGAAADhjGvROgAAglCH/
8HwIAqaQAQAUS//lvTxgAAQ4YwIEgAEAFHwIA6Y4IQAQToAAIJQh//B8CAKmkAEAFJPBAAiT4QAM
PSAAADkpJOQ9QAAEOUoAAIEJACSA6QAogMkALICqAAiAigAEPGAAADhjLmBIAAixP+AABIPfBwx/
w/N4SAAIlXxlG3h/xPN4PGAAADhjLpRIAAiNOIAAIIB/BwxIAAiNP+AAADv/KdR/4/t4SAAIcT/A
AASAngcEPGAAADhjLrBIAAhdOIAAIIB+BwRIAAhdf+P7eEgACEk9IAAEgIkHADxgAAA4Yy7ISAAI
NX/j+3hIAAgtgAEAFHwIA6aDwQAIg+EADDghABBOgAAglCH/8HwIAqaQAQAUPGAABDhjAgQ4YwAQ
SAAHIYABABR8CAOmOCEAEE6AACCUIf/wfAgCppABABRL/+SJPSAABDhpA2A9QAAEgUoHDJFJA2A5
IAAEkSMABIABABR8CAOmOCEAEE6AACCUIf/wfAgCppABABSTwQAIk+EADHx/G3hL/+RBP8AABDig
ACB/5Pt4OH4DcEgAB5WJPgNwOGAAACwJAABBggAIOH4DcIABABR8CAOmg8EACIPhAAw4IQAQToAA
IJQh//B8CAKmkAEAFJPhAAx8fxt4S//j6T0gAASAaQbULAP//0GCACB8Y/oUSAAG/YABABR8CAOm
g+EADDghABBOgAAgPSAABIBpBth8fxoUSAAG2Uv//9yUIf/QfAgCppABADSToQAkS//jlT0gAASB
KQbcO6AAACwJ//9BggCsPSAABIEpBwAsCQAAQYIAxJMhABSTQQAYk2EAHJOBACCTwQAok+EALDvA
AAA/YAAEPyAABD9AAAQ7WgOQP4AABEgAABQ73gABgTwHAHwJ8EBAgQBAV8MQOoE7BwR8Y0oUSAAG
YXx/G3lBgv/cgHkG3Hx/GhRIAAZNLAMAAEGC/8hXqRA6f/pJLju9AAFL//+4gyEAFINBABiDYQAc
g4EAIIPBACiD4QAsPGAABDhjA5BXvRA6OSAAAH0j6S6AAQA0fAgDpoOhACQ4IQAwToAAIDugAABL
///UlCH/8HwIAqaQAQAUk8EACJPhAAx8fxt4S//ijT0gAAQ7yQUgk+kFID0gAASAaQbcfH8aFEgA
BbWQfgAMf8PzeIABABR8CAOmg8EACIPhAAw4IQAQToAAIJQh//B8CAKmkAEAFEv/4kE8YAAEOGMC
KIABABR8CAOmOCEAEE6AACCUIf/wfAgCppABABQ4YAAASAAF6TkgAAAsAwACQYIAIDxgAASRIwUw
OGMFMIABABR8CAOmOCEAEE6AACA4YAABSAAFuT0gAASBKQcMfSkaeH0pADRVKdl+S///yJQh//B8
CAKmkAEAFJPhAAw4YAAESAAFiXx/G3h8ZBt4PGAAADhjLxRIAATxPSAABIBpBtR8fxoUSAAEyXxk
G3g8YAAAOGMvLEgABNE8YAAAOGMvQEgABMWAAQAUfAgDpoPhAAw4IQAQToAAIJQh//B8CAKmkAEA
FDxgAAQ4YwIoOGMACEgAA9WAAQAUfAgDpjghABBOgAAglCH/8HwIAqaQAQAUS//hJT0gAAQ4aQU4
OUAABJFJBTg9IAAEgSkHDJEjAAyRIwAIkSMABD0gAAA5KR/ckSMAEIABABR8CAOmOCEAEE6AACCU
If/wfAgCppABABST4QAMOGAAAEgABKE74AAALAMAAkGCABx/4/t4gAEAFHwIA6aD4QAMOCEAEE6A
ACA4YAABSAAEdT0gAASBKQcMfANIAECC/9Q4YAAESAAEXXx/G3g4YAAASAAEXUv//7yUIf/wfAgC
ppABABQ8YAAEOGMCOEgAAv2AAQAUfAgDpjghABBOgAAglCH/8HwIAqaQAQAUk+EADD0gAASBKQbc
fGNKFEgAA3V8fxt5QIIAIDxgAAQ4YwVMgAEAFHwIA6aD4QAMOCEAEE6AACA4fwAESAADSSwD//1B
ggBAPSAABDkpAkA5KQAEf+r7eDkAABB9CQOmkUkAADlKAAQ5KQAMQgD/9DxgAAQ4YwJAO/8ASJPj
AMRL//+kO/8ACEv//8CUIf/wfAgCppABABST4QAMfH8beEv/36E9IAAEgGkHDEgAAtl8A/gAQYIA
IH/j+3hL//85gAEAFHwIA6aD4QAMOCEAEE6AACA8YAAEOGMCQDhjANhL///glCH/8HwIAqaQAQAU
k+EADHx/G3h8ZRt4fGQbeDxgAAA4Yy/ASAADJUv/3zU8gAAAOIQv2H/j+3hIAAEpLAMAAEGCAEg8
gAAAOIQv4H/j+3hIAAERfGkbeDhgAAQsCQAAQYIAFDxgAAA4Yy/sSAACoThgAACAAQAUfAgDpoPh
AAw4IQAQToAAID0gAASAaQcMS///5JQh//B8CAKmkAEAFDxgAAQ4YwMwSAABOYABABR8CAOmOCEA
EE6AACCUIf/wfAgCppABABST4QAMS//ekT0gAAQ76QVYOUAAAJlJBVg4gAAHf+P7eEgAAm18ZBt4
f+X7eDxgAAA4YzAcSAACTTiAAFx/4/t4SAAAjSwDAABBggAMOUAAAJlDAAA8YAAEOGMFWIABABR8
CAOmg+EADDghABBOgAAglCH/8HwIAqaQAQAUPGAABDhjA0hIAACVgAEAFHwIA6Y4IQAQToAAIIlD
AAAsCgAAQYIAIIkkAAB8CVAAQIIAFDiEAAGNQwABLAoAAECC/+iIZAAAfGNQUE6AACB8aht4iSMA
ACwJAABBggAsOGAAAFSEBj5IAAAQjSoAASwJAABNggAgfARIAECC//B9Q1N4S///6DhgAABOgAAg
OEABAXyCEAhOgAAgOEABAnyCEAhOgAAgOEABA3yCEAhOgAAgOEABBHyCEAhOgAAgOEABBnyCEAhO
gAAgOEABB3yCEAhOgAAgOEABCHyCEAhOgAAgOEABCXyCEAhOgAAgOEABDHyCEAhOgAAgOEABDnyC
EAhOgAAgOEACAXyCEAhOgAAgOEACAnyCEAhOgAAgOEACA3yCEAhOgAAgOEACBHyCEAhOgAAgOEAC
BnyCEAhOgAAgOEADAXyCEAhOgAAgOEADAnyCEAhOgAAgOEADA3yCEAhOgAAgOEAEAHyCEAhOgAAg
OEAEMXyCEAhOgAAgOEAENHyCEAhOgAAgOEAEQXyCEAhOgAAgOEAEUnyCEAhOgAAgOEAEU3yCEAhO
gAAgOEAFEXyCEAhOgAAgOEAFE3yCEAhOgAAgOEAFIXyCEAhOgAAgOEAHAXyCEAhOgAAgOEAHBHyC
EAhOgAAgOEAIAXyCEAhOgAAgOEAIAnyCEAhOgAAgOEAKAXyCEAhOgAAgOEAKE3yCEAhOgAAgOEAK
FHyCEAhOgAAgvgIDBAAAAAUAQFZFUlNJT04tSU5GT0AAMTAxOTQAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAACfSAAAH6AAAAAYAAAANAAAAAAAAAAAAAAAAaHR0cHM6Ly9zdm4uaW50ZXJuLmxh
dXRlcmJhY2guY29tL3N2bi9rZXJuZWxzcmMvYnJhbmNoZXMvbmlnaHRseQAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABodHRwczov
L3N2bi5pbnRlcm4ubGF1dGVyYmFjaC5jb20vc3ZuL2tlcm5lbHNyYwAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAGJhdW1laXN0ZXIAAAAAAABlZGstbGludXg2NGJpdC03AAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAR0NDIDkuNS4wAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAfoAAAABgAAAA0A
AABOAAAn0gAAB+gAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUGVUVhLAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAA
AFFYS19hdHRyXwAAAFFGX2FjdGl2ZV8AAFFGX3Bvb2xfAAAAAFFGX21heFBvb2xfAFFYS19BdHRy
AAAAAC5jdXJyAAAALnJlYWR5U2V0AAAAUVhUaHJlYWQAAAAALnN1cGVyAAAudGltZUV2dAAAAABz
dHJ1Y3QgUUFjdGl2ZQAAUUFjdGl2ZQAuZVF1ZXVlAC5vc09iamVjdAAAAC5wcmlvAAAALnN0YXJ0
UHJpbwAAc3RydWN0IFFFUXVldWUAAC5mcm9udEV2dAAAAC5yaW5nAAAALmVuZAAAAAAuaGVhZAAA
AC50YWlsAAAALm5GcmVlAAAubk1pbgAAAFFFdnQAAAAALnNpZwAAAAAucG9vbElkXwAAAAAucmVm
Q3RyXwAAAABzdHJ1Y3QgUVRpbWVFdnQALm5leHQAAAAuYWN0AAAAAC5jdHIAAAAALmludGVydmFs
AAAAUVhNdXRleAAud2FpdFNldAAAAAAubG9ja1ByaW8AAAAuY2VpbGluZwAAAAAucHJldkhvbGRl
cgAuaG9sZGVyUHJpbwBRWFNlbWFwaG9yZQAuY291bnQAAC5tYXhfY291bnQAAFFNUG9vbAAALnN0
YXJ0AAAuYmxvY2tTaXplAAAublRvdAAAAFFIc20AAAAALnRlbXAAAABFeHRlbmRlZCBUaHJlYWQg
U3RhdGU6AAAgIHJ1bm5pbmcgCgBibG9ja2VkIG9uICU4eCB8IAAAACAgcmVhZHkgCgAAACAtLS0t
LSAKAAAAAG5vdF9lbXB0eQAAAFF1ZXVlOgoAc3RhdGUgOiAAAAAAJXMgCgoAAABlbmQgICBoZWFk
ICAgdGFpbCAgIG5GcmVlICAgbk1pbgoAAAAlMmQuICAgJTNkLiAgICUzZC4gICAlNGQuICAgJTNk
LgoAAABldmVudHM6CgAAAABoZWFkICAgIHNpZyAgICBwb29saWQgICAgcmVmY3RyACUzZC4gICAg
JTJkLiAgICAlNWQuICAgICU1ZC4gCgAAVGltZSBldmVudDoKAAAAAHNpZyBwb29saWQgcmVmY3Ry
IGN0ciBpbnRlcnZhbCAKAAAAACUyZC4gJTVkLiAlNWQuICUyZC4gJTdkLiAKAABRWEsAQVJNAFRB
U0suRVh0VEhSZWFkICV4AAAAVEFTSy5FWFRIUgAAJTh4ACU1ZC4AAAAAJTNkLgAAAABtYWdpYyAg
ICAAAABwcmlvAAAAAHN5bWJvbCAgAAAAAHMucHJpbwAAU29ycnk6IGV4dGVuZGVkIHRocmVhZCBu
b3QgZm91bmQuAAAAUGxlYXNlIHNldCB0aGUgY29uZmlndXJhdGlvbiA6IFFGX09TX09CSkVDVF9U
WVBFAAAAAEVYVFRIUkVBRAAAAEVYVEhSAAAARVh0VEhSZWFkAAAAQCg9KV9fUlRPU19RWEtfX1RB
U0tfRVhUSFIAAFRBU0suQWN0aXZlT2JqICV4AAAAVEFTSy5BTwBTdGFydCBQcmlvcml0eTogJWQu
IAoKAABTb3JyeTogYWN0aXZlIG9iamVjdCBub3QgZm91bmQuAEFDVElWRU9CSgAAAEFPAABBY3Rp
dmVPYmoAAABAKD0pX19SVE9TX1FYS19fVEFTS19BTwBtdXRleAAAAERhdGEuRHVtcCAleAAAAABU
QVNLLk1UWAAAAAAlN2QuAAAAAFRBU0suRXh0VEhSZWFkICV4AAAAd2FpdGluZyB0YXNrcwoAAG1h
Z2ljICAAd2FpdGluZwBvd25lciAgICAAAABQbGVhc2Ugc3BlY2lmeSBhIE11dGV4IGFkZHJlc3Mg
b3IgdmFyaWFibGUuAE1VVEVYAAAATVRYAE11VGVYAAAAQCg9KV9fUlRPU19RWEtfX1RBU0tfTVRY
AAAAAHNlbWFwaG9yZQAAAFRBU0suU0VNAAAAACU0ZC4AAAAAc3ltYm9sIABjb3VudAAAAFBsZWFz
ZSBzcGVjaWZ5IGEgU2VtYXBob3JlIGFkZHJlc3Mgb3IgdmFyaWFibGUuAFNFTUFQSE9SRQAAAFNF
TQBTRU1hcGhvcmUAAABAKD0pX19SVE9TX1FYS19fVEFTS19TRU0AAAAAVEFTSy5NRU1QAAAAZCAl
eAAAAAAlNHgAJTJkLgAAAABzdGFydCAgICAAAABlbmQgICAgICAAAABzaXplICAgICAAAABibG9j
a3NpemUAAABuVG90AAAAAG5GcmVlAAAAbk1pbgAAAABTb3JyeTogbWVtb3J5IGNvbXBvbmVudCBz
eW1ib2xzIG1pc3NpbmcATUVNUE9PTABNRU1QAAAAAE1FTVBvb2wAQCg9KV9fUlRPU19RWEtfX1RB
U0tfTUVNUAAAACVAY01URCBWZXJzaW9uICAlcyAgJXMgICUwMmQuJTAyZC4lMDRkIChCdWlsZCAl
cykKCgBtYWdpYyAgICAgICAgICAgICU4eCAgJTh4ICAAUUZfYWN0aXZlICAgICAgICAlOHggIAAA
QU9fbnVtICAgICAgICAgICAlZC4gIAAAVEVTVAAAAABhcmd1bWVudCAgICAgICAgIHZhbHVlICAg
ICBjb250ZW50ICAgc3ltYm9sAC0tLSAgVEFTSyAgbWFnaWMgPSAlOHgAACAgc3RhcnQgcHJpbyA9
ICVkLgAAICAtLS0AAABfX1JUT1NfUVhLX19BTAAAX19SVE9TX1FYS19fQVMAAHI0AAByNQAAcjYA
AHI3AAByOAAAcjkAAHIxMAByMTEAcjAAAHIxAAByMgAAcjMAAHIxMgByMTQAcGMAAHhwc3IAAAAA
cjEzAGhhcmR3YXJldGhyZWFkAABwYXJhbWV0ZXIgMTogMHglOHggPSAlcwBtYWdpYwAAAG1hZ2lj
c2l6ZQAAAHVua25vd24gdG9waWMAAABUQVNLLkNPTkZJRwBfX1JUT1NfUVhLX19GVU5DAAAAAEZj
dEV4dERpciBleHRzdHJbJWRdPSVzAFRBU0suR0VURElSAERBVEEAACmsAAAqvAAAKsAAAAAAAAAA
AxkoAAAABACEAAAO6AAAAAMZKAAAAAQAlAAADhgAAAACAAAAAAAAK0QAAAAAAAAAAgAAAAAAACsg
AAAAAAAAAAMZKAAAAAQAlAAADugAAAADGSgAAAAEAIQAAA4YAAAreAAAK4QAACuMAAArmAAADBQA
ACr4AAArBAAAKwwAAAAAAAAq+AAAKxgAACsEAAArDAAAAAAAAAADGSgAAAAEAOwAABD0AAAAAgAA
AAAAACvoAAAAAAAAAAMZKAAAAAQA7AAAEZgAACwIAAAsFAAALBgAACwkAAAPfAAAKvgAACsEAAAr
DAAAAAAAAAADADIAAAAEAUAAABQMAAAAAgAAAAAAACyoAAAAAAAAAAMAMgAAAAQBVAAAFAwAACzU
AAAs3AAALOAAACzoAAASHAAALIwAACsMAAAslAAALJwAAAAAAAAsjAAAKwwAACycAAAAAAAAAAMA
KAAAAAQBmAAAFuAAAAACAAAAAAAALTQAAAAAAAAtZAAALXAAAC10AAAtgAAAFVwAACr4AAAtJAAA
LSwAACyUAAAAAAAAAAMPRgAAAAQB4AAAGHAAAAACAAAAAAAALgQAAAAAAAAuLAAALjQAAC48AAAu
RAAAGBwAACr4AAAtvAAALcgAAC3UAAAt4AAALewAAC30AAAt/AAAAAAAAAABADwAAAAALugAABsc
AAAu4AAALuAAACmsAAAprAAAGugAAB6YAAAe9AAAL0gAAB5wAAAvWAAAH4wAAC9oAAAAAAAAAAQA
AC9sAAAAAAAAAAQAAC9wAAAAAAAAAAQAAC90AAAAAAAAAAQAAC94AAAAAAAAAAQAAC98AAAAAAAA
AAQAAC+AAAAAAAAAAAQAAC+EAAAAAAAAAAQAAC+IAAAAAAAAAAQAAC+MAAAAAAAAAAQAAC+QAAAA
AAAAAAQAAC+UAAAAAAAAAAQAAC+YAAAAAAAAAAQAAC+cAAAAAAAAAAQAAC+gAAAAAAAAAAQAAC+k
AAAAAAAAAAQAAC+sAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC+wAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AC/8AAAAAwAAABcAAAAAAAAwCAAAIWAAADA0AAAABwAAAAAAAAAAAAAwCAAAIhxUMzJF
)
HELP.FILTER.Add rtosqxk
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: QXK specific menu
; @Description: -
; @Author: DIE YDA
; @Copyright: (c) 1989-2017 Lauterbach GmbH, licensed for use with TRACE32(R) only
; --------------------------------------------------------------------------------
; $Id: qxk.m 7861 2022-07-29 13:45:42Z amerkle $
NAME "TASK.&(sMenuName)"
IF !MENU.EXIST("TASK.&(sMenuName)")
(
add
menu
(
POPUP "&(sHeader)"
(
default
menuitem "Display &Active Objects" "TASK.&(sInfix)ActiveObj"
separator
menuitem "Display &Extended Threads" "TASK.&(sInfix)EXtTHRead"
menuitem "Display &Mutex"
(
PRIVATE &dir &command
&dir=TASK.&(sInfix)GETDIR()
&command="&dir"+"\objdialog.cmm Mutex MuTeX"
Do &command
)
menuitem "Display &Semaphore"
(
PRIVATE &dir &command
&dir=TASK.&(sInfix)GETDIR()
&command="&dir"+"\objdialog.cmm Semaphore SEMaphore"
Do &command
)
menuitem "Display Memory &Pools" "TASK.&(sInfix)MEMPool"
separator
popup "&Stack Coverage"
(
menuitem "&List Stacks" "TASK.&(sInfix)STacK.view"
menuitem "Add Task" "TASK.&(sInfix)STacK.ADD"
menuitem "Remove Task" "TASK.&(sInfix)STacK.RM"
menuitem "Reset Coverage"
(
PRIVATE &yes
DIALOG.YESNO "Overwrite unused stack space" "with stack fill pattern?"
ENTRY &yes
IF !&yes
ENDDO
TASK.&(sInfix)STacK.Init
)
)
)
popup "Trace"
(
popup "[:alist]List"
(
separator
menuitem "&Task Switches" "Trace.List List.TASK"
menuitem "&Default and Tasks" "Trace.List List.TASK DEFault"
)
)
popup "Perf"
(
separator
popup "&Task Runtime"
(
menuitem "&Prepare"
(
if t.method.analyzer()
(
Analyzer.AutoInit on
)
if a.mode.flow()
(
Break.Delete /TraceEnable
Break.Set C:0x1F:::task.&(sInfix)config(magic) /TraceEnable
)
)
menuitem "[:perf]Show &Numerical" "Trace.STATistic.TASK"
menuitem "[:achart]Show as &Timing" "Trace.CHART.TASK"
menuitem "[:achart]Tracking with Trace &List"
(
Trace.List List.TASK DEFault /Track
Trace.CHART.TASK /Track
)
)
popup "Task &Function Runtime"
(
menuitem "&Prepare"
(
if t.method.analyzer()
(
Analyzer.AutoInit on
Analyzer.STATistic.PreFetch on
)
if a.mode.flow()
(
Break.Delete /TraceData
Break.Set C:0x1F:::task.&(sInfix)config(magic) /TraceData
)
)
menuitem "[:perf]Show &Numerical" "Trace.STATistic.TASKFUNC"
menuitem "[:perf]Show as &Tree" "Trace.STATistic.TASKTREE"
menuitem "[:perf]Show &Detailed Tree" "Trace.STATistic.TASKTREE ALL"
menuitem "[:achart]Show as &Timing" "Trace.CHART.TASKFUNC"
menuitem "[:alist]Show N&esting" "Trace.List List.TASK FUNC TI.FUNC"
)
)
popup "&Help"
(
MENUITEM "[:manual]OS Awareness Manual QXK" "HELP __RTOS_QXK_"
)
)
menu "task.&(sInfix)exthr"
(
default
menuitem "Display task struct"
(
PRIVATE &address
&address=track.address()
Var.View %Open %String (QXThread *)(&address)
)
separator
menuitem "Display Stack Frame"
(
PRIVATE &address
&address=address.offset(track.address())
Var.Frame /Locals /Caller /Task &address
)
menuitem "Display Registers"
(
PRIVATE &address
&address=address.offset(track.address())
Register /Task &address
)
menuitem "Switch Context" "Register.TASK address.offset(track.address())"
separator
menuitem "Dump task entry"
(
PRIVATE &address
&address=address.offset(track.address())
Data.dump &address /l /dialog
)
)
menu "task.&(sInfix)sem"
(
default
menuitem "Display Semaphore struct"
(
PRIVATE &address
&address=track.address()
Var.View %Open %String (QXSemaphore *)(&address)
)
separator
menuitem "Dump Semaphore entry"
(
PRIVATE &address
&address=address.offset(track.address())
Data.dump &address /l /dialog
)
)
menu "task.&(sInfix)mtx"
(
default
menuitem "Display Mutex struct"
(
PRIVATE &address
&address=track.address()
Var.View %Open %String (QXMutex *)(&address)
)
separator
menuitem "Dump Mutex entry"
(
PRIVATE &address
&address=address.offset(track.address())
Data.dump &address /l /dialog
)
)
menu "task.&(sInfix)ao"
(
default
menuitem "Display Active Object struct"
(
PRIVATE &address
&address=track.address()
Var.View %Open %String (QActive *)(&address)
)
separator
menuitem "Dump Active Object entry"
(
PRIVATE &address
&address=address.offset(track.address())
Data.dump &address /l /dialog
)
)
menu "task.&(sInfix)memp"
(
default
menuitem "View mem pool struct"
(
PRIVATE &magic
&magic=address.offset(track.address())
Var.View %Open (QMPool)*&magic
)
menuitem "Dump mem pool struct"
(
PRIVATE &magic
&magic=address.offset(track.address())
Data.dump &magic /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
)