mirror of
https://github.com/open-simh/simtools.git
synced 2026-02-12 10:58:41 +00:00
66e00b9900
Too much to list all, but includes (in no particular order): - Cleanup for 64-bit builds, MSVC warnings. - Structured help - Help file compiler. - Supports volsets, writes/create work. - Support for I18n in messages, help. - Makefiles. - Initialize volume/volset - Command line editing/history Builds and works on Linux and Windows (VS). Not recently built or tested on other platforms, but not intentinonally broken.
65 lines
1.7 KiB
C
65 lines
1.7 KiB
C
/* This is part of ODS2 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 contributions of the original author and
|
|
* subsequent contributors. This is free software; no
|
|
* warranty is offered, and while we believe it to be useful,
|
|
* you use it at your own risk.
|
|
*/
|
|
|
|
#if !defined( DEBUG ) && defined( DEBUG_DISMOUNTCMD )
|
|
#define DEBUG DEBUG_DISMOUNTCMD
|
|
#else
|
|
#ifndef DEBUG
|
|
#define DEBUG 0
|
|
#endif
|
|
#endif
|
|
|
|
#include "cmddef.h"
|
|
|
|
#include "access.h"
|
|
#include "device.h"
|
|
|
|
/******************************************************************* dodismount() */
|
|
|
|
qual_t
|
|
dmoquals[] = { {"log", MOU_LOG, 0, NV,
|
|
"-commands dismount qual_log"},
|
|
{"nolog", 0, MOU_LOG, NV, NULL },
|
|
|
|
{NULL, 0, 0, NV, NULL }
|
|
};
|
|
|
|
param_t
|
|
dmopars[] = { {"drive_name", REQ, STRING, NOPA,
|
|
"commands dismount drive"},
|
|
|
|
{NULL, 0, 0, NOPA, NULL}
|
|
};
|
|
|
|
DECL_CMD(dismount) {
|
|
vmscond_t sts;
|
|
options_t options;
|
|
struct DEV *dev;
|
|
|
|
UNUSED(argc);
|
|
|
|
if( $FAILS(sts = checkquals( &options, MOU_LOG, dmoquals, qualc, qualv )) ) {
|
|
return sts;
|
|
}
|
|
if( $SUCCESSFUL(sts = device_lookup( (uint32_t)strlen(argv[1]),
|
|
argv[1], FALSE, &dev )) ) {
|
|
device_done( dev );
|
|
if( dev->vcb != NULL ) {
|
|
sts = dismount( dev->vcb, options );
|
|
} else {
|
|
sts = SS$_DEVNOTMOUNT;
|
|
}
|
|
}
|
|
|
|
return sts;
|
|
}
|