@lpc-lang/core 1.1.2-5.1

package/src/efuns/fluffos/db.h

@@ -0,0 +1,125 @@
+// db.h
+
+/**
+ * db_status() - return package status
+ *
+ * Returns a string describing the current status of the database package.
+ *
+ */
+string db_status( void );
+
+/**
+ * db_rollback() - rollback the last transaction
+ *
+ * For transactional databases this will rollback the last set of actions.
+ * 
+ * Returns 1 on success, 0 otherwise
+ *
+ */
+int db_rollback( int );
+
+/**
+ * db_fetch() - fetches a result set
+ *
+ * Fetches  the result set for the given row of the last executeted sql on
+ * the passed database handle.
+ * 
+ * Returns an array of columns of the named  row  upon  success  an  error
+ * string otherwise.
+ *
+ * string *res;
+ * mixed rows;
+ * int dbconn, i;
+ * 
+ * dbconn = db_connect("db.server", "db_mud");
+ * if(dbconn < 1)
+ * return  0;
+ * rows  =  db_exec(dbconn,  "SELECT player_name, exp FROM t_player");
+ * if(!rows)
+ * write("No rows return3d.");
+ * else
+ * if(stringp(rows))  /* error *\/
+ * write(rows);
+ * else
+ * for(i = 1; i <= rows; i++)
+ * {
+ * res = db_fetch(dbconn, i);
+ * write(res[0]);
+ * write(res[1]);
+ * }
+ * 
+ * db_close(dbconn);
+ *
+ */
+mixed *db_fetch( int handle, int row );
+
+/**
+ * db_exec() - executes an sql statement
+ *
+ * This function will execute the passed sql statement for the given data‐
+ * base handle.
+ * 
+ * Returns the number of rows in result set on success, or an error string
+ * otherwise.
+ *
+ */
+mixed db_exec( int handle, string sql_query );
+
+/**
+ * db_connect() - close the database connection
+ *
+ * Creates  a  new  connection  to the database db on the given host.  The
+ * connection uses either the given user or a compile time value as  login
+ * id.  type may be used to choose the type of database server. Valid val‐
+ * ues depend on compile time settings should be made available through  a
+ * corresponding header file within the mudlib.
+ * 
+ * Returns a handle to the new connection on success, 0 otherwise
+ * 
+ * Driver will call master object's valid_database function to reterive
+ * password for this database (string) or approvals (positive intgeter).
+ * 
+ * FlufFOS supports MYSQL, SQLITE3 and PostgreSQL.
+ * 
+ * When compiling driver, you need to pass -DPACKAGE_DB=ON and
+ * -DPACKAGE_DB_MYSQL=X or
+ * -DPACKAGE_DB_SQLITE=X or
+ * -DPACKAGE_DB_POSTGRESQL=X
+ * and you should also pass -DPACKAGE_DB_DEFAULT_DB=X which should be one
+ * of the value above. If one value is an empty string, the driver support for
+ * that DB is disabled.
+ * 
+ * X here means an integer representing the "type" parameter in db_connect().
+ * 
+ * Driver prvoides following pre-defines constant to lib for DB types.
+ * 
+ * __USE_MYSQL__   is what -DPACKAGE_DB_MYSQL=<value> is, default to be 1
+ * __USE_SQLITE3__ is what -DPACKAGE_DB_SQLITE=<value> is, default to be not defined.
+ * __USE_POSTGRE__ is what -DPACKAGE_DB_POSTGRESQL=<value> is, default to be not defined.
+ * __DEFAULT_DB__  is what -DPACKAGE_DB_DEFAULT_DB=<value> is, default to be 1
+ *
+ */
+int db_connect( string host, string db );
+int db_connect( string host, string db, string user );
+int db_connect( string  host, string db, string user, int type );
+
+/**
+ * db_commit() - commits the last transaction
+ *
+ * For transactional databases this will commit the last set of actions.
+ * 
+ * Returns 1 on success, 0 otherwise
+ *
+ */
+int db_commit(int handle );
+
+/**
+ * db_close() - close the database connection
+ *
+ * Closes the database connection represented by the given handle.
+ * 
+ * Returns 1 on success, 0 otherwise
+ *
+ */
+int db_close( int handle );
+

package/src/efuns/fluffos/driver.h

@@ -0,0 +1,107 @@
+/* These are not automatically provided by the driver */
+#define T_INT              "int"
+#define T_STRING           "string"
+#define T_ARRAY            "array"
+#define T_OBJECT           "object"
+#define T_MAPPING          "mapping"
+#define T_FUNCTION         "function"
+#define T_FLOAT            "float"
+#define T_BUFFER           "buffer"
+#define T_CLASS            "class"
+#define T_INVALID          "*invalid*"
+#define T_LVALUE           "*lvalue*"
+#define T_LVALUE_BYTE      "*lvalue_byte*"
+#define T_LVALUE_RANGE     "*lvalue_range*"
+#define T_LVALUE_CODEPOINT "*lvalue_codepoint*"
+#define T_ERROR_HANDLER    "*error_handler*"
+#define T_FREED            "*freed*"
+#define T_UNKNOWN          "*unknown*"
+
+// https://github.com/fluffos/fluffos/blob/master/src/include/function.h
+#define FP_LOCAL          2
+#define FP_EFUN           3
+#define FP_SIMUL          4
+#define FP_FUNCTIONAL     5
+#define FP_G_VAR          6
+#define FP_L_VAR          7
+#define FP_ANONYMOUS      8
+#define FP_MASK           0x0f
+#define FP_HAS_ARGUMENTS  0x10
+#define FP_OWNER_DESTED   0x20
+#define FP_NOT_BINDABLE   0x40
+
+// src/include/localtime.h
+/*
+ * Definitions for localtime() efun
+ */
+#define LT_SEC 0
+#define LT_MIN 1
+#define LT_HOUR 2
+#define LT_MDAY 3
+#define LT_MON 4
+#define LT_YEAR 5
+#define LT_WDAY 6
+#define LT_YDAY 7
+#define LT_GMTOFF 8
+#define LT_ZONE 9
+#define LT_ISDST 10
+
+/* codes returned by the origin() efun */
+
+#define ORIGIN_BACKEND "driver" /* backwards compat */
+#define ORIGIN_DRIVER "driver"
+#define ORIGIN_LOCAL "local"
+#define ORIGIN_CALL_OTHER "call_other"
+#define ORIGIN_SIMUL_EFUN "simul"
+#define ORIGIN_INTERNAL "internal"
+#define ORIGIN_EFUN "efun"
+/* pseudo frames for call_other function pointers and efun pointer */
+#define ORIGIN_FUNCTION_POINTER "function_pointer"
+/* anonymous functions */
+#define ORIGIN_FUNCTIONAL "functional"
+
+#define ERR_IS_NOT 1
+#define ERR_NOT_LIVING 2
+#define ERR_NOT_ACCESSIBLE 3
+#define ERR_AMBIG 4
+#define ERR_ORDINAL 5
+#define ERR_ALLOCATED 6
+#define ERR_THERE_IS_NO 7
+#define ERR_BAD_MULTIPLE 8
+#define ERR_MANY_PATHS 9
+
+#define EESUCCESS 1       /* Call was successful */
+#define EESOCKET -1       /* Problem creating socket */
+#define EESETSOCKOPT -2   /* Problem with setsockopt */
+#define EENONBLOCK -3     /* Problem setting non-blocking mode */
+#define EENOSOCKS -4      /* UNUSED */
+#define EEFDRANGE -5      /* Descriptor out of range */
+#define EEBADF -6         /* Descriptor is invalid */
+#define EESECURITY -7     /* Security violation attempted */
+#define EEISBOUND -8      /* Socket is already bound */
+#define EEADDRINUSE -9    /* Address already in use */
+#define EEBIND -10        /* Problem with bind */
+#define EEGETSOCKNAME -11 /* Problem with getsockname */
+#define EEMODENOTSUPP -12 /* Socket mode not supported */
+#define EENOADDR -13      /* Socket not bound to an address */
+#define EEISCONN -14      /* Socket is already connected */
+#define EELISTEN -15      /* Problem with listen */
+#define EENOTLISTN -16    /* Socket not listening */
+#define EEWOULDBLOCK -17  /* Operation would block */
+#define EEINTR -18        /* Interrupted system call */
+#define EEACCEPT -19      /* Problem with accept */
+#define EEISLISTEN -20    /* Socket is listening */
+#define EEBADADDR -21     /* Problem with address format */
+#define EEALREADY -22     /* Operation already in progress */
+#define EECONNREFUSED -23 /* Connection refused */
+#define EECONNECT -24     /* Problem with connect */
+#define EENOTCONN -25     /* Socket not connected */
+#define EETYPENOTSUPP -26 /* Object type not supported */
+#define EESENDTO -27      /* Problem with sendto */
+#define EESEND -28        /* Problem with send */
+#define EECALLBACK -29    /* Wait for callback */
+#define EESOCKRLSD -30    /* Socket already released */
+#define EESOCKNOTRLSD -31 /* Socket not released */
+#define EEBADDATA -32     /* sending data with too many nested levels */
+
+#define ERROR_STRINGS 33 /* sizeof (error_strings) */

package/src/efuns/fluffos/ed.h

@@ -0,0 +1,48 @@
+// ed.h
+
+/**
+ * query_ed_mode() - find out the status of the current ed session
+ *
+ * Finds  the  status  of  the  ed  session for the current object, if one
+ * exists.  It returns:
+ * 
+ * 0   - the current object is at a normal ed prompt (':')
+ * 
+ * -1  - the current object isn't in ed
+ * 
+ * -2  - the current object is at the more prompt in the middle of help
+ * 
+ * >0  - the object is at a prompt for a line.  The  number  is  the  line
+ * number.
+ *
+ */
+int query_ed_mode();
+
+/**
+ * ed_start() - start an ed session
+ *
+ * This efun is available only if __OLD_ED__ is not defined.
+ * 
+ * The  internal editor is started, optionally loading 'file' for editing.
+ * The resulting output is returned.  The editor session  remains  active,
+ * and further calls to ed_cmd() can be used to send commands to it.
+ * 
+ * If restricted is 1, the commands that change which file is being edited
+ * will be disabled.
+ * 
+ * Only one ed session can be active per object at a time.
+ *
+ */
+string ed_start(void|string file, void|int restricted);
+
+/**
+ * ed_cmd() - send a command to an ed session
+ *
+ * This efun is available only if __OLD_ED__ is not defined.
+ * 
+ * The  command  'cmd' is sent to the active ed session, and the resulting
+ * output is returned.
+ *
+ */
+string ed_cmd(string cmd);
+

package/src/efuns/fluffos/efuns.fluffos.h

@@ -0,0 +1,75 @@
+/** These objects must be here - they are used by the type checker for various non-primitive types */
+object __LS__Array;
+object __LS__Mapping;
+object __LS__Object;
+object __LS__Function;
+object __LS__CallableFunction;
+object __LS__NewableFunction;
+object __LS__Int;
+object __LS__ReadonlyArray;
+object __LS__String;
+object __LS__Closure;
+
+// Driver Provided Defines 
+// These are made available to each sourcefile
+#define MUDOS                   1
+#define FLUFFOS                 1
+#define __GET_CHAR_IS_BUFFERED__ 1
+#define __PORT__                1
+#define __VERSION__             "1.0"
+#define __ARCH__                "x86_64"
+#define __COMPILER__            "gcc"
+#define __CXXFLAGS__            "linux"
+#define MUD_NAME                "FluffOS"
+
+#define SIZEOFINT               4
+#define MAX_INT                 2147483647  /* the largest integer number */
+#define MIN_INT                 -2147483648 /* the smallest integer number */
+#define MAX_FLOAT               1.0e+20     /* the largest (positive) float number */
+#define MIN_FLOAT               0.00000     /* the smallest (positive) float number */
+#define __LARGEST_PRINTABLE_STRING__ 8192
+#define __CACHE_STATS__         1
+#define __STRING_STATS__        1
+#define __ARRAY_STATS__         1
+#define __CLASS_STATS__         1
+#define __CALLOUT_HANDLES__     1
+#define __ARGUMENTS_IN_TRACEBACK__ 1
+#define __LOCALS_IN_TRACEBACK__ 1
+#define __DEBUG_MACRO__         1
+
+/*
+ * efun definitions
+ * 
+ * The doc comments in the FluffOS efun files were created 
+ * from the FluffOS source code.
+ * https://github.com/fluffos/fluffos/tree/master/docs
+ * 
+ * See the https://github.com/fluffos/fluffos/blob/master/Copyright 
+ * for license/copyright info. 
+ */
+
+#include "arrays.h"
+#include "async.h"
+#include "buffers.h"
+#include "calls.h"
+#include "contrib.h"
+#include "db.h"
+#include "ed.h" 
+#include "external.h" 
+#include "filesystem.h"
+#include "floats.h"
+#include "functions.h" 
+#include "general.h"
+#include "interactive.h"
+#include "internals.h"
+#include "mappings.h"
+#include "misc.h"
+#include "mudlib.h"
+#include "numbers.h"
+#include "objects.h"
+#include "parsing.h"
+#include "pcre.h"
+#include "sockets.h"
+#include "strings.h"
+#include "system.h"
+

package/src/efuns/fluffos/external.h

@@ -0,0 +1,30 @@
+// external.h
+
+/**
+ * external_start() - execute a shell command external to the driver
+ *
+ * Execute a shell command external to the driver.
+ * 
+ * Commands that you would like to execute must be added to the runtime config.
+ * The enumerated commands may then be invoked by their number as the first
+ * argument to external_start `external_index`.
+ * 
+ * This function returns the socket number which you should record for later
+ * processing of the results from the external command.
+ * 
+ * `args` - An array of the arguments passed to the external command.
+ * `read_call_back` - As data becomes available, this function will be called
+ * with a string containing that data.
+ * `write_call_back` - I am not 100% sure what would be written to the external
+ * command, but, this is a required parameter.
+ * `close_call_back` - When the socket closes, this function is called.
+ *
+ * This is a very basic example using the information provided in this document
+ *
+ */
+int external_start(int external_index,
+                   string *args,
+                   string|function read_call_back,
+                   string|function write_call_back,
+                   string|function close_call_back);
+

package/src/efuns/fluffos/filesystem.h

@@ -0,0 +1,154 @@
+// filesystem.h
+
+/**
+ * write_file() - appends a string to a file
+ *
+ * Append  the string 'str' into the file 'file'. Returns 0 or 1 for fail‐
+ * ure or success.  If flag is 1, write_file overwrites instead of append‐
+ * ing.
+ *
+ */
+varargs int write_file( string file, string str, int flag );
+
+/**
+ * write_bytes() - writes a contiguous series of bytes to a file
+ *
+ * This  function  writes  the  bytes  in  'series' into the file named by
+ * 'path' beginning at byte # 'start'.  It returns zero (0) upon  failure,
+ * 1 otherwise.
+ *
+ */
+int write_bytes( string path, int start, string series );
+
+/**
+ * stat() - returns information pertaining to a file or a directory
+ *
+ * If  str  is  the  name of a regular file (not a directory), then stat()
+ * will return an array of information pertaining to that file.  The  form
+ * of the array is as follows:
+ * 
+ * ({ file_size, last_time_file_touched, time_object_loaded, time_file_created })
+ * 
+ * If stat is called on a directory (not a regular file), or with a second
+ * argument of -1, then stat() behaves identically to get_dir(3).
+ *
+ * @param {string} str - the file or directory to get information about
+ * @param {int} flag defaults 0, if 0, return an array of information, if -1, return an array of subarrays
+ */
+mixed stat( string str, int flag );
+
+/**
+ * rmdir() - remove a directory
+ *
+ * Remove directory 'dir'.
+ *
+ */
+int rmdir( string dir );
+
+/**
+ * rm() - remove a file
+ *
+ * Remove file 'file'. Returns 0 for failure and 1 for success.
+ *
+ */
+int rm( string file );
+
+/**
+ * rename() - rename a file
+ *
+ * Renames the file <src> to <dst>.
+ *
+ */
+int rename( string src, string dst );
+
+/**
+ * read_file() - read a file into a string
+ *
+ * Read  a  line  of text from a file into a string.  The second and third
+ * arguments are optional.  If only the first argument is  specified,  the
+ * entire file is returned (as a string).
+ * 
+ * The  start_line  is the line number of the line you wish to read.  This
+ * routine will return 0 if you try to read past the end of the  file,  or
+ * if you try to read from a nonpositive line.
+ *
+ */
+varargs string read_file( string file, int start_line, int number_of_lines );
+
+/**
+ * read_bytes()  -  reads  a contiguous series of bytes from a file into a
+string
+ *
+ * This function reads 'length' bytes beginning at byte # 'start'  in  the
+ * file  named  'path'.   The  bytes  are returned as a string.  Note that
+ * (start + length) must  not  be  past  the  end  of  the  file  or  else
+ * read_bytes  will  fail.  If the second and third arguments are omitted,
+ * the entire file is returned.
+ *
+ */
+string read_bytes( string path, int start, int length );
+
+/**
+ * mkdir() - make a directory
+ *
+ * Creates the specified directory.  Returns 1 if successful, 0 if not.
+ *
+ */
+int mkdir( string directory );
+
+/**
+ * link() - link a file to another
+ *
+ * Creates  a  link  <reference> to the file <original>.  This efun causes
+ * valid_link(original, reference) to be called in the master object.   If
+ * valid_link() returns 0, the link() call fails.  If valid_link() returns
+ * 1 then the link() suceeds iff rename() would succeed if called with the
+ * same arguments.
+ * 
+ * Note: This efun creates a hard link, not a symbolic one.
+ * https://www.geeksforgeeks.org/difference-between-hard-link-and-soft-link/
+ *
+ */
+void link( string original, string reference );
+
+/**
+ * get_dir() - returns information pertaining to a filesystem directory
+ *
+ * If  'dir' is a filename ('*' and '?' wildcards are supported), an array
+ * of strings is returned containing all filenames that match the specifi‐
+ * cation.   If 'dir' is a directory name (ending with a slash--ie: "/u/",
+ * "/adm/", etc), all filenames in that directory are returned.
+ * 
+ * If called with a second argument equal to -1, get_dir  will  return  an
+ * array of subarrays, where the format of each subarray is:
+ * 
+ * ({ filename, size_of_file, last_time_file_touched })
+ * 
+ * Where  filename  is  a  string and last_time_file_touched is an integer
+ * being number of seconds since January 1, 1970 (same format as time(3)).
+ * The  size_of_file  element  is  the  same  value  that  is  returned by
+ * file_size(3); the size of the file in bytes, or -2 if it's a directory.
+ * 
+ * @param {string} dir - the directory to get information about
+ * @param {int} flag defaults 0, if 0, return an array of strings, if -1, return an array of subarrays
+ */
+varargs mixed *get_dir(string dir, int flag);
+
+/**
+ * file_size() - get the size of a file
+ *
+ * file_size()  returns  the  size of file <file> in bytes.  Size -1 indi‐
+ * cates that <file> either does not exist, or that it is not readable  by
+ * you. Size -2 indicates that <file> is a directory.
+ *
+ */
+int file_size( string file );
+
+/**
+ * cp() - copy a file
+ *
+ * Copies the file <src> to the file <dst>.
+ *
+ */
+int cp( string src, string dst );
+

package/src/efuns/fluffos/floats.h

@@ -0,0 +1,136 @@
+// floats.h
+
+/**
+ * to_int - convert a float or buffer to an int
+ *
+ * If 'x' is a float, the to_int() call returns the number of type 'int'
+ * that is equivalent to 'x' (with any decimal stripped off, and floored).
+ * 
+ * If 'x' is a buffer, the call returns the integer (in network-byte-order)
+ * that is embedded in the buffer.
+ * 
+ * If 'x' is a string, the call will attempt to convert the string to an
+ * integer. The conversion will start at the first character and stop before
+ * the last non-numeric string representation of a number and return.
+ * If it was unsuccessful, it will return UNDEFINED.
+ *
+ */
+int to_int( float | string | buffer x);
+
+/**
+ * tan() - return the tangent of a float
+ *
+ * Returns the tangent of its argument, 'f', measured in radians.
+ *
+ */
+float tan( float f );
+
+/**
+ * sqrt() - returns the square root of a float
+ *
+ * sqrt()  returns the non-negative square root of its argument, 'f'.  The
+ * value of 'f' must not be negative.
+ *
+ */
+float sqrt( float f );
+
+/**
+ * sin() - return the sine of a float
+ *
+ * Returns the sine of its argument, 'f', measured in radians.
+ *
+ */
+float sin( float f );
+
+/**
+ * round() - rounds a float
+ *
+ * returns the rounded value of `f` as a float.
+ *
+ */
+float round( float f );
+
+/**
+ * pow() - find an exponent of a float
+ *
+ * pow() returns x to the y power.  If x is 0.0, y must be positive.  If x
+ * is negative, y must be an integer.
+ *
+ */
+float pow( float x, float y );
+
+/**
+ * log() - returns the natural logarithm of a float
+ *
+ * Returns  the natural logarithm of its argument, 'f'.  'f' must be posi‐
+ * tive.
+ *
+ */
+float log( float f );
+
+/**
+ * floor() - round a float down to the nearest integer
+ *
+ * Returns  (as  a  float)  the nearest integer number equal to or smaller
+ * than f.
+ *
+ */
+float floor( float f );
+
+/**
+ * floatp() - determine whether or not a given variable is a float
+ *
+ * Return 1 if 'arg' is a float number and zero (0) otherwise.
+ *
+ */
+int floatp( mixed arg );
+
+/**
+ * exp() - find e to the power of a float
+ *
+ * exp() returns e^f.
+ *
+ */
+float exp( float f );
+
+/**
+ * cos() - return the cosine of a float
+ *
+ * Returns the cosine of its argument, 'f', measured in radians.
+ *
+ */
+float cos( float f );
+
+/**
+ * ceil() - round a float up to the nearest integer
+ *
+ * Returns  (as  a  float)  the nearest integer number equal to or greater
+ * than f.
+ *
+ */
+float ceil( float f );
+
+/**
+ * atan() - return the arctangent of a float
+ *
+ * Returns the arctangent of its argument, 'f', measured in radians.
+ *
+ */
+float atan( float f );
+
+/**
+ * asin() - return the arcsine of a float
+ *
+ * Returns the arcsine of its argument, 'f', measured in radians.
+ *
+ */
+float asin( float f );
+
+/**
+ * acos() - return the arccosine of a float
+ *
+ * Returns the arccosine of its argument, 'f', measured in radians.
+ *
+ */
+float acos( float f );
+