MEMO: colors ( -- assoc )
{
- "resource:basis/colors/rgb.txt"
- "resource:basis/colors/css-colors.txt"
- "resource:basis/colors/factor-colors.txt"
- "resource:basis/colors/solarized-colors.txt"
+ "vocab:colors/rgb.txt"
+ "vocab:colors/css-colors.txt"
+ "vocab:colors/factor-colors.txt"
+ "vocab:colors/solarized-colors.txt"
} [
utf8 file-lines parse-colors
] [ assoc-union ] map-reduce ;
}
}
[
- "resource:extra/elf/a.elf" [
+ "vocab:elf/a.elf" [
sections [ name>> ] map
] with-mapped-elf
]
}
}
[
- "resource:extra/elf/a.elf" [
+ "vocab:elf/a.elf" [
segments [ program-header>> p_type>> PT_LOAD = ] find nip
sections [ name>> ] map
] with-mapped-elf
}
}
[
- "resource:extra/elf/a.elf" [
+ "vocab:elf/a.elf" [
sections ".symtab" find-section symbols
[ name>> ] map
] with-mapped-elf
}
}
[
- "resource:extra/elf/a.elf" [
+ "vocab:elf/a.elf" [
sections ".symtab" "main" find-section-symbol
symbol-data >byte-array
] with-mapped-elf
cpu ppc? [
{ $ validation-output }
- [ [ "resource:extra/elf/a.elf" elf-nm ] with-string-writer ]
+ [ [ "vocab:elf/a.elf" elf-nm ] with-string-writer ]
unit-test
] unless
first-zip name state latitude longitude gmt-offset dst-offset ;
MEMO: cities ( -- seq )
- "resource:extra/usa-cities/zipcode.csv" ascii file>csv
+ "vocab:usa-cities/zipcode.csv" ascii file>csv
rest-slice [
[
{