Weather Update Client

Connects SUB socket to tcp://localhost:5556

Collects weather updates and finds avg temp in zipcode

 1: 
 2: 
 3: 
 4: 
 5: 
 6: 
 7: 
 8: 
 9: 
10: 
11: 
12: 
13: 
14: 
15: 
16: 
17: 
18: 
19: 
20: 
21: 
22: 
23: 
24: 
25: 
26: 
27: 
28: 
29: 
30: 
31: 
32: 
33: 
34: 
35: 
36: 
37: 
38:

#r "fszmq.dll"
open fszmq

// helpers to convert between strings and frames
let encode = string >> System.Text.Encoding.ASCII.GetBytes
let decode = System.Text.Encoding.ASCII.GetString

let main args =
  use context = new Context ()

  // socket to talk to server
  printfn "Collecting updates from weather server..."
  use subscriber = Context.sub context
  Socket.connect subscriber "tcp://localhost:5556"

  // subscribe to zipcode, default is NYC, 10001
  let filter =  match Array.length args with
                | n when n >= 1 -> Array.get args 0
                | _             -> "10001"
  Socket.subscribe subscriber [ encode filter ]

  printfn "%A" filter

  // process 100 updates
  let total_temp = ref 0
  let update_nbr = ref 0
  for _ in 0 .. 99 do
    let update = decode <| Socket.recv subscriber
    // update = "zipcode temperature relhumidity"
    let temperature = int <| Array.get (update.Split ()) 1
    total_temp := !total_temp + temperature
    incr update_nbr

  printfn "Average temperature for zipcode '%s' was %dF"
          filter
          (!total_temp / !update_nbr)

  0 // return code

module docs

module PATH

from docs

val hijack : unit -> unit

Full name: docs.PATH.hijack

namespace fszmq

val encode : (obj -> byte [])

Full name: Wuclient.encode

Multiple items
val string : value:'T -> string

Full name: Microsoft.FSharp.Core.Operators.string

--------------------
type string = System.String

Full name: Microsoft.FSharp.Core.string

namespace System

namespace System.Text

type Encoding =
  member BodyName : string
  member Clone : unit -> obj
  member CodePage : int
  member DecoderFallback : DecoderFallback with get, set
  member EncoderFallback : EncoderFallback with get, set
  member EncodingName : string
  member Equals : value:obj -> bool
  member GetByteCount : chars:char[] -> int + 3 overloads
  member GetBytes : chars:char[] -> byte[] + 5 overloads
  member GetCharCount : bytes:byte[] -> int + 2 overloads
  ...

Full name: System.Text.Encoding

property System.Text.Encoding.ASCII: System.Text.Encoding

System.Text.Encoding.GetBytes(s: string) : byte []
System.Text.Encoding.GetBytes(chars: char []) : byte []
System.Text.Encoding.GetBytes(chars: char [], index: int, count: int) : byte []
System.Text.Encoding.GetBytes(chars: nativeptr<char>, charCount: int, bytes: nativeptr<byte>, byteCount: int) : int
System.Text.Encoding.GetBytes(s: string, charIndex: int, charCount: int, bytes: byte [], byteIndex: int) : int
System.Text.Encoding.GetBytes(chars: char [], charIndex: int, charCount: int, bytes: byte [], byteIndex: int) : int

val decode : (byte [] -> string)

Full name: Wuclient.decode

System.Text.Encoding.GetString(bytes: byte []) : string
System.Text.Encoding.GetString(bytes: byte [], index: int, count: int) : string

val main : args:string [] -> int

Full name: Wuclient.main

val args : string []

val context : System.IDisposable

val printfn : format:Printf.TextWriterFormat<'T> -> 'T

Full name: Microsoft.FSharp.Core.ExtraTopLevelOperators.printfn

val subscriber : System.IDisposable

val filter : string

module Array

from Microsoft.FSharp.Collections

val length : array:'T [] -> int

Full name: Microsoft.FSharp.Collections.Array.length

val n : int

val get : array:'T [] -> index:int -> 'T

Full name: Microsoft.FSharp.Collections.Array.get

val total_temp : int ref

Multiple items
val ref : value:'T -> 'T ref

Full name: Microsoft.FSharp.Core.Operators.ref

--------------------
type 'T ref = Ref<'T>

Full name: Microsoft.FSharp.Core.ref<_>

val update_nbr : int ref

val update : string

val temperature : int

Multiple items
val int : value:'T -> int (requires member op_Explicit)

Full name: Microsoft.FSharp.Core.Operators.int

--------------------
type int = int32

Full name: Microsoft.FSharp.Core.int

--------------------
type int<'Measure> = int

Full name: Microsoft.FSharp.Core.int<_>

System.String.Split([<System.ParamArray>] separator: char []) : string []
System.String.Split(separator: string [], options: System.StringSplitOptions) : string []
System.String.Split(separator: char [], options: System.StringSplitOptions) : string []
System.String.Split(separator: char [], count: int) : string []
System.String.Split(separator: string [], count: int, options: System.StringSplitOptions) : string []
System.String.Split(separator: char [], count: int, options: System.StringSplitOptions) : string []

val incr : cell:int ref -> unit

Full name: Microsoft.FSharp.Core.Operators.incr

val fsi : Compiler.Interactive.InteractiveSession

Full name: Microsoft.FSharp.Compiler.Interactive.Settings.fsi

property Compiler.Interactive.InteractiveSession.CommandLineArgs: string []

val release : unit -> unit

Full name: docs.PATH.release