!420 path@from-env in (liii path)

Author: da-liii

GoldfishStandardLibrary.tmu

@@ -3679,6 +3679,30 @@
     \;
   </scm-chunk>
 
+  <paragraph|path@from-env>
+
+  <\goldfish-chunk|goldfish/liii/path.scm|true|true>
+    (chained-define (@from-env name)
+
+    \ \ (path (getenv name)))
+
+    \;
+  </goldfish-chunk>
+
+  <\scm-chunk|tests/goldfish/liii/path-test.scm|true|true>
+    (when (os-linux?)
+
+    \ \ (check (path :from-env "HOME" :to-string) =\<gtr\> (path :home :to-string)))
+
+    \;
+
+    (when (os-windows?)
+
+    \ \ (check (path :from-env "USERPROFILE" :to-string) =\<gtr\> (path :home :to-string)))
+
+    \;
+  </scm-chunk>
+
   \;
 
   <subsection|谓词>

goldfish/liii/path.scm

@@ -140,6 +140,9 @@
                  (else
                   (loop ($ iter :drop 1 :get))))))))
 
+(chained-define (@from-env name)
+  (path (getenv name)))
+
 (define (%file?)
   (path-file? (%to-string)))
 

tests/goldfish/liii/path-test.scm

@@ -104,6 +104,12 @@
   (check (path "/tmp/") => (path :/ "tmp"))
   (check (path "/tmp/tmp2") => (path :/ "tmp" :/ "tmp2")))
 
+(when (os-linux?)
+  (check (path :from-env "HOME" :to-string) => (path :home :to-string)))
+
+(when (os-windows?)
+  (check (path :from-env "USERPROFILE" :to-string) => (path :home :to-string)))
+
 (when (or (os-linux?) (os-macos?))
   (check-false (path :/ "tmp" :file?))
   (chdir "/tmp")