Viewing file:  slang.h (68.35 KB) -rw-r--r--
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#ifndef DAVIS_SLANG_H_
#define DAVIS_SLANG_H_
/* -*- mode: C; mode: fold; -*- */
/* Copyright (c) 1992, 1999, 2001, 2002, 2003 John E. Davis
* This file is part of the S-Lang library.
*
* You may distribute under the terms of either the GNU General Public
* License or the Perl Artistic License.
*/
#define SLANG_VERSION 10409
#define SLANG_VERSION_STRING "1.4.9"
/*{{{ System Dependent Macros and Typedefs */
#if defined(__WATCOMC__) && defined(DOS)
# ifndef __MSDOS__
# define __MSDOS__
# endif
# ifndef DOS386
# define DOS386
# endif
# ifndef IBMPC_SYSTEM
# define IBMPC_SYSTEM
# endif
#endif /* __watcomc__ */
#if defined(unix) || defined(__unix)
# ifndef __unix__
# define __unix__ 1
# endif
#endif
#if !defined(__GO32__)
# ifdef __unix__
# define REAL_UNIX_SYSTEM
# endif
#endif
/* Set of the various defines for pc systems. This includes OS/2 */
#ifdef __GO32__
# ifndef __DJGPP__
# define __DJGPP__ 1
# endif
# ifndef IBMPC_SYSTEM
# define IBMPC_SYSTEM
# endif
#endif
#ifdef __BORLANDC__
# ifndef IBMPC_SYSTEM
# define IBMPC_SYSTEM
# endif
#endif
#ifdef __MSDOS__
# ifndef IBMPC_SYSTEM
# define IBMPC_SYSTEM
# endif
#endif
#if defined(OS2) || defined(__os2__)
# ifndef IBMPC_SYSTEM
# define IBMPC_SYSTEM
# endif
# ifndef __os2__
# define __os2__
# endif
#endif
#if defined(__NT__) || defined(__MINGW32__) /* || defined(__CYGWIN32__) */
# ifndef IBMPC_SYSTEM
# define IBMPC_SYSTEM
# endif
#endif
#if defined(IBMPC_SYSTEM) || defined(VMS)
# ifdef REAL_UNIX_SYSTEM
# undef REAL_UNIX_SYSTEM
# endif
#endif
#ifdef __cplusplus
extern "C" {
#endif
#if 0
}
#endif
#include <stdio.h>
#include <stdarg.h>
#if defined(__STDC__) || defined(__BORLANDC__) || defined(__cplusplus)
# include <stddef.h> /* for offsetof */
#endif
/* ---------------------------- Generic Macros ----------------------------- */
/* __SC__ is defined for Symantec C++
DOS386 is defined for -mx memory model, 32 bit DOS extender. */
#if defined(__SC__) && !defined(DOS386)
# include <dos.h>
#endif
#if defined(__BORLANDC__)
# include <alloc.h>
#endif
#ifdef __GNUC__
# define _SLATTRIBUTE_(x) __attribute__ (x)
#else
# define _SLATTRIBUTE_(x)
#endif
#define _SLATTRIBUTE_PRINTF(a,b) _SLATTRIBUTE_((format(printf,a,b)))
#if defined (__cplusplus) || defined(__STDC__) || defined(IBMPC_SYSTEM)
typedef void *VOID_STAR;
#define SLCONST const
#else
typedef unsigned char *VOID_STAR;
#define SLCONST
#endif
typedef int (*FVOID_STAR)(void);
#if defined(__MSDOS__) && defined(__BORLANDC__)
# define SLFREE(buf) farfree((void far *)(buf))
# define SLMALLOC(x) farmalloc((unsigned long) (x))
# define SLREALLOC(buf, n) farrealloc((void far *) (buf), (unsigned long) (n))
# define SLCALLOC(n, m) farcalloc((unsigned long) (n), (unsigned long) (m))
#else
# if defined(VMS) && !defined(__DECC)
# define SLFREE VAXC$FREE_OPT
# define SLMALLOC VAXC$MALLOC_OPT
# define SLREALLOC VAXC$REALLOC_OPT
# define SLCALLOC VAXC$CALLOC_OPT
# else
# define SLFREE(x) free((char *)(x))
# define SLMALLOC malloc
# define SLREALLOC realloc
# define SLCALLOC calloc
# endif
#endif
extern char *SLdebug_malloc (unsigned long);
extern char *SLdebug_calloc (unsigned long, unsigned long);
extern char *SLdebug_realloc (char *, unsigned long);
extern void SLdebug_free (char *);
extern void SLmalloc_dump_statistics (void);
extern char *SLstrcpy(register char *, register char *);
extern int SLstrcmp(register char *, register char *);
extern char *SLstrncpy(char *, register char *, register int);
extern void SLmemset (char *, char, int);
extern char *SLmemchr (register char *, register char, register int);
extern char *SLmemcpy (char *, char *, int);
extern int SLmemcmp (char *, char *, int);
/*}}}*/
/*{{{ Interpreter Typedefs */
typedef unsigned char SLtype; /* This will be unsigned int in V2 */
typedef struct _SLang_Name_Type
{
char *name;
struct _SLang_Name_Type *next;
char name_type;
/* These values must be less than 0x10 because they map directly
* to byte codes. See _slang.h.
*/
#define SLANG_LVARIABLE 0x01
#define SLANG_GVARIABLE 0x02
#define SLANG_IVARIABLE 0x03 /* intrinsic variables */
/* Note!!! For Macro MAKE_VARIABLE below to work, SLANG_IVARIABLE Must
be 1 less than SLANG_RVARIABLE!!! */
#define SLANG_RVARIABLE 0x04 /* read only variable */
#define SLANG_INTRINSIC 0x05
#define SLANG_FUNCTION 0x06
#define SLANG_MATH_UNARY 0x07
#define SLANG_APP_UNARY 0x08
#define SLANG_ICONSTANT 0x09
#define SLANG_DCONSTANT 0x0A
#define SLANG_PVARIABLE 0x0B /* private */
#define SLANG_PFUNCTION 0x0C /* private */
/* Rest of fields depend on name type */
}
SLang_Name_Type;
typedef struct
{
char *name;
struct _SLang_Name_Type *next; /* this is for the hash table */
char name_type;
FVOID_STAR i_fun; /* address of object */
/* Do not change this without modifying slang.c:execute_intrinsic_fun */
#define SLANG_MAX_INTRIN_ARGS 7
SLtype arg_types [SLANG_MAX_INTRIN_ARGS];
unsigned char num_args;
SLtype return_type;
}
SLang_Intrin_Fun_Type;
typedef struct
{
char *name;
SLang_Name_Type *next;
char name_type;
VOID_STAR addr;
SLtype type;
}
SLang_Intrin_Var_Type;
typedef struct
{
char *name;
SLang_Name_Type *next;
char name_type;
int unary_op;
}
SLang_App_Unary_Type;
typedef struct
{
char *name;
SLang_Name_Type *next;
char name_type;
int unary_op;
}
SLang_Math_Unary_Type;
typedef struct
{
char *name;
SLang_Name_Type *next;
char name_type;
int i;
}
SLang_IConstant_Type;
typedef struct
{
char *name;
SLang_Name_Type *next;
char name_type;
double d;
}
SLang_DConstant_Type;
typedef struct
{
char *field_name; /* gets replaced by slstring at run-time */
unsigned int offset;
SLtype type;
unsigned char read_only;
}
SLang_IStruct_Field_Type;
typedef SLCONST struct
{
char *field_name;
unsigned int offset;
SLtype type;
unsigned char read_only;
}
SLang_CStruct_Field_Type;
extern int SLadd_intrin_fun_table (SLang_Intrin_Fun_Type *, char *);
extern int SLadd_intrin_var_table (SLang_Intrin_Var_Type *, char *);
extern int SLadd_app_unary_table (SLang_App_Unary_Type *, char *);
extern int SLadd_math_unary_table (SLang_Math_Unary_Type *, char *);
extern int SLadd_iconstant_table (SLang_IConstant_Type *, char *);
extern int SLadd_dconstant_table (SLang_DConstant_Type *, char *);
extern int SLadd_istruct_table (SLang_IStruct_Field_Type *, VOID_STAR, char *);
typedef struct _SLang_NameSpace_Type SLang_NameSpace_Type;
extern int SLns_add_intrin_fun_table (SLang_NameSpace_Type *, SLang_Intrin_Fun_Type *, char *);
extern int SLns_add_intrin_var_table (SLang_NameSpace_Type *, SLang_Intrin_Var_Type *, char *);
extern int SLns_add_app_unary_table (SLang_NameSpace_Type *, SLang_App_Unary_Type *, char *);
extern int SLns_add_math_unary_table (SLang_NameSpace_Type *, SLang_Math_Unary_Type *, char *);
extern int SLns_add_iconstant_table (SLang_NameSpace_Type *, SLang_IConstant_Type *, char *);
extern int SLns_add_dconstant_table (SLang_NameSpace_Type *, SLang_DConstant_Type *, char *);
extern int SLns_add_istruct_table (SLang_NameSpace_Type *, SLang_IStruct_Field_Type *, VOID_STAR, char *);
extern SLang_NameSpace_Type *SLns_create_namespace (char *);
extern void SLns_delete_namespace (SLang_NameSpace_Type *);
extern int SLns_load_file (char *, char *);
extern int SLns_load_string (char *, char *);
extern int (*SLns_Load_File_Hook) (char *, char *);
int SLang_load_file_verbose (int);
/* if non-zero, display file loading messages */
typedef struct SLang_Load_Type
{
int type;
VOID_STAR client_data;
/* Pointer to data that client needs for loading */
int auto_declare_globals;
/* if non-zero, undefined global variables are declared as static */
char *(*read)(struct SLang_Load_Type *);
/* function to call to read next line from obj. */
unsigned int line_num;
/* Number of lines read, used for error reporting */
int parse_level;
/* 0 if at top level of parsing */
char *name;
/* Name of this object, e.g., filename. This name should be unique because
* it alone determines the name space for static objects associated with
* the compilable unit.
*/
char *namespace_name;
unsigned long reserved[3];
/* For future expansion */
} SLang_Load_Type;
extern SLang_Load_Type *SLallocate_load_type (char *);
extern void SLdeallocate_load_type (SLang_Load_Type *);
extern SLang_Load_Type *SLns_allocate_load_type (char *, char *);
/* Returns SLang_Error upon failure */
extern int SLang_load_object (SLang_Load_Type *);
extern int (*SLang_Load_File_Hook)(char *);
extern int (*SLang_Auto_Declare_Var_Hook) (char *);
extern int SLang_generate_debug_info (int);
#if defined(ultrix) && !defined(__GNUC__)
# ifndef NO_PROTOTYPES
# define NO_PROTOTYPES
# endif
#endif
#ifndef NO_PROTOTYPES
# define _PROTO(x) x
#else
# define _PROTO(x) ()
#endif
typedef struct SL_OOBinary_Type
{
SLtype data_type; /* partner type for binary op */
int (*binary_function)_PROTO((int,
SLtype, VOID_STAR, unsigned int,
SLtype, VOID_STAR, unsigned int,
VOID_STAR));
int (*binary_result) _PROTO((int, SLtype, SLtype, SLtype *));
struct SL_OOBinary_Type *next;
}
SL_OOBinary_Type;
typedef struct _SL_Typecast_Type
{
SLtype data_type; /* to_type */
int allow_implicit;
int (*typecast)_PROTO((SLtype, VOID_STAR, unsigned int,
SLtype, VOID_STAR));
struct _SL_Typecast_Type *next;
}
SL_Typecast_Type;
typedef struct _SLang_Struct_Type SLang_Struct_Type;
typedef struct _SLang_Foreach_Context_Type SLang_Foreach_Context_Type;
#if 0
#if defined(SL_APP_WANTS_FOREACH)
typedef struct _SLang_Foreach_Context_Type SLang_Foreach_Context_Type;
/* It is up to the application to define struct _SLang_Foreach_Context_Type */
#else
typedef int SLang_Foreach_Context_Type;
#endif
#endif
typedef struct
{
unsigned char cl_class_type;
#define SLANG_CLASS_TYPE_MMT 0
#define SLANG_CLASS_TYPE_SCALAR 1
#define SLANG_CLASS_TYPE_VECTOR 2
#define SLANG_CLASS_TYPE_PTR 3
unsigned int cl_data_type; /* SLANG_INTEGER_TYPE, etc... */
char *cl_name; /* slstring type */
unsigned int cl_sizeof_type;
VOID_STAR cl_transfer_buf; /* cl_sizeof_type bytes*/
/* Methods */
/* Most of the method functions are prototyped:
* int method (SLtype type, VOID_STAR addr);
* Here, @type@ represents the type of object that the method is asked
* to deal with. The second parameter @addr@ will contain the ADDRESS of
* the object. For example, if type is SLANG_INT_TYPE, then @addr@ will
* actually be int *. Similary, if type is SLANG_STRING_TYPE,
* then @addr@ will contain the address of the string, i.e., char **.
*/
void (*cl_destroy)_PROTO((SLtype, VOID_STAR));
/* Prototype: void destroy(unsigned type, VOID_STAR val)
* Called to delete/free the object */
char *(*cl_string)_PROTO((SLtype, VOID_STAR));
/* Prototype: char *to_string (SLtype t, VOID_STAR p);
* Here p is a pointer to the object for which a string representation
* is to be returned. The returned pointer is to be a MALLOCED string.
*/
/* Prototype: void push(SLtype type, VOID_STAR v);
* Push a copy of the object of type @type@ at address @v@ onto the
* stack.
*/
int (*cl_push)_PROTO((SLtype, VOID_STAR));
/* Prototype: int pop(SLtype type, VOID_STAR v);
* Pops value from stack and assign it to object, whose address is @v@.
*/
int (*cl_pop)_PROTO((SLtype, VOID_STAR));
int (*cl_unary_op_result_type)_PROTO((int, SLtype, SLtype *));
int (*cl_unary_op)_PROTO((int, SLtype, VOID_STAR, unsigned int, VOID_STAR));
int (*cl_app_unary_op_result_type)_PROTO((int, SLtype, SLtype *));
int (*cl_app_unary_op)_PROTO((int, SLtype, VOID_STAR, unsigned int, VOID_STAR));
/* If this function is non-NULL, it will be called for sin, cos, etc... */
#define SLMATH_SIN 1
#define SLMATH_COS 2
#define SLMATH_TAN 3
#define SLMATH_ATAN 4
#define SLMATH_ASIN 5
#define SLMATH_ACOS 6
#define SLMATH_EXP 7
#define SLMATH_LOG 8
#define SLMATH_SQRT 9
#define SLMATH_LOG10 10
#define SLMATH_REAL 11
#define SLMATH_IMAG 12
#define SLMATH_SINH 13
#define SLMATH_COSH 14
#define SLMATH_TANH 15
#define SLMATH_ATANH 16
#define SLMATH_ASINH 17
#define SLMATH_ACOSH 18
#define SLMATH_TODOUBLE 19
#define SLMATH_CONJ 20
int (*cl_math_op)_PROTO((int, SLtype, VOID_STAR, unsigned int, VOID_STAR));
int (*cl_math_op_result_type)_PROTO((int, SLtype, SLtype *));
SL_OOBinary_Type *cl_binary_ops;
SL_Typecast_Type *cl_typecast_funs;
void (*cl_byte_code_destroy)_PROTO((SLtype, VOID_STAR));
void (*cl_user_destroy_fun)_PROTO((SLtype, VOID_STAR));
int (*cl_init_array_object)_PROTO((SLtype, VOID_STAR));
int (*cl_datatype_deref)_PROTO((SLtype));
SLang_Struct_Type *cl_struct_def;
int (*cl_dereference) _PROTO((SLtype, VOID_STAR));
int (*cl_acopy) (SLtype, VOID_STAR, VOID_STAR);
int (*cl_apop) _PROTO((SLtype, VOID_STAR));
int (*cl_apush) _PROTO((SLtype, VOID_STAR));
int (*cl_push_literal) _PROTO((SLtype, VOID_STAR));
void (*cl_adestroy)_PROTO((SLtype, VOID_STAR));
int (*cl_push_intrinsic)_PROTO((SLtype, VOID_STAR));
int (*cl_void_typecast)_PROTO((SLtype, VOID_STAR, unsigned int, SLtype, VOID_STAR));
int (*cl_anytype_typecast)_PROTO((SLtype, VOID_STAR, unsigned int, SLtype, VOID_STAR));
/* Array access functions */
int (*cl_aput) (SLtype, unsigned int);
int (*cl_aget) (SLtype, unsigned int);
int (*cl_anew) (SLtype, unsigned int);
/* length method */
int (*cl_length) (SLtype, VOID_STAR, unsigned int *);
/* foreach */
SLang_Foreach_Context_Type *(*cl_foreach_open) (SLtype, unsigned int);
void (*cl_foreach_close) (SLtype, SLang_Foreach_Context_Type *);
int (*cl_foreach) (SLtype, SLang_Foreach_Context_Type *);
/* Structure access: get and put (assign to) fields */
int (*cl_sput) (SLtype, char *);
int (*cl_sget) (SLtype, char *);
/* File I/O */
int (*cl_fread) (SLtype, FILE *, VOID_STAR, unsigned int, unsigned int *);
int (*cl_fwrite) (SLtype, FILE *, VOID_STAR, unsigned int, unsigned int *);
int (*cl_fdread) (SLtype, int, VOID_STAR, unsigned int, unsigned int *);
int (*cl_fdwrite) (SLtype, int, VOID_STAR, unsigned int, unsigned int *);
int (*cl_to_bool) (SLtype, int *);
int (*cl_cmp)(SLtype, VOID_STAR, VOID_STAR, int *);
} SLang_Class_Type;
/* These are the low-level functions for building push/pop methods. They
* know nothing about memory management. For SLANG_CLASS_TYPE_MMT, use the
* MMT push/pop functions instead.
*/
extern int SLclass_push_double_obj (SLtype, double);
extern int SLclass_push_float_obj (SLtype, float);
extern int SLclass_push_long_obj (SLtype, long);
extern int SLclass_push_int_obj (SLtype, int);
extern int SLclass_push_short_obj (SLtype, short);
extern int SLclass_push_char_obj (SLtype, char);
extern int SLclass_push_ptr_obj (SLtype, VOID_STAR);
extern int SLclass_pop_double_obj (SLtype, double *);
extern int SLclass_pop_float_obj (SLtype, float *);
extern int SLclass_pop_long_obj (SLtype, long *);
extern int SLclass_pop_int_obj (SLtype, int *);
extern int SLclass_pop_short_obj (SLtype, short *);
extern int SLclass_pop_char_obj (SLtype, char *);
extern int SLclass_pop_ptr_obj (SLtype, VOID_STAR *);
extern SLang_Class_Type *SLclass_allocate_class (char *);
extern int SLclass_get_class_id (SLang_Class_Type *cl);
extern int SLclass_create_synonym (char *, SLtype);
extern int SLclass_is_class_defined (SLtype);
extern int SLclass_dup_object (SLtype type, VOID_STAR from, VOID_STAR to);
extern int SLclass_register_class (SLang_Class_Type *, SLtype, unsigned int, SLtype);
extern int SLclass_set_string_function (SLang_Class_Type *, char *(*)(SLtype, VOID_STAR));
extern int SLclass_set_destroy_function (SLang_Class_Type *, void (*)(SLtype, VOID_STAR));
extern int SLclass_set_push_function (SLang_Class_Type *, int (*)(SLtype, VOID_STAR));
extern int SLclass_set_apush_function (SLang_Class_Type *, int (*)(SLtype, VOID_STAR));
extern int SLclass_set_pop_function (SLang_Class_Type *, int (*)(SLtype, VOID_STAR));
extern int SLclass_set_aget_function (SLang_Class_Type *, int (*)(SLtype, unsigned int));
extern int SLclass_set_aput_function (SLang_Class_Type *, int (*)(SLtype, unsigned int));
extern int SLclass_set_anew_function (SLang_Class_Type *, int (*)(SLtype, unsigned int));
extern int SLclass_set_sget_function (SLang_Class_Type *, int (*)(SLtype, char *));
extern int SLclass_set_sput_function (SLang_Class_Type *, int (*)(SLtype, char *));
extern int SLclass_set_acopy_function (SLang_Class_Type *, int (*)(SLtype, VOID_STAR, VOID_STAR));
/* Typecast object on the stack to type p1. p2 and p3 should be set to 1 */
extern int SLclass_typecast (SLtype, int, int);
extern int SLclass_add_unary_op (SLtype,
int (*) (int,
SLtype, VOID_STAR, unsigned int,
VOID_STAR),
int (*) (int, SLtype, SLtype *));
extern int
SLclass_add_app_unary_op (SLtype,
int (*) (int,
SLtype, VOID_STAR, unsigned int,
VOID_STAR),
int (*) (int, SLtype, SLtype *));
extern int
SLclass_add_binary_op (SLtype, SLtype,
int (*) (int,
SLtype, VOID_STAR, unsigned int,
SLtype, VOID_STAR, unsigned int,
VOID_STAR),
int (*) (int, SLtype, SLtype, SLtype *));
extern int
SLclass_add_math_op (SLtype,
int (*)(int,
SLtype, VOID_STAR, unsigned int,
VOID_STAR),
int (*)(int, SLtype, SLtype *));
extern int
SLclass_add_typecast (SLtype /* from */, SLtype /* to */,
int (*)_PROTO((SLtype, VOID_STAR, unsigned int,
SLtype, VOID_STAR)),
int /* allow implicit typecasts */
);
extern char *SLclass_get_datatype_name (SLtype);
extern double SLcomplex_abs (double *);
extern double *SLcomplex_times (double *, double *, double *);
extern double *SLcomplex_divide (double *, double *, double *);
extern double *SLcomplex_sin (double *, double *);
extern double *SLcomplex_cos (double *, double *);
extern double *SLcomplex_tan (double *, double *);
extern double *SLcomplex_asin (double *, double *);
extern double *SLcomplex_acos (double *, double *);
extern double *SLcomplex_atan (double *, double *);
extern double *SLcomplex_exp (double *, double *);
extern double *SLcomplex_log (double *, double *);
extern double *SLcomplex_log10 (double *, double *);
extern double *SLcomplex_sqrt (double *, double *);
extern double *SLcomplex_sinh (double *, double *);
extern double *SLcomplex_cosh (double *, double *);
extern double *SLcomplex_tanh (double *, double *);
extern double *SLcomplex_pow (double *, double *, double *);
extern double SLmath_hypot (double x, double y);
/* Not implemented yet */
extern double *SLcomplex_asinh (double *, double *);
extern double *SLcomplex_acosh (double *, double *);
extern double *SLcomplex_atanh (double *, double *);
#ifdef _SLANG_SOURCE_
typedef struct _SLang_MMT_Type SLang_MMT_Type;
#else
typedef int SLang_MMT_Type;
#endif
extern void SLang_free_mmt (SLang_MMT_Type *);
extern VOID_STAR SLang_object_from_mmt (SLang_MMT_Type *);
extern SLang_MMT_Type *SLang_create_mmt (SLtype, VOID_STAR);
extern int SLang_push_mmt (SLang_MMT_Type *);
extern SLang_MMT_Type *SLang_pop_mmt (SLtype);
extern void SLang_inc_mmt (SLang_MMT_Type *);
/* Maximum number of dimensions of an array. */
#define SLARRAY_MAX_DIMS 7
typedef struct _SLang_Array_Type
{
SLtype data_type;
unsigned int sizeof_type;
VOID_STAR data;
unsigned int num_elements;
unsigned int num_dims;
int dims [SLARRAY_MAX_DIMS];
VOID_STAR (*index_fun)_PROTO((struct _SLang_Array_Type *, int *));
/* This function is designed to allow a type to store an array in
* any manner it chooses. This function returns the address of the data
* value at the specified index location.
*/
unsigned int flags;
#define SLARR_DATA_VALUE_IS_READ_ONLY 1
#define SLARR_DATA_VALUE_IS_POINTER 2
#define SLARR_DATA_VALUE_IS_RANGE 4
#define SLARR_DATA_VALUE_IS_INTRINSIC 8
SLang_Class_Type *cl;
unsigned int num_refs;
void (*free_fun)_PROTO((struct _SLang_Array_Type *));
VOID_STAR client_data;
}
SLang_Array_Type;
extern int SLang_pop_array_of_type (SLang_Array_Type **, SLtype);
extern int SLang_pop_array (SLang_Array_Type **, int);
extern int SLang_push_array (SLang_Array_Type *, int);
extern void SLang_free_array (SLang_Array_Type *);
extern SLang_Array_Type *SLang_create_array (SLtype, int, VOID_STAR, int *, unsigned int);
extern SLang_Array_Type *SLang_duplicate_array (SLang_Array_Type *);
extern int SLang_get_array_element (SLang_Array_Type *, int *, VOID_STAR);
extern int SLang_set_array_element (SLang_Array_Type *, int *, VOID_STAR);
typedef int SLarray_Contract_Fun_Type (VOID_STAR xp, unsigned int increment, unsigned int num, VOID_STAR yp);
typedef struct
{
SLtype from_type; /* if array is this type */
SLtype typecast_to_type; /* typecast it to this */
SLtype result_type; /* to produce this */
SLarray_Contract_Fun_Type *f; /* via this function */
}
SLarray_Contract_Type;
extern int SLarray_contract_array (SLCONST SLarray_Contract_Type *);
typedef int SLarray_Map_Fun_Type (SLtype xtype, VOID_STAR xp,
unsigned int increment, unsigned int num,
SLtype ytype, VOID_STAR yp, VOID_STAR clientdata);
typedef struct
{
SLtype from_type; /* if array is this type */
SLtype typecast_to_type; /* typecast it to this */
SLtype result_type; /* to produce this */
SLarray_Map_Fun_Type *f; /* via this function */
}
SLarray_Map_Type;
extern int SLarray_map_array_1 (SLCONST SLarray_Map_Type *,
int *use_this_dim,
VOID_STAR clientdata);
extern int SLarray_map_array (SLCONST SLarray_Map_Type *);
/*}}}*/
/*{{{ Interpreter Function Prototypes */
extern volatile int SLang_Error;
/* Non zero if error occurs. Must be reset to zero to continue. */
/* error codes, severe errors are less than 0 */
#define SL_APPLICATION_ERROR -2
#define SL_VARIABLE_UNINITIALIZED -3
#define SL_INTERNAL_ERROR -5
#define SL_STACK_OVERFLOW -6
#define SL_STACK_UNDERFLOW -7
#define SL_UNDEFINED_NAME -8
#define SL_SYNTAX_ERROR -9
#define SL_DUPLICATE_DEFINITION -10
#define SL_TYPE_MISMATCH -11
#define SL_OBJ_UNKNOWN -13
#define SL_UNKNOWN_ERROR -14
#define SL_TYPE_UNDEFINED_OP_ERROR -16
#define SL_INTRINSIC_ERROR 1
/* Intrinsic error is an error generated by intrinsic functions */
#define SL_USER_BREAK 2
#define SL_DIVIDE_ERROR 3
#define SL_OBJ_NOPEN 4
#define SL_USER_ERROR 5
#define SL_USAGE_ERROR 6
#define SL_READONLY_ERROR 7
#define SL_INVALID_PARM 8
#define SL_NOT_IMPLEMENTED 9
#define SL_MALLOC_ERROR 10
#define SL_OVERFLOW 11
#define SL_FLOATING_EXCEPTION 12
/* Compatibility */
#define USER_BREAK SL_USER_BREAK
#define INTRINSIC_ERROR SL_INTRINSIC_ERROR
extern int SLang_Traceback;
/* If non-zero, dump an S-Lang traceback upon error. Available as
_traceback in S-Lang. */
extern char *SLang_User_Prompt;
/* Prompt to use when reading from stdin */
extern int SLang_Version;
extern char *SLang_Version_String;
extern char *SLang_Doc_Dir;
extern void (*SLang_VMessage_Hook) (char *, va_list);
extern void SLang_vmessage (char *, ...) _SLATTRIBUTE_PRINTF(1,2);
extern void (*SLang_Error_Hook)(char *);
/* Pointer to application dependent error messaging routine. By default,
messages are displayed on stderr. */
extern void (*SLang_Exit_Error_Hook)(char *, va_list);
extern void SLang_exit_error (char *, ...) _SLATTRIBUTE_((format (printf, 1, 2), noreturn));
extern void (*SLang_Dump_Routine)(char *);
/* Called if S-Lang traceback is enabled as well as other debugging
routines (e.g., trace). By default, these messages go to stderr. */
extern void (*SLang_Interrupt)(void);
/* function to call whenever inner interpreter is entered. This is
a good place to set SLang_Error to USER_BREAK. */
extern void (*SLang_User_Clear_Error)(void);
/* function that gets called when '_clear_error' is called. */
/* If non null, these call C functions before and after a slang function. */
extern void (*SLang_Enter_Function)(char *);
extern void (*SLang_Exit_Function)(char *);
extern int SLang_Num_Function_Args;
/* Functions: */
extern int SLang_init_all (void);
/* Initializes interpreter and all modules */
extern int SLang_init_slang (void);
/* This function is mandatory and must be called by all applications that
* use the interpreter
*/
extern int SLang_init_posix_process (void); /* process specific intrinsics */
extern int SLang_init_stdio (void); /* fgets, etc. stdio functions */
extern int SLang_init_posix_dir (void);
extern int SLang_init_ospath (void);
extern int SLang_init_slmath (void);
/* called if math functions sin, cos, etc... are needed. */
extern int SLang_init_slfile (void);
extern int SLang_init_slunix (void);
/* These functions are obsolte. Use init_stdio, posix_process, etc. */
extern int SLang_init_slassoc (void);
/* Assoc Arrays (Hashes) */
extern int SLang_init_array (void);
/* Additional arrays functions: transpose, etc... */
extern int SLang_init_array_extra (void);
/* Additional arrays functions: sum, min, max, ... */
/* Dynamic linking facility */
extern int SLang_init_import (void);
extern int SLang_load_file (char *);
/* Load a file of S-Lang code for interpreting. If the parameter is
* NULL, input comes from stdin. */
extern void SLang_restart(int);
/* should be called if an error occurs. If the passed integer is
* non-zero, items are popped off the stack; otherwise, the stack is
* left intact. Any time the stack is believed to be trashed, this routine
* should be called with a non-zero argument (e.g., if setjmp/longjmp is
* called). */
extern int SLang_byte_compile_file(char *, int);
/* takes a file of S-Lang code and ``byte-compiles'' it for faster
* loading. The new filename is equivalent to the old except that a `c' is
* appended to the name. (e.g., init.sl --> init.slc). The second
* specified the method; currently, it is not used.
*/
extern int SLang_autoload(char *, char *);
/* Automatically load S-Lang function p1 from file p2. This function
is also available via S-Lang */
extern int SLang_load_string(char *);
/* Like SLang_load_file except input is from a null terminated string. */
extern int SLdo_pop(void);
/* pops item off stack and frees any memory associated with it */
extern int SLdo_pop_n(unsigned int);
/* pops n items off stack and frees any memory associated with them */
extern int SLang_pop_datatype (SLtype *);
extern int SLang_push_datatype (SLtype);
extern int SLang_pop_integer(int *);
extern int SLang_pop_uinteger(unsigned int *);
/* pops integer *p0 from the stack. Returns 0 upon success and non-zero
* if the stack is empty or a type mismatch occurs, setting SLang_Error.
*/
extern int SLang_pop_char (char *);
extern int SLang_pop_uchar (SLtype *);
extern int SLang_pop_short(short *);
extern int SLang_pop_ushort(unsigned short *);
extern int SLang_pop_long(long *);
extern int SLang_pop_ulong(unsigned long *);
extern int SLang_pop_float(float *);
extern int SLang_pop_double(double *, int *, int *);
/* Pops double *p1 from stack. If *p3 is non-zero, *p1 was derived
from the integer *p2. Returns zero upon success. */
extern int SLang_pop_complex (double *, double *);
extern int SLpop_string (char **);
extern int SLang_pop_string(char **, int *);
/* pops string *p0 from stack. If *p1 is non-zero, the string must be
* freed after its use. DO NOT FREE p0 if *p1 IS ZERO! Returns 0 upon
* success */
extern int SLang_push_complex (double, double);
extern int SLang_push_char (char);
extern int SLang_push_uchar (SLtype);
extern int SLang_push_integer(int);
extern int SLang_push_uinteger(unsigned int);
/* push integer p1 on stack */
extern int SLang_push_short(short);
extern int SLang_push_ushort(unsigned short);
extern int SLang_push_long(long);
extern int SLang_push_ulong(unsigned long);
extern int SLang_push_float(float);
extern int SLang_push_double(double);
/* Push double onto stack */
extern int SLang_push_string(char *);
/* Push string p1 onto stack */
extern int SLang_push_malloced_string(char *);
/* The normal SLang_push_string pushes an slstring. This one converts
* a normally malloced string to an slstring, and then frees the
* malloced string. So, do NOT use the malloced string after calling
* this routine because it will be freed! The routine returns -1 upon
* error, but the string will be freed.
*/
extern int SLang_push_null (void);
extern int SLang_pop_null (void);
extern int SLang_push_value (SLtype type, VOID_STAR);
extern int SLang_pop_value (SLtype type, VOID_STAR);
extern void SLang_free_value (SLtype type, VOID_STAR);
typedef struct _SLang_Object_Type SLang_Any_Type;
extern int SLang_pop_anytype (SLang_Any_Type **);
extern int SLang_push_anytype (SLang_Any_Type *);
extern void SLang_free_anytype (SLang_Any_Type *);
#ifdef _SLANG_SOURCE_
typedef struct _SLang_Ref_Type SLang_Ref_Type;
#else
typedef int SLang_Ref_Type;
#endif
extern int SLang_pop_ref (SLang_Ref_Type **);
extern void SLang_free_ref (SLang_Ref_Type *);
extern int SLang_assign_to_ref (SLang_Ref_Type *, SLtype, VOID_STAR);
extern SLang_Name_Type *SLang_pop_function (void);
extern SLang_Name_Type *SLang_get_fun_from_ref (SLang_Ref_Type *);
extern void SLang_free_function (SLang_Name_Type *f);
/* C structure interface */
extern int SLang_push_cstruct (VOID_STAR, SLang_CStruct_Field_Type *);
extern int SLang_pop_cstruct (VOID_STAR, SLang_CStruct_Field_Type *);
extern void SLang_free_cstruct (VOID_STAR, SLang_CStruct_Field_Type *);
extern int SLang_assign_cstruct_to_ref (SLang_Ref_Type *, VOID_STAR, SLang_CStruct_Field_Type *);
extern int SLang_is_defined(char *);
/* Return non-zero is p1 is defined otherwise returns 0. */
extern int SLang_run_hooks(char *, unsigned int, ...);
/* calls S-Lang function p1 pushing p2 strings in the variable argument
* list onto the stack first.
* Returns -1 upon error, 1 if hooks exists and it ran,
* or 0 if hook does not exist. Thus it returns non-zero is hook was called.
*/
/* These functions return 1 if the indicated function exists and the function
* runs without error. If the function does not exist, the function returns
* 0. Otherwise -1 is returned with SLang_Error set appropriately.
*/
extern int SLexecute_function (SLang_Name_Type *);
extern int SLang_execute_function(char *);
extern int SLang_end_arg_list (void);
extern int SLang_start_arg_list (void);
extern void SLang_verror (int, char *, ...) _SLATTRIBUTE_PRINTF(2,3);
extern void SLang_doerror(char *);
/* set SLang_Error and display p1 as error message */
extern int SLang_add_intrinsic_array (char *, /* name */
SLtype, /* type */
int, /* readonly */
VOID_STAR, /* data */
unsigned int, ...); /* num dims */
extern int SLextract_list_element (char *, unsigned int, char,
char *, unsigned int);
extern void SLexpand_escaped_string (register char *, register char *,
register char *);
extern SLang_Name_Type *SLang_get_function (char *);
extern void SLang_release_function (SLang_Name_Type *);
extern int SLreverse_stack (int);
extern int SLroll_stack (int);
/* If argument p is positive, the top p objects on the stack are rolled
* up. If negative, the stack is rolled down.
*/
extern int SLdup_n (int n);
/* Duplicate top n elements of stack */
extern int SLang_peek_at_stack1 (void);
extern int SLang_peek_at_stack (void);
/* Returns type of next object on stack-- -1 upon stack underflow. */
extern void SLmake_lut (unsigned char *, unsigned char *, unsigned char);
extern int SLang_guess_type (char *);
extern int SLstruct_create_struct (unsigned int,
char **,
SLtype *,
VOID_STAR *);
/*}}}*/
/*{{{ Misc Functions */
/* This is an interface to atexit */
extern int SLang_add_cleanup_function (void (*)(void));
extern char *SLmake_string (char *);
extern char *SLmake_nstring (char *, unsigned int);
/* Returns a null terminated string made from the first n characters of the
* string.
*/
/* The string created by this routine must be freed by SLang_free_slstring
* and nothing else!! Also these strings must not be modified. Use
* SLmake_string if you intend to modify them!!
*/
extern char *SLang_create_nslstring (char *, unsigned int);
extern char *SLang_create_slstring (char *);
extern void SLang_free_slstring (char *); /* handles NULL */
extern int SLang_pop_slstring (char **); /* free with SLang_free_slstring */
extern char *SLang_concat_slstrings (char *a, char *b);
extern char *SLang_create_static_slstring (char *); /* adds a string that will not get deleted */
extern void SLstring_dump_stats (void);
/* Binary strings */
/* The binary string is an opaque type. Use the SLbstring_get_pointer function
* to get a pointer and length.
*/
typedef struct _SLang_BString_Type SLang_BString_Type;
extern unsigned char *SLbstring_get_pointer (SLang_BString_Type *, unsigned int *);
extern SLang_BString_Type *SLbstring_dup (SLang_BString_Type *);
extern SLang_BString_Type *SLbstring_create (unsigned char *, unsigned int);
/* The create_malloced function used the first argument which is assumed
* to be a pointer to a len + 1 malloced string. The extra byte is for
* \0 termination.
*/
extern SLang_BString_Type *SLbstring_create_malloced (unsigned char *, unsigned int, int);
/* Create a bstring from an slstring */
extern SLang_BString_Type *SLbstring_create_slstring (char *);
extern void SLbstring_free (SLang_BString_Type *);
extern int SLang_pop_bstring (SLang_BString_Type **);
extern int SLang_push_bstring (SLang_BString_Type *);
extern char *SLmalloc (unsigned int);
extern char *SLcalloc (unsigned int, unsigned int);
extern void SLfree(char *); /* This function handles NULL */
extern char *SLrealloc (char *, unsigned int);
extern char *SLcurrent_time_string (void);
extern int SLatoi(unsigned char *);
extern long SLatol (unsigned char *);
extern unsigned long SLatoul (unsigned char *);
extern int SLang_pop_fileptr (SLang_MMT_Type **, FILE **);
extern char *SLang_get_name_from_fileptr (SLang_MMT_Type *);
typedef struct _SLFile_FD_Type SLFile_FD_Type;
extern SLFile_FD_Type *SLfile_create_fd (char *, int);
extern void SLfile_free_fd (SLFile_FD_Type *);
extern int SLfile_push_fd (SLFile_FD_Type *);
extern int SLfile_pop_fd (SLFile_FD_Type **);
extern int SLfile_get_fd (SLFile_FD_Type *, int *);
extern SLFile_FD_Type *SLfile_dup_fd (SLFile_FD_Type *f0);
extern int SLang_init_posix_io (void);
typedef double (*SLang_To_Double_Fun_Type)(VOID_STAR);
extern SLang_To_Double_Fun_Type SLarith_get_to_double_fun (SLtype, unsigned int *);
extern int SLang_set_argc_argv (int, char **);
/*}}}*/
/*{{{ SLang getkey interface Functions */
#ifdef REAL_UNIX_SYSTEM
extern int SLang_TT_Baud_Rate;
extern int SLang_TT_Read_FD;
#endif
extern int SLang_init_tty (int, int, int);
/* Initializes the tty for single character input. If the first parameter *p1
* is in the range 0-255, it will be used for the abort character;
* otherwise, (unix only) if it is -1, the abort character will be the one
* used by the terminal. If the second parameter p2 is non-zero, flow
* control is enabled. If the last parmeter p3 is zero, output processing
* is NOT turned on. A value of zero is required for the screen management
* routines. Returns 0 upon success. In addition, if SLang_TT_Baud_Rate ==
* 0 when this function is called, SLang will attempt to determine the
* terminals baud rate. As far as the SLang library is concerned, if
* SLang_TT_Baud_Rate is less than or equal to zero, the baud rate is
* effectively infinite.
*/
extern void SLang_reset_tty (void);
/* Resets tty to what it was prior to a call to SLang_init_tty */
#ifdef REAL_UNIX_SYSTEM
extern void SLtty_set_suspend_state (int);
/* If non-zero argument, terminal driver will be told to react to the
* suspend character. If 0, it will not.
*/
extern int (*SLang_getkey_intr_hook) (void);
#endif
#define SLANG_GETKEY_ERROR 0xFFFF
extern unsigned int SLang_getkey (void);
/* reads a single key from the tty. If the read fails, 0xFFFF is returned. */
#ifdef IBMPC_SYSTEM
extern int SLgetkey_map_to_ansi (int);
#endif
extern int SLang_ungetkey_string (unsigned char *, unsigned int);
extern int SLang_buffer_keystring (unsigned char *, unsigned int);
extern int SLang_ungetkey (unsigned char);
extern void SLang_flush_input (void);
extern int SLang_input_pending (int);
extern int SLang_Abort_Char;
/* The value of the character (0-255) used to trigger SIGINT */
extern int SLang_Ignore_User_Abort;
/* If non-zero, pressing the abort character will not result in USER_BREAK
* SLang_Error. */
extern int SLang_set_abort_signal (void (*)(int));
/* If SIGINT is generated, the function p1 will be called. If p1 is NULL
* the SLang_default signal handler is called. This sets SLang_Error to
* USER_BREAK. I suspect most users will simply want to pass NULL.
*/
extern unsigned int SLang_Input_Buffer_Len;
extern volatile int SLKeyBoard_Quit;
#ifdef VMS
/* If this function returns -1, ^Y will be added to input buffer. */
extern int (*SLtty_VMS_Ctrl_Y_Hook) (void);
#endif
/*}}}*/
/*{{{ SLang Keymap routines */
typedef struct SLKeymap_Function_Type
{
char *name;
int (*f)(void);
}
SLKeymap_Function_Type;
#define SLANG_MAX_KEYMAP_KEY_SEQ 14
typedef struct SLang_Key_Type
{
struct SLang_Key_Type *next;
union
{
char *s;
FVOID_STAR f;
unsigned int keysym;
}
f;
unsigned char type; /* type of function */
#define SLKEY_F_INTERPRET 0x01
#define SLKEY_F_INTRINSIC 0x02
#define SLKEY_F_KEYSYM 0x03
unsigned char str[SLANG_MAX_KEYMAP_KEY_SEQ + 1];/* key sequence */
}
SLang_Key_Type;
typedef struct SLKeyMap_List_Type
{
char *name; /* hashed string */
SLang_Key_Type *keymap;
SLKeymap_Function_Type *functions; /* intrinsic functions */
}
SLKeyMap_List_Type;
/* This is arbitrary but I have got to start somewhere */
#define SLANG_MAX_KEYMAPS 30
extern SLKeyMap_List_Type SLKeyMap_List[SLANG_MAX_KEYMAPS];
extern char *SLang_process_keystring(char *);
extern int SLkm_define_key (char *, FVOID_STAR, SLKeyMap_List_Type *);
extern int SLang_define_key(char *, char *, SLKeyMap_List_Type *);
/* Like define_key1 except that p2 is a string that is to be associated with
* a function in the functions field of p3.
*/
extern int SLkm_define_keysym (char *, unsigned int, SLKeyMap_List_Type *);
extern void SLang_undefine_key(char *, SLKeyMap_List_Type *);
extern SLKeyMap_List_Type *SLang_create_keymap(char *, SLKeyMap_List_Type *);
/* create and returns a pointer to a new keymap named p1 created by copying
* keymap p2. If p2 is NULL, it is up to the calling routine to initialize
* the keymap.
*/
extern char *SLang_make_keystring(unsigned char *);
extern SLang_Key_Type *SLang_do_key(SLKeyMap_List_Type *, int (*)(void));
/* read a key using keymap p1 with getkey function p2 */
extern
FVOID_STAR
SLang_find_key_function(char *, SLKeyMap_List_Type *);
extern SLKeyMap_List_Type *SLang_find_keymap(char *);
extern int SLang_Last_Key_Char;
extern int SLang_Key_TimeOut_Flag;
/*}}}*/
/*{{{ SLang Readline Interface */
typedef struct SLang_Read_Line_Type
{
struct SLang_Read_Line_Type *prev, *next;
unsigned char *buf;
int buf_len; /* number of chars in the buffer */
int num; /* num and misc are application specific*/
int misc;
} SLang_Read_Line_Type;
/* Maximum size of display */
#define SLRL_DISPLAY_BUFFER_SIZE 256
typedef struct
{
SLang_Read_Line_Type *root, *tail, *last;
unsigned char *buf; /* edit buffer */
int buf_len; /* sizeof buffer */
int point; /* current editing point */
int tab; /* tab width */
int len; /* current line size */
/* display variables */
int edit_width; /* length of display field */
int curs_pos; /* current column */
int start_column; /* column offset of display */
int dhscroll; /* amount to use for horiz scroll */
char *prompt;
FVOID_STAR last_fun; /* last function executed by rl */
/* These two contain an image of what is on the display */
unsigned char upd_buf1[SLRL_DISPLAY_BUFFER_SIZE];
unsigned char upd_buf2[SLRL_DISPLAY_BUFFER_SIZE];
unsigned char *old_upd, *new_upd; /* pointers to previous two buffers */
int new_upd_len, old_upd_len; /* length of output buffers */
SLKeyMap_List_Type *keymap;
/* tty variables */
unsigned int flags; /* */
#define SL_RLINE_NO_ECHO 1
#define SL_RLINE_USE_ANSI 2
#define SL_RLINE_BLINK_MATCH 4
unsigned int (*getkey)(void); /* getkey function -- required */
void (*tt_goto_column)(int);
void (*tt_insert)(char);
void (*update_hook)(unsigned char *, int, int);
/* The update hook is called with a pointer to a buffer p1 that contains
* an image of what the update hook is suppoed to produce. The length
* of the buffer is p2 and after the update, the cursor is to be placed
* in column p3.
*/
/* This function is only called when blinking matches */
int (*input_pending)(int);
unsigned long reserved[4];
} SLang_RLine_Info_Type;
extern int SLang_RL_EOF_Char;
extern SLang_Read_Line_Type * SLang_rline_save_line (SLang_RLine_Info_Type *);
extern int SLang_init_readline (SLang_RLine_Info_Type *);
extern int SLang_read_line (SLang_RLine_Info_Type *);
extern int SLang_rline_insert (char *);
extern void SLrline_redraw (SLang_RLine_Info_Type *);
extern int SLang_Rline_Quit;
/*}}}*/
/*{{{ Low Level Screen Output Interface */
extern unsigned long SLtt_Num_Chars_Output;
extern int SLtt_Baud_Rate;
typedef unsigned long SLtt_Char_Type;
#define SLTT_BOLD_MASK 0x01000000UL
#define SLTT_BLINK_MASK 0x02000000UL
#define SLTT_ULINE_MASK 0x04000000UL
#define SLTT_REV_MASK 0x08000000UL
#define SLTT_ALTC_MASK 0x10000000UL
extern int SLtt_Screen_Rows;
extern int SLtt_Screen_Cols;
extern int SLtt_Term_Cannot_Insert;
extern int SLtt_Term_Cannot_Scroll;
extern int SLtt_Use_Ansi_Colors;
extern int SLtt_Ignore_Beep;
#if defined(REAL_UNIX_SYSTEM)
extern int SLtt_Force_Keypad_Init;
extern int SLang_TT_Write_FD;
#endif
#ifndef IBMPC_SYSTEM
extern char *SLtt_Graphics_Char_Pairs;
#endif
#ifndef __GO32__
#if defined(VMS) || defined(REAL_UNIX_SYSTEM)
extern int SLtt_Blink_Mode;
extern int SLtt_Use_Blink_For_ACS;
extern int SLtt_Newline_Ok;
extern int SLtt_Has_Alt_Charset;
extern int SLtt_Has_Status_Line; /* if 0, NO. If > 0, YES, IF -1, ?? */
# ifndef VMS
extern int SLtt_Try_Termcap;
# endif
#endif
#endif
#if defined(IBMPC_SYSTEM)
extern int SLtt_Msdos_Cheap_Video;
#endif
#define UTF8 1
#ifdef UTF8
typedef int SLsmg_Char_Type;
extern SLtt_Char_Type SLcurses_Acs_Map [128];
#define acs_map SLcurses_Acs_Map
#define SLSMG_EXTRACT_CHAR(x) ((x) & 0xFFFFFF)
#define SLSMG_EXTRACT_COLOR(x) (((x)>>24)&0xFF)
#define SLSMG_BUILD_CHAR(ch,color) (((SLsmg_Char_Type)(wchar_t)(ch))|((color)<<24))
#define SLSMG_NOCHAR 1
#else
typedef unsigned short SLsmg_Char_Type;
#define SLSMG_EXTRACT_CHAR(x) ((x) & 0xFF)
#define SLSMG_EXTRACT_COLOR(x) (((x)>>8)&0xFF)
#define SLSMG_BUILD_CHAR(ch,color) (((SLsmg_Char_Type)(unsigned char)(ch))|((color)<<8))
#endif /* UTF8 */
extern int SLtt_flush_output (void);
extern void SLtt_set_scroll_region(int, int);
extern void SLtt_reset_scroll_region(void);
extern void SLtt_reverse_video (int);
extern void SLtt_bold_video (void);
extern void SLtt_begin_insert(void);
extern void SLtt_end_insert(void);
extern void SLtt_del_eol(void);
extern void SLtt_goto_rc (int, int);
extern void SLtt_delete_nlines(int);
extern void SLtt_delete_char(void);
extern void SLtt_erase_line(void);
extern void SLtt_normal_video(void);
extern void SLtt_cls(void);
extern void SLtt_beep(void);
extern void SLtt_reverse_index(int);
extern void SLtt_smart_puts(SLsmg_Char_Type *, SLsmg_Char_Type *, int, int);
extern void SLtt_write_string (char *);
extern void SLtt_putchar(char);
extern int SLtt_init_video (void);
extern int SLtt_reset_video (void);
extern void SLtt_get_terminfo(void);
extern void SLtt_get_screen_size (void);
extern int SLtt_set_cursor_visibility (int);
extern int SLtt_set_mouse_mode (int, int);
#if defined(VMS) || defined(REAL_UNIX_SYSTEM)
extern int SLtt_initialize (char *);
extern void SLtt_enable_cursor_keys(void);
extern void SLtt_set_term_vtxxx(int *);
extern void SLtt_set_color_esc (int, char *);
extern void SLtt_wide_width(void);
extern void SLtt_narrow_width(void);
extern void SLtt_set_alt_char_set (int);
extern int SLtt_write_to_status_line (char *, int);
extern void SLtt_disable_status_line (void);
# ifdef REAL_UNIX_SYSTEM
/* These are termcap/terminfo routines that assume SLtt_initialize has
* been called.
*/
extern char *SLtt_tgetstr (char *);
extern int SLtt_tgetnum (char *);
extern int SLtt_tgetflag (char *);
/* The following are terminfo-only routines -- these prototypes will change
* in V2.x.
*/
extern char *SLtt_tigetent (char *);
extern char *SLtt_tigetstr (char *, char **);
extern int SLtt_tigetnum (char *, char **);
# endif
#endif
extern SLtt_Char_Type SLtt_get_color_object (int);
extern void SLtt_set_color_object (int, SLtt_Char_Type);
extern void SLtt_set_color (int, char *, char *, char *);
extern void SLtt_set_mono (int, char *, SLtt_Char_Type);
extern void SLtt_add_color_attribute (int, SLtt_Char_Type);
extern void SLtt_set_color_fgbg (int, SLtt_Char_Type, SLtt_Char_Type);
/*}}}*/
/*{{{ SLang Preprocessor Interface */
typedef struct
{
int this_level;
int exec_level;
int prev_exec_level;
char preprocess_char;
char comment_char;
unsigned char flags;
#define SLPREP_BLANK_LINES_OK 1
#define SLPREP_COMMENT_LINES_OK 2
#define SLPREP_STOP_READING 4
#define SLPREP_EMBEDDED_TEXT 8
}
SLPreprocess_Type;
extern int SLprep_open_prep (SLPreprocess_Type *);
extern void SLprep_close_prep (SLPreprocess_Type *);
extern int SLprep_line_ok (char *, SLPreprocess_Type *);
extern int SLdefine_for_ifdef (char *);
/* Adds a string to the SLang #ifdef preparsing defines. SLang already
defines MSDOS, UNIX, and VMS on the appropriate system. */
extern int (*SLprep_exists_hook) (char *, char);
/*}}}*/
/*{{{ SLsmg Screen Management Functions */
#ifdef UTF8
extern void SLsmg_fill_region (int, int, unsigned int, unsigned int, wchar_t);
#else
extern void SLsmg_fill_region (int, int, unsigned int, unsigned int, unsigned char);
#endif /* UTF8 */
extern void SLsmg_set_char_set (int);
#ifndef IBMPC_SYSTEM
extern int SLsmg_Scroll_Hash_Border;
#endif
extern int SLsmg_suspend_smg (void);
extern int SLsmg_resume_smg (void);
extern void SLsmg_erase_eol (void);
extern void SLsmg_gotorc (int, int);
extern void SLsmg_erase_eos (void);
extern void SLsmg_reverse_video (void);
extern void SLsmg_set_color (int);
extern void SLsmg_normal_video (void);
extern void SLsmg_printf (char *, ...) _SLATTRIBUTE_PRINTF(1,2);
/* extern void SLsmg_printf (char *, ...) _SLATTRIBUTE_PRINTF(1,2); */
extern void SLsmg_vprintf (char *, va_list);
extern void SLsmg_write_string (char *);
extern void SLsmg_write_nstring (char *, unsigned int);
#ifdef UTF8
extern void SLsmg_write_char (wchar_t);
extern void SLsmg_write_nwchars (wchar_t *, unsigned int);
#else
extern void SLsmg_write_char (char);
#endif /* UTF8 */
extern void SLsmg_write_nchars (char *, unsigned int);
extern void SLsmg_write_wrapped_string (char *, int, int, unsigned int, unsigned int, int);
extern void SLsmg_cls (void);
extern void SLsmg_refresh (void);
extern void SLsmg_touch_lines (int, unsigned int);
extern void SLsmg_touch_screen (void);
extern int SLsmg_init_smg (void);
extern int SLsmg_reinit_smg (void);
extern void SLsmg_reset_smg (void);
extern SLsmg_Char_Type SLsmg_char_at(void);
extern void SLsmg_set_screen_start (int *, int *);
extern void SLsmg_draw_hline (unsigned int);
extern void SLsmg_draw_vline (int);
#ifdef UTF8
extern void SLsmg_draw_object (int, int, SLsmg_Char_Type);
#else
extern void SLsmg_draw_object (int, int, unsigned char);
#endif
extern void SLsmg_draw_box (int, int, unsigned int, unsigned int);
extern int SLsmg_get_column(void);
extern int SLsmg_get_row(void);
extern void SLsmg_forward (int);
extern void SLsmg_write_color_chars (SLsmg_Char_Type *, unsigned int);
extern unsigned int SLsmg_read_raw (SLsmg_Char_Type *, unsigned int);
extern unsigned int SLsmg_write_raw (SLsmg_Char_Type *, unsigned int);
extern void SLsmg_set_color_in_region (int, int, int, unsigned int, unsigned int);
extern int SLsmg_Display_Eight_Bit;
extern int SLsmg_Tab_Width;
extern int SLsmg_Is_Unicode;
extern int SLsmg_Setlocale;
#define SLSMG_NEWLINE_IGNORED 0 /* default */
#define SLSMG_NEWLINE_MOVES 1 /* moves to next line, column 0 */
#define SLSMG_NEWLINE_SCROLLS 2 /* moves but scrolls at bottom of screen */
#define SLSMG_NEWLINE_PRINTABLE 3 /* prints as ^J */
extern int SLsmg_Newline_Behavior;
extern int SLsmg_Backspace_Moves;
#ifdef IBMPC_SYSTEM
# define SLSMG_HLINE_CHAR 0xC4
# define SLSMG_VLINE_CHAR 0xB3
# define SLSMG_ULCORN_CHAR 0xDA
# define SLSMG_URCORN_CHAR 0xBF
# define SLSMG_LLCORN_CHAR 0xC0
# define SLSMG_LRCORN_CHAR 0xD9
# define SLSMG_RTEE_CHAR 0xB4
# define SLSMG_LTEE_CHAR 0xC3
# define SLSMG_UTEE_CHAR 0xC2
# define SLSMG_DTEE_CHAR 0xC1
# define SLSMG_PLUS_CHAR 0xC5
/* There are several to choose from: 0xB0, 0xB1, and 0xB2 */
# define SLSMG_CKBRD_CHAR 0xB0
# define SLSMG_DIAMOND_CHAR 0x04
# define SLSMG_DEGREE_CHAR 0xF8
# define SLSMG_PLMINUS_CHAR 0xF1
# define SLSMG_BULLET_CHAR 0xF9
# define SLSMG_LARROW_CHAR 0x1B
# define SLSMG_RARROW_CHAR 0x1A
# define SLSMG_DARROW_CHAR 0x19
# define SLSMG_UARROW_CHAR 0x18
# define SLSMG_BOARD_CHAR 0xB2
# define SLSMG_BLOCK_CHAR 0xDB
#else
# if defined(AMIGA)
# define SLSMG_HLINE_CHAR '-'
# define SLSMG_VLINE_CHAR '|'
# define SLSMG_ULCORN_CHAR '+'
# define SLSMG_URCORN_CHAR '+'
# define SLSMG_LLCORN_CHAR '+'
# define SLSMG_LRCORN_CHAR '+'
# define SLSMG_CKBRD_CHAR '#'
# define SLSMG_RTEE_CHAR '+'
# define SLSMG_LTEE_CHAR '+'
# define SLSMG_UTEE_CHAR '+'
# define SLSMG_DTEE_CHAR '+'
# define SLSMG_PLUS_CHAR '+'
# define SLSMG_DIAMOND_CHAR '+'
# define SLSMG_DEGREE_CHAR '\\'
# define SLSMG_PLMINUS_CHAR '#'
# define SLSMG_BULLET_CHAR 'o'
# define SLSMG_LARROW_CHAR '<'
# define SLSMG_RARROW_CHAR '>'
# define SLSMG_DARROW_CHAR 'v'
# define SLSMG_UARROW_CHAR '^'
# define SLSMG_BOARD_CHAR '#'
# define SLSMG_BLOCK_CHAR '#'
# else
# define SLSMG_HLINE_CHAR (acs_map['q'])
# define SLSMG_VLINE_CHAR (acs_map['x'])
# define SLSMG_ULCORN_CHAR (acs_map['l'])
# define SLSMG_URCORN_CHAR (acs_map['k'])
# define SLSMG_LLCORN_CHAR (acs_map['m'])
# define SLSMG_LRCORN_CHAR (acs_map['j'])
# define SLSMG_CKBRD_CHAR (acs_map['a'])
# define SLSMG_RTEE_CHAR (acs_map['u'])
# define SLSMG_LTEE_CHAR (acs_map['t'])
# define SLSMG_UTEE_CHAR (acs_map['v'])
# define SLSMG_DTEE_CHAR (acs_map['w'])
# define SLSMG_PLUS_CHAR (acs_map['n'])
# define SLSMG_DIAMOND_CHAR (acs_map['`'])
# define SLSMG_DEGREE_CHAR (acs_map['f'])
# define SLSMG_PLMINUS_CHAR (acs_map['g'])
# define SLSMG_BULLET_CHAR (acs_map['~'])
# define SLSMG_LARROW_CHAR (acs_map[','])
# define SLSMG_RARROW_CHAR (acs_map['+'])
# define SLSMG_DARROW_CHAR (acs_map['.'])
# define SLSMG_UARROW_CHAR (acs_map['-'])
# define SLSMG_BOARD_CHAR (acs_map['h'])
# define SLSMG_BLOCK_CHAR (acs_map['0'])
#
# define SLSMG_HLINE_CHAR_TERM 'q'
# define SLSMG_VLINE_CHAR_TERM 'x'
# define SLSMG_ULCORN_CHAR_TERM 'l'
# define SLSMG_URCORN_CHAR_TERM 'k'
# define SLSMG_LLCORN_CHAR_TERM 'm'
# define SLSMG_LRCORN_CHAR_TERM 'j'
# define SLSMG_CKBRD_CHAR_TERM 'a'
# define SLSMG_RTEE_CHAR_TERM 'u'
# define SLSMG_LTEE_CHAR_TERM 't'
# define SLSMG_UTEE_CHAR_TERM 'v'
# define SLSMG_DTEE_CHAR_TERM 'w'
# define SLSMG_PLUS_CHAR_TERM 'n'
# define SLSMG_DIAMOND_CHAR_TERM '`'
# define SLSMG_DEGREE_CHAR_TERM 'f'
# define SLSMG_PLMINUS_CHAR_TERM 'g'
# define SLSMG_BULLET_CHAR_TERM '~'
# define SLSMG_LARROW_CHAR_TERM ','
# define SLSMG_RARROW_CHAR_TERM '+'
# define SLSMG_DARROW_CHAR_TERM '.'
# define SLSMG_UARROW_CHAR_TERM '-'
# define SLSMG_BOARD_CHAR_TERM 'h'
# define SLSMG_BLOCK_CHAR_TERM '0'
# endif /* AMIGA */
#endif /* IBMPC_SYSTEM */
#ifdef UTF8
# define SLSMG_HLINE_CHAR_UNICODE 0x2500
# define SLSMG_VLINE_CHAR_UNICODE 0x2502
# define SLSMG_ULCORN_CHAR_UNICODE 0x250c
# define SLSMG_URCORN_CHAR_UNICODE 0x2510
# define SLSMG_LLCORN_CHAR_UNICODE 0x2514
# define SLSMG_LRCORN_CHAR_UNICODE 0x2518
# define SLSMG_RTEE_CHAR_UNICODE 0x2524
# define SLSMG_LTEE_CHAR_UNICODE 0x251c
# define SLSMG_UTEE_CHAR_UNICODE 0x2534
# define SLSMG_DTEE_CHAR_UNICODE 0x252c
# define SLSMG_PLUS_CHAR_UNICODE 0x253c
# define SLSMG_CKBRD_CHAR_UNICODE 0x2592
# define SLSMG_DIAMOND_CHAR_UNICODE 0x25c6
# define SLSMG_DEGREE_CHAR_UNICODE 0x00b0
# define SLSMG_PLMINUS_CHAR_UNICODE 0x00b1
# define SLSMG_BULLET_CHAR_UNICODE 0x00b7
# define SLSMG_LARROW_CHAR_UNICODE 0x2190
# define SLSMG_RARROW_CHAR_UNICODE 0x2192
# define SLSMG_DARROW_CHAR_UNICODE 0x2193
# define SLSMG_UARROW_CHAR_UNICODE 0x2191
# define SLSMG_BOARD_CHAR_UNICODE 0x2592
# define SLSMG_BLOCK_CHAR_UNICODE 0x25ae
#endif
#ifndef IBMPC_SYSTEM
# define SLSMG_COLOR_BLACK 0x000000
# define SLSMG_COLOR_RED 0x000001
# define SLSMG_COLOR_GREEN 0x000002
# define SLSMG_COLOR_BROWN 0x000003
# define SLSMG_COLOR_BLUE 0x000004
# define SLSMG_COLOR_MAGENTA 0x000005
# define SLSMG_COLOR_CYAN 0x000006
# define SLSMG_COLOR_LGRAY 0x000007
# define SLSMG_COLOR_GRAY 0x000008
# define SLSMG_COLOR_BRIGHT_RED 0x000009
# define SLSMG_COLOR_BRIGHT_GREEN 0x00000A
# define SLSMG_COLOR_BRIGHT_BROWN 0x00000B
# define SLSMG_COLOR_BRIGHT_BLUE 0x00000C
# define SLSMG_COLOR_BRIGHT_CYAN 0x00000D
# define SLSMG_COLOR_BRIGHT_MAGENTA 0x00000E
# define SLSMG_COLOR_BRIGHT_WHITE 0x00000F
#endif
typedef struct
{
void (*tt_normal_video)(void);
void (*tt_set_scroll_region)(int, int);
void (*tt_goto_rc)(int, int);
void (*tt_reverse_index)(int);
void (*tt_reset_scroll_region)(void);
void (*tt_delete_nlines)(int);
void (*tt_cls) (void);
void (*tt_del_eol) (void);
void (*tt_smart_puts) (SLsmg_Char_Type *, SLsmg_Char_Type *, int, int);
int (*tt_flush_output) (void);
int (*tt_reset_video) (void);
int (*tt_init_video) (void);
int *tt_screen_rows;
int *tt_screen_cols;
int *tt_term_cannot_scroll;
int *tt_has_alt_charset;
int *tt_use_blink_for_acs;
char **tt_graphic_char_pairs;
long reserved[4];
}
SLsmg_Term_Type;
extern void SLsmg_set_terminal_info (SLsmg_Term_Type *);
/*}}}*/
/*{{{ SLang Keypad Interface */
#define SL_KEY_ERR 0xFFFF
#define SL_KEY_UP 0x101
#define SL_KEY_DOWN 0x102
#define SL_KEY_LEFT 0x103
#define SL_KEY_RIGHT 0x104
#define SL_KEY_PPAGE 0x105
#define SL_KEY_NPAGE 0x106
#define SL_KEY_HOME 0x107
#define SL_KEY_END 0x108
#define SL_KEY_A1 0x109
#define SL_KEY_A3 0x10A
#define SL_KEY_B2 0x10B
#define SL_KEY_C1 0x10C
#define SL_KEY_C3 0x10D
#define SL_KEY_REDO 0x10E
#define SL_KEY_UNDO 0x10F
#define SL_KEY_BACKSPACE 0x110
#define SL_KEY_ENTER 0x111
#define SL_KEY_IC 0x112
#define SL_KEY_DELETE 0x113
#define SL_KEY_F0 0x200
#define SL_KEY_F(X) (SL_KEY_F0 + X)
/* I do not intend to use keysymps > 0x1000. Applications can use those. */
/* Returns 0 upon success or -1 upon error. */
extern int SLkp_define_keysym (char *, unsigned int);
/* This function must be called AFTER SLtt_get_terminfo and not before. */
extern int SLkp_init (void);
/* By default, SLang_getkey is used as the low-level function. This hook
* allows you to specify something else.
*/
extern void SLkp_set_getkey_function (int (*)(void));
/* This function uses SLang_getkey and assumes that what ever initialization
* is required for SLang_getkey has been performed. If you do not want
* SLang_getkey to be used, then specify another function via
* SLkp_set_getkey_function.
*/
extern int SLkp_getkey (void);
/*}}}*/
/*{{{ SLang Scroll Interface */
typedef struct _SLscroll_Type
{
struct _SLscroll_Type *next;
struct _SLscroll_Type *prev;
unsigned int flags;
}
SLscroll_Type;
typedef struct
{
unsigned int flags;
SLscroll_Type *top_window_line; /* list element at top of window */
SLscroll_Type *bot_window_line; /* list element at bottom of window */
SLscroll_Type *current_line; /* current list element */
SLscroll_Type *lines; /* first list element */
unsigned int nrows; /* number of rows in window */
unsigned int hidden_mask; /* applied to flags in SLscroll_Type */
unsigned int line_num; /* current line number (visible) */
unsigned int num_lines; /* total number of lines (visible) */
unsigned int window_row; /* row of current_line in window */
unsigned int border; /* number of rows that form scroll border */
int cannot_scroll; /* should window scroll or recenter */
}
SLscroll_Window_Type;
extern int SLscroll_find_top (SLscroll_Window_Type *);
extern int SLscroll_find_line_num (SLscroll_Window_Type *);
extern unsigned int SLscroll_next_n (SLscroll_Window_Type *, unsigned int);
extern unsigned int SLscroll_prev_n (SLscroll_Window_Type *, unsigned int);
extern int SLscroll_pageup (SLscroll_Window_Type *);
extern int SLscroll_pagedown (SLscroll_Window_Type *);
/*}}}*/
/*{{{ Signal Routines */
typedef void SLSig_Fun_Type (int);
extern SLSig_Fun_Type *SLsignal (int, SLSig_Fun_Type *);
extern SLSig_Fun_Type *SLsignal_intr (int, SLSig_Fun_Type *);
extern int SLsig_block_signals (void);
extern int SLsig_unblock_signals (void);
extern int SLsystem (char *);
extern char *SLerrno_strerror (int);
extern int SLerrno_set_errno (int);
/*}}}*/
/*{{{ Interpreter Macro Definitions */
/* The definitions here are for objects that may be on the run-time stack.
* They are actually sub_types of literal and data main_types. The actual
* numbers are historical.
*/
#define SLANG_UNDEFINED_TYPE 0x00 /* MUST be 0 */
#define SLANG_VOID_TYPE 0x01 /* also matches ANY type */
#define SLANG_INT_TYPE 0x02
#define SLANG_DOUBLE_TYPE 0x03
#define SLANG_CHAR_TYPE 0x04
#define SLANG_INTP_TYPE 0x05
/* An object of SLANG_INTP_TYPE should never really occur on the stack. Rather,
* the integer to which it refers will be there instead. It is defined here
* because it is a valid type for MAKE_VARIABLE.
*/
#define SLANG_REF_TYPE 0x06
/* SLANG_REF_TYPE refers to an object on the stack that is a pointer (reference)
* to some other object.
*/
#define SLANG_COMPLEX_TYPE 0x07
#define SLANG_NULL_TYPE 0x08
#define SLANG_UCHAR_TYPE 0x09
#define SLANG_SHORT_TYPE 0x0A
#define SLANG_USHORT_TYPE 0x0B
#define SLANG_UINT_TYPE 0x0C
#define SLANG_LONG_TYPE 0x0D
#define SLANG_ULONG_TYPE 0x0E
#define SLANG_STRING_TYPE 0x0F
#define SLANG_FLOAT_TYPE 0x10
#define SLANG_STRUCT_TYPE 0x11
#define SLANG_ISTRUCT_TYPE 0x12
#define SLANG_ARRAY_TYPE 0x20
#define SLANG_DATATYPE_TYPE 0x21
#define SLANG_FILE_PTR_TYPE 0x22
#define SLANG_ASSOC_TYPE 0x23
#define SLANG_ANY_TYPE 0x24
#define SLANG_BSTRING_TYPE 0x25
#define SLANG_FILE_FD_TYPE 0x26
#define _SLANG_MIN_UNUSED_TYPE 0x27
/* Compatibility */
#ifdef FLOAT_TYPE
# undef FLOAT_TYPE
#endif
#define VOID_TYPE SLANG_VOID_TYPE
#define INT_TYPE SLANG_INT_TYPE
#define INTP_TYPE SLANG_INTP_TYPE
#define FLOAT_TYPE SLANG_DOUBLE_TYPE
#define ARRAY_TYPE SLANG_ARRAY_TYPE
#define CHAR_TYPE SLANG_CHAR_TYPE
#define STRING_TYPE SLANG_STRING_TYPE
/* I am reserving values greater than or equal to 128 for user applications.
* The first 127 are reserved for S-Lang.
*/
/* Binary and Unary Subtypes */
/* Since the application can define new types and can overload the binary
* and unary operators, these definitions must be present in this file.
* The current implementation assumes both unary and binary are distinct.
*/
#define SLANG_PLUS 0x01
#define SLANG_MINUS 0x02
#define SLANG_TIMES 0x03
#define SLANG_DIVIDE 0x04
#define SLANG_EQ 0x05
#define SLANG_NE 0x06
#define SLANG_GT 0x07
#define SLANG_GE 0x08
#define SLANG_LT 0x09
#define SLANG_LE 0x0A
#define SLANG_POW 0x0B
#define SLANG_OR 0x0C
#define SLANG_AND 0x0D
#define SLANG_BAND 0x0E
#define SLANG_BOR 0x0F
#define SLANG_BXOR 0x10
#define SLANG_SHL 0x11
#define SLANG_SHR 0x12
#define SLANG_MOD 0x13
/* UNARY subtypes (may be overloaded) */
#define SLANG_PLUSPLUS 0x20
#define SLANG_MINUSMINUS 0x21
#define SLANG_ABS 0x22
#define SLANG_SIGN 0x23
#define SLANG_SQR 0x24
#define SLANG_MUL2 0x25
#define SLANG_CHS 0x26
#define SLANG_NOT 0x27
#define SLANG_BNOT 0x28
extern char *SLang_Error_Message;
int SLadd_intrinsic_variable (char *, VOID_STAR, unsigned char, int);
int SLadd_intrinsic_function (char *, FVOID_STAR, unsigned char, unsigned int,...);
int SLns_add_intrinsic_variable (SLang_NameSpace_Type *, char *, VOID_STAR, unsigned char, int);
int SLns_add_intrinsic_function (SLang_NameSpace_Type *, char *, FVOID_STAR, unsigned char, unsigned int,...);
#define MAKE_INTRINSIC_N(n,f,out,in,a1,a2,a3,a4,a5,a6,a7) \
{(n), NULL, SLANG_INTRINSIC, (FVOID_STAR) (f), \
{a1,a2,a3,a4,a5,a6,a7}, (in), (out)}
#define MAKE_INTRINSIC_7(n,f,out,a1,a2,a3,a4,a5,a6,a7) \
MAKE_INTRINSIC_N(n,f,out,7,a1,a2,a3,a4,a5,a6,a7)
#define MAKE_INTRINSIC_6(n,f,out,a1,a2,a3,a4,a5,a6) \
MAKE_INTRINSIC_N(n,f,out,6,a1,a2,a3,a4,a5,a6,0)
#define MAKE_INTRINSIC_5(n,f,out,a1,a2,a3,a4,a5) \
MAKE_INTRINSIC_N(n,f,out,5,a1,a2,a3,a4,a5,0,0)
#define MAKE_INTRINSIC_4(n,f,out,a1,a2,a3,a4) \
MAKE_INTRINSIC_N(n,f,out,4,a1,a2,a3,a4,0,0,0)
#define MAKE_INTRINSIC_3(n,f,out,a1,a2,a3) \
MAKE_INTRINSIC_N(n,f,out,3,a1,a2,a3,0,0,0,0)
#define MAKE_INTRINSIC_2(n,f,out,a1,a2) \
MAKE_INTRINSIC_N(n,f,out,2,a1,a2,0,0,0,0,0)
#define MAKE_INTRINSIC_1(n,f,out,a1) \
MAKE_INTRINSIC_N(n,f,out,1,a1,0,0,0,0,0,0)
#define MAKE_INTRINSIC_0(n,f,out) \
MAKE_INTRINSIC_N(n,f,out,0,0,0,0,0,0,0,0)
#define MAKE_INTRINSIC_S(n,f,r) \
MAKE_INTRINSIC_1(n,f,r,SLANG_STRING_TYPE)
#define MAKE_INTRINSIC_I(n,f,r) \
MAKE_INTRINSIC_1(n,f,r,SLANG_INT_TYPE)
#define MAKE_INTRINSIC_SS(n,f,r) \
MAKE_INTRINSIC_2(n,f,r,SLANG_STRING_TYPE,SLANG_STRING_TYPE)
#define MAKE_INTRINSIC_SI(n,f,r) \
MAKE_INTRINSIC_2(n,f,r,SLANG_STRING_TYPE,SLANG_INT_TYPE)
#define MAKE_INTRINSIC_IS(n,f,r) \
MAKE_INTRINSIC_2(n,f,r,SLANG_INT_TYPE,SLANG_STRING_TYPE)
#define MAKE_INTRINSIC_II(n,f,r) \
MAKE_INTRINSIC_2(n,f,r,SLANG_INT_TYPE,SLANG_INT_TYPE)
#define MAKE_INTRINSIC_SSS(n,f,r) \
MAKE_INTRINSIC_3(n,f,r,SLANG_STRING_TYPE,SLANG_STRING_TYPE,SLANG_STRING_TYPE)
#define MAKE_INTRINSIC_SSI(n,f,r) \
MAKE_INTRINSIC_3(n,f,r,SLANG_STRING_TYPE,SLANG_STRING_TYPE,SLANG_INT_TYPE)
#define MAKE_INTRINSIC_SIS(n,f,r) \
MAKE_INTRINSIC_3(n,f,r,SLANG_STRING_TYPE,SLANG_INT_TYPE,SLANG_STRING_TYPE)
#define MAKE_INTRINSIC_SII(n,f,r) \
MAKE_INTRINSIC_3(n,f,r,SLANG_STRING_TYPE,SLANG_INT_TYPE,SLANG_INT_TYPE)
#define MAKE_INTRINSIC_ISS(n,f,r) \
MAKE_INTRINSIC_3(n,f,r,SLANG_INT_TYPE,SLANG_STRING_TYPE,SLANG_STRING_TYPE)
#define MAKE_INTRINSIC_ISI(n,f,r) \
MAKE_INTRINSIC_3(n,f,r,SLANG_INT_TYPE,SLANG_STRING_TYPE,SLANG_INT_TYPE)
#define MAKE_INTRINSIC_IIS(n,f,r) \
MAKE_INTRINSIC_3(n,f,r,SLANG_INT_TYPE,SLANG_INT_TYPE,SLANG_STRING_TYPE)
#define MAKE_INTRINSIC_III(n,f,r) \
MAKE_INTRINSIC_3(n,f,r,SLANG_INT_TYPE,SLANG_INT_TYPE,SLANG_INT_TYPE)
#define MAKE_INTRINSIC(n, f, out, in) \
MAKE_INTRINSIC_N(n,f,out,in,0,0,0,0,0,0,0)
#define MAKE_VARIABLE(n, v, t, r) \
{n, NULL, SLANG_IVARIABLE + (r), (VOID_STAR)(v), (t)}
#define MAKE_APP_UNARY(n,op) \
{(n), NULL, SLANG_APP_UNARY, (op)}
#define MAKE_MATH_UNARY(n,op) \
{(n), NULL, SLANG_MATH_UNARY, (op)}
#define MAKE_ICONSTANT(n,val) \
{(n),NULL, SLANG_ICONSTANT, (val)}
#define MAKE_DCONSTANT(n,val) \
{(n),NULL, SLANG_DCONSTANT, (val)}
#ifndef offsetof
# define offsetof(T,F) ((unsigned int)((char *)&((T *)0L)->F - (char *)0L))
#endif
#define MAKE_ISTRUCT_FIELD(s,f,n,t,r) {(n), offsetof(s,f), (t), (r)}
#define MAKE_CSTRUCT_FIELD(s,f,n,t,r) {(n), offsetof(s,f), (t), (r)}
#define MAKE_CSTRUCT_INT_FIELD(s,f,n,r) {(n), offsetof(s,f),\
(sizeof(((s*)0L)->f)==sizeof(int))?(SLANG_INT_TYPE): \
(sizeof(((s*)0L)->f)==sizeof(short))?(SLANG_SHORT_TYPE): \
(sizeof(((s*)0L)->f)==sizeof(char))?(SLANG_CHAR_TYPE): \
SLANG_LONG_TYPE, (r)\
}
#define SLANG_END_TABLE {NULL}
#define SLANG_END_INTRIN_FUN_TABLE MAKE_INTRINSIC_0(NULL,NULL,0)
#define SLANG_END_DCONST_TABLE MAKE_DCONSTANT(NULL,0)
#define SLANG_END_MATH_UNARY_TABLE MAKE_MATH_UNARY(NULL,0)
#define SLANG_END_INTRIN_VAR_TABLE MAKE_VARIABLE(NULL,NULL,0,0)
#define SLANG_END_ICONST_TABLE MAKE_ICONSTANT(NULL,0)
#define SLANG_END_ISTRUCT_TABLE {NULL, 0, 0, 0}
#define SLANG_END_CSTRUCT_TABLE {NULL, 0, 0, 0}
/*}}}*/
/*{{{ Upper/Lowercase Functions */
extern void SLang_define_case(int *, int *);
extern void SLang_init_case_tables (void);
extern unsigned char _SLChg_UCase_Lut[256];
extern unsigned char _SLChg_LCase_Lut[256];
#define UPPER_CASE(x) (_SLChg_UCase_Lut[(unsigned char) (x)])
#define LOWER_CASE(x) (_SLChg_LCase_Lut[(unsigned char) (x)])
#define CHANGE_CASE(x) (((x) == _SLChg_LCase_Lut[(unsigned char) (x)]) ?\
_SLChg_UCase_Lut[(unsigned char) (x)] : _SLChg_LCase_Lut[(unsigned char) (x)])
/*}}}*/
/*{{{ Regular Expression Interface */
typedef struct
{
/* These must be set by calling routine. */
unsigned char *pat; /* regular expression pattern */
unsigned char *buf; /* buffer for compiled regexp */
unsigned int buf_len; /* length of buffer */
int case_sensitive; /* 1 if match is case sensitive */
/* The rest are set by SLang_regexp_compile */
int must_match; /* 1 if line must contain substring */
int must_match_bol; /* true if it must match beginning of line */
unsigned char must_match_str[16]; /* 15 char null term substring */
int osearch; /* 1 if ordinary search suffices */
unsigned int min_length; /* minimum length the match must be */
int beg_matches[10]; /* offset of start of \( */
unsigned int end_matches[10]; /* length of nth submatch
* Note that the entire match corresponds
* to \0
*/
int offset; /* offset to be added to beg_matches */
int reserved[10];
} SLRegexp_Type;
extern unsigned char *SLang_regexp_match(unsigned char *,
unsigned int,
SLRegexp_Type *);
/* Returns 0 upon success. If failure, the offset into the
* pattern is returned (start = 1).
*/
extern int SLang_regexp_compile (SLRegexp_Type *);
extern char *SLregexp_quote_string (char *, char *, unsigned int);
/*}}}*/
/*{{{ SLang Command Interface */
struct _SLcmd_Cmd_Type; /* Pre-declaration is needed below */
typedef struct
{
struct _SLcmd_Cmd_Type *table;
int argc;
/* Version 2.0 needs to use a union!! */
char **string_args;
int *int_args;
double *double_args;
unsigned char *arg_type;
unsigned long reserved[4];
} SLcmd_Cmd_Table_Type;
typedef struct _SLcmd_Cmd_Type
{
int (*cmdfun)(int, SLcmd_Cmd_Table_Type *);
char *cmd;
char *arg_type;
} SLcmd_Cmd_Type;
extern int SLcmd_execute_string (char *, SLcmd_Cmd_Table_Type *);
/*}}}*/
/*{{{ SLang Search Interface */
typedef struct
{
int cs; /* case sensitive */
unsigned char key[256];
int ind[256];
int key_len;
int dir;
} SLsearch_Type;
extern int SLsearch_init (char *, int, int, SLsearch_Type *);
/* This routine must first be called before any search can take place.
* The second parameter specifies the direction of the search: greater than
* zero for a forwrd search and less than zero for a backward search. The
* third parameter specifies whether the search is case sensitive or not.
* The last parameter is a pointer to a structure that is filled by this
* function and it is this structure that must be passed to SLsearch.
*/
extern unsigned char *SLsearch (unsigned char *, unsigned char *, SLsearch_Type *);
/* To use this routine, you must first call 'SLsearch_init'. Then the first
* two parameters p1 and p2 serve to define the region over which the search
* is to take place. The third parameter is the structure that was previously
* initialized by SLsearch_init.
*
* The routine returns a pointer to the match if found otherwise it returns
* NULL.
*/
/*}}}*/
/*{{{ SLang Pathname Interface */
/* These function return pointers to the original space */
extern char *SLpath_basename (char *);
extern char *SLpath_extname (char *);
extern int SLpath_is_absolute_path (char *);
/* Get and set the character delimiter for search paths */
extern int SLpath_get_delimiter (void);
extern int SLpath_set_delimiter (int);
/* search path for loading .sl files */
extern int SLpath_set_load_path (char *);
/* search path for loading .sl files --- returns slstring */
extern char *SLpath_get_load_path (void);
/* These return malloced strings--- NOT slstrings */
extern char *SLpath_dircat (char *, char *);
extern char *SLpath_find_file_in_path (char *, char *);
extern char *SLpath_dirname (char *);
extern int SLpath_file_exists (char *);
extern char *SLpath_pathname_sans_extname (char *);
/*}}}*/
extern int SLang_set_module_load_path (char *);
#define SLANG_MODULE(name) \
extern int init_##name##_module_ns (char *); \
extern void deinit_##name##_module (void)
#if 0
{
#endif
#ifdef __cplusplus
}
#endif
#endif /* _DAVIS_SLANG_H_ */
|