check for r3

check-rebols.reb

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]

if system/version = 2.102.0.16.2 [
    info?: :js-head
]

base: http://metaeducation.s3.amazonaws.com/travis-builds/

for-each platform platforms [
    ; check for both debug and non-debug deploys
    extension: if find windows platform [%.exe] else [""]
    dump platform
    dump file: unspaced [base platform "/r3" extension]
    if error? entrap [
        probe info? to-url file
    ][ print "missing"]
    dump file: unspaced [base platform "/r3-debug" extension]
    if error? entrap [
        probe info? to-url file
    ][print "missing"]
    dump file: unspaced [base platform "/r3-debug-cpp" extension]
    if error? entrap [
        probe info? to-url file
    ][print "missing"]
    print "..................................................................................."
]