@SubL(source = "sublisp/condition-macros.lisp", position = 1332)
 public static final SubLObject with_simple_restart_internal(
     SubLObject name, SubLObject format_control, SubLObject format_arguments, SubLObject body) {
   {
     SubLObject tag = Symbols.make_symbol($str1$RESTART_TAG);
     SubLObject dummy = Symbols.make_symbol($str2$DUMMY);
     return list(
         $sym3$CLET,
         list(
             list(
                 tag,
                 ((NIL != name)
                     ? ((SubLObject) list($sym4$QUOTE, name))
                     : list($sym4$QUOTE, tag))),
             dummy),
         list($sym5$IGNORE, dummy),
         list(
             $sym3$CLET,
             list(
                 list(
                     $sym6$_RESTARTS_,
                     listS(
                         $sym7$CONS,
                         listS(
                             $sym8$LIST,
                             tag,
                             format_control,
                             ConsesLow.append(format_arguments, NIL)),
                         $list9))),
             listS($sym10$CCATCH, tag, dummy, ConsesLow.append(body, NIL))));
   }
 }
 public static final SubLObject init_builder_utilities_file() {
   $all_cyc_products$ = defparameter("*ALL-CYC-PRODUCTS*", NIL);
   $cyc_product_definitions$ = defparameter("*CYC-PRODUCT-DEFINITIONS*", NIL);
   $cyc_product$ =
       deflexical(
           "*CYC-PRODUCT*",
           ((NIL != Symbols.boundp($sym49$_CYC_PRODUCT_))
               ? ((SubLObject) $cyc_product$.getGlobalValue())
               : NIL));
   $code_product$ = defconstant("*CODE-PRODUCT*", $kw42$STANDARD);
   $kb_product$ =
       deflexical(
           "*KB-PRODUCT*",
           ((NIL != Symbols.boundp($sym50$_KB_PRODUCT_))
               ? ((SubLObject) $kb_product$.getGlobalValue())
               : NIL));
   $branch_tag$ = defconstant("*BRANCH-TAG*", $str44$head);
   $generic_sbhl_caching_policy_templates$ =
       defparameter(
           "*GENERIC-SBHL-CACHING-POLICY-TEMPLATES*",
           list(
               new SubLObject[] {
                 specify_sbhl_caching_policy_template(
                     $kw55$DEFAULT, $kw56$STICKY, $kw57$UNDEFINED, $kw58$ALL, UNPROVIDED),
                 specify_sbhl_caching_policy_template(
                     $const59$genlMt, $kw56$STICKY, $kw57$UNDEFINED, $kw58$ALL, $kw58$ALL),
                 specify_sbhl_caching_policy_template(
                     $const60$genlPreds, $kw61$SWAPOUT, $int62$500, $int62$500, $int63$200),
                 specify_sbhl_caching_policy_template(
                     $const64$negationPreds, $kw61$SWAPOUT, $int62$500, $int65$100, ZERO_INTEGER),
                 specify_sbhl_caching_policy_template(
                     $const66$disjointWith, $kw61$SWAPOUT, $int62$500, $int62$500, $int63$200),
                 specify_sbhl_caching_policy_template(
                     $const67$genlInverse, $kw61$SWAPOUT, $int62$500, $int62$500, $int63$200),
                 specify_sbhl_caching_policy_template(
                     $const68$negationInverse,
                     $kw61$SWAPOUT,
                     $int62$500,
                     $int65$100,
                     ZERO_INTEGER),
                 specify_sbhl_caching_policy_template(
                     $const69$genls, $kw61$SWAPOUT, $int70$5000, $int70$5000, $int71$2000),
                 specify_sbhl_caching_policy_template(
                     $const72$isa, $kw61$SWAPOUT, $int73$10000, $int74$8000, $int71$2000),
                 specify_sbhl_caching_policy_template(
                     $const75$quotedIsa, $kw61$SWAPOUT, $int70$5000, $int76$4000, $int77$1000)
               }));
   $cyc_tests_to_use_for_sbhl_cache_tuning$ =
       defparameter("*CYC-TESTS-TO-USE-FOR-SBHL-CACHE-TUNING*", NIL);
   $kb_queries_to_use_for_sbhl_cache_tuning$ =
       defparameter("*KB-QUERIES-TO-USE-FOR-SBHL-CACHE-TUNING*", NIL);
   $run_cyclops_for_sbhl_cache_tuningP$ =
       defparameter("*RUN-CYCLOPS-FOR-SBHL-CACHE-TUNING?*", NIL);
   return NIL;
 }
示例#3
0
文件: VTable.java 项目: ashleyj/aura
 public FunctionRef getFunctionRef() {
   if (Modifier.isAbstract(modifiers)) {
     return null;
   }
   String owner = declaringClass.replace('.', '/');
   String functionName =
       Modifier.isSynchronized(modifiers)
           ? Symbols.synchronizedWrapperSymbol(owner, name, desc)
           : Symbols.methodSymbol(owner, name, desc);
   return new FunctionRef(functionName, getFunctionType(desc, Modifier.isStatic(modifiers)));
 }
示例#4
0
 void doRead(DataInputStream is) throws IOException {
   int size = is.readInt();
   for (int i = 0; i < size; ++i) {
     String line = is.readUTF();
     lines.add(line);
     try {
       symbols.define(symbols.compileWithName(line));
     } catch (SyntaxException e) {
       // ignore
     }
   }
 }
 public static final SubLObject init_constant_completion_file() {
   $constant_names_in_code$ =
       deflexical(
           "*CONSTANT-NAMES-IN-CODE*",
           ((NIL != Symbols.boundp($sym0$_CONSTANT_NAMES_IN_CODE_))
               ? ((SubLObject) $constant_names_in_code$.getGlobalValue())
               : NIL));
   $bogus_constant_names_in_code$ =
       deflexical(
           "*BOGUS-CONSTANT-NAMES-IN-CODE*",
           ((NIL != Symbols.boundp($sym1$_BOGUS_CONSTANT_NAMES_IN_CODE_))
               ? ((SubLObject) $bogus_constant_names_in_code$.getGlobalValue())
               : NIL));
   return NIL;
 }
 /**
  * Returns the cyc product identifier for this combination of code-product, kb-product and
  * branch-tag.
  */
 @SubL(source = "cycl/builder-utilities.lisp", position = 28769)
 public static final SubLObject find_cyc_product(
     SubLObject code_product, SubLObject kb_product, SubLObject branch_tag) {
   {
     final SubLThread thread = SubLProcess.currentSubLThread();
     return Sequences.find(
             list(code_product, kb_product, branch_tag),
             $cyc_product_definitions$.getDynamicValue(thread),
             Symbols.symbol_function(EQUAL),
             Symbols.symbol_function($sym40$CDR),
             UNPROVIDED,
             UNPROVIDED)
         .first();
   }
 }
 public static final SubLObject init_hierarchical_visitor_file() {
   $default_hierarchical_visitor_noop_callback$ =
       deflexical(
           "*DEFAULT-HIERARCHICAL-VISITOR-NOOP-CALLBACK*", Symbols.symbol_function($sym0$FALSE));
   $dtp_hierarchical_visitor$ =
       defconstant("*DTP-HIERARCHICAL-VISITOR*", $sym1$HIERARCHICAL_VISITOR);
   return NIL;
 }
 public static final SubLObject init_bag_file() {
   $dtp_bag$ = defconstant("*DTP-BAG*", $sym0$BAG);
   $bag_repeat_contents_iterator_watermark$ =
       deflexical("*BAG-REPEAT-CONTENTS-ITERATOR-WATERMARK*", EIGHT_INTEGER);
   $new_bag_default_test_function$ =
       deflexical("*NEW-BAG-DEFAULT-TEST-FUNCTION*", Symbols.symbol_function(EQL));
   $cfasl_opcode_bag$ = defconstant("*CFASL-OPCODE-BAG*", $int64$62);
   return NIL;
 }
 public static final SubLObject setup_bag_file() {
   // CVS_ID("Id: bag.lisp 126640 2008-12-04 13:39:36Z builder ");
   Structures.register_method(
       print_high.$print_object_method_table$.getGlobalValue(),
       $dtp_bag$.getGlobalValue(),
       Symbols.symbol_function($sym8$BAG_PRINT_FUNCTION_TRAMPOLINE));
   Structures.def_csetf(
       $sym9$BAG_STRUCT_UNIQUE_CONTENTS, $sym10$_CSETF_BAG_STRUCT_UNIQUE_CONTENTS);
   Structures.def_csetf(
       $sym11$BAG_STRUCT_REPEAT_CONTENTS, $sym12$_CSETF_BAG_STRUCT_REPEAT_CONTENTS);
   Structures.def_csetf($sym13$BAG_STRUCT_REPEAT_SIZE, $sym14$_CSETF_BAG_STRUCT_REPEAT_SIZE);
   Structures.def_csetf($sym15$BAG_STRUCT_TEST, $sym16$_CSETF_BAG_STRUCT_TEST);
   Equality.identity($sym0$BAG);
   access_macros.register_macro_helper($sym54$DO_BAG_REPEAT_INTERNAL, $sym63$DO_BAG_UNIQUE);
   access_macros.register_macro_helper($sym58$DO_BAG_UNIQUE_INTERNAL, $sym63$DO_BAG_UNIQUE);
   cfasl.register_cfasl_input_function(
       $cfasl_opcode_bag$.getGlobalValue(), $sym65$CFASL_INPUT_BAG);
   Structures.register_method(
       cfasl.$cfasl_output_object_method_table$.getGlobalValue(),
       $dtp_bag$.getGlobalValue(),
       Symbols.symbol_function($sym66$CFASL_OUTPUT_OBJECT_BAG_METHOD));
   generic_testing.define_test_case_table_int(
       $sym70$BAG_UNIT_TEST_KITCHEN_SINK,
       list(
           new SubLObject[] {
             $kw20$TEST,
             NIL,
             $kw71$OWNER,
             NIL,
             $kw72$CLASSES,
             NIL,
             $kw73$KB,
             $kw74$TINY,
             $kw75$WORKING_,
             T
           }),
       $list76);
   return NIL;
 }
 /** Returns T if a cyc product definition composed of these 4 values exists. */
 @SubL(source = "cycl/builder-utilities.lisp", position = 28472)
 public static final SubLObject cyc_product_definition_presentP(
     SubLObject cyc_product,
     SubLObject code_product,
     SubLObject kb_product,
     SubLObject branch_tag) {
   {
     final SubLThread thread = SubLProcess.currentSubLThread();
     return conses_high.member(
         list(cyc_product, code_product, kb_product, branch_tag),
         $cyc_product_definitions$.getDynamicValue(thread),
         Symbols.symbol_function(EQUAL),
         UNPROVIDED);
   }
 }
 public static final SubLObject setup_hierarchical_visitor_file() {
   // CVS_ID("Id: hierarchical-visitor.lisp 127954 2009-06-04 20:08:55Z rck ");
   Structures.register_method(
       print_high.$print_object_method_table$.getGlobalValue(),
       $dtp_hierarchical_visitor$.getGlobalValue(),
       Symbols.symbol_function($sym8$HIERARCHICAL_VISITOR_PRINT_FUNCTION_TRAMPOLINE));
   Structures.def_csetf($sym9$HIER_VISIT_BEGIN_PATH_FN, $sym10$_CSETF_HIER_VISIT_BEGIN_PATH_FN);
   Structures.def_csetf($sym11$HIER_VISIT_END_PATH_FN, $sym12$_CSETF_HIER_VISIT_END_PATH_FN);
   Structures.def_csetf($sym13$HIER_VISIT_ACCEPT_NODE_FN, $sym14$_CSETF_HIER_VISIT_ACCEPT_NODE_FN);
   Structures.def_csetf($sym15$HIER_VISIT_BEGIN_VISIT_FN, $sym16$_CSETF_HIER_VISIT_BEGIN_VISIT_FN);
   Structures.def_csetf($sym17$HIER_VISIT_END_VISIT_FN, $sym18$_CSETF_HIER_VISIT_END_VISIT_FN);
   Structures.def_csetf($sym19$HIER_VISIT_PARAM, $sym20$_CSETF_HIER_VISIT_PARAM);
   Equality.identity($sym1$HIERARCHICAL_VISITOR);
   return NIL;
 }
 @SubL(source = "sublisp/condition-macros.lisp", position = 3587)
 public static final SubLObject ignore_errors_internal(SubLObject body) {
   {
     SubLObject tag = Symbols.make_symbol($str13$IGNORE_ERRORS_TAG);
     return list(
         $sym3$CLET,
         list(tag),
         list(
             $sym10$CCATCH,
             $kw14$IGNORE_ERRORS_TARGET,
             tag,
             list($sym5$IGNORE, tag),
             listS($sym15$WITH_ERROR_HANDLER, $list16, ConsesLow.append(body, NIL))));
   }
 }
 @SubL(source = "cycl/constant-completion.lisp", position = 2143)
 public static final SubLObject compute_bogus_constant_names_in_code() {
   {
     final SubLThread thread = SubLProcess.currentSubLThread();
     if ((NIL != $constant_names_in_code$.getGlobalValue())) {
       {
         SubLObject _prev_bind_0 =
             utilities_macros.$noting_progress_start_time$.currentBinding(thread);
         try {
           utilities_macros.$noting_progress_start_time$.bind(Time.get_universal_time(), thread);
           utilities_macros.noting_progress_preamble($str4$Computing_bogus_constant_names_in);
           $bogus_constant_names_in_code$.setGlobalValue(NIL);
           {
             SubLObject cdolist_list_var = $constant_names_in_code$.getGlobalValue();
             SubLObject name = NIL;
             for (name = cdolist_list_var.first();
                 (NIL != cdolist_list_var);
                 cdolist_list_var = cdolist_list_var.rest(), name = cdolist_list_var.first()) {
               {
                 SubLObject constant = constants_high.find_constant(name);
                 if ((NIL != constants_high.uninstalled_constant_p(constant))) {
                   $bogus_constant_names_in_code$.setGlobalValue(
                       cons(name, $bogus_constant_names_in_code$.getGlobalValue()));
                 }
               }
             }
           }
           $bogus_constant_names_in_code$.setGlobalValue(
               Sort.sort(
                   $bogus_constant_names_in_code$.getGlobalValue(),
                   Symbols.symbol_function($sym3$STRING_),
                   UNPROVIDED));
           utilities_macros.noting_progress_postamble();
         } finally {
           utilities_macros.$noting_progress_start_time$.rebind(_prev_bind_0, thread);
         }
       }
     }
     return Sequences.length($bogus_constant_names_in_code$.getGlobalValue());
   }
 }
 @SubL(source = "cycl/constant-completion.lisp", position = 1600)
 public static final SubLObject initialize_constant_names_in_code() {
   if (ZERO_INTEGER.numE(constant_handles.constant_count())) {
     $constant_names_in_code$.setGlobalValue(NIL);
     {
       SubLObject cdolist_list_var = constant_handles.invalid_constant_names();
       SubLObject invalid_constant_name = NIL;
       for (invalid_constant_name = cdolist_list_var.first();
           (NIL != cdolist_list_var);
           cdolist_list_var = cdolist_list_var.rest(),
               invalid_constant_name = cdolist_list_var.first()) {
         $constant_names_in_code$.setGlobalValue(
             cons(invalid_constant_name, $constant_names_in_code$.getGlobalValue()));
       }
     }
     $constant_names_in_code$.setGlobalValue(
         Sort.sort(
             $constant_names_in_code$.getGlobalValue(),
             Symbols.symbol_function($sym3$STRING_),
             UNPROVIDED));
   }
   return Sequences.length($constant_names_in_code$.getGlobalValue());
 }
示例#15
0
  public Javascript() {
    LangName = "Javascript";

    CommentSingle = new HashMap<Integer, String>();
    CommentSingle.put(1, "//");

    CommentMulti = new HashMap<String, String>();
    CommentMulti.put("/*", "*/");

    CommentRegexp = new HashMap<Integer, String>();
    CommentRegexp.put(
        2,
        "(?i)(?<=[\\s^])s\\/(?:\\\\.|[^\\/\\\\])+\\/(?:\\\\.|[^\\/\\\\])+\\/[gimsu]*(?=[\\s$\\.\\;])|(?<=[\\s^(=])m?\\/(?:\\\\.|[^\\/\\\\])+\\/[gimsu]*(?=[\\s$\\.\\,\\;\\)])");

    CaseKeywords = Global.GESHI_CAPS_NO_CHANGE;

    Quotemarks = new ArrayList<String>();
    Quotemarks.add("\'");
    Quotemarks.add("\"");

    EscapeChar = '\\';

    Keywords = new HashMap<Integer, ArrayList<String>>();
    ArrayList<String> KeyStrList1 = new ArrayList<String>();
    KeyStrList1.add("as");
    KeyStrList1.add("break");
    KeyStrList1.add("case");
    KeyStrList1.add("catch");
    KeyStrList1.add("continue");
    KeyStrList1.add("decodeURI");
    KeyStrList1.add("delete");
    KeyStrList1.add("do");
    KeyStrList1.add("else");
    KeyStrList1.add("encodeURI");
    KeyStrList1.add("eval");
    KeyStrList1.add("finally");
    KeyStrList1.add("for");
    KeyStrList1.add("if");
    KeyStrList1.add("in");
    KeyStrList1.add("is");
    KeyStrList1.add("item");
    KeyStrList1.add("instanceof");
    KeyStrList1.add("return");
    KeyStrList1.add("switch");
    KeyStrList1.add("this");
    KeyStrList1.add("throw");
    KeyStrList1.add("try");
    KeyStrList1.add("typeof");
    KeyStrList1.add("void");
    KeyStrList1.add("while");
    KeyStrList1.add("write");
    KeyStrList1.add("with");
    Keywords.put(1, KeyStrList1);
    ArrayList<String> KeyStrList2 = new ArrayList<String>();
    KeyStrList2.add("class");
    KeyStrList2.add("const");
    KeyStrList2.add("default");
    KeyStrList2.add("debugger");
    KeyStrList2.add("export");
    KeyStrList2.add("extends");
    KeyStrList2.add("false");
    KeyStrList2.add("function");
    KeyStrList2.add("import");
    KeyStrList2.add("namespace");
    KeyStrList2.add("new");
    KeyStrList2.add("null");
    KeyStrList2.add("package");
    KeyStrList2.add("private");
    KeyStrList2.add("protected");
    KeyStrList2.add("public");
    KeyStrList2.add("super");
    KeyStrList2.add("true");
    KeyStrList2.add("use");
    KeyStrList2.add("var");
    Keywords.put(2, KeyStrList2);
    ArrayList<String> KeyStrList3 = new ArrayList<String>();
    KeyStrList3.add("alert");
    KeyStrList3.add("back");
    KeyStrList3.add("blur");
    KeyStrList3.add("close");
    KeyStrList3.add("confirm");
    KeyStrList3.add("focus");
    KeyStrList3.add("forward");
    KeyStrList3.add("home");
    KeyStrList3.add("name");
    KeyStrList3.add("navigate");
    KeyStrList3.add("onblur");
    KeyStrList3.add("onerror");
    KeyStrList3.add("onfocus");
    KeyStrList3.add("onload");
    KeyStrList3.add("onmove");
    KeyStrList3.add("onresize");
    KeyStrList3.add("onunload");
    KeyStrList3.add("open");
    KeyStrList3.add("print");
    KeyStrList3.add("prompt");
    KeyStrList3.add("scroll");
    KeyStrList3.add("status");
    KeyStrList3.add("stop");
    Keywords.put(3, KeyStrList3);

    Symbols = new HashMap<Integer, ArrayList<String>>();
    ArrayList<String> SymStrList = new ArrayList<String>();
    SymStrList.add("(");
    SymStrList.add(")");
    SymStrList.add("[");
    SymStrList.add("]");
    SymStrList.add("{");
    SymStrList.add("}");
    SymStrList.add("+");
    SymStrList.add("-");
    SymStrList.add("*");
    SymStrList.add("/");
    SymStrList.add("%");
    SymStrList.add("!");
    SymStrList.add("@");
    SymStrList.add("&");
    SymStrList.add("|");
    SymStrList.add("^");
    SymStrList.add("<");
    SymStrList.add(">");
    SymStrList.add("=");
    SymStrList.add(",");
    SymStrList.add(";");
    SymStrList.add("?");
    SymStrList.add(":");
    Symbols.put(Global.JASHI_STUBINDEX, SymStrList);

    CaseSensitive = new HashMap<Integer, Boolean>();
    CaseSensitive.put(Global.GESHI_COMMENTS, false);
    CaseSensitive.put(1, false);
    CaseSensitive.put(2, false);
    CaseSensitive.put(3, false);

    Styles.Keywords.put(1, "color:#000066;font-weight:bold;");
    Styles.Keywords.put(2, "color:#003366;font-weight:bold;");
    Styles.Keywords.put(3, "color:#000066;");
    Styles.Comments.put(1, "color:#006600;font-style:italic;");
    Styles.Comments.put(2, "color:#009966;font-style:italic;");
    Styles.Comments.put(Global.MULTI, "color:#006600;font-style:italic;");
    Styles.EscapeChar.put(0, "color:#000099;font-weight:bold;");
    Styles.Brackets.put(0, "color:#009900;");
    Styles.Strings.put(0, "color:#3366CC;");
    Styles.Numbers.put(0, "color:#CC0000;");
    Styles.Methods.put(1, "color:#006600;");
    Styles.Symbols.put(0, "color:#339933;");
    Styles.Script.put(0, "");
    Styles.Script.put(1, "");
    Styles.Script.put(2, "");
    Styles.Script.put(3, "");

    URLS = new HashMap<Integer, String>();
    URLS.put(1, "");
    URLS.put(2, "");
    URLS.put(3, "");

    OOLANG = true;

    ObjectSplitters = new HashMap<Integer, String>();
    ObjectSplitters.put(1, ".");

    Regexps = new HashMap<Integer, HashMap<Integer, String>>();

    StrictModeApplies = Global.GESHI_MAYBE;

    ScriptDelimiters = new HashMap<Integer, HashMap<String, String>>();
    HashMap<String, String> DelStrMap0 = new HashMap<String, String>();
    DelStrMap0.put("<scripttype=\"text/javascript\">", "</script>");
    ScriptDelimiters.put(0, DelStrMap0);
    HashMap<String, String> DelStrMap1 = new HashMap<String, String>();
    DelStrMap1.put("<scriptlanguage=\"javascript\">", "</script>");
    ScriptDelimiters.put(1, DelStrMap1);

    HighlightStrictBlock = new HashMap<Integer, Boolean>();
    HighlightStrictBlock.put(0, true);
    HighlightStrictBlock.put(1, true);
  }
 public static final SubLObject setup_simple_lru_cache_strategy_file() {
   // CVS_ID("Id: simple-lru-cache-strategy.lisp 126880 2009-01-22 21:59:16Z tbrussea ");
   Structures.register_method(
       print_high.$print_object_method_table$.getGlobalValue(),
       $dtp_simple_lru_cache_strategy$.getGlobalValue(),
       Symbols.symbol_function($sym7$SIMPLE_LRU_CACHE_STRATEGY_PRINT_FUNCTION_TRAMPOLINE));
   Structures.def_csetf($sym8$SLRU_CACHESTRAT_CAPACITY, $sym9$_CSETF_SLRU_CACHESTRAT_CAPACITY);
   Structures.def_csetf($sym10$SLRU_CACHESTRAT_INDEX, $sym11$_CSETF_SLRU_CACHESTRAT_INDEX);
   Structures.def_csetf($sym12$SLRU_CACHESTRAT_PAYLOAD, $sym13$_CSETF_SLRU_CACHESTRAT_PAYLOAD);
   Structures.def_csetf($sym14$SLRU_CACHESTRAT_HEAD, $sym15$_CSETF_SLRU_CACHESTRAT_HEAD);
   Structures.def_csetf($sym16$SLRU_CACHESTRAT_TAIL, $sym17$_CSETF_SLRU_CACHESTRAT_TAIL);
   Structures.def_csetf(
       $sym18$SLRU_CACHESTRAT_FREELIST_HEAD, $sym19$_CSETF_SLRU_CACHESTRAT_FREELIST_HEAD);
   Structures.def_csetf($sym20$SLRU_CACHESTRAT_METRICS, $sym21$_CSETF_SLRU_CACHESTRAT_METRICS);
   Equality.identity($sym0$SIMPLE_LRU_CACHE_STRATEGY);
   Structures.register_method(
       cache_utilities.$cache_strategy_object_p_method_table$.getGlobalValue(),
       $dtp_simple_lru_cache_strategy$.getGlobalValue(),
       Symbols.symbol_function($sym50$CACHE_STRATEGY_OBJECT_P_SIMPLE_LRU_CACHE_STRATEGY_METHOD));
   Structures.register_method(
       cache_utilities.$cache_strategy_object_reset_method_table$.getGlobalValue(),
       $dtp_simple_lru_cache_strategy$.getGlobalValue(),
       Symbols.symbol_function(
           $sym51$CACHE_STRATEGY_OBJECT_RESET_SIMPLE_LRU_CACHE_STRATEGY_METHOD));
   Structures.register_method(
       cache_utilities.$cache_strategy_object_cache_capacity_method_table$.getGlobalValue(),
       $dtp_simple_lru_cache_strategy$.getGlobalValue(),
       Symbols.symbol_function(
           $sym52$CACHE_STRATEGY_OBJECT_CACHE_CAPACITY_SIMPLE_LRU_CACHE_STRATEGY_ME));
   Structures.register_method(
       cache_utilities.$cache_strategy_object_cache_size_method_table$.getGlobalValue(),
       $dtp_simple_lru_cache_strategy$.getGlobalValue(),
       Symbols.symbol_function(
           $sym53$CACHE_STRATEGY_OBJECT_CACHE_SIZE_SIMPLE_LRU_CACHE_STRATEGY_METHOD));
   Structures.register_method(
       cache_utilities.$cache_strategy_object_track_method_table$.getGlobalValue(),
       $dtp_simple_lru_cache_strategy$.getGlobalValue(),
       Symbols.symbol_function(
           $sym54$CACHE_STRATEGY_OBJECT_TRACK_SIMPLE_LRU_CACHE_STRATEGY_METHOD));
   Structures.register_method(
       cache_utilities.$cache_strategy_object_trackedP_method_table$.getGlobalValue(),
       $dtp_simple_lru_cache_strategy$.getGlobalValue(),
       Symbols.symbol_function(
           $sym55$CACHE_STRATEGY_OBJECT_TRACKED__SIMPLE_LRU_CACHE_STRATEGY_METHOD));
   Structures.register_method(
       cache_utilities.$cache_strategy_object_untrack_method_table$.getGlobalValue(),
       $dtp_simple_lru_cache_strategy$.getGlobalValue(),
       Symbols.symbol_function(
           $sym56$CACHE_STRATEGY_OBJECT_UNTRACK_SIMPLE_LRU_CACHE_STRATEGY_METHOD));
   Structures.register_method(
       cache_utilities.$cache_strategy_object_supports_parameter_p_method_table$.getGlobalValue(),
       $dtp_simple_lru_cache_strategy$.getGlobalValue(),
       Symbols.symbol_function(
           $sym57$CACHE_STRATEGY_OBJECT_SUPPORTS_PARAMETER_P_SIMPLE_LRU_CACHE_STRAT));
   Structures.register_method(
       cache_utilities.$cache_strategy_object_get_parameter_method_table$.getGlobalValue(),
       $dtp_simple_lru_cache_strategy$.getGlobalValue(),
       Symbols.symbol_function(
           $sym58$CACHE_STRATEGY_OBJECT_GET_PARAMETER_SIMPLE_LRU_CACHE_STRATEGY_MET));
   Structures.register_method(
       cache_utilities.$cache_strategy_object_set_parameter_method_table$.getGlobalValue(),
       $dtp_simple_lru_cache_strategy$.getGlobalValue(),
       Symbols.symbol_function(
           $sym59$CACHE_STRATEGY_OBJECT_SET_PARAMETER_SIMPLE_LRU_CACHE_STRATEGY_MET));
   Structures.register_method(
       cache_utilities.$cache_strategy_object_note_reference_method_table$.getGlobalValue(),
       $dtp_simple_lru_cache_strategy$.getGlobalValue(),
       Symbols.symbol_function(
           $sym60$CACHE_STRATEGY_OBJECT_NOTE_REFERENCE_SIMPLE_LRU_CACHE_STRATEGY_ME));
   Structures.register_method(
       cache_utilities.$cache_strategy_object_note_references_in_order_method_table$
           .getGlobalValue(),
       $dtp_simple_lru_cache_strategy$.getGlobalValue(),
       Symbols.symbol_function(
           $sym61$CACHE_STRATEGY_OBJECT_NOTE_REFERENCES_IN_ORDER_SIMPLE_LRU_CACHE_S));
   Structures.register_method(
       cache_utilities.$cache_strategy_object_get_metrics_method_table$.getGlobalValue(),
       $dtp_simple_lru_cache_strategy$.getGlobalValue(),
       Symbols.symbol_function(
           $sym62$CACHE_STRATEGY_OBJECT_GET_METRICS_SIMPLE_LRU_CACHE_STRATEGY_METHO));
   Structures.register_method(
       cache_utilities.$cache_strategy_object_reset_metrics_method_table$.getGlobalValue(),
       $dtp_simple_lru_cache_strategy$.getGlobalValue(),
       Symbols.symbol_function(
           $sym63$CACHE_STRATEGY_OBJECT_RESET_METRICS_SIMPLE_LRU_CACHE_STRATEGY_MET));
   Structures.register_method(
       cache_utilities.$cache_strategy_object_gather_metrics_method_table$.getGlobalValue(),
       $dtp_simple_lru_cache_strategy$.getGlobalValue(),
       Symbols.symbol_function(
           $sym64$CACHE_STRATEGY_OBJECT_GATHER_METRICS_SIMPLE_LRU_CACHE_STRATEGY_ME));
   Structures.register_method(
       cache_utilities.$cache_strategy_object_dont_gather_metrics_method_table$.getGlobalValue(),
       $dtp_simple_lru_cache_strategy$.getGlobalValue(),
       Symbols.symbol_function(
           $sym65$CACHE_STRATEGY_OBJECT_DONT_GATHER_METRICS_SIMPLE_LRU_CACHE_STRATE));
   Structures.register_method(
       cache_utilities.$cache_strategy_object_keeps_metrics_p_method_table$.getGlobalValue(),
       $dtp_simple_lru_cache_strategy$.getGlobalValue(),
       Symbols.symbol_function(
           $sym66$CACHE_STRATEGY_OBJECT_KEEPS_METRICS_P_SIMPLE_LRU_CACHE_STRATEGY_M));
   Structures.register_method(
       cache_utilities.$new_cache_strategy_object_tracked_content_iterator_method_table$
           .getGlobalValue(),
       $dtp_simple_lru_cache_strategy$.getGlobalValue(),
       Symbols.symbol_function(
           $sym67$NEW_CACHE_STRATEGY_OBJECT_TRACKED_CONTENT_ITERATOR_SIMPLE_LRU_CAC));
   Structures.register_method(
       cache_utilities.$map_cache_strategy_object_tracked_content_method_table$.getGlobalValue(),
       $dtp_simple_lru_cache_strategy$.getGlobalValue(),
       Symbols.symbol_function(
           $sym68$MAP_CACHE_STRATEGY_OBJECT_TRACKED_CONTENT_SIMPLE_LRU_CACHE_STRATE));
   Structures.register_method(
       cache_utilities.$cache_strategy_object_untrack_all_method_table$.getGlobalValue(),
       $dtp_simple_lru_cache_strategy$.getGlobalValue(),
       Symbols.symbol_function(
           $sym69$CACHE_STRATEGY_OBJECT_UNTRACK_ALL_SIMPLE_LRU_CACHE_STRATEGY_METHO));
   generic_testing.define_test_case_table_int(
       $sym70$TEST_BASIC_SLRU_CACHE_STRATEGY,
       list(
           new SubLObject[] {
             $kw71$TEST,
             NIL,
             $kw72$OWNER,
             NIL,
             $kw73$CLASSES,
             NIL,
             $kw74$KB,
             $kw75$TINY,
             $kw76$WORKING_,
             T
           }),
       $list77);
   generic_testing.define_test_case_table_int(
       $sym90$COMPARE_SLRU_CACHE_STRATEGY_WITH_CACHE,
       list(
           new SubLObject[] {
             $kw71$TEST,
             NIL,
             $kw72$OWNER,
             NIL,
             $kw73$CLASSES,
             NIL,
             $kw74$KB,
             $kw75$TINY,
             $kw76$WORKING_,
             NIL
           }),
       $list91);
   generic_testing.define_test_case_table_int(
       $sym93$COMPARE_SLRU_CACHE_STRATEGY_SPEED_WITH_CACHE,
       list(
           new SubLObject[] {
             $kw71$TEST,
             NIL,
             $kw72$OWNER,
             NIL,
             $kw73$CLASSES,
             NIL,
             $kw74$KB,
             $kw75$TINY,
             $kw76$WORKING_,
             NIL
           }),
       $list94);
   return NIL;
 }
 private void registerDefaultSymbols() {
   for (Symbol symbol : Symbols.getAll()) {
     registerSymbol(symbol);
   }
 }
 public static final SubLObject init_operation_queues_file() {
   $local_queue$ =
       deflexical(
           "*LOCAL-QUEUE*",
           ((NIL != Symbols.boundp($sym0$_LOCAL_QUEUE_))
               ? ((SubLObject) $local_queue$.getGlobalValue())
               : queues.create_queue()));
   $local_queue_lock$ =
       defparameter("*LOCAL-QUEUE-LOCK*", Locks.make_lock($str1$Local_Queue_Lock));
   $remote_queue$ =
       deflexical(
           "*REMOTE-QUEUE*",
           ((NIL != Symbols.boundp($sym3$_REMOTE_QUEUE_))
               ? ((SubLObject) $remote_queue$.getGlobalValue())
               : queues.create_queue()));
   $remote_queue_lock$ =
       defparameter("*REMOTE-QUEUE-LOCK*", Locks.make_lock($str4$Remote_Queue_Lock));
   $transcript_queue$ =
       deflexical(
           "*TRANSCRIPT-QUEUE*",
           ((NIL != Symbols.boundp($sym5$_TRANSCRIPT_QUEUE_))
               ? ((SubLObject) $transcript_queue$.getGlobalValue())
               : queues.create_queue()));
   $transcript_queue_lock$ =
       defparameter("*TRANSCRIPT-QUEUE-LOCK*", Locks.make_lock($str6$Transcript_Queue_Lock));
   $hl_transcript_queue$ =
       deflexical(
           "*HL-TRANSCRIPT-QUEUE*",
           ((NIL != Symbols.boundp($sym7$_HL_TRANSCRIPT_QUEUE_))
               ? ((SubLObject) $hl_transcript_queue$.getGlobalValue())
               : queues.create_queue()));
   $hl_transcript_queue_lock$ =
       defparameter("*HL-TRANSCRIPT-QUEUE-LOCK*", Locks.make_lock($str8$HL_Transcript_Queue_Lock));
   $auxiliary_queue$ =
       deflexical(
           "*AUXILIARY-QUEUE*",
           ((NIL != Symbols.boundp($sym9$_AUXILIARY_QUEUE_))
               ? ((SubLObject) $auxiliary_queue$.getGlobalValue())
               : queues.create_queue()));
   $auxiliary_queue_lock$ =
       defparameter("*AUXILIARY-QUEUE-LOCK*", Locks.make_lock($str10$Auxiliary_Queue_Lock));
   $transmit_queue$ =
       deflexical(
           "*TRANSMIT-QUEUE*",
           ((NIL != Symbols.boundp($sym11$_TRANSMIT_QUEUE_))
               ? ((SubLObject) $transmit_queue$.getGlobalValue())
               : queues.create_queue()));
   $transmit_queue_lock$ =
       defparameter("*TRANSMIT-QUEUE-LOCK*", Locks.make_lock($str12$Transmit_Queue_Lock));
   $local_operation_storage_queue$ =
       deflexical(
           "*LOCAL-OPERATION-STORAGE-QUEUE*",
           ((NIL != Symbols.boundp($sym13$_LOCAL_OPERATION_STORAGE_QUEUE_))
               ? ((SubLObject) $local_operation_storage_queue$.getGlobalValue())
               : queues.create_queue()));
   $local_operation_storage_queue_lock$ =
       defparameter(
           "*LOCAL-OPERATION-STORAGE-QUEUE-LOCK*",
           Locks.make_lock($str14$Local_Operation_Queue_Lock));
   $within_a_remote_opP$ = defparameter("*WITHIN-A-REMOTE-OP?*", NIL);
   $hl_transcripts_enabledP$ = defparameter("*HL-TRANSCRIPTS-ENABLED?*", NIL);
   $hl_transcript_special_operators$ = deflexical("*HL-TRANSCRIPT-SPECIAL-OPERATORS*", $list17);
   return NIL;
 }
示例#19
0
 void clear() {
   lines.clear();
   symbols.popFrame();
   symbols.pushFrame();
 }
示例#20
0
 Defs(Context context, Symbols symbols) {
   super(context, "defs", 1);
   this.symbols = symbols;
   symbols.pushFrame();
   load();
 }