]> gitweb.factorcode.org Git - factor.git/commitdiff
basis/extra: use some vocab: paths
authorJohn Benediktsson <mrjbq7@gmail.com>
Sun, 4 Feb 2024 19:54:27 +0000 (11:54 -0800)
committerJohn Benediktsson <mrjbq7@gmail.com>
Sun, 4 Feb 2024 19:54:27 +0000 (11:54 -0800)
basis/colors/colors.factor
extra/elf/elf-tests.factor
extra/elf/nm/nm-tests.factor
extra/usa-cities/usa-cities.factor

index 8a9319445631ed188b16a9e01e89828a031ca4c6..71cb727349d7bfe1a7e2fcdd64f5783f9a1d0fb8 100644 (file)
@@ -52,10 +52,10 @@ CONSTANT: transparent T{ rgba f 0.0 0.0 0.0 0.0 }
 
 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 ;
index 025830c8b75b49b435312d4099f389c897e5f322..4e897e63c2e71e3b1593da99e9f1bb046323e598 100644 (file)
@@ -45,7 +45,7 @@ cpu ppc? [
     }
 }
 [
-    "resource:extra/elf/a.elf" [
+    "vocab:elf/a.elf" [
         sections [ name>> ] map
     ] with-mapped-elf
 ]
@@ -74,7 +74,7 @@ unit-test
     }
 }
 [
-    "resource:extra/elf/a.elf" [
+    "vocab:elf/a.elf" [
         segments [ program-header>> p_type>> PT_LOAD = ] find nip
         sections [ name>> ] map
     ] with-mapped-elf
@@ -158,7 +158,7 @@ unit-test
     }
 }
 [
-    "resource:extra/elf/a.elf" [
+    "vocab:elf/a.elf" [
         sections ".symtab" find-section symbols
         [ name>> ] map
     ] with-mapped-elf
@@ -172,7 +172,7 @@ unit-test
     }
 }
 [
-    "resource:extra/elf/a.elf" [
+    "vocab:elf/a.elf" [
         sections ".symtab" "main" find-section-symbol
         symbol-data >byte-array
     ] with-mapped-elf
index ec772d3b14c638161538a34ed147a1f953571f27..843b713e5ac5d5863e7414bdec6d0ea02b44ebd5 100644 (file)
@@ -48,6 +48,6 @@ STRING: validation-output
 
 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
index 63315169f04aab7e799b779646c75e6d4d89c0c6..ff3d8801071a553459c32cac5987cb351b038008 100644 (file)
@@ -28,7 +28,7 @@ TUPLE: city
 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 [
         [
             {