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.
279 lines
9.3 KiB
C
279 lines
9.3 KiB
C
/* 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.
|
|
*/
|
|
|
|
/* Message code translations for non-VMS systems */
|
|
|
|
#if !defined( DEBUG ) && defined( DEBUG_SYSMSG )
|
|
#define DEBUG DEBUG_SYSMSG
|
|
#else
|
|
#ifndef DEBUG
|
|
#define DEBUG 0
|
|
#endif
|
|
#endif
|
|
|
|
#include <errno.h>
|
|
#include <stdarg.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
/* Should replace with lib$sys_getmsg under VMS
|
|
|
|
#ifndef VMS
|
|
*/
|
|
|
|
#include "ssdef.h"
|
|
#include "rms.h"
|
|
#include "compat.h"
|
|
#include "sysmsg.h"
|
|
|
|
#define MSG(code,text) { $VMS_STATUS_COND_ID(code), #code, text },
|
|
|
|
static
|
|
const struct VMSFAC {
|
|
unsigned int code;
|
|
const char *const text;
|
|
} fac2text[] = {
|
|
{ SYSTEM$_FACILITY, "SYSTEM" },
|
|
{ RMS$_FACILITY, "RMS" },
|
|
{ COPY$_FACILITY, "COPY" },
|
|
{ DELETE$_FACILITY, "DELETE" },
|
|
{ 0, NULL },
|
|
{ 0, "NONAME" }
|
|
};
|
|
|
|
static const char sev2text[(STS$M_SEVERITY>>STS$V_SEVERITY)+1] =
|
|
{ 'W', 'S', 'E', 'I', 'F', '?', '?', '?', };
|
|
|
|
/* Unknown facility or message code */
|
|
|
|
#ifndef SS$_NOMSG
|
|
#define SS$_NOMSG 0xFFFFFFFF
|
|
#endif
|
|
|
|
static const char nofmt[] = "Message number %08X";
|
|
static char notext[sizeof(nofmt)+8];
|
|
|
|
static
|
|
const struct VMSMSG {
|
|
unsigned int code;
|
|
const char *const txtcode;
|
|
char *text;
|
|
} vms2text[] = {
|
|
MSG(DELETE$_DELVER, "explicit version number or wild card required")
|
|
|
|
MSG(COPY$_OPENIN, " error opening %s as input")
|
|
|
|
MSG(RMS$_BUG, "fatal RMS condition detected, process deleted")
|
|
MSG(RMS$_DIR, "error in directory name")
|
|
MSG(RMS$_DNF, "directory not found")
|
|
MSG(RMS$_EOF, "end of file detected")
|
|
MSG(RMS$_ESS, "expanded string area too small")
|
|
MSG(RMS$_FNF, "file not found")
|
|
MSG(RMS$_FNM, "error in file name")
|
|
MSG(RMS$_IFI, "invalid internal file identifier (IFI) value")
|
|
MSG(RMS$_NAM, "invalid NAM block or NAM block not accessible")
|
|
MSG(RMS$_NMF, "no more files found")
|
|
MSG(RMS$_RSS, "invalid resultant string size")
|
|
MSG(RMS$_RSZ, "invalid record size")
|
|
MSG(RMS$_RTB, "%u byte record too large for user's buffer") /* !UL byte */
|
|
MSG(RMS$_WCC, "invalid wild card context (WCC) value")
|
|
MSG(RMS$_WLD, "invalid wildcard operation")
|
|
MSG(SS$_ABORT, "abort")
|
|
MSG(SS$_BADFILENAME, "bad file name syntax")
|
|
MSG(SS$_BADIRECTORY, "bad directory file format")
|
|
MSG(SS$_BADPARAM, "bad parameter value")
|
|
MSG(SS$_BUGCHECK, "internal consistency failure")
|
|
MSG(SS$_DATACHECK, "write check error")
|
|
MSG(SS$_DEVALLOC, "device already allocated to another user")
|
|
MSG(SS$_DEVASSIGN, "device has channels assigned" )
|
|
MSG(SS$_DEVICEFULL, "device full - allocation failure")
|
|
MSG(SS$_DEVMOUNT, "device is already mounted")
|
|
MSG(SS$_DEVNOTALLOC, "device not allocated")
|
|
MSG(SS$_DEVNOTDISM, "device not dismounted")
|
|
MSG(SS$_DEVNOTMOUNT, "device is not mounted")
|
|
MSG(SS$_DUPFILENAME, "duplicate file name")
|
|
MSG(SS$_DUPLICATE, "duplicate name")
|
|
MSG(SS$_ENDOFFILE, "end of file")
|
|
MSG(SS$_ILLBLKNUM, "illegal logical block number")
|
|
MSG(SS$_FILELOCKED, "file is deaccess locked")
|
|
MSG(SS$_FILESEQCHK, "file identification sequence number check")
|
|
MSG(SS$_ILLEFC, "illegal event flag cluster")
|
|
MSG(SS$_INSFMEM, "insufficient dynamic memory")
|
|
MSG(SS$_ITEMNOTFOUND, "requested item cannot be returned")
|
|
MSG(SS$_NOMOREDEV, "no more devices")
|
|
MSG(SS$_IVCHAN, "invalid I/O channel")
|
|
MSG(SS$_DEVOFFLINE, "device is not in configuration or not available")
|
|
MSG(SS$_IVDEVNAM, "invalid device name")
|
|
MSG(SS$_NOIOCHAN, "no I/O channel available")
|
|
MSG(SS$_NOMOREFILES, "no more files")
|
|
MSG(SS$_NORMAL, "normal successful completion")
|
|
MSG(SS$_NOSUCHDEV, "no such device available")
|
|
MSG(SS$_NOSUCHFILE, "no such file")
|
|
MSG(SS$_NOSUCHVOL, "No such volume")
|
|
MSG(SS$_NOTINSTALL, "writable shareable images must be installed")
|
|
MSG(SS$_PARITY, "parity error")
|
|
MSG(SS$_UNSUPVOLSET, "Volume set not supported")
|
|
MSG(SS$_WASCLR, "normal successful completion")
|
|
MSG(SS$_WASSET, "Event flag was set")
|
|
MSG(SS$_WRITLCK, "write lock error")
|
|
MSG(SS$_OFFSET_TOO_BIG, "Volume is too large for local file system: needs 64-bit I/O" )
|
|
{0, NULL, NULL},
|
|
{ SS$_NOMSG, "SS$_NOMSG", notext }
|
|
};
|
|
|
|
static char *buf = NULL;
|
|
static size_t bufsize = 0;
|
|
|
|
/******************************************************************* xpand() */
|
|
|
|
static int xpand( size_t used, size_t add ) {
|
|
char *nbuf;
|
|
size_t need;
|
|
|
|
need = used + add + 1; /* Always allow for \0 */
|
|
if( need < bufsize ) {
|
|
return 1;
|
|
}
|
|
nbuf = realloc( buf, need + 16 + 1); /* 16 minimizes reallocs */
|
|
if( nbuf == NULL ) {
|
|
return 0;
|
|
}
|
|
buf = nbuf;
|
|
bufsize = need + 16 + 1;
|
|
return 1;
|
|
}
|
|
|
|
/******************************************************************* getmsg() */
|
|
|
|
const char *getmsg( unsigned int vmscode, unsigned int flags, ... ) {
|
|
const struct VMSMSG *mp = NULL;
|
|
const struct VMSFAC *fp = NULL;
|
|
|
|
if( !(flags & MSG_FULL) )
|
|
flags = (flags & ~MSG_FULL) | MSG_FULL;
|
|
|
|
while( 1 ) {
|
|
size_t i = 0, len;
|
|
|
|
do {
|
|
if( flags & (MSG_FACILITY|MSG_SEVERITY|MSG_NAME) ) {
|
|
if( !xpand( i, 1 ) )
|
|
return strerror( errno );
|
|
buf[i++] = '%';
|
|
|
|
if( fp == NULL ) {
|
|
for( fp = fac2text; fp->text != NULL; fp++ ) {
|
|
if( fp->code == $VMS_STATUS_FAC_NO(vmscode) )
|
|
break;
|
|
}
|
|
}
|
|
if( fp->text == NULL )
|
|
break;
|
|
if( flags & MSG_FACILITY ) {
|
|
len = strlen( fp->text );
|
|
if( !xpand( i, len +1 ) )
|
|
return strerror( errno );
|
|
|
|
memcpy( buf+i, fp->text, len );
|
|
i += len;
|
|
if( flags & (MSG_SEVERITY|MSG_NAME) )
|
|
buf[i++] = '-';
|
|
}
|
|
if( flags & MSG_SEVERITY ) {
|
|
if( !xpand( i, 2 ) )
|
|
return strerror( errno );
|
|
buf[i++] = sev2text[$VMS_STATUS_SEVERITY(vmscode)];
|
|
if( flags & MSG_NAME )
|
|
buf[i++] = '-';
|
|
}
|
|
if( flags & MSG_NAME ) {
|
|
char *p;
|
|
|
|
if( mp == NULL ) {
|
|
for( mp = vms2text; mp->text != NULL; mp++ ) {
|
|
if( $VMS_STATUS_COND_ID(vmscode) == mp-> code )
|
|
break;
|
|
}
|
|
}
|
|
if( mp->text == NULL )
|
|
break;
|
|
p = strchr( mp->txtcode, '_' );
|
|
if( p == NULL )
|
|
abort();
|
|
len = strlen( ++p );
|
|
if( !xpand( i, len ) )
|
|
return strerror( errno );
|
|
memcpy( buf+i, p, len );
|
|
i += len;
|
|
}
|
|
if( flags & MSG_TEXT ) {
|
|
if( !xpand( i, 2 ) )
|
|
return strerror( errno );
|
|
buf[i++] = ',';
|
|
buf[i++] = ' ';
|
|
}
|
|
}
|
|
if( flags & MSG_TEXT ) {
|
|
va_list ap;
|
|
if( mp == NULL ) {
|
|
for( mp = vms2text; mp->text; mp++ ) {
|
|
if( $VMS_STATUS_COND_ID(vmscode) == mp-> code )
|
|
break;
|
|
}
|
|
if( mp->text == NULL )
|
|
break;
|
|
}
|
|
if( flags & MSG_WITHARGS ) {
|
|
va_start( ap, flags );
|
|
len = vsnprintf( buf+i, 1, mp->text, ap );
|
|
va_end( ap );
|
|
} else
|
|
len = strlen( mp->text );
|
|
if( !xpand( i, len ) )
|
|
return strerror( errno );
|
|
if( flags & MSG_WITHARGS ) {
|
|
va_start( ap, flags );
|
|
(void) vsnprintf( buf+i, len+1, mp->text, ap );
|
|
va_end( ap );
|
|
} else
|
|
memcpy( buf+i, mp->text, len );
|
|
i += len;
|
|
}
|
|
buf[i] = '\0';
|
|
return buf;
|
|
} while( 0 );
|
|
|
|
if( fp == NULL || fp->text == NULL )
|
|
fp = fac2text + (sizeof(fac2text)/sizeof(fac2text[0])) -1;
|
|
|
|
mp = vms2text + (sizeof(vms2text)/sizeof(vms2text[0])) -1;
|
|
(void) snprintf( notext, sizeof(notext), nofmt, vmscode );
|
|
}
|
|
}
|
|
|
|
/******************************************************************* sysmsg_rundown() */
|
|
|
|
void sysmsg_rundown( void ) {
|
|
free( buf );
|
|
buf = NULL;
|
|
}
|
|
|
|
/*
|
|
#endif
|
|
*/
|