grey/BOSL2
1
0
Fork 0
mirror of https://github.com/BelfrySCAD/BOSL2.git synced 2025-01-15 17:09:40 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge ae6e830edb into 8383d360cc

Browse source
This commit is contained in:
Joshua T Corbin 2024-07-20 14:23:58 -06:00 committed by GitHub
commit ae21fc567e
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
2 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
structs.scad
View file

@ -50,7 +50,10 @@ function struct_set(struct, key, value, grow=true) =
: :
assert(is_list(key) && len(key)%2==0, "[key,value] pair list is not a list or has an odd length") assert(is_list(key) && len(key)%2==0, "[key,value] pair list is not a list or has an odd length")
let( let(
new_entries = [for(i=[0:1:len(key)/2-1]) [key[2*i], key[2*i+1]]], new_entries = [for(i=[0:1:len(key)/2-1]) if (is_def(key[2*i+1])) [key[2*i], key[2*i+1]]]
)
len(new_entries) == 0 ? struct :
let(
newkeys = column(new_entries,0), newkeys = column(new_entries,0),
indlist = search(newkeys, struct,0,0), indlist = search(newkeys, struct,0,0),
badkeys = grow ? (search([undef],new_entries,1,0)[0] != [] ? [undef] : []) badkeys = grow ? (search([undef],new_entries,1,0)[0] != [] ? [undef] : [])

4
tests/test_structs.scad
View file

@ -19,6 +19,10 @@ module test_struct_set() {
assert(st7 == [["Bar", 28],["Foo",91],[3,4],[[5,7],99]]); assert(st7 == [["Bar", 28],["Foo",91],[3,4],[[5,7],99]]);
st8 = struct_set(st3,[]); st8 = struct_set(st3,[]);
assert(st8==st3); assert(st8==st3);
st9 = struct_set(st2, ["Baz", undef]);
assert(st9 == st2);
st10 = struct_set(st2, ["Foo", 91, "Baz", undef]);
assert(st10 == st3);
} }
test_struct_set(); test_struct_set();