os400/libxmlrpg/nanohttp.rpgle


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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103

      * Summary: minimal HTTP implementation
      * Description: minimal HTTP implementation allowing to fetch resources
      *              like external subset.
      *
      * Copy: See Copyright for the status of this software.
      *
      * Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.

      /if not defined(NANO_HTTP_H__)
      /define NANO_HTTP_H__

      /include "libxmlrpg/xmlversion"

      /if defined(LIBXML_HTTP_ENABLED)

     d xmlNanoHTTPInit...
     d                 pr                  extproc('xmlNanoHTTPInit')

     d xmlNanoHTTPCleanup...
     d                 pr                  extproc('xmlNanoHTTPCleanup')

     d xmlNanoHTTPScanProxy...
     d                 pr                  extproc('xmlNanoHTTPScanProxy')
     d  URL                            *   value options(*string)               const char *

     d xmlNanoHTTPFetch...
     d                 pr            10i 0 extproc('xmlNanoHTTPFetch')
     d  URL                            *   value options(*string)               const char *
     d  filename                       *   value options(*string)               const char *

     d xmlNanoHTTPMethod...
     d                 pr              *   extproc('xmlNanoHTTPMethod')         void *
     d  URL                            *   value options(*string)               const char *
     d  method                         *   value options(*string)               const char *
     d  input                          *   value options(*string)               const char *
     d  contentType                    *   value                                char * *
     d  headers                        *   value options(*string)               const char *
     d  ilen                         10i 0 value

     d xmlNanoHTTPMethodRedir...
     d                 pr              *   extproc('xmlNanoHTTPMethodRedir')    void *
     d  URL                            *   value options(*string)               const char *
     d  method                         *   value options(*string)               const char *
     d  input                          *   value options(*string)               const char *
     d  contentType                    *   value                                char * *
     d  redir                          *   value                                char * *
     d  headers                        *   value options(*string)               const char *
     d  ilen                         10i 0 value

     d xmlNanoHTTPOpen...
     d                 pr              *   extproc('xmlNanoHTTPOpen')           void *
     d  URL                            *   value options(*string)               const char *
     d  contentType                    *                                        char *(*)

     d xmlNanoHTTPOpenRedir...
     d                 pr              *   extproc('xmlNanoHTTPOpenRedir')      void *
     d  URL                            *   value options(*string)               const char *
     d  contentType                    *   value                                char * *
     d  redir                          *   value                                char * *

     d xmlNanoHTTPReturnCode...
     d                 pr            10i 0 extproc('xmlNanoHTTPReturnCode')
     d  ctx                            *   value                                void *

     d xmlNanoHTTPAuthHeader...
     d                 pr              *   extproc('xmlNanoHTTPAuthHeader')     const char *
     d  ctx                            *   value                                void *

     d xmlNanoHTTPRedir...
     d                 pr              *   extproc('xmlNanoHTTPRedir')          const char *
     d  ctx                            *   value                                void *

     d xmlNanoHTTPContentLength...
     d                 pr            10i 0 extproc('xmlNanoHTTPContentLength')
     d  ctx                            *   value                                void *

     d xmlNanoHTTPEncoding...
     d                 pr              *   extproc('xmlNanoHTTPEncoding')       const char *
     d  ctx                            *   value                                void *

     d xmlNanoHTTPMimeType...
     d                 pr              *   extproc('xmlNanoHTTPMimeType')       const char *
     d  ctx                            *   value                                void *

     d xmlNanoHTTPRead...
     d                 pr            10i 0 extproc('xmlNanoHTTPRead')
     d  ctx                            *   value                                void *
     d  dest                           *   value                                void *
     d  len                          10i 0 value

      /if defined(LIBXML_OUTPUT_ENABLED)
     d xmlNanoHTTPSave...
     d                 pr            10i 0 extproc('xmlNanoHTTPSave')
     d  ctxt                           *   value                                void *
     d  filename                       *   value options(*string)               const char *
      /endif                                                                    LIBXML_OUTPUT_ENABLD

     d xmlNanoHTTPClose...
     d                 pr                  extproc('xmlNanoHTTPClose')
     d  ctx                            *   value                                void *

      /endif                                                                    LIBXML_HTTP_ENABLED
      /endif                                                                    NANO_HTTP_H__