;; AEM_constants.lsp ;; ;; Author: Michael Stephen Fiske ;; ;; Date: February 22, 2013. ;; Updated: January 19, 2023 (constant (global 'START_TIME) 0) (constant (global 'MAX_END_TIME) 2) (constant (global 'FIVE_SPACES) " ") (constant (global 'BLANK_STR) "") (constant (global 'ELEMENT_SYNTAX) "(element (time ) (name ) (threshold ) (refractory ) (last ))" ) (constant (global 'FIRE_SYNTAX) "(fire (time ) (name ) )" ) (constant (global 'CONNECTION_SYNTAX) "(connection (time ) (from ) (to ) (amp ) (width ) (delay ) )" ) (constant (global 'E_CMD) "E") ;; ELEMENT (constant (global 'F_CMD) "F") ;; FIRE (constant (global 'C_CMD) "C") ;; CONNECTION (constant (global 'M_CMD) "M") ;; META ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ERROR CODES calling into AEM.dylib ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ERROR codes -4, -5, -6, -7, -8, -9, -10, -11 are used in AEM_parse.lsp (constant (global 'C_FREE_TIME_ERROR) -4) (constant (global 'F_FREE_NAME_ERROR) -5) (constant (global 'F_FREE_TIME_ERROR) -6) (constant (global 'C_FREE_FROM_ERROR) -7) (constant (global 'C_FREE_TO_ERROR) -8) (constant (global 'C_FREE_AMP_ERROR) -9) (constant (global 'C_FREE_WIDTH_ERROR) -10) (constant (global 'C_FREE_DELAY_ERROR) -11) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ERROR codes -12, -14, ... -88 are used in AEM_run.lsp ;; (define-macro (element time_exp name_exp threshold_exp ref_exp last_exp) ...) (constant (global 'E_TIME_ERROR) -12) (constant (global 'E_NAME_ERROR) -14) (constant (global 'E_THRESHOLD_ERROR) -16) (constant (global 'E_REFRACTORY_ERROR) -18) (constant (global 'E_LAST_TIME_ERROR) -20) ;; (define-macro (connection time_exp from_exp to_exp amp_exp width_exp delay_exp) ...) (constant (global 'C_TIME_ERROR) -22) (constant (global 'C_FROM_ERROR) -24) (constant (global 'C_TO_ERROR) -26) (constant (global 'C_AMP_ERROR) -28) (constant (global 'C_WIDTH_ERROR) -30) (constant (global 'C_DELAY_ERROR) -32) ;; (define-macro (fire time_exp name_exp) ...) (constant (global 'F_TIME_ERROR) -40) (constant (global 'F_NAME_ERROR) -42) ;; (define-macro (meta name_exp win_exp cmd_exp) ...) (constant (global 'META_NAME_ERROR) -44) (constant (global 'M_C_TIME_ERROR) -50) (constant (global 'M_C_FROM_ERROR) -52) (constant (global 'M_C_TO_ERROR) -54) (constant (global 'M_C_AMP_ERROR) -56) (constant (global 'M_C_WIDTH_ERROR) -58) (constant (global 'M_C_DELAY_ERROR) -60) (constant (global 'M_E_TIME_ERROR) -62) (constant (global 'M_E_NAME_ERROR) -64) (constant (global 'M_E_THRESHOLD_ERROR) -66) (constant (global 'M_E_REFRACTORY_ERROR) -68) (constant (global 'M_E_LAST_TIME_ERROR) -70) ;; (execute_AEM_program AEM_file_name start_time end_time firing_file_name) (constant (global 'MAKE_E_CMD_ERROR) -71) (constant (global 'MAKE_C_CMD_ERROR) -72) (constant (global 'MAKE_F_CMD_ERROR) -74) (constant (global 'MAKE_M_C_CMD_ERROR) -76) (constant (global 'MAKE_M_E_CMD_ERROR) -78) (constant (global 'MAKE_PROGRAM_ERROR) -80) (constant (global 'TEST_PROGRAM_ERROR) -82) (constant (global 'INSERT_FIRE_ERROR) -84) (constant (global 'INSERT_CONNECTION_ERROR) -86) (constant (global 'EXECUTE_AEM_ERROR) -88) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (constant (global 'PR_COMMAND_TIME_DELAY) 200) (constant (global 'AEM_SUFFIX) ".aem") (constant (global 'LSP_SUFFIX) ".lsp") (constant (global 'USE_RANDOMNESS) false) (constant (global 'DEFAULT_AEM_FILE) "random_xor.aem") (constant (global 'FIRINGS_FILENAME) "firing_patterns.lsp") (constant (global 'RANDOM_BITS_FILENAME) "random_bits.lsp") (constant (global 'LOG_AEM_COMMANDS) false) (constant (global 'LOG_AEM_EXECUTION) true)