Exemplo n.º 1
0
 public int effectiveIndex(int[] indexes) {
   Object obj;
   try {
     obj = proc.apply1(indexes);
   } catch (Throwable ex) {
     throw new RuntimeException("index transformer throw " + ex, ex);
   }
   if (obj instanceof int[]) return base.effectiveIndex((int[]) obj);
   IntSequence ind = Sequences.asIntSequenceOrNull(obj);
   if (ind == null) throw new ClassCastException("not an integer sequence");
   if (ind instanceof S32Vector) return base.effectiveIndex(((S32Vector) ind).getBuffer());
   else {
     int rank = ind.size();
     switch (rank) {
       case 0:
         return base.effectiveIndex();
       case 1:
         return base.effectiveIndex(ind.getInt(0));
       case 2:
         return base.effectiveIndex(ind.getInt(0), ind.getInt(1));
       default:
         int[] rest = rank == 3 ? AbstractSequence.noInts : new int[rank - 3];
         for (int i = 3; i < rank; i++) rest[i - 3] = ind.getInt(i);
         return base.effectiveIndex(ind.getInt(0), ind.getInt(1), ind.getInt(2), rest);
     }
   }
 }
 /**
  * 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();
   }
 }
 @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());
 }
 /**
  * Generate a KB SBHL caching policy proposal for sticky SBHL caching that for all passed link
  * predicates.
  *
  * @param WITH-PREFETCH-P determines whether the prefetch will be all or none
  * @return the policies
  */
 @SubL(source = "cycl/builder-utilities.lisp", position = 38500)
 public static final SubLObject propose_all_sticky_kb_sbhl_caching_policies(
     SubLObject link_predicates, SubLObject with_prefetch_p) {
   if ((NIL == link_predicates)) {
     link_predicates = get_all_sbhl_module_link_predicates();
   }
   {
     SubLObject prefetch = ((NIL != with_prefetch_p) ? ((SubLObject) $kw58$ALL) : NIL);
     SubLObject policies = NIL;
     SubLObject cdolist_list_var = link_predicates;
     SubLObject link_predicate = NIL;
     for (link_predicate = cdolist_list_var.first();
         (NIL != cdolist_list_var);
         cdolist_list_var = cdolist_list_var.rest(), link_predicate = cdolist_list_var.first()) {
       {
         SubLObject legacy_policy =
             sbhl_caching_policies.create_sbhl_caching_policy_from_term_recommendation_list(
                 link_predicate, $kw56$STICKY, $kw57$UNDEFINED, NIL, $kw58$ALL, prefetch);
         policies = cons(legacy_policy, policies);
       }
     }
     return Sequences.nreverse(policies);
   }
 }