Changeset 836 for trunk/debugtools

Timestamp:

Sep 15, 2007, 3:07:14 AM (18 years ago)

Author:

Steven Levine

Message:

Add options, sync with pdumpctl
Sync with current standards
fm2dump2.cmd obsoleted

Location:

trunk/debugtools

Files:

• fm2dump.cmd (modified) (3 diffs)
• fm2dump2.cmd (deleted)

trunk/debugtools/fm2dump.cmd

@@ -1 +1 @@
 @echo off
-:: fm2dump - Prepare for fm/2 process dump
 :: $Id$
 
-:: Search for "EDITME" markers to find lines that may need edits
+:: Prepare for fm/2 process dump
 :: Run script as fm2dump ? for usage help
+:: Cmd.exe compatible
+:: Search for "Edit this" markers to find lines that may need site specific edits
 
-:: Copyright (c) 2002, 2005 Steven Levine and Associates, Inc.
+:: Copyright (c) 2002, 2007 Steven Levine and Associates, Inc.
 :: All rights reserved.
 
@@ -19 +20 @@
 :: 11 Aug 05 SHL Comments
 :: 24 Mar 07 SHL Write dump file to %TMP%
+:: 14 Jul 07 SHL Add options, sync with pdumpctl
+:: 14 Sep 07 SHL Sync with current standards
+
+:: Version 0.3
 
 setlocal
 
-:: EDITME to name dump directory - directory must exist and drive must have sufficient free space
+:: Edit this to point to existing directory on drive with sufficient free space
 set D=%TMP%
 
-:: Try to validate
+:: Try to validate dump directory
 dir %D%\nul >nul 2>&1
 if not errorlevel 1 goto DirOK
-  echo Directory %D% does not exist - check set D= statement
+  echo Directory %D% does not exist - check set D= statement on line 26
   goto end
-:DirOK
+:dirok
 
-:: EDITME to name process to be dumped - .exe is optional
+:: Edit this to name process to be dumped - .exe is optional
 set P=fm3
 
-:: Warn if not visible just by name - OK if in PATH
-if exist %P%.exe goto ExeOK
-if exist %P% goto ExeOK
-  echo Warning: %P% not found
-:ExeOK
+if "%1" == "" goto Help
 
-if not "%2" == "" goto Help
+:next
+
+if "%1" == "a" goto All
+if "%1" == "A" goto All
+if "%1" == "c" goto Configure
+if "%1" == "C" goto Configure
+if "%1" == "f" goto Force
+if "%1" == "F" goto Force
+if "%1" == "n" goto TurnOn
+if "%1" == "N" goto TurnOn
+if "%1" == "q" goto Query
+if "%1" == "Q" goto Query
 if "%1" == "o" goto TurnOff
 if "%1" == "O" goto TurnOff
 if "%1" == "r" goto Reset
 if "%1" == "R" goto Reset
-if "%1" == "" goto Configure
-goto Help
+
+if "%1" == "?" goto Help
+
+goto Usage
+
+:: Configure to dump all memory
+
+:All
+  echo on
+  pdumpusr reset
+  @if errorlevel 1 pause
+  pdumpusr paddr(all)
+  @if errorlevel 1 pause
+  :: Check
+  procdump query
+  @if errorlevel 1 pause
+  @echo off
+  echo Dump facility configured to dump all memory
+  goto shift
+
+:: Configure optimal dump settings for mr/2 ice
+
+:Configure
+  :: Turn on dump facility - set dump directory
+  procdump on /l:%D%
+  @if errorlevel 1 pause
+  :: Configure settings
+  procdump set /proc:%P% /pd:instance,private,shared,sysfs,sysio,sysldr,syssem,syssumm,systk,sysvm /pc:0
+  @if errorlevel 1 pause
+  @echo off
+  echo.
+  echo Dump facility configured to dump %P% to %D%
+  goto shift
+
+:: Force dump with current settings
+
+:Force
+  echo on
+  procdump force /proc:%P%
+  @echo off
+  echo Forced dump for process %P%
+  goto shift
+
+:: Query current settings
+
+:Query
+  echo.
+  echo on
+  procdump query
+  @if errorlevel 1 pause
+  @echo off
+  goto shift
 
 :: Reset to defaults
 
 :Reset
-echo on
-:: Reset directory and freespace limits to defaults
-procdump reset /f /l
-@if errorlevel 1 pause
-procdump reset /pid:all
-@if errorlevel 1 pause
+  echo on
+  procdump reset /f /l
+  @if errorlevel 1 pause
+  @echo off
+  echo.
+  echo Dump facility reset to default settings
+  goto shift
 
-:: Configure fm/2 specific dump settings
-
-:Configure
+:TurnOff
+  echo on
+  procdump reset /l
+  @if errorlevel 1 pause
+  procdump reset /pid:all
+  @if errorlevel 1 pause
+  procdump off
+  @if errorlevel 1 pause
+  @echo off
+  echo.
+  echo Dump facility turned off
+  goto shift
 
 :: Turn on dump facility - set dump directory
-procdump on /l:%D%
-@if errorlevel 1 pause
-:: Configure fm/2 dump
-procdump set /proc:%P% /pd:instance,private,shared,sysfs,sysio,sysldr,syssem,syssumm,systk,sysvm /pc:0
-@if errorlevel 1 pause
-:: Check
-procdump query
-@if errorlevel 1 pause
-@echo off
-echo Dump facility configured to dump %P% to %D%
 
-goto end
+:TurnOn
+  echo on
+  procdump on /l:%D%
+  @if errorlevel 1 pause
+  @echo off
+  echo.
+  echo Dump facility turned on
+  goto shift
 
-:TurnOff
+:shift
 
-echo on
-:: Reset to defaults
-procdump reset /f /l
-@if errorlevel 1 pause
-procdump reset /pid:all
-@if errorlevel 1 pause
-:: Turn off
-procdump off
-@if errorlevel 1 pause
-procdump query
-@if errorlevel 1 pause
-@echo off
-echo Dump facility turned off
-goto end
+  shift
+  if not "%1" == "" goto next
+  goto end
+
+::=== Usese: Report usage error ===
+
+:Usage
+  echo.
+  echo Usage: fm2dump [a] [c] [f] [n] [o] [p] [q] [r]
+  echo Use ? to get detailed help
+  goto end
 
 ::=== Help: Show usage help ===
@@ -98 +164 @@
 :Help
   echo.
-  echo Usage: fm2dump [o] [r]
+  echo Simple Dump Facility controller for mr/2 ice
   echo.
+  echo Usage: fm2dump [a] [c] [f] [n] [o] [p] [q] [r]
+  echo.
+  echo   a     Configure to dump all memory
+  echo   c     Configure optimally for mr/2 dump
+  echo   f     Force dump using current settings
+  echo   n     Turn on dump facility
   echo   o     Turn off dump facility
-  echo   r     Reset to defaults then configure
-  echo   ?     This message`
+  echo   q     Query current settings
+  echo   r     Reset to default settings
+  echo   q     Query current settings
+  echo   ?     Display this message
   echo.
-  echo   Only one arg alllowed
-  echo   Default is retain current settings and configure fm/2 specfic settings
+  echo   Requests are processed left to right
+  echo   Errors will pause script
+  echo   Edit line 26 to match your system
+  echo   Do not forget to turn off dump facility when done
+  echo.  Typical use cases
+  echo     fm2dump c
+  echo     fm2dump c f o
+  echo     fm2dump r o
 
 :end