X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=mim%2Fdevelopment%2Fmim%2Fvax%2Fmimlib%2Fusage.mud;fp=mim%2Fdevelopment%2Fmim%2Fvax%2Fmimlib%2Fusage.mud;h=ea9ded41447fe6310b24126ed29a762ace092aa0;hp=0000000000000000000000000000000000000000;hb=d73ace3f3292e320b461b8fcd2e9f5dc5d9684d7;hpb=d530283ea60fb0ddcc28e9c5bd072456afe06e07

diff --git a/mim/development/mim/vax/mimlib/usage.mud b/mim/development/mim/vax/mimlib/usage.mud
new file mode 100644
index 0000000..ea9ded4
--- /dev/null
+++ b/mim/development/mim/vax/mimlib/usage.mud
@@ -0,0 +1,74 @@
+<SETG USAGE-STUFF <IUVECTOR 18>>
+
+<DEFINE USAGE ("OPT" (STUFF ,USAGE-STUFF))
+	#DECL ((STUFF) !<UVECTOR [18 FIX]>)
+	<CALL SYSCALL GETRUSAGE 0 .STUFF>
+	.STUFF>
+
+<DEFINE PRINT-USAGE ("AUX" (STUFF ,USAGE-STUFF))
+	#DECL ((STUFF) !<UVECTOR [18 FIX]>)
+	<USAGE .STUFF>
+	<PRINTSTRING "User time (sec):">
+	<INDENT-TO 30>
+	<PRIN1 <+ <FLOAT <1 .STUFF>> </ <FLOAT <2 .STUFF>> 1000000>>>
+	<CRLF>
+	<PRINTSTRING "System time (sec):">
+	<INDENT-TO 30>
+	<PRIN1 <+ <FLOAT <3 .STUFF>> </ <FLOAT <4 .STUFF>> 1000000>>>
+	<CRLF>
+	<PRINTSTRING "Max resident size (Kb):">
+	<INDENT-TO 30>
+	<PRIN1 <5 .STUFF>>
+	<CRLF>
+	<PRINTSTRING "Shared memory (Kb-sec):">
+	<INDENT-TO 30>
+	<PRIN1 <6 .STUFF>>
+	<CRLF>
+	<PRINTSTRING "Unshared data size (Kb-sec):">
+	<INDENT-TO 30>
+	<PRIN1 <7 .STUFF>>
+	<CRLF>
+	<PRINTSTRING "Unshared stack size (Kb-sec):">
+	<INDENT-TO 30>
+	<PRIN1 <8 .STUFF>>
+	<CRLF>
+	<PRINTSTRING "Minor page faults:">
+	<INDENT-TO 30>
+	<PRIN1 <9 .STUFF>>
+	<CRLF>
+	<PRINTSTRING "Major page faults:">
+	<INDENT-TO 30>
+	<PRIN1 <10 .STUFF>>
+	<CRLF>
+	<PRINTSTRING "Swaps:">
+	<INDENT-TO 30>
+	<PRIN1 <11 .STUFF>>
+	<CRLF>
+	<PRINTSTRING "Block input operations:">
+	<INDENT-TO 30>
+	<PRIN1 <12 .STUFF>>
+	<CRLF>
+	<PRINTSTRING "Block output operations:">
+	<INDENT-TO 30>
+	<PRIN1 <13 .STUFF>>
+	<CRLF>
+	<PRINTSTRING "Ipc messages sent:">
+	<INDENT-TO 30>
+	<PRIN1 <14 .STUFF>>
+	<CRLF>
+	<PRINTSTRING "Ipc messages received:">
+	<INDENT-TO 30>
+	<PRIN1 <15 .STUFF>>
+	<CRLF>
+	<PRINTSTRING "Signals delivered:">
+	<INDENT-TO 30>
+	<PRIN1 <16 .STUFF>>
+	<CRLF>
+	<PRINTSTRING "Vol. context switches:">
+	<INDENT-TO 30>
+	<PRIN1 <17 .STUFF>>
+	<CRLF>
+	<PRINTSTRING "Invol. context switches:">
+	<INDENT-TO 30>
+	<PRIN1 <18 .STUFF>>
+	,NULL>