FEAT: thru-cache module updated to version 0.2.0 (exists-thru?, `…

…list-thru`) + bugfix

src/modules/thru-cache.reb

@@ -4,27 +4,30 @@ Rebol [
  name: thru-cache
  type: module
  options: [delay]
- version: 0.1.0
- exports: [path-thru read-thru load-thru do-thru clear-thru]
+ version: 0.2.0
+ exports: [path-thru read-thru load-thru do-thru clear-thru list-thru exists-thru?]
  author: @Oldes
  file: %thru-cache.reb
  home: https://src.rebol.tech/modules/thru-cache.reb
 ]
 
+;; Initialize the directory for storing local files
+so: system/options
+unless select so 'thru-cache [
+ put so 'thru-cache join to-real-file any [
+ get-env "TEMP"
+ so/data
+ ] %thru-cache/
+ sys/log/info 'REBOL ["Using thru-cache:" mold so/thru-cache]
+]
+
 path-thru: func [
  {Returns the local disk cache path of a remote file} 
  url [url!] "Remote file address" 
  return: [file!] 
- /local so hash file path
+ /local hash file path
 ][
- so: system/options 
- unless select so 'thru-cache [
- put so 'thru-cache join to-real-file any [
- get-env "TEMP"
- so/data
- ] %thru-cache/
- sys/log/info 'REBOL ["Using thru-cache:" mold so/thru-cache]
- ] 
+ unless find so 'thru-cache [return none]
  hash: checksum form url 'MD5 
  file: head (remove back tail remove remove (form hash)) 
  path: dirize append copy so/thru-cache copy/part file 2 
@@ -83,19 +86,19 @@ do-thru: func [
 
 clear-thru: func [
  "Removes local disk cache files"
- /only filter [string!] "Delete only files where the filter is found"
+ /only filter [string!] "Delete only the files that match the filter"
  /test "Only print files to be deleted"
  /local temp dir log
 ][
- unless exists? dir: select system/options 'thru-cache [exit]
+ unless exists? dir: select so 'thru-cache [exit]
  log: dir/read-thru.log
  if test [
  unless exists? log [exit]
  filter: any [filter "*"]
  foreach [path url] transcode read log [
  if all [
  exists? dir/:path
- find/any url filter
+ find/any/match url filter
  ][ print [as-green skip path 3 url] ]
  ]
  exit
@@ -118,8 +121,23 @@ clear-thru: func [
  ()
 ]
 
+exists-thru?: func[
+ "Returns true if the remote file is present in the local disk cache"
+ url [url! file!] "Remote file address"
+][
+ exists? any [all [file? url url] path-thru url]
+]
+
+list-thru: func[
+ "Prints localy stored URLs"
+ /only filter [string!] "List only the files that match the filter"
+][
+ sys/log/info 'REBOL ["Used thru-cache directory:" mold so/thru-cache]
+ clear-thru/:only/test filter
+]
+
 log-thru-file: func[path url][
- write/append system/options/thru-cache/read-thru.log ajoin [
- #"%" copy/part tail path -32 SP url LF 
+ write/append so/thru-cache/read-thru.log ajoin [
+ #"%" copy/part tail path -32 SP mold url LF 
  ]
 ]