mirror of
https://github.com/open-simh/simtools.git
synced 2026-01-22 10:31:47 +00:00
3f193e6f99
Reorganize commands into separate modules - ods2.c was way too big. This reduces it from around 3000 LOC to less than 1K LOC. Reorder I/O so PHYVIRT mediates all physical access. Fix memory leaks of device structures. Reorganize Files-11 vs. internal structures. Allow more granular control of DEBUG from the makefile. Show VOLUME handles free space and tries to match geometry from SCB to known disk types. Fix many compilation warnings. Add code to allow dumping disk data for debug. Automatically generate descrip.mms from dependencies. Correctly handle directory default version limit; previously confused with file version limit. Teach help to sort tables for presentation; manually keeping them sorted is problematic, and code maintenance prefers functional groupings. Add the ability to initialize a Files-11 volume. (Not quite complete.) Add dependency generation to makefiles. Excludes system headers so makedepends isn't required to build. Simplify makefiles to use more recipes. Teach makefiles to list all sources and headers so it's easier to keep git and MSVC up-to-date. Add support for accessing images of disks with interleave/skew/offsets (e.g. RX02). Add VHD support, including ability to create a snapshot with mount/write. Teach RMS to handle NOSPAN variable length records correctly. Fix RMS GET handling of variable length records with VFC that span block boundaries. Fix delete file (a day-one incomplete). Still some cases to validate. Purge cache of modified blocks at rundown and at the end of each command. Do not allow deletion of reserved files. Move revision history to version.h Correct various permissions in git.
123 lines
3.3 KiB
C
123 lines
3.3 KiB
C
/* Debug routines */
|
|
|
|
/* Timothe Litt March 2016
|
|
* Copyright (C) 2016 Timothe litt
|
|
* litt at acm dot org
|
|
*
|
|
* Free for use with the ODS2 package. All other rights reserved.
|
|
*/
|
|
|
|
/*
|
|
* This is distributed as part of ODS2, originally written by
|
|
* Paul Nankervis, email address: Paulnank@au1.ibm.com
|
|
*
|
|
* ODS2 is distributed freely for all members of the
|
|
* VMS community to use. However all derived works
|
|
* must maintain comments in their source to acknowledge
|
|
* the contibution of the original author.
|
|
*/
|
|
|
|
|
|
#include <stddef.h>
|
|
#include <stdio.h>
|
|
|
|
#include "debug.h"
|
|
|
|
/*********************************************************** dumpblock() */
|
|
void dumpblock( unsigned block, unsigned length, const char *buffer,
|
|
const char *more, ... ) {
|
|
va_list ap;
|
|
|
|
va_start( ap, more );
|
|
vdumpblockto( stdout, block, length, buffer, more, ap );
|
|
va_end( ap );
|
|
}
|
|
|
|
/*********************************************************** vdumpblock() */
|
|
|
|
void vdumpblock( unsigned block, unsigned length, const char *buffer,
|
|
const char *more, va_list ap ) {
|
|
|
|
vdumpblockto( stdout, block, length, buffer, more, ap );
|
|
}
|
|
|
|
/*********************************************************** dumpblockto() */
|
|
|
|
void dumpblockto( FILE *fp, unsigned block, unsigned length, const char *buffer,
|
|
const char *more, ... ) {
|
|
va_list ap;
|
|
|
|
va_start( ap, more );
|
|
vdumpblockto( fp, block, length, buffer, more, ap );
|
|
va_end( ap );
|
|
}
|
|
|
|
/*********************************************************** vdumpblockto() */
|
|
|
|
void vdumpblockto( FILE *fp, unsigned block, unsigned length, const char *buffer,
|
|
const char *more, va_list ap ) {
|
|
#ifndef DEBUG_DISKIO
|
|
(void) fp;
|
|
(void) block;
|
|
(void) length;
|
|
(void) buffer;
|
|
(void) more;
|
|
(void) ap;
|
|
#else
|
|
const char *p;
|
|
|
|
size_t n, wid = 32, off = 0;
|
|
|
|
fprintf( fp, "\n****************************************\n"
|
|
"Block %u Length %u", block, length );
|
|
if( more != NULL ) {
|
|
fputc( ' ', fp );
|
|
vfprintf( fp, more, ap );
|
|
}
|
|
fputc( '\n', fp );
|
|
if( length == 0 )
|
|
return;
|
|
|
|
fprintf( fp, " " );
|
|
for( n = 0; n < wid; n++ ) {
|
|
if( n % 2 == 0 )
|
|
fprintf( fp, " %02x", (int)n );
|
|
else
|
|
fprintf( fp, " " );
|
|
}
|
|
fprintf( fp, " " );
|
|
for( n = 0; n < wid; n++ ) {
|
|
if( n % 4 == 0 )
|
|
fprintf( fp, " %02x ", (int)n );
|
|
}
|
|
fputc( '\n', fp );
|
|
|
|
while( length ) {
|
|
fprintf( fp, "%04x:", (unsigned) off );
|
|
p = buffer;
|
|
for( n = 0; n < wid; n++ ) {
|
|
if( n % 2 == 0 )
|
|
fputc( ' ', fp );
|
|
if( n < length ) {
|
|
fprintf( fp, "%02x", 0xff & (unsigned)*p++ );
|
|
} else
|
|
fprintf( fp, " " );
|
|
}
|
|
|
|
fprintf( fp, " " );
|
|
p = buffer;
|
|
for( n = 0; n < wid; n++, p++ ) {
|
|
if( n % 4 == 0 )
|
|
fputc( ' ', fp );
|
|
fprintf( fp, "%c", (n >= length)? ' ': (*p < 040 || *p > 0176)? '.': *p );
|
|
}
|
|
length -= wid;
|
|
buffer += wid;
|
|
off += wid;
|
|
fputc( '\n', fp );
|
|
}
|
|
#endif
|
|
|
|
return;
|
|
}
|