1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# 29dec20 Software Lab. Alexander Burger
(if (opt)
(let "Lst" (chop @)
(if (= "-" (car "Lst"))
(let "Pre" (++ "Lst")
(when (member (car "Lst") '("\"" "'"))
(setq "Pre" (++ "Lst")) )
(let "Str" (pack "Lst")
(for "Sym" (all)
(and
(pre? "Str" "Sym")
(getd "Sym")
(prinl "Pre" "Sym" (and (= "-" "Pre") " ")) ) ) ) )
(let ("Path" (rot (split "Lst" "/")) "Str" (pack (car "Path")))
(setq "Path" (and (cdr "Path") (pack (glue "/" @) "/")))
(for "Sym" (dir "Path" T)
(when (pre? "Str" "Sym")
(prinl "Path"
(replace (chop "Sym") " " "\\ ")
(if (=T (car (info (pack "Path" "Sym"))))
"/"
" " ) ) ) ) ) ) )
(prinl '+) )
|
