Changeset 243

Timestamp:

Aug 13, 2005, 10:53:11 PM (20 years ago)

Author:

root

Message:

Comments

Location:

trunk

Files:

• dll/internal/mkstr.c (modified) (1 diff)
• fm2dump.cmd (modified) (4 diffs)

trunk/dll/internal/mkstr.c

@@ +1 @@
+
+/***********************************************************************
+
+  $Id$
+
+  Misc support functions
+
+  Copyright (c) 1993-98 M. Kimes
+  Copyright (c) 2005 Steven H. Levine
+
+  24 Jul 05 SHL Comments
+
+***********************************************************************/
+
+
 #define INCL_DOS
 #define INCL_WIN
-
 #include <os2.h>
+
 #include <stdlib.h>
 #include <stdio.h>
 #include <string.h>
 #include <ctype.h>
+
 #include "..\version.h"
 #include "..\fm3str.h"

trunk/fm2dump.cmd

@@ -3 +3 @@
 :: $Id$
 
-:: Run as fm2dump ? for usage help
+:: Search for "EDITME" markers to find lines that may need edits
+:: Run script as fm2dump ? for usage help
 
-:: Copyright (c) 2002, 2003 Steven Levine and Associates, Inc.
+:: Copyright (c) 2002, 2005 Steven Levine and Associates, Inc.
 :: All rights reserved.
 
@@ -12 +13 @@
 :: gnugpl2.txt or at http://www.gnu.org/licenses/licenses.html#GPL
 
-
-:: Revisions    22 Oct 02 SHL - Baseline
-::              02 Dec 03 SHL - Comments and usage help
-::              12 Apr 04 SHL - Rework settings
+:: 22 Oct 02 SHL Baseline
+:: 02 Dec 03 SHL Comments and usage help
+:: 12 Apr 04 SHL Rework settings
+:: 09 Aug 05 SHL Add some more system data
+:: 11 Aug 05 SHL Comments
 
 setlocal
 
-:: Edit this to point to existing directory on drive with sufficient free space
+:: EDITME to name dump directory - directory must exist and drive must have sufficient free space
 set D=j:\tmp\dumps
 
 :: Try to validate
 dir %D%\nul >nul 2>&1
-if errorlevel 1 goto BadDir
+if not errorlevel 1 goto DirOK
+  echo Directory %D% does not exist - check set D= statement
+  goto end
+:DirOK
 
-:: Edit this to name process to be dumped
+:: EDITME 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 not "%2" == "" goto Help
 if "%1" == "o" goto TurnOff
 if "%1" == "O" goto TurnOff
-if "%1" == "p" goto Configure
-if "%1" == "P" goto Configure
-if "%1" == "" goto Reset
+if "%1" == "r" goto Reset
+if "%1" == "R" goto Reset
+if "%1" == "" goto Configure
 goto Help
 
-:: Reset and set dump directory
+:: Reset to defaults
 
 :Reset
 echo on
-:: Reset to defaults
+:: Reset directory and freespace limits to defaults
 procdump reset /f /l
 @if errorlevel 1 pause
+procdump reset /pid:all
+@if errorlevel 1 pause
 
-:: Configure dump settings for fm/2
+:: Configure fm/2 specific dump settings
 
 :Configure
 
 :: Turn on dump facility - set dump directory
-procdump on /l:%d%
+procdump on /l:%D%
 @if errorlevel 1 pause
 :: Configure fm/2 dump
-procdump set /proc:%P% /pd:instance,private,sem,shared,summ,sysfs,sysio,sysvm /pc:0
+procdump set /proc:%P% /pd:instance,private,shared,sysfs,sysio,sysldr,syssem,syssumm,systk,sysvm /pc:0
 @if errorlevel 1 pause
 :: Check
@@ -67 +80 @@
 echo on
 :: Reset to defaults
-procdump reset /l
+procdump reset /f /l
 @if errorlevel 1 pause
 procdump reset /pid:all
@@ -80 +93 @@
 goto end
 
-:BadDir
-  echo %D% does not exist - check set D= statement
-  goto end
-
 ::=== Help: Show usage help ===
 
 :Help
   echo.
-  echo Usage: fm2dump [o] [p]
+  echo Usage: fm2dump [o] [r]
   echo.
   echo   o     Turn off dump facility
-  echo   p     Retain personal dump settings
+  echo   r     Reset to defaults then configure
   echo   ?     This message`
   echo.
   echo   Only one arg alllowed
-  echo   Default is to clear personal settings and configure fm/2 specfic settings
+  echo   Default is retain current settings and configure fm/2 specfic settings
 
 :end