![]() |
GNU PROLOG with UTF8 support
|
#include <stdio.h>#include <stdlib.h>#include <signal.h>#include <errno.h>#include <fcntl.h>#include <ctype.h>#include <string.h>#include <time.h>#include <sys/types.h>#include <sys/stat.h>#include "gp_config.h"#include <process.h>#include <direct.h>#include "engine_pl.h"
Macros | |
| #define | INET_MANAGEMENT |
| #define | M_MAGIC1 0x12345678 |
| #define | M_MAGIC2 0xdeadbeef |
| #define | UNKNOWN_SYS_ERRNO "Unknown error (%d)" |
| #define | ERR_STACKS_ALLOCATION "Memory allocation fault" |
| #define | ERR_CANNOT_OPEN_DEV0 "Cannot open /dev/zero : %s" |
| #define | ERR_CANNOT_UNMAP "unmap failed : %s" |
| #define | ERR_CANNOT_FREE "VirtualFree failed : %" PL_FMT_u |
| #define | ERR_CANNOT_PROTECT "VirtualProtect failed : %" PL_FMT_u |
| #define | ERR_CANNOT_EXEC_GETCWD "cannot execute getcwd" |
| #define | ERR_STACK_OVERFLOW_ENV "%s stack overflow (size: %d Kb, reached: %d Kb, environment variable used: %s)" |
| #define | ERR_STACK_OVERFLOW_NO_ENV "%s stack overflow (size: %d Kb, reached: %d Kb - fixed size)" |
| #define | Round_Up(x, y) (((x) + (y) - 1) / (y) * (y)) |
| #define | Round_Down(x, y) ((x) / (y) * (y)) |
| #define | RAND_MAX (((unsigned) -1) >> 1) |
| #define | MIN_PREFIX 1 /* unix minimal path / */ |
Functions | |
| static char * | Host_Name_From_Alias (struct hostent *host_entry) |
| void | Pl_Init_Machine (void) |
| char * | Pl_M_Sys_Err_String (int ret_val) |
| PlLong | Pl_M_User_Time (void) |
| PlLong | Pl_M_System_Time (void) |
| PlLong | Pl_M_Real_Time (void) |
| void | Pl_M_Randomize (void) |
| void | Pl_M_Set_Seed (int n) |
| int | Pl_M_Get_Seed (void) |
| int | Pl_M_Random_Integer (int n) |
| double | Pl_M_Random_Float (double n) |
| char * | Pl_M_Host_Name_From_Name (char *host_name) |
| char * | Pl_M_Host_Name_From_Adr (char *host_address) |
| Bool | Pl_M_Set_Working_Dir (char *path) |
| char * | Pl_M_Get_Working_Dir (void) |
| char * | Pl_M_Absolute_Path_Name (char *src) |
| Bool | Pl_M_Is_Absolute_File_Name (char *path) |
| char * | Pl_M_Decompose_File_Name (char *path, Bool del_trail_slashes, char **base, char **suffix) |
Variables | |
| static PlLong | start_user_time = 0 |
| static PlLong | start_system_time = 0 |
| static PlLong | start_real_time = 0 |
| static int | cur_seed = 1 |
| #define ERR_CANNOT_EXEC_GETCWD "cannot execute getcwd" |
| #define ERR_CANNOT_FREE "VirtualFree failed : %" PL_FMT_u |
| #define ERR_CANNOT_OPEN_DEV0 "Cannot open /dev/zero : %s" |
| #define ERR_CANNOT_PROTECT "VirtualProtect failed : %" PL_FMT_u |
| #define ERR_CANNOT_UNMAP "unmap failed : %s" |
| #define ERR_STACK_OVERFLOW_ENV "%s stack overflow (size: %d Kb, reached: %d Kb, environment variable used: %s)" |
| #define ERR_STACKS_ALLOCATION "Memory allocation fault" |
| #define INET_MANAGEMENT |
| #define M_MAGIC1 0x12345678 |
| #define M_MAGIC2 0xdeadbeef |
| #define MIN_PREFIX 1 /* unix minimal path / */ |
| #define RAND_MAX (((unsigned) -1) >> 1) |
|
static |

| void Pl_Init_Machine | ( | void | ) |

| char* Pl_M_Absolute_Path_Name | ( | char * | src | ) |


| char* Pl_M_Decompose_File_Name | ( | char * | path, |
| Bool | del_trail_slashes, | ||
| char ** | base, | ||
| char ** | suffix | ||
| ) |

| int Pl_M_Get_Seed | ( | void | ) |

| char* Pl_M_Get_Working_Dir | ( | void | ) |

| char* Pl_M_Host_Name_From_Adr | ( | char * | host_address | ) |


| char* Pl_M_Host_Name_From_Name | ( | char * | host_name | ) |


| Bool Pl_M_Is_Absolute_File_Name | ( | char * | path | ) |

| double Pl_M_Random_Float | ( | double | n | ) |

| int Pl_M_Random_Integer | ( | int | n | ) |

| void Pl_M_Randomize | ( | void | ) |

| PlLong Pl_M_Real_Time | ( | void | ) |


| void Pl_M_Set_Seed | ( | int | n | ) |

| Bool Pl_M_Set_Working_Dir | ( | char * | path | ) |


| char* Pl_M_Sys_Err_String | ( | int | ret_val | ) |

| PlLong Pl_M_System_Time | ( | void | ) |


| PlLong Pl_M_User_Time | ( | void | ) |


|
static |
|
static |
|
static |
|
static |
1.8.11