commit 968ae5e35567fc2ab39d11eaa2dd7670181b16ee · anil.recoil.org/slop

+46

stack/river/lib/client.ml

···

       1
       1
       +
       (*

     

       2
       2
       +
        * Copyright (c) 2014, OCaml.org project

     

       3
       3
       +
        * Copyright (c) 2015 KC Sivaramakrishnan <sk826@cl.cam.ac.uk>

     

       4
       4
       +
        *

     

       5
       5
       +
        * Permission to use, copy, modify, and distribute this software for any

     

       6
       6
       +
        * purpose with or without fee is hereby granted, provided that the above

     

       7
       7
       +
        * copyright notice and this permission notice appear in all copies.

     

       8
       8
       +
        *

     

       9
       9
       +
        * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES

     

       10
       10
       +
        * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF

     

       11
       11
       +
        * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR

     

       12
       12
       +
        * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES

     

       13
       13
       +
        * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN

     

       14
       14
       +
        * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF

     

       15
       15
       +
        * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

     

       16
       16
       +
        *)

     

       17
       17
       +
       

     

       18
       18
       +
       (* River HTTP client using Requests *)

     

       19
       19
       +
       

     

       20
       20
       +
       let src = Logs.Src.create "river.client" ~doc:"River HTTP client"

     

       21
       21
       +
       module Log = (val Logs.src_log src : Logs.LOG)

     

       22
       22
       +
       

     

       23
       23
       +
       type t = {

     

       24
       24
       +
         session : (float Eio.Time.clock_ty Eio.Resource.t,

     

       25
       25
       +
                    [`Generic | `Unix] Eio.Net.ty Eio.Resource.t) Requests.t;

     

       26
       26
       +
       }

     

       27
       27
       +
       

     

       28
       28
       +
       let create ~sw (env : _ ) =

     

       29
       29
       +
         Log.info (fun m -> m "Creating River client");

     

       30
       30
       +
         let session = Requests.create ~sw

     

       31
       31
       +
           ~default_headers:(Requests.Headers.of_list [

     

       32
       32
       +
             ("User-Agent", "OCaml-River/1.0");

     

       33
       33
       +
           ])

     

       34
       34
       +
           ~follow_redirects:true

     

       35
       35
       +
           ~max_redirects:5

     

       36
       36
       +
           ~verify_tls:true

     

       37
       37
       +
           env

     

       38
       38
       +
         in

     

       39
       39
       +
         { session }

     

       40
       40
       +
       

     

       41
       41
       +
       let with_client (env : _) f =

     

       42
       42
       +
         Eio.Switch.run @@ fun sw ->

     

       43
       43
       +
         let client = create ~sw env in

     

       44
       44
       +
         f client

     

       45
       45
       +
       

     

       46
       46
       +
       let session t = t.session

+58

stack/river/lib/client.mli

···

       1
       1
       +
       (*

     

       2
       2
       +
        * Copyright (c) 2014, OCaml.org project

     

       3
       3
       +
        * Copyright (c) 2015 KC Sivaramakrishnan <sk826@cl.cam.ac.uk>

     

       4
       4
       +
        *

     

       5
       5
       +
        * Permission to use, copy, modify, and distribute this software for any

     

       6
       6
       +
        * purpose with or without fee is hereby granted, provided that the above

     

       7
       7
       +
        * copyright notice and this permission notice appear in all copies.

     

       8
       8
       +
        *

     

       9
       9
       +
        * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES

     

       10
       10
       +
        * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF

     

       11
       11
       +
        * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR

     

       12
       12
       +
        * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES

     

       13
       13
       +
        * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN

     

       14
       14
       +
        * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF

     

       15
       15
       +
        * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

     

       16
       16
       +
        *)

     

       17
       17
       +
       

     

       18
       18
       +
       (** River HTTP client using Requests library.

     

       19
       19
       +
       

     

       20
       20
       +
           This module provides a session-based HTTP client for fetching RSS/Atom feeds.

     

       21
       21
       +
           The client manages a Requests session with appropriate defaults for feed fetching. *)

     

       22
       22
       +
       

     

       23
       23
       +
       (** The type of a River HTTP client *)

     

       24
       24
       +
       type t

     

       25
       25
       +
       

     

       26
       26
       +
       (** [create ~sw env] creates a new River client with a Requests session.

     

       27
       27
       +
       

     

       28
       28
       +
           The session is configured with:

     

       29
       29
       +
           - User-Agent: "OCaml-River/1.0"

     

       30
       30
       +
           - Automatic redirect following (max 5 redirects)

     

       31
       31
       +
           - TLS verification enabled

     

       32
       32
       +
       

     

       33
       33
       +
           @param sw The switch for resource management

     

       34
       34
       +
           @param env The Eio environment providing network and time resources *)

     

       35
       35
       +
       val create :

     

       36
       36
       +
         sw:Eio.Switch.t ->

     

       37
       37
       +
         < clock : float Eio.Time.clock_ty Eio.Resource.t;

     

       38
       38
       +
           fs : Eio.Fs.dir_ty Eio.Path.t;

     

       39
       39
       +
           net : [ `Generic | `Unix ] Eio.Net.ty Eio.Resource.t; .. > ->

     

       40
       40
       +
         t

     

       41
       41
       +
       

     

       42
       42
       +
       (** [with_client env f] creates a client and automatically manages its lifecycle.

     

       43
       43
       +
       

     

       44
       44
       +
           This is the recommended way to use the client as it ensures proper cleanup.

     

       45
       45
       +
       

     

       46
       46
       +
           @param env The Eio environment

     

       47
       47
       +
           @param f The function to run with the client *)

     

       48
       48
       +
       val with_client :

     

       49
       49
       +
         < clock : float Eio.Time.clock_ty Eio.Resource.t;

     

       50
       50
       +
           fs : Eio.Fs.dir_ty Eio.Path.t;

     

       51
       51
       +
           net : [ `Generic | `Unix ] Eio.Net.ty Eio.Resource.t; .. > ->

     

       52
       52
       +
         (t -> 'a) -> 'a

     

       53
       53
       +
       

     

       54
       54
       +
       (** [session t] returns the underlying Requests session.

     

       55
       55
       +
       

     

       56
       56
       +
           This is used internally by River's HTTP functions. *)

     

       57
       57
       +
       val session : t -> (float Eio.Time.clock_ty Eio.Resource.t,

     

       58
       58
       +
                           [`Generic | `Unix] Eio.Net.ty Eio.Resource.t) Requests.t