com.cyc.cycjava.cycl
Class java_api_kernel

java.lang.Object
  extended by com.cyc.tool.subl.util.SubLTrampolineFile
      extended by com.cyc.tool.subl.util.SubLTranslatedFile
          extended by com.cyc.cycjava.cycl.java_api_kernel
All Implemented Interfaces:
CommonSymbols, SubLFile

public final class java_api_kernel
extends SubLTranslatedFile


Nested Class Summary
 
Nested classes/interfaces inherited from class com.cyc.tool.subl.util.SubLTranslatedFile
SubLTranslatedFile.SubL
 
Field Summary
static SubLInteger $int10$1000
           
static SubLInteger $int18$3600000
           
static SubLSymbol $kw59$LEAST_PRIVILEGED
           
static SubLSymbol $kw7$IGNORE_ERRORS_TARGET
           
static SubLList $list14
           
static SubLList $list16
           
static SubLList $list17
           
static SubLList $list29
           
static SubLList $list31
           
static SubLList $list32
           
static SubLList $list42
           
static SubLList $list54
           
static SubLList $list68
           
static SubLString $str1$Java_API_lease_monitor
           
static SubLString $str11$Releasing_java_API_resources_iden
           
static SubLString $str12$__Releasing_java_API_resources_id
           
static SubLString $str15$Closes_the_outbound_api_socket_an
           
static SubLString $str20$_cfasl_kernel_standard_output_
           
static SubLString $str21$api_services_lease_denied_for__A_
           
static SubLString $str22$api_services_lease_denied
           
static SubLString $str23$api_services_lease_granted_by_
           
static SubLString $str24$_to_
           
static SubLString $str25$_for_
           
static SubLString $str26$_milliseconds
           
static SubLString $str27$_A__
           
static SubLString $str30$Requests_an_API_services_lease___
           
static SubLString $str33$There_are_no_Java_API_client_leas
           
static SubLString $str34$Java_API_client__A_lease_expires_
           
static SubLString $str36$Displays_the_current_java_api_lea
           
static SubLString $str37$Java_API_stream_lock
           
static SubLString $str38$Initializing_java_client_socket__
           
static SubLString $str39$Initialized_java_client_socket__S
           
static SubLString $str4$Initialize_the_process_which_moni
           
static SubLString $str40$Invalid_java_client_socket__S__
           
static SubLString $str43$Associates_the_current_socket_wit
           
static SubLString $str44$Looked_up_socket__S_from_dictiona
           
static SubLString $str45$Removed_socket__S__from_dictionar
           
static SubLString $str47$Closes_the_persistent_cfasl_socke
           
static SubLString $str48$___S______S
           
static SubLString $str50$Displays_the_java_api_sockets_
           
static SubLString $str52$Reset_this_subsystem_to_an_un_ini
           
static SubLString $str53$Verifying_java_api_socket_identif
           
static SubLString $str55$closing_broken_java_api_socket__A
           
static SubLString $str56$_cp
           
static SubLString $str57$Java_proxy_for_
           
static SubLString $str6$Halt_the_the_process_which_monito
           
static SubLString $str60$JAVA_HOME
           
static SubLString $str61$JAVA_LIB
           
static SubLString $str62$JAVA_VM
           
static SubLString $str63$JAVA_RE_HOME
           
static SubLString $str64$JAVA_RE_LIB
           
static SubLString $str65$JAVA_RE_VM
           
static SubLString $str66$path_separator
           
static SubLString $str67$java
           
static SubLString $str70$java_main_class
           
static SubLString $str71$java_classpath
           
static SubLString $str72$java_arguments
           
static SubLSymbol $sym0$STRINGP
           
static SubLSymbol $sym13$RELEASE_RESOURCES_FOR_JAVA_API_CLIENT
           
static SubLSymbol $sym19$INTEGERP
           
static SubLSymbol $sym2$JAVA_API_LEASE_MONITOR
           
static SubLSymbol $sym28$ACQUIRE_API_SERVICES_LEASE
           
static SubLSymbol $sym3$INITIALIZE_JAVA_API_LEASE_MONITOR
           
static SubLSymbol $sym35$SHOW_JAVA_API_SERVICE_LEASES
           
static SubLSymbol $sym41$INITIALIZE_JAVA_API_PASSIVE_SOCKET
           
static SubLSymbol $sym46$CLOSE_JAVA_API_SOCKET
           
static SubLSymbol $sym49$SHOW_JAVA_API_SOCKETS
           
static SubLSymbol $sym5$HALT_JAVA_API_LEASE_MONITOR
           
static SubLSymbol $sym51$RESET_JAVA_API_KERNEL
           
static SubLSymbol $sym58$LAUNCH_JAVA_APPLICATION_FROM_RED
           
static SubLSymbol $sym69$LISTP
           
static SubLSymbol $sym73$CCONCATENATE
           
static SubLSymbol $sym8$IGNORE_ERRORS_HANDLER
           
static SubLSymbol $sym9$CATCH_ERROR_MESSAGE_HANDLER
           
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 acquire_api_services_lease(SubLObject lease_duration_in_milliseconds, SubLObject uuid_string)
          Requests an API services lease.
static SubLObject api_socket_in_stream(SubLObject api_socket)
           
static SubLObject api_socket_lock(SubLObject api_socket)
           
static SubLObject api_socket_out_stream(SubLObject api_socket)
           
static SubLObject cleanup_broken_java_api_sockets()
          Attempt to send an ignorable message to each java api client and when failing, close its socket.
static SubLObject close_java_api_socket(SubLObject uuid_string)
          Closes the persistent cfasl socket that is associated with the given UUID-STRING.
static SubLObject declare_java_api_kernel_file()
           
 void declareFunctions()
          Declares the mapping between functions and symbols for all named functions defined in the file.
static SubLObject get_current_api_socket()
           
static SubLObject halt_java_api_lease_monitor()
          Halt the the process which monitors lease expirations for java api clients.
static SubLObject init_java_api_kernel_file()
           
static SubLObject initialize_java_api_lease_monitor()
          Initialize the process which monitors lease expirations for java api clients.
static SubLObject initialize_java_api_passive_socket(SubLObject uuid_string)
          Associates the current socket with the given UUID-STRING, then ends this server process that currently uses the socket.
 void initializeVariables()
          Initializes all global variables and private internal variables for constants defined in the file.
static SubLObject java_api_lease_monitor()
          Periodically monitors java api client leases, closing sockets and killing active api requests belonging to clients having expired leases.
static SubLObject java_api_lock(SubLObject uuid_string)
          Return the java api socket output stream corresponding to the given UUID key.
static SubLObject java_api_socket_out_stream(SubLObject uuid_string)
          Return the java api socket output stream corresponding to the given UUID key.
static SubLObject java_api_socket(SubLObject uuid_string)
          Return the java api socket corresponding to the given UUID key.
static SubLObject release_resources_for_java_api_client(SubLObject uuid_string, SubLObject abnormalP)
          Closes the outbound api socket and kills active api requests identified by the given uuid-string.
static SubLObject reset_java_api_kernel()
          Reset this subsystem to an un-initialized state.
 void runTopLevelForms()
          Runs all top-level forms in order.
static SubLObject setup_java_api_kernel_file()
           
 
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

$sym0$STRINGP

public static final SubLSymbol $sym0$STRINGP

$str1$Java_API_lease_monitor

public static final SubLString $str1$Java_API_lease_monitor

$sym2$JAVA_API_LEASE_MONITOR

public static final SubLSymbol $sym2$JAVA_API_LEASE_MONITOR

$sym3$INITIALIZE_JAVA_API_LEASE_MONITOR

public static final SubLSymbol $sym3$INITIALIZE_JAVA_API_LEASE_MONITOR

$str4$Initialize_the_process_which_moni

public static final SubLString $str4$Initialize_the_process_which_moni

$sym5$HALT_JAVA_API_LEASE_MONITOR

public static final SubLSymbol $sym5$HALT_JAVA_API_LEASE_MONITOR

$str6$Halt_the_the_process_which_monito

public static final SubLString $str6$Halt_the_the_process_which_monito

$kw7$IGNORE_ERRORS_TARGET

public static final SubLSymbol $kw7$IGNORE_ERRORS_TARGET

$sym8$IGNORE_ERRORS_HANDLER

public static final SubLSymbol $sym8$IGNORE_ERRORS_HANDLER

$sym9$CATCH_ERROR_MESSAGE_HANDLER

public static final SubLSymbol $sym9$CATCH_ERROR_MESSAGE_HANDLER

$int10$1000

public static final SubLInteger $int10$1000

$str11$Releasing_java_API_resources_iden

public static final SubLString $str11$Releasing_java_API_resources_iden

$str12$__Releasing_java_API_resources_id

public static final SubLString $str12$__Releasing_java_API_resources_id

$sym13$RELEASE_RESOURCES_FOR_JAVA_API_CLIENT

public static final SubLSymbol $sym13$RELEASE_RESOURCES_FOR_JAVA_API_CLIENT

$list14

public static final SubLList $list14

$str15$Closes_the_outbound_api_socket_an

public static final SubLString $str15$Closes_the_outbound_api_socket_an

$list16

public static final SubLList $list16

$list17

public static final SubLList $list17

$int18$3600000

public static final SubLInteger $int18$3600000

$sym19$INTEGERP

public static final SubLSymbol $sym19$INTEGERP

$str20$_cfasl_kernel_standard_output_

public static final SubLString $str20$_cfasl_kernel_standard_output_

$str21$api_services_lease_denied_for__A_

public static final SubLString $str21$api_services_lease_denied_for__A_

$str22$api_services_lease_denied

public static final SubLString $str22$api_services_lease_denied

$str23$api_services_lease_granted_by_

public static final SubLString $str23$api_services_lease_granted_by_

$str24$_to_

public static final SubLString $str24$_to_

$str25$_for_

public static final SubLString $str25$_for_

$str26$_milliseconds

public static final SubLString $str26$_milliseconds

$str27$_A__

public static final SubLString $str27$_A__

$sym28$ACQUIRE_API_SERVICES_LEASE

public static final SubLSymbol $sym28$ACQUIRE_API_SERVICES_LEASE

$list29

public static final SubLList $list29

$str30$Requests_an_API_services_lease___

public static final SubLString $str30$Requests_an_API_services_lease___

$list31

public static final SubLList $list31

$list32

public static final SubLList $list32

$str33$There_are_no_Java_API_client_leas

public static final SubLString $str33$There_are_no_Java_API_client_leas

$str34$Java_API_client__A_lease_expires_

public static final SubLString $str34$Java_API_client__A_lease_expires_

$sym35$SHOW_JAVA_API_SERVICE_LEASES

public static final SubLSymbol $sym35$SHOW_JAVA_API_SERVICE_LEASES

$str36$Displays_the_current_java_api_lea

public static final SubLString $str36$Displays_the_current_java_api_lea

$str37$Java_API_stream_lock

public static final SubLString $str37$Java_API_stream_lock

$str38$Initializing_java_client_socket__

public static final SubLString $str38$Initializing_java_client_socket__

$str39$Initialized_java_client_socket__S

public static final SubLString $str39$Initialized_java_client_socket__S

$str40$Invalid_java_client_socket__S__

public static final SubLString $str40$Invalid_java_client_socket__S__

$sym41$INITIALIZE_JAVA_API_PASSIVE_SOCKET

public static final SubLSymbol $sym41$INITIALIZE_JAVA_API_PASSIVE_SOCKET

$list42

public static final SubLList $list42

$str43$Associates_the_current_socket_wit

public static final SubLString $str43$Associates_the_current_socket_wit

$str44$Looked_up_socket__S_from_dictiona

public static final SubLString $str44$Looked_up_socket__S_from_dictiona

$str45$Removed_socket__S__from_dictionar

public static final SubLString $str45$Removed_socket__S__from_dictionar

$sym46$CLOSE_JAVA_API_SOCKET

public static final SubLSymbol $sym46$CLOSE_JAVA_API_SOCKET

$str47$Closes_the_persistent_cfasl_socke

public static final SubLString $str47$Closes_the_persistent_cfasl_socke

$str48$___S______S

public static final SubLString $str48$___S______S

$sym49$SHOW_JAVA_API_SOCKETS

public static final SubLSymbol $sym49$SHOW_JAVA_API_SOCKETS

$str50$Displays_the_java_api_sockets_

public static final SubLString $str50$Displays_the_java_api_sockets_

$sym51$RESET_JAVA_API_KERNEL

public static final SubLSymbol $sym51$RESET_JAVA_API_KERNEL

$str52$Reset_this_subsystem_to_an_un_ini

public static final SubLString $str52$Reset_this_subsystem_to_an_un_ini

$str53$Verifying_java_api_socket_identif

public static final SubLString $str53$Verifying_java_api_socket_identif

$list54

public static final SubLList $list54

$str55$closing_broken_java_api_socket__A

public static final SubLString $str55$closing_broken_java_api_socket__A

$str56$_cp

public static final SubLString $str56$_cp

$str57$Java_proxy_for_

public static final SubLString $str57$Java_proxy_for_

$sym58$LAUNCH_JAVA_APPLICATION_FROM_RED

public static final SubLSymbol $sym58$LAUNCH_JAVA_APPLICATION_FROM_RED

$kw59$LEAST_PRIVILEGED

public static final SubLSymbol $kw59$LEAST_PRIVILEGED

$str60$JAVA_HOME

public static final SubLString $str60$JAVA_HOME

$str61$JAVA_LIB

public static final SubLString $str61$JAVA_LIB

$str62$JAVA_VM

public static final SubLString $str62$JAVA_VM

$str63$JAVA_RE_HOME

public static final SubLString $str63$JAVA_RE_HOME

$str64$JAVA_RE_LIB

public static final SubLString $str64$JAVA_RE_LIB

$str65$JAVA_RE_VM

public static final SubLString $str65$JAVA_RE_VM

$str66$path_separator

public static final SubLString $str66$path_separator

$str67$java

public static final SubLString $str67$java

$list68

public static final SubLList $list68

$sym69$LISTP

public static final SubLSymbol $sym69$LISTP

$str70$java_main_class

public static final SubLString $str70$java_main_class

$str71$java_classpath

public static final SubLString $str71$java_classpath

$str72$java_arguments

public static final SubLString $str72$java_arguments

$sym73$CCONCATENATE

public static final SubLSymbol $sym73$CCONCATENATE
Method Detail

initialize_java_api_lease_monitor

public static final SubLObject initialize_java_api_lease_monitor()
Initialize the process which monitors lease expirations for java api clients.


halt_java_api_lease_monitor

public static final SubLObject halt_java_api_lease_monitor()
Halt the the process which monitors lease expirations for java api clients.


java_api_lease_monitor

public static final SubLObject java_api_lease_monitor()
Periodically monitors java api client leases, closing sockets and killing active api requests belonging to clients having expired leases.


release_resources_for_java_api_client

public static final SubLObject release_resources_for_java_api_client(SubLObject uuid_string,
                                                                     SubLObject abnormalP)
Closes the outbound api socket and kills active api requests identified by the given uuid-string.

Parameters:
uuid-string - ; stringp
abnormal? - ; boolean Whether or not the release was abnormal or expected

acquire_api_services_lease

public static final SubLObject acquire_api_services_lease(SubLObject lease_duration_in_milliseconds,
                                                          SubLObject uuid_string)
Requests an API services lease. Typical leases are expected to be 10 minutes. A lease request for a duration longer than one hour is denied.

Parameters:
lease-duration-in-milliseconds - ; integerp, the lease duration in milliseconds
uuid-string - ; stringp, identifies the java api client

get_current_api_socket

public static final SubLObject get_current_api_socket()

api_socket_in_stream

public static final SubLObject api_socket_in_stream(SubLObject api_socket)

api_socket_out_stream

public static final SubLObject api_socket_out_stream(SubLObject api_socket)

api_socket_lock

public static final SubLObject api_socket_lock(SubLObject api_socket)

initialize_java_api_passive_socket

public static final SubLObject initialize_java_api_passive_socket(SubLObject uuid_string)
Associates the current socket with the given UUID-STRING, then ends this server process that currently uses the socket.


java_api_socket

public static final SubLObject java_api_socket(SubLObject uuid_string)
Return the java api socket corresponding to the given UUID key.


java_api_socket_out_stream

public static final SubLObject java_api_socket_out_stream(SubLObject uuid_string)
Return the java api socket output stream corresponding to the given UUID key.


java_api_lock

public static final SubLObject java_api_lock(SubLObject uuid_string)
Return the java api socket output stream corresponding to the given UUID key.


close_java_api_socket

public static final SubLObject close_java_api_socket(SubLObject uuid_string)
Closes the persistent cfasl socket that is associated with the given UUID-STRING.


reset_java_api_kernel

public static final SubLObject reset_java_api_kernel()
Reset this subsystem to an un-initialized state.


cleanup_broken_java_api_sockets

public static final SubLObject cleanup_broken_java_api_sockets()
Attempt to send an ignorable message to each java api client and when failing, close its socket.


declare_java_api_kernel_file

public static final SubLObject declare_java_api_kernel_file()

init_java_api_kernel_file

public static final SubLObject init_java_api_kernel_file()

setup_java_api_kernel_file

public static final SubLObject setup_java_api_kernel_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.