DLL_EXPORT
ufd_t w32_open_tape ( const char* path, int oflag, ... )
{
ifd_t ifd;
HANDLE hFile;
char szTapeDeviceName[10];
const char* pszTapeDevNum;
DWORD dwDesiredAccess, dwSizeofDriveParms, dwRetCode;
// Reserve an fd number right away and bail if none available...
if ( (ifd = w32_alloc_ifd()) < 0 )
return -1;
// If they specified a Windows device name,
// use it as-is.
if (1
&& strnfilenamecmp( path, "\\\\.\\", 4 ) == 0
&& path [4] != 0
)
{
strlcpy( szTapeDeviceName, path, sizeof(szTapeDeviceName) );
}
else // (not a Windows device name)
{
// The device name is a Cygwin/*nix device name.
// Name must be either "/dev/nst0" or "/dev/st0"
if (1
&& strnfilenamecmp( path, "/dev/", 5 ) == 0
&& (
strnfilenamecmp( (pszTapeDevNum=path+8)-3, "nst", 3 ) == 0
||
strnfilenamecmp( (pszTapeDevNum=path+7)-2, "st", 2 ) == 0
)
&& strlen(pszTapeDevNum) == 1
&& isdigit(*pszTapeDevNum)
)
{
// Change it to a Windows device name (e.g. \\.\Tape0)
strlcpy( szTapeDeviceName, WIN32_TAPE_DEVICE_NAME, sizeof(szTapeDeviceName) );
szTapeDeviceName[8] = *pszTapeDevNum;
szTapeDeviceName[9] = 0;
// PROGRAMMING NOTE: the "rewind at close" option (implied by
// virtue of the filename being "/dev/st0" and not "/dev/nst0")
// was handled (detected/remembered) by the higher-level caller.
}
else
{
VERIFY( w32_free_ifd( ifd ) == 0 );
errno = EINVAL; // (bad device name)
return -1; // (open failure)
}
}
// We only support O_BINARY with either O_RDWR or O_RDONLY
if (1
&& (( O_BINARY | O_RDWR ) != oflag)
&& (( O_BINARY | O_RDONLY) != oflag)
)
{
VERIFY( w32_free_ifd( ifd ) == 0 );
errno = EINVAL; // (invalid open flags)
return -1; // (open failure)
}
// Set desired access
dwDesiredAccess = GENERIC_READ;
if ( oflag & O_RDWR )
dwDesiredAccess |= GENERIC_WRITE;
// Open the tape drive...
hFile = CreateFile
(
szTapeDeviceName, // filename
dwDesiredAccess, // desired access
0, // share mode (0 == exclusive)
NULL, // security == default
OPEN_EXISTING, // "file" (device actually) must already exist
0, // no special access flags needed
NULL // not using template
);
if ( INVALID_HANDLE_VALUE == hFile )
{
int save_errno = w32_trans_w32error( GetLastError() );
VERIFY( w32_free_ifd( ifd ) == 0 );
errno = save_errno;
return -1;
}
// Save drive parameters for later...
memset( &g_drive_parms[ifd], 0, sizeof(TAPE_GET_DRIVE_PARAMETERS) );
dwSizeofDriveParms = sizeof(TAPE_GET_DRIVE_PARAMETERS);
do
{
dwRetCode = GetTapeParameters
(
hFile,
GET_TAPE_DRIVE_INFORMATION,
&dwSizeofDriveParms,
&g_drive_parms[ifd]
);
}
while ((NO_ERROR != dwRetCode) // (if not normal completion,
&& // check for retry conditions)
(0
|| ERROR_MEDIA_CHANGED == dwRetCode // (likely but unimportant; retry)
|| ERROR_BUS_RESET == dwRetCode // (unlikely but possible; retry)
));
// Did that work?
if (NO_ERROR != dwRetCode)
{
int save_errno = w32_trans_w32error( GetLastError() );
CloseHandle( hFile );
VERIFY( w32_free_ifd( ifd ) == 0 );
errno = save_errno;
return -1;
}
ASSERT( NO_ERROR == dwRetCode );
ASSERT( sizeof(TAPE_GET_DRIVE_PARAMETERS) == dwSizeofDriveParms );
// Save control info & return their file descriptor...
g_handles [ ifd ] = hFile; // (WIN32 handle)
g_fnames [ ifd ] = strdup( path ); // (for posterity)
g_fstats [ ifd ] = GMT_ONLINE (0xFFFFFFFF); // (initial status)
g_BOTmsk [ ifd ] = 0xFFFFFFFF; // (BOT block-id mask)
g_BOTbot [ ifd ] = 0x00000000; // (BOT block-id value)
return W32STAPE_IFD2UFD( ifd ); // (user fd result)
}
/*
* Return the status of the device. This was meant
* to be a generic routine. Unfortunately, it doesn't
* seem possible (at least I do not know how to do it
* currently), which means that for the moment, this
* routine has very little value.
*
* Returns: status
*/
uint32_t status_dev(DEVICE *dev)
{
struct mtget mt_stat;
uint32_t stat = 0;
if (dev->state & (ST_EOT | ST_WEOT)) {
stat |= BMT_EOD;
Pmsg0(-20, " EOD");
}
if (dev->state & ST_EOF) {
stat |= BMT_EOF;
Pmsg0(-20, " EOF");
}
if (dev->is_tape()) {
stat |= BMT_TAPE;
Pmsg0(-20,_(" Bacula status:"));
Pmsg2(-20,_(" file=%d block=%d\n"), dev->file, dev->block_num);
if (dev->d_ioctl(dev->fd(), MTIOCGET, (char *)&mt_stat) < 0) {
berrno be;
dev->dev_errno = errno;
Mmsg2(dev->errmsg, _("ioctl MTIOCGET error on %s. ERR=%s.\n"),
dev->print_name(), be.bstrerror());
return 0;
}
Pmsg0(-20, _(" Device status:"));
#if defined(HAVE_LINUX_OS)
if (GMT_EOF(mt_stat.mt_gstat)) {
stat |= BMT_EOF;
Pmsg0(-20, " EOF");
}
if (GMT_BOT(mt_stat.mt_gstat)) {
stat |= BMT_BOT;
Pmsg0(-20, " BOT");
}
if (GMT_EOT(mt_stat.mt_gstat)) {
stat |= BMT_EOT;
Pmsg0(-20, " EOT");
}
if (GMT_SM(mt_stat.mt_gstat)) {
stat |= BMT_SM;
Pmsg0(-20, " SM");
}
if (GMT_EOD(mt_stat.mt_gstat)) {
stat |= BMT_EOD;
Pmsg0(-20, " EOD");
}
if (GMT_WR_PROT(mt_stat.mt_gstat)) {
stat |= BMT_WR_PROT;
Pmsg0(-20, " WR_PROT");
}
if (GMT_ONLINE(mt_stat.mt_gstat)) {
stat |= BMT_ONLINE;
Pmsg0(-20, " ONLINE");
}
if (GMT_DR_OPEN(mt_stat.mt_gstat)) {
stat |= BMT_DR_OPEN;
Pmsg0(-20, " DR_OPEN");
}
if (GMT_IM_REP_EN(mt_stat.mt_gstat)) {
stat |= BMT_IM_REP_EN;
Pmsg0(-20, " IM_REP_EN");
}
#elif defined(HAVE_WIN32)
if (GMT_EOF(mt_stat.mt_gstat)) {
stat |= BMT_EOF;
Pmsg0(-20, " EOF");
}
if (GMT_BOT(mt_stat.mt_gstat)) {
stat |= BMT_BOT;
Pmsg0(-20, " BOT");
}
if (GMT_EOT(mt_stat.mt_gstat)) {
stat |= BMT_EOT;
Pmsg0(-20, " EOT");
}
if (GMT_EOD(mt_stat.mt_gstat)) {
stat |= BMT_EOD;
Pmsg0(-20, " EOD");
}
if (GMT_WR_PROT(mt_stat.mt_gstat)) {
stat |= BMT_WR_PROT;
Pmsg0(-20, " WR_PROT");
}
if (GMT_ONLINE(mt_stat.mt_gstat)) {
stat |= BMT_ONLINE;
Pmsg0(-20, " ONLINE");
}
if (GMT_DR_OPEN(mt_stat.mt_gstat)) {
stat |= BMT_DR_OPEN;
Pmsg0(-20, " DR_OPEN");
}
if (GMT_IM_REP_EN(mt_stat.mt_gstat)) {
stat |= BMT_IM_REP_EN;
Pmsg0(-20, " IM_REP_EN");
}
#endif /* !SunOS && !OSF */
if (dev->has_cap(CAP_MTIOCGET)) {
Pmsg2(-20, _(" file=%d block=%d\n"), mt_stat.mt_fileno, mt_stat.mt_blkno);
} else {
Pmsg2(-20, _(" file=%d block=%d\n"), -1, -1);
}
} else {
stat |= BMT_ONLINE | BMT_BOT;
}
return stat;
}
/* IOCTL routine called by kernel-interface code
*/
int _ftape_ioctl(unsigned int command, void *arg)
{
TRACE_FUN(8, "ftape_ioctl");
int result = EINVAL;
union {
struct mtop mtop;
struct mtget mtget;
} krnl_arg;
int arg_size = (command & IOCSIZE_MASK) >> IOCSIZE_SHIFT;
/* This check will only catch arguments that are too large !
*/
if ((command & IOC_INOUT) && arg_size > sizeof(krnl_arg)) {
TRACEi(1, "bad argument size:", arg_size);
TRACE_EXIT;
return -EINVAL;
}
if (command & IOC_IN) {
int error = verify_area(VERIFY_READ, arg, arg_size);
if (error) {
TRACE_EXIT;
return error;
}
memcpy_fromfs(&krnl_arg.mtop, arg, arg_size);
}
TRACEx1(5, "called with ioctl command: 0x%08x", command);
switch (command) {
/* cpio compatibility
* mtrasx and mtreset are mt extension by Hennus Bergman
* mtseek and mttell are mt extension by eddy olk
*/
case MTIOCTOP:
TRACEx1(5, "calling MTIOCTOP command: 0x%08x", krnl_arg.mtop.mt_op);
switch (krnl_arg.mtop.mt_op) {
case MTNOP:
/* gnu mt calls MTNOP before MTIOCGET to set status */
result = 0;
break;
case MTRESET:
result = ftape_reset_drive();
init_drive_needed = 1;
if (result < 0 || ftape_offline) {
break;
}
result = ftape_seek_to_bot();
ftape_reset_position();
break;
case MTREW:
case MTOFFL:
if (ftape_offline) {
result = -EIO;
break;
}
ftape_flush_buffers();
ftape_update_header_segments(NULL, 1);
result = ftape_seek_to_bot();
ftape_reset_position();
if (krnl_arg.mtop.mt_op == MTOFFL) {
going_offline = 1;
TRACE(4, "Putting tape drive offline");
}
result = 0;
break;
case MTRETEN:
if (ftape_offline) {
result = -EIO;
break;
}
result = ftape_seek_to_eot();
if (result >= 0) {
result = ftape_seek_to_bot();
}
ftape_reset_position();
break;
case MTERASE:
if (ftape_offline) {
result = -EIO;
break;
}
result = ftape_erase();
break;
case MTEOM:
if (ftape_offline) {
result = -EIO;
break;
}
result = ftape_seek_eom();
break;
case MTFSFM:
if (ftape_offline) {
result = -EIO;
break;
}
eof_mark = 1; /* position ready to extend */
case MTFSF:
if (ftape_offline) {
result = -EIO;
break;
}
result = ftape_seek_eof(krnl_arg.mtop.mt_count);
break;
case MTBSFM:
if (ftape_offline) {
result = -EIO;
break;
}
eof_mark = 1; /* position ready to extend */
case MTBSF:
if (ftape_offline) {
result = -EIO;
break;
}
result = ftape_seek_eof(-krnl_arg.mtop.mt_count);
break;
case MTFSR:
if (ftape_offline) {
result = -EIO;
break;
}
tracing = krnl_arg.mtop.mt_count;
TRACEx1(2, "tracing set to %d", tracing);
result = 0;
break;
case MTBSR:
if (ftape_offline) {
result = -EIO;
break;
}
#if 0
result = ftape_fix();
#else
result = 0;
#endif
break;
case MTWEOF:
if (ftape_offline) {
result = -EIO;
break;
}
result = ftape_weof(krnl_arg.mtop.mt_count, ftape_seg_pos, 1);
if (result >= 0) {
ftape_seg_pos += krnl_arg.mtop.mt_count - 1;
}
break;
/* MTRASx and MTRESET are mt extension by Hennus Bergman
*/
case MTRAS1:
case MTRAS2:
case MTRAS3:
case MTSEEK:
case MTTELL:
default:
TRACEi(1, "MTIOCTOP sub-command not implemented:", krnl_arg.mtop.mt_op);
result = -EIO;
break;
}
break;
case MTIOCGET:
krnl_arg.mtget.mt_type = drive_type.vendor_id + 0x800000;
krnl_arg.mtget.mt_resid = 0; /* not implemented */
krnl_arg.mtget.mt_dsreg = 0; /* status register */
krnl_arg.mtget.mt_gstat = /* device independent status */
((ftape_offline) ? 0 : GMT_ONLINE(-1L)) |
((write_protected) ? GMT_WR_PROT(-1L) : 0) |
((no_tape) ? GMT_DR_OPEN(-1L) : 0);
krnl_arg.mtget.mt_erreg = ftape_last_error; /* error register */
result = ftape_file_no(&krnl_arg.mtget.mt_fileno,
&krnl_arg.mtget.mt_blkno);
break;
case MTIOCPOS:
TRACE(5, "Mag tape ioctl command: MTIOCPOS");
TRACE(1, "MTIOCPOS command not implemented");
break;
default:
result = -EINVAL;
break;
}
if (command & IOC_OUT) {
int error = verify_area(VERIFY_WRITE, arg, arg_size);
if (error) {
TRACE_EXIT;
return error;
}
memcpy_tofs(arg, &krnl_arg, arg_size);
}
TRACE_EXIT;
return result;
}
uint32_t generic_tape_device::status_dev()
{
struct mtget mt_stat;
uint32_t status = 0;
if (state & (ST_EOT | ST_WEOT)) {
status |= BMT_EOD;
Pmsg0(-20, " EOD");
}
if (state & ST_EOF) {
status |= BMT_EOF;
Pmsg0(-20, " EOF");
}
status |= BMT_TAPE;
Pmsg0(-20,_(" Bareos status:"));
Pmsg2(-20,_(" file=%d block=%d\n"), file, block_num);
if (d_ioctl(m_fd, MTIOCGET, (char *)&mt_stat) < 0) {
berrno be;
dev_errno = errno;
Mmsg2(errmsg, _("ioctl MTIOCGET error on %s. ERR=%s.\n"),
print_name(), be.bstrerror());
return 0;
}
Pmsg0(-20, _(" Device status:"));
#if defined(HAVE_LINUX_OS)
if (GMT_EOF(mt_stat.mt_gstat)) {
status |= BMT_EOF;
Pmsg0(-20, " EOF");
}
if (GMT_BOT(mt_stat.mt_gstat)) {
status |= BMT_BOT;
Pmsg0(-20, " BOT");
}
if (GMT_EOT(mt_stat.mt_gstat)) {
status |= BMT_EOT;
Pmsg0(-20, " EOT");
}
if (GMT_SM(mt_stat.mt_gstat)) {
status |= BMT_SM;
Pmsg0(-20, " SM");
}
if (GMT_EOD(mt_stat.mt_gstat)) {
status |= BMT_EOD;
Pmsg0(-20, " EOD");
}
if (GMT_WR_PROT(mt_stat.mt_gstat)) {
status |= BMT_WR_PROT;
Pmsg0(-20, " WR_PROT");
}
if (GMT_ONLINE(mt_stat.mt_gstat)) {
status |= BMT_ONLINE;
Pmsg0(-20, " ONLINE");
}
if (GMT_DR_OPEN(mt_stat.mt_gstat)) {
status |= BMT_DR_OPEN;
Pmsg0(-20, " DR_OPEN");
}
if (GMT_IM_REP_EN(mt_stat.mt_gstat)) {
status |= BMT_IM_REP_EN;
Pmsg0(-20, " IM_REP_EN");
}
#elif defined(HAVE_WIN32)
if (GMT_EOF(mt_stat.mt_gstat)) {
status |= BMT_EOF;
Pmsg0(-20, " EOF");
}
if (GMT_BOT(mt_stat.mt_gstat)) {
status |= BMT_BOT;
Pmsg0(-20, " BOT");
}
if (GMT_EOT(mt_stat.mt_gstat)) {
status |= BMT_EOT;
Pmsg0(-20, " EOT");
}
if (GMT_EOD(mt_stat.mt_gstat)) {
status |= BMT_EOD;
Pmsg0(-20, " EOD");
}
if (GMT_WR_PROT(mt_stat.mt_gstat)) {
status |= BMT_WR_PROT;
Pmsg0(-20, " WR_PROT");
}
if (GMT_ONLINE(mt_stat.mt_gstat)) {
status |= BMT_ONLINE;
Pmsg0(-20, " ONLINE");
}
if (GMT_DR_OPEN(mt_stat.mt_gstat)) {
status |= BMT_DR_OPEN;
Pmsg0(-20, " DR_OPEN");
}
if (GMT_IM_REP_EN(mt_stat.mt_gstat)) {
status |= BMT_IM_REP_EN;
Pmsg0(-20, " IM_REP_EN");
}
#endif /* HAVE_LINUX_OS || HAVE_WIN32 */
if (has_cap(CAP_MTIOCGET)) {
Pmsg2(-20, _(" file=%d block=%d\n"), mt_stat.mt_fileno, mt_stat.mt_blkno);
} else {
Pmsg2(-20, _(" file=%d block=%d\n"), -1, -1);
}
return status;
}