If you need help, try to find the answer through the following path: `Help` in the console ⇒ [Red by Example](https://www.red-by-example.org/) ⇒ [Official Red Docs](https://github.com/red/docs/blob/master/en/SUMMARY.adoc) ⇒ [Rebol Core Manual](http://www.rebol.com/docs/core23/rebolcore.html ⇒ [Red Wiki](https://github.com/red/red/wiki ⇒ Net search "redlang + your-question" ⇒ Ask us, we are here to help!
Red []
from-timestamp: func [ ts ][
return 1970-01-01 + to time! round/down ts / 1000
]
hessian-proxy: make object! [
run: func[ method ][
data: rejoin [to-binary "c^A^@m" (at to-binary length? method 7) to-binary method to-binary "z"]
result: write http://hessian.caucho.com/test/test compose [
post [
Host: "hessian.caucho.com"
Content-type: "application/x-hessian"
Accept-Encoding: "identity"
User-Agent: "rebol-hessian/0.0.1"
Accept-Charset: "*"
]
(data)
]
print to-binary result
probe from-timestamp to-integer copy/part at result 5 8
]
]
hessian-proxy/run "replyDate_1"
>rebol3 hessian-red.red
#{72010064000000D04B9284B87A}
8-May-1998/9:51:31
> red-latest hessian-red.red
#{
72010066530004636F64655300154E6F537563684D6574686F64457863657074
696F6E5300076D65737361676553002B54686520736572766963652068617320
6E6F206D6574686F64206E616D65643A20706C79446174655F317A7A7A
}
*** Script Error: cannot MAKE/TO integer! from: "S^@^DcodeS"
*** Where: to
*** Near : probe from-timestamp to-integer copy/part
*** Stack: run probe from-timestamp to-integer
{r^A^@fS^@^DcodeS^@^UNoSuchMethodExceptionS^@^GmessageS^@+The service has no method named: plyDate_1zzz}
Red []
from-timestamp: func [ ts ][
return 1970-01-01 + to time! round/down ts / 1000
]
hessian-proxy: make object! [
run: func[ method ][
; probe data: rejoin [to-binary "c^A^@m" (to-binary at form to-hex length? method 8) to-binary method to-binary "z"]
probe data: rejoin [to-binary "c^A^@m" (at to-binary length? method 3) to-binary method to-binary "z"]
result: write http://hessian.caucho.com/test/test compose [
post [
Host: "hessian.caucho.com"
Content-type: "application/x-hessian"
Accept-Encoding: "identity"
User-Agent: "rebol-hessian/0.0.1"
Accept-Charset: "*"
]
(data)
]
probe "==========="
print to-binary result
probe from-timestamp to-integer copy/part at result 5 8
]
]
hessian-proxy/run "replyDate_1"
seems like it's looking fo 2 byte length, not 1 or 4
Red []
data: #{6301006D000B7265706C79446174655F317A}
probe result: write http://hessian.caucho.com/test/test compose [
post [
Host: "hessian.caucho.com"
Content-type: "application/x-hessian"
Accept-Encoding: "identity"
User-Agent: "rebol-hessian/0.0.1"
Accept-Charset: "*"
]
(data)
]>redl hessian-red.red
*** Access Error: invalid UTF-8 encoding: #{D04B9284}
*** Where: write
*** Near : data: #{6301006D000B7265706C79446174655F
*** Stack: probe
>rebol3 hessian-red.red
#{72010064000000D04B9284B87A}
= {<html>^/<head><title>404 Not Found</title></head>^/<body>^/<h1>404 Not Found</h1>^//test/test2%A0 was not found ...
compose evaluates a block of expressions, only evaluating parens, and returns a block. (http://www.rebol.com/r3/docs/functions/compose.html)
if r3 works, must be something in the post is different
seems to work
the same with red-24nov22-e6ae842b4 for Mac cli
With current main branch:
data: #{6301006D000B7265706C79446174655F317A}
probe result: write/binary http://hessian.caucho.com/test/test compose [
post [
Host: "hessian.caucho.com"
Content-type: "application/x-hessian"
Accept-Encoding: "identity"
User-Agent: "rebol-hessian/0.0.1"
Accept-Charset: "*"
]
(data)
]== #{72010064000000D04B9284B87A}
In rebol3 , I can do this:
>> to-integer #{000000D04B9284B8}
== 894621091000
>> to-binary 894621091000
== #{000000D04B9284B8}to-float can not work either --== Red 0.6.4 ==--
Type HELP for starting information.
>> to-float #{000000D04B9284B8}
== 0.0
>> to-number #{000000D04B9284B8}
*** Script Error: to-number has no value
*** Where: catch
*** Near : to-number #{000000D04B9284B8}
*** Stack:
And Red has only 32bit integer and float values:
>> to binary! 1
== #{00000001}