mirror of
https://github.com/open-simh/simtools.git
synced 2026-01-24 19:32:06 +00:00
5f00f5b509
Show version includes the other configuration info, including READLINE and ASPI. Fix a memory leak in Unix show devices. Start using valgrind. Add VLD support for Windows. Fix memory leaks in main command processing. add command line arguments to history if USEing_READLINE Add atexit() and rundown support to dismount volumes at exit. Update makefiles for READLINE - some versions require you to link with termcap or ncurses as well. Fix memory leak in set default (including implicit set default on mount) Free WCCFILE on search NAM$M_SYNCHK as VMS does. Also release when returning RMS$_NMF. Add nam$l_rlf field to NAM Implement show devices for VMS. When reusing a WCB for large file, ensure that the file header pointer is valid. Add show cwd so it's easy to find out default for local files. Add set cwd Add spawn cmd so it's easy to inspect copied files. Handle condition codes properly. Finish sysmsg. Add standard macros to stsdef.h Deal with strerror on windows.
133 lines
3.3 KiB
C
133 lines
3.3 KiB
C
/* Timothe Litt February 2016 */
|
|
|
|
/* This module contains compatibility code, currently just
|
|
* to support Microsoft Windows.
|
|
*
|
|
* Microsoft deprecates sprintf, but doesn't supply standard
|
|
* replacement until very recent IDEs.
|
|
* Microsoft doesn't like fopen, or strerror, or getcwd.
|
|
* One needs to use a M$ call to translate system errors.
|
|
*
|
|
* Finding out about drive letter assignments is unique to windows.
|
|
*/
|
|
|
|
#include <errno.h>
|
|
#include <stdarg.h>
|
|
#include <stdio.h>
|
|
#include "compat.h"
|
|
|
|
#ifdef _WIN32
|
|
#include <windows.h>
|
|
#include <string.h>
|
|
#endif
|
|
|
|
#if defined(_MSC_VER) && _MSC_VER < 1900
|
|
|
|
/******************************************************************* c99_vsnprintf() */
|
|
|
|
int c99_vsnprintf(char *outBuf, size_t size, const char *format, va_list ap) {
|
|
int count = -1;
|
|
|
|
if (size != 0)
|
|
count = _vsnprintf_s(outBuf, size, _TRUNCATE, format, ap);
|
|
if (count == -1)
|
|
count = _vscprintf(format, ap);
|
|
|
|
return count;
|
|
}
|
|
|
|
/******************************************************************* c99_snprintf() */
|
|
|
|
int c99_snprintf(char *outBuf, size_t size, const char *format, ...) {
|
|
int count;
|
|
va_list ap;
|
|
|
|
va_start(ap, format);
|
|
count = c99_vsnprintf(outBuf, size, format, ap);
|
|
va_end(ap);
|
|
|
|
return count;
|
|
}
|
|
#endif
|
|
|
|
#ifdef _MSC_VER
|
|
|
|
/******************************************************************* openf() */
|
|
|
|
FILE *openf( const char *filename, const char *mode ) {
|
|
errno_t err;
|
|
FILE *fd = NULL;
|
|
|
|
err = fopen_s( &fd, filename, mode );
|
|
if( err == 0 ) {
|
|
return fd;
|
|
}
|
|
return NULL;
|
|
}
|
|
#endif
|
|
|
|
#ifdef _WIN32
|
|
|
|
/******************************************************************* ods2_strerror() */
|
|
|
|
const char *ods2_strerror( int errn ) {
|
|
static char buf[256];
|
|
|
|
if( strerror_s( buf, sizeof( buf ), errn ) != 0 )
|
|
snprintf( buf, sizeof( buf ), "Untranslatable error %u", errn );
|
|
|
|
return buf;
|
|
}
|
|
|
|
/******************************************************************* w32_errstr() */
|
|
|
|
TCHAR *w32_errstr( DWORD eno, ... ) {
|
|
va_list ap;
|
|
TCHAR *msg;
|
|
|
|
if( eno == NO_ERROR )
|
|
eno = GetLastError();
|
|
va_start(ap,eno);
|
|
|
|
if( FormatMessage( FORMAT_MESSAGE_ALLOCATE_BUFFER |
|
|
FORMAT_MESSAGE_FROM_SYSTEM, NULL, eno, 0,
|
|
(LPSTR)&msg, 1, &ap ) == 0 ) {
|
|
msg = (TCHAR *)malloc( 32 );
|
|
snprintf( msg, 32, "(%u)", eno );
|
|
}
|
|
va_end(ap);
|
|
return msg;
|
|
}
|
|
|
|
/******************************************************************* driveFromLetter() */
|
|
|
|
char *driveFromLetter( const char *letter ) {
|
|
DWORD rv = ERROR_INSUFFICIENT_BUFFER;
|
|
size_t cs = 16;
|
|
TCHAR *bufp = NULL;
|
|
|
|
do {
|
|
if( rv == ERROR_INSUFFICIENT_BUFFER ) {
|
|
TCHAR *newp;
|
|
cs *= 2;
|
|
newp = (TCHAR *) realloc( bufp, cs );
|
|
if( newp == NULL )
|
|
break;
|
|
bufp = newp;
|
|
}
|
|
rv = QueryDosDevice( letter, bufp, cs );
|
|
if( rv == 0 ) {
|
|
rv = GetLastError();
|
|
continue;
|
|
}
|
|
return bufp;
|
|
} while( rv == ERROR_INSUFFICIENT_BUFFER );
|
|
|
|
free( bufp );
|
|
return NULL;
|
|
}
|
|
#endif
|
|
|
|
/* For ISO C compliance, ensure that there's something in this module */
|
|
void dummy_compat ( void ) { return; }
|