Hi Romano, On Sunday, April 21, 2002, 1:16:41 AM, you wrote:
RPT> have you tryied all the datatypes? Pair and time are the only one? I didn't. But we can try: (hmm, got a crash; seems like TO does not like some datatypes... oh, maybe it was routine! let's avoid types we don't need to check) >> str: "" == "" >> for ch #"^(00)" #"^(FE)" 1 [insert tail str ch] == "" >> datatypes: [] == [] >> foreach value second system/words [if datatype? get/any 'value [insert tail >datatypes value]] == none >> print datatypes unset error datatype native action routine op function object struct library port any-type any-word any-function number series any-string any-block symbol word set-word get-word lit-word refinement none logic integer decimal money time date char pair event tuple bitset string issue binary file email url image tag block paren path set-path lit-path hash list >> problem: reduce [routine! struct! library! port! any-type! any-word! any-function! >number! series! any-string! any-block! event! string!] == [routine! struct! library! port! any-type! any-word! any-function! number! series! any-string! any-block! event! string!] >> foreach datatype datatypes [prin [mold datatype ": "] either error? res: try [to >datatype str] [print "Error."] [print ["Gives" type? :res]]] unset! : Error. error! : Error. datatype! : Error. native! : Error. action! : Error. op! : Error. function! : Error. object! : Error. symbol! : Gives symbol word! : Gives word set-word! : Gives set-word get-word! : Gives get-word lit-word! : Gives lit-word refinement! : Gives refinement none! : Gives none logic! : Gives logic integer! : Error. decimal! : Error. money! : Error. time! : Gives none date! : Error. char! : Error. pair! : Gives none tuple! : Error. bitset! : Gives bitset issue! : Gives issue binary! : Gives binary file! : Gives file email! : Gives email url! : Gives url image! : Gives image tag! : Gives tag block! : Gives block paren! : Gives paren path! : Gives path set-path! : Gives set-path lit-path! : Gives lit-path hash! : Gives hash list! : Error. To notice: time! : Gives none pair! : Gives none And: list! : Error. while other block types did work (but returned an empty series, maybe because confused by the null character). Regards, Gabriele. -- Gabriele Santilli <[EMAIL PROTECTED]> -- REBOL Programmer Amigan -- AGI L'Aquila -- REB: http://web.tiscali.it/rebol/index.r -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
