System Functions (ss_xxx)

Classes
struct	FL_PARAM
struct	suspend_struct

Macros
#define	bin_to_ascii(c)   ((c)>=38?((c)-38+'a'):(c)>=12?((c)-12+'A'):(c)+'.')
#define	N_STACK_HISTORY   500

Typedefs
typedef struct suspend_struct	SUSPEND_STRUCT

Functions
static void	check_shm_type (const char *shm_type)
static void	check_shm_host ()
static int	ss_shm_name (const char *name, std::string &mem_name, std::string &file_name, std::string &shm_name)
INT	ss_shm_open (const char *name, INT size, void **adr, size_t *shm_size, HNDLE *handle, BOOL get_size)
INT	ss_shm_close (const char *name, void *adr, size_t shm_size, HNDLE handle, INT destroy_flag)
INT	ss_shm_delete (const char *name)
INT	ss_shm_protect (HNDLE handle, void *adr, size_t shm_size)
INT	ss_shm_unprotect (HNDLE handle, void **adr, size_t shm_size, BOOL read, BOOL write, const char *caller_name)
INT	ss_shm_flush_thread (void *p)
INT	ss_shm_flush (const char *name, const void *adr, size_t size, HNDLE handle, bool wait_for_thread)
INT	ss_get_struct_align ()
INT	ss_get_struct_padding ()
INT	ss_getpid (void)
BOOL	ss_pid_exists (int pid)
void	ss_kill (int pid)
std::string	ss_get_executable (void)
std::string	ss_get_cmdline (void)
midas_thread_t	ss_gettid (void)
std::string	ss_tid_to_string (midas_thread_t thread_id)
INT	ss_spawnv (INT mode, const char *cmdname, const char *const argv[])
INT	ss_shell (int sock)
INT	ss_daemon_init (BOOL keep_stdout)
BOOL	ss_existpid (INT pid)
INT	ss_system (const char *command)
INT	ss_exec (const char *command, INT *pid)
std::string	ss_replace_env_variables (const std::string &inputPath)
std::string	ss_execs (const char *cmd)
midas_thread_t	ss_thread_create (INT(*thread_func)(void *), void *param)
INT	ss_thread_kill (midas_thread_t thread_id)
INT EXPRT	ss_thread_set_name (std::string name)
std::string EXPRT	ss_thread_get_name ()
INT	ss_semaphore_create (const char *name, HNDLE *semaphore_handle)
INT	ss_semaphore_wait_for (HNDLE semaphore_handle, DWORD timeout_millisec)
INT	ss_semaphore_release (HNDLE semaphore_handle)
INT	ss_semaphore_delete (HNDLE semaphore_handle, INT destroy_flag)
INT	ss_mutex_create (MUTEX_T **mutex, BOOL recursive)
INT	ss_mutex_wait_for (MUTEX_T *mutex, INT timeout)
INT	ss_mutex_release (MUTEX_T *mutex)
INT	ss_mutex_delete (MUTEX_T *mutex)
bool	ss_timed_mutex_wait_for_sec (std::timed_mutex &mutex, const char *mutex_name, double timeout_sec)
void	ss_tzset ()
time_t	ss_mktime (struct tm *tms)
DWORD	ss_millitime ()
DWORD	ss_time ()
double	ss_time_sec ()
DWORD	ss_settime (DWORD seconds)
std::string	ss_asctime ()
INT	ss_timezone ()
INT	ss_sleep (INT millisec)
BOOL	ss_kbhit ()
INT	ss_alarm (INT millitime, void(*func)(int))
INT	ss_exception_handler (void(*func)(void))
void *	ss_ctrlc_handler (void(*func)(int))
static bool	ss_match_thread (midas_thread_t tid1, midas_thread_t tid2)
INT	ss_suspend_set_rpc_thread (midas_thread_t thread_id)
static INT	ss_suspend_init_struct (SUSPEND_STRUCT *psuspend)
SUSPEND_STRUCT *	ss_suspend_get_struct (midas_thread_t thread_id)
static void	ss_suspend_close (SUSPEND_STRUCT *psuspend)
INT	ss_suspend_exit ()
INT	ss_suspend_set_server_listener (int listen_socket)
INT	ss_suspend_set_client_listener (int listen_socket)
INT	ss_suspend_set_client_connection (RPC_SERVER_CONNECTION *connection)
INT	ss_suspend_set_server_acceptions (RPC_SERVER_ACCEPTION_LIST *acceptions)
INT	ss_suspend_init_odb_port ()
INT	ss_suspend_get_odb_port (INT *port)
INT	ss_suspend_get_buffer_port (midas_thread_t thread_id, INT *port)
static int	ss_suspend_process_ipc (INT millisec, INT msg, int ipc_recv_socket)
static int	ss_socket_check (int sock)
bool	ss_event_socket_has_data ()
INT	ss_suspend (INT millisec, INT msg)
INT	ss_resume (INT port, const char *message)
int	ss_socket_wait (int sock, INT millisec)
INT	ss_socket_connect_tcp (const char *hostname, int tcp_port, int *sockp, std::string *error_msg_p)
INT	ss_socket_listen_tcp (bool listen_localhost, int tcp_port, int *sockp, int *tcp_port_p, std::string *error_msg_p)
INT	ss_socket_close (int *sockp)
INT	ss_socket_get_peer_name (int sock, std::string *hostp, int *portp)
INT	send_tcp (int sock, char *buffer, DWORD buffer_size, INT flags)
INT	ss_write_tcp (int sock, const char *buffer, size_t buffer_size)
INT	recv_string (int sock, char *buffer, DWORD buffer_size, INT millisec)
INT	recv_tcp (int sock, char *net_buffer, DWORD buffer_size, INT flags)
INT	recv_tcp2 (int sock, char *net_buffer, int buffer_size, int timeout_ms)
INT	ss_recv_net_command (int sock, DWORD *routine_id, DWORD *param_size, char **param_ptr, int timeout_ms)
std::string	ss_gethostname ()
INT	ss_gethostname (char *buffer, int buffer_size)
std::string	ss_getcwd ()
INT	ss_tape_open (char *path, INT oflag, INT *channel)
INT	ss_tape_close (INT channel)
INT	ss_tape_status (char *path)
INT	ss_tape_write (INT channel, void *pdata, INT count)
INT	ss_tape_read (INT channel, void *pdata, INT *count)
INT	ss_tape_write_eof (INT channel)
INT	ss_tape_fskip (INT channel, INT count)
INT	ss_tape_rskip (INT channel, INT count)
INT	ss_tape_rewind (INT channel)
INT	ss_tape_spool (INT channel)
INT	ss_tape_mount (INT channel)
INT	ss_tape_unmount (INT channel)
INT	ss_tape_get_blockn (INT channel)
double	ss_disk_free (const char *path)
INT	ss_file_find (const char *path, const char *pattern, char **plist)
INT	ss_file_find (const char *path, const char *pattern, STRING_LIST *plist)
INT	ss_dir_find (const char *path, const char *pattern, char **plist)
INT	ss_dir_find (const char *path, const char *pattern, STRING_LIST *plist)
INT	ss_dirlink_find (const char *path, const char *pattern, char **plist)
INT	ss_dirlink_find (const char *path, const char *pattern, STRING_LIST *plist)
INT	ss_file_remove (const char *path)
double	ss_file_size (const char *path)
time_t	ss_file_time (const char *path)
double	ss_disk_size (const char *path)
int	ss_file_exist (const char *path)
int	ss_file_link_exist (const char *path)
int	ss_dir_exist (const char *path)
int	ss_file_copy (const char *src, const char *dst, bool append)
void	ss_clear_screen ()
void	ss_set_screen_size (int x, int y)
void	ss_printf (INT x, INT y, const char *format,...)
char *	ss_getpass (const char *prompt)
INT	ss_getchar (BOOL reset)
char *	ss_gets (char *string, int size)
INT	ss_directio_give_port (INT start, INT end)
INT	ss_directio_lock_port (INT start, INT end)
char *	ss_crypt (const char *buf, const char *salt)
double	ss_nan ()
int	ss_isnan (double x)
int	ss_isfin (double x)
INT	ss_stack_get (char ***string)
void	ss_stack_print ()
void	ss_stack_history_entry (char *tag)
void	ss_stack_history_dump (char *filename)
bool	ss_is_valid_utf8 (const char *string)
bool	ss_repair_utf8 (char *string)
bool	ss_repair_utf8 (std::string &s)
std::chrono::time_point< std::chrono::high_resolution_clock >	ss_us_start ()
unsigned int	ss_us_since (std::chrono::time_point< std::chrono::high_resolution_clock > start)
int	rpc_flush_event_socket (int timeout_msec)

Variables
struct {
char   c
double   d
}	test_align
struct {
double   d
char   c
}	test_padding
static BOOL	_daemon_flag
static std::atomic_bool	s_semaphore_trace {false}
static std::atomic_int	s_semaphore_nest_level {0}
static std::mutex	gTzMutex
void(*	MidasExceptionHandler )(void)
static std::vector< SUSPEND_STRUCT * >	_ss_suspend_vector
static midas_thread_t	_ss_odb_thread = 0
static SUSPEND_STRUCT *	_ss_suspend_odb = NULL
static midas_thread_t	_ss_listen_thread = 0
static int	_ss_server_listen_socket = 0
static int	_ss_client_listen_socket = 0
static midas_thread_t	_ss_client_thread = 0
static RPC_SERVER_CONNECTION *	_ss_client_connection = NULL
static midas_thread_t	_ss_server_thread = 0
static RPC_SERVER_ACCEPTION_LIST *	_ss_server_acceptions = NULL
static bool	gSocketTrace = false
char	stack_history [N_STACK_HISTORY][80]
int	stack_history_pointer = -1

Detailed Description

dox

Macro Definition Documentation

bin_to_ascii

#define bin_to_ascii

(

c

)

((c)>=38?((c)-38+'a'):(c)>=12?((c)-12+'A'):(c)+'.')

Definition at line 7967 of file system.cxx.

N_STACK_HISTORY

#define N_STACK_HISTORY   500

Definition at line 8068 of file system.cxx.

Typedef Documentation

SUSPEND_STRUCT

typedef struct suspend_struct SUSPEND_STRUCT

Function Documentation

check_shm_host()

static void check_shm_host ( )

static

Definition at line 170 of file system.cxx.

{
   std::string file_name;
   char buf[256], cwd[256];
   char hostname[256];
   char* s;
   FILE *fp;
 
   gethostname(hostname, sizeof(hostname));
 
   //printf("hostname [%s]\n", hostname);
 
   std::string path = cm_get_path();
   if (path.empty()) {
      if (getcwd(cwd, sizeof(cwd)))
         path = std::string(cwd);
#if defined(OS_VMS)
#elif defined(OS_UNIX)
      path += "/";
#elif defined(OS_WINNT)
      path += "\\";
#endif
   }
 
   file_name = path;
#if defined (OS_UNIX)
   file_name += "."; /* dot file under UNIX */
#endif
   file_name += "SHM_HOST.TXT";
 
   fp = fopen(file_name.c_str(), "r");
   if (!fp) {
      fp = fopen(file_name.c_str(), "w");
      if (!fp)
         cm_msg(MERROR, "check_shm_host", "Cannot write to \'%s\', errno %d (%s)", file_name.c_str(), errno, strerror(errno));
      assert(fp != NULL);
      fprintf(fp, "%s\n", hostname);
      fclose(fp);
      return;
   }
 
   buf[0] = 0;
 
   if (!fgets(buf, sizeof(buf), fp))
      buf[0] = 0;
 
   fclose(fp);
 
   s = strchr(buf, '\n');
   if (s)
      *s = 0;
 
   if (strlen(buf) < 1)
      return; // success - provide user with a way to defeat this check
 
   if (strcmp(buf, hostname) == 0)
      return; // success!
 
   cm_msg(MERROR, "check_shm_host", "Error: Cannot connect to MIDAS shared memory - this computer hostname is \'%s\' while \'%s\' says that MIDAS shared memory for this experiment is located on computer \'%s\'. To connect to this experiment from this computer, use the mserver. Please see the MIDAS documentation for details.", hostname, file_name.c_str(), buf);
   exit(1);
}

Here is the call graph for this function:

Here is the caller graph for this function:

check_shm_type()

static void check_shm_type ( const char *  shm_type )

static

Definition at line 82 of file system.cxx.

{
#ifdef OS_UNIX
   std::string file_name;
   char cwd[256], buf[256];
   char* s;
 
   std::string path = cm_get_path();
   if (path.empty()) {
      if (getcwd(cwd, sizeof(cwd)))
         path = std::string(cwd);
      path += "/";
   }
 
 
   file_name = path;
   file_name += ".SHM_TYPE.TXT";
 
   FILE* fp = fopen(file_name.c_str(), "r");
   if (!fp) {
      fp = fopen(file_name.c_str(), "w");
      if (!fp) {
         fprintf(stderr, "check_shm_type: Cannot write to config file \'%s\', errno %d (%s)", file_name.c_str(), errno, strerror(errno));
         exit(1);
         // DOES NOT RETURN
      }
 
      fprintf(fp, "%s\n", shm_type);
      fclose(fp);
 
      fp = fopen(file_name.c_str(), "r");
      if (!fp) {
         fprintf(stderr, "check_shm_type: Cannot open config file \'%s\', errno %d (%s)", file_name.c_str(), errno, strerror(errno));
         exit(1);
         // DOES NOT RETURN
      }
   }
 
   if (!fgets(buf, sizeof(buf), fp))
      buf[0] = 0;
 
   fclose(fp);
 
   s = strchr(buf, '\n');
   if (s)
      *s = 0;
 
   //printf("check_shm_type: preferred %s got %s\n", shm_type, buf);
 
   if (strcmp(buf, "SYSV_SHM") == 0) {
      use_sysv_shm = 1;
      return;
   }
 
   if (strcmp(buf, "MMAP_SHM") == 0) {
      use_mmap_shm = 1;
      return;
   }
 
   if (strcmp(buf, "POSIX_SHM") == 0) {
      use_posix1_shm = 1;
      use_posix_shm = 1;
      return;
   }
 
   if (strcmp(buf, "POSIXv2_SHM") == 0) {
      use_posix2_shm = 1;
      use_posix_shm = 1;
      return;
   }
 
   if (strcmp(buf, "POSIXv3_SHM") == 0) {
      use_posix3_shm = 1;
      use_posix_shm = 1;
      return;
   }
 
   if (strcmp(buf, "POSIXv4_SHM") == 0) {
      use_posix4_shm = 1;
      use_posix_shm = 1;
      return;
   }
 
   fprintf(stderr, "check_shm_type: Config file \"%s\" specifies unknown or unsupported shared memory type \"%s\", supported types are: SYSV_SHM, MMAP_SHM, POSIX_SHM, POSIXv2_SHM, POSIXv3_SHM, POSIXv4_SHM, default/preferred type is \"%s\"\n", file_name.c_str(), buf, shm_type);
   exit(1);
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

recv_string()

INT EXPRT recv_string	(	int	sock,
		char *	buffer,
		DWORD	buffer_size,
		INT	millisec
	)

Definition at line 5471 of file system.cxx.

{
   INT i, status;
   DWORD n;
 
   n = 0;
   memset(buffer, 0, buffer_size);
 
   do {
      if (millisec > 0) {
         status = ss_socket_wait(sock, millisec);
         if (status != SS_SUCCESS)
            break;
      }
 
      i = recv(sock, buffer + n, 1, 0);
 
      if (i <= 0)
         break;
 
      n++;
 
      if (n >= buffer_size)
         break;
 
   } while (buffer[n - 1] && buffer[n - 1] != 10);
 
   return n - 1;
}

Here is the call graph for this function:

Here is the caller graph for this function:

recv_tcp()

INT EXPRT recv_tcp	(	int	sock,
		char *	net_buffer,
		DWORD	buffer_size,
		INT	flags
	)

Definition at line 5526 of file system.cxx.

{
   INT param_size, n_received, n;
   NET_COMMAND *nc;
 
   if (buffer_size < sizeof(NET_COMMAND_HEADER)) {
      cm_msg(MERROR, "recv_tcp", "parameters too large for network buffer");
      return -1;
   }
 
   /* first receive header */
   n_received = 0;
   do {
#ifdef OS_UNIX
      do {
         n = recv(sock, net_buffer + n_received, sizeof(NET_COMMAND_HEADER), flags);
 
         /* don't return if an alarm signal was cought */
      } while (n == -1 && errno == EINTR);
#else
      n = recv(sock, net_buffer + n_received, sizeof(NET_COMMAND_HEADER), flags);
#endif
 
      if (n == 0) {
         cm_msg(MERROR, "recv_tcp", "header: recv(%d) returned %d, n_received = %d, unexpected connection closure", (int)sizeof(NET_COMMAND_HEADER), n, n_received);
         return n;
      }
 
      if (n < 0) {
         cm_msg(MERROR, "recv_tcp", "header: recv(%d) returned %d, n_received = %d, errno: %d (%s)", (int)sizeof(NET_COMMAND_HEADER), n, n_received, errno, strerror(errno));
         return n;
      }
 
      n_received += n;
 
   } while (n_received < (int) sizeof(NET_COMMAND_HEADER));
 
   /* now receive parameters */
 
   nc = (NET_COMMAND *) net_buffer;
   param_size = nc->header.param_size;
   n_received = 0;
 
   if (param_size == 0)
      return sizeof(NET_COMMAND_HEADER);
 
   if (param_size > (INT)buffer_size) {
      cm_msg(MERROR, "recv_tcp", "param: receive buffer size %d is too small for received data size %d", buffer_size, param_size);
      return -1;
   }
 
   do {
#ifdef OS_UNIX
      do {
         n = recv(sock, net_buffer + sizeof(NET_COMMAND_HEADER) + n_received, param_size - n_received, flags);
 
         /* don't return if an alarm signal was cought */
      } while (n == -1 && errno == EINTR);
#else
      n = recv(sock, net_buffer + sizeof(NET_COMMAND_HEADER) + n_received, param_size - n_received, flags);
#endif
 
      if (n == 0) {
         cm_msg(MERROR, "recv_tcp", "param: recv() returned %d, n_received = %d, unexpected connection closure", n, n_received);
         return n;
      }
 
      if (n < 0) {
         cm_msg(MERROR, "recv_tcp", "param: recv() returned %d, n_received = %d, errno: %d (%s)", n, n_received, errno, strerror(errno));
         return n;
      }
 
      n_received += n;
   } while (n_received < param_size);
 
   return sizeof(NET_COMMAND_HEADER) + param_size;
}

Here is the call graph for this function:

Here is the caller graph for this function:

recv_tcp2()

INT EXPRT recv_tcp2	(	int	sock,
		char *	net_buffer,
		int	buffer_size,
		int	timeout_ms
	)

Definition at line 5634 of file system.cxx.

{
   int n_received = 0;
   int flags = 0;
   int n;
 
   //printf("recv_tcp2: %p+%d bytes, timeout %d ms!\n", net_buffer + n_received, buffer_size - n_received, timeout_ms);
 
   while (n_received != buffer_size) {
 
      if (timeout_ms > 0) {
         int status = ss_socket_wait(sock, timeout_ms);
         if (status == SS_TIMEOUT)
            return n_received;
         if (status != SS_SUCCESS)
            return -1;
      }
 
      n = recv(sock, net_buffer + n_received, buffer_size - n_received, flags);
 
      //printf("recv_tcp2: %p+%d bytes, returned %d, errno %d (%s)\n", net_buffer + n_received, buffer_size - n_received, n, errno, strerror(errno));
 
#ifdef EINTR
      /* don't return if an alarm signal was cought */
      if (n == -1 && errno == EINTR)
         continue;
#endif
 
      if (n == 0) {
         // socket closed
         cm_msg(MERROR, "recv_tcp2", "unexpected connection closure");
         return -1;
      }
 
      if (n < 0) {
         // socket error
         cm_msg(MERROR, "recv_tcp2", "unexpected connection error, recv() errno %d (%s)", errno, strerror(errno));
         return -1;
      }
 
      n_received += n;
   }
 
   return n_received;
}

Here is the call graph for this function:

Here is the caller graph for this function:

rpc_flush_event_socket()

int rpc_flush_event_socket

(

int

timeout_msec

)

Definition at line 16158 of file midas.cxx.

{
   bool has_data = ss_event_socket_has_data();
   
   //printf("ss_event_socket_has_data() returned %d\n", has_data);
 
   if (has_data) {
      if (timeout_msec == BM_NO_WAIT) {
         return BM_ASYNC_RETURN;
      } else if (timeout_msec == BM_WAIT) {
         return BM_ASYNC_RETURN;
      } else {
         int status = ss_suspend(timeout_msec, MSG_BM);
         if (status == SS_ABORT || status == SS_EXIT)
            return status;
         return BM_ASYNC_RETURN;
      }
   }
 
   int status = rpc_server_receive_event(0, NULL, timeout_msec);
   
   //printf("rpc_server_receive_event() status %d\n", status);
 
   if (status == BM_ASYNC_RETURN) {
      return BM_ASYNC_RETURN;
   }
 
   if (status == SS_ABORT || status == SS_EXIT)
      return status;
   
   return BM_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

send_tcp()

INT EXPRT send_tcp	(	int	sock,
		char *	buffer,
		DWORD	buffer_size,
		INT	flags
	)

Definition at line 5357 of file system.cxx.

{
   DWORD count;
   INT status;
   //int net_tcp_size = NET_TCP_SIZE;
   int net_tcp_size = 1024 * 1024;
 
   /* transfer fragments until complete buffer is transferred */
 
   for (count = 0; (INT) count < (INT) buffer_size - net_tcp_size;) {
      status = send(sock, buffer + count, net_tcp_size, flags & 0xFFFF);
      if (status != -1)
         count += status;
      else {
#ifdef OS_UNIX
         if (errno == EINTR)
            continue;
#endif
         if ((flags & 0x10000) == 0)
            cm_msg(MERROR, "send_tcp",
                   "send(socket=%d,size=%d) returned %d, errno: %d (%s)",
                   sock, net_tcp_size, status, errno, strerror(errno));
         return status;
      }
   }
 
   while (count < buffer_size) {
      status = send(sock, buffer + count, buffer_size - count, flags & 0xFFFF);
      if (status != -1)
         count += status;
      else {
#ifdef OS_UNIX
         if (errno == EINTR)
            continue;
#endif
         if ((flags & 0x10000) == 0)
            cm_msg(MERROR, "send_tcp",
                   "send(socket=%d,size=%d) returned %d, errno: %d (%s)",
                   sock, (int) (buffer_size - count), status, errno, strerror(errno));
         return status;
      }
   }
 
   return count;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_alarm()

INT ss_alarm	(	INT	millitime,
		void(*)(int)	func
	)

Definition at line 3809 of file system.cxx.

{
#ifdef OS_WINNT
 
   UserCallback = func;
   if (millitime > 0)
      _timer_id = timeSetEvent(millitime, 100, (LPTIMECALLBACK) _timeCallback, 0, TIME_ONESHOT);
   else {
      if (_timer_id)
         timeKillEvent(_timer_id);
      _timer_id = 0;
   }
 
   return SS_SUCCESS;
 
#endif                          /* OS_WINNT */
#ifdef OS_VMS
 
   signal(SIGALRM, func);
   alarm(millitime / 1000);
   return SS_SUCCESS;
 
#endif                          /* OS_VMS */
#ifdef OS_UNIX
 
   signal(SIGALRM, func);
   alarm(millitime / 1000);
   return SS_SUCCESS;
 
#endif                          /* OS_UNIX */
}

Here is the call graph for this function:

ss_asctime()

std::string EXPRT ss_asctime

(

)

Definition at line 3621 of file system.cxx.

{
   ss_tzset(); // required for localtime_t()
   time_t seconds = (time_t) ss_time();
   struct tm tms;
   localtime_r(&seconds, &tms);
   char str[32];
   asctime_r(&tms, str);
   /* strip new line */
   str[24] = 0;
 
   return str;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_clear_screen()

void EXPRT ss_clear_screen

(

)

Definition at line 7377 of file system.cxx.

{
#ifdef OS_WINNT
 
   HANDLE hConsole;
   COORD coordScreen = { 0, 0 };        /* here's where we'll home the cursor */
   BOOL bSuccess;
   DWORD cCharsWritten;
   CONSOLE_SCREEN_BUFFER_INFO csbi;     /* to get buffer info */
   DWORD dwConSize;             /* number of character cells in the current buffer */
 
   hConsole = GetStdHandle(STD_OUTPUT_HANDLE);
 
   /* get the number of character cells in the current buffer */
   bSuccess = GetConsoleScreenBufferInfo(hConsole, &csbi);
   dwConSize = csbi.dwSize.X * csbi.dwSize.Y;
 
   /* fill the entire screen with blanks */
   bSuccess = FillConsoleOutputCharacter(hConsole, (TCHAR) ' ', dwConSize, coordScreen, &cCharsWritten);
 
   /* put the cursor at (0, 0) */
   bSuccess = SetConsoleCursorPosition(hConsole, coordScreen);
   return;
 
#endif                          /* OS_WINNT */
#if defined(OS_UNIX) || defined(OS_VXWORKS) || defined(OS_VMS)
   printf("\033[2J");
#endif
#ifdef OS_MSDOS
   clrscr();
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_crypt()

char EXPRT * ss_crypt	(	const char *	buf,
		const char *	salt
	)

Definition at line 7969 of file system.cxx.

{
   int i, seed;
   static char enc_pw[13];
 
   memset(enc_pw, 0, sizeof(enc_pw));
   enc_pw[0] = salt[0];
   enc_pw[1] = salt[1];
 
   for (i = 0; i < 8 && buf[i]; i++)
      enc_pw[i + 2] = buf[i];
   for (; i < 8; i++)
      enc_pw[i + 2] = 0;
 
   seed = 123;
   for (i = 2; i < 13; i++) {
      seed = 5 * seed + 27 + enc_pw[i];
      enc_pw[i] = (char) bin_to_ascii(seed & 0x3F);
   }
 
   return enc_pw;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_ctrlc_handler()

void EXPRT * ss_ctrlc_handler

(

void(*)(int)

func

)

Definition at line 3971 of file system.cxx.

{
#ifdef OS_WINNT
 
   if (func == NULL) {
      signal(SIGBREAK, SIG_DFL);
      return signal(SIGINT, SIG_DFL);
   } else {
      signal(SIGBREAK, func);
      return signal(SIGINT, func);
   }
   return NULL;
 
#endif                          /* OS_WINNT */
#ifdef OS_VMS
 
   return signal(SIGINT, func);
 
#endif                          /* OS_WINNT */
 
#ifdef OS_UNIX
 
   if (func == NULL) {
      signal(SIGTERM, SIG_DFL);
      return (void *) signal(SIGINT, SIG_DFL);
   } else {
      signal(SIGTERM, func);
      return (void *) signal(SIGINT, func);
   }
 
#endif                          /* OS_UNIX */
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_daemon_init()

INT EXPRT ss_daemon_init

(

BOOL

keep_stdout

)

Definition at line 2073 of file system.cxx.

{
#ifdef OS_UNIX
 
   /* only implemented for UNIX */
   int i, fd, pid;
 
#ifdef NO_FORK
   assert(!"support for fork() disabled by NO_FORK");
#else
   if ((pid = fork()) < 0)
      return SS_ABORT;
   else if (pid != 0)
      exit(0);                  /* parent finished */
#endif
 
   /* child continues here */
 
   _daemon_flag = TRUE;
 
   /* try and use up stdin, stdout and stderr, so other
      routines writing to stdout etc won't cause havoc. Copied from smbd */
   for (i = 0; i < 3; i++) {
      if (keep_stdout && ((i == 1) || (i == 2)))
         continue;
 
      close(i);
      fd = open("/dev/null", O_RDWR, 0);
      if (fd < 0)
         fd = open("/dev/null", O_WRONLY, 0);
      if (fd < 0) {
         cm_msg(MERROR, "ss_daemon_init", "Can't open /dev/null");
         return SS_ABORT;
      }
      if (fd != i) {
         cm_msg(MERROR, "ss_daemon_init", "Did not get file descriptor");
         return SS_ABORT;
      }
   }
 
   setsid();                    /* become session leader */
 
#endif
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_dir_exist()

INT EXPRT ss_dir_exist

(

const char *

path

)

Definition at line 7264 of file system.cxx.

{
#ifdef OS_UNIX
   struct stat buf;
   
   int retval = stat(path, &buf);
   //printf("retval %d, errno %d (%s)\n", retval, errno, strerror(errno));
   if (retval < 0)
      return 0;
   if (!S_ISDIR(buf.st_mode))
      return 0;
#else
#warning ss_dir_exist() is not implemented!
#endif
   return 1;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_dir_find() [1/2]

INT EXPRT ss_dir_find	(	const char *	path,
		const char *	pattern,
		char **	plist
	)

Definition at line 6874 of file system.cxx.

{
   STRING_LIST list;
 
   int count = ss_dir_find(path, pattern, &list);
   if (count <= 0)
      return count;
 
   size_t size = list.size();
   *plist = (char *) malloc(size*MAX_STRING_LENGTH);
   for (size_t i=0; i<size; i++) {
      //printf("file %d [%s]\n", (int)i, list[i].c_str());
      mstrlcpy((*plist)+i*MAX_STRING_LENGTH, list[i].c_str(), MAX_STRING_LENGTH);
   }
 
   return size;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_dir_find() [2/2]

INT EXPRT ss_dir_find	(	const char *	path,
		const char *	pattern,
		STRING_LIST *	plist
	)

Definition at line 6892 of file system.cxx.

{
   assert(plist);
#ifdef OS_UNIX
   DIR *dir_pointer;
   struct dirent *dp;
 
   if ((dir_pointer = opendir(path)) == NULL)
      return 0;
   plist->clear();
   for (dp = readdir(dir_pointer); dp != NULL; dp = readdir(dir_pointer)) {
      if (fnmatch(pattern, dp->d_name, 0) == 0 && dp->d_type == DT_DIR) {
         plist->push_back(dp->d_name);
         seekdir(dir_pointer, telldir(dir_pointer));
      }
   }
   closedir(dir_pointer);
#endif
#ifdef OS_WINNT
   char str[255];
   int first;
 
   strcpy(str, path);
   strcat(str, "\\");
   strcat(str, pattern);
   first = 1;
   plist->clear();
   lpfdata = (WIN32_FIND_DATA *) malloc(sizeof(WIN32_FIND_DATA));
   pffile = FindFirstFile(str, lpfdata);
   if (pffile == INVALID_HANDLE_VALUE)
      return 0;
   first = 0;
   plist->push_back(lpfdata->cFileName);
   while (FindNextFile(pffile, lpfdata)) {
      plist->push_back(lpfdata->cFileName);
   }
   free(lpfdata);
#endif
   return plist->size();
}

Here is the call graph for this function:

ss_directio_give_port()

INT EXPRT ss_directio_give_port	(	INT	start,
		INT	end
	)

Definition at line 7889 of file system.cxx.

{
#ifdef OS_WINNT
 
   /* under Windows NT, use DirectIO driver to open ports */
 
   OSVERSIONINFO vi;
   HANDLE hdio = 0;
   DWORD buffer[] = { 6, 0, 0, 0 };
   DWORD size;
 
   vi.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
   GetVersionEx(&vi);
 
   /* use DirectIO driver under NT to gain port access */
   if (vi.dwPlatformId == VER_PLATFORM_WIN32_NT) {
      hdio = CreateFile("\\\\.\\directio", GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, 0, NULL);
      if (hdio == INVALID_HANDLE_VALUE) {
         printf("hyt1331.c: Cannot access IO ports (No DirectIO driver installed)\n");
         return -1;
      }
 
      /* open ports */
      buffer[1] = start;
      buffer[2] = end;
      if (!DeviceIoControl(hdio, (DWORD) 0x9c406000, &buffer, sizeof(buffer), NULL, 0, &size, NULL))
         return -1;
   }
 
   return SS_SUCCESS;
#else
   return SS_SUCCESS;
#endif
}

Here is the call graph for this function:

ss_directio_lock_port()

INT EXPRT ss_directio_lock_port	(	INT	start,
		INT	end
	)

Definition at line 7925 of file system.cxx.

{
#ifdef OS_WINNT
 
   /* under Windows NT, use DirectIO driver to lock ports */
 
   OSVERSIONINFO vi;
   HANDLE hdio;
   DWORD buffer[] = { 7, 0, 0, 0 };
   DWORD size;
 
   vi.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
   GetVersionEx(&vi);
 
   /* use DirectIO driver under NT to gain port access */
   if (vi.dwPlatformId == VER_PLATFORM_WIN32_NT) {
      hdio = CreateFile("\\\\.\\directio", GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, 0, NULL);
      if (hdio == INVALID_HANDLE_VALUE) {
         printf("hyt1331.c: Cannot access IO ports (No DirectIO driver installed)\n");
         return -1;
      }
 
      /* lock ports */
      buffer[1] = start;
      buffer[2] = end;
      if (!DeviceIoControl(hdio, (DWORD) 0x9c406000, &buffer, sizeof(buffer), NULL, 0, &size, NULL))
         return -1;
   }
 
   return SS_SUCCESS;
#else
   return SS_SUCCESS;
#endif
}

Here is the call graph for this function:

ss_dirlink_find() [1/2]

INT EXPRT ss_dirlink_find	(	const char *	path,
		const char *	pattern,
		char **	plist
	)

Definition at line 6950 of file system.cxx.

{
   STRING_LIST list;
 
   int count = ss_dirlink_find(path, pattern, &list);
   if (count <= 0)
      return count;
 
   size_t size = list.size();
   *plist = (char *) malloc(size*MAX_STRING_LENGTH);
   for (size_t i=0; i<size; i++) {
      //printf("file %d [%s]\n", (int)i, list[i].c_str());
      mstrlcpy((*plist)+i*MAX_STRING_LENGTH, list[i].c_str(), MAX_STRING_LENGTH);
   }
 
   return size;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_dirlink_find() [2/2]

INT EXPRT ss_dirlink_find	(	const char *	path,
		const char *	pattern,
		STRING_LIST *	plist
	)

Definition at line 6968 of file system.cxx.

{
   assert(plist);
#ifdef OS_UNIX
   DIR *dir_pointer;
   struct dirent *dp;
 
   if ((dir_pointer = opendir(path)) == NULL)
      return 0;
   plist->clear();
   for (dp = readdir(dir_pointer); dp != NULL; dp = readdir(dir_pointer)) {
      if (fnmatch(pattern, dp->d_name, 0) == 0) {
         /* must have a "/" at the end, otherwise also links to files are accepted */
         std::string full_path = std::string(path) + "/" + dp->d_name + "/";
         struct stat st;
         if (lstat(full_path.c_str(), &st) == 0 && (S_ISDIR(st.st_mode) || S_ISLNK(st.st_mode))) {
            plist->push_back(dp->d_name);
         }
      }
   }
   closedir(dir_pointer);
#endif
#ifdef OS_WINNT
   char str[255];
   int first;
 
   strcpy(str, path);
   strcat(str, "\\");
   strcat(str, pattern);
   first = 1;
   plist->clear();
   lpfdata = (WIN32_FIND_DATA *) malloc(sizeof(WIN32_FIND_DATA));
   pffile = FindFirstFile(str, lpfdata);
   if (pffile == INVALID_HANDLE_VALUE)
      return 0;
   first = 0;
   plist->push_back(lpfdata->cFileName);
   while (FindNextFile(pffile, lpfdata)) {
      plist->push_back(lpfdata->cFileName);
   }
   free(lpfdata);
#endif
   return plist->size();
}

Here is the call graph for this function:

ss_disk_free()

double EXPRT ss_disk_free

(

const char *

path

)

Definition at line 6698 of file system.cxx.

{
#ifdef OS_UNIX
#if defined(OS_OSF1)
   struct statfs st;
   statfs(path, &st, sizeof(st));
   return (double) st.f_bavail * st.f_bsize;
#elif defined(OS_LINUX)
   struct statfs st;
   int status;
   status = statfs(path, &st);
   if (status != 0)
      return -1;
   return (double) st.f_bavail * st.f_bsize;
#elif defined(OS_SOLARIS)
   struct statvfs st;
   statvfs(path, &st);
   return (double) st.f_bavail * st.f_bsize;
#elif defined(OS_IRIX)
   struct statfs st;
   statfs(path, &st, sizeof(struct statfs), 0);
   return (double) st.f_bfree * st.f_bsize;
#else
   struct fs_data st;
   statfs(path, &st);
   return (double) st.fd_otsize * st.fd_bfree;
#endif
 
#elif defined(OS_WINNT)         /* OS_UNIX */
   DWORD SectorsPerCluster;
   DWORD BytesPerSector;
   DWORD NumberOfFreeClusters;
   DWORD TotalNumberOfClusters;
   char str[80];
 
   strcpy(str, path);
   if (strchr(str, ':') != NULL) {
      *(strchr(str, ':') + 1) = 0;
      strcat(str, DIR_SEPARATOR_STR);
      GetDiskFreeSpace(str, &SectorsPerCluster, &BytesPerSector, &NumberOfFreeClusters, &TotalNumberOfClusters);
   } else
      GetDiskFreeSpace(NULL, &SectorsPerCluster, &BytesPerSector, &NumberOfFreeClusters, &TotalNumberOfClusters);
 
   return (double) NumberOfFreeClusters *SectorsPerCluster * BytesPerSector;
#else                           /* OS_WINNT */
 
   return 1e9;
 
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_disk_size()

double EXPRT ss_disk_size

(

const char *

path

)

Definition at line 7126 of file system.cxx.

{
#ifdef OS_UNIX
#if defined(OS_OSF1)
   struct statfs st;
   statfs(path, &st, sizeof(st));
   return (double) st.f_blocks * st.f_fsize;
#elif defined(OS_LINUX)
   int status;
   struct statfs st;
   status = statfs(path, &st);
   if (status != 0)
      return -1;
   return (double) st.f_blocks * st.f_bsize;
#elif defined(OS_SOLARIS)
   struct statvfs st;
   statvfs(path, &st);
   if (st.f_frsize > 0)
      return (double) st.f_blocks * st.f_frsize;
   else
      return (double) st.f_blocks * st.f_bsize;
#elif defined(OS_ULTRIX)
   struct fs_data st;
   statfs(path, &st);
   return (double) st.fd_btot * 1024;
#elif defined(OS_IRIX)
   struct statfs st;
   statfs(path, &st, sizeof(struct statfs), 0);
   return (double) st.f_blocks * st.f_bsize;
#else
#error ss_disk_size not defined for this OS
#endif
#endif                          /* OS_UNIX */
 
#ifdef OS_WINNT
   DWORD SectorsPerCluster;
   DWORD BytesPerSector;
   DWORD NumberOfFreeClusters;
   DWORD TotalNumberOfClusters;
   char str[80];
 
   strcpy(str, path);
   if (strchr(str, ':') != NULL) {
      *(strchr(str, ':') + 1) = 0;
      strcat(str, DIR_SEPARATOR_STR);
      GetDiskFreeSpace(str, &SectorsPerCluster, &BytesPerSector, &NumberOfFreeClusters, &TotalNumberOfClusters);
   } else
      GetDiskFreeSpace(NULL, &SectorsPerCluster, &BytesPerSector, &NumberOfFreeClusters, &TotalNumberOfClusters);
 
   return (double) TotalNumberOfClusters *SectorsPerCluster * BytesPerSector;
#endif                          /* OS_WINNT */
 
   return 1e9;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_event_socket_has_data()

bool ss_event_socket_has_data

(

)

Definition at line 4592 of file system.cxx.

{
   if (_ss_server_acceptions) {
      for (unsigned i = 0; i < _ss_server_acceptions->size(); i++) {
         /* event channel */
         int sock = (*_ss_server_acceptions)[i]->event_sock;
 
         if (!sock)
            continue;
 
         /* check for buffered event */
         int status = ss_socket_wait(sock, 1);
 
         if (status == SS_SUCCESS)
            return true;
      }
   }
   
   /* no event socket or no data in event socket */
   return false;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_exception_handler()

INT ss_exception_handler

(

void(*)(void)

func

)

Definition at line 3916 of file system.cxx.

{
#ifdef OS_WINNT
 
   MidasExceptionHandler = func;
/*  SetUnhandledExceptionFilter(
    (LPTOP_LEVEL_EXCEPTION_FILTER) MidasExceptionFilter);
 
  signal(SIGINT, MidasExceptionSignal);
  signal(SIGILL, MidasExceptionSignal);
  signal(SIGFPE, MidasExceptionSignal);
  signal(SIGSEGV, MidasExceptionSignal);
  signal(SIGTERM, MidasExceptionSignal);
  signal(SIGBREAK, MidasExceptionSignal);
  signal(SIGABRT, MidasExceptionSignal); */
 
#elif defined (OS_VMS)
 
   MidasExceptionHandler = func;
   lib$establish(MidasExceptionFilter);
 
   signal(SIGINT, MidasExceptionSignal);
   signal(SIGILL, MidasExceptionSignal);
   signal(SIGQUIT, MidasExceptionSignal);
   signal(SIGFPE, MidasExceptionSignal);
   signal(SIGSEGV, MidasExceptionSignal);
   signal(SIGTERM, MidasExceptionSignal);
 
#else                           /* OS_VMS */
#endif
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

ss_exec()

INT EXPRT ss_exec	(	const char *	command,
		INT *	pid
	)

Definition at line 2204 of file system.cxx.

{
#ifdef OS_UNIX
 
   /* only implemented for UNIX */
   int i, fd;
 
#ifdef NO_FORK
   assert(!"support for fork() disabled by NO_FORK");
#else
   *pid = fork();
#endif
   if (*pid < 0)
      return SS_ABORT;
   else if (*pid != 0) {
      /* avoid <defunc> parent processes */
      signal(SIGCHLD, catch_sigchld);
      return SS_SUCCESS;        /* parent returns */
   }
 
   /* child continues here... */
 
   /* close all open file descriptors */
   for (i = 0; i < 256; i++)
      close(i);
 
   /* try and use up stdin, stdout and stderr, so other
      routines writing to stdout etc won't cause havoc */
   for (i = 0; i < 3; i++) {
      fd = open("/dev/null", O_RDWR, 0);
      if (fd < 0)
         fd = open("/dev/null", O_WRONLY, 0);
      if (fd < 0) {
         cm_msg(MERROR, "ss_exec", "Can't open /dev/null");
         return SS_ABORT;
      }
      if (fd != i) {
         cm_msg(MERROR, "ss_exec", "Did not get file descriptor");
         return SS_ABORT;
      }
   }
 
   setsid();                    /* become session leader */
   /* chdir("/"); *//* change working directory (not on NFS!) */
 
   /* execute command */
   int error = execl("/bin/sh", "sh", "-c", command, NULL);
   // NB: execl() does not return unless there is an error. K.O.
   fprintf(stderr, "ss_shell: Cannot execute /bin/sh for command \"%s\": execl() returned %d, errno %d (%s), aborting!\n", command, error, errno, strerror(errno));
   abort();
 
#else
 
   system(command);
 
#endif
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_execs()

std::string EXPRT ss_execs

(

const char *

cmd

)

Definition at line 2309 of file system.cxx.

{
#ifdef OS_UNIX
   std::array<char, 256> buffer{};
   std::string result;
   auto pclose_deleter = [](FILE* f) { pclose(f); };
   auto pipe = std::unique_ptr<FILE, decltype(pclose_deleter)>(
      popen(cmd, "r"),
      pclose_deleter
   );
 
   if (!pipe) {
      throw std::runtime_error("popen() failed!");
   }
 
   while (fgets(buffer.data(), buffer.size(), pipe.get()) != nullptr) {
      result += buffer.data();
   }
 
   return result;
#else
   fprintf(stderr, "ss_execs: Function not supported on this OS,  aborting!\n");
   abort();
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_existpid()

BOOL EXPRT ss_existpid

(

INT

pid

)

Definition at line 2140 of file system.cxx.

{
#ifdef OS_UNIX
   /* only implemented for UNIX */
   return (kill(pid, 0) == 0 ? TRUE : FALSE);
#else
   cm_msg(MINFO, "ss_existpid", "implemented for UNIX only");
   return FALSE;
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_file_copy()

int EXPRT ss_file_copy	(	const char *	src,
		const char *	dst,
		bool	append
	)

Definition at line 7297 of file system.cxx.

{
   int fd_to, fd_from;
   char buf[4096];
   ssize_t nread;
   int saved_errno;
 
   fd_from = open(src, O_RDONLY);
   if (fd_from < 0)
      return -1;
 
   if (append)
      fd_to = open(dst, O_WRONLY | O_CREAT | O_EXCL | O_APPEND, 0666);
   else
      fd_to = open(dst, O_WRONLY | O_CREAT | O_EXCL, 0666);
   if (fd_to < 0)
      goto out_error;
 
   while (nread = read(fd_from, buf, sizeof(buf)), nread > 0) {
      char *out_ptr = buf;
      ssize_t nwritten;
 
      do {
         nwritten = write(fd_to, out_ptr, nread);
 
         if (nwritten >= 0) {
            nread -= nwritten;
            out_ptr += nwritten;
         } else if (errno != EINTR) {
            goto out_error;
         }
      } while (nread > 0);
   }
 
   if (nread == 0) {
      if (close(fd_to) < 0) {
         fd_to = -1;
         goto out_error;
      }
      close(fd_from);
 
      /* Success! */
      return 0;
   }
 
   out_error:
   saved_errno = errno;
 
   close(fd_from);
   if (fd_to >= 0)
      close(fd_to);
 
   errno = saved_errno;
   return -1;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_file_exist()

INT EXPRT ss_file_exist

(

const char *

path

)

Definition at line 7196 of file system.cxx.

{
#ifdef OS_UNIX
   struct stat buf;
   
   int retval = stat(path, &buf);
   //printf("retval %d, errno %d (%s)\n", retval, errno, strerror(errno));
   if (retval < 0)
      return 0;
   if (S_ISDIR(buf.st_mode))
      return 0;
#endif
   
   int fd = open(path, O_RDONLY, 0);
   if (fd < 0)
      return 0;
   close(fd);
   return 1;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_file_find() [1/2]

INT EXPRT ss_file_find	(	const char *	path,
		const char *	pattern,
		char **	plist
	)

Definition at line 6791 of file system.cxx.

{
   STRING_LIST list;
 
   int count = ss_file_find(path, pattern, &list);
   if (count <= 0)
      return count;
 
   size_t size = list.size();
   *plist = (char *) malloc(size*MAX_STRING_LENGTH);
   for (size_t i=0; i<size; i++) {
      //printf("file %d [%s]\n", (int)i, list[i].c_str());
      mstrlcpy((*plist)+i*MAX_STRING_LENGTH, list[i].c_str(), MAX_STRING_LENGTH);
   }
 
   return size;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_file_find() [2/2]

INT EXPRT ss_file_find	(	const char *	path,
		const char *	pattern,
		STRING_LIST *	plist
	)

Definition at line 6809 of file system.cxx.

{
   assert(plist);
   // Check if the directory exists
   if (access(path, F_OK) != 0) {
      return -1; // Return -1 files if directory doesn't exist
   }
 
#ifdef OS_UNIX
   DIR *dir_pointer;
   struct dirent *dp;
 
   plist->clear();
   if ((dir_pointer = opendir(path)) == NULL)
      return 0;
   for (dp = readdir(dir_pointer); dp != NULL; dp = readdir(dir_pointer)) {
      if (fnmatch(pattern, dp->d_name, 0) == 0 && (dp->d_type == DT_REG || dp->d_type == DT_LNK || dp->d_type == DT_UNKNOWN)) {
         plist->push_back(dp->d_name);
         seekdir(dir_pointer, telldir(dir_pointer));
      }
   }
   closedir(dir_pointer);
#endif
#ifdef OS_WINNT
   char str[255];
   int first;
 
   strcpy(str, path);
   strcat(str, "\\");
   strcat(str, pattern);
   first = 1;
   lpfdata = (WIN32_FIND_DATA *) malloc(sizeof(WIN32_FIND_DATA));
   *plist->clear();
   pffile = FindFirstFile(str, lpfdata);
   if (pffile == INVALID_HANDLE_VALUE)
      return 0;
   first = 0;
   plist->push_back(lpfdata->cFileName);
   i++;
   while (FindNextFile(pffile, lpfdata)) {
      plist->push_back(lpfdata->cFileName);
      i++;
   }
   free(lpfdata);
#endif
   return plist->size();
}

Here is the call graph for this function:

ss_file_link_exist()

INT EXPRT ss_file_link_exist

(

const char *

path

)

Definition at line 7232 of file system.cxx.

{
#ifdef OS_UNIX
   struct stat buf;
 
   int retval = lstat(path, &buf);
   if (retval < 0)
      return 0;
   if (S_ISLNK(buf.st_mode))
      return 1;
   return 0;
#endif
 
   return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_file_remove()

INT EXPRT ss_file_remove

(

const char *

path

)

Definition at line 7030 of file system.cxx.

{
   return remove(path);
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_file_size()

double EXPRT ss_file_size

(

const char *

path

)

Definition at line 7050 of file system.cxx.

{
#ifdef _LARGEFILE64_SOURCE
   struct stat64 stat_buf;
   int status;
 
   /* allocate buffer with file size */
   status = stat64(path, &stat_buf);
   if (status != 0)
      return -1;
   return (double) stat_buf.st_size;
#else
   struct stat stat_buf;
   int status;
 
   /* allocate buffer with file size */
   status = stat(path, &stat_buf);
   if (status != 0)
      return -1;
   return (double) stat_buf.st_size;
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_file_time()

time_t EXPRT ss_file_time

(

const char *

path

)

Definition at line 7088 of file system.cxx.

{
#ifdef _LARGEFILE64_SOURCE
   struct stat64 stat_buf;
   int status;
 
   /* allocate buffer with file size */
   status = stat64(path, &stat_buf);
   if (status != 0)
      return -1;
   return stat_buf.st_mtime;
#else
   struct stat stat_buf;
   int status;
 
   /* allocate buffer with file size */
   status = stat(path, &stat_buf);
   if (status != 0)
      return -1;
   return stat_buf.st_mtime;
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_get_cmdline()

std::string ss_get_cmdline

(

void

)

Definition at line 1519 of file system.cxx.

{
#if defined(OS_DARWIN)
   int mib[3] = {CTL_KERN, KERN_PROCARGS2, getpid()};
   size_t len;
 
   if (sysctl(mib, 3, nullptr, &len, nullptr, 0) == -1) {
      perror("sysctl (size)");
      return {};
   }
 
   std::vector<char> buf(len);
   if (sysctl(mib, 3, buf.data(), &len, nullptr, 0) == -1) {
      perror("sysctl (data)");
      return {};
   }
 
   int argc = *reinterpret_cast<int*>(buf.data());
   char* ptr = buf.data() + sizeof(int);
   char* end = buf.data() + len;
 
   // Skip the executable path
   while (ptr < end && *ptr != '\0') {
      ptr++;
   }
   // Skip over any trailing NULs until the real argv[1] begins
   while (ptr < end && *ptr == '\0') {
      ptr++;
   }
 
   std::string result;
   for (int i = 1; i <= argc && ptr < end; i++) {
      std::string s(ptr);
      if (!result.empty()) result += " ";
      result += s;
      ptr += s.size() + 1;
   }
 
   return result;
#elif defined(OS_LINUX)
   std::ifstream in("/proc/self/cmdline", std::ios::binary);
   if (!in)
      return {};
 
   std::string data((std::istreambuf_iterator<char>(in)),
                    std::istreambuf_iterator<char>());
   if (data.empty())
      return {};
 
   // Replace NULs with spaces and trim a trailing space if present
   for (char &c : data)
      if (c == '\0') 
         c = ' ';
   if (!data.empty() && data.back() == ' ')
      data.pop_back();
   return data;
#endif
   return {};
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_get_executable()

std::string ss_get_executable

(

void

)

Definition at line 1490 of file system.cxx.

{
   char path[PATH_MAX];
 
#if defined(OS_DARWIN)
   uint32_t size = sizeof(path);
   if (_NSGetExecutablePath(path, &size) == 0)
      return path;
#elif defined(OS_LINUX)
 
   ssize_t count = readlink("/proc/self/exe", path, PATH_MAX);
   if (count != -1) {
      path[count] = '\0';  // Null-terminate the string
      return std::string(path);
   }
#endif
   return "";
}

Here is the call graph for this function:

ss_get_struct_align()

INT EXPRT ss_get_struct_align

(

)

Definition at line 1321 of file system.cxx.

{
   return (POINTER_T) (&test_align.d) - (POINTER_T) & test_align.c;
}

Here is the caller graph for this function:

ss_get_struct_padding()

INT EXPRT ss_get_struct_padding

(

)

Definition at line 1347 of file system.cxx.

{
   return (INT) sizeof(test_padding) - 8;
}

ss_getchar()

INT EXPRT ss_getchar

(

BOOL

reset

)

Definition at line 7581 of file system.cxx.

{
#ifdef OS_UNIX
 
   static BOOL init = FALSE;
   static struct termios save_termios;
   struct termios buf;
   int i, fd;
   char c[3];
 
   if (_daemon_flag)
      return 0;
 
   fd = fileno(stdin);
 
   if (reset) {
      if (init)
         tcsetattr(fd, TCSAFLUSH, &save_termios);
      init = FALSE;
      return 0;
   }
 
   if (!init) {
      tcgetattr(fd, &save_termios);
      memcpy(&buf, &save_termios, sizeof(buf));
 
      buf.c_lflag &= ~(ECHO | ICANON | IEXTEN);
 
      buf.c_iflag &= ~(ICRNL | INPCK | ISTRIP | IXON);
 
      buf.c_cflag &= ~(CSIZE | PARENB);
      buf.c_cflag |= CS8;
      /* buf.c_oflag &= ~(OPOST); */
      buf.c_cc[VMIN] = 0;
      buf.c_cc[VTIME] = 0;
 
      tcsetattr(fd, TCSAFLUSH, &buf);
      init = TRUE;
   }
 
   memset(c, 0, 3);
   i = read(fd, c, 1);
 
   if (i == 0)
      return 0;
 
   /* check if ESC */
   if (c[0] == 27) {
      i = read(fd, c, 2);
      if (i == 0)               /* return if only ESC */
         return 27;
 
      /* cursor keys return 2 chars, others 3 chars */
      if (c[1] < 65) {
         i = read(fd, c, 1);
      }
 
      /* convert ESC sequence to CH_xxx */
      switch (c[1]) {
      case 49:
         return CH_HOME;
      case 50:
         return CH_INSERT;
      case 51:
         return CH_DELETE;
      case 52:
         return CH_END;
      case 53:
         return CH_PUP;
      case 54:
         return CH_PDOWN;
      case 65:
         return CH_UP;
      case 66:
         return CH_DOWN;
      case 67:
         return CH_RIGHT;
      case 68:
         return CH_LEFT;
      }
   }
 
   /* BS/DEL -> BS */
   if (c[0] == 127)
      return CH_BS;
 
   return c[0];
 
#elif defined(OS_WINNT)
 
   static BOOL init = FALSE;
   static INT repeat_count = 0;
   static INT repeat_char;
   HANDLE hConsole;
   DWORD nCharsRead;
   INPUT_RECORD ir;
   OSVERSIONINFO vi;
 
   /* find out if we are under W95 */
   vi.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
   GetVersionEx(&vi);
 
   if (vi.dwPlatformId != VER_PLATFORM_WIN32_NT) {
      /* under W95, console doesn't work properly */
      int c;
 
      if (!kbhit())
         return 0;
 
      c = getch();
      if (c == 224) {
         c = getch();
         switch (c) {
         case 71:
            return CH_HOME;
         case 72:
            return CH_UP;
         case 73:
            return CH_PUP;
         case 75:
            return CH_LEFT;
         case 77:
            return CH_RIGHT;
         case 79:
            return CH_END;
         case 80:
            return CH_DOWN;
         case 81:
            return CH_PDOWN;
         case 82:
            return CH_INSERT;
         case 83:
            return CH_DELETE;
         }
      }
      return c;
   }
 
   hConsole = GetStdHandle(STD_INPUT_HANDLE);
 
   if (reset) {
      SetConsoleMode(hConsole, ENABLE_LINE_INPUT | ENABLE_ECHO_INPUT | ENABLE_PROCESSED_INPUT | ENABLE_MOUSE_INPUT);
      init = FALSE;
      return 0;
   }
 
   if (!init) {
      SetConsoleMode(hConsole, ENABLE_PROCESSED_INPUT);
      init = TRUE;
   }
 
   if (repeat_count) {
      repeat_count--;
      return repeat_char;
   }
 
   PeekConsoleInput(hConsole, &ir, 1, &nCharsRead);
 
   if (nCharsRead == 0)
      return 0;
 
   ReadConsoleInput(hConsole, &ir, 1, &nCharsRead);
 
   if (ir.EventType != KEY_EVENT)
      return ss_getchar(0);
 
   if (!ir.Event.KeyEvent.bKeyDown)
      return ss_getchar(0);
 
   if (ir.Event.KeyEvent.wRepeatCount > 1) {
      repeat_count = ir.Event.KeyEvent.wRepeatCount - 1;
      repeat_char = ir.Event.KeyEvent.uChar.AsciiChar;
      return repeat_char;
   }
 
   if (ir.Event.KeyEvent.uChar.AsciiChar)
      return ir.Event.KeyEvent.uChar.AsciiChar;
 
   if (ir.Event.KeyEvent.dwControlKeyState & (ENHANCED_KEY)) {
      switch (ir.Event.KeyEvent.wVirtualKeyCode) {
      case 33:
         return CH_PUP;
      case 34:
         return CH_PDOWN;
      case 35:
         return CH_END;
      case 36:
         return CH_HOME;
      case 37:
         return CH_LEFT;
      case 38:
         return CH_UP;
      case 39:
         return CH_RIGHT;
      case 40:
         return CH_DOWN;
      case 45:
         return CH_INSERT;
      case 46:
         return CH_DELETE;
      }
 
      return ir.Event.KeyEvent.wVirtualKeyCode;
   }
 
   return ss_getchar(0);
 
#elif defined(OS_MSDOS)
 
   int c;
 
   if (!kbhit())
      return 0;
 
   c = getch();
   if (!c) {
      c = getch();
      switch (c) {
      case 71:
         return CH_HOME;
      case 72:
         return CH_UP;
      case 73:
         return CH_PUP;
      case 75:
         return CH_LEFT;
      case 77:
         return CH_RIGHT;
      case 79:
         return CH_END;
      case 80:
         return CH_DOWN;
      case 81:
         return CH_PDOWN;
      case 82:
         return CH_INSERT;
      case 83:
         return CH_DELETE;
      }
   }
   return c;
 
#else
   return -1;
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_getcwd()

std::string EXPRT ss_getcwd

(

)

Definition at line 5848 of file system.cxx.

{
   char *s = getcwd(NULL, 0);
   if (s) {
      std::string cwd = s;
      free(s);
      //printf("ss_getcwd: %s\n", cwd.c_str());
      return cwd;
   } else {
      return "/GETCWD-FAILED-ON-US";
   }
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_gethostname() [1/2]

std::string ss_gethostname

(

)

Definition at line 5784 of file system.cxx.

{
   char buf[256];
   memset(buf, 0, sizeof(buf));
 
   int status = gethostname(buf, sizeof(buf)-1);
 
   //printf("gethostname %d (%s)\n", status, buffer);
 
   if (status != 0) {
      cm_msg(MERROR, "ss_gethostname", "gethostname() errno %d (%s)", errno, strerror(errno));
      return "";
   }
 
   return buf;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_gethostname() [2/2]

INT ss_gethostname	(	char *	buffer,
		int	buffer_size
	)

Definition at line 5818 of file system.cxx.

{
   std::string h = ss_gethostname();
 
   if (h.length() == 0) {
      return SS_IO_ERROR;
   } else {
      mstrlcpy(buffer, h.c_str(), buffer_size);
      return SS_SUCCESS;
   }
}

Here is the call graph for this function:

ss_getpass()

char EXPRT * ss_getpass

(

const char *

prompt

)

Definition at line 7518 of file system.cxx.

{
   static char password[32];
 
   fprintf(stdout, "%s", prompt);
   fflush(stdout);
   memset(password, 0, sizeof(password));
 
#ifdef OS_UNIX
   return (char *) getpass("");
#elif defined(OS_WINNT)
   {
      HANDLE hConsole;
      DWORD nCharsRead;
 
      hConsole = GetStdHandle(STD_INPUT_HANDLE);
      SetConsoleMode(hConsole, ENABLE_LINE_INPUT);
      ReadConsole(hConsole, password, sizeof(password), &nCharsRead, NULL);
      SetConsoleMode(hConsole, ENABLE_LINE_INPUT | ENABLE_ECHO_INPUT | ENABLE_PROCESSED_INPUT | ENABLE_MOUSE_INPUT);
      printf("\n");
 
      if (password[strlen(password) - 1] == '\r')
         password[strlen(password) - 1] = 0;
 
      return password;
   }
#elif defined(OS_MSDOS)
   {
      char c, *ptr;
 
      ptr = password;
      while ((c = getchar()) != EOF && c != '\n')
         *ptr++ = c;
      *ptr = 0;
 
      printf("\n");
      return password;
   }
#else
   {
      ss_gets(password, 32);
      return password;
   }
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_getpid()

INT EXPRT ss_getpid

(

void

)

Definition at line 1379 of file system.cxx.

{
#ifdef OS_WINNT
 
   return (int) GetCurrentProcessId();
 
#endif                          /* OS_WINNT */
#ifdef OS_VMS
 
   return getpid();
 
#endif                          /* OS_VMS */
#ifdef OS_UNIX
 
   return getpid();
 
#endif                          /* OS_UNIX */
#ifdef OS_VXWORKS
 
   return 0;
 
#endif                          /* OS_VXWORKS */
#ifdef OS_MSDOS
 
   return 0;
 
#endif                          /* OS_MSDOS */
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_gets()

char EXPRT * ss_gets	(	char *	string,
		int	size
	)

Definition at line 7848 of file system.cxx.

{
   char *p;
 
   do {
      p = fgets(string, size, stdin);
   } while (p == NULL);
 
 
   if (strlen(p) > 0 && p[strlen(p) - 1] == '\n')
      p[strlen(p) - 1] = 0;
 
   return p;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_gettid()

midas_thread_t EXPRT ss_gettid

(

void

)

Definition at line 1591 of file system.cxx.

{
#if defined OS_MSDOS
 
   return 0;
 
#elif defined OS_WINNT
 
   return GetCurrentThreadId();
 
#elif defined OS_VMS
 
   return ss_getpid();
 
#elif defined OS_DARWIN
 
   return pthread_self();
 
#elif defined OS_CYGWIN
 
   return pthread_self();
 
#elif defined OS_UNIX
 
   return pthread_self();
   //return syscall(SYS_gettid);
 
#elif defined OS_VXWORKS
 
   return ss_getpid();
 
#else
#error Do not know how to do ss_gettid()
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_is_valid_utf8()

bool ss_is_valid_utf8

(

const char *

string

)

Definition at line 8146 of file system.cxx.

{
   assert(string);
 
   // FIXME: this function over-reads the input array. K.O. May 2021
 
   const unsigned char * bytes = (const unsigned char *)string;
   while(*bytes) {
      if( (// ASCII
           // use bytes[0] <= 0x7F to allow ASCII control characters
           bytes[0] == 0x09 ||
           bytes[0] == 0x0A ||
           bytes[0] == 0x0D ||
           (0x20 <= bytes[0] && bytes[0] <= 0x7E)
           )
          ) {
         bytes += 1;
         continue;
      }
      
      if( (// non-overlong 2-byte
           (0xC2 <= bytes[0] && bytes[0] <= 0xDF) &&
           (0x80 <= bytes[1] && bytes[1] <= 0xBF)
           )
          ) {
         bytes += 2;
         continue;
      }
      
      if( (// excluding overlongs
           bytes[0] == 0xE0 &&
           (0xA0 <= bytes[1] && bytes[1] <= 0xBF) &&
           (0x80 <= bytes[2] && bytes[2] <= 0xBF)
           ) ||
          (// straight 3-byte
           ((0xE1 <= bytes[0] && bytes[0] <= 0xEC) ||
            bytes[0] == 0xEE ||
            bytes[0] == 0xEF) &&
           (0x80 <= bytes[1] && bytes[1] <= 0xBF) &&
           (0x80 <= bytes[2] && bytes[2] <= 0xBF)
           ) ||
          (// excluding surrogates
           bytes[0] == 0xED &&
           (0x80 <= bytes[1] && bytes[1] <= 0x9F) &&
           (0x80 <= bytes[2] && bytes[2] <= 0xBF)
           )
          ) {
         bytes += 3;
         continue;
      }
      
      if( (// planes 1-3
           bytes[0] == 0xF0 &&
           (0x90 <= bytes[1] && bytes[1] <= 0xBF) &&
           (0x80 <= bytes[2] && bytes[2] <= 0xBF) &&
           (0x80 <= bytes[3] && bytes[3] <= 0xBF)
           ) ||
          (// planes 4-15
           (0xF1 <= bytes[0] && bytes[0] <= 0xF3) &&
           (0x80 <= bytes[1] && bytes[1] <= 0xBF) &&
           (0x80 <= bytes[2] && bytes[2] <= 0xBF) &&
           (0x80 <= bytes[3] && bytes[3] <= 0xBF)
           ) ||
          (// plane 16
           bytes[0] == 0xF4 &&
           (0x80 <= bytes[1] && bytes[1] <= 0x8F) &&
           (0x80 <= bytes[2] && bytes[2] <= 0xBF) &&
           (0x80 <= bytes[3] && bytes[3] <= 0xBF)
           )
          ) {
         bytes += 4;
         continue;
      }
      
      //printf("ss_is_valid_utf8(): string [%s], not utf8 at offset %d, byte %d, [%s]\n", string, (int)((char*)bytes-(char*)string), (int)(0xFF&bytes[0]), bytes);
      //abort();
      
      return false;
   }
 
   return true;
}

Here is the caller graph for this function:

ss_isfin()

int EXPRT ss_isfin

(

double

x

)

Definition at line 8044 of file system.cxx.

{
#ifdef FP_INFINITE
   /* new-style finite() */
   return isfinite(x);
#else
   /* old-style finite() */
   return finite(x);
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_isnan()

int EXPRT ss_isnan

(

double

x

)

Definition at line 8039 of file system.cxx.

{
   return isnan(x);
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_kbhit()

BOOL EXPRT ss_kbhit

(

)

Definition at line 3736 of file system.cxx.

{
#ifdef OS_MSDOS
 
   return kbhit();
 
#endif                          /* OS_MSDOS */
#ifdef OS_WINNT
 
   return kbhit();
 
#endif                          /* OS_WINNT */
#ifdef OS_VMS
 
   return FALSE;
 
#endif                          /* OS_VMS */
#ifdef OS_UNIX
 
   int n;
 
   if (_daemon_flag)
      return 0;
 
   ioctl(0, FIONREAD, &n);
   return (n > 0);
 
#endif                          /* OS_UNIX */
#ifdef OS_VXWORKS
 
   int n;
   ioctl(0, FIONREAD, (long) &n);
   return (n > 0);
 
#endif                          /* OS_UNIX */
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_kill()

void ss_kill

(

int

pid

)

Definition at line 1473 of file system.cxx.

{
#ifdef SIGKILL
   kill(pid, SIGKILL);
#else
#warning Missing SIGKILL for ss_kill()
#endif
}

Here is the call graph for this function:

ss_match_thread()

static bool ss_match_thread ( midas_thread_t  tid1, midas_thread_t  tid2  )

static

Definition at line 4065 of file system.cxx.

{
   if (tid1 == 0)
      return true;
   if (tid1 == tid2)
      return true;
   return false;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_millitime()

DWORD EXPRT ss_millitime

(

)

Returns the actual time in milliseconds with an arbitrary origin. This time may only be used to calculate relative times.

Overruns in the 32 bit value don't hurt since in a subtraction calculated with 32 bit accuracy this overrun cancels (you may think about!)..

...
DWORD start, stop:
start = ss_millitime();
  < do operations >
stop = ss_millitime();
printf("Operation took %1.3lf seconds\n",(stop-start)/1000.0);
...

Returns

millisecond time stamp.

Definition at line 3465 of file system.cxx.

{
#ifdef OS_WINNT
 
   return (int) GetTickCount();
 
#endif                          /* OS_WINNT */
#ifdef OS_MSDOS
 
   return clock() * 55;
 
#endif                          /* OS_MSDOS */
#ifdef OS_VMS
 
   {
      char time[8];
      DWORD lo, hi;
 
      sys$gettim(time);
 
      lo = *((DWORD *) time);
      hi = *((DWORD *) (time + 4));
 
/*  return *lo / 10000; */
 
      return lo / 10000 + hi * 429496.7296;
 
   }
 
#endif                          /* OS_VMS */
#ifdef OS_UNIX
   {
      struct timeval tv;
 
      gettimeofday(&tv, NULL);
 
      DWORD m = tv.tv_sec * 1000 + tv.tv_usec / 1000;
      //m += 0x137e0000; // adjust milltime for testing 32-bit wrap-around
      return m;
   }
 
#endif                          /* OS_UNIX */
#ifdef OS_VXWORKS
   {
      int count;
      static int ticks_per_msec = 0;
 
      if (ticks_per_msec == 0)
         ticks_per_msec = 1000 / sysClkRateGet();
 
      return tickGet() * ticks_per_msec;
   }
#endif                          /* OS_VXWORKS */
}

Here is the call graph for this function:

ss_mktime()

time_t EXPRT ss_mktime

(

struct tm *

tms

)

Definition at line 3437 of file system.cxx.

{
   std::lock_guard<std::mutex> lock(gTzMutex);
   //defeat mktime() error trap from msystem.h
   //#ifdef mktime
   //#undef mktime
   //#endif
   return mktime(tms);
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_mutex_create()

INT EXPRT ss_mutex_create	(	MUTEX_T **	mutex,
		BOOL	recursive
	)

Definition at line 3013 of file system.cxx.

{
#ifdef OS_VXWORKS
 
   /* semBCreate is a Binary semaphore which is under VxWorks a optimized mutex
      refering to the programmer's Guide 5.3.1 */
   if ((*((SEM_ID *) mutex_handle) = semBCreate(SEM_Q_FIFO, SEM_EMPTY)) == NULL)
      return SS_NO_MUTEX;
   return SS_CREATED;
 
#endif                          /* OS_VXWORKS */
 
#ifdef OS_WINNT
 
   *mutex = (MUTEX_T *)malloc(sizeof(HANDLE));
   **mutex = CreateMutex(NULL, FALSE, NULL);
 
   if (**mutex == 0)
      return SS_NO_MUTEX;
 
   return SS_CREATED;
 
#endif                          /* OS_WINNT */
#ifdef OS_UNIX
 
   {
      int status;
      pthread_mutexattr_t *attr;
 
      attr = (pthread_mutexattr_t*)malloc(sizeof(*attr));
      assert(attr);
 
      status = pthread_mutexattr_init(attr);
      if (status != 0) {
         fprintf(stderr, "ss_mutex_create: pthread_mutexattr_init() returned errno %d (%s)\n", status, strerror(status));
      }
      
      if (recursive) {
         status = pthread_mutexattr_settype(attr, PTHREAD_MUTEX_RECURSIVE);
         if (status != 0) {
            fprintf(stderr, "ss_mutex_create: pthread_mutexattr_settype() returned errno %d (%s)\n", status, strerror(status));
         }
      }
 
      *mutex = (pthread_mutex_t*)malloc(sizeof(pthread_mutex_t));
      assert(*mutex);
 
      status = pthread_mutex_init(*mutex, attr);
      if (status != 0) {
         fprintf(stderr, "ss_mutex_create: pthread_mutex_init() returned errno %d (%s), aborting...\n", status, strerror(status));
         abort(); // does not return
         return SS_NO_MUTEX;
      }
 
      free(attr);
   
      if (recursive) {
         // test recursive locks
         
         status = pthread_mutex_trylock(*mutex);
         assert(status == 0);
         
         status = pthread_mutex_trylock(*mutex);
         assert(status == 0); // EBUSY if PTHREAD_MUTEX_RECURSIVE does not work
         
         status = pthread_mutex_unlock(*mutex);
         assert(status == 0);
         
         status = pthread_mutex_unlock(*mutex);
         assert(status == 0);
      }
 
      return SS_SUCCESS;
   }
#endif                          /* OS_UNIX */
 
#ifdef OS_MSDOS
   return SS_NO_SEMAPHORE;
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_mutex_delete()

INT EXPRT ss_mutex_delete

(

MUTEX_T *

mutex

)

Definition at line 3283 of file system.cxx.

{
#ifdef OS_WINNT
 
   if (CloseHandle(*mutex) == FALSE)
      return SS_NO_SEMAPHORE;
 
   free(mutex);
 
   return SS_SUCCESS;
 
#endif                          /* OS_WINNT */
#ifdef OS_VXWORKS
   /* no code for VxWorks destroy yet */
   if (semDelete((SEM_ID) mutex_handle) == ERROR)
      return SS_NO_MUTEX;
   return SS_SUCCESS;
#endif                          /* OS_VXWORKS */
 
#ifdef OS_UNIX
   {
      int status;
 
      status = pthread_mutex_destroy(mutex);
      if (status != 0) {
         fprintf(stderr, "ss_mutex_delete: pthread_mutex_destroy() returned errno %d (%s), aborting...\n", status, strerror(status));
         abort(); // do not return
         return SS_NO_MUTEX;
      }
 
      free(mutex);
      return SS_SUCCESS;
   }
#endif                          /* OS_UNIX */
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_mutex_release()

INT EXPRT ss_mutex_release

(

MUTEX_T *

mutex

)

Definition at line 3229 of file system.cxx.

{
   INT status;
 
#ifdef OS_WINNT
 
   status = ReleaseMutex(*mutex);
   if (status == FALSE)
      return SS_NO_SEMAPHORE;
 
   return SS_SUCCESS;
 
#endif                          /* OS_WINNT */
#ifdef OS_VXWORKS
 
   if (semGive((SEM_ID) mutes_handle) == ERROR)
      return SS_NO_MUTEX;
   return SS_SUCCESS;
#endif                          /* OS_VXWORKS */
#ifdef OS_UNIX
 
      status = pthread_mutex_unlock(mutex);
      if (status != 0) {
         fprintf(stderr, "ss_mutex_release: pthread_mutex_unlock() returned error %d (%s), aborting...\n", status, strerror(status));
         abort(); // does not return
         return SS_NO_MUTEX;
      }
 
      return SS_SUCCESS;
#endif                          /* OS_UNIX */
 
#ifdef OS_MSDOS
   return SS_NO_MUTEX;
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_mutex_wait_for()

INT EXPRT ss_mutex_wait_for	(	MUTEX_T *	mutex,
		INT	timeout
	)

Definition at line 3109 of file system.cxx.

{
   INT status;
 
#ifdef OS_WINNT
 
   status = WaitForSingleObject(*mutex, timeout == 0 ? INFINITE : timeout);
 
   if (status == WAIT_TIMEOUT) {
      return SS_TIMEOUT;
   }
 
   if (status == WAIT_FAILED) {
      fprintf(stderr, "ss_mutex_wait_for: WaitForSingleObject() failed, status = %d", status);
      abort(); // does not return
      return SS_NO_MUTEX;
   }
 
   return SS_SUCCESS;
#endif                          /* OS_WINNT */
#ifdef OS_VXWORKS
   /* convert timeout in ticks (1/60) = 1000/60 ~ 1/16 = >>4 */
   status = semTake((SEM_ID) mutex, timeout == 0 ? WAIT_FOREVER : timeout >> 4);
   if (status == ERROR)
      return SS_NO_MUTEX;
   return SS_SUCCESS;
 
#endif                          /* OS_VXWORKS */
#if defined(OS_UNIX)
 
#if defined(OS_DARWIN)
 
   if (timeout > 0) {
      // emulate pthread_mutex_timedlock under OS_DARWIN
      DWORD wait = 0;
      while (1) {
         status = pthread_mutex_trylock(mutex);
         if (status == 0) {
            return SS_SUCCESS;
         } else if (status == EBUSY) {
            ss_sleep(10);
            wait += 10;
         } else {
            fprintf(stderr, "ss_mutex_wait_for: fatal error: pthread_mutex_trylock() returned errno %d (%s), aborting...\n", status, strerror(status));
            abort(); // does not return
         }
         if (wait > timeout) {
            fprintf(stderr, "ss_mutex_wait_for: fatal error: timeout waiting for mutex, timeout was %d millisec, aborting...\n", timeout);
            abort(); // does not return
         }
      }
   } else {
      status = pthread_mutex_lock(mutex);
   }
 
   if (status != 0) {
      fprintf(stderr, "ss_mutex_wait_for: pthread_mutex_lock() returned errno %d (%s), aborting...\n", status, strerror(status));
      abort(); // does not return
   }
 
   return SS_SUCCESS;
 
#else // OS_DARWIN
   if (timeout > 0) {
      extern int pthread_mutex_timedlock (pthread_mutex_t *__restrict __mutex, __const struct timespec *__restrict __abstime) __THROW;
      struct timespec st;
 
      clock_gettime(CLOCK_REALTIME, &st);
      st.tv_sec += timeout / 1000;
      st.tv_nsec += (timeout % 1000) * 1000000;
      status = pthread_mutex_timedlock(mutex, &st);
 
      if (status == ETIMEDOUT) {
         fprintf(stderr, "ss_mutex_wait_for: fatal error: timeout waiting for mutex, timeout was %d millisec, aborting...\n", timeout);
         abort();
      }
 
      // Make linux timeout do same as MacOS timeout: abort() the program
      //if (status == ETIMEDOUT)
      //   return SS_TIMEOUT;
      //return SS_SUCCESS;
   } else {
      status = pthread_mutex_lock(mutex);
   }
 
   if (status != 0) {
      fprintf(stderr, "ss_mutex_wait_for: pthread_mutex_lock() returned errno %d (%s), aborting...\n", status, strerror(status));
      abort();
   }
 
   return SS_SUCCESS;
#endif
 
#endif /* OS_UNIX */
 
#ifdef OS_MSDOS
   return SS_NO_MUTEX;
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_nan()

double EXPRT ss_nan

(

)

Definition at line 8018 of file system.cxx.

{
   double nan;
 
   nan = 0;
   nan = 0 / nan;
   return nan;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_pid_exists()

BOOL ss_pid_exists

(

int

pid

)

Definition at line 1442 of file system.cxx.

{
#ifdef ESRCH
   /* Only enable this for systems that define ESRCH and hope that they also support kill(pid,0) */
   int status = kill(pid, 0);
   //printf("kill(%d,0) returned %d, errno %d\n", pid, status, errno);
   if ((status != 0) && (errno == ESRCH)) {
      return FALSE;
   }
#else
#warning Missing ESRCH for ss_pid_exists()
#endif
   return TRUE;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_printf()

void EXPRT ss_printf	(	INT	x,
		INT	y,
		const char *	format,
			...
	)

Definition at line 7460 of file system.cxx.

{
   char str[256];
   va_list argptr;
 
   va_start(argptr, format);
   vsprintf(str, (char *) format, argptr);
   va_end(argptr);
 
#ifdef OS_WINNT
   {
      HANDLE hConsole;
      COORD dwWriteCoord;
      DWORD cCharsWritten;
 
      hConsole = GetStdHandle(STD_OUTPUT_HANDLE);
 
      dwWriteCoord.X = (short) x;
      dwWriteCoord.Y = (short) y;
 
      WriteConsoleOutputCharacter(hConsole, str, strlen(str), dwWriteCoord, &cCharsWritten);
   }
 
#endif                          /* OS_WINNT */
 
#if defined(OS_UNIX) || defined(OS_VXWORKS) || defined(OS_VMS)
   printf("\033[%1d;%1dH", y + 1, x + 1);
   printf("%s", str);
   fflush(stdout);
#endif
 
#ifdef OS_MSDOS
   gotoxy(x + 1, y + 1);
   cputs(str);
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_recv_net_command()

INT EXPRT ss_recv_net_command	(	int	sock,
		DWORD *	routine_id,
		DWORD *	param_size,
		char **	param_ptr,
		int	timeout_ms
	)

Definition at line 5707 of file system.cxx.

{
   NET_COMMAND_HEADER ncbuf;
   size_t n;
 
   /* first receive header */
   n = recv_tcp2(sock, (char*)&ncbuf, sizeof(ncbuf), timeout_ms);
 
   if (n == 0) {
      cm_msg(MERROR, "ss_recv_net_command", "timeout receiving network command header");
      return SS_TIMEOUT;
   }
 
   if (n != sizeof(ncbuf)) {
      cm_msg(MERROR, "ss_recv_net_command", "error receiving network command header, see messages");
      return SS_SOCKET_ERROR;
   }
 
   // FIXME: where is the big-endian/little-endian conversion?
   *routine_id = ncbuf.routine_id;
   *param_size = ncbuf.param_size;
 
   if (*param_size == 0) {
      *param_ptr = NULL;
      return SS_SUCCESS;
   }
 
   *param_ptr = (char *)malloc(*param_size);
 
   if (*param_ptr == NULL) {
      cm_msg(MERROR, "ss_recv_net_command", "error allocating %d bytes for network command data", *param_size);
      return SS_NO_MEMORY;
   }
 
   /* first receive header */
   n = recv_tcp2(sock, *param_ptr, *param_size, timeout_ms);
 
   if (n == 0) {
      cm_msg(MERROR, "ss_recv_net_command", "timeout receiving network command data");
      free(*param_ptr);
      *param_ptr = NULL;
      return SS_TIMEOUT;
   }
 
   if (n != *param_size) {
      cm_msg(MERROR, "ss_recv_net_command", "error receiving network command data, see messages");
      free(*param_ptr);
      *param_ptr = NULL;
      return SS_SOCKET_ERROR;
   }
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_repair_utf8() [1/2]

bool ss_repair_utf8

(

char *

string

)

Definition at line 8229 of file system.cxx.

{
   assert(string);
 
   bool modified = false;
 
   //std::string original = string;
 
   // FIXME: this function over-reads the input array. K.O. May 2021
 
   unsigned char * bytes = (unsigned char *)string;
   while(*bytes) {
      if( (// ASCII
           // use bytes[0] <= 0x7F to allow ASCII control characters
           bytes[0] == 0x09 ||
           bytes[0] == 0x0A ||
           bytes[0] == 0x0D ||
           (0x20 <= bytes[0] && bytes[0] <= 0x7E)
           )
          ) {
         bytes += 1;
         continue;
      }
      
      if( (// non-overlong 2-byte
           (0xC2 <= bytes[0] && bytes[0] <= 0xDF) &&
           (0x80 <= bytes[1] && bytes[1] <= 0xBF)
           )
          ) {
         bytes += 2;
         continue;
      }
      
      if( (// excluding overlongs
           bytes[0] == 0xE0 &&
           (0xA0 <= bytes[1] && bytes[1] <= 0xBF) &&
           (0x80 <= bytes[2] && bytes[2] <= 0xBF)
           ) ||
          (// straight 3-byte
           ((0xE1 <= bytes[0] && bytes[0] <= 0xEC) ||
            bytes[0] == 0xEE ||
            bytes[0] == 0xEF) &&
           (0x80 <= bytes[1] && bytes[1] <= 0xBF) &&
           (0x80 <= bytes[2] && bytes[2] <= 0xBF)
           ) ||
          (// excluding surrogates
           bytes[0] == 0xED &&
           (0x80 <= bytes[1] && bytes[1] <= 0x9F) &&
           (0x80 <= bytes[2] && bytes[2] <= 0xBF)
           )
          ) {
         bytes += 3;
         continue;
      }
      
      if( (// planes 1-3
           bytes[0] == 0xF0 &&
           (0x90 <= bytes[1] && bytes[1] <= 0xBF) &&
           (0x80 <= bytes[2] && bytes[2] <= 0xBF) &&
           (0x80 <= bytes[3] && bytes[3] <= 0xBF)
           ) ||
          (// planes 4-15
           (0xF1 <= bytes[0] && bytes[0] <= 0xF3) &&
           (0x80 <= bytes[1] && bytes[1] <= 0xBF) &&
           (0x80 <= bytes[2] && bytes[2] <= 0xBF) &&
           (0x80 <= bytes[3] && bytes[3] <= 0xBF)
           ) ||
          (// plane 16
           bytes[0] == 0xF4 &&
           (0x80 <= bytes[1] && bytes[1] <= 0x8F) &&
           (0x80 <= bytes[2] && bytes[2] <= 0xBF) &&
           (0x80 <= bytes[3] && bytes[3] <= 0xBF)
           )
          ) {
         bytes += 4;
         continue;
      }
 
      if (bytes[0] == 0) // end of string
         break;
 
      bytes[0] = '?';
      bytes += 1;
 
      modified = true;
   }
 
   //if (modified) {
   //   printf("ss_repair_utf8(): invalid UTF8 string [%s] changed to [%s]\n", original.c_str(), string);
   //} else {
   //   //printf("ss_repair_utf8(): string [%s] is ok\n", string);
   //}
      
   return modified;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_repair_utf8() [2/2]

bool ss_repair_utf8

(

std::string &

s

)

Definition at line 8325 of file system.cxx.

{
   // C++11 std::string data() is same as c_str(), NUL-terminated.
   // C++17 std::string data() is not "const".
   // https://en.cppreference.com/w/cpp/string/basic_string/data
   return ss_repair_utf8((char*)s.data()); // FIXME: C++17 or newer, do not need to drop the "const". K.O. May 2021
}

Here is the call graph for this function:

ss_replace_env_variables()

std::string EXPRT ss_replace_env_variables

(

const std::string &

inputPath

)

Definition at line 2284 of file system.cxx.

                                                               {
   std::string result;
   size_t startPos = 0;
   size_t dollarPos;
 
   while ((dollarPos = inputPath.find('$', startPos)) != std::string::npos) {
      result.append(inputPath, startPos, dollarPos - startPos);
 
      size_t varEndPos = inputPath.find_first_not_of("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_", dollarPos + 1);
      size_t varLength = varEndPos - dollarPos - 1;
      std::string varName = inputPath.substr(dollarPos + 1, varLength);
 
      char* varValue = std::getenv(varName.c_str());
      if (varValue != nullptr) {
         result.append(varValue);
      }
 
      startPos = varEndPos;
   }
 
   result.append(inputPath.c_str(), startPos, std::string::npos);
   return result;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_resume()

INT ss_resume	(	INT	port,
		const char *	message
	)

Definition at line 4916 of file system.cxx.

{
   assert(_ss_suspend_odb);
 
   struct sockaddr_in bind_addr;
 
   memcpy(&bind_addr, &_ss_suspend_odb->bind_addr, sizeof(struct sockaddr_in));
   bind_addr.sin_port = htons((short) port);
 
   size_t message_size = strlen(message) + 1;
 
   ssize_t wr = sendto(_ss_suspend_odb->ipc_send_socket, message, message_size, 0, (struct sockaddr *) &bind_addr, sizeof(struct sockaddr_in));
 
   if (wr < 0) {
      return SS_SOCKET_ERROR;
   }
 
   if (((size_t)wr) != message_size) {
      return SS_SOCKET_ERROR;
   }
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_semaphore_create()

INT EXPRT ss_semaphore_create	(	const char *	name,
		HNDLE *	semaphore_handle
	)

Definition at line 2532 of file system.cxx.

{
   char semaphore_name[256];
 
   /* Add a leading MX_ to the semaphore name */
   sprintf(semaphore_name, "MX_%s", name);
 
#ifdef OS_VXWORKS
 
   /* semBCreate is a Binary semaphore which is under VxWorks a optimized mutex
      refering to the programmer's Guide 5.3.1 */
   if ((*((SEM_ID *) mutex_handle) = semBCreate(SEM_Q_FIFO, SEM_EMPTY)) == NULL)
      return SS_NO_MUTEX;
   return SS_CREATED;
 
#endif                          /* OS_VXWORKS */
 
#ifdef OS_WINNT
 
   *semaphore_handle = (HNDLE) CreateMutex(NULL, FALSE, semaphore_name);
 
   if (*semaphore_handle == 0)
      return SS_NO_SEMAPHORE;
 
   return SS_CREATED;
 
#endif                          /* OS_WINNT */
#ifdef OS_VMS
 
   /* VMS has to use lock manager... */
 
   {
      INT status;
      $DESCRIPTOR(semaphorename_dsc, "dummy");
      semaphorename_dsc.dsc$w_length = strlen(semaphore_name);
      semaphorename_dsc.dsc$a_pointer = semaphore_name;
 
      *semaphore_handle = (HNDLE) malloc(8);
 
      status = sys$enqw(0, LCK$K_NLMODE, *semaphore_handle, 0, &semaphorename_dsc, 0, 0, 0, 0, 0, 0);
 
      if (status != SS$_NORMAL) {
         free((void *) *semaphore_handle);
         *semaphore_handle = 0;
      }
 
      if (*semaphore_handle == 0)
         return SS_NO_SEMAPHORE;
 
      return SS_CREATED;
   }
 
#endif                          /* OS_VMS */
#ifdef OS_UNIX
 
   {
      INT key = IPC_PRIVATE;
      int status;
      struct semid_ds buf;
 
      if (name[0] != 0) {
         int fh;
         char cwd[256];
         std::string file_name;
 
         /* Build the filename out of the path and the name of the semaphore */
         std::string path = cm_get_path();
         if (path.empty()) {
            if (getcwd(cwd, sizeof(cwd)))
               path = std::string(cwd);
#if defined(OS_VMS)
#elif defined(OS_UNIX)
            path += "/";
#elif defined(OS_WINNT)
            path += "\\";
#endif
         }
 
         file_name = path;
         file_name += ".";
         file_name += std::string(name);
         file_name += ".SHM";
 
         /* create a unique key from the file name */
         key = ftok(file_name.c_str(), 'M');
         if (key < 0) {
            fh = open(file_name.c_str(), O_CREAT, 0644);
            close(fh);
            key = ftok(file_name.c_str(), 'M');
            status = SS_CREATED;
         }
      }
 
#if (defined(OS_LINUX) && !defined(_SEM_SEMUN_UNDEFINED) && !defined(OS_CYGWIN)) || defined(OS_FREEBSD)
      union semun arg;
#else
      union semun {
         INT val;
         struct semid_ds *buf;
         ushort *array;
      } arg;
#endif
 
      status = SS_SUCCESS;
 
      /* create or get semaphore */
      *semaphore_handle = (HNDLE) semget(key, 1, 0);
      //printf("create1 key 0x%x, id %d, errno %d (%s)\n", key, *semaphore_handle, errno, strerror(errno));
      if (*semaphore_handle < 0) {
         *semaphore_handle = (HNDLE) semget(key, 1, IPC_CREAT);
         //printf("create2 key 0x%x, id %d, errno %d (%s)\n", key, *semaphore_handle, errno, strerror(errno));
         status = SS_CREATED;
      }
 
      if (*semaphore_handle < 0) {
         cm_msg(MERROR, "ss_semaphore_create", "Cannot create semaphore \'%s\', semget(0x%x) failed, errno %d (%s)", name, key, errno, strerror(errno));
         
         fprintf(stderr, "ss_semaphore_create: Cannot create semaphore \'%s\', semget(0x%x) failed, errno %d (%s)", name, key, errno, strerror(errno));
         abort(); // does not return
         return SS_NO_SEMAPHORE;
      }
 
      memset(&buf, 0, sizeof(buf));
      buf.sem_perm.uid = getuid();
      buf.sem_perm.gid = getgid();
      buf.sem_perm.mode = 0666;
      arg.buf = &buf;
 
      semctl(*semaphore_handle, 0, IPC_SET, arg);
 
      /* if semaphore was created, set value to one */
      if (key == IPC_PRIVATE || status == SS_CREATED) {
         arg.val = 1;
         if (semctl(*semaphore_handle, 0, SETVAL, arg) < 0)
            return SS_NO_SEMAPHORE;
      }
 
      if (s_semaphore_trace) {
         fprintf(stderr, "name %d %d %d %s\n", *semaphore_handle, (int)time(NULL), getpid(), name);
      }
 
      return SS_SUCCESS;
   }
#endif                          /* OS_UNIX */
 
#ifdef OS_MSDOS
   return SS_NO_SEMAPHORE;
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_semaphore_delete()

INT EXPRT ss_semaphore_delete	(	HNDLE	semaphore_handle,
		INT	destroy_flag
	)

Definition at line 2941 of file system.cxx.

{
#ifdef OS_WINNT
 
   if (CloseHandle((HANDLE) semaphore_handle) == FALSE)
      return SS_NO_SEMAPHORE;
 
   return SS_SUCCESS;
 
#endif                          /* OS_WINNT */
#ifdef OS_VMS
 
   free((void *) semaphore_handle);
   return SS_SUCCESS;
 
#endif                          /* OS_VMS */
 
#ifdef OS_VXWORKS
   /* no code for VxWorks destroy yet */
   if (semDelete((SEM_ID) semaphore_handle) == ERROR)
      return SS_NO_SEMAPHORE;
   return SS_SUCCESS;
#endif                          /* OS_VXWORKS */
 
#ifdef OS_UNIX
#if (defined(OS_LINUX) && !defined(_SEM_SEMUN_UNDEFINED) && !defined(OS_CYGWIN)) || defined(OS_FREEBSD)
   union semun arg;
#else
   union semun {
      INT val;
      struct semid_ds *buf;
      ushort *array;
   } arg;
#endif
 
   memset(&arg, 0, sizeof(arg));
 
   if (destroy_flag) {
      int status = semctl(semaphore_handle, 0, IPC_RMID, arg);
      //printf("semctl(ID=%d, IPC_RMID) returned %d, errno %d (%s)\n", semaphore_handle, status, errno, strerror(errno));
      if (status < 0)
         return SS_NO_SEMAPHORE;
   }
 
   return SS_SUCCESS;
 
#endif                          /* OS_UNIX */
 
#ifdef OS_MSDOS
   return SS_NO_SEMAPHORE;
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_semaphore_release()

INT EXPRT ss_semaphore_release

(

HNDLE

semaphore_handle

)

Definition at line 2853 of file system.cxx.

{
   INT status;
 
#ifdef OS_WINNT
 
   status = ReleaseMutex((HANDLE) semaphore_handle);
 
   if (status == FALSE)
      return SS_NO_SEMAPHORE;
 
   return SS_SUCCESS;
 
#endif                          /* OS_WINNT */
#ifdef OS_VMS
 
   status = sys$enqw(0, LCK$K_NLMODE, semaphore_handle, LCK$M_CONVERT, 0, 0, 0, 0, 0, 0, 0);
 
   if (status != SS$_NORMAL)
      return SS_NO_SEMAPHORE;
 
   return SS_SUCCESS;
 
#endif                          /* OS_VMS */
 
#ifdef OS_VXWORKS
 
   if (semGive((SEM_ID) semaphore_handle) == ERROR)
      return SS_NO_SEMAPHORE;
   return SS_SUCCESS;
#endif                          /* OS_VXWORKS */
 
#ifdef OS_UNIX
   {
      struct sembuf sb;
 
      sb.sem_num = 0;
      sb.sem_op = 1;            /* increment semaphore */
      sb.sem_flg = SEM_UNDO;
 
      if (s_semaphore_trace) {
         fprintf(stderr, "unlock %d %d %d nest %d\n", semaphore_handle, ss_millitime(), getpid(), int(s_semaphore_nest_level));
         assert(s_semaphore_nest_level > 0);
         s_semaphore_nest_level--;
      }
 
      do {
         status = semop(semaphore_handle, &sb, 1);
 
         /* return on success */
         if (status == 0)
            break;
 
         /* retry if interrupted by a ss_wake signal */
         if (errno == EINTR)
            continue;
 
         fprintf(stderr, "ss_semaphore_release: semop/semtimedop(%d) returned %d, errno %d (%s)\n", semaphore_handle, status, errno, strerror(errno));
         return SS_NO_SEMAPHORE;
      } while (1);
 
      return SS_SUCCESS;
   }
#endif                          /* OS_UNIX */
 
#ifdef OS_MSDOS
   return SS_NO_SEMAPHORE;
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_semaphore_wait_for()

INT EXPRT ss_semaphore_wait_for	(	HNDLE	semaphore_handle,
		DWORD	timeout_millisec
	)

Definition at line 2711 of file system.cxx.

{
   INT status;
 
#ifdef OS_WINNT
 
   status = WaitForSingleObject((HANDLE) semaphore_handle, timeout_millisec == 0 ? INFINITE : timeout_millisec);
   if (status == WAIT_FAILED)
      return SS_NO_SEMAPHORE;
   if (status == WAIT_TIMEOUT)
      return SS_TIMEOUT;
 
   return SS_SUCCESS;
#endif                          /* OS_WINNT */
#ifdef OS_VMS
   status = sys$enqw(0, LCK$K_EXMODE, semaphore_handle, LCK$M_CONVERT, 0, 0, 0, 0, 0, 0, 0);
   if (status != SS$_NORMAL)
      return SS_NO_SEMAPHORE;
   return SS_SUCCESS;
 
#endif                          /* OS_VMS */
#ifdef OS_VXWORKS
   /* convert timeout in ticks (1/60) = 1000/60 ~ 1/16 = >>4 */
   status = semTake((SEM_ID) semaphore_handle, timeout_millisec == 0 ? WAIT_FOREVER : timeout_millisec >> 4);
   if (status == ERROR)
      return SS_NO_SEMAPHORE;
   return SS_SUCCESS;
 
#endif                          /* OS_VXWORKS */
#ifdef OS_UNIX
   {
      struct sembuf sb;
 
#if (defined(OS_LINUX) && !defined(_SEM_SEMUN_UNDEFINED) && !defined(OS_CYGWIN)) || defined(OS_FREEBSD)
      union semun arg;
#else
      union semun {
         INT val;
         struct semid_ds *buf;
         ushort *array;
      } arg;
#endif
 
      sb.sem_num = 0;
      sb.sem_op = -1;           /* decrement semaphore */
      sb.sem_flg = SEM_UNDO;
 
      memset(&arg, 0, sizeof(arg));
 
      DWORD start_time = ss_millitime();
 
      if (s_semaphore_trace) {
         fprintf(stderr, "waitlock %d %d %d nest %d\n", semaphore_handle, ss_millitime(), getpid(), int(s_semaphore_nest_level));
      }
 
      do {
#if defined(OS_DARWIN)
         status = semop(semaphore_handle, &sb, 1);
#elif defined(OS_LINUX)
         struct timespec ts;
         if (timeout_millisec >= 1000 || timeout_millisec == 0) {
            ts.tv_sec  = 1;
            ts.tv_nsec = 0;
         } else {
            ts.tv_sec  = 0;
            ts.tv_nsec = (timeout_millisec+10)*1000*1000;
         }
 
         status = semtimedop(semaphore_handle, &sb, 1, &ts);
#else
         status = semop(semaphore_handle, &sb, 1);
#endif
 
         /* return on success */
         if (status == 0) {
            //DWORD milli_now = ss_millitime();
            //DWORD dt = milli_now - start_time;
            //fprintf(stderr, "ss_semaphore_wait_for: locked ok, start time 0x%08x, now 0x%08x, dt 0x%08x, timeout 0x%08x ms\n", start_time, milli_now, dt, timeout_millisec);
            //ss_sleep(100);
            break;
         }
 
         /* retry if interrupted by a ss_wake signal */
         if (errno == EINTR || errno == EAGAIN) {
            //if (1) {
            //   DWORD milli_now = ss_millitime();
            //   DWORD dt = milli_now - start_time;
            //   fprintf(stderr, "ss_semaphore_wait_for: semop/semtimedop(%d) returned %d, errno %d (%s), start time 0x%08x, now 0x%08x, dt 0x%08x, timeout 0x%08x ms\n", semaphore_handle, status, errno, strerror(errno), start_time, milli_now, dt, timeout_millisec);
            //   abort();
            //}
 
            /* return if timeout expired */
            if (timeout_millisec > 0) {
               DWORD milli_now = ss_millitime();
               DWORD dt = milli_now - start_time;
               if (dt > timeout_millisec) {
                  fprintf(stderr, "ss_semaphore_wait_for: semop/semtimedop(%d) returned %d, errno %d (%s), start time 0x%08x, now 0x%08x, dt 0x%08x, timeout 0x%08x ms, SEMAPHORE TIMEOUT!\n", semaphore_handle, status, errno, strerror(errno), start_time, milli_now, dt, timeout_millisec);
                  return SS_TIMEOUT;
               }
            }
 
            continue;
         }
 
         fprintf(stderr, "ss_semaphore_wait_for: semop/semtimedop(%d) returned %d, errno %d (%s)\n", semaphore_handle, status, errno, strerror(errno));
         return SS_NO_SEMAPHORE;
      } while (1);
 
      if (s_semaphore_trace) {
         s_semaphore_nest_level++;
         fprintf(stderr, "lock %d %d %d nest %d\n", semaphore_handle, ss_millitime(), getpid(), int( s_semaphore_nest_level));
      }
 
      return SS_SUCCESS;
   }
#endif                          /* OS_UNIX */
 
#ifdef OS_MSDOS
   return SS_NO_SEMAPHORE;
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_set_screen_size()

void ss_set_screen_size	(	int	x,
		int	y
	)

Definition at line 7427 of file system.cxx.

{
#ifdef OS_WINNT
 
   HANDLE hConsole;
   COORD coordSize;
 
   coordSize.X = (short) x;
   coordSize.Y = (short) y;
   hConsole = GetStdHandle(STD_OUTPUT_HANDLE);
   SetConsoleScreenBufferSize(hConsole, coordSize);
 
#else                           /* OS_WINNT */
#endif
}

Here is the call graph for this function:

ss_settime()

DWORD EXPRT ss_settime

(

DWORD

seconds

)

Definition at line 3547 of file system.cxx.

{
#if defined(OS_WINNT)
   SYSTEMTIME st;
   struct tm ltm;
 
   ss_tzset();
   localtime_r((time_t *) & seconds, &ltm);
 
   st.wYear = ltm.tm_year + 1900;
   st.wMonth = ltm.tm_mon + 1;
   st.wDay = ltm.tm_mday;
   st.wHour = ltm.tm_hour;
   st.wMinute = ltm.tm_min;
   st.wSecond = ltm.tm_sec;
   st.wMilliseconds = 0;
 
   SetLocalTime(&st);
 
#elif defined(OS_DARWIN) && defined(CLOCK_REALTIME)
 
   struct timespec ltm;
 
   ltm.tv_sec = seconds;
   ltm.tv_nsec = 0;
   clock_settime(CLOCK_REALTIME, &ltm);
 
#elif defined(OS_CYGWIN) && defined(CLOCK_REALTIME)
 
   struct timespec ltm;
 
   ltm.tv_sec = seconds;
   ltm.tv_nsec = 0;
   clock_settime(CLOCK_REALTIME, &ltm);
   return SS_NO_DRIVER;
 
#elif defined(OS_UNIX) && defined(CLOCK_REALTIME)
 
   struct timespec ltm;
 
   ltm.tv_sec = seconds;
   ltm.tv_nsec = 0;
   clock_settime(CLOCK_REALTIME, &ltm);
 
#elif defined(OS_VXWORKS)
 
   struct timespec ltm;
 
   ltm.tv_sec = seconds;
   ltm.tv_nsec = 0;
   clock_settime(CLOCK_REALTIME, &ltm);
 
#else
#warning ss_settime() is not supported!
#endif
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_shell()

INT ss_shell

(

int

sock

)

Definition at line 1832 of file system.cxx.

{
#ifdef OS_WINNT
 
   HANDLE hChildStdinRd, hChildStdinWr, hChildStdinWrDup,
       hChildStdoutRd, hChildStdoutWr, hChildStderrRd, hChildStderrWr, hSaveStdin, hSaveStdout, hSaveStderr;
 
   SECURITY_ATTRIBUTES saAttr;
   PROCESS_INFORMATION piProcInfo;
   STARTUPINFO siStartInfo;
   char buffer[256], cmd[256];
   DWORD dwRead, dwWritten, dwAvail, i, i_cmd;
   fd_set readfds;
   struct timeval timeout;
 
   /* Set the bInheritHandle flag so pipe handles are inherited. */
   saAttr.nLength = sizeof(SECURITY_ATTRIBUTES);
   saAttr.bInheritHandle = TRUE;
   saAttr.lpSecurityDescriptor = NULL;
 
   /* Save the handle to the current STDOUT. */
   hSaveStdout = GetStdHandle(STD_OUTPUT_HANDLE);
 
   /* Create a pipe for the child's STDOUT. */
   if (!CreatePipe(&hChildStdoutRd, &hChildStdoutWr, &saAttr, 0))
      return 0;
 
   /* Set a write handle to the pipe to be STDOUT. */
   if (!SetStdHandle(STD_OUTPUT_HANDLE, hChildStdoutWr))
      return 0;
 
 
   /* Save the handle to the current STDERR. */
   hSaveStderr = GetStdHandle(STD_ERROR_HANDLE);
 
   /* Create a pipe for the child's STDERR. */
   if (!CreatePipe(&hChildStderrRd, &hChildStderrWr, &saAttr, 0))
      return 0;
 
   /* Set a read handle to the pipe to be STDERR. */
   if (!SetStdHandle(STD_ERROR_HANDLE, hChildStderrWr))
      return 0;
 
 
   /* Save the handle to the current STDIN. */
   hSaveStdin = GetStdHandle(STD_INPUT_HANDLE);
 
   /* Create a pipe for the child's STDIN. */
   if (!CreatePipe(&hChildStdinRd, &hChildStdinWr, &saAttr, 0))
      return 0;
 
   /* Set a read handle to the pipe to be STDIN. */
   if (!SetStdHandle(STD_INPUT_HANDLE, hChildStdinRd))
      return 0;
 
   /* Duplicate the write handle to the pipe so it is not inherited. */
   if (!DuplicateHandle(GetCurrentProcess(), hChildStdinWr, GetCurrentProcess(), &hChildStdinWrDup, 0, FALSE,   /* not inherited */
                        DUPLICATE_SAME_ACCESS))
      return 0;
 
   CloseHandle(hChildStdinWr);
 
   /* Now create the child process. */
   memset(&siStartInfo, 0, sizeof(siStartInfo));
   siStartInfo.cb = sizeof(STARTUPINFO);
   siStartInfo.lpReserved = NULL;
   siStartInfo.lpReserved2 = NULL;
   siStartInfo.cbReserved2 = 0;
   siStartInfo.lpDesktop = NULL;
   siStartInfo.dwFlags = 0;
 
   if (!CreateProcess(NULL, "cmd /Q",   /* command line */
                      NULL,     /* process security attributes */
                      NULL,     /* primary thread security attributes */
                      TRUE,     /* handles are inherited */
                      0,        /* creation flags */
                      NULL,     /* use parent's environment */
                      NULL,     /* use parent's current directory */
                      &siStartInfo,     /* STARTUPINFO pointer */
                      &piProcInfo))     /* receives PROCESS_INFORMATION */
      return 0;
 
   /* After process creation, restore the saved STDIN and STDOUT. */
   SetStdHandle(STD_INPUT_HANDLE, hSaveStdin);
   SetStdHandle(STD_OUTPUT_HANDLE, hSaveStdout);
   SetStdHandle(STD_ERROR_HANDLE, hSaveStderr);
 
   i_cmd = 0;
 
   do {
      /* query stderr */
      do {
         if (!PeekNamedPipe(hChildStderrRd, buffer, 256, &dwRead, &dwAvail, NULL))
            break;
 
         if (dwRead > 0) {
            ReadFile(hChildStderrRd, buffer, 256, &dwRead, NULL);
            send(sock, buffer, dwRead, 0);
         }
      } while (dwAvail > 0);
 
      /* query stdout */
      do {
         if (!PeekNamedPipe(hChildStdoutRd, buffer, 256, &dwRead, &dwAvail, NULL))
            break;
         if (dwRead > 0) {
            ReadFile(hChildStdoutRd, buffer, 256, &dwRead, NULL);
            send(sock, buffer, dwRead, 0);
         }
      } while (dwAvail > 0);
 
 
      /* check if subprocess still alive */
      if (!GetExitCodeProcess(piProcInfo.hProcess, &i))
         break;
      if (i != STILL_ACTIVE)
         break;
 
      /* query network socket */
      FD_ZERO(&readfds);
      FD_SET(sock, &readfds);
      timeout.tv_sec = 0;
      timeout.tv_usec = 100;
      select(FD_SETSIZE, &readfds, NULL, NULL, &timeout);
 
      if (FD_ISSET(sock, &readfds)) {
         i = recv(sock, cmd + i_cmd, 1, 0);
         if (i <= 0)
            break;
 
         /* backspace */
         if (cmd[i_cmd] == 8) {
            if (i_cmd > 0) {
               send(sock, "\b \b", 3, 0);
               i_cmd -= 1;
            }
         } else if (cmd[i_cmd] >= ' ' || cmd[i_cmd] == 13 || cmd[i_cmd] == 10) {
            send(sock, cmd + i_cmd, 1, 0);
            i_cmd += i;
         }
      }
 
      /* linefeed triggers new command */
      if (cmd[i_cmd - 1] == 10) {
         WriteFile(hChildStdinWrDup, cmd, i_cmd, &dwWritten, NULL);
         i_cmd = 0;
      }
 
   } while (TRUE);
 
   CloseHandle(hChildStdinWrDup);
   CloseHandle(hChildStdinRd);
   CloseHandle(hChildStderrRd);
   CloseHandle(hChildStdoutRd);
 
   return SS_SUCCESS;
 
#endif                          /* OS_WINNT */
 
#ifdef OS_UNIX
#ifndef NO_PTY
   pid_t pid;
   int i, p;
   char line[32], buffer[1024], shell[32];
   fd_set readfds;
 
#ifdef NO_FORK
   assert(!"support for forkpty() disabled by NO_FORK");
#else
   pid = forkpty(&p, line, NULL, NULL);
#endif
   if (pid < 0)
      return 0;
   else if (pid > 0) {
      /* parent process */
 
      do {
         FD_ZERO(&readfds);
         FD_SET(sock, &readfds);
         FD_SET(p, &readfds);
 
         select(FD_SETSIZE, &readfds, NULL, NULL, NULL);
 
         if (FD_ISSET(sock, &readfds)) {
            memset(buffer, 0, sizeof(buffer));
            i = recv(sock, buffer, sizeof(buffer), 0);
            if (i <= 0)
               break;
            if (write(p, buffer, i) != i)
               break;
         }
 
         if (FD_ISSET(p, &readfds)) {
            memset(buffer, 0, sizeof(buffer));
            i = read(p, buffer, sizeof(buffer));
            if (i <= 0)
               break;
            send(sock, buffer, i, 0);
         }
 
      } while (1);
   } else {
      /* child process */
 
      if (getenv("SHELL"))
         mstrlcpy(shell, getenv("SHELL"), sizeof(shell));
      else
         strcpy(shell, "/bin/sh");
      int error = execl(shell, shell, NULL);
      // NB: execl() does not return unless there is an error.
      fprintf(stderr, "ss_shell: Cannot execute command \"%s\": execl() returned %d, errno %d (%s), aborting!\n", shell, error, errno, strerror(errno));
      abort();
   }
#else
   send(sock, "not implemented\n", 17, 0);
#endif                          /* NO_PTY */
 
   return SS_SUCCESS;
 
#endif                          /* OS_UNIX */
}

Here is the call graph for this function:

ss_shm_close()

INT ss_shm_close	(	const char *	name,
		void *	adr,
		size_t	shm_size,
		HNDLE	handle,
		INT	destroy_flag
	)

Definition at line 757 of file system.cxx.

{
   char mem_name[256], cwd[256];
   std::string file_name;
 
   /*
      append a leading SM_ to the memory name to resolve name conflicts
      with mutex or semaphore names
    */
   sprintf(mem_name, "SM_%s", name);
 
   /* append .SHM and preceed the path for the shared memory file name */
   std::string path = cm_get_path();
   if (path.empty()) {
      if (getcwd(cwd, sizeof(cwd)))
         path = std::string(cwd);
#if defined(OS_VMS)
#elif defined(OS_UNIX)
      path += "/";
#elif defined(OS_WINNT)
      path += "\\";
#endif
   }
 
   file_name = path;
#if defined (OS_UNIX)
   file_name += "."; /* dot file under UNIX */
#endif
   file_name += std::string(name);
   file_name += ".SHM";
 
   if (shm_trace)
      printf("ss_shm_close(\"%s\",%p,%.0f,%d,destroy_flag=%d), file_name [%s]\n", name, adr, (double)shm_size, handle, destroy_flag, file_name.c_str());
 
#ifdef OS_WINNT
 
   if (!UnmapViewOfFile(adr))
      return SS_INVALID_ADDRESS;
 
   CloseHandle((HANDLE) handle);
 
   return SS_SUCCESS;
 
#endif                          /* OS_WINNT */
#ifdef OS_VMS
/* outcommented because ppl$delete... makes privilege violation
  {
  int addr[2], flags, status;
  char mem_name[100];
  $DESCRIPTOR(memname_dsc, mem_name);
 
  strcpy(mem_name, "SM_");
  strcat(mem_name, name);
  memname_dsc.dsc$w_length = strlen(mem_name);
 
  flags = PPL$M_FLUSH | PPL$M_NOUNI;
 
  addr[0] = 0;
  addr[1] = adr;
 
  status = ppl$delete_shared_memory( &memname_dsc, addr, &flags);
 
  if (status == PPL$_NORMAL)
    return SS_SUCCESS;
 
  return SS_INVALID_ADDRESS;
  }
*/
   return SS_INVALID_ADDRESS;
 
#endif                          /* OS_VMS */
#ifdef OS_UNIX
 
   if (use_sysv_shm) {
 
      struct shmid_ds buf;
 
      /* get info about shared memory */
      memset(&buf, 0, sizeof(buf));
      if (shmctl(handle, IPC_STAT, &buf) < 0) {
         cm_msg(MERROR, "ss_shm_close", "shmctl(shmid=%d,IPC_STAT) failed, errno %d (%s)",
                handle, errno, strerror(errno));
         return SS_INVALID_HANDLE;
      }
 
      destroy_flag = (buf.shm_nattch == 1);
 
      if (shm_trace)
         printf("ss_shm_close(\"%s\"), destroy_flag %d, shmid %d, shm_nattach %d\n", name, destroy_flag, handle, (int)buf.shm_nattch);
 
      if (shmdt(adr) < 0) {
         cm_msg(MERROR, "ss_shm_close", "shmdt(shmid=%d) failed, errno %d (%s)", handle, errno, strerror(errno));
         return SS_INVALID_ADDRESS;
      }
 
      if (destroy_flag) {
         int status = ss_shm_delete(name);
         if (status != SS_SUCCESS)
            return status;
      }
 
      return SS_SUCCESS;
   }
 
   if (use_mmap_shm || use_posix_shm) {
      int status;
 
      if (shm_trace)
         printf("ss_shm_close(\"%s\"), destroy_flag %d\n", name, destroy_flag);
 
      status = munmap(adr, shm_size);
      if (status != 0) {
         cm_msg(MERROR, "ss_shm_close", "Cannot unmap shared memory \'%s\', munmap() errno %d (%s)", name, errno, strerror(errno));
         return SS_INVALID_ADDRESS;
      }
 
      if (destroy_flag) {
         status = ss_shm_delete(name);
         if (status != SS_SUCCESS)
            return status;
      }
 
      return SS_SUCCESS;
   }
#endif /* OS_UNIX */
 
   return SS_FILE_ERROR;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_shm_delete()

INT EXPRT ss_shm_delete

(

const char *

name

)

Definition at line 911 of file system.cxx.

{
   int status;
   std::string mem_name;
   std::string file_name;
   std::string shm_name;
 
   status = ss_shm_name(name, mem_name, file_name, shm_name);
 
   if (shm_trace)
      printf("ss_shm_delete(\"%s\") file_name [%s] shm_name [%s]\n", name, file_name.c_str(), shm_name.c_str());
 
#ifdef OS_WINNT
   /* no shared memory segments to delete */
   return SS_SUCCESS;
#endif                          /* OS_WINNT */
 
#ifdef OS_VMS
   assert(!"not implemented!");
   return SS_NO_MEMORY;
#endif                          /* OS_VMS */
 
#ifdef OS_UNIX
 
   if (use_sysv_shm) {
      int shmid = -1;
      struct shmid_ds buf;
 
      status = ss_shm_file_name_to_shmid(file_name.c_str(), &shmid);
 
      if (shm_trace)
         printf("ss_shm_delete(\"%s\") file_name %s, shmid %d\n", name, file_name.c_str(), shmid);
 
      if (status != SS_SUCCESS)
         return status;
 
      status = shmctl(shmid, IPC_RMID, &buf);
 
      if (status == -1) {
         cm_msg(MERROR, "ss_shm_delete", "Cannot delete shared memory \'%s\', shmctl(IPC_RMID) failed, errno %d (%s)", name, errno, strerror(errno));
         return SS_FILE_ERROR;
      }
 
      return SS_SUCCESS;
   }
 
   if (use_mmap_shm) {
      /* no shared memory segments to delete */
 
      if (shm_trace)
         printf("ss_shm_delete(\"%s\") file_name %s (no-op)\n", name, file_name.c_str());
 
      return SS_SUCCESS;
   }
 
   if (use_posix_shm) {
 
      if (shm_trace)
         printf("ss_shm_delete(\"%s\") shm_name %s\n", name, shm_name.c_str());
 
      status = shm_unlink(shm_name.c_str());
      if (status < 0) {
         if (errno != ENOENT) {
            cm_msg(MERROR, "ss_shm_delete", "shm_unlink(%s) nexpexted error, status %d, errno %d (%s)", shm_name.c_str(), status, errno, strerror(errno));
         }
         return SS_NO_MEMORY;
      }
 
      return SS_SUCCESS;
   }
 
#endif /* OS_UNIX */
 
   return SS_FILE_ERROR;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_shm_flush()

INT ss_shm_flush	(	const char *	name,
		const void *	adr,
		size_t	size,
		HNDLE	handle,
		bool	wait_for_thread
	)

Definition at line 1178 of file system.cxx.

{
   std::string mem_name;
   std::string file_name;
   std::string shm_name;
 
   ss_shm_name(name, mem_name, file_name, shm_name);
 
   if (shm_trace)
      printf("ss_shm_flush(\"%s\",%p,%.0f,%d), file_name [%s]\n", name, adr, (double)size, handle, file_name.c_str());
 
#ifdef OS_WINNT
 
   if (!FlushViewOfFile(adr, size))
      return SS_INVALID_ADDRESS;
 
   return SS_SUCCESS;
 
#endif                          /* OS_WINNT */
#ifdef OS_VMS
 
   return SS_SUCCESS;
 
#endif                          /* OS_VMS */
#ifdef OS_UNIX
 
   if (use_sysv_shm || use_posix_shm) {
 
      assert(size > 0);
 
      int fd = open(file_name.c_str(), O_RDWR | O_CREAT, 0777);
      if (fd < 0) {
         cm_msg(MERROR, "ss_shm_flush", "Cannot write to file \'%s\', fopen() errno %d (%s)", file_name.c_str(), errno, strerror(errno));
         return SS_NO_MEMORY;
      }
 
      /* try to make a copy of the shared memory */
      void *buffer = malloc(size);
      if (buffer != nullptr) {
         memcpy(buffer, adr, size);
         static std::thread* thread = NULL; // THIS IS NOT THREAD SAFE!
         if (thread) { // reap the long finished thread from the previous flush
            thread->join();
            delete thread;
            thread = NULL;
         }
         static FL_PARAM param; // this is safe, thread is no longer running. K.O.
         param.file_name = file_name;
         param.fd = fd;
         param.buf = buffer;
         param.size = size;
 
         thread = new std::thread(ss_shm_flush_thread, &param);
 
         if (wait_for_thread) {
            //fprintf(stderr, "waiting for flush thread!\n");
            thread->join();
            delete thread;
            thread = NULL;
            //fprintf(stderr, "thread joined!\n");
         }
 
         // buffer gets freed in ss_shm_flush_thread, so we don't have to free() it here...
      } else {
 
         /* not enough memory for ODB copy buffer, so write directly */
         uint32_t start = ss_time();
         ssize_t wr = write(fd, adr, size);
         if ((size_t)wr != size) {
            cm_msg(MERROR, "ss_shm_flush", "Cannot write to file \'%s\', write() returned %d instead of %d, errno %d (%s)", file_name.c_str(), (int)wr, (int)size, errno, strerror(errno));
            close(fd);
            return SS_NO_MEMORY;
         }
 
         int ret = close(fd);
         if (ret < 0) {
            cm_msg(MERROR, "ss_shm_flush", "Cannot write to file \'%s\', close() errno %d (%s)",
                   file_name.c_str(), errno, strerror(errno));
            return SS_NO_MEMORY;
         }
 
         if (ss_time() - start > 4)
            cm_msg(MINFO, "ss_shm_flush", "Flushing shared memory took %d seconds", ss_time() - start);
 
      }
 
      return SS_SUCCESS;
   }
 
   if (use_mmap_shm) {
 
      assert(size > 0);
 
      if (shm_trace)
         printf("ss_shm_flush(\"%s\") size %.0f, mmap file_name [%s]\n", name, (double)size, file_name.c_str());
 
      int ret = msync((void *)adr, size, MS_ASYNC);
      if (ret != 0) {
         cm_msg(MERROR, "ss_shm_flush", "Cannot msync(MS_ASYNC): return value %d, errno %d (%s)", ret, errno, strerror(errno));
         return SS_INVALID_ADDRESS;
      }
      return SS_SUCCESS;
   }
 
 
#endif // OS_UNIX
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_shm_flush_thread()

INT ss_shm_flush_thread

(

void *

p

)

Definition at line 1138 of file system.cxx.

{
   FL_PARAM *param = (FL_PARAM *)p;
 
   //fprintf(stderr, "flush start!\n");
 
   uint32_t start = ss_time();
 
   /* write shared memory to file */
   ssize_t wr = write(param->fd, param->buf, param->size);
   if ((size_t)wr != (size_t)param->size) {
      cm_msg(MERROR, "ss_shm_flush", "Cannot write to file \'%s\', write() returned %d instead of %d, errno %d (%s)",
             param->file_name.c_str(), (int)wr, (int)param->size, errno, strerror(errno));
      close(param->fd);
      free(param->buf);
      param->buf = nullptr;
      return -1;
   }
 
   int ret = close(param->fd);
   if (ret < 0) {
      cm_msg(MERROR, "ss_shm_flush", "Cannot write to file \'%s\', close() errno %d (%s)",
             param->file_name.c_str(), errno, strerror(errno));
      free(param->buf);
      param->buf = nullptr;
      return -1;
   }
 
   free(param->buf);
   param->buf = nullptr;
 
   if (ss_time() - start > 4)
      cm_msg(MINFO, "ss_shm_flush", "Flushing shared memory took %d seconds", ss_time() - start);
 
   //fprintf(stderr, "flush end!\n");
 
   return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_shm_name()

static int ss_shm_name ( const char *  name, std::string &  mem_name, std::string &  file_name, std::string &  shm_name  )

static

Definition at line 232 of file system.cxx.

{
   check_shm_host();
#if defined(OS_DARWIN)
   check_shm_type("POSIXv3_SHM"); // uid + expt name + shm name
#elif defined(OS_UNIX)
   check_shm_type("POSIXv4_SHM"); // uid + expt name + shm name + expt directory
#endif
 
   mem_name = std::string("SM_") + name;
 
   /* append .SHM and preceed the path for the shared memory file name */
 
   std::string exptname = cm_get_experiment_name();
   std::string path = cm_get_path();
 
   //printf("shm name [%s], expt name [%s], path [%s]\n", name, exptname.c_str(), path.c_str());
 
   assert(path.length() > 0);
   assert(exptname.length() > 0);
 
   file_name = path;
#if defined (OS_UNIX)
   file_name += "."; /* dot file under UNIX */
#endif
   file_name += name;
   file_name += ".SHM";
 
#if defined(OS_UNIX)
   shm_name = "/";
   if (use_posix1_shm) {
      shm_name += file_name;
   } else if (use_posix2_shm) {
      shm_name += exptname;
      shm_name += "_";
      shm_name += name;
      shm_name += "_SHM";
   } else if (use_posix3_shm) {
      uid_t uid = getuid();
      char buf[16];
      sprintf(buf, "%d", uid);
      shm_name += buf;
      shm_name += "_";
      shm_name += exptname;
      shm_name += "_";
      shm_name += name;
   } else if (use_posix4_shm) {
      uid_t uid = getuid();
      char buf[16];
      sprintf(buf, "%d", uid);
      shm_name += buf;
      shm_name += "_";
      shm_name += exptname;
      shm_name += "_";
      shm_name += name;
      shm_name += "_";
      shm_name += cm_get_path();
   } else {
      fprintf(stderr, "check_shm_host: unsupported shared memory type, bye!\n");
      abort();
   }
 
   for (size_t i=1; i<shm_name.length(); i++)
      if (shm_name[i] == '/')
         shm_name[i] = '_';
 
   //printf("ss_shm_name: [%s] generated [%s]\n", name, shm_name.c_str());
#endif
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_shm_open()

INT ss_shm_open	(	const char *	name,
		INT	size,
		void **	adr,
		size_t *	shm_size,
		HNDLE *	handle,
		BOOL	get_size
	)

Definition at line 326 of file system.cxx.

{
   INT status;
   std::string mem_name;
   std::string file_name;
   std::string shm_name;
 
   ss_shm_name(name, mem_name, file_name, shm_name);
 
   if (shm_trace)
      printf("ss_shm_open(\"%s\",%d,%d), mem_name [%s], file_name [%s], shm_name [%s]\n", name, size, get_size, mem_name.c_str(), file_name.c_str(), shm_name.c_str());
 
#ifdef OS_WINNT
 
   status = SS_SUCCESS;
 
   {
      HANDLE hFile, hMap;
      char str[256], path[256], *p;
      DWORD file_size;
 
      /* make the memory name unique using the pathname. This is necessary
         because NT doesn't use ftok. So if different experiments are
         running in different directories, they should not see the same
         shared memory */
      cm_get_path(path, sizeof(path));
      mstrlcpy(str, path, sizeof(path));
 
      /* replace special chars by '*' */
      while (strpbrk(str, "\\: "))
         *strpbrk(str, "\\: ") = '*';
      mstrlcat(str, mem_name, sizeof(path));
 
      /* convert to uppercase */
      p = str;
      while (*p)
         *p++ = (char) toupper(*p);
 
      hMap = OpenFileMapping(FILE_MAP_ALL_ACCESS, FALSE, str);
      if (hMap == 0) {
         hFile = CreateFile(file_name.c_str(), GENERIC_READ | GENERIC_WRITE, FILE_SHARE_READ | FILE_SHARE_WRITE, NULL, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
         if (!hFile) {
            cm_msg(MERROR, "ss_shm_open", "CreateFile() failed");
            return SS_FILE_ERROR;
         }
 
         file_size = GetFileSize(hFile, NULL);
         if (get_size) {
            if (file_size != 0xFFFFFFFF && file_size > 0)
               size = file_size;
         } else {
            if (file_size != 0xFFFFFFFF && file_size > 0 && file_size != size) {
               cm_msg(MERROR, "ss_shm_open", "Requested size (%d) differs from existing size (%d)", size, file_size);
               return SS_SIZE_MISMATCH;
            }
         }
 
         hMap = CreateFileMapping(hFile, NULL, PAGE_READWRITE, 0, size, str);
 
         if (!hMap) {
            status = GetLastError();
            cm_msg(MERROR, "ss_shm_open", "CreateFileMapping() failed, error %d", status);
            return SS_FILE_ERROR;
         }
 
         CloseHandle(hFile);
         status = SS_CREATED;
      }
 
      *adr = MapViewOfFile(hMap, FILE_MAP_ALL_ACCESS, 0, 0, 0);
      *handle = (HNDLE) hMap;
      *shm_size = size;
 
      if (adr == NULL) {
         cm_msg(MERROR, "ss_shm_open", "MapViewOfFile() failed");
         return SS_NO_MEMORY;
      }
 
      return status;
   }
 
#endif                          /* OS_WINNT */
#ifdef OS_VMS
 
   status = SS_SUCCESS;
 
   {
      int addr[2];
      $DESCRIPTOR(memname_dsc, "dummy");
      $DESCRIPTOR(filename_dsc, "dummy");
      memname_dsc.dsc$w_length = strlen(mem_name);
      memname_dsc.dsc$a_pointer = mem_name;
      filename_dsc.dsc$w_length = file_name.length();
      filename_dsc.dsc$a_pointer = file_name.c_str();
 
      addr[0] = size;
      addr[1] = 0;
 
      status = ppl$create_shared_memory(&memname_dsc, addr, &PPL$M_NOUNI, &filename_dsc);
 
      if (status == PPL$_CREATED)
         status = SS_CREATED;
      else if (status != PPL$_NORMAL)
         status = SS_FILE_ERROR;
 
      *adr = (void *) addr[1];
      *handle = 0;              /* not used under VMS */
      *shm_size = addr[0];
 
      if (adr == NULL)
         return SS_NO_MEMORY;
 
      return status;
   }
 
#endif                          /* OS_VMS */
#ifdef OS_UNIX
 
   if (use_sysv_shm) {
 
      int key, shmid, fh;
      double file_size = 0;
      struct shmid_ds buf;
 
      status = SS_SUCCESS;
 
      /* create a unique key from the file name */
      key = ftok(file_name.c_str(), 'M');
 
      /* if file doesn't exist, create it */
      if (key == -1) {
         fh = open(file_name.c_str(), O_CREAT | O_TRUNC | O_BINARY | O_RDWR, 0644);
         if (fh > 0) {
            close(fh);
         }
         key = ftok(file_name.c_str(), 'M');
 
         if (key == -1) {
            cm_msg(MERROR, "ss_shm_open", "ftok() failed");
            return SS_FILE_ERROR;
         }
 
         status = SS_CREATED;
 
         /* delete any previously created memory */
 
         shmid = shmget(key, 0, 0);
         shmctl(shmid, IPC_RMID, &buf);
      } else {
         /* if file exists, retrieve its size */
         file_size = ss_file_size(file_name.c_str());
         if (file_size > 0) {
            if (get_size) {
               size = file_size;
            } else if (size != file_size) {
               cm_msg(MERROR, "ss_shm_open", "Existing file \'%s\' has size %.0f, different from requested size %d", file_name.c_str(), file_size, size);
               return SS_SIZE_MISMATCH;
            }
         }
      }
 
      if (shm_trace)
         printf("ss_shm_open(\"%s\",%d) get_size %d, file_name %s, size %.0f\n", name, size, get_size, file_name.c_str(), file_size);
 
      /* get the shared memory, create if not existing */
      shmid = shmget(key, size, 0);
      if (shmid == -1) {
         //cm_msg(MINFO, "ss_shm_open", "Creating shared memory segment, key: 0x%x, size: %d",key,size);
         shmid = shmget(key, size, IPC_CREAT | IPC_EXCL);
         if (shmid == -1 && errno == EEXIST) {
            cm_msg(MERROR, "ss_shm_open",
                   "Shared memory segment with key 0x%x already exists, please remove it manually: ipcrm -M 0x%x",
                   key, key);
            return SS_NO_MEMORY;
         }
         status = SS_CREATED;
      }
 
      if (shmid == -1) {
         cm_msg(MERROR, "ss_shm_open", "shmget(key=0x%x,size=%d) failed, errno %d (%s)", key, size, errno, strerror(errno));
         return SS_NO_MEMORY;
      }
 
      memset(&buf, 0, sizeof(buf));
      buf.shm_perm.uid = getuid();
      buf.shm_perm.gid = getgid();
      buf.shm_perm.mode = 0666;
      shmctl(shmid, IPC_SET, &buf);
 
      *adr = shmat(shmid, 0, 0);
 
      if ((*adr) == (void *) (-1)) {
         cm_msg(MERROR, "ss_shm_open", "shmat(shmid=%d) failed, errno %d (%s)", shmid, errno, strerror(errno));
         return SS_NO_MEMORY;
      }
 
      *handle = (HNDLE) shmid;
      *shm_size = size;
 
      /* if shared memory was created, try to load it from file */
      if (status == SS_CREATED && file_size > 0) {
         fh = open(file_name.c_str(), O_RDONLY, 0644);
         if (fh == -1)
            fh = open(file_name.c_str(), O_CREAT | O_RDWR, 0644);
         else {
            int rd = read(fh, *adr, size);
            if (rd != size)
               cm_msg(MERROR, "ss_shm_open", "File size mismatch shared memory \'%s\' size %d, file \'%s\' read %d, errno %d (%s)", name, size, file_name.c_str(), rd, errno, strerror(errno));
         }
         close(fh);
      }
 
      return status;
   }
 
   if (use_mmap_shm) {
 
      int ret;
      int fh, file_size;
 
      if (1) {
         static int once = 1;
         if (once && strstr(file_name.c_str(), "ODB")) {
            once = 0;
            cm_msg(MINFO, "ss_shm_open", "WARNING: This version of MIDAS system.c uses the experimental mmap() based implementation of MIDAS shared memory.");
         }
      }
 
      if (shm_trace)
         printf("ss_shm_open(\"%s\",%d) get_size %d, file_name %s\n", name, size, get_size, file_name.c_str());
 
      status = SS_SUCCESS;
 
      fh = open(file_name.c_str(), O_RDWR | O_BINARY | O_LARGEFILE, 0644);
 
      if (fh < 0) {
         if (errno == ENOENT) { // file does not exist
            fh = open(file_name.c_str(), O_CREAT | O_RDWR | O_BINARY | O_LARGEFILE, 0644);
         }
 
         if (fh < 0) {
            cm_msg(MERROR, "ss_shm_open", "Cannot create shared memory file \'%s\', errno %d (%s)", file_name.c_str(), errno, strerror(errno));
            return SS_FILE_ERROR;
         }
 
         ret = lseek(fh, size - 1, SEEK_SET);
 
         if (ret == (off_t) - 1) {
            cm_msg(MERROR, "ss_shm_open",
                   "Cannot create shared memory file \'%s\', size %d, lseek() errno %d (%s)",
                   file_name.c_str(), size, errno, strerror(errno));
            return SS_FILE_ERROR;
         }
 
         ret = 0;
         ret = write(fh, &ret, 1);
         assert(ret == 1);
 
         ret = lseek(fh, 0, SEEK_SET);
         assert(ret == 0);
 
         //cm_msg(MINFO, "ss_shm_open", "Created shared memory file \'%s\', size %d", file_name.c_str(), size);
 
         status = SS_CREATED;
      }
 
      /* if file exists, retrieve its size */
      file_size = (INT) ss_file_size(file_name.c_str());
      if (file_size < size) {
         cm_msg(MERROR, "ss_shm_open",
                "Shared memory file \'%s\' size %d is smaller than requested size %d. Please remove it and try again",
                file_name.c_str(), file_size, size);
         return SS_NO_MEMORY;
      }
 
      size = file_size;
 
      *adr = mmap(NULL, size, PROT_READ | PROT_WRITE, MAP_SHARED, fh, 0);
 
      if ((*adr) == MAP_FAILED) {
         cm_msg(MERROR, "ss_shm_open", "mmap() failed, errno %d (%s)", errno, strerror(errno));
         return SS_NO_MEMORY;
      }
 
      *handle = ++shm_count;
      *shm_size = size;
 
      return status;
   }
 
   if (use_posix_shm) {
 
      int sh;
      int fh;
      int created = 0;
      double file_size = -1;
 
      fh = open(file_name.c_str(), O_RDONLY | O_BINARY | O_LARGEFILE, 0777);
 
      if (fh >= 0) {
         file_size = ss_file_size(file_name.c_str());
      }
 
      if (shm_trace)
         printf("ss_shm_open(\"%s\",%d) get_size %d, file_name %s, size %.0f\n", name, size, get_size, file_name.c_str(), file_size);
 
      if (file_size > 0) {
         if (get_size)
            size = file_size;
 
         if (file_size != size) {
            cm_msg(MERROR, "ss_shm_open", "Shared memory file \'%s\' size %.0f is different from requested size %d. Please backup and remove this file and try again", file_name.c_str(), file_size, size);
            if (fh >= 0)
               close(fh);
            return SS_NO_MEMORY;
         }
      }
 
      int mode = 0600; // 0777: full access for everybody (minus umask!), 0600: current user: read+write, others: no permission
 
      sh = shm_open(shm_name.c_str(), O_RDWR, mode);
 
      if (sh < 0) {
         // cannot open, try to create new one
 
         sh = shm_open(shm_name.c_str(), O_RDWR | O_CREAT, mode);
 
         //printf("ss_shm_open: name [%s], return %d, errno %d (%s)\n", shm_name, sh, errno, strerror(errno));
 
         if (sh < 0) {
#ifdef ENAMETOOLONG
            if (errno == ENAMETOOLONG) {
               fprintf(stderr, "ss_shm_open: Cannot create shared memory for \"%s\": shared memory object name \"%s\" is too long for shm_open(), please try to use shorter experiment name or shorter event buffer name or a shared memory type that uses shorter names, in this order: POSIXv3_SHM, POSIXv2_SHM or POSIX_SHM (as specified in config file .SHM_TYPE.TXT). Sorry, bye!\n", name, shm_name.c_str());
               exit(1);
            }
#endif
#ifdef EACCES
            if (errno == EACCES) {
               fprintf(stderr, "ss_shm_open: Cannot create shared memory for \"%s\" with shared memory object name \"%s\", shm_open() errno %d (%s), please inspect file permissions in \"ls -l /dev/shm\", and if this is a conflict with a different user using the same experiment name, please change shared memory type to the POSIXv4_SHM or POSIXv3_SHM (on MacOS) (as specified in config file .SHM_TYPE.TXT). Sorry, bye!\n", name, shm_name.c_str(), errno, strerror(errno));
               exit(1);
            }
#endif
            cm_msg(MERROR, "ss_shm_open", "Cannot create shared memory segment \'%s\', shm_open() errno %d (%s)", shm_name.c_str(), errno, strerror(errno));
            if (fh >= 0)
               close(fh);
            return SS_NO_MEMORY;
         }
 
         status = ftruncate(sh, size);
         if (status < 0) {
            cm_msg(MERROR, "ss_shm_open", "Cannot resize shared memory segment \'%s\', ftruncate(%d) errno %d (%s)", shm_name.c_str(), size, errno, strerror(errno));
            if (fh >= 0)
               close(fh);
            return SS_NO_MEMORY;
         }
 
         //cm_msg(MINFO, "ss_shm_open", "Created shared memory segment \'%s\', size %d", shm_name.c_str(), size);
 
         created = 1;
      }
 
      *adr = mmap(NULL, size, PROT_READ | PROT_WRITE, MAP_SHARED, sh, 0);
 
      if ((*adr) == MAP_FAILED) {
         cm_msg(MERROR, "ss_shm_open", "Cannot mmap() shared memory \'%s\', errno %d (%s)", shm_name.c_str(), errno, strerror(errno));
         close(sh);
         if (fh >= 0)
            close(fh);
         return SS_NO_MEMORY;
      }
 
      close(sh);
 
      /* if shared memory was created, try to load it from file */
      
      if (created && fh >= 0 && file_size > 0) {
         if (shm_trace)
            printf("ss_shm_open(\"%s\"), loading contents of file [%s], size %.0f\n", name, file_name.c_str(), file_size);
 
         status = read(fh, *adr, size);
         if (status != size) {
            cm_msg(MERROR, "ss_shm_open", "Cannot read \'%s\', read() returned %d instead of %d, errno %d (%s)", file_name.c_str(), status, size, errno, strerror(errno));
            close(fh);
            return SS_NO_MEMORY;
         }
      }
      
      close(fh);
 
      *handle = ++shm_count;
      *shm_size = size;
 
      if (created)
         return SS_CREATED;
      else
         return SS_SUCCESS;
   }
 
#endif /* OS_UNIX */
 
   return SS_FILE_ERROR;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_shm_protect()

INT ss_shm_protect	(	HNDLE	handle,
		void *	adr,
		size_t	shm_size
	)

Definition at line 1005 of file system.cxx.

{
   if (shm_trace)
      printf("ss_shm_protect()   handle %d, adr %p, size %.0f\n", handle, adr, (double)shm_size);
 
#ifdef OS_WINNT
 
   if (!UnmapViewOfFile(adr))
      return SS_INVALID_ADDRESS;
 
#endif                          /* OS_WINNT */
#ifdef OS_UNIX
 
   if (use_sysv_shm) {
 
      if (shmdt(adr) < 0) {
         cm_msg(MERROR, "ss_shm_protect", "shmdt() failed");
         return SS_INVALID_ADDRESS;
      }
   }
 
   if (use_mmap_shm || use_posix_shm) {
      assert(shm_size > 0);
 
      int ret = mprotect(adr, shm_size, PROT_NONE);
      if (ret != 0) {
         cm_msg(MERROR, "ss_shm_protect", "Cannot mprotect(PROT_NONE): return value %d, errno %d (%s)", ret, errno, strerror(errno));
         return SS_INVALID_ADDRESS;
      }
   }
 
#endif // OS_UNIX
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_shm_unprotect()

INT ss_shm_unprotect	(	HNDLE	handle,
		void **	adr,
		size_t	shm_size,
		BOOL	read,
		BOOL	write,
		const char *	caller_name
	)

Definition at line 1062 of file system.cxx.

{
   if (shm_trace)
      printf("ss_shm_unprotect() handle %d, adr %p, size %.0f, read %d, write %d, caller %s\n", handle, *adr, (double)shm_size, read, write, caller_name);
   
#ifdef OS_WINNT
 
   *adr = MapViewOfFile((HANDLE) handle, FILE_MAP_ALL_ACCESS, 0, 0, 0);
 
   if (*adr == NULL) {
      cm_msg(MERROR, "ss_shm_unprotect", "MapViewOfFile() failed");
      return SS_NO_MEMORY;
   }
#endif                          /* OS_WINNT */
#ifdef OS_UNIX
 
   if (use_sysv_shm) {
 
      *adr = shmat(handle, 0, 0);
 
      if ((*adr) == (void *) (-1)) {
         cm_msg(MERROR, "ss_shm_unprotect", "shmat() failed, errno = %d", errno);
         return SS_NO_MEMORY;
      }
   }
 
   if (use_mmap_shm || use_posix_shm) {
      assert(shm_size > 0);
      
      int mode = 0;
      if (read)
         mode |= PROT_READ;
      if (write)
         mode |= PROT_READ | PROT_WRITE;
 
      int ret = mprotect(*adr, shm_size, mode);
      if (ret != 0) {
         cm_msg(MERROR, "ss_shm_unprotect", "Cannot mprotect(%d): return value %d, errno %d (%s)", mode, ret, errno, strerror(errno));
         return SS_INVALID_ADDRESS;
      }
   }
 
#endif // OS_UNIX
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_sleep()

INT EXPRT ss_sleep

(

INT

millisec

)

Suspend the calling process for a certain time.

The function is similar to the sleep() function, but has a resolution of one milliseconds. Under VxWorks the resolution is 1/60 of a second. It uses the socket select() function with a time-out. See examples in ss_time()

Parameters

millisec

Time in milliseconds to sleep. Zero means infinite (until another process calls ss_wake)

Returns

SS_SUCCESS

Definition at line 3700 of file system.cxx.

{
   if (millisec == 0) {
#ifdef OS_WINNT
      SuspendThread(GetCurrentThread());
#endif
#ifdef OS_VMS
      sys$hiber();
#endif
#ifdef OS_UNIX
      signal(SIGCONT, ss_cont);
      pause();
#endif
      return SS_SUCCESS;
   }
#ifdef OS_WINNT
   Sleep(millisec);
#endif
#ifdef OS_UNIX
   struct timespec ts;
   int status;
 
   ts.tv_sec = millisec / 1000;
   ts.tv_nsec = (millisec % 1000) * 1E6;
 
   do {
      status = nanosleep(&ts, &ts);
      if ((int)ts.tv_sec < 0)
         break; // can be negative under OSX
   } while (status == -1 && errno == EINTR);
#endif
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_socket_check()

static int ss_socket_check ( int  sock )

static

Definition at line 4565 of file system.cxx.

{
   // copied from the old rpc_server_receive()
 
   /* only check if TCP connection is broken */
 
   char test_buffer[256];
#ifdef OS_WINNT
   int n_received = recv(sock, test_buffer, sizeof(test_buffer), MSG_PEEK);
#else
   int n_received = recv(sock, test_buffer, sizeof(test_buffer), MSG_PEEK | MSG_DONTWAIT);
   
   /* check if we caught a signal */
   if ((n_received == -1) && (errno == EAGAIN))
      return SS_SUCCESS;
#endif
   
   if (n_received == -1) {
      cm_msg(MERROR, "ss_socket_check", "recv(%d,MSG_PEEK) returned %d, errno: %d (%s)", (int) sizeof(test_buffer), n_received, errno, strerror(errno));
   }
   
   if (n_received <= 0)
      return SS_ABORT;
   
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_socket_close()

INT EXPRT ss_socket_close

(

int *

sockp

)

Definition at line 5303 of file system.cxx.

{
   assert(sockp != NULL);
   if (gSocketTrace) {
      fprintf(stderr, "ss_socket_close: %d\n", *sockp);
   }
   int err = close(*sockp);
   if (err) {
      cm_msg(MERROR, "ss_socket_close", "unexpected error, close() returned %d, errno: %d (%s)", err, errno, strerror(errno));
   }
   *sockp = 0;
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_socket_connect_tcp()

INT EXPRT ss_socket_connect_tcp	(	const char *	hostname,
		int	tcp_port,
		int *	sockp,
		std::string *	error_msg_p
	)

Definition at line 5039 of file system.cxx.

{
   assert(sockp != NULL);
   assert(error_msg_p != NULL);
   *sockp = 0;
 
#ifdef OS_WINNT
   {
      WSADATA WSAData;
 
      /* Start windows sockets */
      if (WSAStartup(MAKEWORD(1, 1), &WSAData) != 0)
         return RPC_NET_ERROR;
   }
#endif
 
   char portname[256];
   sprintf(portname, "%d", tcp_port);
 
   struct addrinfo *ainfo = NULL;
 
   int status = getaddrinfo(hostname, portname, NULL, &ainfo);
 
   if (status != 0) {
      *error_msg_p = msprintf("cannot resolve hostname \"%s\", getaddrinfo() error %d (%s)", hostname, status, gai_strerror(status));
      if (ainfo)
         freeaddrinfo(ainfo);
      return RPC_NET_ERROR;
   }
 
   // NOTE: ainfo must be freeed using freeaddrinfo(ainfo);
 
   int sock = 0;
 
   for (const struct addrinfo *r = ainfo; r != NULL; r = r->ai_next) {
      if (gSocketTrace) {
         fprintf(stderr, "ss_socket_connect_tcp: hostname [%s] port %d addrinfo: flags %d, family %d, socktype %d, protocol %d, canonname [%s]\n",
                 hostname,
                 tcp_port,
                 r->ai_flags,
                 r->ai_family,
                 r->ai_socktype,
                 r->ai_protocol,
                 r->ai_canonname);
      }
 
      // skip anything but TCP addresses
      if (r->ai_socktype != SOCK_STREAM) {
         continue;
      }
      
      // skip anything but TCP protocol 6
      if (r->ai_protocol != 6) {
         continue;
      }
      
      sock = ::socket(r->ai_family, r->ai_socktype, 0);
      
      if (sock <= 0) {
         *error_msg_p = msprintf("cannot create socket, errno %d (%s)", errno, strerror(errno));
         continue;
      }
      
      status = ::connect(sock, r->ai_addr, r->ai_addrlen);
      if (status != 0) {
         if (gSocketTrace) {
            fprintf(stderr, "ss_socket_connect_tcp: connect() status %d, errno %d (%s)\n", status, errno, strerror(errno));
         }
         *error_msg_p = msprintf("cannot connect to host \"%s\" port %d, errno %d (%s)", hostname, tcp_port, errno, strerror(errno));
         ::close(sock);
         sock = 0;
         continue;
      }
      // successfully connected
      break;
   }
   
   freeaddrinfo(ainfo);
   ainfo = NULL;
 
   if (sock == 0) {
      // error_msg is already set
      return RPC_NET_ERROR;
   }
 
   *sockp = sock;
 
   if (gSocketTrace) {
      fprintf(stderr, "ss_socket_connect_tcp: hostname [%s] port %d new socket %d\n", hostname, tcp_port, *sockp);
   }
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_socket_get_peer_name()

INT EXPRT ss_socket_get_peer_name	(	int	sock,
		std::string *	hostp,
		int *	portp
	)

Definition at line 5318 of file system.cxx.

{
   char addr[64];
 
   unsigned size = sizeof(addr);
   int rv = getpeername(sock, (struct sockaddr *) &addr, &size);
 
   //printf("getpeername() returned %d, size %d, buffer %d\n", rv, size, (int)sizeof(addr));
 
   if (rv != 0) {
      cm_msg(MERROR, "ss_socket_get_peer_name", "Error: getpeername() returned %d, errno %d (%s)", rv, errno, strerror(errno));
      return SS_SOCKET_ERROR;
   }
   
   char hostname[256];
   char servname[16];
 
   int ret = getnameinfo((struct sockaddr*)&addr, size,
                         hostname, sizeof(hostname),
                         servname, sizeof(servname),
                         NI_NUMERICSERV);
 
   if (ret != 0) {
      cm_msg(MERROR, "ss_socket_get_peer_name", "Error: getnameinfo() error %d (%s)", ret, gai_strerror(ret));
      return SS_SOCKET_ERROR;
   }
 
   //printf("getnameinfo() returned %d, hostname [%s], servname[%s]\n", ret, hostname, servname);
 
   if (hostp)
      *hostp = hostname;
 
   if (portp)
      *portp = atoi(servname);
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_socket_listen_tcp()

INT EXPRT ss_socket_listen_tcp	(	bool	listen_localhost,
		int	tcp_port,
		int *	sockp,
		int *	tcp_port_p,
		std::string *	error_msg_p
	)

Definition at line 5134 of file system.cxx.

{
   assert(sockp != NULL);
   assert(tcp_port_p != NULL);
   assert(error_msg_p != NULL);
 
   *sockp = 0;
   *tcp_port_p = 0;
 
#ifdef OS_WINNT
   {
      WSADATA WSAData;
 
      /* Start windows sockets */
      if (WSAStartup(MAKEWORD(1, 1), &WSAData) != 0)
         return RPC_NET_ERROR;
   }
#endif
 
#ifdef AF_INET6
   bool use_inet6 = true;
#else
   bool use_inet6 = false;
#endif
 
   if (listen_localhost)
      use_inet6 = false;
 
   /* create a socket for listening */
   int lsock;
   if (use_inet6) {
#ifdef AF_INET6
      lsock = socket(AF_INET6, SOCK_STREAM, 0);
      if (lsock == -1) {
         if (errno == EAFNOSUPPORT) {
            use_inet6 = false;
            lsock = socket(AF_INET, SOCK_STREAM, 0);
         }
      }
#endif
   } else {
      lsock = socket(AF_INET, SOCK_STREAM, 0);
   }
 
   if (lsock == -1) {
      *error_msg_p = msprintf("socket(AF_INET, SOCK_STREAM) failed, errno %d (%s)", errno, strerror(errno));
      return RPC_NET_ERROR;
   }
 
   /* reuse address, needed if previous server stopped (30s timeout!) */
   int flag = 1;
   int status = setsockopt(lsock, SOL_SOCKET, SO_REUSEADDR, (char *) &flag, sizeof(int));
   if (status < 0) {
      *error_msg_p = msprintf("setsockopt(SO_REUSEADDR) failed, errno %d (%s)", errno, strerror(errno));
      return RPC_NET_ERROR;
   }
 
#ifdef AF_INET6
#ifdef IPV6_V6ONLY
   if (use_inet6) {
      /* turn off IPV6_V6ONLY, see RFC 3493 */
      flag = 0;
      status = setsockopt(lsock, IPPROTO_IPV6, IPV6_V6ONLY, (char *) &flag, sizeof(int));
      if (status < 0) {
         *error_msg_p = msprintf("setsockopt(IPPROTO_IPV6, IPV6_V6ONLY) failed, errno %d (%s)", errno, strerror(errno));
         return RPC_NET_ERROR;
      }
   }
#else
#warning strange: AF_INET6 is defined, but IPV6_V6ONLY is not defined
#endif
#endif
 
   if (use_inet6) {
#ifdef AF_INET6
      /* bind local node name and port to socket */
      struct sockaddr_in6 bind_addr6;
      memset(&bind_addr6, 0, sizeof(bind_addr6));
      bind_addr6.sin6_family = AF_INET6;
      
      if (listen_localhost) {
         bind_addr6.sin6_addr = in6addr_loopback;
      } else {
         bind_addr6.sin6_addr = in6addr_any;
      }
 
      if (tcp_port)
         bind_addr6.sin6_port = htons((short) tcp_port);
      else
         bind_addr6.sin6_port = htons(0); // OS will allocate a port number for us
      
      status = bind(lsock, (struct sockaddr *) &bind_addr6, sizeof(bind_addr6));
      if (status < 0) {
         *error_msg_p = msprintf("IPv6 bind() to port %d failed, errno %d (%s)", tcp_port, errno, strerror(errno));
         return RPC_NET_ERROR;
      }
#endif
   } else {
      /* bind local node name and port to socket */
      struct sockaddr_in bind_addr;
      memset(&bind_addr, 0, sizeof(bind_addr));
      bind_addr.sin_family = AF_INET;
      
      if (listen_localhost) {
         bind_addr.sin_addr.s_addr = htonl(INADDR_LOOPBACK);
      } else {
         bind_addr.sin_addr.s_addr = htonl(INADDR_ANY);
      }
      
      if (tcp_port)
         bind_addr.sin_port = htons((short) tcp_port);
      else
         bind_addr.sin_port = htons(0); // OS will allocate a port number for us
      
      status = bind(lsock, (struct sockaddr *) &bind_addr, sizeof(bind_addr));
      if (status < 0) {
         *error_msg_p = msprintf("bind() to port %d failed, errno %d (%s)", tcp_port, errno, strerror(errno));
         return RPC_NET_ERROR;
      }
   }
 
   /* listen for connection */
#ifdef OS_MSDOS
   status = listen(lsock, 1);
#else
   status = listen(lsock, SOMAXCONN);
#endif
   if (status < 0) {
      *error_msg_p = msprintf("listen() failed, errno %d (%s)", errno, strerror(errno));
      return RPC_NET_ERROR;
   }
 
   if (use_inet6) {
#ifdef AF_INET6
      struct sockaddr_in6 addr;
      socklen_t sosize = sizeof(addr);
      status = getsockname(lsock, (struct sockaddr*)&addr, &sosize);
      if (status < 0) {
         *error_msg_p = msprintf("IPv6 getsockname() failed, errno %d (%s)", errno, strerror(errno));
         return RPC_NET_ERROR;
      }
      
      *tcp_port_p = ntohs(addr.sin6_port);
#endif
   } else {
      struct sockaddr_in addr;
      socklen_t sosize = sizeof(addr);
      status = getsockname(lsock, (struct sockaddr*)&addr, &sosize);
      if (status < 0) {
         *error_msg_p = msprintf("getsockname() failed, errno %d (%s)", errno, strerror(errno));
         return RPC_NET_ERROR;
      }
   
      *tcp_port_p = ntohs(addr.sin_port);
   }
 
   *sockp = lsock;
 
   if (gSocketTrace) {
      if (listen_localhost)
         fprintf(stderr, "ss_socket_listen_tcp: listening tcp port %d local connections only, new socket %d\n", *tcp_port_p, *sockp);
      else
         fprintf(stderr, "ss_socket_listen_tcp: listening tcp port %d all internet connections, socket %d\n", *tcp_port_p, *sockp);
   }
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_socket_wait()

INT EXPRT ss_socket_wait	(	int	sock,
		INT	millisec
	)

Definition at line 4970 of file system.cxx.

{
   INT status;
   fd_set readfds;
   struct timeval timeout;
   struct timeval timeout0;
   DWORD start_time = 0; // start_time is only used for BSD select() behaviour (MacOS)
   DWORD end_time = 0;
 
   FD_ZERO(&readfds);
   FD_SET(sock, &readfds);
 
   timeout.tv_sec = millisec / 1000;
   timeout.tv_usec = (millisec % 1000) * 1000;
 
   timeout0 = timeout;
 
   while (1) {
      status = select(sock+1, &readfds, NULL, NULL, &timeout);
      //printf("ss_socket_wait: millisec %d, tv_sec %d, tv_usec %d, isset %d, status %d, errno %d (%s)\n", millisec, timeout.tv_sec, timeout.tv_usec, FD_ISSET(sock, &readfds), status, errno, strerror(errno));
 
#ifndef OS_WINNT
      if (status<0 && errno==EINTR) { /* watchdog alarm signal */
         /* need to determine if select() updates "timeout" (Linux) or keeps original value (BSD) */
         if (timeout.tv_sec == timeout0.tv_sec) {
            DWORD now = ss_time();
            if (start_time == 0) {
               start_time = now;
               end_time = start_time + (millisec+999)/1000;
            }
            //printf("ss_socket_wait: EINTR: now %d, timeout %d, wait time %d\n", now, end_time, end_time - now);
            if (now > end_time)
               return SS_TIMEOUT;
         }
         continue;
      }
#endif
      if (status < 0) { /* select() syscall error */
         cm_msg(MERROR, "ss_socket_wait", "unexpected error, select() returned %d, errno: %d (%s)", status, errno, strerror(errno));
         return SS_SOCKET_ERROR;
      }
      if (status == 0) /* timeout */
         return SS_TIMEOUT;
      if (!FD_ISSET(sock, &readfds))
         return SS_TIMEOUT;
      return SS_SUCCESS;
   }
   /* NOT REACHED */
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_spawnv()

INT ss_spawnv	(	INT	mode,
		const char *	cmdname,
		const char *const	argv[]
	)

Definition at line 1702 of file system.cxx.

{
#ifdef OS_WINNT
 
   if (spawnvp(mode, cmdname, argv) < 0)
      return SS_INVALID_NAME;
 
   return SS_SUCCESS;
 
#endif                          /* OS_WINNT */
 
#ifdef OS_MSDOS
 
   spawnvp((int) mode, cmdname, argv);
 
   return SS_SUCCESS;
 
#endif                          /* OS_MSDOS */
 
#ifdef OS_VMS
 
   {
      char cmdstring[500], *pc;
      INT i, flags, status;
      va_list argptr;
 
      $DESCRIPTOR(cmdstring_dsc, "dummy");
 
      if (mode & P_DETACH) {
         cmdstring_dsc.dsc$w_length = strlen(cmdstring);
         cmdstring_dsc.dsc$a_pointer = cmdstring;
 
         status = sys$creprc(0, &cmdstring_dsc, 0, 0, 0, 0, 0, NULL, 4, 0, 0, PRC$M_DETACH);
      } else {
         flags = (mode & P_NOWAIT) ? 1 : 0;
 
         for (pc = argv[0] + strlen(argv[0]); *pc != ']' && pc != argv[0]; pc--);
         if (*pc == ']')
            pc++;
 
         strcpy(cmdstring, pc);
 
         if (strchr(cmdstring, ';'))
            *strchr(cmdstring, ';') = 0;
 
         strcat(cmdstring, " ");
 
         for (i = 1; argv[i] != NULL; i++) {
            strcat(cmdstring, argv[i]);
            strcat(cmdstring, " ");
         }
 
         cmdstring_dsc.dsc$w_length = strlen(cmdstring);
         cmdstring_dsc.dsc$a_pointer = cmdstring;
 
         status = lib$spawn(&cmdstring_dsc, 0, 0, &flags, NULL, 0, 0, 0, 0, 0, 0, 0, 0);
      }
 
      return BM_SUCCESS;
   }
 
#endif                          /* OS_VMS */
#ifdef OS_UNIX
   pid_t child_pid;
 
#ifdef OS_ULTRIX
   union wait *status;
#else
   int status;
#endif
 
#ifdef NO_FORK
   assert(!"support for fork() disabled by NO_FORK");
#else
   if ((child_pid = fork()) < 0)
      return (-1);
#endif
 
   if (child_pid == 0) {
      /* now we are in the child process ... */
      int error = execvp(cmdname, (char*const*)argv);
      fprintf(stderr, "ss_spawnv: Cannot execute command \"%s\": execvp() returned %d, errno %d (%s), aborting!\n", cmdname, error, errno, strerror(errno));
      // NB: this is the forked() process, if it returns back to the caller, we will have
      // a duplicate process for whoever called us. Very bad! So must abort. K.O.
      abort();
      // NOT REACHED
      return SS_SUCCESS;
   } else {
      /* still in parent process */
      if (mode == P_WAIT) {
#ifdef OS_ULTRIX
         waitpid(child_pid, status, WNOHANG);
#else
         waitpid(child_pid, &status, WNOHANG);
#endif
 
      } else {
         /* catch SIGCHLD signal to avoid <defunc> processes */
         signal(SIGCHLD, catch_sigchld);
      }
   }
 
   return SS_SUCCESS;
 
#endif                          /* OS_UNIX */
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_stack_get()

INT EXPRT ss_stack_get

(

char ***

string

)

Definition at line 8072 of file system.cxx.

{
#ifdef OS_LINUX
#define MAX_STACK_DEPTH 16
 
   void *trace[MAX_STACK_DEPTH];
   int size;
 
   size = backtrace(trace, MAX_STACK_DEPTH);
   *string = backtrace_symbols(trace, size);
   return size;
#else
   return 0;
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_stack_history_dump()

void EXPRT ss_stack_history_dump

(

char *

filename

)

Definition at line 8122 of file system.cxx.

{
   FILE *f;
   int i, j;
 
   f = fopen(filename, "wt");
   if (f != NULL) {
      j = stack_history_pointer;
      for (i = 0; i < N_STACK_HISTORY; i++) {
         if (strlen(stack_history[j]) > 0)
            fprintf(f, "%s\n", stack_history[j]);
         j = (j + 1) % N_STACK_HISTORY;
      }
      fclose(f);
      printf("Stack dump written to %s\n", filename);
   } else
      printf("Cannot open %s: errno=%d\n", filename, errno);
}

Here is the call graph for this function:

ss_stack_history_entry()

void EXPRT ss_stack_history_entry

(

char *

tag

)

Definition at line 8100 of file system.cxx.

{
   char **string;
   int i, n;
 
   if (stack_history_pointer == -1) {
      stack_history_pointer++;
      memset(stack_history, 0, sizeof(stack_history));
   }
   mstrlcpy(stack_history[stack_history_pointer], tag, 80);
   stack_history_pointer = (stack_history_pointer + 1) % N_STACK_HISTORY;
   n = ss_stack_get(&string);
   for (i = 2; i < n; i++) {
      mstrlcpy(stack_history[stack_history_pointer], string[i], 80);
      stack_history_pointer = (stack_history_pointer + 1) % N_STACK_HISTORY;
   }
   free(string);
 
   mstrlcpy(stack_history[stack_history_pointer], "=========================", 80);
   stack_history_pointer = (stack_history_pointer + 1) % N_STACK_HISTORY;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_stack_print()

void EXPRT ss_stack_print

(

)

Definition at line 8088 of file system.cxx.

{
   char **string;
   int i, n;
 
   n = ss_stack_get(&string);
   for (i = 0; i < n; i++)
      printf("%s\n", string[i]);
   if (n > 0)
      free(string);
}

Here is the call graph for this function:

ss_suspend()

INT EXPRT ss_suspend	(	INT	millisec,
		INT	msg
	)

• only watch the event tcp connection belonging to this thread *‍/

Definition at line 4615 of file system.cxx.

{
   INT status, return_status;
 
   midas_thread_t thread_id = ss_gettid();
 
   SUSPEND_STRUCT* psuspend = ss_suspend_get_struct(thread_id);
 
   //printf("ss_suspend: thread %s\n", ss_tid_to_string(thread_id).c_str());
 
   return_status = SS_TIMEOUT;
 
   do {
      fd_set readfds;
      FD_ZERO(&readfds);
 
      if (ss_match_thread(_ss_listen_thread, thread_id)) {
         /* check listen sockets */
         if (_ss_server_listen_socket) {
            FD_SET(_ss_server_listen_socket, &readfds);
            //printf("ss_suspend: thread %s listen ss_server socket %d\n", ss_tid_to_string(thread_id).c_str(), _ss_server_listen_socket);
         }
         
         if (_ss_client_listen_socket) {
            FD_SET(_ss_client_listen_socket, &readfds);
            //printf("ss_suspend: thread %s listen ss_client socket %d\n", ss_tid_to_string(thread_id).c_str(), _ss_client_listen_socket);
         }
      }
 
      /* check server channels */
      if (ss_match_thread(_ss_server_thread, thread_id) && _ss_server_acceptions) {
         //printf("ss_suspend: thread %s server acceptions %d\n", ss_tid_to_string(thread_id).c_str(), _ss_server_num_acceptions);
         for (unsigned i = 0; i < _ss_server_acceptions->size(); i++) {
            /* RPC channel */
            int sock = (*_ss_server_acceptions)[i]->recv_sock;
 
            if (!sock)
               continue;
            
            //if (_suspend_struct[idx].server_acception[i].tid != ss_gettid())
            //   continue;
 
            /* watch server socket if no data in cache */
            if (recv_tcp_check(sock) == 0)
               FD_SET(sock, &readfds);
            /* set timeout to zero if data in cache (-> just quick check IPC)
               and not called from inside bm_send_event (-> wait for IPC) */
            else if (msg == 0)
               millisec = 0;
 
            if (msg == 0 && msg != MSG_BM) {
               /* event channel */
               sock = (*_ss_server_acceptions)[i]->event_sock;
 
               if (!sock)
                  continue;
 
               /* check for buffered event */
               status = rpc_server_receive_event(0, NULL, BM_NO_WAIT);
 
               if (status == BM_ASYNC_RETURN) {
                  /* event buffer is full and rpc_server_receive_event() is holding on
                   * to an event it cannot get rid of. Do not read more events from
                   * the event socket, they have nowhere to go. K.O. */
               } else if (status == RPC_SUCCESS) {
                  FD_SET(sock, &readfds);
               }
            }
         }
      }
 
      /* watch for messages from the mserver */
      if (ss_match_thread(_ss_client_thread, thread_id)) {
         if (_ss_client_connection) {
            FD_SET(_ss_client_connection->recv_sock, &readfds);
         }
      }
 
      /* watch for UDP messages in the IPC socket: buffer and odb notifications */
      if (ss_match_thread(_ss_odb_thread, thread_id)) {
         if (_ss_suspend_odb && _ss_suspend_odb->ipc_recv_socket)
            FD_SET(_ss_suspend_odb->ipc_recv_socket, &readfds);
      }
 
      if (psuspend->ipc_recv_socket)
         FD_SET(psuspend->ipc_recv_socket, &readfds);
 
      struct timeval timeout;
 
      timeout.tv_sec = millisec / 1000;
      timeout.tv_usec = (millisec % 1000) * 1000;
 
      do {
         //printf("select millisec %d, tv_sec %d, tv_usec %d\n", millisec, (int)timeout.tv_sec, (int)timeout.tv_usec);
 
         if (millisec < 0)
            status = select(FD_SETSIZE, &readfds, NULL, NULL, NULL);    /* blocking */
         else
            status = select(FD_SETSIZE, &readfds, NULL, NULL, &timeout);
 
         /* if an alarm signal was cought, restart select with reduced timeout */
         if (status == -1 && timeout.tv_sec >= WATCHDOG_INTERVAL / 1000)
            timeout.tv_sec -= WATCHDOG_INTERVAL / 1000;
 
      } while (status == -1);   /* dont return if an alarm signal was cought */
 
      /* check listener sockets */
 
      if (_ss_server_listen_socket && FD_ISSET(_ss_server_listen_socket, &readfds)) {
         //printf("ss_suspend: thread %s rpc_server_accept socket %d\n", ss_tid_to_string(thread_id).c_str(), _ss_server_listen_socket);
         status = rpc_server_accept(_ss_server_listen_socket);
         if (status == RPC_SHUTDOWN) {
            return status;
         }
      }
 
      if (_ss_client_listen_socket && FD_ISSET(_ss_client_listen_socket, &readfds)) {
         //printf("ss_suspend: thread %s rpc_client_accept socket %d\n", ss_tid_to_string(thread_id).c_str(), _ss_client_listen_socket);
         status = rpc_client_accept(_ss_client_listen_socket);
         if (status == RPC_SHUTDOWN) {
            return status;
         }
      }
 
      /* check server channels */
      if (_ss_server_acceptions) {
         for (unsigned i = 0; i < _ss_server_acceptions->size(); i++) {
            /* rpc channel */
            int sock = (*_ss_server_acceptions)[i]->recv_sock;
 
            if (!sock)
               continue;
            
            //printf("rpc index %d, socket %d, hostname \'%s\', progname \'%s\'\n", i, sock, _suspend_struct[idx].server_acception[i].host_name, _suspend_struct[idx].server_acception[i].prog_name);
 
            if (recv_tcp_check(sock) || FD_ISSET(sock, &readfds)) {
               //printf("ss_suspend: msg %d\n", msg);
               if (msg == MSG_BM) {
                  status = ss_socket_check(sock);
               } else {
                  //printf("ss_suspend: rpc_server_receive_rpc() call!\n");
                  status = rpc_server_receive_rpc(i, (*_ss_server_acceptions)[i]);
                  //printf("ss_suspend: rpc_server_receive_rpc() status %d\n", status);
               }
               (*_ss_server_acceptions)[i]->last_activity = ss_millitime();
 
               if (status == SS_ABORT || status == SS_EXIT || status == RPC_SHUTDOWN) {
                  return status;
               }
               
               return_status = SS_SERVER_RECV;
            }
 
            /* event channel */
            sock = (*_ss_server_acceptions)[i]->event_sock;
 
            if (!sock)
               continue;
 
            if (FD_ISSET(sock, &readfds)) {
               if (msg != 0) {
                  status = ss_socket_check(sock);
               } else {
                  //printf("ss_suspend: rpc_server_receive_event() call!\n");
                  status = rpc_server_receive_event(i, (*_ss_server_acceptions)[i], BM_NO_WAIT);
                  //printf("ss_suspend: rpc_server_receive_event() status %d\n", status);
               }
               (*_ss_server_acceptions)[i]->last_activity = ss_millitime();
 
               if (status == SS_ABORT || status == SS_EXIT || status == RPC_SHUTDOWN) {
                  return status;
               }
               
               return_status = SS_SERVER_RECV;
            }
         }
      }
 
      /* check for messages from the mserver */
      if (_ss_client_connection) {
         int sock = _ss_client_connection->recv_sock;
 
         if (FD_ISSET(sock, &readfds)) {
            status = rpc_client_dispatch(sock);
 
            if (status == SS_ABORT) {
               cm_msg(MINFO, "ss_suspend", "RPC connection to mserver at \'%s\' was broken", _ss_client_connection->host_name.c_str());
 
               /* close client connection if link broken */
               closesocket(_ss_client_connection->send_sock);
               closesocket(_ss_client_connection->recv_sock);
               closesocket(_ss_client_connection->event_sock);
 
               _ss_client_connection->send_sock = 0;
               _ss_client_connection->recv_sock = 0;
               _ss_client_connection->event_sock = 0;
            
               _ss_client_connection->clear();
 
               /* exit program after broken connection to MIDAS server */
               return SS_ABORT;
            }
 
            return_status = SS_CLIENT_RECV;
         }
      }
 
      /* check ODB IPC socket */
      if (_ss_suspend_odb && _ss_suspend_odb->ipc_recv_socket && FD_ISSET(_ss_suspend_odb->ipc_recv_socket, &readfds)) {
         status = ss_suspend_process_ipc(millisec, msg, _ss_suspend_odb->ipc_recv_socket);
         if (status) {
            return status;
         }
      }
      
      /* check per-thread IPC socket */
      if (psuspend && psuspend->ipc_recv_socket && FD_ISSET(psuspend->ipc_recv_socket, &readfds)) {
         status = ss_suspend_process_ipc(millisec, msg, psuspend->ipc_recv_socket);
         if (status) {
            return status;
         }
      }
 
 
   } while (millisec < 0);
 
   return return_status;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_suspend_close()

static void ss_suspend_close ( SUSPEND_STRUCT *  psuspend )

static

Definition at line 4279 of file system.cxx.

{
   if (psuspend->ipc_recv_socket) {
      closesocket(psuspend->ipc_recv_socket);
      psuspend->ipc_recv_socket = 0;
   }
 
   if (psuspend->ipc_send_socket) {
      closesocket(psuspend->ipc_send_socket);
      psuspend->ipc_send_socket = 0;
   }
   
   //printf("ss_suspend_close: free thread %s, udp port %d\n", ss_tid_to_string(psuspend->thread_id).c_str(), psuspend->ipc_recv_port);
 
   psuspend->thread_id = 0;
   psuspend->ipc_recv_port = 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_suspend_exit()

INT ss_suspend_exit

(

)

Definition at line 4298 of file system.cxx.

{
   midas_thread_t thread_id = ss_gettid();
   
   for (unsigned i=0; i<_ss_suspend_vector.size(); i++) {
      if (!_ss_suspend_vector[i])
         continue;
      if (_ss_suspend_vector[i]->thread_id == thread_id) {
         SUSPEND_STRUCT* psuspend = _ss_suspend_vector[i];
         _ss_suspend_vector[i] = NULL;
         ss_suspend_close(psuspend);
         delete psuspend;
      }
   }
 
   if (_ss_suspend_odb) {
      bool last = true;
      for (unsigned i=0; i<_ss_suspend_vector.size(); i++) {
         if (_ss_suspend_vector[i]) {
            last = false;
            break;
         }
      }
      if (last) {
         SUSPEND_STRUCT* psuspend = _ss_suspend_odb;
         _ss_suspend_odb = NULL;
         ss_suspend_close(psuspend);
         delete psuspend;
      }
   }
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_suspend_get_buffer_port()

INT ss_suspend_get_buffer_port	(	midas_thread_t	thread_id,
		INT *	port
	)

Definition at line 4425 of file system.cxx.

{
   SUSPEND_STRUCT* psuspend = ss_suspend_get_struct(thread_id);
 
   if (!psuspend->ipc_recv_port) {
      ss_suspend_init_struct(psuspend);
   }
 
   *port = psuspend->ipc_recv_port;
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_suspend_get_odb_port()

INT ss_suspend_get_odb_port

(

INT *

port

)

Definition at line 4399 of file system.cxx.

{
   assert(_ss_suspend_odb);
 
   *port = _ss_suspend_odb->ipc_recv_port;
 
   return SS_SUCCESS;
}

Here is the caller graph for this function:

ss_suspend_get_struct()

SUSPEND_STRUCT * ss_suspend_get_struct

(

midas_thread_t

thread_id

)

Definition at line 4237 of file system.cxx.

{
   // find thread_id
   for (unsigned i=0; i<_ss_suspend_vector.size(); i++) {
      if (!_ss_suspend_vector[i])
         continue;
      if (_ss_suspend_vector[i]->thread_id == thread_id) {
         return _ss_suspend_vector[i];
      }
   }
 
   // create new one if not found
   SUSPEND_STRUCT *psuspend = new SUSPEND_STRUCT;
   psuspend->thread_id = thread_id;
 
   // place into empty slot
   for (unsigned i=0; i<_ss_suspend_vector.size(); i++) {
      if (!_ss_suspend_vector[i]) {
         _ss_suspend_vector[i] = psuspend;
         return psuspend;
      }
   }
 
   // add to vector if no empty slots
   _ss_suspend_vector.push_back(psuspend);
 
   return psuspend;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_suspend_init_odb_port()

INT ss_suspend_init_odb_port

(

)

Definition at line 4377 of file system.cxx.

{
   if (!_ss_suspend_odb) {
      _ss_suspend_odb = new SUSPEND_STRUCT;
      _ss_suspend_odb->thread_id = ss_gettid();
      ss_suspend_init_struct(_ss_suspend_odb);
   }
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_suspend_init_struct()

static INT ss_suspend_init_struct ( SUSPEND_STRUCT *  psuspend )

static

Definition at line 4084 of file system.cxx.

{
   INT status, sock;
   unsigned int size;
   struct sockaddr_in bind_addr;
   //int udp_bind_hostname = 0; // bind to localhost or bind to hostname or bind to INADDR_ANY?
 
   //printf("ss_suspend_init_struct: thread %s\n", ss_tid_to_string(psuspend->thread_id).c_str());
 
   assert(psuspend->thread_id != 0);
 
#ifdef OS_WINNT
   {
      WSADATA WSAData;
 
      /* Start windows sockets */
      if (WSAStartup(MAKEWORD(1, 1), &WSAData) != 0)
         return SS_SOCKET_ERROR;
   }
#endif
 
  /*--------------- create UDP receive socket -------------------*/
   sock = socket(AF_INET, SOCK_DGRAM, 0);
   if (sock == -1)
      return SS_SOCKET_ERROR;
 
   /* let OS choose port for socket */
   memset(&bind_addr, 0, sizeof(bind_addr));
   bind_addr.sin_family = AF_INET;
   bind_addr.sin_addr.s_addr = 0;
   bind_addr.sin_port = 0;
 
   /* decide if UDP sockets are bound to localhost (they are only use for local communications)
      or to hostname (for compatibility with old clients - their hotlinks will not work) */
   {
      std::string path = cm_get_path();
      path += ".UDP_BIND_HOSTNAME";
 
      //cm_msg(MERROR, "ss_suspend_init_ipc", "check file [%s]", path.c_str());
 
      FILE *fp = fopen(path.c_str(), "r");
      if (fp) {
         cm_msg(MERROR, "ss_suspend_init_ipc", "Support for UDP_BIND_HOSTNAME was removed. Please delete file \"%s\"", path.c_str());
         //udp_bind_hostname = 1;
         fclose(fp);
         fp = NULL;
      }
   }
 
   //#ifdef OS_VXWORKS
   //{
   //   char local_host_name[HOST_NAME_LENGTH];
   //   INT host_addr;
   //
   //   gethostname(local_host_name, sizeof(local_host_name));
   //
   //host_addr = hostGetByName(local_host_name);
   //   memcpy((char *) &(bind_addr.sin_addr), &host_addr, 4);
   //}
   //#else
   //if (udp_bind_hostname) {
   //   char local_host_name[HOST_NAME_LENGTH];
   //   struct hostent *phe = gethostbyname(local_host_name);
   //   if (phe == NULL) {
   //      cm_msg(MERROR, "ss_suspend_init_ipc", "cannot get IP address for host name \'%s\'", local_host_name);
   //      return SS_SOCKET_ERROR;
   //   }
   //   memcpy((char *) &(bind_addr.sin_addr), phe->h_addr, phe->h_length);
   //} else {
   bind_addr.sin_addr.s_addr = htonl(INADDR_LOOPBACK);
   //}
   //#endif
 
   status = bind(sock, (struct sockaddr *) &bind_addr, sizeof(bind_addr));
   if (status < 0)
      return SS_SOCKET_ERROR;
 
   /* find out which port OS has chosen */
   size = sizeof(bind_addr);
#ifdef OS_WINNT
   getsockname(sock, (struct sockaddr *) &bind_addr, (int *) &size);
#else
   getsockname(sock, (struct sockaddr *) &bind_addr, &size);
#endif
 
   // ipc receive socket must be set to non-blocking mode, see explanation
   // in ss_suspend_process_ipc(). K.O. July 2022.
 
   int flags = fcntl(sock, F_GETFL, 0);
   status = fcntl(sock, F_SETFL, flags | O_NONBLOCK);
 
   if (status < 0) {
      fprintf(stderr, "ss_suspend_init_struct: cannot set non-blocking mode of ipc receive socket, fcntl() returned %d, errno %d (%s)\n", status, errno, strerror(errno));
      return SS_SOCKET_ERROR;
   }
 
   psuspend->ipc_recv_socket = sock;
   psuspend->ipc_recv_port = ntohs(bind_addr.sin_port);
 
  /*--------------- create UDP send socket ----------------------*/
   sock = socket(AF_INET, SOCK_DGRAM, 0);
 
   if (sock == -1)
      return SS_SOCKET_ERROR;
 
   /* fill out bind struct pointing to local host */
   memset(&bind_addr, 0, sizeof(bind_addr));
   bind_addr.sin_family = AF_INET;
   bind_addr.sin_addr.s_addr = 0;
 
   //#ifdef OS_VXWORKS
   //{
   //   INT host_addr;
   //
   //   host_addr = hostGetByName(local_host_name);
   //memcpy((char *) &(bind_addr.sin_addr), &host_addr, 4);
   //}
   //#else
   //if (udp_bind_hostname) {
   //   // nothing
   //} else {
   bind_addr.sin_addr.s_addr = htonl(INADDR_LOOPBACK);
   
   status = bind(sock, (struct sockaddr *) &bind_addr, sizeof(bind_addr));
   if (status < 0)
      return SS_SOCKET_ERROR;
   //}
   //#endif
 
   memcpy(&(psuspend->bind_addr), &bind_addr, sizeof(bind_addr));
   psuspend->ipc_send_socket = sock;
 
   //printf("ss_suspend_init_struct: thread %s, udp port %d\n", ss_tid_to_string(psuspend->thread_id).c_str(), psuspend->ipc_recv_port);
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_suspend_process_ipc()

static int ss_suspend_process_ipc ( INT  millisec, INT  msg, int  ipc_recv_socket  )

static

Definition at line 4458 of file system.cxx.

{
   char buffer[80];
   buffer[0] = 0;
   /* receive IPC message */
   struct sockaddr from_addr;
   socklen_t from_addr_size = sizeof(struct sockaddr);
 
   // note: ipc_recv_socket must be set in non-blocking mode:
   // it looks as if we come here from ss_suspend() only if select() said
   // that our socket has data. but this is not true. after that select(),
   // ss_suspend() reads other sockets, calls other handlers, which may call
   // ss_suspend() recursively (i.e. via bm_receive_event() RPC call to "wait_for_more_data"
   // call to ss_suspend()). the recursively called ss_suspend() will
   // also so select() and call this function to read from this socket. then it eventually
   // returns, all the handlers return back to the original ss_suspend(), which
   // happily remembers that the original select() told us we have data. but this data
   // was already read by the recursively call ss_suspend(), so the socket is empty
   // and our recvfrom() will sleep forever. inside the mserver, this makes mserver
   // stop (very bad!). with the socket set to non-blocking mode
   // recvfrom() will never sleep and this problem is avoided. K.O. July 2022
   // see bug report https://bitbucket.org/tmidas/midas/issues/346/rpc-timeout-in-bm_receive_event
 
   // note2: in midas, there is never a situation where we wait for data
   // from the ipc sockets. these sockets are used for "event buffer has data" and "odb has new data"
   // notifications. we check them, but we do not wait for them. this setting
   // the socket to non-blocking mode is safe. K.O. July 2022.
 
   ssize_t size = recvfrom(ipc_recv_socket, buffer, sizeof(buffer), 0, &from_addr, &from_addr_size);
 
   if (size <= 0) {
      //fprintf(stderr, "ss_suspend_process_ipc: recvfrom() returned %zd, errno %d (%s)\n", size, errno, strerror(errno));
      // return 0 means we did not do anyting. K.O.
      return 0;
   }
 
   // NB: ss_suspend(MSG_BM) (and ss_suspend(MSG_ODB)) are needed to break
   // recursive calls to the event handler (and db_watch() handler) if these
   // handlers call ss_suspend() again. The rootana interactive ROOT graphics
   // mode does this. To prevent this recursion, event handlers must always
   // call ss_suspend() with MSG_BM (and MSG_ODB). K.O.
   
   /* return if received requested message */
   if (msg == MSG_BM && buffer[0] == 'B')
      return SS_SUCCESS;
   if (msg == MSG_ODB && buffer[0] == 'O')
      return SS_SUCCESS;
   
   // NB: do not need to check thread id, the mserver is single-threaded. K.O.
   int mserver_client_socket = 0;
   if (_ss_server_acceptions) {
      for (unsigned i = 0; i < _ss_server_acceptions->size(); i++) {
         if ((*_ss_server_acceptions)[i]->is_mserver) {
            mserver_client_socket = (*_ss_server_acceptions)[i]->send_sock;
         }
      }
   }
   
   time_t tstart = time(NULL);
   int return_status = 0;
 
   /* receive further messages to empty UDP queue */
   while (1) {
      char buffer_tmp[80];
      buffer_tmp[0] = 0;
      from_addr_size = sizeof(struct sockaddr);
 
      // note: ipc_recv_socket must be in non-blocking mode, see comments above. K.O.
 
      ssize_t size_tmp = recvfrom(ipc_recv_socket, buffer_tmp, sizeof(buffer_tmp), 0, &from_addr, &from_addr_size);
 
      if (size_tmp <= 0) {
         //fprintf(stderr, "ss_suspend_process_ipc: second recvfrom() returned %zd, errno %d (%s)\n", size, errno, strerror(errno));
         break;
      }
      
      /* stop the loop if received requested message */
      if (msg == MSG_BM && buffer_tmp[0] == 'B') {
         return_status = SS_SUCCESS;
         break;
      }
      if (msg == MSG_ODB && buffer_tmp[0] == 'O') {
         return_status = SS_SUCCESS;
         break;
      }
      
      /* don't forward same MSG_BM as above */
      if (buffer_tmp[0] != 'B' || strcmp(buffer_tmp, buffer) != 0) {
         cm_dispatch_ipc(buffer_tmp, size_tmp, mserver_client_socket);
      }
      
      if (millisec > 0) {
         time_t tnow = time(NULL);
         // make sure we do not loop for longer than our timeout
         if (tnow - tstart > 1 + millisec/1000) {
            //printf("ss_suspend - break out dt %d, %d loops\n", (int)(tnow-tstart), count);
            break;
         }
      }
   }
   
   /* call dispatcher */
   cm_dispatch_ipc(buffer, size, mserver_client_socket);
   
   return return_status;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_suspend_set_client_connection()

INT ss_suspend_set_client_connection

(

RPC_SERVER_CONNECTION *

connection

)

Definition at line 4363 of file system.cxx.

{
   // client side of the mserver connection
   _ss_client_connection = connection;
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_suspend_set_client_listener()

INT ss_suspend_set_client_listener

(

int

listen_socket

)

Definition at line 4356 of file system.cxx.

{
   // midas program rpc listener socket (run transitions, etc)
   _ss_client_listen_socket = listen_socket;
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_suspend_set_rpc_thread()

INT ss_suspend_set_rpc_thread

(

midas_thread_t

thread_id

)

Definition at line 4074 of file system.cxx.

{
   _ss_listen_thread = thread_id; // this thread handles listen()/accept() activity
   _ss_client_thread = thread_id; // this thread reads the mserver connection, handles ODB and event buffer notifications (db_watch->db_update_record_local(), bm_poll_event())
   _ss_server_thread = thread_id; // this thread reads and executes RPC requests
   _ss_odb_thread = thread_id; // this thread reads and dispatches ODB notifications (db_watch & co)
   return SS_SUCCESS;
}

Here is the caller graph for this function:

ss_suspend_set_server_acceptions()

INT ss_suspend_set_server_acceptions

(

RPC_SERVER_ACCEPTION_LIST *

acceptions

)

Definition at line 4370 of file system.cxx.

{
   // server side of the RPC connections (run transitions, etc)
   _ss_server_acceptions = acceptions;
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_suspend_set_server_listener()

INT ss_suspend_set_server_listener

(

int

listen_socket

)

Definition at line 4349 of file system.cxx.

{
   // mserver listener socket
   _ss_server_listen_socket = listen_socket;
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_system()

INT EXPRT ss_system

(

const char *

command

)

Execute command in a separate process, close all open file descriptors invoke ss_exec() and ignore pid.

{ ...
  char cmd[256];
  sprintf(cmd,"%s %s %i %s/%s %1.3lf %d",lazy.commandAfter,
     lazy.backlabel, lazyst.nfiles, lazy.path, lazyst.backfile,
     lazyst.file_size/1000.0/1000.0, blockn);
  cm_msg(MINFO,"Lazy","Exec post file write script:%s",cmd);
  ss_system(cmd);
}
...

Parameters

command

Command to execute.

Returns

SS_SUCCESS or ss_exec() return code

Definition at line 2188 of file system.cxx.

{
#ifdef OS_UNIX
   INT childpid;
 
   return ss_exec(command, &childpid);
 
#else
 
   system(command);
   return SS_SUCCESS;
 
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_tape_close()

INT EXPRT ss_tape_close

(

INT

channel

)

Definition at line 5980 of file system.cxx.

{
   INT status;
 
#ifdef OS_UNIX
 
   status = close(channel);
 
   if (status < 0) {
      cm_msg(MERROR, "ss_tape_close", "close() returned %d, errno %d (%s)", status, errno, strerror(errno));
      return errno;
   }
#endif                          /* OS_UNIX */
 
#ifdef OS_WINNT
 
   if (!CloseHandle((HANDLE) channel)) {
      status = GetLastError();
      cm_msg(MERROR, "ss_tape_close", "unknown error %d", status);
      return status;
   }
#endif                          /* OS_WINNT */
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_tape_fskip()

INT EXPRT ss_tape_fskip	(	INT	channel,
		INT	count
	)

Definition at line 6310 of file system.cxx.

{
#ifdef MTIOCTOP
   struct mtop arg;
   INT status;
 
   if (count > 0)
      arg.mt_op = MTFSF;
   else
      arg.mt_op = MTBSF;
   arg.mt_count = abs(count);
 
   //cm_enable_watchdog(FALSE);
 
   status = ioctl(channel, MTIOCTOP, &arg);
 
   //cm_enable_watchdog(TRUE);
 
   if (status < 0) {
      cm_msg(MERROR, "ss_tape_fskip", "ioctl() failed, errno %d (%s)", errno, strerror(errno));
      return errno;
   }
#endif                          /* OS_UNIX */
 
#ifdef OS_WINNT
   INT status;
 
   status = SetTapePosition((HANDLE) channel, TAPE_SPACE_FILEMARKS, 0, (DWORD) count, 0, FALSE);
 
   if (status == ERROR_END_OF_MEDIA)
      return SS_END_OF_TAPE;
 
   if (status != NO_ERROR) {
      cm_msg(MERROR, "ss_tape_fskip", "error %d", status);
      return status;
   }
#endif                          /* OS_WINNT */
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_tape_get_blockn()

INT EXPRT ss_tape_get_blockn

(

INT

channel

)

Definition at line 6646 of file system.cxx.

{
#if defined(OS_DARWIN)
 
   return 0;
 
#elif defined(OS_UNIX)
 
   INT status;
   struct mtpos arg;
 
   //cm_enable_watchdog(FALSE);
   status = ioctl(channel, MTIOCPOS, &arg);
   //cm_enable_watchdog(TRUE);
   if (status < 0) {
      if (errno == EIO)
         return 0;
      else {
         cm_msg(MERROR, "ss_tape_get_blockn", "ioctl() failed, errno %d (%s)", errno, strerror(errno));
         return -errno;
      }
   }
   return (arg.mt_blkno);
 
#elif defined(OS_WINNT)
 
   INT status;
   TAPE_GET_MEDIA_PARAMETERS media;
   unsigned long size;
   /* I'm not sure the partition count corresponds to the block count */
   status = GetTapeParameters((HANDLE) channel, GET_TAPE_MEDIA_INFORMATION, &size, &media);
   return (media.PartitionCount);
 
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_tape_mount()

INT EXPRT ss_tape_mount

(

INT

channel

)

Definition at line 6534 of file system.cxx.

{
#ifdef MTIOCTOP
   struct mtop arg;
   INT status;
 
#ifdef MTLOAD
   arg.mt_op = MTLOAD;
#else
   arg.mt_op = MTNOP;
#endif
   arg.mt_count = 0;
   
   //cm_enable_watchdog(FALSE);
 
   status = ioctl(channel, MTIOCTOP, &arg);
 
   //cm_enable_watchdog(TRUE);
 
   if (status < 0) {
      cm_msg(MERROR, "ss_tape_mount", "ioctl() failed, errno %d (%s)", errno, strerror(errno));
      return errno;
   }
#endif                          /* OS_UNIX */
 
#ifdef OS_WINNT
   INT status;
 
   status = PrepareTape((HANDLE) channel, TAPE_LOAD, FALSE);
   if (status != NO_ERROR) {
      cm_msg(MERROR, "ss_tape_mount", "error %d", status);
      return status;
   }
#endif                          /* OS_WINNT */
 
   return CM_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_tape_open()

INT EXPRT ss_tape_open	(	char *	path,
		INT	oflag,
		INT *	channel
	)

Definition at line 5889 of file system.cxx.

{
#ifdef OS_UNIX
   //cm_enable_watchdog(FALSE);
 
   *channel = open(path, oflag, 0644);
 
   //cm_enable_watchdog(TRUE);
 
   if (*channel < 0)
      cm_msg(MERROR, "ss_tape_open", "open() returned %d, errno %d (%s)", *channel, errno, strerror(errno));
 
   if (*channel < 0) {
      if (errno == EIO)
         return SS_NO_TAPE;
      if (errno == EBUSY)
         return SS_DEV_BUSY;
      return errno;
   }
#ifdef MTSETBLK
   {
   /* set variable block size */
   struct mtop arg;
   arg.mt_op = MTSETBLK;
   arg.mt_count = 0;
 
   ioctl(*channel, MTIOCTOP, &arg);
   }
#endif                          /* MTSETBLK */
 
#endif                          /* OS_UNIX */
 
#ifdef OS_WINNT
   INT status;
   TAPE_GET_MEDIA_PARAMETERS m;
 
   *channel = (INT) CreateFile(path, GENERIC_READ | GENERIC_WRITE, 0, 0, OPEN_EXISTING, 0, NULL);
 
   if (*channel == (INT) INVALID_HANDLE_VALUE) {
      status = GetLastError();
      if (status == ERROR_SHARING_VIOLATION) {
         cm_msg(MERROR, "ss_tape_open", "tape is used by other process");
         return SS_DEV_BUSY;
      }
      if (status == ERROR_FILE_NOT_FOUND) {
         cm_msg(MERROR, "ss_tape_open", "tape device \"%s\" doesn't exist", path);
         return SS_NO_TAPE;
      }
 
      cm_msg(MERROR, "ss_tape_open", "unknown error %d", status);
      return status;
   }
 
   status = GetTapeStatus((HANDLE) (*channel));
   if (status == ERROR_NO_MEDIA_IN_DRIVE || status == ERROR_BUS_RESET) {
      cm_msg(MERROR, "ss_tape_open", "no media in drive");
      return SS_NO_TAPE;
   }
 
   /* set block size */
   memset(&m, 0, sizeof(m));
   m.BlockSize = TAPE_BUFFER_SIZE;
   SetTapeParameters((HANDLE) (*channel), SET_TAPE_MEDIA_INFORMATION, &m);
 
#endif
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_tape_read()

INT EXPRT ss_tape_read	(	INT	channel,
		void *	pdata,
		INT *	count
	)

Definition at line 6170 of file system.cxx.

{
#ifdef OS_UNIX
   INT n, status;
 
   do {
      n = read(channel, pdata, *count);
   } while (n == -1 && errno == EINTR);
 
   if (n == -1) {
      if (errno == ENOSPC || errno == EIO)
         status = SS_END_OF_TAPE;
      else {
         if (n == 0 && errno == 0)
            status = SS_END_OF_FILE;
         else {
            cm_msg(MERROR, "ss_tape_read", "unexpected tape error: n=%d, errno=%d\n", n, errno);
            status = errno;
         }
      }
   } else
      status = SS_SUCCESS;
   *count = n;
 
   return status;
 
#elif defined(OS_WINNT)         /* OS_UNIX */
 
   INT status;
   DWORD read;
 
   if (!ReadFile((HANDLE) channel, pdata, *count, &read, NULL)) {
      status = GetLastError();
      if (status == ERROR_NO_DATA_DETECTED)
         status = SS_END_OF_TAPE;
      else if (status == ERROR_FILEMARK_DETECTED)
         status = SS_END_OF_FILE;
      else if (status == ERROR_MORE_DATA)
         status = SS_SUCCESS;
      else
         cm_msg(MERROR, "ss_tape_read", "unexpected tape error: n=%d, errno=%d\n", read, status);
   } else
      status = SS_SUCCESS;
 
   *count = read;
   return status;
 
#else                           /* OS_WINNT */
 
   return SS_SUCCESS;
 
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_tape_rewind()

INT EXPRT ss_tape_rewind

(

INT

channel

)

Definition at line 6426 of file system.cxx.

{
#ifdef MTIOCTOP
   struct mtop arg;
   INT status;
 
   arg.mt_op = MTREW;
   arg.mt_count = 0;
 
   //cm_enable_watchdog(FALSE);
 
   status = ioctl(channel, MTIOCTOP, &arg);
 
   //cm_enable_watchdog(TRUE);
 
   if (status < 0) {
      cm_msg(MERROR, "ss_tape_rewind", "ioctl() failed, errno %d (%s)", errno, strerror(errno));
      return errno;
   }
#endif                          /* OS_UNIX */
 
#ifdef OS_WINNT
   INT status;
 
   status = SetTapePosition((HANDLE) channel, TAPE_REWIND, 0, 0, 0, FALSE);
   if (status != NO_ERROR) {
      cm_msg(MERROR, "ss_tape_rewind", "error %d", status);
      return status;
   }
#endif                          /* OS_WINNT */
 
   return CM_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_tape_rskip()

INT EXPRT ss_tape_rskip	(	INT	channel,
		INT	count
	)

Definition at line 6370 of file system.cxx.

{
#ifdef MTIOCTOP
   struct mtop arg;
   INT status;
 
   if (count > 0)
      arg.mt_op = MTFSR;
   else
      arg.mt_op = MTBSR;
   arg.mt_count = abs(count);
 
   //cm_enable_watchdog(FALSE);
 
   status = ioctl(channel, MTIOCTOP, &arg);
 
   //cm_enable_watchdog(TRUE);
 
   if (status < 0) {
      cm_msg(MERROR, "ss_tape_rskip", "ioctl() failed, errno %d (%s)", errno, strerror(errno));
      return errno;
   }
#endif                          /* OS_UNIX */
 
#ifdef OS_WINNT
   INT status;
 
   status = SetTapePosition((HANDLE) channel, TAPE_SPACE_RELATIVE_BLOCKS, 0, (DWORD) count, 0, FALSE);
   if (status != NO_ERROR) {
      cm_msg(MERROR, "ss_tape_rskip", "error %d", status);
      return status;
   }
#endif                          /* OS_WINNT */
 
   return CM_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_tape_spool()

INT EXPRT ss_tape_spool

(

INT

channel

)

Definition at line 6478 of file system.cxx.

{
#ifdef MTIOCTOP
   struct mtop arg;
   INT status;
 
#ifdef MTEOM
   arg.mt_op = MTEOM;
#else
   arg.mt_op = MTSEOD;
#endif
   arg.mt_count = 0;
 
   //cm_enable_watchdog(FALSE);
 
   status = ioctl(channel, MTIOCTOP, &arg);
 
   //cm_enable_watchdog(TRUE);
 
   if (status < 0) {
      cm_msg(MERROR, "ss_tape_rewind", "ioctl() failed, errno %d (%s)", errno, strerror(errno));
      return errno;
   }
#endif                          /* OS_UNIX */
 
#ifdef OS_WINNT
   INT status;
 
   status = SetTapePosition((HANDLE) channel, TAPE_SPACE_END_OF_DATA, 0, 0, 0, FALSE);
   if (status != NO_ERROR) {
      cm_msg(MERROR, "ss_tape_spool", "error %d", status);
      return status;
   }
#endif                          /* OS_WINNT */
 
   return CM_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_tape_status()

INT EXPRT ss_tape_status

(

char *

path

)

Definition at line 6024 of file system.cxx.

{
#ifdef OS_UNIX
   int status;
   char str[256];
   /* let 'mt' do the job */
   sprintf(str, "mt -f %s status", path);
   status = system(str);
   if (status == -1)
      return SS_TAPE_ERROR;
   return SS_SUCCESS;
#endif                          /* OS_UNIX */
 
#ifdef OS_WINNT
   INT status, channel;
   DWORD size;
   TAPE_GET_MEDIA_PARAMETERS m;
   TAPE_GET_DRIVE_PARAMETERS d;
   double x;
 
   channel = (INT) CreateFile(path, GENERIC_READ | GENERIC_WRITE, 0, 0, OPEN_EXISTING, 0, NULL);
 
   if (channel == (INT) INVALID_HANDLE_VALUE) {
      status = GetLastError();
      if (status == ERROR_SHARING_VIOLATION) {
         cm_msg(MINFO, "ss_tape_status", "tape is used by other process");
         return SS_SUCCESS;
      }
      if (status == ERROR_FILE_NOT_FOUND) {
         cm_msg(MINFO, "ss_tape_status", "tape device \"%s\" doesn't exist", path);
         return SS_SUCCESS;
      }
 
      cm_msg(MINFO, "ss_tape_status", "unknown error %d", status);
      return status;
   }
 
   /* poll media changed messages */
   GetTapeParameters((HANDLE) channel, GET_TAPE_DRIVE_INFORMATION, &size, &d);
   GetTapeParameters((HANDLE) channel, GET_TAPE_DRIVE_INFORMATION, &size, &d);
 
   status = GetTapeStatus((HANDLE) channel);
   if (status == ERROR_NO_MEDIA_IN_DRIVE || status == ERROR_BUS_RESET) {
      cm_msg(MINFO, "ss_tape_status", "no media in drive");
      CloseHandle((HANDLE) channel);
      return SS_SUCCESS;
   }
 
   GetTapeParameters((HANDLE) channel, GET_TAPE_DRIVE_INFORMATION, &size, &d);
   GetTapeParameters((HANDLE) channel, GET_TAPE_MEDIA_INFORMATION, &size, &m);
 
   printf("Hardware error correction is %s\n", d.ECC ? "on" : "off");
   printf("Hardware compression is %s\n", d.Compression ? "on" : "off");
   printf("Tape %s write protected\n", m.WriteProtected ? "is" : "is not");
 
   if (d.FeaturesLow & TAPE_DRIVE_TAPE_REMAINING) {
      x = ((double) m.Remaining.LowPart + (double) m.Remaining.HighPart * 4.294967295E9)
          / 1000.0 / 1000.0;
      printf("Tape capacity remaining is %d MB\n", (int) x);
   } else
      printf("Tape capacity is not reported by tape\n");
 
   CloseHandle((HANDLE) channel);
 
#endif
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_tape_unmount()

INT EXPRT ss_tape_unmount

(

INT

channel

)

Definition at line 6590 of file system.cxx.

{
#ifdef MTIOCTOP
   struct mtop arg;
   INT status;
 
#ifdef MTOFFL
   arg.mt_op = MTOFFL;
#else
   arg.mt_op = MTUNLOAD;
#endif
   arg.mt_count = 0;
 
   //cm_enable_watchdog(FALSE);
 
   status = ioctl(channel, MTIOCTOP, &arg);
 
   //cm_enable_watchdog(TRUE);
 
   if (status < 0) {
      cm_msg(MERROR, "ss_tape_unmount", "ioctl() failed, errno %d (%s)", errno, strerror(errno));
      return errno;
   }
#endif                          /* OS_UNIX */
 
#ifdef OS_WINNT
   INT status;
 
   status = PrepareTape((HANDLE) channel, TAPE_UNLOAD, FALSE);
   if (status != NO_ERROR) {
      cm_msg(MERROR, "ss_tape_unmount", "error %d", status);
      return status;
   }
#endif                          /* OS_WINNT */
 
   return CM_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_tape_write()

INT EXPRT ss_tape_write	(	INT	channel,
		void *	pdata,
		INT	count
	)

Definition at line 6110 of file system.cxx.

{
#ifdef OS_UNIX
   INT status;
 
   do {
      status = write(channel, pdata, count);
/*
    if (status != count)
      printf("count: %d - %d\n", count, status);
*/
   } while (status == -1 && errno == EINTR);
 
   if (status != count) {
      cm_msg(MERROR, "ss_tape_write", "write() returned %d, errno %d (%s)", status, errno, strerror(errno));
 
      if (errno == EIO)
         return SS_IO_ERROR;
      else
         return SS_TAPE_ERROR;
   }
#endif                          /* OS_UNIX */
 
#ifdef OS_WINNT
   INT status;
   DWORD written;
 
   WriteFile((HANDLE) channel, pdata, count, &written, NULL);
   if (written != (DWORD) count) {
      status = GetLastError();
      cm_msg(MERROR, "ss_tape_write", "error %d", status);
 
      return SS_IO_ERROR;
   }
#endif                          /* OS_WINNT */
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_tape_write_eof()

INT EXPRT ss_tape_write_eof

(

INT

channel

)

Definition at line 6244 of file system.cxx.

{
#ifdef MTIOCTOP
   struct mtop arg;
   INT status;
 
   arg.mt_op = MTWEOF;
   arg.mt_count = 1;
 
   //cm_enable_watchdog(FALSE);
 
   status = ioctl(channel, MTIOCTOP, &arg);
 
   //cm_enable_watchdog(TRUE);
 
   if (status < 0) {
      cm_msg(MERROR, "ss_tape_write_eof", "ioctl() failed, errno %d (%s)", errno, strerror(errno));
      return errno;
   }
#endif                          /* OS_UNIX */
 
#ifdef OS_WINNT
 
   TAPE_GET_DRIVE_PARAMETERS d;
   DWORD size;
   INT status;
 
   size = sizeof(TAPE_GET_DRIVE_PARAMETERS);
   GetTapeParameters((HANDLE) channel, GET_TAPE_DRIVE_INFORMATION, &size, &d);
 
   if (d.FeaturesHigh & TAPE_DRIVE_WRITE_FILEMARKS)
      status = WriteTapemark((HANDLE) channel, TAPE_FILEMARKS, 1, FALSE);
   else if (d.FeaturesHigh & TAPE_DRIVE_WRITE_LONG_FMKS)
      status = WriteTapemark((HANDLE) channel, TAPE_LONG_FILEMARKS, 1, FALSE);
   else if (d.FeaturesHigh & TAPE_DRIVE_WRITE_SHORT_FMKS)
      status = WriteTapemark((HANDLE) channel, TAPE_SHORT_FILEMARKS, 1, FALSE);
   else
      cm_msg(MERROR, "ss_tape_write_eof", "tape doesn't support writing of filemarks");
 
   if (status != NO_ERROR) {
      cm_msg(MERROR, "ss_tape_write_eof", "unknown error %d", status);
      return status;
   }
#endif                          /* OS_WINNT */
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_thread_create()

midas_thread_t EXPRT ss_thread_create	(	INT(*)(void *)	thread_func,
		void *	param
	)

Creates and returns a new thread of execution.

Note the difference when calling from vxWorks versus Linux and Windows. The parameter pointer for a vxWorks call is a VX_TASK_SPAWN structure, whereas for Linux and Windows it is a void pointer. Early versions returned SS_SUCCESS or SS_NO_THREAD instead of thread ID.

Example for VxWorks

...
VX_TASK_SPAWN tsWatch = {"Watchdog", 100, 0, 2000,  (int) pDevice, 0, 0, 0, 0, 0, 0, 0, 0 ,0};
midas_thread_t thread_id = ss_thread_create((void *) taskWatch, &tsWatch);
if (thread_id == 0) {
  printf("cannot spawn taskWatch\n");
}
...

Example for Linux

...
midas_thread_t thread_id = ss_thread_create((void *) taskWatch, pDevice);
if (thread_id == 0) {
  printf("cannot spawn taskWatch\n");
}
...

Parameters

(*thread_func)	Thread function to create.
param	a pointer to a VX_TASK_SPAWN structure for vxWorks and a void pointer for Unix and Windows

Returns

the new thread id or zero on error

Definition at line 2382 of file system.cxx.

{
#if defined(OS_WINNT)
 
   HANDLE status;
   DWORD thread_id;
 
   if (thread_func == NULL) {
      return 0;
   }
 
   status = CreateThread(NULL, 0, (LPTHREAD_START_ROUTINE) thread_func, (LPVOID) param, 0, &thread_id);
 
   return status == NULL ? 0 : (midas_thread_t) thread_id;
 
#elif defined(OS_MSDOS)
 
   return 0;
 
#elif defined(OS_VMS)
 
   return 0;
 
#elif defined(OS_VXWORKS)
 
/* taskSpawn which could be considered as a thread under VxWorks
   requires several argument beside the thread args
   taskSpawn (taskname, priority, option, stacksize, entry_point
              , arg1, arg2, ... , arg9, arg10)
   all the arg will have to be retrieved from the param list.
   through a structure to be simpler  */
 
   INT status;
   VX_TASK_SPAWN *ts;
 
   ts = (VX_TASK_SPAWN *) param;
   status =
       taskSpawn(ts->name, ts->priority, ts->options, ts->stackSize,
                 (FUNCPTR) thread_func, ts->arg1, ts->arg2, ts->arg3,
                 ts->arg4, ts->arg5, ts->arg6, ts->arg7, ts->arg8, ts->arg9, ts->arg10);
 
   return status == ERROR ? 0 : status;
 
#elif defined(OS_UNIX)
 
   INT status;
   pthread_t thread_id;
 
   status = pthread_create(&thread_id, NULL, (void* (*)(void*))thread_func, param);
 
   return status != 0 ? 0 : thread_id;
 
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_thread_get_name()

std::string ss_thread_get_name

(

)

Definition at line 2516 of file system.cxx.

{
#if defined(OS_UNIX)
   char str[256];
   pthread_t thread = pthread_self();
   pthread_getname_np(thread, str, sizeof(str));
   return std::string(str);
#else
   return "";
#endif
}

Here is the call graph for this function:

ss_thread_kill()

INT EXPRT ss_thread_kill

(

midas_thread_t

thread_id

)

Destroys the thread identified by the passed thread id. The thread id is returned by ss_thread_create() on creation.

...
midas_thread_t thread_id = ss_thread_create((void *) taskWatch, pDevice);
if (thread_id == 0) {
  printf("cannot spawn taskWatch\n");
}
...
ss_thread_kill(thread_id);
...

Parameters

thread_id

the thread id of the thread to be killed.

Returns

SS_SUCCESS if no error, else SS_NO_THREAD

Definition at line 2455 of file system.cxx.

{
#if defined(OS_WINNT)
 
   DWORD status;
   HANDLE th;
 
   th = OpenThread(THREAD_TERMINATE, FALSE, (DWORD)thread_id);
   if (th == 0)
      status = GetLastError();
 
   status = TerminateThread(th, 0);
 
   if (status == 0)
      status = GetLastError();
 
   return status != 0 ? SS_SUCCESS : SS_NO_THREAD;
 
#elif defined(OS_MSDOS)
 
   return 0;
 
#elif defined(OS_VMS)
 
   return 0;
 
#elif defined(OS_VXWORKS)
 
   INT status;
   status = taskDelete(thread_id);
   return status == OK ? 0 : ERROR;
 
#elif defined(OS_UNIX)
 
   INT status;
   status = pthread_kill(thread_id, SIGKILL);
   return status == 0 ? SS_SUCCESS : SS_NO_THREAD;
 
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_thread_set_name()

INT EXPRT ss_thread_set_name

(

std::string

name

)

Definition at line 2498 of file system.cxx.

{
#if defined(OS_DARWIN)
 
   pthread_setname_np(name.c_str());
   return SS_SUCCESS;
 
#elif defined(OS_UNIX)
 
   pthread_t thread = pthread_self();
   pthread_setname_np(thread, name.c_str());
   return SS_SUCCESS;
 
#else
   return 0;
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_tid_to_string()

std::string ss_tid_to_string

(

midas_thread_t

thread_id

)

Definition at line 1643 of file system.cxx.

{
#if defined OS_MSDOS
 
   return "0";
 
#elif defined OS_WINNT
 
#error Do not know how to do ss_tid_to_string()
   return "???";
 
#elif defined OS_VMS
 
   char buf[256];
   sprintf(buf, "%d", thread_id);
   return buf;
 
#elif defined OS_DARWIN
 
   char buf[256];
   sprintf(buf, "%p", thread_id);
   return buf;
 
#elif defined OS_CYGWIN
 
   char buf[256];
   sprintf(buf, "%p", thread_id);
   return buf;
 
#elif defined OS_UNIX
 
   char buf[256];
   sprintf(buf, "%lu", thread_id);
   return buf;
 
#elif defined OS_VXWORKS
 
   char buf[256];
   sprintf(buf, "%d", thread_id);
   return buf;
 
#else
#error Do not know how to do ss_tid_to_string()
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_time()

DWORD EXPRT ss_time

(

)

Returns the actual time in seconds since 1.1.1970 UTC.

...
DWORD start, stop:
start = ss_time();
  ss_sleep(12000);
stop = ss_time();
printf("Operation took %1.3lf seconds\n",stop-start);
...

Returns

Time in seconds

Definition at line 3534 of file system.cxx.

{
   return (DWORD) time(NULL);
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_time_sec()

double EXPRT ss_time_sec

(

)

Definition at line 3539 of file system.cxx.

{
   struct timeval tv; 
   gettimeofday(&tv, NULL); 
   return tv.tv_sec*1.0 + tv.tv_usec/1000000.0; 
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_timed_mutex_wait_for_sec()

bool EXPRT ss_timed_mutex_wait_for_sec	(	std::timed_mutex &	mutex,
		const char *	mutex_name,
		double	timeout_sec
	)

Definition at line 3337 of file system.cxx.

{
   if (timeout_sec <= 0) {
      mutex.lock();
      return true;
   }
 
   double starttime = ss_time_sec();
   double endtime = starttime + timeout_sec;
 
   // NB: per timed mutex try_lock_for(), one must always
   // look waiting for successful lock because it is permitted
   // to return "false" even if timeout did not yet expire. (cannot
   // tell permitted spurious failure from normal timeout). K.O.
 
   double locktime = starttime;
 
   while (1) {
      bool ok = mutex.try_lock_for(std::chrono::milliseconds(1000));
 
      if (ok) {
         //double now = ss_time_sec();
         //fprintf(stderr, "ss_timed_mutex_wait_for_sec: mutex %s locked in %.1f seconds. timeout %.1f seconds\n", mutex_name, now-starttime, timeout_sec);
         return true;
      }
 
      double now = ss_time_sec();
 
      if (mutex_name) {
         if (now-locktime < 0.2) {
            // mutex.try_lock_for() is permitted spuriously fail: return false before the 1 sec timeout expires, we should not print any messages about it. K.O.
            //fprintf(stderr, "ss_timed_mutex_wait_for_sec: short try_lock_for(1000). %.3f seconds\n", now-locktime);
         } else {
            fprintf(stderr, "ss_timed_mutex_wait_for_sec: long wait for mutex %s, %.1f seconds. %.1f seconds until timeout\n", mutex_name, now-starttime, endtime-now);
         }
      }
 
      if (now > endtime)
         return false;
 
      locktime = now;
   }
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_timezone()

INT EXPRT ss_timezone

(

)

Definition at line 3652 of file system.cxx.

{
#if defined(OS_DARWIN) || defined(OS_VXWORKS)
   return 0;
#else
   return (INT) timezone;       /* on Linux, comes from "#include <time.h>". */
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_tzset()

void EXPRT ss_tzset

(

)

Definition at line 3427 of file system.cxx.

{
   std::lock_guard<std::mutex> lock(gTzMutex);
   //defeat tzset() error trap from msystem.h
   //#ifdef tzset
   //#undef tzset
   //#endif
   tzset();
}

Here is the call graph for this function:

Here is the caller graph for this function:

ss_us_since()

unsigned int ss_us_since

(

std::chrono::time_point< std::chrono::high_resolution_clock >

start

)

Definition at line 8338 of file system.cxx.

                                                                                    {
   auto elapsed = std::chrono::high_resolution_clock::now() - start;
   return std::chrono::duration_cast<std::chrono::microseconds>(elapsed).count();
}

Here is the call graph for this function:

ss_us_start()

std::chrono::time_point< std::chrono::high_resolution_clock > ss_us_start

(

)

Definition at line 8333 of file system.cxx.

{
   return std::chrono::high_resolution_clock::now();
}

ss_write_tcp()

INT EXPRT ss_write_tcp	(	int	sock,
		const char *	buffer,
		size_t	buffer_size
	)

Definition at line 5424 of file system.cxx.

{
   size_t count = 0;
 
   while (count < buffer_size) {
      ssize_t wr = write(sock, buffer + count, buffer_size - count);
 
      if (wr == 0) {
         cm_msg(MERROR, "ss_write_tcp", "write(socket=%d,size=%d) returned zero, errno: %d (%s)", sock, (int) (buffer_size - count), errno, strerror(errno));
         return SS_SOCKET_ERROR;
      } else if (wr < 0) {
#ifdef OS_UNIX
         if (errno == EINTR)
            continue;
#endif
         cm_msg(MERROR, "ss_write_tcp", "write(socket=%d,size=%d) returned %d, errno: %d (%s)", sock, (int) (buffer_size - count), (int)wr, errno, strerror(errno));
         return SS_SOCKET_ERROR;
      }
 
      // good write
      count += wr;
   }
 
   return SS_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

_daemon_flag

BOOL _daemon_flag

static

Definition at line 2071 of file system.cxx.

_ss_client_connection

RPC_SERVER_CONNECTION* _ss_client_connection = NULL

static

Definition at line 4059 of file system.cxx.

_ss_client_listen_socket

int _ss_client_listen_socket = 0

static

Definition at line 4056 of file system.cxx.

_ss_client_thread

midas_thread_t _ss_client_thread = 0

static

Definition at line 4058 of file system.cxx.

_ss_listen_thread

midas_thread_t _ss_listen_thread = 0

static

Definition at line 4054 of file system.cxx.

_ss_odb_thread

midas_thread_t _ss_odb_thread = 0

static

Definition at line 4051 of file system.cxx.

_ss_server_acceptions

RPC_SERVER_ACCEPTION_LIST* _ss_server_acceptions = NULL

static

Definition at line 4062 of file system.cxx.

_ss_server_listen_socket

int _ss_server_listen_socket = 0

static

Definition at line 4055 of file system.cxx.

_ss_server_thread

midas_thread_t _ss_server_thread = 0

static

Definition at line 4061 of file system.cxx.

_ss_suspend_odb

SUSPEND_STRUCT* _ss_suspend_odb = NULL

static

Definition at line 4052 of file system.cxx.

_ss_suspend_vector

std::vector<SUSPEND_STRUCT*> _ss_suspend_vector

static

Definition at line 4049 of file system.cxx.

[] [1/2]

char { ... } ::c

Definition at line 1312 of file system.cxx.

[] [2/2]

char { ... } ::c

Definition at line 1318 of file system.cxx.

[] [1/2]

double { ... } ::d

Definition at line 1313 of file system.cxx.

[] [2/2]

double { ... } ::d

Definition at line 1317 of file system.cxx.

gSocketTrace

bool gSocketTrace = false

static

Definition at line 5036 of file system.cxx.

gTzMutex

std::mutex gTzMutex

static

Definition at line 3425 of file system.cxx.

MidasExceptionHandler

void(* MidasExceptionHandler) (void)

(

void

)

Definition at line 3861 of file system.cxx.

s_semaphore_nest_level

std::atomic_int s_semaphore_nest_level {0}

static

Definition at line 2530 of file system.cxx.

{0}; // must be signed int!

s_semaphore_trace

std::atomic_bool s_semaphore_trace {false}

static

Definition at line 2529 of file system.cxx.

{false};

stack_history

char stack_history[N_STACK_HISTORY][80]

Definition at line 8069 of file system.cxx.

stack_history_pointer

int stack_history_pointer = -1

Definition at line 8070 of file system.cxx.

[struct]

struct { ... } test_align

[struct]

struct { ... } test_padding