Skip to content

Instantly share code, notes, and snippets.

@gchiu
Last active January 26, 2020 00:39
Show Gist options
  • Save gchiu/b8ac8c9e1097c23ba254bf757a21aada to your computer and use it in GitHub Desktop.
Save gchiu/b8ac8c9e1097c23ba254bf757a21aada to your computer and use it in GitHub Desktop.
take2 on checking for rebol binaries
rebol []
platforms: [0.13.2 0.3.1 0.3.40 0.2.40 0.4.4 0.4.40]
windows: [0.3.1 0.3.40]
descriptions: ["" "-debug" "-debug-cpp"]
nl: if system/version = 2.102.0.16.2 [
info?: :js-head
func [][replpad-write/html "<hr>"]
] else [func [][print "........................................."]]
base: http://metaeducation.s3.amazonaws.com/travis-builds/
for-each platform platforms [
extension: if find windows platform [%.exe] else [""]
dump platform
for-each description descriptions [
dump file: unspaced [base platform "/r3" description extension]
if error? entrap [
probe info? to-url file
][print "missing"]
]
nl
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment