com.cyc.tool.subl.jrtl.translatedCode.sublisp
Class compatibility

java.lang.Object
  com.cyc.tool.subl.util.SubLTrampolineFile
      com.cyc.tool.subl.util.SubLTranslatedFile
          com.cyc.tool.subl.jrtl.translatedCode.sublisp.compatibility

All Implemented Interfaces:

CommonSymbols, SubLFile

public final class compatibility
extends SubLTranslatedFile

Nested Class Summary

Nested classes/interfaces inherited from class com.cyc.tool.subl.util.SubLTranslatedFile

SubLTranslatedFile.SubL

Field Summary

static SubLSymbol	$kw0$INPUT
static SubLSymbol	$kw1$DIRECTION
static SubLSymbol	$kw12$BINARY
static SubLSymbol	$kw13$IO
static SubLSymbol	$kw2$IF_DOES_NOT_EXIST
static SubLSymbol	$kw21$PRIVATE
static SubLSymbol	$kw23$PUBLIC
static SubLSymbol	$kw3$ELEMENT_TYPE
static SubLSymbol	$kw4$TEXT
static SubLSymbol	$kw40$STREAM
static SubLSymbol	$kw41$BASE
static SubLSymbol	$kw5$OUTPUT
static SubLSymbol	$kw6$IF_EXISTS
static SubLSymbol	$kw7$NEW_VERSION
static SubLSymbol	$kw8$CREATE
static SubLSymbol	$kw9$APPEND
static SubLList	$list16
static SubLList	$list34
static SubLList	$list35
static SubLList	$list36
static SubLList	$list37
static SubLList	$list38
static SubLString	$str10$_S_called_with_invalid_direction_
static SubLString	$str14$_S_called_with_invalid_direction_
static SubLString	$str17$STREAM
static SubLString	$str18$_S_invoked_with_invalid_file_type
static SubLString	$str24$_S_invoked_with_invalid_access_se
static SubLString	$str31$Unable_to_open__S
static SubLString	$str39$__
static SubLSymbol	$sym11$OPEN_TEXT
static SubLSymbol	$sym15$OPEN_BINARY
static SubLSymbol	$sym19$WITH_STREAMED_FILE_INTERNAL
static SubLSymbol	$sym20$CSETQ
static SubLSymbol	$sym22$ENSURE_PRIVATE_STREAM
static SubLSymbol	$sym25$CLET
static SubLSymbol	$sym26$CUNWIND_PROTECT
static SubLSymbol	$sym27$PROGN
static SubLSymbol	$sym28$PUNLESS
static SubLSymbol	$sym29$STREAMP
static SubLSymbol	$sym30$ERROR
static SubLSymbol	$sym32$PWHEN
static SubLSymbol	$sym33$CLOSE
static SubLFile	me
static java.lang.String	myName

Fields inherited from class com.cyc.tool.subl.util.SubLTranslatedFile

EMPTY_SUBL_OBJECT_ARRAY

Fields inherited from interface com.cyc.tool.subl.jrtl.nativeCode.subLisp.CommonSymbols

ANSWER_TAG, APPEND_KEYWORD, APPEND_STACK_TRACES_TO_ERROR_MESSAGES, AREF, ASSEMBLE_FIXNUMS_TO_INTEGER, ATOM, BIGNUMP, BINARY_KEYWORD, BINDING_TYPE, BOOLEANP, CAAR, CADR, CAND, CAR, CCATCH, CDEC, CDESTRUCTURING_BIND, CDO, CDO_ALL_SYMBOLS, CDO_EXTERNAL_SYMBOLS, CDO_SYMBOLS, CDOHASH, CDOLIST, CDOTIMES, CDR, CHAR, CHAR_E_SYMBOL, CHAR_EQUAL_SYMBOL, CHAR_GREATER_THAN_OR_EQUAL_SYMBOL, CHAR_GREATER_THAN_SYMBOL, CHAR_GT_SYMBOL, CHAR_GTE_SYMBOL, CHAR_LESS_THAN_OR_EQUAL_SYMBOL, CHAR_LESS_THAN_SYMBOL, CHAR_LT_SYMBOL, CHAR_LTE_SYMBOL, CHAR_NE_SYMBOL, CHAR_NOT_EQUAL_SYMBOL, CHARACTERP, CHECK_TYPE, CINC, CLET, CMULTIPLE_VALUE_BIND, CNOT, CONS, CONSP, CONSTANT, COR, CPOP, CPROGV, CPUSH, CPUSHNEW, CREATE_KEYWORD, CSETF, CSETQ, CSOME, CTIME, CUNWIND_PROTECT, CVS_ID, DEBUG_IO, DECLAIM, DECLARE, DEFCONSTANT, DEFINE, DEFLEXICAL, DEFMACRO, DEFPARAMETER, DEFVAR, DIRECTION_KEYWORD, DYNAMIC, EIGHT_INTEGER, EIGHTEEN_INTEGER, ELEMENT_TYPE_KEYWORD, ELEVEN_INTEGER, END_KEYWORD, ENFORCE_MUST, ENFORCE_TYPE, EQ, EQL, EQUAL, EQUALP, ERROR, ERROR_KEYWORD, ERROR_OUTPUT, EVAL, EXTERNAL_FORMAT_KEYWORD, EXTERNAL_KEYWORD, FIF, FIFTEEN_INTEGER, FIRST, FIVE_INTEGER, FIXNUMP, FLOATP, FOUR_INTEGER, FOURTEEN_INTEGER, FUNCTION, FUNCTION_SPEC_P, FUNCTIONP, FUNLESS, FWHEN, GET, GETHASH, GETHASH_WITHOUT_VALUES, GUID_P, HASH_TABLE_ITERATOR_P, HASH_TABLE_P, IDENTITY, IF_DOES_NOT_EXIST_KEYWORD, IF_EXISTS_KEYWORD, IGNORE, INITIALIZATION_TYPE, INITIALIZER, INPUT_KEYWORD, INPUT_STREAM_P, INTEGERP, INTERNAL_KEYWORD, IO_KEYWORD, KEYWORDP, KILL_KEYWORD, LAMBDA_SYMBOL, LEXICAL, LIST, LISTP, LISTS, LOCK_P, LONG_BIGNUM_P, MACRO_ENV, MACRO_FORM, MEDIUM_BIGNUM_P, MEMBER, MINUS_ONE_INTEGER, MULTIPLE_VALUE_LIST, MUST, NCONC, NEW_VERSION_KEYWORD, NIL, NINE_INTEGER, NINETEEN_INTEGER, NREVERSE, NTH, NTH_VALUE, NULL, NULL_INPUT, NULL_OUTPUT, NUM_E_SYMBOL, NUM_GT_SYMBOL, NUM_GTE_SYMBOL, NUM_LT_SYMBOL, NUM_LTE_SYMBOL, NUM_NE_SYMBOL, NUMBERP, ONE_HUNDRED_THIRTY_SEVEN_INTEGER, ONE_HUNDRED_TWENTY_SEVEN_INTEGER, ONE_INTEGER, ONE_THOUSAND_INTEGER, OPTIONAL_SYMBOL, OTHERWISE, OUTPUT_KEYWORD, OUTPUT_STREAM_P, OVERWRITE_KEYWORD, PACKAGEP, PCASE, PCOND, PIF, PROBE_KEYWORD, PROCESS_TO_END, PROCESSP, PROCLAIM, PROGN, PUNLESS, PWHEN, QUERY_IO, QUIT, QUOTE, RENAME_AND_DELETE_KEYWORD, REST_SYMBOL, RET, RET_NIL, RET_T, RETURN_TAG, REVERSE, RW_LOCK_P, SECOND, SEQUENCEP, SEVEN_INTEGER, SEVENTEEN_INTEGER, SHORT_BIGNUM_P, SHOW_STACK_TRACES, SIX_INTEGER, SIXTEEN_INTEGER, SIXTY_FOUR_INTEGER, SORT, SSS, STANDARD_INPUT, STANDARD_OUTPUT, START_KEYWORD, STREAMP, STRING_E_SYMBOL, STRING_EQUAL_SYMBOL, STRING_GREATER_THAN_OR_EQUAL_SYMBOL, STRING_GREATER_THAN_SYMBOL, STRING_GT_SYMBOL, STRING_GTE_SYMBOL, STRING_LESS_THAN_OR_EQUAL_SYMBOL, STRING_LESS_THAN_SYMBOL, STRING_LT_SYMBOL, STRING_LTE_SYMBOL, STRING_NE_SYMBOL, STRING_NOT_EQUAL_SYMBOL, STRINGP, STRUCTURE_P, SUPERSEDE_KEYWORD, SUSPEND_TYPE_CHECKING, SYMBOL_FUNCTION, SYMBOL_VALUE, SYMBOLP, T, TEN_INTEGER, TERMINAL_IO, TEXT_KEYWORD, THIRTEEN_INTEGER, THIRTY_FOUR_INTEGER, THIRTY_THREE_INTEGER, THIRTY_TWO_INTEGER, THREE_INTEGER, TRACE_OUTPUT, TRUE, TWELVE_INTEGER, TWENTY_INTEGER, TWO_HUNDRED_FIFTY_FOUR_INTEGER, TWO_HUNDRED_FORTY_FOUR_INTEGER, TWO_INTEGER, UNDECLARED, UNPROVIDED, VALUES, VECTOR, VECTORP, WITH_ERROR_HANDLER, WITH_STATIC_AREA, WITH_THREAD_PRIVATE_AREA, WITH_WORKING_AREA, WORLD, ZERO_DOUBLE, ZERO_INTEGER

Method Summary

static SubLObject	declare_compatibility_file()
void	declareFunctions() Declares the mapping between functions and symbols for all named functions defined in the file.
static SubLObject	default_struct_print_function(SubLObject object, SubLObject stream, SubLObject depth)
static SubLObject	get_file_position(SubLObject stream)
static SubLObject	init_compatibility_file()
void	initializeVariables() Initializes all global variables and private internal variables for constants defined in the file.
static SubLObject	open_binary(SubLObject filename, SubLObject direction) Attempts to open the file FILENAME.
static SubLObject	open_text(SubLObject filename, SubLObject direction) Attempts to open the file FILENAME.
void	runTopLevelForms() Runs all top-level forms in order.
static SubLObject	set_file_position(SubLObject stream, SubLObject n)
static SubLObject	setup_compatibility_file()
static SubLObject	with_binary_file(SubLObject macroform, SubLObject environment)
static SubLObject	with_private_binary_file(SubLObject macroform, SubLObject environment)
static SubLObject	with_private_text_file(SubLObject macroform, SubLObject environment)
static SubLObject	with_streamed_file_internal(SubLObject macroform, SubLObject environment) Given the access styles :private and :public, and the types :binary and :text for the files, we define this macro to implement the matrix of choices computationally.
static SubLObject	with_text_file(SubLObject macroform, SubLObject environment)

Methods inherited from class com.cyc.tool.subl.util.SubLTranslatedFile

extractFunctionNamed

Methods inherited from class com.cyc.tool.subl.util.SubLTrampolineFile

checkType, enforceType, extractBinaryFunc, extractCount, extractEnd, extractEndUsingSize, extractPackage, extractStart, extractUnaryFunc, main

Methods inherited from class java.lang.Object

equals, getClass, hashCode, notify, notifyAll, toString, wait, wait, wait

Field Detail

me

public static final SubLFile me

myName

public static final java.lang.String myName

See Also:

Constant Field Values

$kw0$INPUT

public static final SubLSymbol $kw0$INPUT

$kw1$DIRECTION

public static final SubLSymbol $kw1$DIRECTION

$kw2$IF_DOES_NOT_EXIST

public static final SubLSymbol $kw2$IF_DOES_NOT_EXIST

$kw3$ELEMENT_TYPE

public static final SubLSymbol $kw3$ELEMENT_TYPE

$kw4$TEXT

public static final SubLSymbol $kw4$TEXT

$kw5$OUTPUT

public static final SubLSymbol $kw5$OUTPUT

$kw6$IF_EXISTS

public static final SubLSymbol $kw6$IF_EXISTS

$kw7$NEW_VERSION

public static final SubLSymbol $kw7$NEW_VERSION

$kw8$CREATE

public static final SubLSymbol $kw8$CREATE

$kw9$APPEND

public static final SubLSymbol $kw9$APPEND

$str10$_S_called_with_invalid_direction_

public static final SubLString $str10$_S_called_with_invalid_direction_

$sym11$OPEN_TEXT

public static final SubLSymbol $sym11$OPEN_TEXT

$kw12$BINARY

public static final SubLSymbol $kw12$BINARY

$kw13$IO

public static final SubLSymbol $kw13$IO

$str14$_S_called_with_invalid_direction_

public static final SubLString $str14$_S_called_with_invalid_direction_

$sym15$OPEN_BINARY

public static final SubLSymbol $sym15$OPEN_BINARY

$list16

public static final SubLList $list16

$str17$STREAM

public static final SubLString $str17$STREAM

$str18$_S_invoked_with_invalid_file_type

public static final SubLString $str18$_S_invoked_with_invalid_file_type

$sym19$WITH_STREAMED_FILE_INTERNAL

public static final SubLSymbol $sym19$WITH_STREAMED_FILE_INTERNAL

$sym20$CSETQ

public static final SubLSymbol $sym20$CSETQ

$kw21$PRIVATE

public static final SubLSymbol $kw21$PRIVATE

$sym22$ENSURE_PRIVATE_STREAM

public static final SubLSymbol $sym22$ENSURE_PRIVATE_STREAM

$kw23$PUBLIC

public static final SubLSymbol $kw23$PUBLIC

$str24$_S_invoked_with_invalid_access_se

public static final SubLString $str24$_S_invoked_with_invalid_access_se

$sym25$CLET

public static final SubLSymbol $sym25$CLET

$sym26$CUNWIND_PROTECT

public static final SubLSymbol $sym26$CUNWIND_PROTECT

$sym27$PROGN

public static final SubLSymbol $sym27$PROGN

$sym28$PUNLESS

public static final SubLSymbol $sym28$PUNLESS

$sym29$STREAMP

public static final SubLSymbol $sym29$STREAMP

$sym30$ERROR

public static final SubLSymbol $sym30$ERROR

$str31$Unable_to_open__S

public static final SubLString $str31$Unable_to_open__S

$sym32$PWHEN

public static final SubLSymbol $sym32$PWHEN

$sym33$CLOSE

public static final SubLSymbol $sym33$CLOSE

$list34

public static final SubLList $list34

$list35

public static final SubLList $list35

$list36

public static final SubLList $list36

$list37

public static final SubLList $list37

$list38

public static final SubLList $list38

$str39$__

public static final SubLString $str39$__

$kw40$STREAM

public static final SubLSymbol $kw40$STREAM

$kw41$BASE

public static final SubLSymbol $kw41$BASE

Method Detail

open_text

public static final SubLObject open_text(SubLObject filename,
                                         SubLObject direction)

Attempts to open the file FILENAME. If successful, returns an 8-bit character text stream. If DIRECTION is :input, then input operations can be performed on the stream. If DIRECTION is output, then output is directed to the file FILENAME, overwriting any existing file. If DIRECTION is :append, then output is appended to the file. For either output case, a new file is created if no file named FILENAME already exists.

open_binary

public static final SubLObject open_binary(SubLObject filename,
                                           SubLObject direction)

Attempts to open the file FILENAME. If successful, returns an 8-bit binary byte stream. If DIRECTION is :input, then input operations can be performed on the stream. If DIRECTION is output, then output is directed to the file FILENAME, overwriting any existing file. If DIRECTION is :append, then output is appended to the file. For either output case, a new file is created if no file named FILENAME already exists.

with_streamed_file_internal

public static final SubLObject with_streamed_file_internal(SubLObject macroform,
                                                           SubLObject environment)

Given the access styles :private and :public, and the types :binary and :text for the files, we define this macro to implement the matrix of choices computationally.

with_text_file

public static final SubLObject with_text_file(SubLObject macroform,
                                              SubLObject environment)

with_private_text_file

public static final SubLObject with_private_text_file(SubLObject macroform,
                                                      SubLObject environment)

with_binary_file

public static final SubLObject with_binary_file(SubLObject macroform,
                                                SubLObject environment)

with_private_binary_file

public static final SubLObject with_private_binary_file(SubLObject macroform,
                                                        SubLObject environment)

get_file_position

public static final SubLObject get_file_position(SubLObject stream)

set_file_position

public static final SubLObject set_file_position(SubLObject stream,
                                                 SubLObject n)

default_struct_print_function

public static final SubLObject default_struct_print_function(SubLObject object,
                                                             SubLObject stream,
                                                             SubLObject depth)

declare_compatibility_file

public static final SubLObject declare_compatibility_file()

init_compatibility_file

public static final SubLObject init_compatibility_file()

setup_compatibility_file

public static final SubLObject setup_compatibility_file()

declareFunctions

public void declareFunctions()

Description copied from interface: SubLFile

Declares the mapping between functions and symbols for all named functions defined in the file. Like CRTL define.

initializeVariables

public void initializeVariables()

Description copied from interface: SubLFile

Initializes all global variables and private internal variables for constants defined in the file. Like CRTL init.

runTopLevelForms

public void runTopLevelForms()

Description copied from interface: SubLFile

Runs all top-level forms in order. Like CRTL setup.