| Category |
# |
Updated |
}]
Search-part: {
}
Conclusion: [{
To add or modify a file, run REBOL/View and click on
the Add-Script icon in the Library folder. Be sure that
the script has a REBOL header that describes its purpose.
You can download the entire library as
} rejoin [{}]
{a compressed, self-extracting REBOL archive. The
file is} to-integer (archive-size / 1024) { KB and requires
REBOL to extract. You may need to right click on this link
to save the file in some browsers.
Once you have extracted the files, you can build these HTML
index pages locally by running the build-lib.r script.
Note: All scripts are provided AS IS without warranty and
without liability to the author or to REBOL Technologies.
REBOL is a trademark of REBOL Technologies.
}]
;-- Misc helper functions:
error: func [msg /warn] [
print ["*****" reduce msg]
if all [not warn stop-on-error] [halt]
wait delay-time
errors: errors + 1
none
]
out: make string! 10000
emit: func [val /new] [
if new [clear out: head out]
either block? val [
val: reduce val
foreach item val [out: insert out form item]
][out: insert out form val]
]
count-lines: func [str][(length? parse/all mold load str "^/") - 2]
new-suffix: func [file suffix] [
append clear find/last/tail copy file #"." suffix
]
preformat: func ["Format a code example" code name] [
replace/all code "&" "&"
replace/all code "<" "<"
replace/all code ">" ">"
insert code [
]
append code []
code
]
upload: func [file data /binary] [
either binary [write/binary file data] [write file data]
if site [
print [tab "Uploading:" file]
either binary [write/binary site/:file data] [
write site/:file data
]
]
]
;-- Build a list of all scripts and verify their headers.
print "Analyzing all script files..."
scripts: make block! 1000
popular: either exists? %popular.txt [load %popular.txt][[]]
foreach file load %. [
if not dir? file [
if verbose [print ["Examining:" file]]
msg: none
if not all [ ; verify the script and header
%.r = find/last file %.r
msg: "Cannot read header of:"
script? file
not error? try [data: read file]
not error? try [header: first load/next/header data]
result: true
foreach item [title category][
if not all [in header item series? header/:item not empty? header/:item][
msg: reform ["Problem in" item "field of:"]
result: false
]
result
]
not if not all [in header 'purpose string? header/purpose] [
print ["*****" file "is missing its purpose"]
header/purpose: copy header/title
none
]
msg: join "Invalid category " mold grp: exclude header/category categories
empty? grp
msg: "Bad date in:"
in header 'date
date? header/date
header/date > 1-Jan-1997
header/date < (now + 2)
msg: "Wrong filename in:"
header/file = file
msg: 0
lines: count-lines data
do [
if (now - header/date) < new-days [
append header/title { - Recent!}
append header/category 'new
]
append header/category 'all
if find popular file [append header/category 'good]
repend scripts [lines file header data]
]
][if string? msg [error [msg file]]]
]
]
script-count: (length? scripts) / 4
sort/skip scripts 4
print [script-count "script files qualified"]
;-- Create archive file:
print "Creating compressed library archive..."
system/options/binary-base: 64
archive: make binary! 128 * 1024
file-list: make block! script-count * 2
foreach [lines file header data] scripts [
append archive data: compress data
append file-list reduce [file length? data]
]
foreach file extras [
append archive data: compress read/binary file
append file-list reduce [file length? data]
]
header: mold compose/deep [
REBOL [
Title: "REBOL Script Library Binary Archive"
Date: (now)
File: (arch-file)
Note: (reform [{To extract, type REBOL} arch-file {or run REBOL and type: do} arch-file])
]
file: (arch-file)
size: (length? archive)
path: (main-dir)
files: (reduce [file-list])
check: (checksum archive)
if not exists? path [make-dir path]
archive: read/binary file
archive: next find/case/tail archive to-binary join "!DATA" ":"
if check <> checksum archive [print ["Checksum failed" check checksum archive] halt]
print "Reviving:"
foreach [file len] files [
print [tab file]
data: decompress copy/part archive len
archive: skip archive len
write/binary path/:file data
]
none
]
archive-size: length? archive
print ["Archive size:" archive-size]
insert archive reduce [header newline "!DATA:" newline]
;-- Should files be uploaded?
if all [auto-upload confirm rejoin ["Upload files to " site-dir "? (y/N) "]] [
user: pass: none
if exists? %userpass [do load %userpass]
user: any [user ask "Site Login: "]
pass: any [pass ask/hide "Site Password: "]
if not any [empty? user empty? pass] [
site: join ftp:// [user ":" pass "@" site-dir]
]
]
upload/binary main-dir/:arch-file archive
;-- Sort main index:
hold: copy/part categories 4
remove/part categories 4
hold2: copy tmp: find categories "Very Simple"
clear tmp
sort/skip categories 2
insert categories hold
append categories hold2
;-- Generate main index page:
print "Creating HTML index pages..."
emit/new [make-banner "Main Index" reduce introduction]
foreach [title cat] categories [
lib-file: rejoin [%script- cat ".html"]
most-recent: 1-jan-1900
count: 0
foreach [lines file header data] scripts [
if find header/category cat [
if header/date > most-recent [most-recent: header/date]
count: count + 1
]
]
emit [{
|
} title { |
} count { |
} most-recent/date { |
}]
]
emit [
