slang.h		slang.h
	#ifndef DAVIS_SLANG_H_		#ifndef DAVIS_SLANG_H_
	#define DAVIS_SLANG_H_		#define DAVIS_SLANG_H_
	/* -*- mode: C; mode: fold; -*- */		/* -*- mode: C; mode: fold; -*- */
	/* Copyright (c) 1992, 1998 John E. Davis		/* Copyright (c) 1992, 1999, 2001, 2002, 2003 John E. Davis
	* This file is part of the S-Lang library.		* This file is part of the S-Lang library.
	*		*
	* You may distribute under the terms of either the GNU General Public		* You may distribute under the terms of either the GNU General Public
	* License or the Perl Artistic License.		* License or the Perl Artistic License.
	*/		*/
	#define SLANG_VERSION 10202		#define SLANG_VERSION 10409
			#define SLANG_VERSION_STRING "1.4.9"
	/*{{{ System Dependent Macros and Typedefs */		/*{{{ System Dependent Macros and Typedefs */
	#if defined(__WATCOMC__) && defined(DOS)		#if defined(__WATCOMC__) && defined(DOS)
	# ifndef __MSDOS__		# ifndef __MSDOS__
	# define __MSDOS__		# define __MSDOS__
	# endif		# endif
	# ifndef DOS386		# ifndef DOS386
	# define DOS386		# define DOS386
	# endif		# endif
	# ifndef IBMPC_SYSTEM		# ifndef IBMPC_SYSTEM
	# define IBMPC_SYSTEM		# define IBMPC_SYSTEM
	# endif		# endif
	#endif /* __watcomc__ */		#endif /* __watcomc__ */
	#ifdef unix		#if defined(unix) || defined(__unix)
	# ifndef __unix__		# ifndef __unix__
	# define __unix__ 1		# define __unix__ 1
	# endif		# endif
	#endif		#endif
	#if !defined(__GO32__)		#if !defined(__GO32__)
	# ifdef __unix__		# ifdef __unix__
	# define REAL_UNIX_SYSTEM		# define REAL_UNIX_SYSTEM
	# endif		# endif
	#endif		#endif
	skipping to change at line 68		skipping to change at line 70
	#if defined(OS2) || defined(__os2__)		#if defined(OS2) || defined(__os2__)
	# ifndef IBMPC_SYSTEM		# ifndef IBMPC_SYSTEM
	# define IBMPC_SYSTEM		# define IBMPC_SYSTEM
	# endif		# endif
	# ifndef __os2__		# ifndef __os2__
	# define __os2__		# define __os2__
	# endif		# endif
	#endif		#endif
	#if defined(__NT__) || defined(__MINGW32__) || defined(__CYGWIN32__)		#if defined(__NT__) || defined(__MINGW32__) /* || defined(__CYGWIN32__) */
	# ifndef IBMPC_SYSTEM		# ifndef IBMPC_SYSTEM
	# define IBMPC_SYSTEM		# define IBMPC_SYSTEM
	# endif		# endif
	#endif		#endif
	#if defined(IBMPC_SYSTEM) || defined(VMS)		#if defined(IBMPC_SYSTEM) || defined(VMS)
	# ifdef REAL_UNIX_SYSTEM		# ifdef REAL_UNIX_SYSTEM
	# undef REAL_UNIX_SYSTEM		# undef REAL_UNIX_SYSTEM
	# endif		# endif
	#endif		#endif
	skipping to change at line 86		skipping to change at line 88
	# undef REAL_UNIX_SYSTEM		# undef REAL_UNIX_SYSTEM
	# endif		# endif
	#endif		#endif
	#ifdef __cplusplus		#ifdef __cplusplus
	extern "C" {		extern "C" {
	#endif		#endif
	#if 0		#if 0
	}		}
	#endif		#endif
	#include <stdio.h>		#include <stdio.h>
	#include <stdarg.h>		#include <stdarg.h>
			#if defined(__STDC__) || defined(__BORLANDC__) || defined(__cplusplus)
			# include <stddef.h> /* for offsetof */
			#endif
	/* ---------------------------- Generic Macros ---------------------------- - */		/* ---------------------------- Generic Macros ---------------------------- - */
	/* __SC__ is defined for Symantec C++		/* __SC__ is defined for Symantec C++
	DOS386 is defined for -mx memory model, 32 bit DOS extender. */		DOS386 is defined for -mx memory model, 32 bit DOS extender. */
	#if defined(__SC__) && !defined(DOS386)		#if defined(__SC__) && !defined(DOS386)
	# include <dos.h>		# include <dos.h>
	#endif		#endif
	#if defined(__BORLANDC__)		#if defined(__BORLANDC__)
	# include <alloc.h>		# include <alloc.h>
	#endif		#endif
	#if defined (__cplusplus) || defined(__STDC__)		#ifdef __GNUC__
	typedef void *VOID_STAR;		# define _SLATTRIBUTE_(x) __attribute__ (x)
	#else		#else
	typedef unsigned char *VOID_STAR;		# 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		#endif
	typedef int (*FVOID_STAR)(void);		typedef int (*FVOID_STAR)(void);
	#if defined(__MSDOS_) && defined(__BORLANDC__)		#if defined(__MSDOS__) && defined(__BORLANDC__)
	# define SLFREE(buf) farfree((void far *)(buf))		# define SLFREE(buf) farfree((void far *)(buf))
	# define SLMALLOC(x) farmalloc((unsigned long) (x))		# define SLMALLOC(x) farmalloc((unsigned long) (x))
	# define SLREALLOC(buf, n) farrealloc((void far *) (buf), (unsigned long) ( n))		# define SLREALLOC(buf, n) farrealloc((void far *) (buf), (unsigned long) ( n))
	# define SLCALLOC(n, m) farcalloc((unsigned long) (n), (unsigned long) (m))		# define SLCALLOC(n, m) farcalloc((unsigned long) (n), (unsigned long) (m))
	#else		#else
	# if defined(VMS) && !defined(__DECC)		# if defined(VMS) && !defined(__DECC)
	# define SLFREE VAXC$FREE_OPT		# define SLFREE VAXC$FREE_OPT
	# define SLMALLOC VAXC$MALLOC_OPT		# define SLMALLOC VAXC$MALLOC_OPT
	# define SLREALLOC VAXC$REALLOC_OPT		# define SLREALLOC VAXC$REALLOC_OPT
	# define SLCALLOC VAXC$CALLOC_OPT		# define SLCALLOC VAXC$CALLOC_OPT
	# else		# else
	# define SLFREE(x) free((char *)(x))		# define SLFREE(x) free((char *)(x))
	# define SLMALLOC malloc		# define SLMALLOC malloc
	# if defined(__cplusplus) && !defined(__BEOS__)		# define SLREALLOC realloc
	# define SLREALLOC(p,n) realloc((malloc_t) (p), (n))
	# else
	# define SLREALLOC realloc
	# endif
	# define SLCALLOC calloc		# define SLCALLOC calloc
	# endif		# endif
	#endif		#endif
	extern char *SLdebug_malloc (unsigned long);		extern char *SLdebug_malloc (unsigned long);
	extern char *SLdebug_calloc (unsigned long, unsigned long);		extern char *SLdebug_calloc (unsigned long, unsigned long);
	extern char *SLdebug_realloc (char *, unsigned long);		extern char *SLdebug_realloc (char *, unsigned long);
	extern void SLdebug_free (char *);		extern void SLdebug_free (char *);
	extern void SLmalloc_dump_statistics (void);		extern void SLmalloc_dump_statistics (void);
	extern char *SLstrcpy(register char *, register char *);		extern char *SLstrcpy(register char *, register char *);
	skipping to change at line 151		skipping to change at line 162
	extern void SLmemset (char *, char, int);		extern void SLmemset (char *, char, int);
	extern char *SLmemchr (register char *, register char, register int);		extern char *SLmemchr (register char *, register char, register int);
	extern char *SLmemcpy (char *, char *, int);		extern char *SLmemcpy (char *, char *, int);
	extern int SLmemcmp (char *, char *, int);		extern int SLmemcmp (char *, char *, int);
	/*}}}*/		/*}}}*/
	/*{{{ Interpreter Typedefs */		/*{{{ Interpreter Typedefs */
			typedef unsigned char SLtype; /* This will be unsigned int in V2 */
	typedef struct _SLang_Name_Type		typedef struct _SLang_Name_Type
	{		{
	char *name;		char *name;
	struct _SLang_Name_Type *next;		struct _SLang_Name_Type *next;
	char name_type;		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_LVARIABLE 0x01
	#define SLANG_GVARIABLE 0x02		#define SLANG_GVARIABLE 0x02
	#define SLANG_IVARIABLE 0x03 /* intrinsic variables */		#define SLANG_IVARIABLE 0x03 /* intrinsic variables */
	/* Note!!! For Macro MAKE_VARIABLE below to work, SLANG_IVARIABLE Must		/* Note!!! For Macro MAKE_VARIABLE below to work, SLANG_IVARIABLE Must
	be 1 less than SLANG_RVARIABLE!!! */		be 1 less than SLANG_RVARIABLE!!! */
	#define SLANG_RVARIABLE 0x04 /* read only variable */		#define SLANG_RVARIABLE 0x04 /* read only variable */
	#define SLANG_INTRINSIC 0x05		#define SLANG_INTRINSIC 0x05
	#define SLANG_FUNCTION 0x06		#define SLANG_FUNCTION 0x06
	#define SLANG_MATH_UNARY 0x07		#define SLANG_MATH_UNARY 0x07
	#define SLANG_APP_UNARY 0x08		#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 */		/* Rest of fields depend on name type */
	}		}
	SLang_Name_Type;		SLang_Name_Type;
	typedef struct		typedef struct
	{		{
	char *name;		char *name;
	struct _SLang_Name_Type *next; /* this is for the hash table */		struct _SLang_Name_Type *next; /* this is for the hash table */
	char name_type;		char name_type;
	FVOID_STAR i_fun; /* address of object */		FVOID_STAR i_fun; /* address of object */
	/* Do not change this without modifying slang.c:execute_intrinsic_fun */		/* Do not change this without modifying slang.c:execute_intrinsic_fun */
	#define SLANG_MAX_INTRIN_ARGS 7		#define SLANG_MAX_INTRIN_ARGS 7
	unsigned char arg_types [SLANG_MAX_INTRIN_ARGS];		SLtype arg_types [SLANG_MAX_INTRIN_ARGS];
	unsigned char num_args;		unsigned char num_args;
	unsigned char return_type;		SLtype return_type;
	}		}
	SLang_Intrin_Fun_Type;		SLang_Intrin_Fun_Type;
	typedef struct		typedef struct
	{		{
	char *name;		char *name;
	SLang_Name_Type *next;		SLang_Name_Type *next;
	char name_type;		char name_type;
	VOID_STAR addr;		VOID_STAR addr;
	unsigned char type;		SLtype type;
	}		}
	SLang_Intrin_Var_Type;		SLang_Intrin_Var_Type;
	typedef struct		typedef struct
	{		{
	char *name;		char *name;
	SLang_Name_Type *next;		SLang_Name_Type *next;
	char name_type;		char name_type;
	int unary_op;		int unary_op;
	skipping to change at line 218		skipping to change at line 238
	typedef struct		typedef struct
	{		{
	char *name;		char *name;
	SLang_Name_Type *next;		SLang_Name_Type *next;
	char name_type;		char name_type;
	int unary_op;		int unary_op;
	}		}
	SLang_Math_Unary_Type;		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-t
			ime */
			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_fun_table (SLang_Intrin_Fun_Type *, char *);
	extern int SLadd_intrin_var_table (SLang_Intrin_Var_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_app_unary_table (SLang_App_Unary_Type *, char *);
	extern int SLadd_math_unary_table (SLang_Math_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_Unar
			y_Type *, char *);
			extern int SLns_add_math_unary_table (SLang_NameSpace_Type *, SLang_Math_Un
			ary_Type *, char *);
			extern int SLns_add_iconstant_table (SLang_NameSpace_Type *, SLang_IConstan
			t_Type *, char *);
			extern int SLns_add_dconstant_table (SLang_NameSpace_Type *, SLang_DConstan
			t_Type *, char *);
			extern int SLns_add_istruct_table (SLang_NameSpace_Type *, SLang_IStruct_Fi
			eld_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		typedef struct SLang_Load_Type
	{		{
	int type;		int type;
	VOID_STAR client_data;		VOID_STAR client_data;
	/* Pointer to data that client needs for loading */		/* Pointer to data that client needs for loading */
	int auto_declare_globals;		int auto_declare_globals;
	/* if non-zero, undefined global variables are declared */		/* if non-zero, undefined global variables are declared as static */
	char *(*read)(struct SLang_Load_Type *);		char *(*read)(struct SLang_Load_Type *);
	/* function to call to read next line from obj. */		/* function to call to read next line from obj. */
	unsigned int line_num;		unsigned int line_num;
	/* Number of lines read, used for error reporting */		/* Number of lines read, used for error reporting */
	int parse_level;		int parse_level;
	/* 0 if at top level of parsing */		/* 0 if at top level of parsing */
	char *name;		char *name;
	/* Name of this object, e.g., filename */		/* Name of this object, e.g., filename. This name should be unique beca
			use
			* it alone determines the name space for static objects associated with
			* the compilable unit.
			*/
	unsigned long reserved[4];		char *namespace_name;
			unsigned long reserved[3];
	/* For future expansion */		/* For future expansion */
	} SLang_Load_Type;		} SLang_Load_Type;
	extern SLang_Load_Type *SLallocate_load_type (char *);		extern SLang_Load_Type *SLallocate_load_type (char *);
	extern void SLdeallocate_load_type (SLang_Load_Type *);		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_object (SLang_Load_Type *);
	extern int (*SLang_Load_File_Hook)(char *);		extern int (*SLang_Load_File_Hook)(char *);
			extern int (*SLang_Auto_Declare_Var_Hook) (char *);
	/* Returns SLang_Error upon failure */		extern int SLang_generate_debug_info (int);
	#if defined(ultrix) && !defined(__GNUC__)		#if defined(ultrix) && !defined(__GNUC__)
	# ifndef NO_PROTOTYPES		# ifndef NO_PROTOTYPES
	# define NO_PROTOTYPES		# define NO_PROTOTYPES
	# endif		# endif
	#endif		#endif
	#ifndef NO_PROTOTYPES		#ifndef NO_PROTOTYPES
	# define _PROTO(x) x		# define _PROTO(x) x
	#else		#else
	# define _PROTO(x) ()		# define _PROTO(x) ()
	#endif		#endif
	typedef struct SL_OOBinary_Type		typedef struct SL_OOBinary_Type
	{		{
	unsigned char data_type; /* partner type for binary op */		SLtype data_type; /* partner type for binary op */
	int (*binary_function)_PROTO((int,		int (*binary_function)_PROTO((int,
	unsigned char, VOID_STAR, unsigned int,		SLtype, VOID_STAR, unsigned int,
	unsigned char, VOID_STAR, unsigned int,		SLtype, VOID_STAR, unsigned int,
	VOID_STAR));		VOID_STAR));
	int (*binary_result) _PROTO((int, unsigned char, unsigned char, unsigned char *));		int (*binary_result) _PROTO((int, SLtype, SLtype, SLtype *));
	struct SL_OOBinary_Type *next;		struct SL_OOBinary_Type *next;
	}		}
	SL_OOBinary_Type;		SL_OOBinary_Type;
	typedef struct _SL_Typecast_Type		typedef struct _SL_Typecast_Type
	{		{
	unsigned char data_type; /* to_type */		SLtype data_type; /* to_type */
	int allow_implicit;		int allow_implicit;
	int (*typecast)_PROTO((unsigned char, VOID_STAR, unsigned int,		int (*typecast)_PROTO((SLtype, VOID_STAR, unsigned int,
	unsigned char, VOID_STAR));		SLtype, VOID_STAR));
	struct _SL_Typecast_Type *next;		struct _SL_Typecast_Type *next;
	}		}
	SL_Typecast_Type;		SL_Typecast_Type;
	#ifdef _SLANG_SOURCE_
	typedef struct _SLang_Struct_Type SLang_Struct_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		#else
	typedef int SLang_Struct_Type;		typedef int SLang_Foreach_Context_Type;
			#endif
	#endif		#endif
	typedef struct		typedef struct
	{		{
	unsigned char cl_class_type;		unsigned char cl_class_type;
	#define SLANG_CLASS_TYPE_MMT 0		#define SLANG_CLASS_TYPE_MMT 0
	#define SLANG_CLASS_TYPE_SCALAR 1		#define SLANG_CLASS_TYPE_SCALAR 1
	#define SLANG_CLASS_TYPE_VECTOR 2		#define SLANG_CLASS_TYPE_VECTOR 2
	#define SLANG_CLASS_TYPE_PTR 3		#define SLANG_CLASS_TYPE_PTR 3
	unsigned int cl_data_type; /* SLANG_INTEGER_TYPE, etc... */		unsigned int cl_data_type; /* SLANG_INTEGER_TYPE, etc... */
	char *cl_name; /* slstring type */		char *cl_name; /* slstring type */
	unsigned int cl_sizeof_type;		unsigned int cl_sizeof_type;
	VOID_STAR cl_transfer_buf; /* cl_sizeof_type bytes*/		VOID_STAR cl_transfer_buf; /* cl_sizeof_type bytes*/
	/* Methods */		/* Methods */
	/* Most of the method functions are prototyped:		/* Most of the method functions are prototyped:
	* int method (unsigned char type, VOID_STAR addr);		* int method (SLtype type, VOID_STAR addr);
	* Here, @type@ represents the type of object that the method is asked		* Here, @type@ represents the type of object that the method is asked
	* to deal with. The second parameter @addr@ will contain the ADDRESS o f		* to deal with. The second parameter @addr@ will contain the ADDRESS o f
	* the object. For example, if type is SLANG_INT_TYPE, then @addr@ will		* the object. For example, if type is SLANG_INT_TYPE, then @addr@ will
	* actually be int *. Similary, if type is SLANG_STRING_TYPE,		* actually be int *. Similary, if type is SLANG_STRING_TYPE,
	* then @addr@ will contain the address of the string, i.e., char **.		* then @addr@ will contain the address of the string, i.e., char **.
	*/		*/
	void (*cl_destroy)_PROTO((unsigned char, VOID_STAR));		void (*cl_destroy)_PROTO((SLtype, VOID_STAR));
	/* Prototype: void destroy(unsigned type, VOID_STAR val)		/* Prototype: void destroy(unsigned type, VOID_STAR val)
	* Called to delete/free the object */		* Called to delete/free the object */
	char *(*cl_string)_PROTO((unsigned char, VOID_STAR));		char *(*cl_string)_PROTO((SLtype, VOID_STAR));
	/* Prototype: char *to_string (unsigned char t, VOID_STAR p);		/* Prototype: char *to_string (SLtype t, VOID_STAR p);
	* Here p is a pointer to the object for which a string representation		* 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.		* is to be returned. The returned pointer is to be a MALLOCED string.
	*/		*/
	/* Prototype: void push(unsigned char type, VOID_STAR v);		/* Prototype: void push(SLtype type, VOID_STAR v);
	* Push a copy of the object of type @type@ at address @v@ onto the		* Push a copy of the object of type @type@ at address @v@ onto the
	* stack.		* stack.
	*/		*/
	int (*cl_push)_PROTO((unsigned char, VOID_STAR));		int (*cl_push)_PROTO((SLtype, VOID_STAR));
	/* Prototype: int pop(unsigned char type, VOID_STAR v);		/* Prototype: int pop(SLtype type, VOID_STAR v);
	* Pops value from stack and assign it to object, whose address is @v@.		* Pops value from stack and assign it to object, whose address is @v@.
	*/		*/
	int (*cl_pop)_PROTO((unsigned char, VOID_STAR));		int (*cl_pop)_PROTO((SLtype, VOID_STAR));
	int (*cl_unary_op_result_type)_PROTO((int, unsigned char, unsigned char		int (*cl_unary_op_result_type)_PROTO((int, SLtype, SLtype *));
	*));		int (*cl_unary_op)_PROTO((int, SLtype, VOID_STAR, unsigned int, VOID_STA
	int (*cl_unary_op)_PROTO((int, unsigned char, VOID_STAR, unsigned int, V		R));
	OID_STAR));
	int (*cl_app_unary_op_result_type)_PROTO((int, unsigned char, unsigned c		int (*cl_app_unary_op_result_type)_PROTO((int, SLtype, SLtype *));
	har *));		int (*cl_app_unary_op)_PROTO((int, SLtype, VOID_STAR, unsigned int, VOID
	int (*cl_app_unary_op)_PROTO((int, unsigned char, VOID_STAR, unsigned in		_STAR));
	t, VOID_STAR));
	/* If this function is non-NULL, it will be called for sin, cos, etc... */		/* If this function is non-NULL, it will be called for sin, cos, etc... */
	#define SLMATH_SIN 1		#define SLMATH_SIN 1
	#define SLMATH_COS 2		#define SLMATH_COS 2
	#define SLMATH_TAN 3		#define SLMATH_TAN 3
	#define SLMATH_ATAN 4		#define SLMATH_ATAN 4
	#define SLMATH_ASIN 5		#define SLMATH_ASIN 5
	#define SLMATH_ACOS 6		#define SLMATH_ACOS 6
	#define SLMATH_EXP 7		#define SLMATH_EXP 7
	#define SLMATH_LOG 8		#define SLMATH_LOG 8
	skipping to change at line 371		skipping to change at line 463
	#define SLMATH_LOG10 10		#define SLMATH_LOG10 10
	#define SLMATH_REAL 11		#define SLMATH_REAL 11
	#define SLMATH_IMAG 12		#define SLMATH_IMAG 12
	#define SLMATH_SINH 13		#define SLMATH_SINH 13
	#define SLMATH_COSH 14		#define SLMATH_COSH 14
	#define SLMATH_TANH 15		#define SLMATH_TANH 15
	#define SLMATH_ATANH 16		#define SLMATH_ATANH 16
	#define SLMATH_ASINH 17		#define SLMATH_ASINH 17
	#define SLMATH_ACOSH 18		#define SLMATH_ACOSH 18
	#define SLMATH_TODOUBLE 19		#define SLMATH_TODOUBLE 19
			#define SLMATH_CONJ 20
	int (*cl_math_op)_PROTO((int, unsigned char, VOID_STAR, unsigned int, VO		int (*cl_math_op)_PROTO((int, SLtype, VOID_STAR, unsigned int, VOID_STAR
	ID_STAR));		));
	int (*cl_math_op_result_type)_PROTO((int, unsigned char, unsigned char *		int (*cl_math_op_result_type)_PROTO((int, SLtype, SLtype *));
	));
	SL_OOBinary_Type *cl_binary_ops;		SL_OOBinary_Type *cl_binary_ops;
	SL_Typecast_Type *cl_typecast_funs;		SL_Typecast_Type *cl_typecast_funs;
	void (*cl_byte_code_destroy)_PROTO((unsigned char, VOID_STAR));		void (*cl_byte_code_destroy)_PROTO((SLtype, VOID_STAR));
	void (*cl_user_destroy_fun)_PROTO((unsigned char, VOID_STAR));		void (*cl_user_destroy_fun)_PROTO((SLtype, VOID_STAR));
	int (*cl_init_array_object)_PROTO((unsigned char, VOID_STAR));		int (*cl_init_array_object)_PROTO((SLtype, VOID_STAR));
	int (*cl_datatype_deref)_PROTO((unsigned char));		int (*cl_datatype_deref)_PROTO((SLtype));
	SLang_Struct_Type *cl_struct_def;		SLang_Struct_Type *cl_struct_def;
	int (*cl_dereference) _PROTO((unsigned char, VOID_STAR));		int (*cl_dereference) _PROTO((SLtype, VOID_STAR));
	int (*cl_acopy) (unsigned char, VOID_STAR, VOID_STAR);		int (*cl_acopy) (SLtype, VOID_STAR, VOID_STAR);
	int (*cl_apop) _PROTO((unsigned char, VOID_STAR));		int (*cl_apop) _PROTO((SLtype, VOID_STAR));
	int (*cl_apush) _PROTO((unsigned char, VOID_STAR));		int (*cl_apush) _PROTO((SLtype, VOID_STAR));
	int (*cl_push_literal) _PROTO((unsigned char, VOID_STAR));		int (*cl_push_literal) _PROTO((SLtype, VOID_STAR));
	void (*cl_adestroy)_PROTO((unsigned char, VOID_STAR));		void (*cl_adestroy)_PROTO((SLtype, VOID_STAR));
	int (*cl_push_intrinsic)_PROTO((unsigned char, VOID_STAR));		int (*cl_push_intrinsic)_PROTO((SLtype, VOID_STAR));
	int (*cl_void_typecast)_PROTO((unsigned char, VOID_STAR, unsigned int, u		int (*cl_void_typecast)_PROTO((SLtype, VOID_STAR, unsigned int, SLtype,
	nsigned char, VOID_STAR));		VOID_STAR));
			int (*cl_anytype_typecast)_PROTO((SLtype, VOID_STAR, unsigned int, SLtyp
			e, 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;		} 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 SLang_Class_Type *SLclass_allocate_class (char *);
	extern int SLclass_register_class (SLang_Class_Type *, unsigned char, unsig		extern int SLclass_get_class_id (SLang_Class_Type *cl);
	ned int, unsigned char);		extern int SLclass_create_synonym (char *, SLtype);
	extern int SLclass_set_string_function (SLang_Class_Type *, char *(*)(unsig		extern int SLclass_is_class_defined (SLtype);
	ned char, VOID_STAR));		extern int SLclass_dup_object (SLtype type, VOID_STAR from, VOID_STAR to);
	extern int SLclass_set_destroy_function (SLang_Class_Type *, void (*)(unsig
	ned char, VOID_STAR));
	extern int SLclass_set_push_function (SLang_Class_Type *, int (*)(unsigned
	char, VOID_STAR));
	extern int SLclass_set_pop_function (SLang_Class_Type *, int (*)(unsigned c
	har, VOID_STAR));
	extern int SLclass_add_unary_op (unsigned char,		extern int SLclass_register_class (SLang_Class_Type *, SLtype, unsigned int
			, SLtype);
			extern int SLclass_set_string_function (SLang_Class_Type *, char *(*)(SLtyp
			e, VOID_STAR));
			extern int SLclass_set_destroy_function (SLang_Class_Type *, void (*)(SLtyp
			e, VOID_STAR));
			extern int SLclass_set_push_function (SLang_Class_Type *, int (*)(SLtype, V
			OID_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, VO
			ID_STAR));
			extern int SLclass_set_aget_function (SLang_Class_Type *, int (*)(SLtype, u
			nsigned int));
			extern int SLclass_set_aput_function (SLang_Class_Type *, int (*)(SLtype, u
			nsigned int));
			extern int SLclass_set_anew_function (SLang_Class_Type *, int (*)(SLtype, u
			nsigned int));
			extern int SLclass_set_sget_function (SLang_Class_Type *, int (*)(SLtype, c
			har *));
			extern int SLclass_set_sput_function (SLang_Class_Type *, int (*)(SLtype, c
			har *));
			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,		int (*) (int,
	unsigned char, VOID_STAR, unsigned int,		SLtype, VOID_STAR, unsigned int,
	VOID_STAR),		VOID_STAR),
	int (*) (int, unsigned char, unsigned char *));		int (*) (int, SLtype, SLtype *));
	extern int		extern int
	SLclass_add_app_unary_op (unsigned char,		SLclass_add_app_unary_op (SLtype,
	int (*) (int,		int (*) (int,
	unsigned char, VOID_STAR, unsigned int,		SLtype, VOID_STAR, unsigned int,
	VOID_STAR),		VOID_STAR),
	int (*) (int, unsigned char, unsigned char *));		int (*) (int, SLtype, SLtype *));
	extern int		extern int
	SLclass_add_binary_op (unsigned char, unsigned char,		SLclass_add_binary_op (SLtype, SLtype,
	int (*) (int,		int (*) (int,
	unsigned char, VOID_STAR, unsigned int,		SLtype, VOID_STAR, unsigned int,
	unsigned char, VOID_STAR, unsigned int,		SLtype, VOID_STAR, unsigned int,
	VOID_STAR),		VOID_STAR),
	int (*) (int, unsigned char, unsigned char, unsigned char *));		int (*) (int, SLtype, SLtype, SLtype *));
	extern int		extern int
	SLclass_add_math_op (unsigned char,		SLclass_add_math_op (SLtype,
	int (*)(int,		int (*)(int,
	unsigned char, VOID_STAR, unsigned int,		SLtype, VOID_STAR, unsigned int,
	VOID_STAR),		VOID_STAR),
	int (*)(int, unsigned char, unsigned char *));		int (*)(int, SLtype, SLtype *));
	extern int		extern int
	SLclass_add_typecast (unsigned char /* from */, unsigned char /* to */,		SLclass_add_typecast (SLtype /* from */, SLtype /* to */,
	int (*)_PROTO((unsigned char, VOID_STAR, unsigned int,		int (*)_PROTO((SLtype, VOID_STAR, unsigned int,
	unsigned char, VOID_STAR)),		SLtype, VOID_STAR)),
	int /* allow implicit typecasts */		int /* allow implicit typecasts */
	);		);
	extern char *SLclass_get_datatype_name (unsigned char);		extern char *SLclass_get_datatype_name (SLtype);
	extern double SLcomplex_abs (double *);		extern double SLcomplex_abs (double *);
	extern double *SLcomplex_times (double *, double *, double *);		extern double *SLcomplex_times (double *, double *, double *);
	extern double *SLcomplex_divide (double *, double *, double *);		extern double *SLcomplex_divide (double *, double *, double *);
	extern double *SLcomplex_sin (double *, double *);		extern double *SLcomplex_sin (double *, double *);
	extern double *SLcomplex_cos (double *, double *);		extern double *SLcomplex_cos (double *, double *);
	extern double *SLcomplex_tan (double *, double *);		extern double *SLcomplex_tan (double *, double *);
	extern double *SLcomplex_asin (double *, double *);		extern double *SLcomplex_asin (double *, double *);
	extern double *SLcomplex_acos (double *, double *);		extern double *SLcomplex_acos (double *, double *);
	extern double *SLcomplex_atan (double *, double *);		extern double *SLcomplex_atan (double *, double *);
	skipping to change at line 469		skipping to change at line 628
	extern double *SLcomplex_atanh (double *, double *);		extern double *SLcomplex_atanh (double *, double *);
	#ifdef _SLANG_SOURCE_		#ifdef _SLANG_SOURCE_
	typedef struct _SLang_MMT_Type SLang_MMT_Type;		typedef struct _SLang_MMT_Type SLang_MMT_Type;
	#else		#else
	typedef int SLang_MMT_Type;		typedef int SLang_MMT_Type;
	#endif		#endif
	extern void SLang_free_mmt (SLang_MMT_Type *);		extern void SLang_free_mmt (SLang_MMT_Type *);
	extern VOID_STAR SLang_object_from_mmt (SLang_MMT_Type *);		extern VOID_STAR SLang_object_from_mmt (SLang_MMT_Type *);
	extern SLang_MMT_Type *SLang_create_mmt (unsigned char, VOID_STAR);		extern SLang_MMT_Type *SLang_create_mmt (SLtype, VOID_STAR);
	extern int SLang_push_mmt (SLang_MMT_Type *);		extern int SLang_push_mmt (SLang_MMT_Type *);
	extern SLang_MMT_Type *SLang_pop_mmt (unsigned char);		extern SLang_MMT_Type *SLang_pop_mmt (SLtype);
	extern void SLang_inc_mmt (SLang_MMT_Type *);		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 clie
			ntdata);
			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 */		/*{{{ Interpreter Function Prototypes */
	extern volatile int SLang_Error;		extern volatile int SLang_Error;
	/* Non zero if error occurs. Must be reset to zero to continue. */		/* Non zero if error occurs. Must be reset to zero to continue. */
	/* error codes, severe errors are less than 0 */		/* error codes, severe errors are less than 0 */
	#define SL_NOT_IMPLEMENTED -1
	#define SL_APPLICATION_ERROR -2		#define SL_APPLICATION_ERROR -2
	#define SL_VARIABLE_UNINITIALIZED -3		#define SL_VARIABLE_UNINITIALIZED -3
	#define SL_MALLOC_ERROR -4
	#define SL_INTERNAL_ERROR -5		#define SL_INTERNAL_ERROR -5
	#define SL_STACK_OVERFLOW -6		#define SL_STACK_OVERFLOW -6
	#define SL_STACK_UNDERFLOW -7		#define SL_STACK_UNDERFLOW -7
	#define SL_UNDEFINED_NAME -8		#define SL_UNDEFINED_NAME -8
	#define SL_SYNTAX_ERROR -9		#define SL_SYNTAX_ERROR -9
	#define SL_DUPLICATE_DEFINITION -10		#define SL_DUPLICATE_DEFINITION -10
	#define SL_TYPE_MISMATCH -11		#define SL_TYPE_MISMATCH -11
	#define SL_READONLY_ERROR -12
	#define SL_OBJ_UNKNOWN -13		#define SL_OBJ_UNKNOWN -13
	#define SL_UNKNOWN_ERROR -14		#define SL_UNKNOWN_ERROR -14
	#define SL_INVALID_PARM -15
	#define SL_TYPE_UNDEFINED_OP_ERROR -16		#define SL_TYPE_UNDEFINED_OP_ERROR -16
	#define SL_INTRINSIC_ERROR 1		#define SL_INTRINSIC_ERROR 1
	/* Intrinsic error is an error generated by intrinsic functions */		/* Intrinsic error is an error generated by intrinsic functions */
	#define SL_USER_BREAK 2		#define SL_USER_BREAK 2
	#define SL_DIVIDE_ERROR 3		#define SL_DIVIDE_ERROR 3
	#define SL_OBJ_NOPEN 4		#define SL_OBJ_NOPEN 4
	#define SL_USER_ERROR 5		#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 */		/* Compatibility */
	#define USER_BREAK SL_USER_BREAK		#define USER_BREAK SL_USER_BREAK
	#define INTRINSIC_ERROR SL_INTRINSIC_ERROR		#define INTRINSIC_ERROR SL_INTRINSIC_ERROR
	extern int SLang_Traceback;		extern int SLang_Traceback;
	/* If non-zero, dump an S-Lang traceback upon error. Available as		/* If non-zero, dump an S-Lang traceback upon error. Available as
	_traceback in S-Lang. */		_traceback in S-Lang. */
	extern char *SLang_User_Prompt;		extern char *SLang_User_Prompt;
	/* Prompt to use when reading from stdin */		/* Prompt to use when reading from stdin */
	extern int SLang_Version;		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_Hook) (char *, va_list);
	extern void SLang_vmessage (char *, ...);		extern void SLang_vmessage (char *, ...) _SLATTRIBUTE_PRINTF(1,2);
	extern void (*SLang_Error_Hook)(char *);		extern void (*SLang_Error_Hook)(char *);
	/* Pointer to application dependent error messaging routine. By default,		/* Pointer to application dependent error messaging routine. By default,
	messages are displayed on stderr. */		messages are displayed on stderr. */
	extern void (*SLang_Exit_Error_Hook)(char *, va_list);		extern void (*SLang_Exit_Error_Hook)(char *, va_list);
	extern void SLang_exit_error (char *, ...);		extern void SLang_exit_error (char *, ...) _SLATTRIBUTE_((format (printf, 1 , 2), noreturn));
	extern void (*SLang_Dump_Routine)(char *);		extern void (*SLang_Dump_Routine)(char *);
	/* Called if S-Lang traceback is enabled as well as other debugging		/* Called if S-Lang traceback is enabled as well as other debugging
	routines (e.g., trace). By default, these messages go to stderr. */		routines (e.g., trace). By default, these messages go to stderr. */
	extern void (*SLang_Interrupt)(void);		extern void (*SLang_Interrupt)(void);
	/* function to call whenever inner interpreter is entered. This is		/* function to call whenever inner interpreter is entered. This is
	a good place to set SLang_Error to USER_BREAK. */		a good place to set SLang_Error to USER_BREAK. */
	extern void (*SLang_User_Clear_Error)(void);		extern void (*SLang_User_Clear_Error)(void);
	/* function that gets called when '_clear_error' is called. */		/* function that gets called when '_clear_error' is called. */
	/* If non null, these call C functions before and after a slang function. */		/* If non null, these call C functions before and after a slang function. */
	extern void (*SLang_Enter_Function)(char *);		extern void (*SLang_Enter_Function)(char *);
	extern void (*SLang_Exit_Function)(char *);		extern void (*SLang_Exit_Function)(char *);
	extern int SLang_Num_Function_Args;		extern int SLang_Num_Function_Args;
	/* Functions: */		/* Functions: */
	extern int SLang_init_slang (void);		extern int SLang_init_all (void);
	/* This function is mandatory and must be called by all applications tha		/* Initializes interpreter and all modules */
	t
	* use the interpreter		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 intrinsic
			s */
			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_slfile (void);
	/* called if fputs, fgets, etc are need in S-Lang */
	extern int SLang_init_slmath (void);
	/* called if math functions sin, cos, etc... are needed. */
	extern int SLang_init_slunix (void);		extern int SLang_init_slunix (void);
	/* unix system functions chmod, stat, etc... */		/* 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 *);		extern int SLang_load_file (char *);
	/* Load a file of S-Lang code for interpreting. If the parameter is		/* Load a file of S-Lang code for interpreting. If the parameter is
	* NULL, input comes from stdin. */		* NULL, input comes from stdin. */
	extern void SLang_restart(int);		extern void SLang_restart(int);
	/* should be called if an error occurs. If the passed integer is		/* should be called if an error occurs. If the passed integer is
	* non-zero, items are popped off the stack; otherwise, the stack 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 rout ine		* left intact. Any time the stack is believed to be trashed, this rout ine
	* should be called with a non-zero argument (e.g., if setjmp/longjmp is		* should be called with a non-zero argument (e.g., if setjmp/longjmp is
	skipping to change at line 584		skipping to change at line 834
	is also available via S-Lang */		is also available via S-Lang */
	extern int SLang_load_string(char *);		extern int SLang_load_string(char *);
	/* Like SLang_load_file except input is from a null terminated string. * /		/* Like SLang_load_file except input is from a null terminated string. * /
	extern int SLdo_pop(void);		extern int SLdo_pop(void);
	/* pops item off stack and frees any memory associated with it */		/* pops item off stack and frees any memory associated with it */
	extern int SLdo_pop_n(unsigned int);		extern int SLdo_pop_n(unsigned int);
	/* pops n items off stack and frees any memory associated with them */		/* pops n items off stack and frees any memory associated with them */
	extern int SLang_pop_integer(int *);		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		/* 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.		* 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 SLpop_string (char **);
	extern int SLang_pop_string(char **, int *);		extern int SLang_pop_string(char **, int *);
	/* pops string *p0 from stack. If *p1 is non-zero, the string must be		/* 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		* freed after its use. DO NOT FREE p0 if *p1 IS ZERO! Returns 0 upon
	* success */		* success */
	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 SLang_push_complex (double, double);		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);		extern int SLang_push_double(double);
	/* Push double onto stack */		/* Push double onto stack */
	extern int SLang_push_string(char *);		extern int SLang_push_string(char *);
	/* Push string p1 onto stack */		/* Push string p1 onto stack */
	extern int SLang_push_integer(int);
	/* push integer p1 on stack */
	extern int SLang_push_malloced_string(char *);		extern int SLang_push_malloced_string(char *);
	/* The normal SLang_push_string mallocs space for the string. This one		/* The normal SLang_push_string pushes an slstring. This one converts
	* does not. DO NOT FREE IT IF YOU USE THIS ROUTINE. Also do not		* a normally malloced string to an slstring, and then frees the
	* use this routine if the string was a product of SLcreate_string.		* malloced string. So, do NOT use the malloced string after calling
	* If -1 is returned, it failed and the original string is not freed.		* 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_push_null (void);
	extern int SLang_pop_null (void);		extern int SLang_pop_null (void);
	extern int SLang_push_value (unsigned char type, VOID_STAR);		extern int SLang_push_value (SLtype type, VOID_STAR);
	extern int SLang_pop_value (unsigned char type, VOID_STAR);		extern int SLang_pop_value (SLtype type, VOID_STAR);
	extern void SLang_free_value (unsigned char 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_		#ifdef _SLANG_SOURCE_
	typedef struct _SLang_Ref_Type SLang_Ref_Type;		typedef struct _SLang_Ref_Type SLang_Ref_Type;
	#else		#else
	typedef int SLang_Ref_Type;		typedef int SLang_Ref_Type;
	#endif		#endif
	extern int SLang_pop_ref (SLang_Ref_Type **);		extern int SLang_pop_ref (SLang_Ref_Type **);
	extern void SLang_free_ref (SLang_Ref_Type *);		extern void SLang_free_ref (SLang_Ref_Type *);
	extern int SLang_assign_to_ref (SLang_Ref_Type *, unsigned char, VOID_STAR)		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 *);		extern int SLang_is_defined(char *);
	/* Return non-zero is p1 is defined otherwise returns 0. */		/* Return non-zero is p1 is defined otherwise returns 0. */
	extern int SLang_run_hooks(char *, unsigned int, ...);		extern int SLang_run_hooks(char *, unsigned int, ...);
	/* calls S-Lang function p1 pushing p2 strings in the variable argument		/* calls S-Lang function p1 pushing p2 strings in the variable argument
	* list onto the stack first.		* list onto the stack first.
	* Returns -1 upon error, 1 if hooks exists and it ran,		* 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 ca lled.		* or 0 if hook does not exist. Thus it returns non-zero is hook was ca lled.
	*/		*/
			/* These functions return 1 if the indicated function exists and the functi
			on
			* runs without error. If the function does not exist, the function return
			s
			* 0. Otherwise -1 is returned with SLang_Error set appropriately.
			*/
	extern int SLexecute_function (SLang_Name_Type *);		extern int SLexecute_function (SLang_Name_Type *);
	extern int SLang_execute_function(char *);		extern int SLang_execute_function(char *);
	extern int SLang_end_arg_list (void);		extern int SLang_end_arg_list (void);
	extern int SLang_start_arg_list (void);		extern int SLang_start_arg_list (void);
	extern void SLang_verror (int, char *, ...);		extern void SLang_verror (int, char *, ...) _SLATTRIBUTE_PRINTF(2,3);
	extern void SLang_doerror(char *);		extern void SLang_doerror(char *);
	/* set SLang_Error and display p1 as error message */		/* set SLang_Error and display p1 as error message */
	extern int SLang_add_intrinsic_array (char *, /* name */		extern int SLang_add_intrinsic_array (char *, /* name */
	unsigned char, /* type */		SLtype, /* type */
	int, /* readonly */		int, /* readonly */
	VOID_STAR, /* data */		VOID_STAR, /* data */
	unsigned int, ...); /* num dims */		unsigned int, ...); /* num dims */
	extern int SLextract_list_element (char *, unsigned int, char,		extern int SLextract_list_element (char *, unsigned int, char,
	char *, unsigned int);		char *, unsigned int);
	extern void SLexpand_escaped_string (register char *, register char *,		extern void SLexpand_escaped_string (register char *, register char *,
	register char *);		register char *);
	extern SLang_Name_Type *SLang_get_function (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);		extern int SLang_peek_at_stack (void);
	/* Returns type of next object on stack-- -1 upon stack underflow. */		/* Returns type of next object on stack-- -1 upon stack underflow. */
	extern void SLmake_lut (unsigned char *, unsigned char *, unsigned char);		extern void SLmake_lut (unsigned char *, unsigned char *, unsigned char);
	extern int SLang_guess_type (char *);		extern int SLang_guess_type (char *);
			extern int SLstruct_create_struct (unsigned int,
			char **,
			SLtype *,
			VOID_STAR *);
	/*}}}*/		/*}}}*/
	/*{{{ Misc Functions */		/*{{{ Misc Functions */
			/* This is an interface to atexit */
			extern int SLang_add_cleanup_function (void (*)(void));
	extern char *SLmake_string (char *);		extern char *SLmake_string (char *);
	extern char *SLmake_nstring (char *, unsigned int);		extern char *SLmake_nstring (char *, unsigned int);
	/* Returns a null terminated string made from the first n characters of the		/* Returns a null terminated string made from the first n characters of the
	* string.		* string.
	*/		*/
	/* The string created by this routine must be freed by SLang_free_slstring		/* The string created by this routine must be freed by SLang_free_slstring
	* and nothing else!! Also these strings must not be modified. Use		* and nothing else!! Also these strings must not be modified. Use
	* SLmake_string if you intend to modify them!!		* SLmake_string if you intend to modify them!!
	*/		*/
	extern char *SLang_create_nslstring (char *, unsigned int);		extern char *SLang_create_nslstring (char *, unsigned int);
	extern char *SLang_create_slstring (char *);		extern char *SLang_create_slstring (char *);
	extern void SLang_free_slstring (char *); /* handles NULL */		extern void SLang_free_slstring (char *); /* handles NULL */
	extern int SLang_pop_slstring (char **); /* free with SLang_free_slstring */		extern int SLang_pop_slstring (char **); /* free with SLang_free_slstring */
	extern char *SLang_concat_slstrings (char *a, char *b);		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 char *SLang_create_static_slstring (char *); /* adds a string that will not get deleted */
	extern void SLstring_dump_stats (void);		extern void SLstring_dump_stats (void);
			/* Binary strings */
			/* The binary string is an opaque type. Use the SLbstring_get_pointer func
			tion
			* 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 *, unsi
			gned 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 *SLmalloc (unsigned int);
	extern char *SLcalloc (unsigned int, unsigned int);		extern char *SLcalloc (unsigned int, unsigned int);
	extern void SLfree(char *); /* This function handles NULL */		extern void SLfree(char *); /* This function handles NULL */
	extern char *SLrealloc (char *, unsigned int);		extern char *SLrealloc (char *, unsigned int);
	extern char *SLcurrent_time_string (void);		extern char *SLcurrent_time_string (void);
	extern int SLatoi(unsigned char *);		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 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 */		/*{{{ SLang getkey interface Functions */
	#ifdef REAL_UNIX_SYSTEM		#ifdef REAL_UNIX_SYSTEM
	extern int SLang_TT_Baud_Rate;		extern int SLang_TT_Baud_Rate;
	extern int SLang_TT_Read_FD;		extern int SLang_TT_Read_FD;
	#endif		#endif
	skipping to change at line 821		skipping to change at line 1171
	/* This is arbitrary but I have got to start somewhere */		/* This is arbitrary but I have got to start somewhere */
	#define SLANG_MAX_KEYMAPS 30		#define SLANG_MAX_KEYMAPS 30
	extern SLKeyMap_List_Type SLKeyMap_List[SLANG_MAX_KEYMAPS];		extern SLKeyMap_List_Type SLKeyMap_List[SLANG_MAX_KEYMAPS];
	extern char *SLang_process_keystring(char *);		extern char *SLang_process_keystring(char *);
	extern int SLkm_define_key (char *, FVOID_STAR, SLKeyMap_List_Type *);		extern int SLkm_define_key (char *, FVOID_STAR, SLKeyMap_List_Type *);
	extern int SLang_define_key(char *, char *, 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 wit h		/* Like define_key1 except that p2 is a string that is to be associated wit h
	* a function in the functions field of p3. This routine calls define_key1 .		* a function in the functions field of p3.
	*/		*/
	extern int SLkm_define_keysym (char *, unsigned int, SLKeyMap_List_Type *);		extern int SLkm_define_keysym (char *, unsigned int, SLKeyMap_List_Type *);
	extern void SLang_undefine_key(char *, SLKeyMap_List_Type *);		extern void SLang_undefine_key(char *, SLKeyMap_List_Type *);
	extern SLKeyMap_List_Type *SLang_create_keymap(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		/* 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		* keymap p2. If p2 is NULL, it is up to the calling routine to initialize
	* the keymap.		* the keymap.
	skipping to change at line 927		skipping to change at line 1277
	/*}}}*/		/*}}}*/
	/*{{{ Low Level Screen Output Interface */		/*{{{ Low Level Screen Output Interface */
	extern unsigned long SLtt_Num_Chars_Output;		extern unsigned long SLtt_Num_Chars_Output;
	extern int SLtt_Baud_Rate;		extern int SLtt_Baud_Rate;
	typedef unsigned long SLtt_Char_Type;		typedef unsigned long SLtt_Char_Type;
	#define SLTT_BOLD_MASK 0x01000000		#define SLTT_BOLD_MASK 0x01000000UL
	#define SLTT_BLINK_MASK 0x02000000		#define SLTT_BLINK_MASK 0x02000000UL
	#define SLTT_ULINE_MASK 0x04000000		#define SLTT_ULINE_MASK 0x04000000UL
	#define SLTT_REV_MASK 0x08000000		#define SLTT_REV_MASK 0x08000000UL
	#define SLTT_ALTC_MASK 0x10000000		#define SLTT_ALTC_MASK 0x10000000UL
	extern int SLtt_Screen_Rows;		extern int SLtt_Screen_Rows;
	extern int SLtt_Screen_Cols;		extern int SLtt_Screen_Cols;
	extern int SLtt_Term_Cannot_Insert;		extern int SLtt_Term_Cannot_Insert;
	extern int SLtt_Term_Cannot_Scroll;		extern int SLtt_Term_Cannot_Scroll;
	extern int SLtt_Use_Ansi_Colors;		extern int SLtt_Use_Ansi_Colors;
	extern int SLtt_Ignore_Beep;		extern int SLtt_Ignore_Beep;
	#if defined(REAL_UNIX_SYSTEM)		#if defined(REAL_UNIX_SYSTEM)
	extern int SLtt_Force_Keypad_Init;		extern int SLtt_Force_Keypad_Init;
			extern int SLang_TT_Write_FD;
	#endif		#endif
	#ifndef IBMPC_SYSTEM		#ifndef IBMPC_SYSTEM
	extern char *SLtt_Graphics_Char_Pairs;		extern char *SLtt_Graphics_Char_Pairs;
	#endif		#endif
	#ifndef __GO32__		#ifndef __GO32__
	#if defined(VMS) || defined(REAL_UNIX_SYSTEM)		#if defined(VMS) || defined(REAL_UNIX_SYSTEM)
	extern int SLtt_Blink_Mode;		extern int SLtt_Blink_Mode;
	extern int SLtt_Use_Blink_For_ACS;		extern int SLtt_Use_Blink_For_ACS;
	skipping to change at line 964		skipping to change at line 1315
	# ifndef VMS		# ifndef VMS
	extern int SLtt_Try_Termcap;		extern int SLtt_Try_Termcap;
	# endif		# endif
	#endif		#endif
	#endif		#endif
	#if defined(IBMPC_SYSTEM)		#if defined(IBMPC_SYSTEM)
	extern int SLtt_Msdos_Cheap_Video;		extern int SLtt_Msdos_Cheap_Video;
	#endif		#endif
			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))
	extern int SLtt_flush_output (void);		extern int SLtt_flush_output (void);
	extern void SLtt_set_scroll_region(int, int);		extern void SLtt_set_scroll_region(int, int);
	extern void SLtt_reset_scroll_region(void);		extern void SLtt_reset_scroll_region(void);
	extern void SLtt_reverse_video (int);		extern void SLtt_reverse_video (int);
	extern void SLtt_bold_video (void);		extern void SLtt_bold_video (void);
	extern void SLtt_begin_insert(void);		extern void SLtt_begin_insert(void);
	extern void SLtt_end_insert(void);		extern void SLtt_end_insert(void);
	extern void SLtt_del_eol(void);		extern void SLtt_del_eol(void);
	extern void SLtt_goto_rc (int, int);		extern void SLtt_goto_rc (int, int);
	extern void SLtt_delete_nlines(int);		extern void SLtt_delete_nlines(int);
	extern void SLtt_delete_char(void);		extern void SLtt_delete_char(void);
	extern void SLtt_erase_line(void);		extern void SLtt_erase_line(void);
	extern void SLtt_normal_video(void);		extern void SLtt_normal_video(void);
	extern void SLtt_cls(void);		extern void SLtt_cls(void);
	extern void SLtt_beep(void);		extern void SLtt_beep(void);
	extern void SLtt_reverse_index(int);		extern void SLtt_reverse_index(int);
	extern void SLtt_smart_puts(unsigned short *, unsigned short *, int, int);		extern void SLtt_smart_puts(SLsmg_Char_Type *, SLsmg_Char_Type *, int, int) ;
	extern void SLtt_write_string (char *);		extern void SLtt_write_string (char *);
	extern void SLtt_putchar(char);		extern void SLtt_putchar(char);
	extern int SLtt_init_video (void);		extern int SLtt_init_video (void);
	extern int SLtt_reset_video (void);		extern int SLtt_reset_video (void);
	extern void SLtt_get_terminfo(void);		extern void SLtt_get_terminfo(void);
	extern void SLtt_get_screen_size (void);		extern void SLtt_get_screen_size (void);
	extern int SLtt_set_cursor_visibility (int);		extern int SLtt_set_cursor_visibility (int);
	extern int SLtt_set_mouse_mode (int, int);		extern int SLtt_set_mouse_mode (int, int);
	skipping to change at line 1002		skipping to change at line 1358
	extern int SLtt_initialize (char *);		extern int SLtt_initialize (char *);
	extern void SLtt_enable_cursor_keys(void);		extern void SLtt_enable_cursor_keys(void);
	extern void SLtt_set_term_vtxxx(int *);		extern void SLtt_set_term_vtxxx(int *);
	extern void SLtt_set_color_esc (int, char *);		extern void SLtt_set_color_esc (int, char *);
	extern void SLtt_wide_width(void);		extern void SLtt_wide_width(void);
	extern void SLtt_narrow_width(void);		extern void SLtt_narrow_width(void);
	extern void SLtt_set_alt_char_set (int);		extern void SLtt_set_alt_char_set (int);
	extern int SLtt_write_to_status_line (char *, int);		extern int SLtt_write_to_status_line (char *, int);
	extern void SLtt_disable_status_line (void);		extern void SLtt_disable_status_line (void);
	# ifdef REAL_UNIX_SYSTEM		# ifdef REAL_UNIX_SYSTEM
	extern char *SLtt_tgetstr (char *);		/* These are termcap/terminfo routines that assume SLtt_initialize has
	extern int SLtt_tgetnum (char *);		* been called.
	extern int SLtt_tgetflag (char *);		*/
	extern char *SLtt_tigetent (char *);		extern char *SLtt_tgetstr (char *);
	extern char *SLtt_tigetstr (char *, char **);		extern int SLtt_tgetnum (char *);
	extern int SLtt_tigetnum (char *, 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
	#endif		#endif
	extern SLtt_Char_Type SLtt_get_color_object (int);		extern SLtt_Char_Type SLtt_get_color_object (int);
	extern void SLtt_set_color_object (int, SLtt_Char_Type);		extern void SLtt_set_color_object (int, SLtt_Char_Type);
	extern void SLtt_set_color (int, char *, char *, char *);		extern void SLtt_set_color (int, char *, char *, char *);
	extern void SLtt_set_mono (int, char *, SLtt_Char_Type);		extern void SLtt_set_mono (int, char *, SLtt_Char_Type);
	extern void SLtt_add_color_attribute (int, 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);		extern void SLtt_set_color_fgbg (int, SLtt_Char_Type, SLtt_Char_Type);
	skipping to change at line 1032		skipping to change at line 1395
	typedef struct		typedef struct
	{		{
	int this_level;		int this_level;
	int exec_level;		int exec_level;
	int prev_exec_level;		int prev_exec_level;
	char preprocess_char;		char preprocess_char;
	char comment_char;		char comment_char;
	unsigned char flags;		unsigned char flags;
	#define SLPREP_BLANK_LINES_OK 1		#define SLPREP_BLANK_LINES_OK 1
	#define SLPREP_COMMENT_LINES_OK 2		#define SLPREP_COMMENT_LINES_OK 2
			#define SLPREP_STOP_READING 4
			#define SLPREP_EMBEDDED_TEXT 8
	}		}
	SLPreprocess_Type;		SLPreprocess_Type;
	extern int SLprep_open_prep (SLPreprocess_Type *);		extern int SLprep_open_prep (SLPreprocess_Type *);
	extern void SLprep_close_prep (SLPreprocess_Type *);		extern void SLprep_close_prep (SLPreprocess_Type *);
	extern int SLprep_line_ok (char *, SLPreprocess_Type *);		extern int SLprep_line_ok (char *, SLPreprocess_Type *);
	extern int SLdefine_for_ifdef (char *);		extern int SLdefine_for_ifdef (char *);
	/* Adds a string to the SLang #ifdef preparsing defines. SLang already		/* Adds a string to the SLang #ifdef preparsing defines. SLang already
	defines MSDOS, UNIX, and VMS on the appropriate system. */		defines MSDOS, UNIX, and VMS on the appropriate system. */
	extern int (*SLprep_exists_hook) (char *, char);		extern int (*SLprep_exists_hook) (char *, char);
	skipping to change at line 1060		skipping to change at line 1425
	extern int SLsmg_Scroll_Hash_Border;		extern int SLsmg_Scroll_Hash_Border;
	#endif		#endif
	extern int SLsmg_suspend_smg (void);		extern int SLsmg_suspend_smg (void);
	extern int SLsmg_resume_smg (void);		extern int SLsmg_resume_smg (void);
	extern void SLsmg_erase_eol (void);		extern void SLsmg_erase_eol (void);
	extern void SLsmg_gotorc (int, int);		extern void SLsmg_gotorc (int, int);
	extern void SLsmg_erase_eos (void);		extern void SLsmg_erase_eos (void);
	extern void SLsmg_reverse_video (void);		extern void SLsmg_reverse_video (void);
	extern void SLsmg_set_color (int);		extern void SLsmg_set_color (int);
	extern void SLsmg_normal_video (void);		extern void SLsmg_normal_video (void);
	extern void SLsmg_printf (char *, ...);		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_vprintf (char *, va_list);
	extern void SLsmg_write_string (char *);		extern void SLsmg_write_string (char *);
	extern void SLsmg_write_nstring (char *, unsigned int);		extern void SLsmg_write_nstring (char *, unsigned int);
	extern void SLsmg_write_char (char);		extern void SLsmg_write_char (char);
	extern void SLsmg_write_nchars (char *, unsigned int);		extern void SLsmg_write_nchars (char *, unsigned int);
	extern void SLsmg_write_wrapped_string (char *, int, int, unsigned int, uns igned int, int);		extern void SLsmg_write_wrapped_string (char *, int, int, unsigned int, uns igned int, int);
	extern void SLsmg_cls (void);		extern void SLsmg_cls (void);
	extern void SLsmg_refresh (void);		extern void SLsmg_refresh (void);
	extern void SLsmg_touch_lines (int, unsigned int);		extern void SLsmg_touch_lines (int, unsigned int);
			extern void SLsmg_touch_screen (void);
	extern int SLsmg_init_smg (void);		extern int SLsmg_init_smg (void);
			extern int SLsmg_reinit_smg (void);
	extern void SLsmg_reset_smg (void);		extern void SLsmg_reset_smg (void);
	extern unsigned short SLsmg_char_at(void);		extern SLsmg_Char_Type SLsmg_char_at(void);
	extern void SLsmg_set_screen_start (int *, int *);		extern void SLsmg_set_screen_start (int *, int *);
	extern void SLsmg_draw_hline (unsigned int);		extern void SLsmg_draw_hline (unsigned int);
	extern void SLsmg_draw_vline (int);		extern void SLsmg_draw_vline (int);
	extern void SLsmg_draw_object (int, int, unsigned char);		extern void SLsmg_draw_object (int, int, unsigned char);
	extern void SLsmg_draw_box (int, int, unsigned int, unsigned int);		extern void SLsmg_draw_box (int, int, unsigned int, unsigned int);
	extern int SLsmg_get_column(void);		extern int SLsmg_get_column(void);
	extern int SLsmg_get_row(void);		extern int SLsmg_get_row(void);
	extern void SLsmg_forward (int);		extern void SLsmg_forward (int);
	extern void SLsmg_write_color_chars (unsigned short *, unsigned int);		extern void SLsmg_write_color_chars (SLsmg_Char_Type *, unsigned int);
	extern unsigned int SLsmg_read_raw (unsigned short *, unsigned int);		extern unsigned int SLsmg_read_raw (SLsmg_Char_Type *, unsigned int);
	extern unsigned int SLsmg_write_raw (unsigned short *, 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, unsigne d int);		extern void SLsmg_set_color_in_region (int, int, int, unsigned int, unsigne d int);
	extern int SLsmg_Display_Eight_Bit;		extern int SLsmg_Display_Eight_Bit;
	extern int SLsmg_Tab_Width;		extern int SLsmg_Tab_Width;
	#define SLSMG_NEWLINE_IGNORED 0 /* default */		#define SLSMG_NEWLINE_IGNORED 0 /* default */
	#define SLSMG_NEWLINE_MOVES 1 /* moves to next line, column 0 */		#define SLSMG_NEWLINE_MOVES 1 /* moves to next line, column 0 */
	#define SLSMG_NEWLINE_SCROLLS 2 /* moves but scrolls at bottom of scr een */		#define SLSMG_NEWLINE_SCROLLS 2 /* moves but scrolls at bottom of scr een */
	#define SLSMG_NEWLINE_PRINTABLE 3 /* prints as ^J */		#define SLSMG_NEWLINE_PRINTABLE 3 /* prints as ^J */
	extern int SLsmg_Newline_Behavior;		extern int SLsmg_Newline_Behavior;
	skipping to change at line 1110		skipping to change at line 1478
	# define SLSMG_URCORN_CHAR 0xBF		# define SLSMG_URCORN_CHAR 0xBF
	# define SLSMG_LLCORN_CHAR 0xC0		# define SLSMG_LLCORN_CHAR 0xC0
	# define SLSMG_LRCORN_CHAR 0xD9		# define SLSMG_LRCORN_CHAR 0xD9
	# define SLSMG_RTEE_CHAR 0xB4		# define SLSMG_RTEE_CHAR 0xB4
	# define SLSMG_LTEE_CHAR 0xC3		# define SLSMG_LTEE_CHAR 0xC3
	# define SLSMG_UTEE_CHAR 0xC2		# define SLSMG_UTEE_CHAR 0xC2
	# define SLSMG_DTEE_CHAR 0xC1		# define SLSMG_DTEE_CHAR 0xC1
	# define SLSMG_PLUS_CHAR 0xC5		# define SLSMG_PLUS_CHAR 0xC5
	/* There are several to choose from: 0xB0, 0xB1, and 0xB2 */		/* There are several to choose from: 0xB0, 0xB1, and 0xB2 */
	# define SLSMG_CKBRD_CHAR 0xB0		# 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		#else
	# define SLSMG_HLINE_CHAR 'q'		# if defined(AMIGA)
	# define SLSMG_VLINE_CHAR 'x'		# define SLSMG_HLINE_CHAR '-'
	# define SLSMG_ULCORN_CHAR 'l'		# define SLSMG_VLINE_CHAR '|'
	# define SLSMG_URCORN_CHAR 'k'		# define SLSMG_ULCORN_CHAR '+'
	# define SLSMG_LLCORN_CHAR 'm'		# define SLSMG_URCORN_CHAR '+'
	# define SLSMG_LRCORN_CHAR 'j'		# define SLSMG_LLCORN_CHAR '+'
	# define SLSMG_CKBRD_CHAR 'a'		# define SLSMG_LRCORN_CHAR '+'
	# define SLSMG_RTEE_CHAR 'u'		# define SLSMG_CKBRD_CHAR '#'
	# define SLSMG_LTEE_CHAR 't'		# define SLSMG_RTEE_CHAR '+'
	# define SLSMG_UTEE_CHAR 'w'		# define SLSMG_LTEE_CHAR '+'
	# define SLSMG_DTEE_CHAR 'v'		# define SLSMG_UTEE_CHAR '+'
	# define SLSMG_PLUS_CHAR 'n'		# define SLSMG_DTEE_CHAR '+'
	#endif		# 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 'q'
			# define SLSMG_VLINE_CHAR 'x'
			# define SLSMG_ULCORN_CHAR 'l'
			# define SLSMG_URCORN_CHAR 'k'
			# define SLSMG_LLCORN_CHAR 'm'
			# define SLSMG_LRCORN_CHAR 'j'
			# define SLSMG_CKBRD_CHAR 'a'
			# define SLSMG_RTEE_CHAR 'u'
			# define SLSMG_LTEE_CHAR 't'
			# define SLSMG_UTEE_CHAR 'w'
			# define SLSMG_DTEE_CHAR 'v'
			# define SLSMG_PLUS_CHAR 'n'
			# define SLSMG_DIAMOND_CHAR '`'
			# define SLSMG_DEGREE_CHAR 'f'
			# define SLSMG_PLMINUS_CHAR 'g'
			# define SLSMG_BULLET_CHAR '~'
			# define SLSMG_LARROW_CHAR ','
			# define SLSMG_RARROW_CHAR '+'
			# define SLSMG_DARROW_CHAR '.'
			# define SLSMG_UARROW_CHAR '-'
			# define SLSMG_BOARD_CHAR 'h'
			# define SLSMG_BLOCK_CHAR '0'
			# endif /* AMIGA */
			#endif /* IBMPC_SYSTEM */
	#ifndef IBMPC_SYSTEM		#ifndef IBMPC_SYSTEM
	# define SLSMG_COLOR_BLACK 0x000000		# define SLSMG_COLOR_BLACK 0x000000
	# define SLSMG_COLOR_RED 0x000001		# define SLSMG_COLOR_RED 0x000001
	# define SLSMG_COLOR_GREEN 0x000002		# define SLSMG_COLOR_GREEN 0x000002
	# define SLSMG_COLOR_BROWN 0x000003		# define SLSMG_COLOR_BROWN 0x000003
	# define SLSMG_COLOR_BLUE 0x000004		# define SLSMG_COLOR_BLUE 0x000004
	# define SLSMG_COLOR_MAGENTA 0x000005		# define SLSMG_COLOR_MAGENTA 0x000005
	# define SLSMG_COLOR_CYAN 0x000006		# define SLSMG_COLOR_CYAN 0x000006
	# define SLSMG_COLOR_LGRAY 0x000007		# define SLSMG_COLOR_LGRAY 0x000007
	skipping to change at line 1154		skipping to change at line 1567
	typedef struct		typedef struct
	{		{
	void (*tt_normal_video)(void);		void (*tt_normal_video)(void);
	void (*tt_set_scroll_region)(int, int);		void (*tt_set_scroll_region)(int, int);
	void (*tt_goto_rc)(int, int);		void (*tt_goto_rc)(int, int);
	void (*tt_reverse_index)(int);		void (*tt_reverse_index)(int);
	void (*tt_reset_scroll_region)(void);		void (*tt_reset_scroll_region)(void);
	void (*tt_delete_nlines)(int);		void (*tt_delete_nlines)(int);
	void (*tt_cls) (void);		void (*tt_cls) (void);
	void (*tt_del_eol) (void);		void (*tt_del_eol) (void);
	void (*tt_smart_puts) (unsigned short *, unsigned short *, int, int);		void (*tt_smart_puts) (SLsmg_Char_Type *, SLsmg_Char_Type *, int, int);
	int (*tt_flush_output) (void);		int (*tt_flush_output) (void);
	int (*tt_reset_video) (void);		int (*tt_reset_video) (void);
	int (*tt_init_video) (void);		int (*tt_init_video) (void);
	int *tt_screen_rows;		int *tt_screen_rows;
	int *tt_screen_cols;		int *tt_screen_cols;
	int *tt_term_cannot_scroll;		int *tt_term_cannot_scroll;
	int *tt_has_alt_charset;		int *tt_has_alt_charset;
	int *tt_use_blink_for_acs;		int *tt_use_blink_for_acs;
	skipping to change at line 1208		skipping to change at line 1621
	#define SL_KEY_F0 0x200		#define SL_KEY_F0 0x200
	#define SL_KEY_F(X) (SL_KEY_F0 + X)		#define SL_KEY_F(X) (SL_KEY_F0 + X)
	/* I do not intend to use keysymps > 0x1000. Applications can use those. * /		/* I do not intend to use keysymps > 0x1000. Applications can use those. * /
	/* Returns 0 upon success or -1 upon error. */		/* Returns 0 upon success or -1 upon error. */
	extern int SLkp_define_keysym (char *, unsigned int);		extern int SLkp_define_keysym (char *, unsigned int);
	/* This function must be called AFTER SLtt_get_terminfo and not before. */		/* This function must be called AFTER SLtt_get_terminfo and not before. */
	extern int SLkp_init (void);		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 initializatio n		/* This function uses SLang_getkey and assumes that what ever initializatio n
	* is required for SLang_getkey has been performed.		* 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);		extern int SLkp_getkey (void);
	/*}}}*/		/*}}}*/
	/*{{{ SLang Scroll Interface */		/*{{{ SLang Scroll Interface */
	typedef struct _SLscroll_Type		typedef struct _SLscroll_Type
	{		{
	struct _SLscroll_Type *next;		struct _SLscroll_Type *next;
	skipping to change at line 1261		skipping to change at line 1681
	/*{{{ Signal Routines */		/*{{{ Signal Routines */
	typedef void SLSig_Fun_Type (int);		typedef void SLSig_Fun_Type (int);
	extern SLSig_Fun_Type *SLsignal (int, SLSig_Fun_Type *);		extern SLSig_Fun_Type *SLsignal (int, SLSig_Fun_Type *);
	extern SLSig_Fun_Type *SLsignal_intr (int, SLSig_Fun_Type *);		extern SLSig_Fun_Type *SLsignal_intr (int, SLSig_Fun_Type *);
	extern int SLsig_block_signals (void);		extern int SLsig_block_signals (void);
	extern int SLsig_unblock_signals (void);		extern int SLsig_unblock_signals (void);
	extern int SLsystem (char *);		extern int SLsystem (char *);
	extern char *SLerrno_strerror (int);		extern char *SLerrno_strerror (int);
			extern int SLerrno_set_errno (int);
	/*}}}*/		/*}}}*/
	/*{{{ Interpreter Macro Definitions */		/*{{{ Interpreter Macro Definitions */
	/* The definitions here are for objects that may be on the run-time stack.		/* 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.		* They are actually sub_types of literal and data main_types. The actual
	* Note that the return types for MAKE_INTRINSIC defined intrinsic function		* numbers are historical.
	s
	* must be numbered from 0x1 - 0x0F.
	*/		*/
	#define SLANG_UNDEFINED_TYPE 0x00 /* MUST be 0 */		#define SLANG_UNDEFINED_TYPE 0x00 /* MUST be 0 */
	#define SLANG_VOID_TYPE 0x01 /* also matches ANY type */		#define SLANG_VOID_TYPE 0x01 /* also matches ANY type */
	#define SLANG_INT_TYPE 0x02		#define SLANG_INT_TYPE 0x02
	#define SLANG_DOUBLE_TYPE 0x03		#define SLANG_DOUBLE_TYPE 0x03
	#define SLANG_CHAR_TYPE 0x04		#define SLANG_CHAR_TYPE 0x04
	#define SLANG_INTP_TYPE 0x05		#define SLANG_INTP_TYPE 0x05
	/* An object of SLANG_INTP_TYPE should never really occur on the stack. Ra ther,		/* An object of SLANG_INTP_TYPE should never really occur on the stack. Ra ther,
	* the integer to which it refers will be there instead. It is defined her e		* the integer to which it refers will be there instead. It is defined her e
	* because it is a valid type for MAKE_VARIABLE.		* because it is a valid type for MAKE_VARIABLE.
	*/		*/
	#define SLANG_REF_TYPE 0x06		#define SLANG_REF_TYPE 0x06
	/* SLANG_REF_TYPE refers to an object on the stack that is a pointer (refer ence)		/* SLANG_REF_TYPE refers to an object on the stack that is a pointer (refer ence)
	* to some other object.		* to some other object.
	*/		*/
	#define SLANG_COMPLEX_TYPE 0x07		#define SLANG_COMPLEX_TYPE 0x07
	#define SLANG_NULL_TYPE 0x08		#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_STRING_TYPE 0x0F
			#define SLANG_FLOAT_TYPE 0x10
	#define SLANG_STRUCT_TYPE 0x11		#define SLANG_STRUCT_TYPE 0x11
			#define SLANG_ISTRUCT_TYPE 0x12
	#define SLANG_ARRAY_TYPE 0x20		#define SLANG_ARRAY_TYPE 0x20
	#define SLANG_DATATYPE_TYPE 0x21		#define SLANG_DATATYPE_TYPE 0x21
	#define SLANG_FILE_PTR_TYPE 0x22		#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 */		/* Compatibility */
	#ifdef FLOAT_TYPE		#ifdef FLOAT_TYPE
	# undef FLOAT_TYPE		# undef FLOAT_TYPE
	#endif		#endif
	#define VOID_TYPE SLANG_VOID_TYPE		#define VOID_TYPE SLANG_VOID_TYPE
	#define INT_TYPE SLANG_INT_TYPE		#define INT_TYPE SLANG_INT_TYPE
	#define INTP_TYPE SLANG_INTP_TYPE		#define INTP_TYPE SLANG_INTP_TYPE
	#define FLOAT_TYPE SLANG_DOUBLE_TYPE		#define FLOAT_TYPE SLANG_DOUBLE_TYPE
	#define ARRAY_TYPE SLANG_ARRAY_TYPE		#define ARRAY_TYPE SLANG_ARRAY_TYPE
	skipping to change at line 1351		skipping to change at line 1784
	#define SLANG_MUL2 0x25		#define SLANG_MUL2 0x25
	#define SLANG_CHS 0x26		#define SLANG_CHS 0x26
	#define SLANG_NOT 0x27		#define SLANG_NOT 0x27
	#define SLANG_BNOT 0x28		#define SLANG_BNOT 0x28
	extern char *SLang_Error_Message;		extern char *SLang_Error_Message;
	int SLadd_intrinsic_variable (char *, VOID_STAR, unsigned char, int);		int SLadd_intrinsic_variable (char *, VOID_STAR, unsigned char, int);
	int SLadd_intrinsic_function (char *, FVOID_STAR, unsigned char, unsigned i nt,...);		int SLadd_intrinsic_function (char *, FVOID_STAR, unsigned char, unsigned i nt,...);
	extern void SLadd_at_handler (long *, char *);		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) \		#define MAKE_INTRINSIC_N(n,f,out,in,a1,a2,a3,a4,a5,a6,a7) \
	{(n), NULL, SLANG_INTRINSIC, (FVOID_STAR) (f), \		{(n), NULL, SLANG_INTRINSIC, (FVOID_STAR) (f), \
	{a1,a2,a3,a4,a5,a6,a7}, (in), (out)}		{a1,a2,a3,a4,a5,a6,a7}, (in), (out)}
	#define MAKE_INTRINSIC_7(n,f,out,a1,a2,a3,a4,a5,a6,a7) \		#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)		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) \		#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)		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) \		#define MAKE_INTRINSIC_5(n,f,out,a1,a2,a3,a4,a5) \
	skipping to change at line 1417		skipping to change at line 1851
	#define MAKE_VARIABLE(n, v, t, r) \		#define MAKE_VARIABLE(n, v, t, r) \
	{n, NULL, SLANG_IVARIABLE + (r), (VOID_STAR)(v), (t)}		{n, NULL, SLANG_IVARIABLE + (r), (VOID_STAR)(v), (t)}
	#define MAKE_APP_UNARY(n,op) \		#define MAKE_APP_UNARY(n,op) \
	{(n), NULL, SLANG_APP_UNARY, (op)}		{(n), NULL, SLANG_APP_UNARY, (op)}
	#define MAKE_MATH_UNARY(n,op) \		#define MAKE_MATH_UNARY(n,op) \
	{(n), NULL, SLANG_MATH_UNARY, (op)}		{(n), NULL, SLANG_MATH_UNARY, (op)}
	#define SLANG_END_TABLE {NULL}		#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 */		/*{{{ Upper/Lowercase Functions */
	extern void SLang_define_case(int *, int *);		extern void SLang_define_case(int *, int *);
	extern void SLang_init_case_tables (void);		extern void SLang_init_case_tables (void);
	extern unsigned char _SLChg_UCase_Lut[256];		extern unsigned char _SLChg_UCase_Lut[256];
	extern unsigned char _SLChg_LCase_Lut[256];		extern unsigned char _SLChg_LCase_Lut[256];
	skipping to change at line 1531		skipping to change at line 1990
	* two parameters p1 and p2 serve to define the region over which the searc h		* two parameters p1 and p2 serve to define the region over which the searc h
	* is to take place. The third parameter is the structure that was previou sly		* is to take place. The third parameter is the structure that was previou sly
	* initialized by SLsearch_init.		* initialized by SLsearch_init.
	*		*
	* The routine returns a pointer to the match if found otherwise it returns		* The routine returns a pointer to the match if found otherwise it returns
	* NULL.		* 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		#if 0
	{		{
	#endif		#endif
	#ifdef __cplusplus		#ifdef __cplusplus
	}		}
	#endif		#endif
	#endif /* _DAVIS_SLANG_H_ */		#endif /* _DAVIS_SLANG_H_ */
End of changes. 121 change blocks.
	166 lines changed or deleted		689 lines changed or added

	slcurses.h		slcurses.h
	/* Copyright (c) 1998 John E. Davis		/* Copyright (c) 1998, 1999, 2001, 2002, 2003 John E. Davis
	* This file is part of the S-Lang library.		* This file is part of the S-Lang library.
	*		*
	* You may distribute under the terms of either the GNU General Public		* You may distribute under the terms of either the GNU General Public
	* License or the Perl Artistic License.		* License or the Perl Artistic License.
	*/		*/
	#include <stdio.h>		#include <stdio.h>
	#ifndef SLANG_VERSION		#ifndef SLANG_VERSION
	# include <slang.h>		# include <slang.h>
	#endif		#endif
	/* This is a temporary hack until lynx is fixed to not include this file. * /		/* This is a temporary hack until lynx is fixed to not include this file. * /
	#ifndef LYCURSES_H		#ifndef LYCURSES_H
	typedef struct		typedef struct
	{		{
	unsigned int _begy, _begx, _maxy, _maxx;		unsigned int _begy, _begx, _maxy, _maxx;
	unsigned int _curx, _cury;		unsigned int _curx, _cury;
	unsigned int nrows, ncols;		unsigned int nrows, ncols;
	unsigned int scroll_min, scroll_max;		unsigned int scroll_min, scroll_max;
	unsigned short **lines;		SLsmg_Char_Type **lines;
	unsigned short color;		SLsmg_Char_Type color;
	int is_subwin;		int is_subwin;
	SLtt_Char_Type attr;		SLtt_Char_Type attr;
	int delay_off;		int delay_off;
	int scroll_ok;		int scroll_ok;
	int modified;		int modified;
	int has_box;		int has_box;
	int use_keypad;		int use_keypad;
	}		}
	SLcurses_Window_Type;		SLcurses_Window_Type;
	skipping to change at line 287		skipping to change at line 287
	extern int SLcurses_Num_Colors;		extern int SLcurses_Num_Colors;
	#define COLORS SLcurses_Num_Colors		#define COLORS SLcurses_Num_Colors
	#define COLOR_PAIRS (SLcurses_Num_Colors*SLcurses_Num_Colors)		#define COLOR_PAIRS (SLcurses_Num_Colors*SLcurses_Num_Colors)
	#define init_pair(_x,_f,_b) \		#define init_pair(_x,_f,_b) \
	SLtt_set_color_object((_x), ((_f) == (_b) ? 0x0700 : ((_f) | ((_b) << 8)) << 8))		SLtt_set_color_object((_x), ((_f) == (_b) ? 0x0700 : ((_f) | ((_b) << 8)) << 8))
	#define scrollok(a,b) ((a)->scroll_ok = (b))		#define scrollok(a,b) ((a)->scroll_ok = (b))
	#define getyx(a,y,x) (y=(a)->_cury, x=(a)->_curx)		#define getyx(a,y,x) (y=(a)->_cury, x=(a)->_curx)
	#define getmaxyx(a,y,x) (y=(a)->nrows, x=(a)->ncols)		#define getmaxyx(a,y,x) (y=(a)->nrows, x=(a)->ncols)
			#ifdef napms
			# undef napms
			#endif
	#define napms(x) usleep(1000 * (x))		#define napms(x) usleep(1000 * (x))
	typedef SLtt_Char_Type chtype;		typedef SLtt_Char_Type chtype;
	#define beep SLtt_beep		#define beep SLtt_beep
	#define curs_set(x) SLtt_set_cursor_visibility(x)		#define curs_set(x) SLtt_set_cursor_visibility(x)
	#define touchwin(x) SLsmg_touch_lines((x)->_begy, (x)->nrows)		#define touchwin(x) SLsmg_touch_lines((x)->_begy, (x)->nrows)
	#define flash SLtt_beep		#define flash SLtt_beep
	#define wsetscrreg(w,a,b) ((w)->scroll_min = (a), (w)->scroll_max = (b ))		#define wsetscrreg(w,a,b) ((w)->scroll_min = (a), (w)->scroll_max = (b ))
	#define wtimeout(a,b) (a)->delay_off = ((b >= 0) ? (b) / 100 : -1)		#define wtimeout(a,b) (a)->delay_off = ((b >= 0) ? (b) / 100 : -1)
End of changes. 3 change blocks.
	3 lines changed or deleted		6 lines changed or added

This html diff was produced by rfcdiff 1.41. The latest version is available from http://tools.ietf.org/tools/rfcdiff/