Skip to content

Instantly share code, notes, and snippets.

@nicolas42

nicolas42/walk.r

Created July 14, 2019 10:42
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save nicolas42/97beeda4ffa6187653677cd4af89e451 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save nicolas42/97beeda4ffa6187653677cd4af89e451 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
walk.r
rebol []
video-suffix: [
%.avi %.mpg %.mpeg %.divx %.mkv %.mov %.ogg %.rmvb %.rm
%.rmv %.m4v %.ogm %.m2v %.wmv %.flv %.mp4
]
image-suffix: [%.jpg %.jpeg %.png %.bmp %.gif]
audio-suffix: [%.mp3 %.aac %.wma %.m4a]
file-walk: func [
{Deep read a directory given a dir d
an output block o and a boolean function fn}
d fn /local f
] [
f: read d
foreach f f [do :fn d/:f]
foreach f f [if #"/" = last f [file-walk d/:f :fn]]
]
search: func [
files query
] [
files: copy files
if empty? query [
return files
]
query: parse query none
foreach word query [
remove-each f files [
not find f word
]
]
]
printall: func [ f ] [ foreach f f [ print f ] ]
index-files: func [
{Deep read a directory}
dir "dir" out "output"
/local files
] [
files: read dir
foreach f files [append out f]
foreach f files [
if #"/" = last f [index-files dir/:f out]
]
]
file-walk-demo: [
files: []
file-walk pwd func[f][ if dir? f [ print f append files f ] ]
]
get-links: func [ url /local links ] [
links: copy []
parse read url [any [
thru {A HREF="} copy link to {"}
(append links link)
] to end]
links
]
web-walk: func [
{Deep read a directory given a dir d
an output block o and a boolean function fn}
d fn /local f
] [ attempt [
f: get-links d
foreach f f [do :fn d/:f]
foreach f f [if #"/" = last f [web-walk d/:f :fn]]
] ]
video-suffix: [
%.avi %.mpg %.mpeg %.divx %.mkv %.mov %.ogg %.rmvb %.rm
%.rmv %.m4v %.ogm %.m2v %.wmv %.flv %.mp4
]
demo-web-walk: [
url: http://www.google.com
web-walk url func [f] [ print f ]
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment