USING: formatting http.client sequences strings kernel io math regexp unicode.case assocs generalizations ; IN: currency CONSTANT: coins { "TWD" "CNY" "JPY" "KRW" "HKD" "THB" "SGD" "IDR" "VND" "MYR" "PHP" "INR" "AED" "KWD" "AUD" "NZD" "USD" "CAD" "BRL" "MXN" "ARS" "CLP" "VEB" "EUR" "GBP" "RUB" "CHF" "SEK" "ZAR" } CONSTANT: calias H{ { "NTD" "TWD" } { "RMB" "CNY" } } CONSTANT: yahootw-url "http://tw.money.yahoo.com/currency_exc_result?amt=%d&from=%s&to=%s" CONSTANT: div-tag "
! "" re-replace ; : find-exchange ( str -- result ) "經過計算後," over start 7 + cut div-tag over start 0 spin subseq strip-em-tag nip ; : get-ex-money ( money from to -- result ) [ >upper ] bi@ 2dup [ dup coins? [ t ] [ dup calias? [ calias-at ] [ f ] if ] if ] bi@ swapd and [ [ 2drop ] 2dip make-url http-get nip find-exchange ] [ 5 ndrop f ] if ;