about summary refs log blame commit diff stats
path: root/themes/simple
blob: f8147f050951bfa28fa816fd97195b4ae338f956 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
    

           
           
         






                   




                      


                 
                    
                  




                     
                 



                       


                
              
                   
              
[ui]
beep=false
flash=false
splash=true
wrap=true
time.console=off
time.chat=off
time.muc=off
time.mucconfig=off
time.private=off
time.xmlconsole=off
time.statusbar=off
resource.title=false
resource.message=false
statuses.console=none
statuses.chat=none
statuses.muc=none
occupants=true
occupants.size=15
roster=true
roster.offline=false
roster.empty=false
roster.by=none
roster.order=presence
roster.count=false
roster.priority=false
roster.size=25
roster.wrap=false
roster.contact.indent=0
roster.resource=false
roster.presence=false
roster.status=false
privileges=false
presence=false
intype=false
enc.warn=false
wins.autotidy=false
tls.show=false
ions") TO_LOCATION_ARRAY, :(before "End Primitive Recipe Numbers") put(Recipe_ordinal, "to-location-array", TO_LOCATION_ARRAY); :(before "End Primitive Recipe Checks") case TO_LOCATION_ARRAY: { const recipe& caller = get(Recipe, r); if (!is_address_of_array_of_numbers(inst.products.at(0))) { raise << maybe(caller.name) << "product of 'to-location-array' has incorrect type: '" << inst.original_string << "'\n" << end(); break; } break; } :(code) bool is_address_of_array_of_numbers(reagent/*copy*/ x) { canonize_type(x); if (!is_compound_type_starting_with(x.type, "address")) return false; drop_from_type(x, "address"); if (!is_compound_type_starting_with(x.type, "array")) return false; drop_from_type(x, "array"); return x.type && x.type->atom && x.type->value == get(Type_ordinal, "number"); } bool is_compound_type_starting_with(const type_tree* type, const string& expected_name) { if (!type) return false; if (type->atom) return false; if (!type->left->atom) return false; return type->left->value == get(Type_ordinal, expected_name); } :(before "End Primitive Recipe Implementations") case TO_LOCATION_ARRAY: { int array_size = SIZE(ingredients.at(0)); int allocation_size = array_size + /*refcount and length*/2; ensure_space(allocation_size); const int result = Current_routine->alloc; products.resize(1); products.at(0).push_back(result); // initialize array refcount put(Memory, result, 0); // initialize array length put(Memory, result+1, array_size); // now copy over data for (int i = 0; i < array_size; ++i) put(Memory, result+2+i, ingredients.at(0).at(i)); break; }