util  Hex Artifact Content

Artifact b2cd5041483172b4728209a47daa92a71ab6708f9507a77539748ddf6ada08a9:


0000: 2f 2a 20 5b ca 9e 5d 20 74 65 6e 6b 69 2e 63 0a  /* [..] tenki.c.
0010: 20 2a 20 20 7e 20 6c 65 78 69 20 68 61 6c 65 20   *  ~ lexi hale 
0020: 3c 6c 65 78 69 40 68 61 6c 65 2e 73 75 3e 0a 20  <lexi@hale.su>. 
0030: 2a 20 20 3e 20 2e 2f 6d 61 6b 65 2e 73 68 0a 20  *  > ./make.sh. 
0040: 2a 20 20 c2 a9 20 61 66 66 65 72 6f 20 67 65 6e  *  .. affero gen
0050: 65 72 61 6c 20 70 75 62 6c 69 63 20 6c 69 63 65  eral public lice
0060: 6e 73 65 0a 0a 20 2a 20 20 74 65 6e 6b 69 20 20  nse.. *  tenki  
0070: 69 73 20 61 20 20 63 6c 69 65 6e 74 20 66 6f 72  is a  client for
0080: 20 20 74 68 65 20 44 61 72 6b 20 20 53 6b 79 20    the Dark  Sky 
0090: 41 50 49 2e 20 20 69 74 20 69 73 20 20 61 0a 20  API.  it is  a. 
00a0: 2a 20 20 62 61 69 6c 2d 65 61 72 6c 79 20 73 74  *  bail-early st
00b0: 72 65 61 6d 20 70 61 72 73 65 72 20 77 68 69 63  ream parser whic
00c0: 68 20 20 72 65 74 72 69 65 76 65 73 20 61 20 66  h  retrieves a f
00d0: 69 78 65 64 20 73 65 74 0a 20 2a 20 20 6f 66 20  ixed set. *  of 
00e0: 6b 65 79 73 20 28 74 68 69 73 20 73 65 74 20 6d  keys (this set m
00f0: 61 79 20 20 62 65 20 65 61 73 69 6c 79 20 63 68  ay  be easily ch
0100: 61 6e 67 65 64 20 69 6e 20 74 68 65 20 63 6f 64  anged in the cod
0110: 65 29 0a 20 2a 20 20 61 6e 64 20 70 72 69 6e 74  e). *  and print
0120: 73 20 74 68 65 6d 20 20 61 73 20 61 20 66 6f 72  s them  as a for
0130: 6d 61 74 74 65 64 20 73 74 72 69 6e 67 20 20 74  matted string  t
0140: 6f 20 73 74 64 6f 75 74 2e 20 69 74 0a 20 2a 20  o stdout. it. * 
0150: 20 77 61 73 20 64 65 73 69 67 6e 65 64 20 70 75   was designed pu
0160: 72 65 6c 79 20 61 73 20 61 20 70 6f 6c 79 62 61  rely as a polyba
0170: 72 20 70 6c 75 67 69 6e 20 74 6f 20 64 69 73 70  r plugin to disp
0180: 6c 61 79 20 6d 79 0a 20 2a 20 20 6c 6f 63 61 6c  lay my. *  local
0190: 20 20 77 65 61 74 68 65 72 2c 20 62 75 74 20 20    weather, but  
01a0: 69 74 20 63 6f 75 6c 64 20 20 62 65 20 6a 75 73  it could  be jus
01b0: 74 20 20 61 73 20 65 61 73 69 6c 79 20 20 62 65  t  as easily  be
01c0: 0a 20 2a 20 20 72 65 77 6f 72 6b 65 64 20 66 6f  . *  reworked fo
01d0: 72 20 6d 61 6e 79 20 6f 74 68 65 72 20 70 75 72  r many other pur
01e0: 70 6f 73 65 73 0a 20 2a 0a 20 2a 20 20 79 6f 75  poses. *. *  you
01f0: 20 6e 65 65 64 20 74 6f 20 20 67 65 74 20 61 6e   need to  get an
0200: 20 61 70 69 20 6b 65 79 20 66 72 6f 6d 20 64 61   api key from da
0210: 72 6b 20 20 73 6b 79 20 62 65 66 6f 72 65 20 79  rk  sky before y
0220: 6f 75 0a 20 2a 20 20 63 6f 6d 70 69 6c 65 20 74  ou. *  compile t
0230: 65 6e 6b 69 2c 20 61 6e 64 20 70 6c 61 63 65 20  enki, and place 
0240: 69 74 20 69 6e 20 74 68 65 20 66 69 6c 65 20 61  it in the file a
0250: 70 69 6b 65 79 20 2d 20 69 74 27 73 0a 20 2a 20  pikey - it's. * 
0260: 20 73 65 67 72 65 67 61 74 65 64 20 66 72 6f 6d   segregated from
0270: 20 74 68 65 20 6d 61 69 6e 20 63 6f 64 65 20 74   the main code t
0280: 68 69 73 20 77 61 79 20 74 6f 20 61 6c 6c 6f 77  his way to allow
0290: 20 69 74 20 74 6f 0a 20 2a 20 20 62 65 20 65 78   it to. *  be ex
02a0: 63 6c 75 64 65 64 20 66 72 6f 6d 20 76 65 72 73  cluded from vers
02b0: 69 6f 6e 20 63 6f 6e 74 72 6f 6c 2e 0a 20 2a 0a  ion control.. *.
02c0: 20 2a 20 20 74 68 65 20 64 65 66 61 75 6c 74 20   *  the default 
02d0: 6c 61 6e 67 75 61 67 65 20 6f 66 20 20 74 68 65  language of  the
02e0: 20 72 65 73 75 6c 74 73 20 69 73 20 4a 61 70 61   results is Japa
02f0: 6e 65 73 65 3b 20 79 6f 75 0a 20 2a 20 20 63 61  nese; you. *  ca
0300: 6e 20 63 68 61 6e 67 65 20 20 74 68 69 73 20 62  n change  this b
0310: 79 20 20 63 68 61 6e 67 69 6e 67 20 74 68 65 20  y  changing the 
0320: 6d 61 63 72 6f 20 20 64 73 5f 6c 61 6e 67 20 66  macro  ds_lang f
0330: 72 6f 6d 0a 20 2a 20 20 22 6a 61 22 20 74 6f 20  rom. *  "ja" to 
0340: 79 6f 75 72 20 6c 61 6e 67 75 61 67 65 20 20 63  your language  c
0350: 6f 64 65 20 6f 66 20 63 68 6f 69 63 65 2e 20 74  ode of choice. t
0360: 68 65 20 64 73 5f 65 78 63 6c 75 64 65 0a 20 2a  he ds_exclude. *
0370: 20 20 6d 61 63 72 6f 20 69 73 20 75 73 65 64 20    macro is used 
0380: 74 6f 20 6d 69 6e 69 6d 69 7a 65 20 74 68 65 20  to minimize the 
0390: 62 61 6e 64 77 69 64 74 68 20 74 65 6e 6b 69 20  bandwidth tenki 
03a0: 75 73 65 73 20 62 79 0a 20 2a 20 20 69 6e 73 74  uses by. *  inst
03b0: 72 75 63 74 69 6e 67 20 20 74 68 65 20 64 61 72  ructing  the dar
03c0: 6b 20 20 73 6b 79 20 73 65 72 76 65 72 20 20 6e  k  sky server  n
03d0: 6f 74 20 74 6f 20 20 73 65 6e 64 20 74 68 6f 73  ot to  send thos
03e0: 65 0a 20 2a 20 20 66 69 65 6c 64 73 20 62 61 63  e. *  fields bac
03f0: 6b 3b 20 69 66 20 79 6f 75 20 77 61 6e 74 20 74  k; if you want t
0400: 6f 20 61 63 63 65 73 73 20 69 6e 66 6f 72 6d 61  o access informa
0410: 74 69 6f 6e 20 69 6e 20 61 6e 79 0a 20 2a 20 20  tion in any. *  
0420: 6f 66 20 20 74 68 65 6d 2c 20 79 6f 75 20 20 6e  of  them, you  n
0430: 65 65 64 20 74 6f 20 20 72 65 6d 6f 76 65 20 74  eed to  remove t
0440: 68 65 6d 20 20 66 72 6f 6d 20 64 73 5f 65 78 63  hem  from ds_exc
0450: 6c 75 64 65 2e 0a 20 2a 20 20 64 65 6c 65 74 65  lude.. *  delete
0460: 20 74 68 65 20 23 64 65 66 69 6e 65 20 65 6e 74   the #define ent
0470: 69 72 65 6c 79 20 69 66 20 79 6f 75 20 77 69 73  irely if you wis
0480: 68 20 74 6f 20 61 63 63 65 73 73 20 61 6c 6c 0a  h to access all.
0490: 20 2a 20 20 6f 66 20 74 68 65 20 65 78 63 6c 75   *  of the exclu
04a0: 64 65 64 20 66 69 65 6c 64 73 2e 0a 20 2a 20 20  ded fields.. *  
04b0: 0a 20 2a 20 20 74 68 65 20 20 66 75 6e 63 74 69  . *  the  functi
04c0: 6f 6e 20 6d 61 69 6e 28 29 20 20 63 6f 6e 74 61  on main()  conta
04d0: 69 6e 73 20 6d 6f 73 74 20 20 6f 66 20 74 68 65  ins most  of the
04e0: 20 20 63 6f 64 65 20 79 6f 75 0a 20 2a 20 20 77    code you. *  w
04f0: 69 6c 6c 20 20 6c 69 6b 65 6c 79 20 77 69 73 68  ill  likely wish
0500: 20 20 74 6f 20 61 6c 74 65 72 2e 20 20 69 74 20    to alter.  it 
0510: 63 6f 6e 74 61 69 6e 73 20 20 61 20 76 61 72 69  contains  a vari
0520: 61 62 6c 65 0a 20 2a 20 20 22 70 61 74 68 73 22  able. *  "paths"
0530: 20 77 68 69 63 68 20 69 73 20 75 73 65 64 20 74   which is used t
0540: 6f 20 20 73 70 65 63 69 66 79 20 77 68 69 63 68  o  specify which
0550: 20 66 69 65 6c 64 73 20 6f 66 20 74 68 65 0a 20   fields of the. 
0560: 2a 20 20 72 65 74 75 72 6e 65 64 20 6a 73 6f 6e  *  returned json
0570: 20 6f 62 6a 65 63 74 20 79 6f 75 20 20 77 69 73   object you  wis
0580: 68 20 74 68 65 20 70 61 72 73 65 72 20 74 6f 20  h the parser to 
0590: 65 78 74 72 61 63 74 2e 0a 20 2a 20 20 65 61 63  extract.. *  eac
05a0: 68 20 70 61 74 68 20 69 73 20 61 20 22 70 2d 73  h path is a "p-s
05b0: 74 72 69 6e 67 20 6f 66 20 70 2d 73 74 72 69 6e  tring of p-strin
05c0: 67 73 22 20 2d 20 74 68 61 74 20 69 73 2c 20 69  gs" - that is, i
05d0: 74 73 0a 20 2a 20 20 66 69 72 73 74 20 20 63 68  ts. *  first  ch
05e0: 61 72 61 63 74 65 72 20 69 73 20 20 61 6e 20 69  aracter is  an i
05f0: 6e 74 65 67 65 72 20 20 77 68 69 63 68 20 73 70  nteger  which sp
0600: 65 63 69 66 69 65 73 20 20 74 68 65 0a 20 2a 20  ecifies  the. * 
0610: 20 64 65 70 74 68 20 6f 66 20 74 68 65 20 70 61   depth of the pa
0620: 74 68 2c 20 20 61 6e 64 20 65 61 63 68 20 22 64  th,  and each "d
0630: 69 72 65 63 74 6f 72 79 22 20 69 73 20 73 70 65  irectory" is spe
0640: 63 69 66 69 65 64 0a 20 2a 20 20 77 69 74 68 20  cified. *  with 
0650: 61 20 73 74 72 69 6e 67 20 70 72 65 66 69 78 65  a string prefixe
0660: 64 20 20 77 69 74 68 20 74 68 65 20 6e 75 6d 62  d  with the numb
0670: 65 72 20 6f 66 20 63 68 61 72 61 63 74 65 72 73  er of characters
0680: 0a 20 2a 20 20 69 6e 20 20 69 74 2e 20 20 73 6f  . *  in  it.  so
0690: 20 20 74 68 65 20 20 70 61 74 68 20 22 61 2f 62    the  path "a/b
06a0: 63 2f 64 65 66 22 20 20 77 6f 75 6c 64 20 20 62  c/def"  would  b
06b0: 65 20 20 65 6e 63 6f 64 65 64 0a 20 2a 20 20 22  e  encoded. *  "
06c0: 5c 33 5c 31 61 5c 32 62 63 5c 33 64 65 66 22 20  \3\1a\2bc\3def" 
06d0: 2d 20 5c 33 20 66 6f 72 20 20 74 68 65 20 74 68  - \3 for  the th
06e0: 72 65 65 20 63 6f 6e 73 74 69 74 75 65 6e 74 73  ree constituents
06f0: 20 22 61 22 0a 20 2a 20 20 22 62 63 22 20 61 6e   "a". *  "bc" an
0700: 64 20 22 64 65 66 22 2c 20 5c 31 20 66 6f 72 20  d "def", \1 for 
0710: 74 68 65 20 20 73 74 72 6c 65 6e 20 6f 66 20 22  the  strlen of "
0720: 61 22 2c 20 5c 32 20 66 6f 72 20 74 68 65 0a 20  a", \2 for the. 
0730: 2a 20 20 73 74 72 6c 65 6e 20 20 6f 66 20 22 62  *  strlen  of "b
0740: 63 22 2c 20 20 65 74 63 2e 20 20 73 68 6f 75 74  c",  etc.  shout
0750: 6f 75 74 20 74 6f 20 20 74 68 65 20 43 20 20 73  out to  the C  s
0760: 74 61 6e 64 61 72 64 73 0a 20 2a 20 20 63 6f 6d  tandards. *  com
0770: 6d 69 74 74 65 65 20 66 6f 72 20 66 6f 72 63 69  mittee for forci
0780: 6e 67 20 6d 65 20 74 6f 20 64 6f 20 74 68 69 73  ng me to do this
0790: 20 68 6f 72 72 69 62 6c 65 20 74 68 69 6e 67 2e   horrible thing.
07a0: 0a 20 2a 0a 20 2a 20 20 69 6e 20 63 6f 6e 63 6c  . *. *  in concl
07b0: 75 73 69 6f 6e 2c 20 69 20 73 68 6f 75 6c 64 20  usion, i should 
07c0: 68 61 76 65 20 77 72 69 74 74 65 6e 20 74 68 69  have written thi
07d0: 73 20 69 6e 20 73 63 68 65 6d 65 2e 0a 20 2a 2a  s in scheme.. **
07e0: 2f 0a 0a 23 64 65 66 69 6e 65 20 64 73 5f 6c 61  /..#define ds_la
07f0: 6e 67 20 20 20 20 22 6a 61 22 0a 23 64 65 66 69  ng    "ja".#defi
0800: 6e 65 20 64 73 5f 65 78 63 6c 75 64 65 20 22 6d  ne ds_exclude "m
0810: 69 6e 75 74 65 6c 79 2c 68 6f 75 72 6c 79 2c 64  inutely,hourly,d
0820: 61 69 6c 79 2c 61 6c 65 72 74 73 2c 66 6c 61 67  aily,alerts,flag
0830: 73 22 0a 0a 2f 2f 20 70 6f 73 69 78 20 69 6e 63  s"..// posix inc
0840: 6c 75 64 65 73 0a 23 69 6e 63 6c 75 64 65 20 3c  ludes.#include <
0850: 73 74 64 6c 69 62 2e 68 3e 0a 23 69 6e 63 6c 75  stdlib.h>.#inclu
0860: 64 65 20 3c 73 74 64 64 65 66 2e 68 3e 0a 23 69  de <stddef.h>.#i
0870: 6e 63 6c 75 64 65 20 3c 73 74 64 69 6e 74 2e 68  nclude <stdint.h
0880: 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 75 6e 69 73  >.#include <unis
0890: 74 64 2e 68 3e 0a 0a 2f 2f 20 6c 69 62 63 20 69  td.h>..// libc i
08a0: 6e 63 6c 75 64 65 73 0a 23 69 6e 63 6c 75 64 65  ncludes.#include
08b0: 20 3c 73 74 64 69 6f 2e 68 3e 0a 23 69 6e 63 6c   <stdio.h>.#incl
08c0: 75 64 65 20 3c 73 74 72 69 6e 67 2e 68 3e 0a 0a  ude <string.h>..
08d0: 2f 2f 20 6e 65 74 77 6f 72 6b 69 6e 67 20 69 6e  // networking in
08e0: 63 6c 75 64 65 73 0a 23 69 6e 63 6c 75 64 65 20  cludes.#include 
08f0: 3c 73 79 73 2f 73 6f 63 6b 65 74 2e 68 3e 0a 23  <sys/socket.h>.#
0900: 69 6e 63 6c 75 64 65 20 3c 6e 65 74 69 6e 65 74  include <netinet
0910: 2f 69 6e 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20  /in.h>.#include 
0920: 3c 6e 65 74 64 62 2e 68 3e 0a 23 69 6e 63 6c 75  <netdb.h>.#inclu
0930: 64 65 20 3c 6f 70 65 6e 73 73 6c 2f 73 73 6c 2e  de <openssl/ssl.
0940: 68 3e 0a 0a 23 69 66 6e 64 65 66 20 64 73 5f 61  h>..#ifndef ds_a
0950: 70 69 6b 65 79 0a 23 09 65 72 72 6f 72 20 6d 69  pikey.#.error mi
0960: 73 73 69 6e 67 20 61 70 69 20 6b 65 79 3b 20 63  ssing api key; c
0970: 6f 6d 70 69 6c 65 20 77 69 74 68 20 6d 61 6b 65  ompile with make
0980: 2e 73 68 0a 23 20 20 20 64 65 66 69 6e 65 20 64  .sh.#   define d
0990: 73 5f 61 70 69 6b 65 79 20 22 22 20 2f 2f 20 74  s_apikey "" // t
09a0: 69 64 79 20 75 70 20 65 72 72 6f 72 73 0a 23 65  idy up errors.#e
09b0: 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 64 73 5f  ndif..#ifdef ds_
09c0: 65 78 63 6c 75 64 65 0a 23 09 64 65 66 69 6e 65  exclude.#.define
09d0: 20 5f 68 74 74 70 20 22 3f 65 78 63 6c 75 64 65   _http "?exclude
09e0: 3d 22 20 64 73 5f 65 78 63 6c 75 64 65 20 22 26  =" ds_exclude "&
09f0: 22 0a 23 65 6c 73 65 0a 23 09 64 65 66 69 6e 65  ".#else.#.define
0a00: 20 5f 68 74 74 70 20 22 3f 22 0a 23 65 6e 64 69   _http "?".#endi
0a10: 66 0a 23 64 65 66 69 6e 65 20 68 74 74 70 20 5f  f.#define http _
0a20: 68 74 74 70 20 22 6c 61 6e 67 3d 22 20 64 73 5f  http "lang=" ds_
0a30: 6c 61 6e 67 20 22 20 48 54 54 50 2f 31 2e 31 5c  lang " HTTP/1.1\
0a40: 72 5c 6e 48 6f 73 74 3a 20 61 70 69 2e 64 61 72  r\nHost: api.dar
0a50: 6b 73 6b 79 2e 6e 65 74 5c 72 5c 6e 5c 72 5c 6e  ksky.net\r\n\r\n
0a60: 22 0a 23 64 65 66 69 6e 65 20 73 74 61 72 74 20  ".#define start 
0a70: 22 47 45 54 20 2f 66 6f 72 65 63 61 73 74 2f 22  "GET /forecast/"
0a80: 20 64 73 5f 61 70 69 6b 65 79 20 22 2f 22 0a 0a   ds_apikey "/"..
0a90: 23 64 65 66 69 6e 65 20 6d 69 6e 28 78 2c 79 29  #define min(x,y)
0aa0: 20 28 78 3e 79 3f 79 3a 78 29 0a 23 64 65 66 69   (x>y?y:x).#defi
0ab0: 6e 65 20 6c 65 6e 28 78 29 20 28 73 69 7a 65 6f  ne len(x) (sizeo
0ac0: 66 28 78 29 2f 73 69 7a 65 6f 66 28 2a 78 29 29  f(x)/sizeof(*x))
0ad0: 0a 0a 74 79 70 65 64 65 66 20 65 6e 75 6d 20 62  ..typedef enum b
0ae0: 6f 6f 6c 20 7b 20 66 61 6c 73 65 2c 20 74 72 75  ool { false, tru
0af0: 65 20 7d 20 62 6f 6f 6c 3b 0a 0a 53 53 4c 5f 43  e } bool;..SSL_C
0b00: 54 58 2a 20 73 63 3b 0a 62 6f 6f 6c 20 68 65 61  TX* sc;.bool hea
0b10: 64 28 73 69 7a 65 5f 74 2a 20 6c 65 6e 2c 20 63  d(size_t* len, c
0b20: 68 61 72 2a 20 74 78 74 2c 20 63 68 61 72 2a 2a  har* txt, char**
0b30: 20 62 6f 64 79 29 20 7b 0a 09 63 68 61 72 2a 20   body) {..char* 
0b40: 68 65 6e 64 20 3d 20 73 74 72 73 74 72 28 74 78  hend = strstr(tx
0b50: 74 2c 20 22 5c 72 5c 6e 5c 72 5c 6e 22 29 3b 0a  t, "\r\n\r\n");.
0b60: 09 69 66 20 28 68 65 6e 64 20 3d 3d 20 4e 55 4c  .if (hend == NUL
0b70: 4c 29 20 72 65 74 75 72 6e 20 66 61 6c 73 65 3b  L) return false;
0b80: 0a 09 23 64 65 66 69 6e 65 20 63 74 6c 68 65 61  ..#define ctlhea
0b90: 64 20 22 5c 72 5c 6e 43 6f 6e 74 65 6e 74 2d 4c  d "\r\nContent-L
0ba0: 65 6e 67 74 68 3a 22 0a 09 63 68 61 72 2a 20 63  ength:"..char* c
0bb0: 74 6c 20 3d 20 73 74 72 73 74 72 28 74 78 74 2c  tl = strstr(txt,
0bc0: 20 63 74 6c 68 65 61 64 29 3b 0a 09 69 66 20 28   ctlhead);..if (
0bd0: 63 74 6c 20 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 63  ctl == NULL || c
0be0: 74 6c 20 3e 20 68 65 6e 64 29 20 72 65 74 75 72  tl > hend) retur
0bf0: 6e 20 66 61 6c 73 65 3b 0a 09 63 74 6c 20 2b 3d  n false;..ctl +=
0c00: 20 6c 65 6e 28 63 74 6c 68 65 61 64 29 3b 0a 09   len(ctlhead);..
0c10: 2a 6c 65 6e 20 3d 20 30 3b 0a 09 77 68 69 6c 65  *len = 0;..while
0c20: 28 2a 63 74 6c 20 21 3d 20 27 5c 72 27 29 20 7b  (*ctl != '\r') {
0c30: 0a 09 09 69 66 20 28 2a 63 74 6c 20 3e 3d 20 27  ...if (*ctl >= '
0c40: 30 27 20 26 26 20 2a 63 74 6c 20 3c 3d 20 27 39  0' && *ctl <= '9
0c50: 27 29 20 2a 6c 65 6e 2a 3d 31 30 2c 2a 6c 65 6e  ') *len*=10,*len
0c60: 2b 3d 2a 63 74 6c 2d 27 30 27 3b 0a 09 09 2b 2b  +=*ctl-'0';...++
0c70: 63 74 6c 3b 0a 09 7d 0a 09 2a 6c 65 6e 2b 3d 28  ctl;..}..*len+=(
0c80: 68 65 6e 64 2d 74 78 74 29 2b 34 3b 0a 09 2a 62  hend-txt)+4;..*b
0c90: 6f 64 79 20 3d 20 68 65 6e 64 2b 34 3b 0a 09 72  ody = hend+4;..r
0ca0: 65 74 75 72 6e 20 74 72 75 65 3b 0a 7d 0a 73 69  eturn true;.}.si
0cb0: 7a 65 5f 74 20 67 65 74 28 63 68 61 72 2a 20 72  ze_t get(char* r
0cc0: 65 73 70 2c 20 73 69 7a 65 5f 74 20 6d 61 78 2c  esp, size_t max,
0cd0: 20 63 6f 6e 73 74 20 63 68 61 72 2a 20 6d 73 67   const char* msg
0ce0: 2c 20 73 69 7a 65 5f 74 20 74 6f 74 61 6c 2c 20  , size_t total, 
0cf0: 63 68 61 72 2a 2a 20 62 6f 64 79 29 7b 0a 0a 09  char** body){...
0d00: 69 6e 74 20 70 6f 72 74 20 3d 20 34 34 33 3b 0a  int port = 443;.
0d10: 09 63 6f 6e 73 74 20 63 68 61 72 2a 20 68 6f 73  .const char* hos
0d20: 74 20 3d 20 22 61 70 69 2e 64 61 72 6b 73 6b 79  t = "api.darksky
0d30: 2e 6e 65 74 22 3b 0a 09 2f 2f 70 72 69 6e 74 66  .net";..//printf
0d40: 28 22 72 65 71 3a 20 25 73 5c 6e 22 2c 20 6d 73  ("req: %s\n", ms
0d50: 67 29 3b 09 0a 09 73 74 72 75 63 74 20 68 6f 73  g);...struct hos
0d60: 74 65 6e 74 2a 20 61 70 69 3b 0a 09 73 74 72 75  tent* api;..stru
0d70: 63 74 20 73 6f 63 6b 61 64 64 72 5f 69 6e 20 61  ct sockaddr_in a
0d80: 70 69 5f 61 64 64 72 3b 0a 09 69 6e 74 20 73 6f  pi_addr;..int so
0d90: 63 6b 66 64 2c 20 62 79 74 65 73 3b 0a 09 73 69  ckfd, bytes;..si
0da0: 7a 65 5f 74 20 73 65 6e 74 2c 20 72 65 63 64 3b  ze_t sent, recd;
0db0: 0a 09 0a 09 73 6f 63 6b 66 64 20 3d 20 73 6f 63  ....sockfd = soc
0dc0: 6b 65 74 28 41 46 5f 49 4e 45 54 2c 20 53 4f 43  ket(AF_INET, SOC
0dd0: 4b 5f 53 54 52 45 41 4d 2c 20 30 29 3b 0a 09 69  K_STREAM, 0);..i
0de0: 66 20 28 73 6f 63 6b 66 64 20 3c 20 30 29 20 65  f (sockfd < 0) e
0df0: 78 69 74 28 32 29 3b 0a 09 53 53 4c 20 2a 63 6f  xit(2);..SSL *co
0e00: 6e 20 3d 20 53 53 4c 5f 6e 65 77 28 73 63 29 3b  n = SSL_new(sc);
0e10: 0a 09 53 53 4c 5f 73 65 74 5f 66 64 28 63 6f 6e  ..SSL_set_fd(con
0e20: 2c 20 73 6f 63 6b 66 64 29 3b 0a 0a 09 61 70 69  , sockfd);...api
0e30: 20 3d 20 67 65 74 68 6f 73 74 62 79 6e 61 6d 65   = gethostbyname
0e40: 28 68 6f 73 74 29 3b 0a 09 69 66 20 28 61 70 69  (host);..if (api
0e50: 20 3d 3d 20 4e 55 4c 4c 29 20 65 78 69 74 28 33   == NULL) exit(3
0e60: 29 3b 0a 0a 09 6d 65 6d 73 65 74 28 26 61 70 69  );...memset(&api
0e70: 5f 61 64 64 72 2c 20 30 2c 20 73 69 7a 65 6f 66  _addr, 0, sizeof
0e80: 28 61 70 69 5f 61 64 64 72 29 29 3b 0a 09 61 70  (api_addr));..ap
0e90: 69 5f 61 64 64 72 2e 73 69 6e 5f 66 61 6d 69 6c  i_addr.sin_famil
0ea0: 79 20 3d 20 41 46 5f 49 4e 45 54 3b 0a 09 61 70  y = AF_INET;..ap
0eb0: 69 5f 61 64 64 72 2e 73 69 6e 5f 70 6f 72 74 20  i_addr.sin_port 
0ec0: 3d 20 68 74 6f 6e 73 28 70 6f 72 74 29 3b 0a 09  = htons(port);..
0ed0: 6d 65 6d 63 70 79 28 26 61 70 69 5f 61 64 64 72  memcpy(&api_addr
0ee0: 2e 73 69 6e 5f 61 64 64 72 2e 73 5f 61 64 64 72  .sin_addr.s_addr
0ef0: 2c 20 61 70 69 20 2d 3e 20 68 5f 61 64 64 72 2c  , api -> h_addr,
0f00: 20 61 70 69 20 2d 3e 20 68 5f 6c 65 6e 67 74 68   api -> h_length
0f10: 29 3b 0a 0a 09 69 66 20 28 63 6f 6e 6e 65 63 74  );...if (connect
0f20: 28 73 6f 63 6b 66 64 2c 28 73 74 72 75 63 74 20  (sockfd,(struct 
0f30: 73 6f 63 6b 61 64 64 72 2a 29 26 61 70 69 5f 61  sockaddr*)&api_a
0f40: 64 64 72 2c 73 69 7a 65 6f 66 28 61 70 69 5f 61  ddr,sizeof(api_a
0f50: 64 64 72 29 29 29 0a 09 09 65 78 69 74 28 34 29  ddr)))...exit(4)
0f60: 3b 0a 09 69 6e 74 20 65 72 72 20 3d 20 53 53 4c  ;..int err = SSL
0f70: 5f 63 6f 6e 6e 65 63 74 28 63 6f 6e 29 3b 0a 0a  _connect(con);..
0f80: 0a 09 73 65 6e 74 20 3d 20 30 3b 0a 09 64 6f 20  ..sent = 0;..do 
0f90: 7b 0a 09 09 62 79 74 65 73 20 3d 20 53 53 4c 5f  {...bytes = SSL_
0fa0: 77 72 69 74 65 28 63 6f 6e 2c 6d 73 67 2b 73 65  write(con,msg+se
0fb0: 6e 74 2c 74 6f 74 61 6c 2d 73 65 6e 74 29 3b 0a  nt,total-sent);.
0fc0: 09 09 69 66 20 28 62 79 74 65 73 20 3c 20 30 29  ..if (bytes < 0)
0fd0: 20 65 78 69 74 20 28 34 29 3b 0a 09 09 69 66 20   exit (4);...if 
0fe0: 28 62 79 74 65 73 20 3d 3d 20 30 29 20 62 72 65  (bytes == 0) bre
0ff0: 61 6b 3b 0a 09 09 2b 2b 73 65 6e 74 3b 0a 09 7d  ak;...++sent;..}
1000: 20 77 68 69 6c 65 20 28 73 65 6e 74 20 3c 20 74   while (sent < t
1010: 6f 74 61 6c 29 3b 0a 09 72 65 63 64 20 3d 20 30  otal);..recd = 0
1020: 3b 0a 09 73 69 7a 65 5f 74 20 72 65 73 70 6c 65  ;..size_t resple
1030: 6e 20 3d 20 6d 61 78 3b 0a 09 62 6f 6f 6c 20 72  n = max;..bool r
1040: 68 65 61 64 20 3d 20 66 61 6c 73 65 3b 0a 09 64  head = false;..d
1050: 6f 20 7b 0a 09 09 62 79 74 65 73 20 3d 20 53 53  o {...bytes = SS
1060: 4c 5f 72 65 61 64 28 63 6f 6e 2c 72 65 73 70 2b  L_read(con,resp+
1070: 72 65 63 64 2c 6d 69 6e 28 72 65 73 70 6c 65 6e  recd,min(resplen
1080: 2d 72 65 63 64 2c 31 35 30 30 30 29 29 3b 0a 09  -recd,15000));..
1090: 09 69 66 20 28 62 79 74 65 73 20 3c 20 30 29 20  .if (bytes < 0) 
10a0: 65 78 69 74 20 28 35 29 3b 0a 09 09 69 66 20 28  exit (5);...if (
10b0: 62 79 74 65 73 20 3d 3d 20 30 29 20 62 72 65 61  bytes == 0) brea
10c0: 6b 3b 0a 09 09 69 66 28 21 72 68 65 61 64 29 72  k;...if(!rhead)r
10d0: 68 65 61 64 3d 68 65 61 64 28 26 72 65 73 70 6c  head=head(&respl
10e0: 65 6e 2c 20 72 65 73 70 2c 20 62 6f 64 79 29 3b  en, resp, body);
10f0: 0a 09 09 72 65 63 64 20 2b 3d 20 62 79 74 65 73  ...recd += bytes
1100: 3b 0a 09 7d 20 77 68 69 6c 65 20 28 72 65 63 64  ;..} while (recd
1110: 20 3c 20 72 65 73 70 6c 65 6e 20 2d 20 31 29 3b   < resplen - 1);
1120: 0a 0a 09 63 6c 6f 73 65 28 73 6f 63 6b 66 64 29  ...close(sockfd)
1130: 3b 0a 09 53 53 4c 5f 73 68 75 74 64 6f 77 6e 28  ;..SSL_shutdown(
1140: 63 6f 6e 29 3b 0a 0a 09 72 65 74 75 72 6e 20 72  con);...return r
1150: 65 63 64 3b 0a 7d 0a 73 69 7a 65 5f 74 20 70 6f  ecd;.}.size_t po
1160: 73 28 63 68 61 72 2a 20 6d 73 67 2c 20 63 6f 6e  s(char* msg, con
1170: 73 74 20 63 68 61 72 2a 20 6c 61 74 2c 20 63 6f  st char* lat, co
1180: 6e 73 74 20 63 68 61 72 2a 20 6c 6e 67 29 20 7b  nst char* lng) {
1190: 0a 09 63 68 61 72 2a 20 63 75 72 20 3d 20 6d 73  ..char* cur = ms
11a0: 67 20 2b 20 6c 65 6e 28 73 74 61 72 74 29 20 2d  g + len(start) -
11b0: 20 31 3b 0a 09 73 69 7a 65 5f 74 20 6c 61 74 6c   1;..size_t latl
11c0: 20 3d 20 73 74 72 6c 65 6e 28 6c 61 74 29 3b 0a   = strlen(lat);.
11d0: 09 73 69 7a 65 5f 74 20 6c 6f 6e 67 6c 20 3d 20  .size_t longl = 
11e0: 73 74 72 6c 65 6e 28 6c 6e 67 29 3b 0a 09 73 74  strlen(lng);..st
11f0: 72 63 70 79 28 63 75 72 2c 20 6c 61 74 29 3b 20  rcpy(cur, lat); 
1200: 63 75 72 20 2b 3d 20 6c 61 74 6c 3b 0a 09 2a 63  cur += latl;..*c
1210: 75 72 2b 2b 3d 27 2c 27 3b 20 0a 09 73 74 72 63  ur++=','; ..strc
1220: 70 79 28 63 75 72 2c 20 6c 6e 67 29 3b 20 63 75  py(cur, lng); cu
1230: 72 20 2b 3d 20 6c 6f 6e 67 6c 3b 0a 09 73 74 72  r += longl;..str
1240: 63 70 79 28 63 75 72 2c 20 68 74 74 70 29 3b 20  cpy(cur, http); 
1250: 63 75 72 20 2b 3d 20 6c 65 6e 28 68 74 74 70 29  cur += len(http)
1260: 3b 0a 09 2a 63 75 72 2d 2d 3d 30 3b 0a 09 72 65  ;..*cur--=0;..re
1270: 74 75 72 6e 20 63 75 72 2d 6d 73 67 3b 0a 7d 0a  turn cur-msg;.}.
1280: 62 6f 6f 6c 20 65 73 74 72 63 28 73 69 7a 65 5f  bool estrc(size_
1290: 74 20 73 7a 2c 20 63 6f 6e 73 74 20 63 68 61 72  t sz, const char
12a0: 2a 20 73 74 72 31 2c 20 63 6f 6e 73 74 20 63 68  * str1, const ch
12b0: 61 72 2a 20 73 74 72 32 29 20 7b 0a 09 66 6f 72  ar* str2) {..for
12c0: 28 73 69 7a 65 5f 74 20 69 20 3d 20 30 3b 69 3c  (size_t i = 0;i<
12d0: 73 7a 3b 2b 2b 69 29 20 7b 0a 09 09 69 66 28 2a  sz;++i) {...if(*
12e0: 73 74 72 31 20 3d 3d 20 2a 73 74 72 32 29 20 7b  str1 == *str2) {
12f0: 0a 09 09 09 2b 2b 73 74 72 31 3b 20 2b 2b 73 74  ....++str1; ++st
1300: 72 32 3b 0a 09 09 7d 20 65 6c 73 65 20 69 66 20  r2;...} else if 
1310: 28 2a 73 74 72 32 20 3d 3d 27 5c 5c 27 29 20 7b  (*str2 =='\\') {
1320: 0a 09 09 09 2b 2b 73 74 72 32 3b 0a 09 09 09 69  ....++str2;....i
1330: 66 28 2a 73 74 72 31 20 3d 3d 20 2a 73 74 72 32  f(*str1 == *str2
1340: 29 20 7b 0a 09 09 09 09 2b 2b 73 74 72 31 3b 20  ) {.....++str1; 
1350: 2b 2b 73 74 72 32 3b 0a 09 09 09 7d 20 65 6c 73  ++str2;....} els
1360: 65 20 72 65 74 75 72 6e 20 66 61 6c 73 65 3b 0a  e return false;.
1370: 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 72 65  ..} else {....re
1380: 74 75 72 6e 20 66 61 6c 73 65 3b 0a 09 09 7d 0a  turn false;...}.
1390: 09 7d 0a 09 72 65 74 75 72 6e 20 74 72 75 65 3b  .}..return true;
13a0: 0a 7d 0a 74 79 70 65 64 65 66 20 73 74 72 75 63  .}.typedef struc
13b0: 74 20 70 73 74 72 20 7b 0a 09 73 69 7a 65 5f 74  t pstr {..size_t
13c0: 20 73 7a 3b 0a 09 63 6f 6e 73 74 20 63 68 61 72   sz;..const char
13d0: 2a 20 61 3b 0a 7d 20 70 73 74 72 3b 0a 74 79 70  * a;.} pstr;.typ
13e0: 65 64 65 66 20 75 6e 69 6f 6e 20 6a 73 76 20 7b  edef union jsv {
13f0: 0a 09 66 6c 6f 61 74 20 66 3b 0a 09 70 73 74 72  ..float f;..pstr
1400: 20 73 3b 0a 7d 20 6a 73 76 3b 0a 2f 2a 20 76 6f   s;.} jsv;./* vo
1410: 69 64 20 70 72 69 6e 74 6b 65 79 28 63 6f 6e 73  id printkey(cons
1420: 74 20 63 68 61 72 2a 20 6b 65 79 29 20 7b 0a 09  t char* key) {..
1430: 73 69 7a 65 5f 74 20 6c 65 6e 20 3d 20 2a 6b 65  size_t len = *ke
1440: 79 2b 2b 3b 0a 09 66 6f 72 20 28 73 69 7a 65 5f  y++;..for (size_
1450: 74 20 69 20 3d 20 30 3b 20 69 3c 6c 65 6e 3b 20  t i = 0; i<len; 
1460: 2b 2b 69 29 20 7b 0a 09 09 70 72 69 6e 74 66 28  ++i) {...printf(
1470: 22 2f 25 2e 2a 73 22 2c 2a 6b 65 79 2c 6b 65 79  "/%.*s",*key,key
1480: 2b 31 29 3b 0a 09 09 6b 65 79 20 2b 3d 20 2a 6b  +1);...key += *k
1490: 65 79 20 2b 20 31 3b 0a 09 7d 3b 0a 09 70 72 69  ey + 1;..};..pri
14a0: 6e 74 66 28 22 5c 6e 22 29 3b 0a 7d 20 2a 2f 0a  ntf("\n");.} */.
14b0: 76 6f 69 64 20 70 70 6c 74 28 63 6f 6e 73 74 20  void pplt(const 
14c0: 63 68 61 72 2a 20 73 74 72 2c 20 63 6f 6e 73 74  char* str, const
14d0: 20 63 68 61 72 2a 20 63 6f 6e 73 74 20 65 6e 64   char* const end
14e0: 2c 20 63 6f 6e 73 74 20 63 68 61 72 2a 2a 20 6b  , const char** k
14f0: 65 79 73 2c 20 63 6f 6e 73 74 20 63 68 61 72 2a  eys, const char*
1500: 2a 20 63 6f 6e 73 74 20 6b 65 79 65 6e 64 2c 20  * const keyend, 
1510: 6a 73 76 2a 20 76 61 6c 75 65 73 29 20 7b 0a 09  jsv* values) {..
1520: 2f 2f 20 69 6e 69 74 69 61 6c 69 7a 65 20 70 61  // initialize pa
1530: 72 73 65 72 20 73 74 61 74 65 0a 09 73 69 7a 65  rser state..size
1540: 5f 74 20 64 65 70 74 68 20 3d 20 30 3b 0a 09 63  _t depth = 0;..c
1550: 6f 6e 73 74 20 63 68 61 72 2a 20 66 6c 64 20 3d  onst char* fld =
1560: 20 4e 55 4c 4c 3b 0a 09 63 6f 6e 73 74 20 63 68   NULL;..const ch
1570: 61 72 2a 20 70 61 74 68 5b 33 32 5d 3b 0a 09 70  ar* path[32];..p
1580: 61 74 68 5b 30 5d 20 3d 20 4e 55 4c 4c 3b 0a 09  ath[0] = NULL;..
1590: 0a 09 77 68 69 6c 65 28 2a 73 74 72 2b 2b 21 3d  ..while(*str++!=
15a0: 27 7b 27 29 3b 20 2f 2f 63 68 65 61 74 0a 09 69  '{'); //cheat..i
15b0: 6e 69 74 3a 20 7b 0a 09 09 69 66 20 28 6b 65 79  nit: {...if (key
15c0: 73 20 3e 20 6b 65 79 65 6e 64 29 20 72 65 74 75  s > keyend) retu
15d0: 72 6e 3b 0a 09 09 69 66 20 28 73 74 72 20 3e 20  rn;...if (str > 
15e0: 65 6e 64 29 20 72 65 74 75 72 6e 3b 0a 09 09 2f  end) return;.../
15f0: 2a 20 70 72 69 6e 74 5f 70 61 74 68 3a 20 7b 0a  * print_path: {.
1600: 09 09 09 70 72 69 6e 74 66 28 22 63 75 72 72 65  ...printf("curre
1610: 6e 74 20 70 61 74 68 3a 20 2f 22 29 3b 0a 09 09  nt path: /");...
1620: 09 66 6f 72 20 28 73 69 7a 65 5f 74 20 69 20 3d  .for (size_t i =
1630: 20 30 3b 20 69 20 3c 20 64 65 70 74 68 3b 20 2b   0; i < depth; +
1640: 2b 69 29 20 7b 0a 09 09 09 09 70 72 69 6e 74 66  +i) {.....printf
1650: 28 22 25 2e 2a 73 2f 22 2c 73 74 72 63 68 72 28  ("%.*s/",strchr(
1660: 70 61 74 68 5b 69 5d 2c 27 22 27 29 2d 70 61 74  path[i],'"')-pat
1670: 68 5b 69 5d 2c 70 61 74 68 5b 69 5d 29 3b 0a 09  h[i],path[i]);..
1680: 09 09 7d 0a 09 09 09 70 72 69 6e 74 66 28 22 5c  ..}....printf("\
1690: 6e 22 29 3b 0a 09 09 09 70 72 69 6e 74 66 28 22  n");....printf("
16a0: 63 75 72 72 65 6e 74 20 6b 65 79 3a 20 22 29 3b  current key: ");
16b0: 0a 09 09 09 70 72 69 6e 74 6b 65 79 28 2a 6b 65  ....printkey(*ke
16c0: 79 73 29 3b 0a 09 09 7d 20 2a 2f 0a 09 09 70 61  ys);...} */...pa
16d0: 72 73 65 5f 63 68 61 72 3a 20 7b 0a 09 09 09 73  rse_char: {....s
16e0: 77 69 74 63 68 28 2a 73 74 72 2b 2b 29 20 7b 0a  witch(*str++) {.
16f0: 09 09 09 09 63 61 73 65 20 27 20 27 3a 20 63 61  ....case ' ': ca
1700: 73 65 20 27 5c 74 27 3a 20 63 61 73 65 20 27 5c  se '\t': case '\
1710: 6e 27 3a 0a 09 09 09 09 09 67 6f 74 6f 20 70 61  n':......goto pa
1720: 72 73 65 5f 63 68 61 72 3b 0a 09 09 09 09 63 61  rse_char;.....ca
1730: 73 65 20 27 22 27 3a 0a 09 09 09 09 09 70 61 74  se '"':......pat
1740: 68 5b 64 65 70 74 68 5d 20 3d 20 73 74 72 3b 0a  h[depth] = str;.
1750: 09 09 09 09 09 67 6f 74 6f 20 70 61 74 68 5f 66  .....goto path_f
1760: 69 6e 64 5f 71 75 6f 74 65 5f 65 6e 64 3b 0a 09  ind_quote_end;..
1770: 09 09 09 63 61 73 65 20 27 7d 27 3a 0a 09 09 09  ...case '}':....
1780: 09 09 69 66 20 28 64 65 70 74 68 20 3d 3d 20 30  ..if (depth == 0
1790: 29 20 72 65 74 75 72 6e 3b 0a 09 09 09 09 09 64  ) return;......d
17a0: 65 70 74 68 2d 2d 3b 0a 09 09 09 09 09 77 68 69  epth--;......whi
17b0: 6c 65 28 2a 73 74 72 21 3d 27 2c 27 29 20 2b 2b  le(*str!=',') ++
17c0: 73 74 72 3b 20 2b 2b 73 74 72 3b 0a 09 09 09 09  str; ++str;.....
17d0: 09 67 6f 74 6f 20 69 6e 69 74 3b 0a 09 09 09 09  .goto init;.....
17e0: 64 65 66 61 75 6c 74 3a 0a 09 09 09 09 09 70 72  default:......pr
17f0: 69 6e 74 66 28 22 66 6f 75 6e 64 20 69 6c 6c 65  intf("found ille
1800: 67 61 6c 20 63 68 61 72 20 25 63 5c 6e 22 2c 20  gal char %c\n", 
1810: 2a 28 73 74 72 2d 31 29 29 3b 0a 09 09 09 09 09  *(str-1));......
1820: 65 78 69 74 28 36 29 3b 0a 09 09 09 7d 0a 09 09  exit(6);....}...
1830: 7d 0a 09 09 70 61 74 68 5f 66 69 6e 64 5f 71 75  }...path_find_qu
1840: 6f 74 65 5f 65 6e 64 3a 20 7b 0a 09 09 09 73 77  ote_end: {....sw
1850: 69 74 63 68 20 28 2a 73 74 72 2b 2b 29 20 7b 0a  itch (*str++) {.
1860: 09 09 09 09 63 61 73 65 20 27 5c 5c 27 3a 20 2b  ....case '\\': +
1870: 2b 73 74 72 3b 20 67 6f 74 6f 20 70 61 74 68 5f  +str; goto path_
1880: 66 69 6e 64 5f 71 75 6f 74 65 5f 65 6e 64 3b 0a  find_quote_end;.
1890: 09 09 09 09 63 61 73 65 20 27 22 27 3a 20 67 6f  ....case '"': go
18a0: 74 6f 20 72 65 61 64 5f 76 61 6c 75 65 3b 0a 09  to read_value;..
18b0: 09 09 09 64 65 66 61 75 6c 74 3a 20 67 6f 74 6f  ...default: goto
18c0: 20 70 61 74 68 5f 66 69 6e 64 5f 71 75 6f 74 65   path_find_quote
18d0: 5f 65 6e 64 3b 0a 09 09 09 7d 0a 09 09 7d 0a 09  _end;....}...}..
18e0: 09 72 65 61 64 5f 76 61 6c 75 65 3a 20 7b 0a 09  .read_value: {..
18f0: 09 09 69 66 20 28 2a 73 74 72 2b 2b 21 3d 27 3a  ..if (*str++!=':
1900: 27 29 20 7b 0a 09 09 09 09 70 72 69 6e 74 66 28  ') {.....printf(
1910: 22 69 6c 6c 65 67 61 6c 20 63 68 61 72 5c 6e 22  "illegal char\n"
1920: 29 3b 0a 09 09 09 09 65 78 69 74 28 36 29 3b 0a  );.....exit(6);.
1930: 09 09 09 7d 0a 09 09 09 62 6f 6f 6c 20 69 73 6b  ...}....bool isk
1940: 65 79 3b 0a 09 09 09 63 6f 6e 73 74 20 63 68 61  ey;....const cha
1950: 72 2a 20 6b 65 79 20 3d 20 2a 6b 65 79 73 3b 0a  r* key = *keys;.
1960: 09 09 09 6a 73 76 2a 20 76 61 6c 75 65 3b 0a 09  ...jsv* value;..
1970: 09 09 69 66 20 28 64 65 70 74 68 20 2b 20 31 20  ..if (depth + 1 
1980: 21 3d 20 2a 6b 65 79 2b 2b 29 20 7b 0a 09 09 09  != *key++) {....
1990: 09 69 73 6b 65 79 20 3d 20 66 61 6c 73 65 3b 0a  .iskey = false;.
19a0: 09 09 09 09 67 6f 74 6f 20 63 6f 6d 70 3b 0a 09  ....goto comp;..
19b0: 09 09 7d 20 65 6c 73 65 20 66 6f 72 20 28 73 69  ..} else for (si
19c0: 7a 65 5f 74 20 69 20 3d 20 30 3b 20 69 20 3c 3d  ze_t i = 0; i <=
19d0: 20 64 65 70 74 68 3b 20 2b 2b 69 29 20 7b 0a 09   depth; ++i) {..
19e0: 09 09 09 69 66 20 28 65 73 74 72 63 28 2a 6b 65  ...if (estrc(*ke
19f0: 79 2c 20 6b 65 79 2b 31 2c 20 70 61 74 68 5b 69  y, key+1, path[i
1a00: 5d 29 29 20 7b 0a 09 09 09 09 09 6b 65 79 20 2b  ])) {......key +
1a10: 3d 20 2a 6b 65 79 20 2b 20 31 3b 0a 09 09 09 09  = *key + 1;.....
1a20: 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 69 73  } else {......is
1a30: 6b 65 79 20 3d 20 66 61 6c 73 65 3b 0a 09 09 09  key = false;....
1a40: 09 09 67 6f 74 6f 20 63 6f 6d 70 3b 0a 09 09 09  ..goto comp;....
1a50: 09 7d 0a 09 09 09 7d 0a 09 09 09 69 73 6b 65 79  .}....}....iskey
1a60: 20 3d 20 74 72 75 65 3b 0a 09 09 09 76 61 6c 75   = true;....valu
1a70: 65 20 3d 20 76 61 6c 75 65 73 3b 0a 09 09 09 2b  e = values;....+
1a80: 2b 6b 65 79 73 3b 20 2b 2b 76 61 6c 75 65 73 3b  +keys; ++values;
1a90: 0a 09 09 09 63 6f 6d 70 3a 20 69 66 20 28 2a 73  ....comp: if (*s
1aa0: 74 72 20 3d 3d 20 27 7b 27 29 20 7b 0a 09 09 09  tr == '{') {....
1ab0: 09 2b 2b 64 65 70 74 68 3b 20 2b 2b 73 74 72 3b  .++depth; ++str;
1ac0: 0a 09 09 09 09 67 6f 74 6f 20 69 6e 69 74 3b 0a  .....goto init;.
1ad0: 09 09 09 7d 20 65 6c 73 65 20 69 66 20 28 2a 73  ...} else if (*s
1ae0: 74 72 20 3d 3d 20 27 22 27 29 20 7b 0a 09 09 09  tr == '"') {....
1af0: 09 67 6f 74 6f 20 63 6f 70 79 5f 73 74 72 5f 76  .goto copy_str_v
1b00: 61 6c 75 65 3b 0a 09 09 09 7d 20 65 6c 73 65 20  alue;....} else 
1b10: 69 66 20 28 2a 73 74 72 20 3d 3d 20 27 5b 27 29  if (*str == '[')
1b20: 20 7b 0a 09 09 09 09 67 6f 74 6f 20 73 6b 69 70   {.....goto skip
1b30: 5f 61 72 72 61 79 3b 0a 09 09 09 7d 20 65 6c 73  _array;....} els
1b40: 65 20 69 66 20 28 28 2a 73 74 72 20 3e 3d 20 27  e if ((*str >= '
1b50: 30 27 20 26 26 20 2a 73 74 72 20 3c 3d 20 27 39  0' && *str <= '9
1b60: 27 29 20 7c 7c 20 2a 73 74 72 3d 3d 27 2d 27 29  ') || *str=='-')
1b70: 20 7b 0a 09 09 09 09 67 6f 74 6f 20 63 6f 70 79   {.....goto copy
1b80: 5f 69 6e 74 5f 76 61 6c 75 65 3b 0a 09 09 09 7d  _int_value;....}
1b90: 20 65 6c 73 65 20 7b 0a 09 09 09 09 70 72 69 6e   else {.....prin
1ba0: 74 66 28 22 69 6c 6c 65 67 61 6c 20 63 68 61 72  tf("illegal char
1bb0: 61 63 74 65 72 20 66 6f 75 6e 64 20 69 6e 20 76  acter found in v
1bc0: 61 6c 75 65 20 25 63 5c 6e 22 2c 20 2a 73 74 72  alue %c\n", *str
1bd0: 29 3b 0a 09 09 09 09 65 78 69 74 28 36 29 3b 0a  );.....exit(6);.
1be0: 09 09 09 7d 0a 0a 09 09 09 63 6f 70 79 5f 73 74  ...}.....copy_st
1bf0: 72 5f 76 61 6c 75 65 3a 20 7b 0a 09 09 09 09 66  r_value: {.....f
1c00: 6c 64 20 3d 20 2b 2b 73 74 72 3b 0a 09 09 09 09  ld = ++str;.....
1c10: 77 68 69 6c 65 20 28 2a 2b 2b 73 74 72 20 21 3d  while (*++str !=
1c20: 20 27 22 27 29 20 69 66 20 28 2a 73 74 72 20 3d   '"') if (*str =
1c30: 3d 20 27 5c 5c 27 29 20 7b 20 2b 2b 73 74 72 3b  = '\\') { ++str;
1c40: 20 63 6f 6e 74 69 6e 75 65 3b 20 7d 0a 09 09 09   continue; }....
1c50: 09 69 66 20 28 69 73 6b 65 79 29 20 7b 0a 09 09  .if (iskey) {...
1c60: 09 09 09 76 61 6c 75 65 20 2d 3e 20 73 2e 73 7a  ...value -> s.sz
1c70: 20 3d 20 73 74 72 20 2d 20 66 6c 64 3b 0a 09 09   = str - fld;...
1c80: 09 09 09 76 61 6c 75 65 20 2d 3e 20 73 2e 61 20  ...value -> s.a 
1c90: 3d 20 66 6c 64 3b 0a 09 09 09 09 7d 0a 09 09 09  = fld;.....}....
1ca0: 09 77 68 69 6c 65 20 28 2a 2b 2b 73 74 72 20 21  .while (*++str !
1cb0: 3d 20 27 2c 27 29 3b 0a 09 09 09 09 2b 2b 73 74  = ',');.....++st
1cc0: 72 3b 20 67 6f 74 6f 20 69 6e 69 74 3b 0a 09 09  r; goto init;...
1cd0: 09 7d 0a 09 09 09 73 6b 69 70 5f 61 72 72 61 79  .}....skip_array
1ce0: 3a 20 7b 0a 09 09 09 09 73 69 7a 65 5f 74 20 61  : {.....size_t a
1cf0: 72 64 20 3d 20 30 3b 0a 09 09 09 09 73 6b 69 70  rd = 0;.....skip
1d00: 5f 6c 6f 6f 70 3a 20 73 77 69 74 63 68 20 28 2a  _loop: switch (*
1d10: 2b 2b 73 74 72 29 20 7b 0a 09 09 09 09 09 63 61  ++str) {......ca
1d20: 73 65 20 27 7b 27 3a 20 63 61 73 65 20 27 5b 27  se '{': case '['
1d30: 3a 20 2b 2b 61 72 64 3b 20 67 6f 74 6f 20 73 6b  : ++ard; goto sk
1d40: 69 70 5f 6c 6f 6f 70 3b 0a 09 09 09 09 09 63 61  ip_loop;......ca
1d50: 73 65 20 27 22 27 3a 20 67 6f 74 6f 20 73 6b 69  se '"': goto ski
1d60: 70 5f 73 74 72 3b 0a 09 09 09 09 09 63 61 73 65  p_str;......case
1d70: 20 27 7d 27 3a 20 69 66 20 28 61 72 64 20 3d 3d   '}': if (ard ==
1d80: 20 30 29 20 7b 0a 09 09 09 09 09 09 09 09 20 20   0) {.........  
1d90: 70 72 69 6e 74 66 28 22 62 61 64 20 6a 73 6f 6e  printf("bad json
1da0: 5c 6e 22 29 3b 0a 09 09 09 09 09 09 09 09 20 20  \n");.........  
1db0: 65 78 69 74 28 37 29 3b 0a 09 09 09 09 09 09 09  exit(7);........
1dc0: 20 20 7d 20 65 6c 73 65 20 7b 20 2d 2d 61 72 64    } else { --ard
1dd0: 3b 20 67 6f 74 6f 20 73 6b 69 70 5f 6c 6f 6f 70  ; goto skip_loop
1de0: 3b 20 7d 0a 09 09 09 09 09 63 61 73 65 20 27 5d  ; }......case ']
1df0: 27 3a 20 69 66 20 28 61 72 64 20 3d 3d 20 30 29  ': if (ard == 0)
1e00: 20 7b 0a 09 09 09 09 09 09 09 69 66 20 28 2a 2b   {........if (*+
1e10: 2b 73 74 72 20 3d 3d 20 27 2c 27 29 20 7b 20 2b  +str == ',') { +
1e20: 2b 73 74 72 3b 20 67 6f 74 6f 20 69 6e 69 74 3b  +str; goto init;
1e30: 20 7d 0a 09 09 09 09 09 09 09 65 6c 73 65 20 67   }........else g
1e40: 6f 74 6f 20 69 6e 69 74 3b 0a 09 09 09 09 09 09  oto init;.......
1e50: 7d 20 65 6c 73 65 20 7b 20 2d 2d 61 72 64 3b 20  } else { --ard; 
1e60: 7d 0a 09 09 09 09 09 64 65 66 61 75 6c 74 3a 20  }......default: 
1e70: 67 6f 74 6f 20 73 6b 69 70 5f 6c 6f 6f 70 3b 0a  goto skip_loop;.
1e80: 09 09 09 09 7d 0a 09 09 09 09 73 6b 69 70 5f 73  ....}.....skip_s
1e90: 74 72 3a 20 77 68 69 6c 65 20 28 2a 73 74 72 20  tr: while (*str 
1ea0: 21 3d 20 27 22 27 29 20 69 66 20 28 2a 73 74 72  != '"') if (*str
1eb0: 20 3d 3d 20 27 5c 5c 27 29 20 7b 20 73 74 72 20   == '\\') { str 
1ec0: 2b 3d 20 32 3b 20 63 6f 6e 74 69 6e 75 65 3b 20  += 2; continue; 
1ed0: 7d 20 65 6c 73 65 20 2b 2b 73 74 72 3b 20 67 6f  } else ++str; go
1ee0: 74 6f 20 73 6b 69 70 5f 6c 6f 6f 70 3b 0a 09 09  to skip_loop;...
1ef0: 09 7d 0a 09 09 09 63 6f 70 79 5f 69 6e 74 5f 76  .}....copy_int_v
1f00: 61 6c 75 65 3a 20 7b 0a 09 09 09 09 69 66 20 28  alue: {.....if (
1f10: 21 69 73 6b 65 79 29 20 7b 0a 09 09 09 09 09 77  !iskey) {......w
1f20: 68 69 6c 65 28 2a 73 74 72 2b 2b 21 3d 27 2c 27  hile(*str++!=','
1f30: 29 20 69 66 20 28 73 74 72 20 3e 20 65 6e 64 29  ) if (str > end)
1f40: 20 72 65 74 75 72 6e 3b 0a 09 09 09 09 09 67 6f   return;......go
1f50: 74 6f 20 69 6e 69 74 3b 0a 09 09 09 09 7d 0a 09  to init;.....}..
1f60: 09 09 09 76 61 6c 75 65 20 2d 3e 20 66 20 3d 20  ...value -> f = 
1f70: 30 3b 0a 09 09 09 09 62 6f 6f 6c 20 6e 65 67 3b  0;.....bool neg;
1f80: 0a 09 09 09 09 69 66 20 28 2a 73 74 72 20 3d 3d  .....if (*str ==
1f90: 20 27 2d 27 29 20 7b 20 6e 65 67 3d 74 72 75 65   '-') { neg=true
1fa0: 3b 20 2b 2b 73 74 72 3b 20 7d 20 65 6c 73 65 20  ; ++str; } else 
1fb0: 6e 65 67 3d 66 61 6c 73 65 3b 0a 09 09 09 09 77  neg=false;.....w
1fc0: 68 69 6c 65 28 2a 73 74 72 20 3e 3d 20 27 30 27  hile(*str >= '0'
1fd0: 20 26 26 20 2a 73 74 72 20 3c 3d 20 27 39 27 29   && *str <= '9')
1fe0: 20 7b 0a 09 09 09 09 09 76 61 6c 75 65 20 2d 3e   {......value ->
1ff0: 20 66 20 2a 3d 20 31 30 3b 0a 09 09 09 09 09 76   f *= 10;......v
2000: 61 6c 75 65 20 2d 3e 20 66 20 2b 3d 20 2a 73 74  alue -> f += *st
2010: 72 20 2d 20 27 30 27 3b 0a 09 09 09 09 09 2b 2b  r - '0';......++
2020: 73 74 72 3b 0a 09 09 09 09 7d 0a 09 09 09 09 69  str;.....}.....i
2030: 66 28 2a 73 74 72 20 3d 3d 20 27 2e 27 29 20 7b  f(*str == '.') {
2040: 0a 09 09 09 09 09 66 6c 6f 61 74 20 66 61 63 20  ......float fac 
2050: 3d 20 30 2e 31 3b 0a 09 09 09 09 09 66 6c 6f 61  = 0.1;......floa
2060: 74 20 76 61 6c 20 3d 20 30 3b 0a 09 09 09 09 09  t val = 0;......
2070: 77 68 69 6c 65 28 2a 2b 2b 73 74 72 20 3e 3d 20  while(*++str >= 
2080: 27 30 27 20 26 26 20 2a 73 74 72 20 3c 3d 20 27  '0' && *str <= '
2090: 39 27 29 20 7b 0a 09 09 09 09 09 09 76 61 6c 20  9') {.......val 
20a0: 2b 3d 20 28 28 28 66 6c 6f 61 74 29 28 2a 73 74  += (((float)(*st
20b0: 72 20 2d 20 27 30 27 29 29 20 2a 20 66 61 63 29  r - '0')) * fac)
20c0: 3b 0a 09 09 09 09 09 09 66 61 63 20 2a 3d 20 30  ;.......fac *= 0
20d0: 2e 31 3b 0a 09 09 09 09 09 7d 0a 09 09 09 09 09  .1;......}......
20e0: 76 61 6c 75 65 20 2d 3e 20 66 20 2b 3d 20 76 61  value -> f += va
20f0: 6c 3b 0a 09 09 09 09 7d 0a 09 09 09 09 69 66 28  l;.....}.....if(
2100: 6e 65 67 29 20 76 61 6c 75 65 20 2d 3e 20 66 20  neg) value -> f 
2110: 2a 3d 20 2d 31 3b 0a 09 09 09 09 69 66 20 28 2a  *= -1;.....if (*
2120: 73 74 72 20 3d 3d 20 27 2c 27 29 20 7b 0a 09 09  str == ',') {...
2130: 09 09 09 2b 2b 73 74 72 3b 20 67 6f 74 6f 20 69  ...++str; goto i
2140: 6e 69 74 3b 0a 09 09 09 09 7d 20 65 6c 73 65 20  nit;.....} else 
2150: 7b 0a 09 09 09 09 09 70 72 69 6e 74 66 28 22 69  {......printf("i
2160: 6c 6c 65 67 61 6c 20 63 68 61 72 61 63 74 65 72  llegal character
2170: 20 25 2e 2a 73 5c 6e 22 2c 31 35 2c 73 74 72 29   %.*s\n",15,str)
2180: 3b 0a 09 09 09 09 09 65 78 69 74 28 36 29 3b 0a  ;......exit(6);.
2190: 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09 7d 0a 09  ....}....}...}..
21a0: 7d 0a 7d 0a 0a 69 6e 74 20 6d 61 69 6e 28 69 6e  }.}..int main(in
21b0: 74 20 61 72 67 63 2c 20 63 68 61 72 2a 2a 20 61  t argc, char** a
21c0: 72 67 76 29 20 7b 0a 09 69 66 20 28 61 72 67 63  rgv) {..if (argc
21d0: 20 21 3d 20 33 29 20 65 78 69 74 28 31 29 3b 0a   != 3) exit(1);.
21e0: 09 53 53 4c 5f 6c 6f 61 64 5f 65 72 72 6f 72 5f  .SSL_load_error_
21f0: 73 74 72 69 6e 67 73 28 29 3b 0a 09 53 53 4c 5f  strings();..SSL_
2200: 6c 69 62 72 61 72 79 5f 69 6e 69 74 28 29 3b 0a  library_init();.
2210: 09 73 63 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65  .sc = SSL_CTX_ne
2220: 77 28 53 53 4c 76 32 33 5f 63 6c 69 65 6e 74 5f  w(SSLv23_client_
2230: 6d 65 74 68 6f 64 28 29 29 3b 0a 0a 09 63 68 61  method());...cha
2240: 72 20 6d 73 67 5b 32 35 36 5d 20 3d 20 73 74 61  r msg[256] = sta
2250: 72 74 3b 0a 09 63 68 61 72 20 72 65 73 70 5b 33  rt;..char resp[3
2260: 32 33 36 38 5d 3b 0a 09 63 68 61 72 2a 20 62 6f  2368];..char* bo
2270: 64 79 3b 0a 0a 09 2f 2f 20 6e 61 6d 65 20 74 68  dy;...// name th
2280: 65 20 66 69 65 6c 64 73 20 74 6f 20 65 78 74 72  e fields to extr
2290: 61 63 74 20 66 72 6f 6d 20 74 68 65 20 6a 73 6f  act from the jso
22a0: 6e 20 73 74 72 65 61 6d 0a 09 2f 2f 20 6e 6f 74  n stream..// not
22b0: 65 3a 20 4d 55 53 54 20 42 45 20 4c 49 53 54 45  e: MUST BE LISTE
22c0: 44 20 49 4e 20 4f 52 44 45 52 20 54 48 45 59 20  D IN ORDER THEY 
22d0: 41 50 50 45 41 52 0a 09 2f 2f 20 54 4f 44 4f 3a  APPEAR..// TODO:
22e0: 20 70 65 72 66 6f 72 6d 61 6e 63 65 20 77 6f 72   performance wor
22f0: 74 68 20 6c 61 63 6b 20 6f 66 20 66 6c 65 78 69  th lack of flexi
2300: 62 69 6c 69 74 79 3f 0a 09 63 6f 6e 73 74 20 63  bility?..const c
2310: 68 61 72 2a 20 70 61 74 68 73 5b 5d 20 3d 20 7b  har* paths[] = {
2320: 0a 09 09 22 5c 32 5c 78 39 22 22 63 75 72 72 65  ..."\2\x9""curre
2330: 6e 74 6c 79 5c 37 73 75 6d 6d 61 72 79 22 2c 0a  ntly\7summary",.
2340: 09 09 22 5c 32 5c 78 39 22 22 63 75 72 72 65 6e  .."\2\x9""curren
2350: 74 6c 79 5c 78 66 70 72 65 63 69 70 49 6e 74 65  tly\xfprecipInte
2360: 6e 73 69 74 79 22 2c 0a 09 09 22 5c 32 5c 78 39  nsity",..."\2\x9
2370: 22 22 63 75 72 72 65 6e 74 6c 79 5c 78 62 74 65  ""currently\xbte
2380: 6d 70 65 72 61 74 75 72 65 22 2c 0a 09 09 22 5c  mperature",..."\
2390: 32 5c 78 39 22 22 63 75 72 72 65 6e 74 6c 79 5c  2\x9""currently\
23a0: 78 39 77 69 6e 64 73 70 65 65 64 22 2c 0a 09 7d  x9windspeed",..}
23b0: 3b 0a 0a 09 2f 2f 63 6f 70 79 20 74 68 65 20 6c  ;...//copy the l
23c0: 61 74 69 74 75 64 65 20 61 6e 64 20 6c 6f 6e 67  atitude and long
23d0: 69 74 75 64 65 20 69 6e 74 6f 20 74 68 65 20 72  itude into the r
23e0: 65 71 75 65 73 74 0a 09 73 69 7a 65 5f 74 20 6d  equest..size_t m
23f0: 73 67 73 7a 20 3d 20 70 6f 73 28 6d 73 67 2c 20  sgsz = pos(msg, 
2400: 61 72 67 76 5b 31 5d 2c 20 61 72 67 76 5b 32 5d  argv[1], argv[2]
2410: 29 3b 0a 09 09 20 2f 2f 6d 73 67 73 7a 20 3d 20  );... //msgsz = 
2420: 73 69 7a 65 20 6f 66 20 77 68 61 74 20 77 65 27  size of what we'
2430: 72 65 20 67 6f 69 6e 67 20 74 6f 20 74 72 61 6e  re going to tran
2440: 73 6d 69 74 0a 0a 09 2f 2f 66 6f 72 20 28 3b 3b  smit...//for (;;
2450: 29 20 7b 0a 09 09 73 69 7a 65 5f 74 20 72 73 70  ) {...size_t rsp
2460: 73 7a 20 3d 20 67 65 74 28 72 65 73 70 2c 20 73  sz = get(resp, s
2470: 69 7a 65 6f 66 28 72 65 73 70 29 2c 20 6d 73 67  izeof(resp), msg
2480: 2c 20 6d 73 67 73 7a 2c 20 26 62 6f 64 79 29 3b  , msgsz, &body);
2490: 0a 09 09 2f 2f 20 69 66 20 70 61 74 68 73 20 63  ...// if paths c
24a0: 6f 6e 74 61 69 6e 73 20 74 68 65 20 6b 65 79 73  ontains the keys
24b0: 2c 20 74 68 69 73 20 63 6f 6e 74 61 69 6e 73 20  , this contains 
24c0: 74 68 65 20 76 61 6c 75 65 73 0a 09 09 6a 73 76  the values...jsv
24d0: 20 76 61 6c 75 65 73 5b 6c 65 6e 28 70 61 74 68   values[len(path
24e0: 73 29 5d 3b 20 0a 09 09 0a 09 09 70 61 72 73 65  s)]; ......parse
24f0: 3a 20 7b 0a 09 09 09 70 70 6c 74 28 62 6f 64 79  : {....pplt(body
2500: 2c 20 62 6f 64 79 20 2b 20 28 72 73 70 73 7a 20  , body + (rspsz 
2510: 2d 20 28 72 65 73 70 20 2d 20 62 6f 64 79 29 29  - (resp - body))
2520: 2c 20 70 61 74 68 73 2c 20 70 61 74 68 73 2b 6c  , paths, paths+l
2530: 65 6e 28 70 61 74 68 73 29 2c 20 76 61 6c 75 65  en(paths), value
2540: 73 29 3b 0a 09 09 09 0a 09 09 09 70 73 74 72 20  s);........pstr 
2550: 73 75 6d 6d 61 72 79 20 3d 20 76 61 6c 75 65 73  summary = values
2560: 5b 30 5d 2e 73 3b 0a 09 09 09 66 6c 6f 61 74 20  [0].s;....float 
2570: 70 63 70 69 6e 74 20 3d 20 76 61 6c 75 65 73 5b  pcpint = values[
2580: 31 5d 2e 66 2c 0a 09 09 09 09 74 65 6d 70 20 3d  1].f,.....temp =
2590: 20 76 61 6c 75 65 73 5b 32 5d 2e 66 2c 0a 09 09   values[2].f,...
25a0: 09 09 77 69 6e 64 73 70 64 20 3d 20 76 61 6c 75  ..windspd = valu
25b0: 65 73 5b 33 5d 2e 66 3b 0a 0a 09 09 09 70 72 69  es[3].f;.....pri
25c0: 6e 74 66 28 22 25 2e 31 66 c2 b0 20 20 25 25 7b  ntf("%.1f..  %%{
25d0: 46 23 66 66 39 62 62 62 7d 25 2e 2a 73 5c 6e 22  F#ff9bbb}%.*s\n"
25e0: 2c 0a 09 09 09 09 09 73 75 6d 6d 61 72 79 2e 73  ,......summary.s
25f0: 7a 2c 0a 09 09 09 09 09 73 75 6d 6d 61 72 79 2e  z,......summary.
2600: 61 2c 0a 09 09 09 09 09 74 65 6d 70 29 3b 0a 09  a,......temp);..
2610: 09 7d 0a 09 09 2f 2f 20 64 61 72 6b 20 73 6b 79  .}...// dark sky
2620: 27 73 20 41 50 49 20 61 6c 6c 6f 77 73 20 75 73  's API allows us
2630: 20 74 6f 20 6d 61 6b 65 20 31 30 30 30 20 66 72   to make 1000 fr
2640: 65 65 20 72 65 71 75 65 73 74 73 20 61 20 64 61  ee requests a da
2650: 79 2e 0a 09 09 2f 2f 20 6c 65 74 27 73 20 74 72  y....// let's tr
2660: 79 20 6e 6f 74 20 74 6f 20 67 65 74 20 74 6f 6f  y not to get too
2670: 20 6e 65 61 72 20 74 68 61 74 2e 0a 09 09 2f 2f   near that....//
2680: 20 68 6f 75 72 73 20 69 6e 20 64 61 79 20 32 34   hours in day 24
2690: 20 2d 20 6d 69 6e 75 74 65 73 20 69 6e 20 64 61   - minutes in da
26a0: 79 20 32 34 20 2a 20 36 30 20 3d 20 31 34 34 30  y 24 * 60 = 1440
26b0: 0a 09 09 2f 2f 20 73 6f 20 6f 6e 63 65 20 61 20  ...// so once a 
26c0: 6d 69 6e 75 74 65 20 69 73 20 61 6c 6d 6f 73 74  minute is almost
26d0: 20 68 61 6c 66 20 61 67 61 69 6e 20 74 6f 6f 20   half again too 
26e0: 6d 61 6e 79 0a 09 09 2f 2f 20 31 34 34 30 20 2f  many...// 1440 /
26f0: 20 32 20 3d 20 37 32 30 20 6c 65 61 76 69 6e 67   2 = 720 leaving
2700: 20 72 65 61 73 6f 6e 61 62 6c 65 20 72 65 66 72   reasonable refr
2710: 65 73 68 20 74 69 6d 65 20 77 69 74 68 6f 75 74  esh time without
2720: 0a 09 09 2f 2f 20 67 6f 69 6e 67 20 74 6f 6f 20  ...// going too 
2730: 6e 65 61 72 20 74 68 65 20 6c 69 6d 69 74 2e 20  near the limit. 
2740: 73 6f 20 77 65 20 61 69 6d 20 66 6f 72 20 6f 6e  so we aim for on
2750: 65 20 75 70 64 61 74 65 0a 09 09 2f 2f 20 65 76  e update...// ev
2760: 65 72 79 20 74 77 6f 20 6d 69 6e 75 74 65 73 2e  ery two minutes.
2770: 0a 09 2f 2f 09 73 6c 65 65 70 28 36 30 20 2a 20  ..//.sleep(60 * 
2780: 32 29 3b 0a 2f 2f 09 7d 0a 0a 09 72 65 74 75 72  2);.//.}...retur
2790: 6e 20 30 3b 0a 7d 0a                             n 0;.}.