STATIC_ROUTINE int CopyFile(char *src, char *dst, int dont_replace)
{
/*
int status=0;
char *cmd = (char *)malloc(strlen(src)+strlen(dst) + 100);
sprintf(cmd,"cp %s %s",src,dst);
status = system(cmd);
if (status != 0)
printf("Error creating pulse with command: %s, status = %d\n",cmd,status);
else {
sprintf(cmd,"SetMdsplusFileProtection %s 2> /dev/null",dst);
system(cmd);
}
free(cmd);
return status == 0;
*/
int status = TreeFAILURE;
int src_fd = MDS_IO_OPEN(src,O_RDONLY | O_BINARY | O_RANDOM, 0);
if (src_fd != -1)
{
off_t src_len = MDS_IO_LSEEK(src_fd, 0, SEEK_END);
int dst_fd = MDS_IO_OPEN(dst,O_RDWR | O_CREAT | O_TRUNC, 0664);
if (dst_fd != -1)
{
MDS_IO_LSEEK(src_fd, 0, SEEK_SET);
MDS_IO_LOCK(src_fd,0,src_len,1);
if (src_len > 0)
{
void *buff = malloc(src_len);
size_t bytes_read = MDS_IO_READ(src_fd,buff,(size_t)src_len);
if (bytes_read == src_len)
{
int bytes_written = MDS_IO_WRITE(dst_fd,buff,(size_t)src_len);
if (bytes_written == src_len)
status = TreeSUCCESS;
}
if (buff)
free(buff);
}
else if (src_len == 0)
status = TreeSUCCESS;
MDS_IO_LOCK(src_fd,0,src_len,0);
MDS_IO_CLOSE(dst_fd);
}
MDS_IO_CLOSE(src_fd);
}
return status;
}
STATIC_ROUTINE int _CopyFile(char *src, char *dst, int lock_it)
{
int status = TreeFAILURE;
int src_fd = MDS_IO_OPEN(src,O_RDONLY | O_BINARY | O_RANDOM, 0);
if (src_fd != -1)
{
ssize_t src_len = MDS_IO_LSEEK(src_fd, 0, SEEK_END);
int dst_fd = MDS_IO_OPEN(dst,O_RDWR | O_CREAT | O_TRUNC, 0664);
if ((dst_fd != -1) && (src_len != -1))
{
MDS_IO_LSEEK(src_fd, 0, SEEK_SET);
if (lock_it) MDS_IO_LOCK(src_fd,0,(int)src_len,MDS_IO_LOCK_RD,0);
if (src_len > 0)
{
size_t chunk_size = (size_t)(MIN(MAX_CHUNK, src_len));
void *buff = malloc(chunk_size);
size_t bytes_to_go = (size_t)src_len;
while(bytes_to_go > 0)
{
size_t io_size = MIN(bytes_to_go, chunk_size);
ssize_t bytes_read = MDS_IO_READ(src_fd,buff,io_size);
if (bytes_read == io_size)
{
ssize_t bytes_written = MDS_IO_WRITE(dst_fd,buff,io_size);
if (bytes_written != io_size)
break;
}
bytes_to_go -= io_size;
}
if (buff)
free(buff);
if (bytes_to_go == 0)
status = TreeSUCCESS;
}
else if (src_len == 0)
status = TreeSUCCESS;
if (lock_it) MDS_IO_LOCK(src_fd,0,(int)src_len,MDS_IO_LOCK_NONE,0);
MDS_IO_CLOSE(dst_fd);
}
MDS_IO_CLOSE(src_fd);
}
return status;
}
int TreeGetCurrentShotId(char *experiment)
{
int shot = 0;
int status = 0;
char *path = 0;
char *exp = strcpy(malloc(strlen(experiment)+6),experiment);
int i;
int slen;
for (i=0;exp[i] != '\0';i++)
exp[i] = _ToLower(exp[i]);
strcat(exp,"_path");
path = TranslateLogical(exp);
exp[strlen(experiment)]='\0';
if (path && ((slen = strlen(path)) > 2) && (path[slen-1] == ':') && (path[slen-2] == ':'))
{
path[slen-2] = 0;
status = TreeGetCurrentShotIdRemote(exp, path, &shot);
}
else
{
int fd = OpenShotIdFile(exp,O_RDONLY);
if (fd != -1)
{
status = MDS_IO_READ(fd,&shot,sizeof(shot)) == sizeof(shot);
MDS_IO_CLOSE(fd);
#ifdef WORDS_BIGENDIAN
if (status & 1)
{
int lshot = shot;
int i;
char *optr = (char *)&shot;
char *iptr = (char *)&lshot;
for (i=0;i<4;i++) optr[i] = iptr[3-i];
}
#endif
}
}
if (path)
TranslateLogicalFree(path);
free(exp);
return (status & 1) ? shot : 0;
}
/*------------------------------------------------------------------------------
Name: TreeOpenNciW
Type: C function
Author: Josh Stillerman
MIT Plasma Fusion Center
Date: 22-MAR-1988
Purpose: Open a tree characteristics file for write access.
------------------------------------------------------------------------------
Call sequence:
status = TreeOpenNciW(info_ptr)
------------------------------------------------------------------------------
Copyright (c) 1988
Property of Massachusetts Institute of Technology, Cambridge MA 02139.
This program cannot be copied or distributed in any form for non-MIT
use without specific written approval of MIT Plasma Fusion Center
Management.
---------------------------------------------------------------------------
Description:
+-----------------------------------------------------------------------------*/
int TreeOpenNciW(TREE_INFO *info, int tmpfile)
{
int status;
/****************************************************
If there is no characterisitics file block allocated then
Allocate one
*****************************************************/
if (info->nci_file == 0)
{
status = ((info->nci_file = (struct nci_file *)malloc(sizeof(NCI_FILE))) != NULL) ? TreeNORMAL : TreeFAILURE;
if (status & 1)
{
size_t len = strlen(info->filespec)-4;
char *filename = strncpy(malloc(len+20),info->filespec,len);
filename[len]='\0';
strcat(filename,tmpfile ? "characteristics#" : "characteristics");
memset(info->nci_file,0, sizeof(NCI_FILE));
info->nci_file->get = MDS_IO_OPEN(filename,tmpfile ? O_RDWR | O_CREAT | O_TRUNC : O_RDONLY,0664);
status = (info->nci_file->get == -1) ? TreeFAILURE : TreeNORMAL;
if (info->nci_file->get == -1)
info->nci_file->get = 0;
if (status & 1)
{
info->nci_file->put = MDS_IO_OPEN(filename,O_RDWR, 0);
status = (info->nci_file->put == -1) ? TreeFAILURE : TreeNORMAL;
if (info->nci_file->put == -1)
info->nci_file->put = 0;
}
free(filename);
}
}
else
{
/*******************************************
Else the file was open for read access so
close it and re-open it for write access.
*******************************************/
size_t len = strlen(info->filespec)-4;
char *filename = strncpy(malloc(len+20),info->filespec,len);
filename[len]='\0';
strcat(filename,tmpfile ? "characteristics#" : "characteristics");
if (info->nci_file->put)
MDS_IO_CLOSE(info->nci_file->put);
info->nci_file->put = MDS_IO_OPEN(filename,(tmpfile ? O_RDWR | O_CREAT | O_TRUNC : O_RDWR), 0664);
status = (info->nci_file->put == -1) ? TreeFAILURE : TreeNORMAL;
if (info->nci_file->put == -1)
info->nci_file->put = 0;
free(filename);
}
if (status & 1)
{
if (info->edit)
{
info->edit->first_in_mem = (int)MDS_IO_LSEEK(info->nci_file->put,0,SEEK_END)/42;
}
/**********************************************
Set up the RABs for buffered reads and writes
and CONNECT it.
If there is a problem then close it, free the
memory and return.
**********************************************/
}
else
{
free(info->nci_file);
info->nci_file = NULL;
}
if (status & 1)
TreeCallHook(OpenNCIFileWrite, info,0);
return status;
}
