Coverage report: /development/source/library/org/datagraph/spocq-shard/src/spocq-server/parameters.lisp

KindCoveredAll%
expression027 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; -*- Mode: lisp; Syntax: ansi-common-lisp; Base: 10; Package: org.datagraph.spocq.server.implementation; -*-
2
 
3
 (in-package :org.datagraph.spocq.server.implementation)
4
 
5
 (defparameter *cli-content-encodings* '(:gzip :bzip2 :x-bzip2)
6
   "Specifies the full set of plausible encodings.
7
    Each response operators decides for itself which it will implement")
8
 
9
 (defparameter *content-disposition-replicate-mode* "replicate"
10
   "Indicator for the Content-Disposition request (!) header to specify that
11
  the request content should be replicated, as per the disposition keys")
12
 
13
 (defparameter *export-graphviz-content-type* (string-downcase (type-of mime:text/x-graphviz)))
14
 
15
 (defparameter *graph-store-get.enable-content-encoding* t
16
   "indicate whether to recognize Accept-Encoding headers or ignore them.")
17
 
18
 (defparameter *graph-store-get-is-silent* "false" ;; "true"
19
   "indicate whether an abset target graph signals a not-found or no-content.")
20
 
21
 (defparameter *graph-store-if-empty-condition* 'http:not-found
22
   "Specifies the condition to raise (by invoking it as an error operator) in the event that
23
  a designatated repository is empty. The default value, as required by the specification, is
24
  http:not-found. That is, a non-found response is returned. The alternative value, http:no-content,
25
  permits operations to complete with a success code.")
26
 
27
 (defparameter *host-mode* :proxy
28
   "Specifies the http interface architecture:
29
   :proxy : an upstream server behind an http proxy
30
   :fastcgi : a fastcgi process behind a gateway
31
   :scgi : an scgi process behind a gateway")
32
 
33
 (defparameter *host-port* 80
34
   "The default http host port")
35
 
36
 (defparameter *http-accept-count-limit* 4
37
   "limits the number of http wordker threads which accept connections")
38
 
39
 (defparameter *memento-response-headers* nil
40
   "When true, include memento headers in responses")
41
 
42
 (defparameter *request-count-limit* nil
43
   "if set, this applies to acceptors and causes them to shut down and
44
   terminate the server once it is reached.")
45
 
46
 (defparameter *request-id-header-key* nil
47
   "specify which, if any, header to accept as the request id.
48
  The default, nil, indicates it is to be computed.
49
  Alternative values would be :X-Request-ID, :Id or :UUID")
50
 
51
 (defparameter *response-functions* '(administration
52
                                      graph-store-response
53
                                      sesame-protocol-id
54
                                      sesame-metadata-as-sparql-results
55
                                      sesame-metadata-as-text
56
                                      sesame-statements
57
                                      sesame-service
58
                                      web-ui
59
                                      serve-resource-configuration
60
                                      linked-data-fragment-server
61
                                      ;; linked-data-platform-response
62
                                      ;; conflicts with graph store response
63
                                      )
64
   "A list of the names of function to export through the http service.")
65
 
66
 (defparameter *service-request-class* 'spocq-request)
67
 (defparameter *service-response-class* 'spocq-response)
68
 
69
 (defparameter +sesame-version+ "6")
70
 
71
 (defparameter *session-cookie-name* "_dydra_session")
72
 
73
 (defparameter *spocq-acceptor* nil
74
   "The active http acceptor instance fo the query processor")
75
 
76
 (defparameter *supersede-post-quad-graphs* nil
77
   "When true, supersede posted quad content with no protocl graph with a generated graph name. (default NIL)")
78
 
79
 (defparameter *transport-security-mode* :strict
80
   "When strict, add appropriate header to http responses")
81
 
82
 (defparameter *ui-components* (make-hash-table :test 'equalp))
83
 
84
 (defparameter *ui-component-root-pathname* (make-pathname :directory '(:absolute "usr" "local" "dydra" "ui")))
85
 
86
 (defparameter *history-directory* nil
87
   ; (setq *history-directory* (make-pathname :directory '(:absolute "srv" "dydra" "history")))
88
   "Specify the location for request/response transcripts")
89
 
90
 (defvar *request-history-directory* nil) ;; (makunbound '*request-history-directory*)
91
 (defun request-history-directory ()
92
   (cond (*request-history-directory*)
93
         (*history-directory*
94
          (merge-pathnames (make-pathname :directory '(:relative "requests")) *history-directory*))))
95
 (defvar *response-history-directory* nil) ;; (makunbound '*response-history-directory*)
96
 (defun response-history-directory ()
97
   (cond (*response-history-directory*)
98
         (*history-directory*
99
          (merge-pathnames (make-pathname :directory '(:relative "responses")) *history-directory*))))
100
 
101
 (defun response-history-pathname (filename)
102
   (let ((intermediate (subseq filename 0 2)))
103
     (merge-pathnames (make-pathname :name filename
104
                                     :directory `(:relative ,intermediate))
105
                      (response-history-directory))))
106