Compare commits
No commits in common. "master" and "be-pages" have entirely different histories.
@ -1,9 +0,0 @@
|
||||
user=alasconnect
|
||||
project=ldap-client
|
||||
output=CHANGELOG.md
|
||||
|
||||
release-branch=master
|
||||
since-tag=0.2.0
|
||||
|
||||
header=# LDAP Client Changelog
|
||||
exclude-labels=documentation
|
||||
4
.gitignore
vendored
4
.gitignore
vendored
@ -1,9 +1,5 @@
|
||||
dist/
|
||||
dist-newstyle/
|
||||
.cabal-sandbox/
|
||||
cabal.sandbox.config
|
||||
node_modules
|
||||
Gemfile.lock
|
||||
*~
|
||||
*.swp
|
||||
/result
|
||||
|
||||
26
.travis.yml
26
.travis.yml
@ -1,26 +0,0 @@
|
||||
language: haskell
|
||||
|
||||
sudo: false
|
||||
|
||||
git:
|
||||
depth: 5
|
||||
|
||||
cache:
|
||||
directories:
|
||||
- "$HOME/.cabal/store"
|
||||
|
||||
matrix:
|
||||
include:
|
||||
- ghc: 8.0.1
|
||||
- ghc: 8.2.2
|
||||
- ghc: 8.4.4
|
||||
- ghc: 8.6.5
|
||||
|
||||
install:
|
||||
- cabal update
|
||||
- cabal install --only-dependencies --enable-tests ldap-client.cabal
|
||||
- npm install ldapjs
|
||||
|
||||
script:
|
||||
- cabal install --enable-tests $RUN_TESTS ldap-client.cabal
|
||||
- cabal sdist && cabal install --enable-tests dist/ldap-client-*.tar.gz
|
||||
18
.vim.custom
18
.vim.custom
@ -1,18 +0,0 @@
|
||||
function s:hdevtools_options(rgs)
|
||||
return join(["-s", "/tmp/" . substitute(system("sha1sum <<< $PWD | cut -d' ' -f1"), '\n\+$', '', '') . ".sock"] + map(a:rgs, "'-g ' . v:val"))
|
||||
endfunction
|
||||
|
||||
let g:syntastic_haskell_hdevtools_args = s:hdevtools_options
|
||||
\ (
|
||||
\ [ '-isrc'
|
||||
\ , '-ibin'
|
||||
\ , '-itest'
|
||||
\ , '-idist/build/autogen'
|
||||
\ , '-DTEST'
|
||||
\ , '-O0'
|
||||
\ , '-fdefer-type-errors'
|
||||
\ , '-Wall'
|
||||
\ , '-fno-warn-unused-do-bind'
|
||||
\ , '-fno-warn-type-defaults'
|
||||
\ ]
|
||||
\ )
|
||||
18
CHANGELOG.md
18
CHANGELOG.md
@ -1,18 +0,0 @@
|
||||
# LDAP Client Changelog
|
||||
|
||||
|
||||
## [0.4.0](https://github.com/alasconnect/ldap-client/tree/0.4.0) (2019-11-07)
|
||||
|
||||
[Full Changelog](https://github.com/alasconnect/ldap-client/compare/0.3.0...0.4.0)
|
||||
|
||||
**Merged pull requests:**
|
||||
|
||||
- Poolable [\#1](https://github.com/alasconnect/ldap-client/pull/1) ([dminuoso](https://github.com/dminuoso))
|
||||
|
||||
## [0.3.0](https://github.com/alasconnect/ldap-client/tree/0.3.0) (2019-11-06)
|
||||
|
||||
[Full Changelog](https://github.com/alasconnect/ldap-client/compare/0.2.0...0.3.0)
|
||||
|
||||
|
||||
|
||||
\* *This Changelog was automatically generated by [github_changelog_generator](https://github.com/github-changelog-generator/github-changelog-generator)*
|
||||
@ -1,5 +0,0 @@
|
||||
guard :haskell, all_on_start: true, all_on_pass: true, cmd: "cabal exec -- ghci -isrc -itest -DTEST test/Spec.hs -ignore-dot-ghci -optP-include -optPdist/build/autogen/cabal_macros.h" do
|
||||
watch(%r{test/.+Spec\.l?hs$})
|
||||
watch(%r{src/.+\.l?hs$})
|
||||
watch(%r{.+\.cabal$})
|
||||
end
|
||||
26
LICENSE
26
LICENSE
@ -1,26 +0,0 @@
|
||||
Copyright (c) 2015-2017, Matvey Aksenov
|
||||
All rights reserved.
|
||||
|
||||
Redistribution and use in source and binary forms, with or without
|
||||
modification, are permitted provided that the following conditions are
|
||||
met:
|
||||
|
||||
1. Redistributions of source code must retain the above copyright
|
||||
notice, this list of conditions and the following disclaimer.
|
||||
|
||||
2. Redistributions in binary form must reproduce the above copyright
|
||||
notice, this list of conditions and the following disclaimer in the
|
||||
documentation and/or other materials provided with the
|
||||
distribution.
|
||||
|
||||
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
|
||||
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
|
||||
LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
|
||||
A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
|
||||
OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
||||
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
|
||||
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
||||
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
||||
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
||||
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
||||
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||
44
README.md
44
README.md
@ -1,44 +0,0 @@
|
||||
ldap-client
|
||||
===========
|
||||
[](https://hackage.haskell.org/package/ldap-client)
|
||||
[](https://travis-ci.org/alasconnect/ldap-client)
|
||||
|
||||
This library implements (the parts of) [RFC 4511][rfc4511]
|
||||
|
||||
| Feature | RFC Section | Support
|
||||
|:---------------------------- |:---------------:|:-----------:
|
||||
| Bind Operation | [4.2][4.2] | ✔
|
||||
| Unbind Operation | [4.3][4.3] | ✔
|
||||
| Unsolicited Notification | [4.4][4.4] | ✔
|
||||
| Notice of Disconnection | [4.4.1][4.4.1] | ✔
|
||||
| Search Operation | [4.5][4.5] | ✔\*
|
||||
| Modify Operation | [4.6][4.6] | ✔
|
||||
| Add Operation | [4.7][4.7] | ✔
|
||||
| Delete Operation | [4.8][4.8] | ✔
|
||||
| Modify DN Operation | [4.9][4.9] | ✔
|
||||
| Compare Operation | [4.10][4.10] | ✔
|
||||
| Abandon Operation | [4.11][4.11] | ✘
|
||||
| Extended Operation | [4.12][4.12] | ✔
|
||||
| IntermediateResponse Message | [4.13][4.13] | ✔
|
||||
| StartTLS Operation | [4.14][4.14] | ✔†
|
||||
| LDAP over TLS | - | ✔
|
||||
|
||||
\* The `:dn` thing is unsupported in Extensible matches
|
||||
† Only serves as an example of Extended Operation. It's useless for all practical purposes as it does not actually enable TLS. In other words, use LDAP over TLS instead.
|
||||
|
||||
[rfc4511]: https://tools.ietf.org/html/rfc4511
|
||||
[LDAP]: https://hackage.haskell.org/package/LDAP
|
||||
[4.2]: https://tools.ietf.org/html/rfc4511#section-4.2
|
||||
[4.3]: https://tools.ietf.org/html/rfc4511#section-4.3
|
||||
[4.4]: https://tools.ietf.org/html/rfc4511#section-4.4
|
||||
[4.4.1]: https://tools.ietf.org/html/rfc4511#section-4.4.1
|
||||
[4.5]: https://tools.ietf.org/html/rfc4511#section-4.5
|
||||
[4.6]: https://tools.ietf.org/html/rfc4511#section-4.6
|
||||
[4.7]: https://tools.ietf.org/html/rfc4511#section-4.7
|
||||
[4.8]: https://tools.ietf.org/html/rfc4511#section-4.8
|
||||
[4.9]: https://tools.ietf.org/html/rfc4511#section-4.9
|
||||
[4.10]: https://tools.ietf.org/html/rfc4511#section-4.10
|
||||
[4.11]: https://tools.ietf.org/html/rfc4511#section-4.11
|
||||
[4.12]: https://tools.ietf.org/html/rfc4511#section-4.12
|
||||
[4.13]: https://tools.ietf.org/html/rfc4511#section-4.13
|
||||
[4.14]: https://tools.ietf.org/html/rfc4511#section-4.14
|
||||
@ -1,9 +0,0 @@
|
||||
{ nixpkgs ? import <nixpkgs> {}, compiler ? "ghc802" }: let
|
||||
ghc = nixpkgs.pkgs.haskell.packages.${compiler};
|
||||
npm = import ./npm {};
|
||||
in
|
||||
ghc.callPackage ./package.nix {
|
||||
mkDerivation = args: ghc.mkDerivation(args // {
|
||||
buildTools = (if args ? buildTools then args.buildTools else []) ++ [ npm.nodePackages.ldapjs ];
|
||||
});
|
||||
}
|
||||
@ -1,97 +0,0 @@
|
||||
{-# LANGUAGE OverloadedLists #-}
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
-- | An example of how to do LDAP logins with ldap-client.
|
||||
--
|
||||
-- First, the assumptions this example makes. It defaults to LDAP over TLS,
|
||||
-- so if you only have a plaintext server, please replace `Secure` with `Plain`.
|
||||
-- It also assumes the accounts you may want to log in as all have
|
||||
-- `objectClass` "Person".
|
||||
--
|
||||
-- To run the example you have to provide a bunch of environment variables:
|
||||
--
|
||||
-- - `HOST` is the LDAP host to connect to (without "ldap://", "ldaps://", etc).
|
||||
-- - `POST` is the port LDAP server listens on.
|
||||
-- - `MANAGER_DN` is the DN of the account the first bind is made with.
|
||||
-- - `MANAGER_PASSWORD` is its password.
|
||||
-- - `BASE_OBJECT` is the search root
|
||||
module Main (main) where
|
||||
|
||||
import Control.Exception (bracket_) -- base
|
||||
import Control.Monad (when) -- base
|
||||
import Data.Function (fix) -- base
|
||||
import Data.Text (Text) -- text
|
||||
import qualified Data.Text.Encoding as Text -- text
|
||||
import qualified Data.Text.IO as Text -- text
|
||||
import Env -- envparse
|
||||
import Ldap.Client as Ldap -- ldap-client
|
||||
import qualified Ldap.Client.Bind as Ldap -- ldap-client
|
||||
import System.Exit (die) -- base
|
||||
import qualified System.IO as IO -- base
|
||||
|
||||
|
||||
data Conf = Conf
|
||||
{ host :: String
|
||||
, port :: Int
|
||||
, dn :: Dn
|
||||
, password :: Password
|
||||
, base :: Dn
|
||||
} deriving (Show, Eq)
|
||||
|
||||
getConf :: IO Conf
|
||||
getConf = Env.parse (header "LDAP login example") $ Conf
|
||||
<$> var str "HOST" (help "LDAP hostname")
|
||||
<*> var (fmap fromIntegral . auto) "PORT" (help "LDAP port")
|
||||
<*> var (fmap Ldap.Dn . str) "MANAGER_DN" (help "Manager login DN")
|
||||
<*> var (fmap Ldap.Password . str) "MANAGER_PASSWORD" (help "Manager password")
|
||||
<*> var (fmap Ldap.Dn . str) "BASE_OBJECT" (help "Search root")
|
||||
|
||||
main :: IO ()
|
||||
main = do
|
||||
conf <- getConf
|
||||
res <- login conf
|
||||
case res of
|
||||
Left e -> die (show e)
|
||||
Right _ -> return ()
|
||||
|
||||
login :: Conf -> IO (Either LdapError ())
|
||||
login conf =
|
||||
Ldap.with (Ldap.Tls (host conf) Ldap.defaultTlsSettings) (port conf) $ \l -> do
|
||||
Ldap.bind l (dn conf) (password conf)
|
||||
fix $ \loop -> do
|
||||
uid <- prompt "Username: "
|
||||
us <- Ldap.search l (base conf)
|
||||
(typesOnly True)
|
||||
(And [ Attr "objectClass" := "Person"
|
||||
, Attr "uid" := Text.encodeUtf8 uid
|
||||
])
|
||||
[]
|
||||
case us of
|
||||
SearchEntry udn _ : _ ->
|
||||
fix $ \loop' -> do
|
||||
pwd <- bracket_ hideOutput
|
||||
showOutput
|
||||
(do pwd <- prompt ("Password for ‘" <> uid <> "’: ")
|
||||
Text.putStr "\n"
|
||||
return pwd)
|
||||
res <- Ldap.bindEither l udn (Password (Text.encodeUtf8 pwd))
|
||||
case res of
|
||||
Left _ -> do again <- question "Invalid password. Try again? [y/n] "
|
||||
when again loop'
|
||||
Right _ -> Text.putStrLn "OK"
|
||||
[] -> do again <- question "Invalid username. Try again? [y/n] "
|
||||
when again loop
|
||||
|
||||
prompt :: Text -> IO Text
|
||||
prompt msg = do Text.putStr msg; IO.hFlush IO.stdout; Text.getLine
|
||||
|
||||
question :: Text -> IO Bool
|
||||
question msg = fix $ \loop -> do
|
||||
res <- prompt msg
|
||||
case res of
|
||||
"y" -> return True
|
||||
"n" -> return False
|
||||
_ -> do Text.putStrLn "Please, answer either ‘y’ or ‘n’."; loop
|
||||
|
||||
hideOutput, showOutput :: IO ()
|
||||
hideOutput = IO.hSetEcho IO.stdout False
|
||||
showOutput = IO.hSetEcho IO.stdout True
|
||||
@ -1,96 +0,0 @@
|
||||
name: ldap-client
|
||||
version: 0.4.0
|
||||
synopsis: Pure Haskell LDAP Client Library
|
||||
description:
|
||||
Pure Haskell LDAP client library implementing (the parts of) RFC 4511.
|
||||
homepage: https://github.com/alasconnect/ldap-client
|
||||
license: BSD2
|
||||
license-file: LICENSE
|
||||
author: Matvey Aksenov, AlasConnect LLC
|
||||
maintainer: matvey.aksenov@gmail.com, software@alasconnect.com
|
||||
copyright: 2015 Matvey Aksenov, 2019 AlasConnect LLC
|
||||
category: Network
|
||||
build-type: Simple
|
||||
cabal-version: >= 1.10
|
||||
tested-with:
|
||||
GHC == 8.0.1
|
||||
, GHC == 8.2.2
|
||||
, GHC == 8.4.4
|
||||
, GHC == 8.6.5
|
||||
extra-source-files:
|
||||
README.md
|
||||
CHANGELOG.md
|
||||
|
||||
source-repository head
|
||||
type: git
|
||||
location: git@github.com:alasconnect/ldap-client
|
||||
tag: 0.4.0
|
||||
|
||||
library
|
||||
ghc-options:
|
||||
-Wall
|
||||
-fwarn-incomplete-uni-patterns
|
||||
-fwarn-incomplete-record-updates
|
||||
-fwarn-unrecognised-pragmas
|
||||
default-language:
|
||||
Haskell2010
|
||||
hs-source-dirs:
|
||||
src
|
||||
exposed-modules:
|
||||
Ldap.Asn1.FromAsn1
|
||||
Ldap.Asn1.ToAsn1
|
||||
Ldap.Asn1.Type
|
||||
Ldap.Client
|
||||
Ldap.Client.Add
|
||||
Ldap.Client.Bind
|
||||
Ldap.Client.Compare
|
||||
Ldap.Client.Delete
|
||||
Ldap.Client.Extended
|
||||
Ldap.Client.Internal
|
||||
Ldap.Client.Modify
|
||||
Ldap.Client.Search
|
||||
build-depends:
|
||||
asn1-encoding >= 0.9
|
||||
, asn1-types >= 0.3
|
||||
, async
|
||||
, base >= 4.6 && < 5
|
||||
, bytestring
|
||||
, connection >= 0.2
|
||||
, containers
|
||||
, fail
|
||||
, network >= 2.6
|
||||
, semigroups >= 0.16
|
||||
, stm
|
||||
, text
|
||||
|
||||
test-suite spec
|
||||
ghc-options:
|
||||
-Wall
|
||||
-fwarn-incomplete-uni-patterns
|
||||
-fwarn-incomplete-record-updates
|
||||
-fwarn-unrecognised-pragmas
|
||||
default-language:
|
||||
Haskell2010
|
||||
type:
|
||||
exitcode-stdio-1.0
|
||||
hs-source-dirs:
|
||||
test
|
||||
main-is:
|
||||
Spec.hs
|
||||
other-modules:
|
||||
Ldap.ClientSpec
|
||||
Ldap.Client.AddSpec
|
||||
Ldap.Client.BindSpec
|
||||
Ldap.Client.CompareSpec
|
||||
Ldap.Client.DeleteSpec
|
||||
Ldap.Client.ExtendedSpec
|
||||
Ldap.Client.ModifySpec
|
||||
Ldap.Client.SearchSpec
|
||||
SpecHelper
|
||||
build-depends:
|
||||
base >= 4.6 && < 5
|
||||
, bytestring
|
||||
, hspec
|
||||
, ldap-client
|
||||
, process
|
||||
, semigroups
|
||||
@ -1 +0,0 @@
|
||||
0.7.0
|
||||
@ -1,9 +0,0 @@
|
||||
{ nodejsVersion ? "4.1", npm3 ? false, pkgs ? import <nixpkgs> {} }:
|
||||
let
|
||||
nodeLib = import ./nodeLib {
|
||||
inherit pkgs npm3 nodejsVersion;
|
||||
self = nodeLib;
|
||||
};
|
||||
in nodeLib.generatePackages {
|
||||
rootPath = ./nodePackages;
|
||||
}
|
||||
@ -1,394 +0,0 @@
|
||||
{
|
||||
# Provides the mkDerivation function.
|
||||
stdenv,
|
||||
# Lets us run a command.
|
||||
runCommand,
|
||||
# Derivation for nodejs and npm.
|
||||
nodejs,
|
||||
# Which version of npm to use.
|
||||
npm ? nodejs,
|
||||
# List of required native build inputs.
|
||||
neededNatives,
|
||||
# Self-reference for overriding purposes.
|
||||
buildNodePackage
|
||||
}:
|
||||
|
||||
let
|
||||
# The path within $out/lib to find a package. If the package does not
|
||||
# have a namespace, it will simply be in `node_modules`, and otherwise it
|
||||
# will appear in `node_modules/@namespace`.
|
||||
modulePath = pkg: if pkg.namespace == null then "node_modules"
|
||||
else "node_modules/@${pkg.namespace}";
|
||||
|
||||
# The path to the package within its modulePath. Just appending the name
|
||||
# of the package.
|
||||
pathInModulePath = pkg: "${modulePath pkg}/${pkg.basicName}";
|
||||
in
|
||||
|
||||
{
|
||||
# Used for private packages. Indicated in the name field of the
|
||||
# package.json, e.g. "@mynamespace/mypackage". Public packages will not
|
||||
# need this.
|
||||
namespace ? null,
|
||||
|
||||
# The name of the package. If it's a private package with a namespace,
|
||||
# this should not contain the namespace.
|
||||
name,
|
||||
|
||||
# Version of the package. This should follow the semver standard, although
|
||||
# we don't explicitly enforce that in this function.
|
||||
version,
|
||||
|
||||
# Source of the package; can be a tarball or a folder on the filesystem.
|
||||
src,
|
||||
|
||||
# by default name of nodejs interpreter e.g. "nodejs-<version>-${name}"
|
||||
namePrefix ? "${nodejs.name}-" +
|
||||
(if namespace == null then "" else "${namespace}-"),
|
||||
|
||||
# List or attribute set of dependencies
|
||||
deps ? {},
|
||||
|
||||
# List or attribute set of peer depencies
|
||||
peerDependencies ? {},
|
||||
|
||||
# List or attribute set of optional dependencies
|
||||
optionalDependencies ? {},
|
||||
|
||||
# List of optional dependencies to skip
|
||||
skipOptionalDependencies ? [],
|
||||
|
||||
# List or set of development dependencies (or null).
|
||||
devDependencies ? null,
|
||||
|
||||
# If true and devDependencies are not null, the package will be
|
||||
# installed contingent on successfully running tests.
|
||||
doCheck ? devDependencies != null,
|
||||
|
||||
# Additional flags passed to npm install
|
||||
flags ? "",
|
||||
|
||||
# Command to be run before shell hook
|
||||
preShellHook ? "",
|
||||
|
||||
# Command to be run after shell hook
|
||||
postShellHook ? "",
|
||||
|
||||
# Same as https://docs.npmjs.com/files/package.json#os
|
||||
os ? [],
|
||||
|
||||
# Same as https://docs.npmjs.com/files/package.json#cpu
|
||||
cpu ? [],
|
||||
|
||||
# Attribute set of already resolved deps (internal),
|
||||
# for avoiding infinite recursion
|
||||
resolvedDeps ? {},
|
||||
|
||||
...
|
||||
} @ args:
|
||||
|
||||
let
|
||||
inherit (stdenv.lib) fold removePrefix hasPrefix subtractLists isList flip
|
||||
intersectLists isAttrs listToAttrs nameValuePair
|
||||
mapAttrs filterAttrs attrNames elem concatMapStrings
|
||||
attrValues getVersion flatten remove concatStringsSep;
|
||||
|
||||
# whether we should run tests.
|
||||
shouldTest = doCheck && devDependencies != null;
|
||||
|
||||
# The package name as it appears in the package.json. This contains a
|
||||
# namespace if there is one, so it will be a distinct identifier for
|
||||
# different packages.
|
||||
pkgName = if namespace == null then name else "@${namespace}/${name}";
|
||||
|
||||
# We create a `self` object for self-referential expressions. It
|
||||
# bottoms out in a call to `mkDerivation` at the end.
|
||||
self = let
|
||||
sources = runCommand "node-sources" {} ''
|
||||
tar --no-same-owner --no-same-permissions -xf ${nodejs.src}
|
||||
mv $(find . -type d -mindepth 1 -maxdepth 1) $out
|
||||
'';
|
||||
|
||||
platforms = if os == [] then nodejs.meta.platforms else
|
||||
fold (entry: platforms:
|
||||
let
|
||||
filterPlatforms =
|
||||
stdenv.lib.platforms.${removePrefix "!" entry} or [];
|
||||
in
|
||||
# Ignore unknown platforms
|
||||
if filterPlatforms == [] then (if platforms == [] then nodejs.meta.platforms else platforms)
|
||||
else
|
||||
if hasPrefix "!" entry then
|
||||
subtractLists (intersectLists filterPlatforms nodejs.meta.platforms) platforms
|
||||
else
|
||||
platforms ++ (intersectLists filterPlatforms nodejs.meta.platforms)
|
||||
) [] os;
|
||||
|
||||
toAttrSet = obj: if isAttrs obj then obj else
|
||||
(listToAttrs (map (x: nameValuePair x.name x) obj));
|
||||
|
||||
mapDependencies = deps: filterFunc: let
|
||||
attrDeps = toAttrSet deps;
|
||||
in rec {
|
||||
# All required node modules, without already resolved dependencies
|
||||
# Also override with already resolved dependencies
|
||||
requiredDeps = mapAttrs (name: dep:
|
||||
dep.override {resolvedDeps = resolvedDeps // { "${name}" = self; };}
|
||||
) (filterAttrs filterFunc
|
||||
(removeAttrs attrDeps (attrNames resolvedDeps)));
|
||||
|
||||
# Recursive dependencies that we want to avoid with shim creation
|
||||
recursiveDeps = filterAttrs filterFunc
|
||||
(removeAttrs attrDeps (attrNames requiredDeps));
|
||||
};
|
||||
|
||||
# Filter out self-referential dependencies.
|
||||
_dependencies = mapDependencies deps (name: dep:
|
||||
dep.pkgName != pkgName);
|
||||
|
||||
# Filter out self-referential peer dependencies.
|
||||
_peerDependencies = mapDependencies peerDependencies (name: dep:
|
||||
dep.pkgName != pkgName);
|
||||
|
||||
# Filter out any optional dependencies which don't build correctly.
|
||||
_optionalDependencies = mapDependencies optionalDependencies (name: dep:
|
||||
(builtins.tryEval dep).success &&
|
||||
!(elem dep.pkgName skipOptionalDependencies)
|
||||
);
|
||||
|
||||
# Required dependencies are those that we haven't filtered yet.
|
||||
requiredDependencies =
|
||||
_dependencies.requiredDeps //
|
||||
_optionalDependencies.requiredDeps //
|
||||
_peerDependencies.requiredDeps;
|
||||
|
||||
recursiveDependencies =
|
||||
_dependencies.recursiveDeps //
|
||||
_optionalDependencies.recursiveDeps //
|
||||
_peerDependencies.recursiveDeps;
|
||||
|
||||
npmFlags = concatStringsSep " " ([
|
||||
# We point the registry at something that doesn't exist. This will
|
||||
# mean that NPM will fail if any of the dependencies aren't met, as it
|
||||
# will attempt to hit this registry for the missing dependency.
|
||||
"--registry=fakeprotocol://notaregistry.$UNIQNAME.derp"
|
||||
# These flags make failure fast, as otherwise NPM will spin for a while.
|
||||
"--fetch-retry-mintimeout=0"
|
||||
"--fetch-retry-maxtimeout=10"
|
||||
# This will disable any user-level npm configuration.
|
||||
"--userconfig=/dev/null"
|
||||
# This flag is used for packages which link against the node headers.
|
||||
"--nodedir=${sources}"
|
||||
] ++ (if isList flags then flags else [flags]));
|
||||
|
||||
# A bit of bash to check that variables are set.
|
||||
checkSet = vars: concatStringsSep "\n" (flip map vars (var: ''
|
||||
[[ -z $${var} ]] && { echo "${var} is not set."; exit 1; }
|
||||
''));
|
||||
|
||||
mkDerivationArgs = {
|
||||
inherit src;
|
||||
|
||||
# Define some environment variables that we will use in the build.
|
||||
prePatch = ''
|
||||
export HASHEDNAME=$(echo "$propagatedNativeBuildInputs $name" \
|
||||
| md5sum | awk '{print $1}')
|
||||
export UNIQNAME="''${HASHEDNAME:0:10}-${name}-${version}"
|
||||
export BUILD_DIR=$TMPDIR/$UNIQNAME-build
|
||||
'';
|
||||
|
||||
patchPhase = ''
|
||||
runHook prePatch
|
||||
patchShebangs $PWD
|
||||
|
||||
# Remove any impure dependencies from the package.json (see script
|
||||
# for details)
|
||||
node ${./removeImpureDependencies.js}
|
||||
|
||||
# We do not handle shrinkwraps yet
|
||||
rm npm-shrinkwrap.json 2>/dev/null || true
|
||||
|
||||
# Repackage source into a tarball, so npm pre/post publish hooks are
|
||||
# not triggered,
|
||||
mkdir -p $BUILD_DIR
|
||||
GZIP=-1 tar -czf $BUILD_DIR/package.tgz ./
|
||||
export PATCHED_SRC=$BUILD_DIR/package.tgz
|
||||
runHook postPatch
|
||||
'';
|
||||
|
||||
configurePhase = ''
|
||||
runHook preConfigure
|
||||
(
|
||||
${checkSet ["BUILD_DIR"]}
|
||||
mkdir -p $BUILD_DIR
|
||||
cd $BUILD_DIR
|
||||
# Symlink or copy dependencies for node modules
|
||||
# copy is needed if dependency has recursive dependencies,
|
||||
# because node can't follow symlinks while resolving recursive deps.
|
||||
${
|
||||
let
|
||||
link = dep: ''
|
||||
${if dep.recursiveDeps == [] then "ln -sfv" else "cp -rf"} \
|
||||
${dep}/lib/${pathInModulePath dep} ${modulePath dep}
|
||||
'';
|
||||
in
|
||||
flip concatMapStrings (attrValues requiredDependencies) (dep: ''
|
||||
mkdir -p ${modulePath dep}
|
||||
${link dep}
|
||||
${concatMapStrings link (attrValues dep.peerDependencies)}
|
||||
'')}
|
||||
|
||||
# Create shims for recursive dependenceies
|
||||
${concatMapStrings (dep: ''
|
||||
mkdir -p ${modulePath dep}
|
||||
cat > ${pathInModulePath dep}/package.json <<EOF
|
||||
{
|
||||
"name": "${dep.pkgName}",
|
||||
"version": "${getVersion dep}"
|
||||
}
|
||||
EOF
|
||||
'') (attrValues recursiveDependencies)}
|
||||
|
||||
# Create dummy package.json file
|
||||
cat <<EOF > package.json
|
||||
{"name":"dummy-for-$UNIQNAME","version":"0.0.0", "license":"MIT",
|
||||
"description":"Dummy package file for building $name",
|
||||
"repository":{"type":"git","url":"http://$UNIQNAME.com"}}
|
||||
EOF
|
||||
|
||||
# Create dummy readme
|
||||
echo "Dummy package" > README.md
|
||||
)
|
||||
|
||||
export HOME=$BUILD_DIR
|
||||
runHook postConfigure
|
||||
'';
|
||||
|
||||
buildPhase = ''
|
||||
runHook preBuild
|
||||
|
||||
# Install package
|
||||
(
|
||||
${checkSet ["BUILD_DIR" "PATCHED_SRC"]}
|
||||
|
||||
echo "Building $name in $BUILD_DIR"
|
||||
cd $BUILD_DIR
|
||||
HOME=$PWD npm install $PATCHED_SRC ${npmFlags} || {
|
||||
npm list
|
||||
exit 1
|
||||
}
|
||||
)
|
||||
|
||||
runHook postBuild
|
||||
'';
|
||||
|
||||
installPhase = ''
|
||||
runHook preInstall
|
||||
|
||||
(
|
||||
cd $BUILD_DIR
|
||||
|
||||
# Remove shims
|
||||
${concatMapStrings (dep: ''
|
||||
rm ${pathInModulePath dep}/package.json
|
||||
rmdir ${modulePath dep}
|
||||
'') (attrValues recursiveDependencies)}
|
||||
|
||||
# Install the package that we just built.
|
||||
mkdir -p $out/lib/${modulePath self}
|
||||
|
||||
# Move the folder that was created for this path to $out/lib.
|
||||
mv ${pathInModulePath self} $out/lib/${pathInModulePath self}
|
||||
|
||||
# Remove the node_modules subfolder from there, and instead put things
|
||||
# in $PWD/node_modules into that folder.
|
||||
rm -rf $out/lib/${pathInModulePath self}/node_modules
|
||||
cp -r node_modules $out/lib/${pathInModulePath self}/node_modules
|
||||
|
||||
if [ -e "$out/lib/${pathInModulePath self}/man" ]; then
|
||||
mkdir -p $out/share
|
||||
for dir in $out/lib/${pathInModulePath self}/man/*; do #*/
|
||||
mkdir -p $out/share/man/$(basename "$dir")
|
||||
for page in $dir/*; do #*/
|
||||
ln -sv $page $out/share/man/$(basename "$dir")
|
||||
done
|
||||
done
|
||||
fi
|
||||
|
||||
# Move peer dependencies to node_modules
|
||||
${concatMapStrings (dep: ''
|
||||
mkdir -p ${modulePath dep}
|
||||
mv ${pathInModulePath dep} $out/lib/${modulePath dep}
|
||||
'') (attrValues _peerDependencies.requiredDeps)}
|
||||
|
||||
# Install binaries and patch shebangs. These are always found in
|
||||
# node_modules/.bin, regardless of a package namespace.
|
||||
mv node_modules/.bin $out/lib/node_modules 2>/dev/null || true
|
||||
if [ -d "$out/lib/node_modules/.bin" ]; then
|
||||
ln -sv $out/lib/node_modules/.bin $out/bin
|
||||
patchShebangs $out/lib/node_modules/.bin
|
||||
fi
|
||||
)
|
||||
|
||||
runHook postInstall
|
||||
'';
|
||||
|
||||
shellHook = ''
|
||||
${preShellHook}
|
||||
export PATH=${npm}/bin:${nodejs}/bin:$(pwd)/node_modules/.bin:$PATH
|
||||
mkdir -p node_modules
|
||||
${concatMapStrings (dep: ''
|
||||
mkdir -p ${modulePath dep}
|
||||
ln -sfv ${dep}/lib/${pathInModulePath dep} ${pathInModulePath dep}
|
||||
'') (attrValues requiredDependencies)}
|
||||
${postShellHook}
|
||||
'';
|
||||
|
||||
# Stipping does not make a lot of sense in node packages
|
||||
dontStrip = true;
|
||||
|
||||
meta = {
|
||||
inherit platforms;
|
||||
maintainers = [ stdenv.lib.maintainers.offline ];
|
||||
};
|
||||
|
||||
# Propagate pieces of information about the package so that downstream
|
||||
# packages can reflect on them.
|
||||
passthru.pkgName = pkgName;
|
||||
passthru.basicName = name;
|
||||
passthru.namespace = namespace;
|
||||
passthru.version = version;
|
||||
passthru.peerDependencies = _peerDependencies.requiredDeps;
|
||||
passthru.recursiveDeps =
|
||||
(flatten (
|
||||
map (dep: remove name dep.recursiveDeps) (attrValues requiredDependencies)
|
||||
)) ++
|
||||
(attrNames recursiveDependencies);
|
||||
|
||||
# Add an 'override' attribute, which will call `buildNodePackage` with the
|
||||
# given arguments overridden.
|
||||
passthru.override = newArgs: buildNodePackage (args // newArgs);
|
||||
} // (removeAttrs args ["deps" "resolvedDeps" "optionalDependencies"
|
||||
"devDependencies"]) // {
|
||||
name = "${namePrefix}${name}-${version}";
|
||||
|
||||
# Run the node setup hook when this package is a build input
|
||||
propagatedNativeBuildInputs = (args.propagatedNativeBuildInputs or []) ++
|
||||
[ npm nodejs ];
|
||||
|
||||
nativeBuildInputs =
|
||||
(args.nativeBuildInputs or []) ++ neededNatives ++
|
||||
(attrValues requiredDependencies);
|
||||
|
||||
# Expose list of recursive dependencies upstream, up to the package that
|
||||
# caused recursive dependency
|
||||
recursiveDeps =
|
||||
(flatten (
|
||||
map (dep: remove name dep.recursiveDeps) (attrValues requiredDependencies)
|
||||
)) ++
|
||||
(attrNames recursiveDependencies);
|
||||
};
|
||||
|
||||
in stdenv.mkDerivation mkDerivationArgs;
|
||||
|
||||
in self
|
||||
@ -1,210 +0,0 @@
|
||||
/*
|
||||
A set of tools for generating node packages, such as to be imported by
|
||||
default.nix files generated by nixfromnpm.
|
||||
*/
|
||||
|
||||
{
|
||||
# Self-reference so that we can pass through to downstream libraries
|
||||
self,
|
||||
# Base set of packages, i.e. nixpkgs.
|
||||
pkgs,
|
||||
# Version of nodejs.
|
||||
nodejsVersion ? "4.1",
|
||||
# Whether to use npm3 (requires a prebuilt tarball of npm3).
|
||||
npm3 ? true
|
||||
}:
|
||||
|
||||
let
|
||||
# Function to replace dots with something
|
||||
replaceDots = c: replaceChars ["."] [c];
|
||||
inherit (builtins) readDir removeAttrs length getEnv elemAt hasAttr;
|
||||
inherit (pkgs.lib) attrNames attrValues filterAttrs flip foldl
|
||||
hasSuffix hasPrefix removeSuffix replaceChars
|
||||
optional optionals stringToCharacters
|
||||
concatStrings tail splitString;
|
||||
inherit (pkgs.stdenv) isLinux;
|
||||
|
||||
# Function to remove the first character of a string.
|
||||
dropFirstChar = str: concatStrings (tail (stringToCharacters str));
|
||||
|
||||
# Like a for loop.
|
||||
for = flip map;
|
||||
|
||||
# Concatenate a list of sets.
|
||||
joinSets = foldl (a: b: a // b) {};
|
||||
|
||||
# Extracts a tarball containing a bootstrapped version of npm 3.
|
||||
# This tarball must have been previously generated by an invocation
|
||||
# of nixfromnpm, but one of these should be included in the
|
||||
# nixfromnpm distribution (if not, run the `gen_npm3` script).
|
||||
npm3-src = pkgs.runCommand "npm3" {src=./npm3.tar.gz;} ''
|
||||
mkdir -p $out && cd $out && tar -xf $src
|
||||
'';
|
||||
|
||||
# Builds the extracted nix file. Since of course it can't use npm3,
|
||||
# being that it hasn't been built yet, we disable npm3 for this.
|
||||
_npm3 = import npm3-src {
|
||||
inherit pkgs nodejsVersion;
|
||||
npm3 = false;
|
||||
};
|
||||
|
||||
# Parse the `NPM_AUTH_TOKENS` environment variable to discover
|
||||
# namespace-token associations and turn them into an attribute set
|
||||
# which we can use as an input to the fetchPrivateNpm function.
|
||||
# Split the variable on ':', then turn each k=v element in
|
||||
# the list into an attribute set and join all of those sets.
|
||||
namespaceTokens = joinSets (
|
||||
for (splitString ":" (getEnv "NPM_AUTH_TOKENS")) (kvPair:
|
||||
let kv = splitString "=" kvPair; in
|
||||
if length kv != 2 then {}
|
||||
else {"${elemAt kv 0}" = elemAt kv 1;}));
|
||||
|
||||
# A function similar to fetchUrl but allows setting of custom headers.
|
||||
fetchUrlWithHeaders = pkgs.callPackage ./fetchUrlWithHeaders.nix {};
|
||||
|
||||
# Uses the parsed namespace tokens to create a function that can
|
||||
# fetch a private package from an npm repo.
|
||||
fetchPrivateNpm = {namespace, headers ? {}, ...}@args:
|
||||
if !(hasAttr namespace namespaceTokens)
|
||||
then throw "NPM_AUTH_TOKENS does not contain namespace ${namespace}"
|
||||
else let
|
||||
Authorization = "Bearer ${namespaceTokens.${namespace}}";
|
||||
headers = {inherit Authorization;} // headers;
|
||||
in
|
||||
fetchUrlWithHeaders (removeAttrs args ["namespace"] // {inherit headers;});
|
||||
in
|
||||
|
||||
rec {
|
||||
nodejs = pkgs.nodejs or (
|
||||
throw "The given nodejs version ${nodejsVersion} has not been defined."
|
||||
);
|
||||
buildNodePackage = import ./buildNodePackage.nix ({
|
||||
inherit (pkgs) stdenv runCommand;
|
||||
inherit nodejs buildNodePackage;
|
||||
neededNatives = [pkgs.python] ++ optionals isLinux [pkgs.utillinux];
|
||||
} // (if npm3 then {npm = _npm3;} else {}));
|
||||
# A generic package that will fail to build. This is used to indicate
|
||||
# packages that are broken, without failing the entire generation of
|
||||
# a package expression.
|
||||
brokenPackage = {name, reason}:
|
||||
let
|
||||
deriv = pkgs.stdenv.mkDerivation {
|
||||
name = "BROKEN-${name}";
|
||||
buildCommand = ''
|
||||
echo "Package ${name} is broken: ${reason}"
|
||||
exit 1
|
||||
'';
|
||||
passthru.withoutTests = deriv;
|
||||
passthru.pkgName = name;
|
||||
passthru.basicName = "BROKEN";
|
||||
passthru.namespace = null;
|
||||
passthru.version = "BROKEN";
|
||||
passthru.override = _: deriv;
|
||||
passthru.recursiveDeps = [];
|
||||
passthru.peerDependencies = {};
|
||||
};
|
||||
in
|
||||
deriv;
|
||||
|
||||
# List a directory after filtering the files.
|
||||
lsFilter = pred: dir: attrNames (filterAttrs pred (readDir dir));
|
||||
|
||||
# Checks the name and type of a listing to grab non-dotfile dirs.
|
||||
isRegDir = name: type: type == "directory" && !(hasPrefix "." name);
|
||||
|
||||
# Discover all of the node packages in a folder and turn them into a set
|
||||
# mapping `<name>_<version>` to the expression to build that package.
|
||||
discoverPackages = {callPackage, rootPath}:
|
||||
# if true then throw "huh? ${rootPath}" else
|
||||
let
|
||||
# Names of NPM packages defined in this directory. Don't take
|
||||
# files that start with '@'.
|
||||
nodeDirs = lsFilter (n: t: isRegDir n t && !(hasPrefix "@" n))
|
||||
(/. + rootPath);
|
||||
# Generate the package expression from a package name and .nix path.
|
||||
toPackage = name: filepath: let
|
||||
versionRaw = removeSuffix ".nix" filepath; # Raw version, i.e. "1.2.4"
|
||||
# Join with package name to make the variable name.
|
||||
varName = "${replaceDots "-" name}_${replaceDots "-" versionRaw}";
|
||||
in
|
||||
# Return the singleton set which maps that name to the actual expression.
|
||||
{"${varName}" = callPackage (/. + rootPath + "/${name}/${filepath}") {};};
|
||||
in
|
||||
# For each directory, and each .nix file in it, create a package from that.
|
||||
joinSets (for nodeDirs (pkgName: let
|
||||
pkgDir = /. + rootPath + "/${pkgName}";
|
||||
# List of .nix files in the directory (excluding symlinks).
|
||||
versionFiles = lsFilter (name: type: type == "regular" &&
|
||||
hasSuffix ".nix" name)
|
||||
pkgDir;
|
||||
# Check if there is a `latest.nix` file
|
||||
hasLatest = lsFilter (n: _: n == "latest.nix") pkgDir != [];
|
||||
in
|
||||
joinSets (
|
||||
# Find all of the versions listed in the folder.
|
||||
map (toPackage pkgName) versionFiles ++
|
||||
# If the folder has a `latest.nix` file, link the bare name of
|
||||
# the package to that file.
|
||||
optional hasLatest {
|
||||
"${replaceDots "-" pkgName}" = callPackage
|
||||
(/. + rootPath + "/${pkgName}/latest.nix") {};
|
||||
})));
|
||||
|
||||
# Same as above, except that we take all of the namespaced packages;
|
||||
# these packages are in folders prefaced with `@`, and contain
|
||||
# packages in that folder. So, for example the path `@foo/bar` is
|
||||
# the path to all of the versions of the `bar` package under the
|
||||
# namespace `foo`.
|
||||
discoverNamespacePackages = {callPackage, rootPath}: let
|
||||
isNsDir = name: type: type == "directory" && hasPrefix "@" name;
|
||||
# Names of NPM packages defined in this directory.
|
||||
namespaceDirs = lsFilter isNsDir (/. + rootPath);
|
||||
in
|
||||
# For each namespace directory, each package folder in it, and
|
||||
# each .nix file in that, create a package from that and then
|
||||
# create a namespace out of that.
|
||||
joinSets (for namespaceDirs (nsDirName: {
|
||||
"${dropFirstChar nsDirName}" = discoverPackages {
|
||||
inherit callPackage;
|
||||
rootPath = /. + rootPath + "/${nsDirName}";
|
||||
};
|
||||
}));
|
||||
|
||||
# The function that a default.nix can call into which will scan its
|
||||
# directory for all of the package files and generate a big attribute set
|
||||
# for all of them. Re-exports the `callPackage` function and all of the
|
||||
# attribute sets, as well as the nodeLib.
|
||||
generatePackages = {rootPath, extensions ? []}:
|
||||
let
|
||||
callPackageWith = pkgSet: path: overridingArgs: let
|
||||
inherit (builtins) intersectAttrs functionArgs;
|
||||
inherit (pkgs.lib) filterAttrs;
|
||||
# The path must be a function; import it here.
|
||||
func = import path;
|
||||
# Get the arguments to the function; e.g. "{a=false; b=true;}", where
|
||||
# a false value is an argument that has no default.
|
||||
funcArgs = functionArgs func;
|
||||
# Take only the arguments that don't have a default.
|
||||
noDefaults = filterAttrs (_: v: v == false) funcArgs;
|
||||
# Intersect this set with the package set to create the arguments to
|
||||
# the function.
|
||||
satisfyingArgs = intersectAttrs noDefaults pkgSet;
|
||||
# Override these arguments with whatever's passed in.
|
||||
actualArgs = satisfyingArgs // overridingArgs;
|
||||
# Call the function with these args to get a derivation.
|
||||
deriv = func actualArgs;
|
||||
in deriv;
|
||||
|
||||
callPackage = callPackageWith {
|
||||
inherit fetchUrlWithHeaders namespaces namespaceTokens;
|
||||
inherit pkgs nodePackages buildNodePackage brokenPackage;
|
||||
};
|
||||
nodePackages = joinSets (map (e: e.nodePackages) extensions) //
|
||||
discoverPackages {inherit callPackage rootPath;};
|
||||
namespaces = joinSets (map (e: e.namespaces) extensions) //
|
||||
discoverNamespacePackages {inherit callPackage rootPath;};
|
||||
in {
|
||||
inherit nodePackages callPackage namespaces namespaceTokens pkgs;
|
||||
nodeLib = self;
|
||||
};
|
||||
}
|
||||
@ -1,21 +0,0 @@
|
||||
import os
|
||||
import requests
|
||||
out = os.environ['out']
|
||||
url = os.environ['url']
|
||||
headers = {"User-Agent": "nix-fetchurl"}
|
||||
header_names = os.environ.get("headerNames", "")
|
||||
for name in header_names.split():
|
||||
if "__HTTP_HEADER_{}".format(name) not in os.environ:
|
||||
exit("FATAL: no corresponding value set for header {}"
|
||||
.format(name))
|
||||
headers[name] = os.environ["__HTTP_HEADER_{}".format(name)]
|
||||
print('GET {} with headers {}'.format(url, headers))
|
||||
response = requests.get(url, headers=headers)
|
||||
if response.status_code != 200:
|
||||
exit("Received a {} response. :(\nContent: {}"
|
||||
.format(response.status_code, response.content))
|
||||
else:
|
||||
print('Response: {} ({} bytes)'
|
||||
.format(response.status_code, len(response.content)))
|
||||
with open(out, 'wb') as f:
|
||||
f.write(response.content)
|
||||
@ -1,71 +0,0 @@
|
||||
# A python-based fetchurl function, allowing the passage of custom headers.
|
||||
# Just calls into `requests` under the hood.
|
||||
{
|
||||
pythonPackages, stdenv
|
||||
}:
|
||||
|
||||
|
||||
{ # URL to fetch.
|
||||
url ? ""
|
||||
|
||||
, # Additional curl options needed for the download to succeed.
|
||||
curlOpts ? ""
|
||||
|
||||
, # Name of the file. If empty, use the basename of `url' (or of the
|
||||
# first element of `urls').
|
||||
name ? ""
|
||||
|
||||
# Different ways of specifying the hash.
|
||||
, outputHash ? ""
|
||||
, outputHashAlgo ? ""
|
||||
, md5 ? ""
|
||||
, sha1 ? ""
|
||||
, sha256 ? ""
|
||||
|
||||
, # Meta information, if any.
|
||||
meta ? {}
|
||||
|
||||
# Headers to set, if any.
|
||||
, headers ? {}
|
||||
}:
|
||||
|
||||
let
|
||||
inherit (stdenv.lib) flip mapAttrs' nameValuePair;
|
||||
hasHash = (outputHash != "" && outputHashAlgo != "")
|
||||
|| md5 != "" || sha1 != "" || sha256 != "";
|
||||
|
||||
# Create an attribute set translating each header name and value into
|
||||
# the header name prefixed with __HTTP_HEADER. When the derivation is
|
||||
# evaluated, the script will pick up these environment variables and use
|
||||
# them to produce the actual headers.
|
||||
headerValues = flip mapAttrs' headers (headerName: headerValue:
|
||||
nameValuePair "__HTTP_HEADER_${headerName}" headerValue);
|
||||
in
|
||||
|
||||
if !hasHash
|
||||
then throw "You must specify the output hash for ${url}"
|
||||
else
|
||||
|
||||
stdenv.mkDerivation ({
|
||||
inherit url;
|
||||
name = if name != "" then name else baseNameOf (toString url);
|
||||
|
||||
outputHashAlgo = if outputHashAlgo != "" then outputHashAlgo else
|
||||
if sha256 != "" then "sha256" else if sha1 != "" then "sha1" else "md5";
|
||||
outputHash = if outputHash != "" then outputHash else
|
||||
if sha256 != "" then sha256 else if sha1 != "" then sha1 else md5;
|
||||
|
||||
# Only flat hashing, which is the normal mode if you're fetching a file.
|
||||
outputHashMode = "flat";
|
||||
|
||||
# Doing the download on a remote machine just duplicates network
|
||||
# traffic, so don't do that.
|
||||
preferLocalBuild = true;
|
||||
|
||||
headerNames = builtins.attrNames headers;
|
||||
|
||||
buildInputs = with pythonPackages; [python requests2];
|
||||
buildCommand = ''
|
||||
python ${./fetch.py}
|
||||
'';
|
||||
} // headerValues)
|
||||
@ -1,16 +0,0 @@
|
||||
# Parses the `NPM_AUTH_TOKENS` environment variable to discover
|
||||
# namespace-token associations and turn them into an attribute set
|
||||
# which we can use as an input to the fetchPrivateNpm function.
|
||||
{pkgs, joinSets}:
|
||||
|
||||
let
|
||||
inherit (pkgs.lib) flip length elemAt;
|
||||
npmAuthTokens = builtins.getEnv "NPM_AUTH_TOKENS";
|
||||
in
|
||||
|
||||
# Split the variable on ':', then turn each k=v element in
|
||||
# the list into an attribute set and join all of those sets.
|
||||
joinSets (
|
||||
flip map (split ":" npmAuthTokens) (kvPair:
|
||||
if length (split "=" kvPair) != 2 then {}
|
||||
else {"${elemAt kvPair 0}" = elemAt kvPair 1;}))
|
||||
@ -1,46 +0,0 @@
|
||||
// These packages come packaged with nodejs.
|
||||
var fs = require('fs');
|
||||
var url = require('url');
|
||||
|
||||
function versionSpecIsImpure(versionSpec) {
|
||||
// Returns true if a version spec is impure.
|
||||
return (versionSpec == "latest" || versionSpec == "unstable" ||
|
||||
// file path references
|
||||
versionSpec.substr(0, 2) == ".." ||
|
||||
versionSpec.substr(0, 2) == "./" ||
|
||||
versionSpec.substr(0, 2) == "~/" ||
|
||||
versionSpec.substr(0, 1) == '/' ||
|
||||
// github owner/repo references
|
||||
/^[^/]+\/[^/]+(#.*)?$/.test(versionSpec) ||
|
||||
// is a URL
|
||||
url.parse(versionSpec).protocol);
|
||||
}
|
||||
|
||||
// Load up the package object.
|
||||
var packageObj = JSON.parse(fs.readFileSync('./package.json'));
|
||||
|
||||
// Purify dependencies.
|
||||
var depTypes = ['dependencies', 'devDependencies', 'optionalDependencies'];
|
||||
for (var i in depTypes) {
|
||||
var depType = depTypes[i];
|
||||
var depSet = packageObj[depType];
|
||||
if (depSet !== undefined) {
|
||||
for (var depName in depSet) {
|
||||
if (versionSpecIsImpure(depSet[depName])) {
|
||||
depSet[depName] = '*';
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/* Remove peer dependencies */
|
||||
if (process.env.removePeerDependencies && packageObj.peerDependencies) {
|
||||
console.log("WARNING: removing the following peer dependencies:");
|
||||
for (key in packageObj.peerDependencies) {
|
||||
console.log(" " + key + ": " + packageObj.peerDependencies[key]);
|
||||
}
|
||||
delete packageObj.peerDependencies;
|
||||
}
|
||||
|
||||
/* Write the fixed JSON file */
|
||||
fs.writeFileSync("package.json", JSON.stringify(packageObj));
|
||||
@ -1,14 +0,0 @@
|
||||
{ buildNodePackage, nodePackages, pkgs }:
|
||||
buildNodePackage {
|
||||
name = "asn1";
|
||||
version = "0.2.3";
|
||||
src = pkgs.fetchurl {
|
||||
url = "http://registry.npmjs.org/asn1/-/asn1-0.2.3.tgz";
|
||||
sha1 = "dac8787713c9966849fc8180777ebe9c1ddf3b86";
|
||||
};
|
||||
deps = [];
|
||||
meta = {
|
||||
homepage = "https://github.com/mcavage/node-asn1";
|
||||
description = "Contains parsers and serializers for ASN.1 (currently BER only)";
|
||||
};
|
||||
}
|
||||
@ -1 +0,0 @@
|
||||
0.2.3.nix
|
||||
@ -1,14 +0,0 @@
|
||||
{ buildNodePackage, nodePackages, pkgs }:
|
||||
buildNodePackage {
|
||||
name = "assert-plus";
|
||||
version = "0.1.5";
|
||||
src = pkgs.fetchurl {
|
||||
url = "http://registry.npmjs.org/assert-plus/-/assert-plus-0.1.5.tgz";
|
||||
sha1 = "ee74009413002d84cec7219c6ac811812e723160";
|
||||
};
|
||||
deps = [];
|
||||
devDependencies = [];
|
||||
meta = {
|
||||
description = "Extra assertions on top of node's assert module";
|
||||
};
|
||||
}
|
||||
@ -1 +0,0 @@
|
||||
0.1.5.nix
|
||||
@ -1,21 +0,0 @@
|
||||
{ buildNodePackage, nodePackages, pkgs }:
|
||||
buildNodePackage {
|
||||
name = "backoff";
|
||||
version = "2.4.1";
|
||||
src = pkgs.fetchurl {
|
||||
url = "http://registry.npmjs.org/backoff/-/backoff-2.4.1.tgz";
|
||||
sha1 = "2f68c50e0dd789dbefe24200a62efb04d2456d68";
|
||||
};
|
||||
deps = with nodePackages; [
|
||||
precond_0-2-3
|
||||
];
|
||||
meta = {
|
||||
description = "Fibonacci and exponential backoffs.";
|
||||
keywords = [
|
||||
"backoff"
|
||||
"retry"
|
||||
"fibonacci"
|
||||
"exponential"
|
||||
];
|
||||
};
|
||||
}
|
||||
@ -1 +0,0 @@
|
||||
2.4.1.nix
|
||||
@ -1,30 +0,0 @@
|
||||
{ buildNodePackage, nodePackages, pkgs }:
|
||||
buildNodePackage {
|
||||
name = "bunyan";
|
||||
version = "1.5.1";
|
||||
src = pkgs.fetchurl {
|
||||
url = "http://registry.npmjs.org/bunyan/-/bunyan-1.5.1.tgz";
|
||||
sha1 = "5f6e7d44c43b952f56b0f41309e3ab12391b4e2d";
|
||||
};
|
||||
deps = with nodePackages; [
|
||||
dtrace-provider_0-6-0
|
||||
safe-json-stringify_1-0-3
|
||||
mv_2-0-3
|
||||
];
|
||||
optionalDependencies = with nodePackages; [
|
||||
dtrace-provider_0-6-0
|
||||
safe-json-stringify_1-0-3
|
||||
mv_2-0-3
|
||||
];
|
||||
meta = {
|
||||
homepage = "https://github.com/trentm/node-bunyan";
|
||||
description = "a JSON logging library for node.js services";
|
||||
keywords = [
|
||||
"log"
|
||||
"logging"
|
||||
"log4j"
|
||||
"json"
|
||||
"bunyan"
|
||||
];
|
||||
};
|
||||
}
|
||||
@ -1 +0,0 @@
|
||||
1.5.1.nix
|
||||
@ -1,24 +0,0 @@
|
||||
{ buildNodePackage, nodePackages, pkgs }:
|
||||
buildNodePackage {
|
||||
name = "dashdash";
|
||||
version = "1.10.1";
|
||||
src = pkgs.fetchurl {
|
||||
url = "http://registry.npmjs.org/dashdash/-/dashdash-1.10.1.tgz";
|
||||
sha1 = "0abf1af89a8f5129a81f18c2b35b21df22622f60";
|
||||
};
|
||||
deps = with nodePackages; [
|
||||
assert-plus_0-1-5
|
||||
];
|
||||
meta = {
|
||||
homepage = "https://github.com/trentm/node-dashdash";
|
||||
description = "A light, featureful and explicit option parsing library.";
|
||||
keywords = [
|
||||
"option"
|
||||
"parser"
|
||||
"parsing"
|
||||
"cli"
|
||||
"command"
|
||||
"args"
|
||||
];
|
||||
};
|
||||
}
|
||||
@ -1 +0,0 @@
|
||||
1.10.1.nix
|
||||
@ -1,17 +0,0 @@
|
||||
{ buildNodePackage, nodePackages, pkgs }:
|
||||
buildNodePackage {
|
||||
name = "dtrace-provider";
|
||||
version = "0.6.0";
|
||||
src = pkgs.fetchurl {
|
||||
url = "http://registry.npmjs.org/dtrace-provider/-/dtrace-provider-0.6.0.tgz";
|
||||
sha1 = "0b078d5517937d873101452d9146737557b75e51";
|
||||
};
|
||||
deps = with nodePackages; [
|
||||
nan_2-1-0
|
||||
];
|
||||
meta = {
|
||||
homepage = "https://github.com/chrisa/node-dtrace-provider#readme";
|
||||
description = "Native DTrace providers for node.js applications";
|
||||
keywords = [ "dtrace" ];
|
||||
};
|
||||
}
|
||||
@ -1 +0,0 @@
|
||||
0.6.0.nix
|
||||
@ -1,15 +0,0 @@
|
||||
{ buildNodePackage, nodePackages, pkgs }:
|
||||
buildNodePackage {
|
||||
name = "extsprintf";
|
||||
version = "1.2.0";
|
||||
src = pkgs.fetchurl {
|
||||
url = "http://registry.npmjs.org/extsprintf/-/extsprintf-1.2.0.tgz";
|
||||
sha1 = "5ad946c22f5b32ba7f8cd7426711c6e8a3fc2529";
|
||||
};
|
||||
deps = [];
|
||||
devDependencies = [];
|
||||
meta = {
|
||||
homepage = "https://github.com/davepacheco/node-extsprintf";
|
||||
description = "extended POSIX-style sprintf";
|
||||
};
|
||||
}
|
||||
@ -1 +0,0 @@
|
||||
1.2.0.nix
|
||||
@ -1,16 +0,0 @@
|
||||
{ buildNodePackage, nodePackages, pkgs }:
|
||||
buildNodePackage {
|
||||
name = "ldap-filter";
|
||||
version = "0.2.2";
|
||||
src = pkgs.fetchurl {
|
||||
url = "http://registry.npmjs.org/ldap-filter/-/ldap-filter-0.2.2.tgz";
|
||||
sha1 = "f2b842be0b86da3352798505b31ebcae590d77d0";
|
||||
};
|
||||
deps = with nodePackages; [
|
||||
assert-plus_0-1-5
|
||||
];
|
||||
meta = {
|
||||
homepage = "http://ldapjs.org";
|
||||
description = "API for handling LDAP-style filters";
|
||||
};
|
||||
}
|
||||
@ -1 +0,0 @@
|
||||
0.2.2.nix
|
||||
@ -1,28 +0,0 @@
|
||||
{ buildNodePackage, nodePackages, pkgs }:
|
||||
buildNodePackage {
|
||||
name = "ldapjs";
|
||||
version = "1.0.0";
|
||||
src = pkgs.fetchurl {
|
||||
url = "http://registry.npmjs.org/ldapjs/-/ldapjs-1.0.0.tgz";
|
||||
sha1 = "1da2cd5bfb9cb103c1ba516938da971bc2bbc3f2";
|
||||
};
|
||||
deps = with nodePackages; [
|
||||
ldap-filter_0-2-2
|
||||
asn1_0-2-3
|
||||
bunyan_1-5-1
|
||||
once_1-3-2
|
||||
vasync_1-6-3
|
||||
dtrace-provider_0-6-0
|
||||
backoff_2-4-1
|
||||
assert-plus_0-1-5
|
||||
verror_1-6-0
|
||||
dashdash_1-10-1
|
||||
];
|
||||
optionalDependencies = with nodePackages; [
|
||||
dtrace-provider_0-6-0
|
||||
];
|
||||
meta = {
|
||||
homepage = "http://ldapjs.org";
|
||||
description = "LDAP client and server APIs";
|
||||
};
|
||||
}
|
||||
@ -1 +0,0 @@
|
||||
1.0.0.nix
|
||||
@ -1,20 +0,0 @@
|
||||
{ buildNodePackage, nodePackages, pkgs }:
|
||||
buildNodePackage {
|
||||
name = "minimist";
|
||||
version = "0.0.8";
|
||||
src = pkgs.fetchurl {
|
||||
url = "http://registry.npmjs.org/minimist/-/minimist-0.0.8.tgz";
|
||||
sha1 = "857fcabfc3397d2625b8228262e86aa7a011b05d";
|
||||
};
|
||||
deps = [];
|
||||
meta = {
|
||||
homepage = "https://github.com/substack/minimist";
|
||||
description = "parse argument options";
|
||||
keywords = [
|
||||
"argv"
|
||||
"getopt"
|
||||
"parser"
|
||||
"optimist"
|
||||
];
|
||||
};
|
||||
}
|
||||
@ -1 +0,0 @@
|
||||
0.0.8.nix
|
||||
@ -1,20 +0,0 @@
|
||||
{ buildNodePackage, nodePackages, pkgs }:
|
||||
buildNodePackage {
|
||||
name = "mkdirp";
|
||||
version = "0.5.1";
|
||||
src = pkgs.fetchurl {
|
||||
url = "http://registry.npmjs.org/mkdirp/-/mkdirp-0.5.1.tgz";
|
||||
sha1 = "30057438eac6cf7f8c4767f38648d6697d75c903";
|
||||
};
|
||||
deps = with nodePackages; [
|
||||
minimist_0-0-8
|
||||
];
|
||||
meta = {
|
||||
homepage = "https://github.com/substack/node-mkdirp#readme";
|
||||
description = "Recursively mkdir, like `mkdir -p`";
|
||||
keywords = [
|
||||
"mkdir"
|
||||
"directory"
|
||||
];
|
||||
};
|
||||
}
|
||||
@ -1 +0,0 @@
|
||||
0.5.1.nix
|
||||
@ -1,26 +0,0 @@
|
||||
{ buildNodePackage, nodePackages, pkgs }:
|
||||
buildNodePackage {
|
||||
name = "mv";
|
||||
version = "2.0.3";
|
||||
src = pkgs.fetchurl {
|
||||
url = "http://registry.npmjs.org/mv/-/mv-2.0.3.tgz";
|
||||
sha1 = "e9ab707d71dc38de24edcc637a8e2f5f480c7f32";
|
||||
};
|
||||
deps = with nodePackages; [
|
||||
ncp_0-6-0
|
||||
mkdirp_0-5-1
|
||||
rimraf_2-2-8
|
||||
];
|
||||
meta = {
|
||||
homepage = "https://github.com/andrewrk/node-mv";
|
||||
description = "fs.rename but works across devices. same as the unix utility 'mv'";
|
||||
keywords = [
|
||||
"mv"
|
||||
"move"
|
||||
"rename"
|
||||
"device"
|
||||
"recursive"
|
||||
"folder"
|
||||
];
|
||||
};
|
||||
}
|
||||
@ -1 +0,0 @@
|
||||
2.0.3.nix
|
||||
@ -1,14 +0,0 @@
|
||||
{ buildNodePackage, nodePackages, pkgs }:
|
||||
buildNodePackage {
|
||||
name = "nan";
|
||||
version = "2.1.0";
|
||||
src = pkgs.fetchurl {
|
||||
url = "http://registry.npmjs.org/nan/-/nan-2.1.0.tgz";
|
||||
sha1 = "020a7ccedc63fdee85f85967d5607849e74abbe8";
|
||||
};
|
||||
deps = [];
|
||||
meta = {
|
||||
homepage = "https://github.com/nodejs/nan#readme";
|
||||
description = "Native Abstractions for Node.js: C++ header for Node 0.8 -> 4 compatibility";
|
||||
};
|
||||
}
|
||||
@ -1 +0,0 @@
|
||||
2.1.0.nix
|
||||
@ -1,15 +0,0 @@
|
||||
{ buildNodePackage, nodePackages, pkgs }:
|
||||
buildNodePackage {
|
||||
name = "ncp";
|
||||
version = "0.6.0";
|
||||
src = pkgs.fetchurl {
|
||||
url = "http://registry.npmjs.org/ncp/-/ncp-0.6.0.tgz";
|
||||
sha1 = "df8ce021e262be21b52feb3d3e5cfaab12491f0d";
|
||||
};
|
||||
deps = [];
|
||||
meta = {
|
||||
homepage = "https://github.com/AvianFlu/ncp";
|
||||
description = "Asynchronous recursive file copy utility.";
|
||||
keywords = [ "cli" "copy" ];
|
||||
};
|
||||
}
|
||||
@ -1 +0,0 @@
|
||||
0.6.0.nix
|
||||
@ -1,22 +0,0 @@
|
||||
{ buildNodePackage, nodePackages, pkgs }:
|
||||
buildNodePackage {
|
||||
name = "once";
|
||||
version = "1.3.2";
|
||||
src = pkgs.fetchurl {
|
||||
url = "http://registry.npmjs.org/once/-/once-1.3.2.tgz";
|
||||
sha1 = "d8feeca93b039ec1dcdee7741c92bdac5e28081b";
|
||||
};
|
||||
deps = with nodePackages; [
|
||||
wrappy_1-0-1
|
||||
];
|
||||
meta = {
|
||||
homepage = "https://github.com/isaacs/once#readme";
|
||||
description = "Run a function exactly one time";
|
||||
keywords = [
|
||||
"once"
|
||||
"function"
|
||||
"one"
|
||||
"single"
|
||||
];
|
||||
};
|
||||
}
|
||||
@ -1 +0,0 @@
|
||||
1.3.2.nix
|
||||
@ -1,20 +0,0 @@
|
||||
{ buildNodePackage, nodePackages, pkgs }:
|
||||
buildNodePackage {
|
||||
name = "precond";
|
||||
version = "0.2.3";
|
||||
src = pkgs.fetchurl {
|
||||
url = "http://registry.npmjs.org/precond/-/precond-0.2.3.tgz";
|
||||
sha1 = "aa9591bcaa24923f1e0f4849d240f47efc1075ac";
|
||||
};
|
||||
deps = [];
|
||||
meta = {
|
||||
description = "Precondition checking utilities.";
|
||||
keywords = [
|
||||
"precondition"
|
||||
"assert"
|
||||
"invariant"
|
||||
"contract"
|
||||
"condition"
|
||||
];
|
||||
};
|
||||
}
|
||||
@ -1 +0,0 @@
|
||||
0.2.3.nix
|
||||
@ -1,15 +0,0 @@
|
||||
{ buildNodePackage, nodePackages, pkgs }:
|
||||
buildNodePackage {
|
||||
name = "rimraf";
|
||||
version = "2.2.8";
|
||||
src = pkgs.fetchurl {
|
||||
url = "http://registry.npmjs.org/rimraf/-/rimraf-2.2.8.tgz";
|
||||
sha1 = "e439be2aaee327321952730f99a8929e4fc50582";
|
||||
};
|
||||
deps = [];
|
||||
devDependencies = [];
|
||||
meta = {
|
||||
homepage = "https://github.com/isaacs/rimraf";
|
||||
description = "A deep deletion module for node (like `rm -rf`)";
|
||||
};
|
||||
}
|
||||
@ -1 +0,0 @@
|
||||
2.2.8.nix
|
||||
@ -1,14 +0,0 @@
|
||||
{ buildNodePackage, nodePackages, pkgs }:
|
||||
buildNodePackage {
|
||||
name = "safe-json-stringify";
|
||||
version = "1.0.3";
|
||||
src = pkgs.fetchurl {
|
||||
url = "http://registry.npmjs.org/safe-json-stringify/-/safe-json-stringify-1.0.3.tgz";
|
||||
sha1 = "3cb6717660a086d07cb5bd9b7a6875bcf67bd05e";
|
||||
};
|
||||
deps = [];
|
||||
meta = {
|
||||
homepage = "https://github.com/e-conomic/safe-json-stringify";
|
||||
description = "Prevent defined property getters from throwing errors";
|
||||
};
|
||||
}
|
||||
@ -1 +0,0 @@
|
||||
1.0.3.nix
|
||||
@ -1,16 +0,0 @@
|
||||
{ buildNodePackage, nodePackages, pkgs }:
|
||||
buildNodePackage {
|
||||
name = "vasync";
|
||||
version = "1.6.3";
|
||||
src = pkgs.fetchurl {
|
||||
url = "http://registry.npmjs.org/vasync/-/vasync-1.6.3.tgz";
|
||||
sha1 = "4a69d7052a47f4ce85503d7641df1cbf40432a94";
|
||||
};
|
||||
deps = with nodePackages; [
|
||||
verror_1-6-0
|
||||
];
|
||||
meta = {
|
||||
homepage = "https://github.com/davepacheco/node-vasync";
|
||||
description = "utilities for observable asynchronous control flow";
|
||||
};
|
||||
}
|
||||
@ -1 +0,0 @@
|
||||
1.6.3.nix
|
||||
@ -1,17 +0,0 @@
|
||||
{ buildNodePackage, nodePackages, pkgs }:
|
||||
buildNodePackage {
|
||||
name = "verror";
|
||||
version = "1.6.0";
|
||||
src = pkgs.fetchurl {
|
||||
url = "http://registry.npmjs.org/verror/-/verror-1.6.0.tgz";
|
||||
sha1 = "7d13b27b1facc2e2da90405eb5ea6e5bdd252ea5";
|
||||
};
|
||||
deps = with nodePackages; [
|
||||
extsprintf_1-2-0
|
||||
];
|
||||
devDependencies = [];
|
||||
meta = {
|
||||
homepage = "https://github.com/davepacheco/node-verror";
|
||||
description = "richer JavaScript errors";
|
||||
};
|
||||
}
|
||||
@ -1 +0,0 @@
|
||||
1.6.0.nix
|
||||
@ -1,14 +0,0 @@
|
||||
{ buildNodePackage, nodePackages, pkgs }:
|
||||
buildNodePackage {
|
||||
name = "wrappy";
|
||||
version = "1.0.1";
|
||||
src = pkgs.fetchurl {
|
||||
url = "http://registry.npmjs.org/wrappy/-/wrappy-1.0.1.tgz";
|
||||
sha1 = "1e65969965ccbc2db4548c6b84a6f2c5aedd4739";
|
||||
};
|
||||
deps = [];
|
||||
meta = {
|
||||
homepage = "https://github.com/npm/wrappy";
|
||||
description = "Callback wrapping utility";
|
||||
};
|
||||
}
|
||||
@ -1 +0,0 @@
|
||||
1.0.1.nix
|
||||
17
package.nix
17
package.nix
@ -1,17 +0,0 @@
|
||||
{ mkDerivation, asn1-encoding, asn1-types, async, base, bytestring
|
||||
, connection, containers, doctest, hspec, network, process
|
||||
, semigroups, stdenv, stm, text
|
||||
}:
|
||||
mkDerivation {
|
||||
pname = "ldap-client";
|
||||
version = "0.4.0";
|
||||
src = ./.;
|
||||
buildDepends = [
|
||||
asn1-encoding asn1-types async base bytestring connection
|
||||
containers network semigroups stm text
|
||||
];
|
||||
testDepends = [ base bytestring doctest hspec process semigroups ];
|
||||
homepage = "https://supki.github.io/ldap-client";
|
||||
description = "Pure Haskell LDAP Client Library";
|
||||
license = stdenv.lib.licenses.bsd2;
|
||||
}
|
||||
23
shell.nix
23
shell.nix
@ -1,23 +0,0 @@
|
||||
{ nixpkgs ? import <nixpkgs> {}, compiler ? "ghc802" }: let
|
||||
inherit (nixpkgs) pkgs;
|
||||
haskell = pkgs.haskell.packages.${compiler};
|
||||
|
||||
ghc = haskell.ghcWithPackages(ps: [
|
||||
ps.hdevtools ps.doctest ps.hspec-discover ps.hlint ps.ghc-mod
|
||||
]);
|
||||
npm = import ./npm {};
|
||||
|
||||
this = import ./default.nix { inherit nixpkgs compiler; };
|
||||
in
|
||||
pkgs.stdenv.mkDerivation rec {
|
||||
name = this.pname;
|
||||
buildInputs = [
|
||||
ghc
|
||||
haskell.cabal-install
|
||||
npm.nodePackages.ldapjs
|
||||
] ++ this.env.buildInputs;
|
||||
shellHook = ''
|
||||
${this.env.shellHook}
|
||||
cabal configure --enable-tests --package-db=$NIX_GHC_LIBDIR/package.conf.d
|
||||
'';
|
||||
}
|
||||
24
site/css/bootstrap-custom.css
vendored
Normal file
24
site/css/bootstrap-custom.css
vendored
Normal file
@ -0,0 +1,24 @@
|
||||
/* Move down content because we have a fixed navbar that is 50px tall */
|
||||
body {
|
||||
padding-top: 50px;
|
||||
padding-bottom: 20px;
|
||||
}
|
||||
|
||||
h1 {
|
||||
font-weight: 800;
|
||||
}
|
||||
|
||||
|
||||
h2 {
|
||||
padding-top: 20px;
|
||||
}
|
||||
|
||||
h3 {
|
||||
padding-top: 10px;
|
||||
}
|
||||
|
||||
h1,
|
||||
h2,
|
||||
h3 {
|
||||
font-family: "Open Sans", "Helvetica Neue", Helvetica, Arial, sans-serif;
|
||||
}
|
||||
1
site/css/bootstrap-theme.css.map
Normal file
1
site/css/bootstrap-theme.css.map
Normal file
File diff suppressed because one or more lines are too long
5
site/css/bootstrap-theme.min.css
vendored
Normal file
5
site/css/bootstrap-theme.min.css
vendored
Normal file
File diff suppressed because one or more lines are too long
1
site/css/bootstrap.css.map
Normal file
1
site/css/bootstrap.css.map
Normal file
File diff suppressed because one or more lines are too long
5
site/css/bootstrap.min.css
vendored
Normal file
5
site/css/bootstrap.min.css
vendored
Normal file
File diff suppressed because one or more lines are too long
BIN
site/fonts/glyphicons-halflings-regular.eot
Normal file
BIN
site/fonts/glyphicons-halflings-regular.eot
Normal file
Binary file not shown.
288
site/fonts/glyphicons-halflings-regular.svg
Normal file
288
site/fonts/glyphicons-halflings-regular.svg
Normal file
@ -0,0 +1,288 @@
|
||||
<?xml version="1.0" standalone="no"?>
|
||||
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd" >
|
||||
<svg xmlns="http://www.w3.org/2000/svg">
|
||||
<metadata></metadata>
|
||||
<defs>
|
||||
<font id="glyphicons_halflingsregular" horiz-adv-x="1200" >
|
||||
<font-face units-per-em="1200" ascent="960" descent="-240" />
|
||||
<missing-glyph horiz-adv-x="500" />
|
||||
<glyph horiz-adv-x="0" />
|
||||
<glyph horiz-adv-x="400" />
|
||||
<glyph unicode=" " />
|
||||
<glyph unicode="*" d="M600 1100q15 0 34 -1.5t30 -3.5l11 -1q10 -2 17.5 -10.5t7.5 -18.5v-224l158 158q7 7 18 8t19 -6l106 -106q7 -8 6 -19t-8 -18l-158 -158h224q10 0 18.5 -7.5t10.5 -17.5q6 -41 6 -75q0 -15 -1.5 -34t-3.5 -30l-1 -11q-2 -10 -10.5 -17.5t-18.5 -7.5h-224l158 -158 q7 -7 8 -18t-6 -19l-106 -106q-8 -7 -19 -6t-18 8l-158 158v-224q0 -10 -7.5 -18.5t-17.5 -10.5q-41 -6 -75 -6q-15 0 -34 1.5t-30 3.5l-11 1q-10 2 -17.5 10.5t-7.5 18.5v224l-158 -158q-7 -7 -18 -8t-19 6l-106 106q-7 8 -6 19t8 18l158 158h-224q-10 0 -18.5 7.5 t-10.5 17.5q-6 41 -6 75q0 15 1.5 34t3.5 30l1 11q2 10 10.5 17.5t18.5 7.5h224l-158 158q-7 7 -8 18t6 19l106 106q8 7 19 6t18 -8l158 -158v224q0 10 7.5 18.5t17.5 10.5q41 6 75 6z" />
|
||||
<glyph unicode="+" d="M450 1100h200q21 0 35.5 -14.5t14.5 -35.5v-350h350q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-350v-350q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5v350h-350q-21 0 -35.5 14.5t-14.5 35.5v200q0 21 14.5 35.5t35.5 14.5 h350v350q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode=" " />
|
||||
<glyph unicode="¥" d="M825 1100h250q10 0 12.5 -5t-5.5 -13l-364 -364q-6 -6 -11 -18h268q10 0 13 -6t-3 -14l-120 -160q-6 -8 -18 -14t-22 -6h-125v-100h275q10 0 13 -6t-3 -14l-120 -160q-6 -8 -18 -14t-22 -6h-125v-174q0 -11 -7.5 -18.5t-18.5 -7.5h-148q-11 0 -18.5 7.5t-7.5 18.5v174 h-275q-10 0 -13 6t3 14l120 160q6 8 18 14t22 6h125v100h-275q-10 0 -13 6t3 14l120 160q6 8 18 14t22 6h118q-5 12 -11 18l-364 364q-8 8 -5.5 13t12.5 5h250q25 0 43 -18l164 -164q8 -8 18 -8t18 8l164 164q18 18 43 18z" />
|
||||
<glyph unicode=" " horiz-adv-x="650" />
|
||||
<glyph unicode=" " horiz-adv-x="1300" />
|
||||
<glyph unicode=" " horiz-adv-x="650" />
|
||||
<glyph unicode=" " horiz-adv-x="1300" />
|
||||
<glyph unicode=" " horiz-adv-x="433" />
|
||||
<glyph unicode=" " horiz-adv-x="325" />
|
||||
<glyph unicode=" " horiz-adv-x="216" />
|
||||
<glyph unicode=" " horiz-adv-x="216" />
|
||||
<glyph unicode=" " horiz-adv-x="162" />
|
||||
<glyph unicode=" " horiz-adv-x="260" />
|
||||
<glyph unicode=" " horiz-adv-x="72" />
|
||||
<glyph unicode=" " horiz-adv-x="260" />
|
||||
<glyph unicode=" " horiz-adv-x="325" />
|
||||
<glyph unicode="€" d="M744 1198q242 0 354 -189q60 -104 66 -209h-181q0 45 -17.5 82.5t-43.5 61.5t-58 40.5t-60.5 24t-51.5 7.5q-19 0 -40.5 -5.5t-49.5 -20.5t-53 -38t-49 -62.5t-39 -89.5h379l-100 -100h-300q-6 -50 -6 -100h406l-100 -100h-300q9 -74 33 -132t52.5 -91t61.5 -54.5t59 -29 t47 -7.5q22 0 50.5 7.5t60.5 24.5t58 41t43.5 61t17.5 80h174q-30 -171 -128 -278q-107 -117 -274 -117q-206 0 -324 158q-36 48 -69 133t-45 204h-217l100 100h112q1 47 6 100h-218l100 100h134q20 87 51 153.5t62 103.5q117 141 297 141z" />
|
||||
<glyph unicode="₽" d="M428 1200h350q67 0 120 -13t86 -31t57 -49.5t35 -56.5t17 -64.5t6.5 -60.5t0.5 -57v-16.5v-16.5q0 -36 -0.5 -57t-6.5 -61t-17 -65t-35 -57t-57 -50.5t-86 -31.5t-120 -13h-178l-2 -100h288q10 0 13 -6t-3 -14l-120 -160q-6 -8 -18 -14t-22 -6h-138v-175q0 -11 -5.5 -18 t-15.5 -7h-149q-10 0 -17.5 7.5t-7.5 17.5v175h-267q-10 0 -13 6t3 14l120 160q6 8 18 14t22 6h117v100h-267q-10 0 -13 6t3 14l120 160q6 8 18 14t22 6h117v475q0 10 7.5 17.5t17.5 7.5zM600 1000v-300h203q64 0 86.5 33t22.5 119q0 84 -22.5 116t-86.5 32h-203z" />
|
||||
<glyph unicode="−" d="M250 700h800q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-800q-21 0 -35.5 14.5t-14.5 35.5v200q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="⌛" d="M1000 1200v-150q0 -21 -14.5 -35.5t-35.5 -14.5h-50v-100q0 -91 -49.5 -165.5t-130.5 -109.5q81 -35 130.5 -109.5t49.5 -165.5v-150h50q21 0 35.5 -14.5t14.5 -35.5v-150h-800v150q0 21 14.5 35.5t35.5 14.5h50v150q0 91 49.5 165.5t130.5 109.5q-81 35 -130.5 109.5 t-49.5 165.5v100h-50q-21 0 -35.5 14.5t-14.5 35.5v150h800zM400 1000v-100q0 -60 32.5 -109.5t87.5 -73.5q28 -12 44 -37t16 -55t-16 -55t-44 -37q-55 -24 -87.5 -73.5t-32.5 -109.5v-150h400v150q0 60 -32.5 109.5t-87.5 73.5q-28 12 -44 37t-16 55t16 55t44 37 q55 24 87.5 73.5t32.5 109.5v100h-400z" />
|
||||
<glyph unicode="◼" horiz-adv-x="500" d="M0 0z" />
|
||||
<glyph unicode="☁" d="M503 1089q110 0 200.5 -59.5t134.5 -156.5q44 14 90 14q120 0 205 -86.5t85 -206.5q0 -121 -85 -207.5t-205 -86.5h-750q-79 0 -135.5 57t-56.5 137q0 69 42.5 122.5t108.5 67.5q-2 12 -2 37q0 153 108 260.5t260 107.5z" />
|
||||
<glyph unicode="⛺" d="M774 1193.5q16 -9.5 20.5 -27t-5.5 -33.5l-136 -187l467 -746h30q20 0 35 -18.5t15 -39.5v-42h-1200v42q0 21 15 39.5t35 18.5h30l468 746l-135 183q-10 16 -5.5 34t20.5 28t34 5.5t28 -20.5l111 -148l112 150q9 16 27 20.5t34 -5zM600 200h377l-182 112l-195 534v-646z " />
|
||||
<glyph unicode="✉" d="M25 1100h1150q10 0 12.5 -5t-5.5 -13l-564 -567q-8 -8 -18 -8t-18 8l-564 567q-8 8 -5.5 13t12.5 5zM18 882l264 -264q8 -8 8 -18t-8 -18l-264 -264q-8 -8 -13 -5.5t-5 12.5v550q0 10 5 12.5t13 -5.5zM918 618l264 264q8 8 13 5.5t5 -12.5v-550q0 -10 -5 -12.5t-13 5.5 l-264 264q-8 8 -8 18t8 18zM818 482l364 -364q8 -8 5.5 -13t-12.5 -5h-1150q-10 0 -12.5 5t5.5 13l364 364q8 8 18 8t18 -8l164 -164q8 -8 18 -8t18 8l164 164q8 8 18 8t18 -8z" />
|
||||
<glyph unicode="✏" d="M1011 1210q19 0 33 -13l153 -153q13 -14 13 -33t-13 -33l-99 -92l-214 214l95 96q13 14 32 14zM1013 800l-615 -614l-214 214l614 614zM317 96l-333 -112l110 335z" />
|
||||
<glyph unicode="" d="M700 650v-550h250q21 0 35.5 -14.5t14.5 -35.5v-50h-800v50q0 21 14.5 35.5t35.5 14.5h250v550l-500 550h1200z" />
|
||||
<glyph unicode="" d="M368 1017l645 163q39 15 63 0t24 -49v-831q0 -55 -41.5 -95.5t-111.5 -63.5q-79 -25 -147 -4.5t-86 75t25.5 111.5t122.5 82q72 24 138 8v521l-600 -155v-606q0 -42 -44 -90t-109 -69q-79 -26 -147 -5.5t-86 75.5t25.5 111.5t122.5 82.5q72 24 138 7v639q0 38 14.5 59 t53.5 34z" />
|
||||
<glyph unicode="" d="M500 1191q100 0 191 -39t156.5 -104.5t104.5 -156.5t39 -191l-1 -2l1 -5q0 -141 -78 -262l275 -274q23 -26 22.5 -44.5t-22.5 -42.5l-59 -58q-26 -20 -46.5 -20t-39.5 20l-275 274q-119 -77 -261 -77l-5 1l-2 -1q-100 0 -191 39t-156.5 104.5t-104.5 156.5t-39 191 t39 191t104.5 156.5t156.5 104.5t191 39zM500 1022q-88 0 -162 -43t-117 -117t-43 -162t43 -162t117 -117t162 -43t162 43t117 117t43 162t-43 162t-117 117t-162 43z" />
|
||||
<glyph unicode="" d="M649 949q48 68 109.5 104t121.5 38.5t118.5 -20t102.5 -64t71 -100.5t27 -123q0 -57 -33.5 -117.5t-94 -124.5t-126.5 -127.5t-150 -152.5t-146 -174q-62 85 -145.5 174t-150 152.5t-126.5 127.5t-93.5 124.5t-33.5 117.5q0 64 28 123t73 100.5t104 64t119 20 t120.5 -38.5t104.5 -104z" />
|
||||
<glyph unicode="" d="M407 800l131 353q7 19 17.5 19t17.5 -19l129 -353h421q21 0 24 -8.5t-14 -20.5l-342 -249l130 -401q7 -20 -0.5 -25.5t-24.5 6.5l-343 246l-342 -247q-17 -12 -24.5 -6.5t-0.5 25.5l130 400l-347 251q-17 12 -14 20.5t23 8.5h429z" />
|
||||
<glyph unicode="" d="M407 800l131 353q7 19 17.5 19t17.5 -19l129 -353h421q21 0 24 -8.5t-14 -20.5l-342 -249l130 -401q7 -20 -0.5 -25.5t-24.5 6.5l-343 246l-342 -247q-17 -12 -24.5 -6.5t-0.5 25.5l130 400l-347 251q-17 12 -14 20.5t23 8.5h429zM477 700h-240l197 -142l-74 -226 l193 139l195 -140l-74 229l192 140h-234l-78 211z" />
|
||||
<glyph unicode="" d="M600 1200q124 0 212 -88t88 -212v-250q0 -46 -31 -98t-69 -52v-75q0 -10 6 -21.5t15 -17.5l358 -230q9 -5 15 -16.5t6 -21.5v-93q0 -10 -7.5 -17.5t-17.5 -7.5h-1150q-10 0 -17.5 7.5t-7.5 17.5v93q0 10 6 21.5t15 16.5l358 230q9 6 15 17.5t6 21.5v75q-38 0 -69 52 t-31 98v250q0 124 88 212t212 88z" />
|
||||
<glyph unicode="" d="M25 1100h1150q10 0 17.5 -7.5t7.5 -17.5v-1050q0 -10 -7.5 -17.5t-17.5 -7.5h-1150q-10 0 -17.5 7.5t-7.5 17.5v1050q0 10 7.5 17.5t17.5 7.5zM100 1000v-100h100v100h-100zM875 1000h-550q-10 0 -17.5 -7.5t-7.5 -17.5v-350q0 -10 7.5 -17.5t17.5 -7.5h550 q10 0 17.5 7.5t7.5 17.5v350q0 10 -7.5 17.5t-17.5 7.5zM1000 1000v-100h100v100h-100zM100 800v-100h100v100h-100zM1000 800v-100h100v100h-100zM100 600v-100h100v100h-100zM1000 600v-100h100v100h-100zM875 500h-550q-10 0 -17.5 -7.5t-7.5 -17.5v-350q0 -10 7.5 -17.5 t17.5 -7.5h550q10 0 17.5 7.5t7.5 17.5v350q0 10 -7.5 17.5t-17.5 7.5zM100 400v-100h100v100h-100zM1000 400v-100h100v100h-100zM100 200v-100h100v100h-100zM1000 200v-100h100v100h-100z" />
|
||||
<glyph unicode="" d="M50 1100h400q21 0 35.5 -14.5t14.5 -35.5v-400q0 -21 -14.5 -35.5t-35.5 -14.5h-400q-21 0 -35.5 14.5t-14.5 35.5v400q0 21 14.5 35.5t35.5 14.5zM650 1100h400q21 0 35.5 -14.5t14.5 -35.5v-400q0 -21 -14.5 -35.5t-35.5 -14.5h-400q-21 0 -35.5 14.5t-14.5 35.5v400 q0 21 14.5 35.5t35.5 14.5zM50 500h400q21 0 35.5 -14.5t14.5 -35.5v-400q0 -21 -14.5 -35.5t-35.5 -14.5h-400q-21 0 -35.5 14.5t-14.5 35.5v400q0 21 14.5 35.5t35.5 14.5zM650 500h400q21 0 35.5 -14.5t14.5 -35.5v-400q0 -21 -14.5 -35.5t-35.5 -14.5h-400 q-21 0 -35.5 14.5t-14.5 35.5v400q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M50 1100h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5v200q0 21 14.5 35.5t35.5 14.5zM450 1100h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5v200 q0 21 14.5 35.5t35.5 14.5zM850 1100h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5v200q0 21 14.5 35.5t35.5 14.5zM50 700h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200 q-21 0 -35.5 14.5t-14.5 35.5v200q0 21 14.5 35.5t35.5 14.5zM450 700h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5v200q0 21 14.5 35.5t35.5 14.5zM850 700h200q21 0 35.5 -14.5t14.5 -35.5v-200 q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5v200q0 21 14.5 35.5t35.5 14.5zM50 300h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5v200q0 21 14.5 35.5t35.5 14.5zM450 300h200 q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5v200q0 21 14.5 35.5t35.5 14.5zM850 300h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5v200q0 21 14.5 35.5 t35.5 14.5z" />
|
||||
<glyph unicode="" d="M50 1100h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5v200q0 21 14.5 35.5t35.5 14.5zM450 1100h700q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-700q-21 0 -35.5 14.5t-14.5 35.5v200 q0 21 14.5 35.5t35.5 14.5zM50 700h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5v200q0 21 14.5 35.5t35.5 14.5zM450 700h700q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-700 q-21 0 -35.5 14.5t-14.5 35.5v200q0 21 14.5 35.5t35.5 14.5zM50 300h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5v200q0 21 14.5 35.5t35.5 14.5zM450 300h700q21 0 35.5 -14.5t14.5 -35.5v-200 q0 -21 -14.5 -35.5t-35.5 -14.5h-700q-21 0 -35.5 14.5t-14.5 35.5v200q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M465 477l571 571q8 8 18 8t17 -8l177 -177q8 -7 8 -17t-8 -18l-783 -784q-7 -8 -17.5 -8t-17.5 8l-384 384q-8 8 -8 18t8 17l177 177q7 8 17 8t18 -8l171 -171q7 -7 18 -7t18 7z" />
|
||||
<glyph unicode="" d="M904 1083l178 -179q8 -8 8 -18.5t-8 -17.5l-267 -268l267 -268q8 -7 8 -17.5t-8 -18.5l-178 -178q-8 -8 -18.5 -8t-17.5 8l-268 267l-268 -267q-7 -8 -17.5 -8t-18.5 8l-178 178q-8 8 -8 18.5t8 17.5l267 268l-267 268q-8 7 -8 17.5t8 18.5l178 178q8 8 18.5 8t17.5 -8 l268 -267l268 268q7 7 17.5 7t18.5 -7z" />
|
||||
<glyph unicode="" d="M507 1177q98 0 187.5 -38.5t154.5 -103.5t103.5 -154.5t38.5 -187.5q0 -141 -78 -262l300 -299q8 -8 8 -18.5t-8 -18.5l-109 -108q-7 -8 -17.5 -8t-18.5 8l-300 299q-119 -77 -261 -77q-98 0 -188 38.5t-154.5 103t-103 154.5t-38.5 188t38.5 187.5t103 154.5 t154.5 103.5t188 38.5zM506.5 1023q-89.5 0 -165.5 -44t-120 -120.5t-44 -166t44 -165.5t120 -120t165.5 -44t166 44t120.5 120t44 165.5t-44 166t-120.5 120.5t-166 44zM425 900h150q10 0 17.5 -7.5t7.5 -17.5v-75h75q10 0 17.5 -7.5t7.5 -17.5v-150q0 -10 -7.5 -17.5 t-17.5 -7.5h-75v-75q0 -10 -7.5 -17.5t-17.5 -7.5h-150q-10 0 -17.5 7.5t-7.5 17.5v75h-75q-10 0 -17.5 7.5t-7.5 17.5v150q0 10 7.5 17.5t17.5 7.5h75v75q0 10 7.5 17.5t17.5 7.5z" />
|
||||
<glyph unicode="" d="M507 1177q98 0 187.5 -38.5t154.5 -103.5t103.5 -154.5t38.5 -187.5q0 -141 -78 -262l300 -299q8 -8 8 -18.5t-8 -18.5l-109 -108q-7 -8 -17.5 -8t-18.5 8l-300 299q-119 -77 -261 -77q-98 0 -188 38.5t-154.5 103t-103 154.5t-38.5 188t38.5 187.5t103 154.5 t154.5 103.5t188 38.5zM506.5 1023q-89.5 0 -165.5 -44t-120 -120.5t-44 -166t44 -165.5t120 -120t165.5 -44t166 44t120.5 120t44 165.5t-44 166t-120.5 120.5t-166 44zM325 800h350q10 0 17.5 -7.5t7.5 -17.5v-150q0 -10 -7.5 -17.5t-17.5 -7.5h-350q-10 0 -17.5 7.5 t-7.5 17.5v150q0 10 7.5 17.5t17.5 7.5z" />
|
||||
<glyph unicode="" d="M550 1200h100q21 0 35.5 -14.5t14.5 -35.5v-400q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5v400q0 21 14.5 35.5t35.5 14.5zM800 975v166q167 -62 272 -209.5t105 -331.5q0 -117 -45.5 -224t-123 -184.5t-184.5 -123t-224 -45.5t-224 45.5 t-184.5 123t-123 184.5t-45.5 224q0 184 105 331.5t272 209.5v-166q-103 -55 -165 -155t-62 -220q0 -116 57 -214.5t155.5 -155.5t214.5 -57t214.5 57t155.5 155.5t57 214.5q0 120 -62 220t-165 155z" />
|
||||
<glyph unicode="" d="M1025 1200h150q10 0 17.5 -7.5t7.5 -17.5v-1150q0 -10 -7.5 -17.5t-17.5 -7.5h-150q-10 0 -17.5 7.5t-7.5 17.5v1150q0 10 7.5 17.5t17.5 7.5zM725 800h150q10 0 17.5 -7.5t7.5 -17.5v-750q0 -10 -7.5 -17.5t-17.5 -7.5h-150q-10 0 -17.5 7.5t-7.5 17.5v750 q0 10 7.5 17.5t17.5 7.5zM425 500h150q10 0 17.5 -7.5t7.5 -17.5v-450q0 -10 -7.5 -17.5t-17.5 -7.5h-150q-10 0 -17.5 7.5t-7.5 17.5v450q0 10 7.5 17.5t17.5 7.5zM125 300h150q10 0 17.5 -7.5t7.5 -17.5v-250q0 -10 -7.5 -17.5t-17.5 -7.5h-150q-10 0 -17.5 7.5t-7.5 17.5 v250q0 10 7.5 17.5t17.5 7.5z" />
|
||||
<glyph unicode="" d="M600 1174q33 0 74 -5l38 -152l5 -1q49 -14 94 -39l5 -2l134 80q61 -48 104 -105l-80 -134l3 -5q25 -44 39 -93l1 -6l152 -38q5 -43 5 -73q0 -34 -5 -74l-152 -38l-1 -6q-15 -49 -39 -93l-3 -5l80 -134q-48 -61 -104 -105l-134 81l-5 -3q-44 -25 -94 -39l-5 -2l-38 -151 q-43 -5 -74 -5q-33 0 -74 5l-38 151l-5 2q-49 14 -94 39l-5 3l-134 -81q-60 48 -104 105l80 134l-3 5q-25 45 -38 93l-2 6l-151 38q-6 42 -6 74q0 33 6 73l151 38l2 6q13 48 38 93l3 5l-80 134q47 61 105 105l133 -80l5 2q45 25 94 39l5 1l38 152q43 5 74 5zM600 815 q-89 0 -152 -63t-63 -151.5t63 -151.5t152 -63t152 63t63 151.5t-63 151.5t-152 63z" />
|
||||
<glyph unicode="" d="M500 1300h300q41 0 70.5 -29.5t29.5 -70.5v-100h275q10 0 17.5 -7.5t7.5 -17.5v-75h-1100v75q0 10 7.5 17.5t17.5 7.5h275v100q0 41 29.5 70.5t70.5 29.5zM500 1200v-100h300v100h-300zM1100 900v-800q0 -41 -29.5 -70.5t-70.5 -29.5h-700q-41 0 -70.5 29.5t-29.5 70.5 v800h900zM300 800v-700h100v700h-100zM500 800v-700h100v700h-100zM700 800v-700h100v700h-100zM900 800v-700h100v700h-100z" />
|
||||
<glyph unicode="" d="M18 618l620 608q8 7 18.5 7t17.5 -7l608 -608q8 -8 5.5 -13t-12.5 -5h-175v-575q0 -10 -7.5 -17.5t-17.5 -7.5h-250q-10 0 -17.5 7.5t-7.5 17.5v375h-300v-375q0 -10 -7.5 -17.5t-17.5 -7.5h-250q-10 0 -17.5 7.5t-7.5 17.5v575h-175q-10 0 -12.5 5t5.5 13z" />
|
||||
<glyph unicode="" d="M600 1200v-400q0 -41 29.5 -70.5t70.5 -29.5h300v-650q0 -21 -14.5 -35.5t-35.5 -14.5h-800q-21 0 -35.5 14.5t-14.5 35.5v1100q0 21 14.5 35.5t35.5 14.5h450zM1000 800h-250q-21 0 -35.5 14.5t-14.5 35.5v250z" />
|
||||
<glyph unicode="" d="M600 1177q117 0 224 -45.5t184.5 -123t123 -184.5t45.5 -224t-45.5 -224t-123 -184.5t-184.5 -123t-224 -45.5t-224 45.5t-184.5 123t-123 184.5t-45.5 224t45.5 224t123 184.5t184.5 123t224 45.5zM600 1027q-116 0 -214.5 -57t-155.5 -155.5t-57 -214.5t57 -214.5 t155.5 -155.5t214.5 -57t214.5 57t155.5 155.5t57 214.5t-57 214.5t-155.5 155.5t-214.5 57zM525 900h50q10 0 17.5 -7.5t7.5 -17.5v-275h175q10 0 17.5 -7.5t7.5 -17.5v-50q0 -10 -7.5 -17.5t-17.5 -7.5h-250q-10 0 -17.5 7.5t-7.5 17.5v350q0 10 7.5 17.5t17.5 7.5z" />
|
||||
<glyph unicode="" d="M1300 0h-538l-41 400h-242l-41 -400h-538l431 1200h209l-21 -300h162l-20 300h208zM515 800l-27 -300h224l-27 300h-170z" />
|
||||
<glyph unicode="" d="M550 1200h200q21 0 35.5 -14.5t14.5 -35.5v-450h191q20 0 25.5 -11.5t-7.5 -27.5l-327 -400q-13 -16 -32 -16t-32 16l-327 400q-13 16 -7.5 27.5t25.5 11.5h191v450q0 21 14.5 35.5t35.5 14.5zM1125 400h50q10 0 17.5 -7.5t7.5 -17.5v-350q0 -10 -7.5 -17.5t-17.5 -7.5 h-1050q-10 0 -17.5 7.5t-7.5 17.5v350q0 10 7.5 17.5t17.5 7.5h50q10 0 17.5 -7.5t7.5 -17.5v-175h900v175q0 10 7.5 17.5t17.5 7.5z" />
|
||||
<glyph unicode="" d="M600 1177q117 0 224 -45.5t184.5 -123t123 -184.5t45.5 -224t-45.5 -224t-123 -184.5t-184.5 -123t-224 -45.5t-224 45.5t-184.5 123t-123 184.5t-45.5 224t45.5 224t123 184.5t184.5 123t224 45.5zM600 1027q-116 0 -214.5 -57t-155.5 -155.5t-57 -214.5t57 -214.5 t155.5 -155.5t214.5 -57t214.5 57t155.5 155.5t57 214.5t-57 214.5t-155.5 155.5t-214.5 57zM525 900h150q10 0 17.5 -7.5t7.5 -17.5v-275h137q21 0 26 -11.5t-8 -27.5l-223 -275q-13 -16 -32 -16t-32 16l-223 275q-13 16 -8 27.5t26 11.5h137v275q0 10 7.5 17.5t17.5 7.5z " />
|
||||
<glyph unicode="" d="M600 1177q117 0 224 -45.5t184.5 -123t123 -184.5t45.5 -224t-45.5 -224t-123 -184.5t-184.5 -123t-224 -45.5t-224 45.5t-184.5 123t-123 184.5t-45.5 224t45.5 224t123 184.5t184.5 123t224 45.5zM600 1027q-116 0 -214.5 -57t-155.5 -155.5t-57 -214.5t57 -214.5 t155.5 -155.5t214.5 -57t214.5 57t155.5 155.5t57 214.5t-57 214.5t-155.5 155.5t-214.5 57zM632 914l223 -275q13 -16 8 -27.5t-26 -11.5h-137v-275q0 -10 -7.5 -17.5t-17.5 -7.5h-150q-10 0 -17.5 7.5t-7.5 17.5v275h-137q-21 0 -26 11.5t8 27.5l223 275q13 16 32 16 t32 -16z" />
|
||||
<glyph unicode="" d="M225 1200h750q10 0 19.5 -7t12.5 -17l186 -652q7 -24 7 -49v-425q0 -12 -4 -27t-9 -17q-12 -6 -37 -6h-1100q-12 0 -27 4t-17 8q-6 13 -6 38l1 425q0 25 7 49l185 652q3 10 12.5 17t19.5 7zM878 1000h-556q-10 0 -19 -7t-11 -18l-87 -450q-2 -11 4 -18t16 -7h150 q10 0 19.5 -7t11.5 -17l38 -152q2 -10 11.5 -17t19.5 -7h250q10 0 19.5 7t11.5 17l38 152q2 10 11.5 17t19.5 7h150q10 0 16 7t4 18l-87 450q-2 11 -11 18t-19 7z" />
|
||||
<glyph unicode="" d="M600 1177q117 0 224 -45.5t184.5 -123t123 -184.5t45.5 -224t-45.5 -224t-123 -184.5t-184.5 -123t-224 -45.5t-224 45.5t-184.5 123t-123 184.5t-45.5 224t45.5 224t123 184.5t184.5 123t224 45.5zM600 1027q-116 0 -214.5 -57t-155.5 -155.5t-57 -214.5t57 -214.5 t155.5 -155.5t214.5 -57t214.5 57t155.5 155.5t57 214.5t-57 214.5t-155.5 155.5t-214.5 57zM540 820l253 -190q17 -12 17 -30t-17 -30l-253 -190q-16 -12 -28 -6.5t-12 26.5v400q0 21 12 26.5t28 -6.5z" />
|
||||
<glyph unicode="" d="M947 1060l135 135q7 7 12.5 5t5.5 -13v-362q0 -10 -7.5 -17.5t-17.5 -7.5h-362q-11 0 -13 5.5t5 12.5l133 133q-109 76 -238 76q-116 0 -214.5 -57t-155.5 -155.5t-57 -214.5t57 -214.5t155.5 -155.5t214.5 -57t214.5 57t155.5 155.5t57 214.5h150q0 -117 -45.5 -224 t-123 -184.5t-184.5 -123t-224 -45.5t-224 45.5t-184.5 123t-123 184.5t-45.5 224t45.5 224t123 184.5t184.5 123t224 45.5q192 0 347 -117z" />
|
||||
<glyph unicode="" d="M947 1060l135 135q7 7 12.5 5t5.5 -13v-361q0 -11 -7.5 -18.5t-18.5 -7.5h-361q-11 0 -13 5.5t5 12.5l134 134q-110 75 -239 75q-116 0 -214.5 -57t-155.5 -155.5t-57 -214.5h-150q0 117 45.5 224t123 184.5t184.5 123t224 45.5q192 0 347 -117zM1027 600h150 q0 -117 -45.5 -224t-123 -184.5t-184.5 -123t-224 -45.5q-192 0 -348 118l-134 -134q-7 -8 -12.5 -5.5t-5.5 12.5v360q0 11 7.5 18.5t18.5 7.5h360q10 0 12.5 -5.5t-5.5 -12.5l-133 -133q110 -76 240 -76q116 0 214.5 57t155.5 155.5t57 214.5z" />
|
||||
<glyph unicode="" d="M125 1200h1050q10 0 17.5 -7.5t7.5 -17.5v-1150q0 -10 -7.5 -17.5t-17.5 -7.5h-1050q-10 0 -17.5 7.5t-7.5 17.5v1150q0 10 7.5 17.5t17.5 7.5zM1075 1000h-850q-10 0 -17.5 -7.5t-7.5 -17.5v-850q0 -10 7.5 -17.5t17.5 -7.5h850q10 0 17.5 7.5t7.5 17.5v850 q0 10 -7.5 17.5t-17.5 7.5zM325 900h50q10 0 17.5 -7.5t7.5 -17.5v-50q0 -10 -7.5 -17.5t-17.5 -7.5h-50q-10 0 -17.5 7.5t-7.5 17.5v50q0 10 7.5 17.5t17.5 7.5zM525 900h450q10 0 17.5 -7.5t7.5 -17.5v-50q0 -10 -7.5 -17.5t-17.5 -7.5h-450q-10 0 -17.5 7.5t-7.5 17.5v50 q0 10 7.5 17.5t17.5 7.5zM325 700h50q10 0 17.5 -7.5t7.5 -17.5v-50q0 -10 -7.5 -17.5t-17.5 -7.5h-50q-10 0 -17.5 7.5t-7.5 17.5v50q0 10 7.5 17.5t17.5 7.5zM525 700h450q10 0 17.5 -7.5t7.5 -17.5v-50q0 -10 -7.5 -17.5t-17.5 -7.5h-450q-10 0 -17.5 7.5t-7.5 17.5v50 q0 10 7.5 17.5t17.5 7.5zM325 500h50q10 0 17.5 -7.5t7.5 -17.5v-50q0 -10 -7.5 -17.5t-17.5 -7.5h-50q-10 0 -17.5 7.5t-7.5 17.5v50q0 10 7.5 17.5t17.5 7.5zM525 500h450q10 0 17.5 -7.5t7.5 -17.5v-50q0 -10 -7.5 -17.5t-17.5 -7.5h-450q-10 0 -17.5 7.5t-7.5 17.5v50 q0 10 7.5 17.5t17.5 7.5zM325 300h50q10 0 17.5 -7.5t7.5 -17.5v-50q0 -10 -7.5 -17.5t-17.5 -7.5h-50q-10 0 -17.5 7.5t-7.5 17.5v50q0 10 7.5 17.5t17.5 7.5zM525 300h450q10 0 17.5 -7.5t7.5 -17.5v-50q0 -10 -7.5 -17.5t-17.5 -7.5h-450q-10 0 -17.5 7.5t-7.5 17.5v50 q0 10 7.5 17.5t17.5 7.5z" />
|
||||
<glyph unicode="" d="M900 800v200q0 83 -58.5 141.5t-141.5 58.5h-300q-82 0 -141 -59t-59 -141v-200h-100q-41 0 -70.5 -29.5t-29.5 -70.5v-600q0 -41 29.5 -70.5t70.5 -29.5h900q41 0 70.5 29.5t29.5 70.5v600q0 41 -29.5 70.5t-70.5 29.5h-100zM400 800v150q0 21 15 35.5t35 14.5h200 q20 0 35 -14.5t15 -35.5v-150h-300z" />
|
||||
<glyph unicode="" d="M125 1100h50q10 0 17.5 -7.5t7.5 -17.5v-1075h-100v1075q0 10 7.5 17.5t17.5 7.5zM1075 1052q4 0 9 -2q16 -6 16 -23v-421q0 -6 -3 -12q-33 -59 -66.5 -99t-65.5 -58t-56.5 -24.5t-52.5 -6.5q-26 0 -57.5 6.5t-52.5 13.5t-60 21q-41 15 -63 22.5t-57.5 15t-65.5 7.5 q-85 0 -160 -57q-7 -5 -15 -5q-6 0 -11 3q-14 7 -14 22v438q22 55 82 98.5t119 46.5q23 2 43 0.5t43 -7t32.5 -8.5t38 -13t32.5 -11q41 -14 63.5 -21t57 -14t63.5 -7q103 0 183 87q7 8 18 8z" />
|
||||
<glyph unicode="" d="M600 1175q116 0 227 -49.5t192.5 -131t131 -192.5t49.5 -227v-300q0 -10 -7.5 -17.5t-17.5 -7.5h-50q-10 0 -17.5 7.5t-7.5 17.5v300q0 127 -70.5 231.5t-184.5 161.5t-245 57t-245 -57t-184.5 -161.5t-70.5 -231.5v-300q0 -10 -7.5 -17.5t-17.5 -7.5h-50 q-10 0 -17.5 7.5t-7.5 17.5v300q0 116 49.5 227t131 192.5t192.5 131t227 49.5zM220 500h160q8 0 14 -6t6 -14v-460q0 -8 -6 -14t-14 -6h-160q-8 0 -14 6t-6 14v460q0 8 6 14t14 6zM820 500h160q8 0 14 -6t6 -14v-460q0 -8 -6 -14t-14 -6h-160q-8 0 -14 6t-6 14v460 q0 8 6 14t14 6z" />
|
||||
<glyph unicode="" d="M321 814l258 172q9 6 15 2.5t6 -13.5v-750q0 -10 -6 -13.5t-15 2.5l-258 172q-21 14 -46 14h-250q-10 0 -17.5 7.5t-7.5 17.5v350q0 10 7.5 17.5t17.5 7.5h250q25 0 46 14zM900 668l120 120q7 7 17 7t17 -7l34 -34q7 -7 7 -17t-7 -17l-120 -120l120 -120q7 -7 7 -17 t-7 -17l-34 -34q-7 -7 -17 -7t-17 7l-120 119l-120 -119q-7 -7 -17 -7t-17 7l-34 34q-7 7 -7 17t7 17l119 120l-119 120q-7 7 -7 17t7 17l34 34q7 8 17 8t17 -8z" />
|
||||
<glyph unicode="" d="M321 814l258 172q9 6 15 2.5t6 -13.5v-750q0 -10 -6 -13.5t-15 2.5l-258 172q-21 14 -46 14h-250q-10 0 -17.5 7.5t-7.5 17.5v350q0 10 7.5 17.5t17.5 7.5h250q25 0 46 14zM766 900h4q10 -1 16 -10q96 -129 96 -290q0 -154 -90 -281q-6 -9 -17 -10l-3 -1q-9 0 -16 6 l-29 23q-7 7 -8.5 16.5t4.5 17.5q72 103 72 229q0 132 -78 238q-6 8 -4.5 18t9.5 17l29 22q7 5 15 5z" />
|
||||
<glyph unicode="" d="M967 1004h3q11 -1 17 -10q135 -179 135 -396q0 -105 -34 -206.5t-98 -185.5q-7 -9 -17 -10h-3q-9 0 -16 6l-42 34q-8 6 -9 16t5 18q111 150 111 328q0 90 -29.5 176t-84.5 157q-6 9 -5 19t10 16l42 33q7 5 15 5zM321 814l258 172q9 6 15 2.5t6 -13.5v-750q0 -10 -6 -13.5 t-15 2.5l-258 172q-21 14 -46 14h-250q-10 0 -17.5 7.5t-7.5 17.5v350q0 10 7.5 17.5t17.5 7.5h250q25 0 46 14zM766 900h4q10 -1 16 -10q96 -129 96 -290q0 -154 -90 -281q-6 -9 -17 -10l-3 -1q-9 0 -16 6l-29 23q-7 7 -8.5 16.5t4.5 17.5q72 103 72 229q0 132 -78 238 q-6 8 -4.5 18.5t9.5 16.5l29 22q7 5 15 5z" />
|
||||
<glyph unicode="" d="M500 900h100v-100h-100v-100h-400v-100h-100v600h500v-300zM1200 700h-200v-100h200v-200h-300v300h-200v300h-100v200h600v-500zM100 1100v-300h300v300h-300zM800 1100v-300h300v300h-300zM300 900h-100v100h100v-100zM1000 900h-100v100h100v-100zM300 500h200v-500 h-500v500h200v100h100v-100zM800 300h200v-100h-100v-100h-200v100h-100v100h100v200h-200v100h300v-300zM100 400v-300h300v300h-300zM300 200h-100v100h100v-100zM1200 200h-100v100h100v-100zM700 0h-100v100h100v-100zM1200 0h-300v100h300v-100z" />
|
||||
<glyph unicode="" d="M100 200h-100v1000h100v-1000zM300 200h-100v1000h100v-1000zM700 200h-200v1000h200v-1000zM900 200h-100v1000h100v-1000zM1200 200h-200v1000h200v-1000zM400 0h-300v100h300v-100zM600 0h-100v91h100v-91zM800 0h-100v91h100v-91zM1100 0h-200v91h200v-91z" />
|
||||
<glyph unicode="" d="M500 1200l682 -682q8 -8 8 -18t-8 -18l-464 -464q-8 -8 -18 -8t-18 8l-682 682l1 475q0 10 7.5 17.5t17.5 7.5h474zM319.5 1024.5q-29.5 29.5 -71 29.5t-71 -29.5t-29.5 -71.5t29.5 -71.5t71 -29.5t71 29.5t29.5 71.5t-29.5 71.5z" />
|
||||
<glyph unicode="" d="M500 1200l682 -682q8 -8 8 -18t-8 -18l-464 -464q-8 -8 -18 -8t-18 8l-682 682l1 475q0 10 7.5 17.5t17.5 7.5h474zM800 1200l682 -682q8 -8 8 -18t-8 -18l-464 -464q-8 -8 -18 -8t-18 8l-56 56l424 426l-700 700h150zM319.5 1024.5q-29.5 29.5 -71 29.5t-71 -29.5 t-29.5 -71.5t29.5 -71.5t71 -29.5t71 29.5t29.5 71.5t-29.5 71.5z" />
|
||||
<glyph unicode="" d="M300 1200h825q75 0 75 -75v-900q0 -25 -18 -43l-64 -64q-8 -8 -13 -5.5t-5 12.5v950q0 10 -7.5 17.5t-17.5 7.5h-700q-25 0 -43 -18l-64 -64q-8 -8 -5.5 -13t12.5 -5h700q10 0 17.5 -7.5t7.5 -17.5v-950q0 -10 -7.5 -17.5t-17.5 -7.5h-850q-10 0 -17.5 7.5t-7.5 17.5v975 q0 25 18 43l139 139q18 18 43 18z" />
|
||||
<glyph unicode="" d="M250 1200h800q21 0 35.5 -14.5t14.5 -35.5v-1150l-450 444l-450 -445v1151q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M822 1200h-444q-11 0 -19 -7.5t-9 -17.5l-78 -301q-7 -24 7 -45l57 -108q6 -9 17.5 -15t21.5 -6h450q10 0 21.5 6t17.5 15l62 108q14 21 7 45l-83 301q-1 10 -9 17.5t-19 7.5zM1175 800h-150q-10 0 -21 -6.5t-15 -15.5l-78 -156q-4 -9 -15 -15.5t-21 -6.5h-550 q-10 0 -21 6.5t-15 15.5l-78 156q-4 9 -15 15.5t-21 6.5h-150q-10 0 -17.5 -7.5t-7.5 -17.5v-650q0 -10 7.5 -17.5t17.5 -7.5h150q10 0 17.5 7.5t7.5 17.5v150q0 10 7.5 17.5t17.5 7.5h750q10 0 17.5 -7.5t7.5 -17.5v-150q0 -10 7.5 -17.5t17.5 -7.5h150q10 0 17.5 7.5 t7.5 17.5v650q0 10 -7.5 17.5t-17.5 7.5zM850 200h-500q-10 0 -19.5 -7t-11.5 -17l-38 -152q-2 -10 3.5 -17t15.5 -7h600q10 0 15.5 7t3.5 17l-38 152q-2 10 -11.5 17t-19.5 7z" />
|
||||
<glyph unicode="" d="M500 1100h200q56 0 102.5 -20.5t72.5 -50t44 -59t25 -50.5l6 -20h150q41 0 70.5 -29.5t29.5 -70.5v-600q0 -41 -29.5 -70.5t-70.5 -29.5h-1000q-41 0 -70.5 29.5t-29.5 70.5v600q0 41 29.5 70.5t70.5 29.5h150q2 8 6.5 21.5t24 48t45 61t72 48t102.5 21.5zM900 800v-100 h100v100h-100zM600 730q-95 0 -162.5 -67.5t-67.5 -162.5t67.5 -162.5t162.5 -67.5t162.5 67.5t67.5 162.5t-67.5 162.5t-162.5 67.5zM600 603q43 0 73 -30t30 -73t-30 -73t-73 -30t-73 30t-30 73t30 73t73 30z" />
|
||||
<glyph unicode="" d="M681 1199l385 -998q20 -50 60 -92q18 -19 36.5 -29.5t27.5 -11.5l10 -2v-66h-417v66q53 0 75 43.5t5 88.5l-82 222h-391q-58 -145 -92 -234q-11 -34 -6.5 -57t25.5 -37t46 -20t55 -6v-66h-365v66q56 24 84 52q12 12 25 30.5t20 31.5l7 13l399 1006h93zM416 521h340 l-162 457z" />
|
||||
<glyph unicode="" d="M753 641q5 -1 14.5 -4.5t36 -15.5t50.5 -26.5t53.5 -40t50.5 -54.5t35.5 -70t14.5 -87q0 -67 -27.5 -125.5t-71.5 -97.5t-98.5 -66.5t-108.5 -40.5t-102 -13h-500v89q41 7 70.5 32.5t29.5 65.5v827q0 24 -0.5 34t-3.5 24t-8.5 19.5t-17 13.5t-28 12.5t-42.5 11.5v71 l471 -1q57 0 115.5 -20.5t108 -57t80.5 -94t31 -124.5q0 -51 -15.5 -96.5t-38 -74.5t-45 -50.5t-38.5 -30.5zM400 700h139q78 0 130.5 48.5t52.5 122.5q0 41 -8.5 70.5t-29.5 55.5t-62.5 39.5t-103.5 13.5h-118v-350zM400 200h216q80 0 121 50.5t41 130.5q0 90 -62.5 154.5 t-156.5 64.5h-159v-400z" />
|
||||
<glyph unicode="" d="M877 1200l2 -57q-83 -19 -116 -45.5t-40 -66.5l-132 -839q-9 -49 13 -69t96 -26v-97h-500v97q186 16 200 98l173 832q3 17 3 30t-1.5 22.5t-9 17.5t-13.5 12.5t-21.5 10t-26 8.5t-33.5 10q-13 3 -19 5v57h425z" />
|
||||
<glyph unicode="" d="M1300 900h-50q0 21 -4 37t-9.5 26.5t-18 17.5t-22 11t-28.5 5.5t-31 2t-37 0.5h-200v-850q0 -22 25 -34.5t50 -13.5l25 -2v-100h-400v100q4 0 11 0.5t24 3t30 7t24 15t11 24.5v850h-200q-25 0 -37 -0.5t-31 -2t-28.5 -5.5t-22 -11t-18 -17.5t-9.5 -26.5t-4 -37h-50v300 h1000v-300zM175 1000h-75v-800h75l-125 -167l-125 167h75v800h-75l125 167z" />
|
||||
<glyph unicode="" d="M1100 900h-50q0 21 -4 37t-9.5 26.5t-18 17.5t-22 11t-28.5 5.5t-31 2t-37 0.5h-200v-650q0 -22 25 -34.5t50 -13.5l25 -2v-100h-400v100q4 0 11 0.5t24 3t30 7t24 15t11 24.5v650h-200q-25 0 -37 -0.5t-31 -2t-28.5 -5.5t-22 -11t-18 -17.5t-9.5 -26.5t-4 -37h-50v300 h1000v-300zM1167 50l-167 -125v75h-800v-75l-167 125l167 125v-75h800v75z" />
|
||||
<glyph unicode="" d="M50 1100h600q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-600q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5zM50 800h1000q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-1000q-21 0 -35.5 14.5t-14.5 35.5v100 q0 21 14.5 35.5t35.5 14.5zM50 500h800q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-800q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5zM50 200h1100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-1100 q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M250 1100h700q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-700q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5zM50 800h1100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-1100q-21 0 -35.5 14.5t-14.5 35.5v100 q0 21 14.5 35.5t35.5 14.5zM250 500h700q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-700q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5zM50 200h1100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-1100 q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M500 950v100q0 21 14.5 35.5t35.5 14.5h600q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-600q-21 0 -35.5 14.5t-14.5 35.5zM100 650v100q0 21 14.5 35.5t35.5 14.5h1000q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-1000 q-21 0 -35.5 14.5t-14.5 35.5zM300 350v100q0 21 14.5 35.5t35.5 14.5h800q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-800q-21 0 -35.5 14.5t-14.5 35.5zM0 50v100q0 21 14.5 35.5t35.5 14.5h1100q21 0 35.5 -14.5t14.5 -35.5v-100 q0 -21 -14.5 -35.5t-35.5 -14.5h-1100q-21 0 -35.5 14.5t-14.5 35.5z" />
|
||||
<glyph unicode="" d="M50 1100h1100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-1100q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5zM50 800h1100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-1100q-21 0 -35.5 14.5t-14.5 35.5v100 q0 21 14.5 35.5t35.5 14.5zM50 500h1100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-1100q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5zM50 200h1100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-1100 q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M50 1100h100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5zM350 1100h800q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-800q-21 0 -35.5 14.5t-14.5 35.5v100 q0 21 14.5 35.5t35.5 14.5zM50 800h100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5zM350 800h800q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-800 q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5zM50 500h100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5zM350 500h800q21 0 35.5 -14.5t14.5 -35.5v-100 q0 -21 -14.5 -35.5t-35.5 -14.5h-800q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5zM50 200h100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5zM350 200h800 q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-800q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M400 0h-100v1100h100v-1100zM550 1100h100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5zM550 800h500q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-500 q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5zM267 550l-167 -125v75h-200v100h200v75zM550 500h300q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-300q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5zM550 200h600 q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-600q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M50 1100h100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5zM900 0h-100v1100h100v-1100zM50 800h500q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-500 q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5zM1100 600h200v-100h-200v-75l-167 125l167 125v-75zM50 500h300q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-300q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5zM50 200h600 q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-600q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M75 1000h750q31 0 53 -22t22 -53v-650q0 -31 -22 -53t-53 -22h-750q-31 0 -53 22t-22 53v650q0 31 22 53t53 22zM1200 300l-300 300l300 300v-600z" />
|
||||
<glyph unicode="" d="M44 1100h1112q18 0 31 -13t13 -31v-1012q0 -18 -13 -31t-31 -13h-1112q-18 0 -31 13t-13 31v1012q0 18 13 31t31 13zM100 1000v-737l247 182l298 -131l-74 156l293 318l236 -288v500h-1000zM342 884q56 0 95 -39t39 -94.5t-39 -95t-95 -39.5t-95 39.5t-39 95t39 94.5 t95 39z" />
|
||||
<glyph unicode="" d="M648 1169q117 0 216 -60t156.5 -161t57.5 -218q0 -115 -70 -258q-69 -109 -158 -225.5t-143 -179.5l-54 -62q-9 8 -25.5 24.5t-63.5 67.5t-91 103t-98.5 128t-95.5 148q-60 132 -60 249q0 88 34 169.5t91.5 142t137 96.5t166.5 36zM652.5 974q-91.5 0 -156.5 -65 t-65 -157t65 -156.5t156.5 -64.5t156.5 64.5t65 156.5t-65 157t-156.5 65z" />
|
||||
<glyph unicode="" d="M600 1177q117 0 224 -45.5t184.5 -123t123 -184.5t45.5 -224t-45.5 -224t-123 -184.5t-184.5 -123t-224 -45.5t-224 45.5t-184.5 123t-123 184.5t-45.5 224t45.5 224t123 184.5t184.5 123t224 45.5zM600 173v854q-116 0 -214.5 -57t-155.5 -155.5t-57 -214.5t57 -214.5 t155.5 -155.5t214.5 -57z" />
|
||||
<glyph unicode="" d="M554 1295q21 -72 57.5 -143.5t76 -130t83 -118t82.5 -117t70 -116t49.5 -126t18.5 -136.5q0 -71 -25.5 -135t-68.5 -111t-99 -82t-118.5 -54t-125.5 -23q-84 5 -161.5 34t-139.5 78.5t-99 125t-37 164.5q0 69 18 136.5t49.5 126.5t69.5 116.5t81.5 117.5t83.5 119 t76.5 131t58.5 143zM344 710q-23 -33 -43.5 -70.5t-40.5 -102.5t-17 -123q1 -37 14.5 -69.5t30 -52t41 -37t38.5 -24.5t33 -15q21 -7 32 -1t13 22l6 34q2 10 -2.5 22t-13.5 19q-5 4 -14 12t-29.5 40.5t-32.5 73.5q-26 89 6 271q2 11 -6 11q-8 1 -15 -10z" />
|
||||
<glyph unicode="" d="M1000 1013l108 115q2 1 5 2t13 2t20.5 -1t25 -9.5t28.5 -21.5q22 -22 27 -43t0 -32l-6 -10l-108 -115zM350 1100h400q50 0 105 -13l-187 -187h-368q-41 0 -70.5 -29.5t-29.5 -70.5v-500q0 -41 29.5 -70.5t70.5 -29.5h500q41 0 70.5 29.5t29.5 70.5v182l200 200v-332 q0 -165 -93.5 -257.5t-256.5 -92.5h-400q-165 0 -257.5 92.5t-92.5 257.5v400q0 165 92.5 257.5t257.5 92.5zM1009 803l-362 -362l-161 -50l55 170l355 355z" />
|
||||
<glyph unicode="" d="M350 1100h361q-164 -146 -216 -200h-195q-41 0 -70.5 -29.5t-29.5 -70.5v-500q0 -41 29.5 -70.5t70.5 -29.5h500q41 0 70.5 29.5t29.5 70.5l200 153v-103q0 -165 -92.5 -257.5t-257.5 -92.5h-400q-165 0 -257.5 92.5t-92.5 257.5v400q0 165 92.5 257.5t257.5 92.5z M824 1073l339 -301q8 -7 8 -17.5t-8 -17.5l-340 -306q-7 -6 -12.5 -4t-6.5 11v203q-26 1 -54.5 0t-78.5 -7.5t-92 -17.5t-86 -35t-70 -57q10 59 33 108t51.5 81.5t65 58.5t68.5 40.5t67 24.5t56 13.5t40 4.5v210q1 10 6.5 12.5t13.5 -4.5z" />
|
||||
<glyph unicode="" d="M350 1100h350q60 0 127 -23l-178 -177h-349q-41 0 -70.5 -29.5t-29.5 -70.5v-500q0 -41 29.5 -70.5t70.5 -29.5h500q41 0 70.5 29.5t29.5 70.5v69l200 200v-219q0 -165 -92.5 -257.5t-257.5 -92.5h-400q-165 0 -257.5 92.5t-92.5 257.5v400q0 165 92.5 257.5t257.5 92.5z M643 639l395 395q7 7 17.5 7t17.5 -7l101 -101q7 -7 7 -17.5t-7 -17.5l-531 -532q-7 -7 -17.5 -7t-17.5 7l-248 248q-7 7 -7 17.5t7 17.5l101 101q7 7 17.5 7t17.5 -7l111 -111q8 -7 18 -7t18 7z" />
|
||||
<glyph unicode="" d="M318 918l264 264q8 8 18 8t18 -8l260 -264q7 -8 4.5 -13t-12.5 -5h-170v-200h200v173q0 10 5 12t13 -5l264 -260q8 -7 8 -17.5t-8 -17.5l-264 -265q-8 -7 -13 -5t-5 12v173h-200v-200h170q10 0 12.5 -5t-4.5 -13l-260 -264q-8 -8 -18 -8t-18 8l-264 264q-8 8 -5.5 13 t12.5 5h175v200h-200v-173q0 -10 -5 -12t-13 5l-264 265q-8 7 -8 17.5t8 17.5l264 260q8 7 13 5t5 -12v-173h200v200h-175q-10 0 -12.5 5t5.5 13z" />
|
||||
<glyph unicode="" d="M250 1100h100q21 0 35.5 -14.5t14.5 -35.5v-438l464 453q15 14 25.5 10t10.5 -25v-1000q0 -21 -10.5 -25t-25.5 10l-464 453v-438q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5v1000q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M50 1100h100q21 0 35.5 -14.5t14.5 -35.5v-438l464 453q15 14 25.5 10t10.5 -25v-438l464 453q15 14 25.5 10t10.5 -25v-1000q0 -21 -10.5 -25t-25.5 10l-464 453v-438q0 -21 -10.5 -25t-25.5 10l-464 453v-438q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5 t-14.5 35.5v1000q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M1200 1050v-1000q0 -21 -10.5 -25t-25.5 10l-464 453v-438q0 -21 -10.5 -25t-25.5 10l-492 480q-15 14 -15 35t15 35l492 480q15 14 25.5 10t10.5 -25v-438l464 453q15 14 25.5 10t10.5 -25z" />
|
||||
<glyph unicode="" d="M243 1074l814 -498q18 -11 18 -26t-18 -26l-814 -498q-18 -11 -30.5 -4t-12.5 28v1000q0 21 12.5 28t30.5 -4z" />
|
||||
<glyph unicode="" d="M250 1000h200q21 0 35.5 -14.5t14.5 -35.5v-800q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5v800q0 21 14.5 35.5t35.5 14.5zM650 1000h200q21 0 35.5 -14.5t14.5 -35.5v-800q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5v800 q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M1100 950v-800q0 -21 -14.5 -35.5t-35.5 -14.5h-800q-21 0 -35.5 14.5t-14.5 35.5v800q0 21 14.5 35.5t35.5 14.5h800q21 0 35.5 -14.5t14.5 -35.5z" />
|
||||
<glyph unicode="" d="M500 612v438q0 21 10.5 25t25.5 -10l492 -480q15 -14 15 -35t-15 -35l-492 -480q-15 -14 -25.5 -10t-10.5 25v438l-464 -453q-15 -14 -25.5 -10t-10.5 25v1000q0 21 10.5 25t25.5 -10z" />
|
||||
<glyph unicode="" d="M1048 1102l100 1q20 0 35 -14.5t15 -35.5l5 -1000q0 -21 -14.5 -35.5t-35.5 -14.5l-100 -1q-21 0 -35.5 14.5t-14.5 35.5l-2 437l-463 -454q-14 -15 -24.5 -10.5t-10.5 25.5l-2 437l-462 -455q-15 -14 -25.5 -9.5t-10.5 24.5l-5 1000q0 21 10.5 25.5t25.5 -10.5l466 -450 l-2 438q0 20 10.5 24.5t25.5 -9.5l466 -451l-2 438q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M850 1100h100q21 0 35.5 -14.5t14.5 -35.5v-1000q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5v438l-464 -453q-15 -14 -25.5 -10t-10.5 25v1000q0 21 10.5 25t25.5 -10l464 -453v438q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M686 1081l501 -540q15 -15 10.5 -26t-26.5 -11h-1042q-22 0 -26.5 11t10.5 26l501 540q15 15 36 15t36 -15zM150 400h1000q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-1000q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M885 900l-352 -353l352 -353l-197 -198l-552 552l552 550z" />
|
||||
<glyph unicode="" d="M1064 547l-551 -551l-198 198l353 353l-353 353l198 198z" />
|
||||
<glyph unicode="" d="M600 1177q117 0 224 -45.5t184.5 -123t123 -184.5t45.5 -224t-45.5 -224t-123 -184.5t-184.5 -123t-224 -45.5t-224 45.5t-184.5 123t-123 184.5t-45.5 224t45.5 224t123 184.5t184.5 123t224 45.5zM650 900h-100q-21 0 -35.5 -14.5t-14.5 -35.5v-150h-150 q-21 0 -35.5 -14.5t-14.5 -35.5v-100q0 -21 14.5 -35.5t35.5 -14.5h150v-150q0 -21 14.5 -35.5t35.5 -14.5h100q21 0 35.5 14.5t14.5 35.5v150h150q21 0 35.5 14.5t14.5 35.5v100q0 21 -14.5 35.5t-35.5 14.5h-150v150q0 21 -14.5 35.5t-35.5 14.5z" />
|
||||
<glyph unicode="" d="M600 1177q117 0 224 -45.5t184.5 -123t123 -184.5t45.5 -224t-45.5 -224t-123 -184.5t-184.5 -123t-224 -45.5t-224 45.5t-184.5 123t-123 184.5t-45.5 224t45.5 224t123 184.5t184.5 123t224 45.5zM850 700h-500q-21 0 -35.5 -14.5t-14.5 -35.5v-100q0 -21 14.5 -35.5 t35.5 -14.5h500q21 0 35.5 14.5t14.5 35.5v100q0 21 -14.5 35.5t-35.5 14.5z" />
|
||||
<glyph unicode="" d="M600 1177q117 0 224 -45.5t184.5 -123t123 -184.5t45.5 -224t-45.5 -224t-123 -184.5t-184.5 -123t-224 -45.5t-224 45.5t-184.5 123t-123 184.5t-45.5 224t45.5 224t123 184.5t184.5 123t224 45.5zM741.5 913q-12.5 0 -21.5 -9l-120 -120l-120 120q-9 9 -21.5 9 t-21.5 -9l-141 -141q-9 -9 -9 -21.5t9 -21.5l120 -120l-120 -120q-9 -9 -9 -21.5t9 -21.5l141 -141q9 -9 21.5 -9t21.5 9l120 120l120 -120q9 -9 21.5 -9t21.5 9l141 141q9 9 9 21.5t-9 21.5l-120 120l120 120q9 9 9 21.5t-9 21.5l-141 141q-9 9 -21.5 9z" />
|
||||
<glyph unicode="" d="M600 1177q117 0 224 -45.5t184.5 -123t123 -184.5t45.5 -224t-45.5 -224t-123 -184.5t-184.5 -123t-224 -45.5t-224 45.5t-184.5 123t-123 184.5t-45.5 224t45.5 224t123 184.5t184.5 123t224 45.5zM546 623l-84 85q-7 7 -17.5 7t-18.5 -7l-139 -139q-7 -8 -7 -18t7 -18 l242 -241q7 -8 17.5 -8t17.5 8l375 375q7 7 7 17.5t-7 18.5l-139 139q-7 7 -17.5 7t-17.5 -7z" />
|
||||
<glyph unicode="" d="M600 1177q117 0 224 -45.5t184.5 -123t123 -184.5t45.5 -224t-45.5 -224t-123 -184.5t-184.5 -123t-224 -45.5t-224 45.5t-184.5 123t-123 184.5t-45.5 224t45.5 224t123 184.5t184.5 123t224 45.5zM588 941q-29 0 -59 -5.5t-63 -20.5t-58 -38.5t-41.5 -63t-16.5 -89.5 q0 -25 20 -25h131q30 -5 35 11q6 20 20.5 28t45.5 8q20 0 31.5 -10.5t11.5 -28.5q0 -23 -7 -34t-26 -18q-1 0 -13.5 -4t-19.5 -7.5t-20 -10.5t-22 -17t-18.5 -24t-15.5 -35t-8 -46q-1 -8 5.5 -16.5t20.5 -8.5h173q7 0 22 8t35 28t37.5 48t29.5 74t12 100q0 47 -17 83 t-42.5 57t-59.5 34.5t-64 18t-59 4.5zM675 400h-150q-10 0 -17.5 -7.5t-7.5 -17.5v-150q0 -10 7.5 -17.5t17.5 -7.5h150q10 0 17.5 7.5t7.5 17.5v150q0 10 -7.5 17.5t-17.5 7.5z" />
|
||||
<glyph unicode="" d="M600 1177q117 0 224 -45.5t184.5 -123t123 -184.5t45.5 -224t-45.5 -224t-123 -184.5t-184.5 -123t-224 -45.5t-224 45.5t-184.5 123t-123 184.5t-45.5 224t45.5 224t123 184.5t184.5 123t224 45.5zM675 1000h-150q-10 0 -17.5 -7.5t-7.5 -17.5v-150q0 -10 7.5 -17.5 t17.5 -7.5h150q10 0 17.5 7.5t7.5 17.5v150q0 10 -7.5 17.5t-17.5 7.5zM675 700h-250q-10 0 -17.5 -7.5t-7.5 -17.5v-50q0 -10 7.5 -17.5t17.5 -7.5h75v-200h-75q-10 0 -17.5 -7.5t-7.5 -17.5v-50q0 -10 7.5 -17.5t17.5 -7.5h350q10 0 17.5 7.5t7.5 17.5v50q0 10 -7.5 17.5 t-17.5 7.5h-75v275q0 10 -7.5 17.5t-17.5 7.5z" />
|
||||
<glyph unicode="" d="M525 1200h150q10 0 17.5 -7.5t7.5 -17.5v-194q103 -27 178.5 -102.5t102.5 -178.5h194q10 0 17.5 -7.5t7.5 -17.5v-150q0 -10 -7.5 -17.5t-17.5 -7.5h-194q-27 -103 -102.5 -178.5t-178.5 -102.5v-194q0 -10 -7.5 -17.5t-17.5 -7.5h-150q-10 0 -17.5 7.5t-7.5 17.5v194 q-103 27 -178.5 102.5t-102.5 178.5h-194q-10 0 -17.5 7.5t-7.5 17.5v150q0 10 7.5 17.5t17.5 7.5h194q27 103 102.5 178.5t178.5 102.5v194q0 10 7.5 17.5t17.5 7.5zM700 893v-168q0 -10 -7.5 -17.5t-17.5 -7.5h-150q-10 0 -17.5 7.5t-7.5 17.5v168q-68 -23 -119 -74 t-74 -119h168q10 0 17.5 -7.5t7.5 -17.5v-150q0 -10 -7.5 -17.5t-17.5 -7.5h-168q23 -68 74 -119t119 -74v168q0 10 7.5 17.5t17.5 7.5h150q10 0 17.5 -7.5t7.5 -17.5v-168q68 23 119 74t74 119h-168q-10 0 -17.5 7.5t-7.5 17.5v150q0 10 7.5 17.5t17.5 7.5h168 q-23 68 -74 119t-119 74z" />
|
||||
<glyph unicode="" d="M600 1177q117 0 224 -45.5t184.5 -123t123 -184.5t45.5 -224t-45.5 -224t-123 -184.5t-184.5 -123t-224 -45.5t-224 45.5t-184.5 123t-123 184.5t-45.5 224t45.5 224t123 184.5t184.5 123t224 45.5zM600 1027q-116 0 -214.5 -57t-155.5 -155.5t-57 -214.5t57 -214.5 t155.5 -155.5t214.5 -57t214.5 57t155.5 155.5t57 214.5t-57 214.5t-155.5 155.5t-214.5 57zM759 823l64 -64q7 -7 7 -17.5t-7 -17.5l-124 -124l124 -124q7 -7 7 -17.5t-7 -17.5l-64 -64q-7 -7 -17.5 -7t-17.5 7l-124 124l-124 -124q-7 -7 -17.5 -7t-17.5 7l-64 64 q-7 7 -7 17.5t7 17.5l124 124l-124 124q-7 7 -7 17.5t7 17.5l64 64q7 7 17.5 7t17.5 -7l124 -124l124 124q7 7 17.5 7t17.5 -7z" />
|
||||
<glyph unicode="" d="M600 1177q117 0 224 -45.5t184.5 -123t123 -184.5t45.5 -224t-45.5 -224t-123 -184.5t-184.5 -123t-224 -45.5t-224 45.5t-184.5 123t-123 184.5t-45.5 224t45.5 224t123 184.5t184.5 123t224 45.5zM600 1027q-116 0 -214.5 -57t-155.5 -155.5t-57 -214.5t57 -214.5 t155.5 -155.5t214.5 -57t214.5 57t155.5 155.5t57 214.5t-57 214.5t-155.5 155.5t-214.5 57zM782 788l106 -106q7 -7 7 -17.5t-7 -17.5l-320 -321q-8 -7 -18 -7t-18 7l-202 203q-8 7 -8 17.5t8 17.5l106 106q7 8 17.5 8t17.5 -8l79 -79l197 197q7 7 17.5 7t17.5 -7z" />
|
||||
<glyph unicode="" d="M600 1177q117 0 224 -45.5t184.5 -123t123 -184.5t45.5 -224t-45.5 -224t-123 -184.5t-184.5 -123t-224 -45.5t-224 45.5t-184.5 123t-123 184.5t-45.5 224t45.5 224t123 184.5t184.5 123t224 45.5zM600 1027q-116 0 -214.5 -57t-155.5 -155.5t-57 -214.5q0 -120 65 -225 l587 587q-105 65 -225 65zM965 819l-584 -584q104 -62 219 -62q116 0 214.5 57t155.5 155.5t57 214.5q0 115 -62 219z" />
|
||||
<glyph unicode="" d="M39 582l522 427q16 13 27.5 8t11.5 -26v-291h550q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-550v-291q0 -21 -11.5 -26t-27.5 8l-522 427q-16 13 -16 32t16 32z" />
|
||||
<glyph unicode="" d="M639 1009l522 -427q16 -13 16 -32t-16 -32l-522 -427q-16 -13 -27.5 -8t-11.5 26v291h-550q-21 0 -35.5 14.5t-14.5 35.5v200q0 21 14.5 35.5t35.5 14.5h550v291q0 21 11.5 26t27.5 -8z" />
|
||||
<glyph unicode="" d="M682 1161l427 -522q13 -16 8 -27.5t-26 -11.5h-291v-550q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5v550h-291q-21 0 -26 11.5t8 27.5l427 522q13 16 32 16t32 -16z" />
|
||||
<glyph unicode="" d="M550 1200h200q21 0 35.5 -14.5t14.5 -35.5v-550h291q21 0 26 -11.5t-8 -27.5l-427 -522q-13 -16 -32 -16t-32 16l-427 522q-13 16 -8 27.5t26 11.5h291v550q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M639 1109l522 -427q16 -13 16 -32t-16 -32l-522 -427q-16 -13 -27.5 -8t-11.5 26v291q-94 -2 -182 -20t-170.5 -52t-147 -92.5t-100.5 -135.5q5 105 27 193.5t67.5 167t113 135t167 91.5t225.5 42v262q0 21 11.5 26t27.5 -8z" />
|
||||
<glyph unicode="" d="M850 1200h300q21 0 35.5 -14.5t14.5 -35.5v-300q0 -21 -10.5 -25t-24.5 10l-94 94l-249 -249q-8 -7 -18 -7t-18 7l-106 106q-7 8 -7 18t7 18l249 249l-94 94q-14 14 -10 24.5t25 10.5zM350 0h-300q-21 0 -35.5 14.5t-14.5 35.5v300q0 21 10.5 25t24.5 -10l94 -94l249 249 q8 7 18 7t18 -7l106 -106q7 -8 7 -18t-7 -18l-249 -249l94 -94q14 -14 10 -24.5t-25 -10.5z" />
|
||||
<glyph unicode="" d="M1014 1120l106 -106q7 -8 7 -18t-7 -18l-249 -249l94 -94q14 -14 10 -24.5t-25 -10.5h-300q-21 0 -35.5 14.5t-14.5 35.5v300q0 21 10.5 25t24.5 -10l94 -94l249 249q8 7 18 7t18 -7zM250 600h300q21 0 35.5 -14.5t14.5 -35.5v-300q0 -21 -10.5 -25t-24.5 10l-94 94 l-249 -249q-8 -7 -18 -7t-18 7l-106 106q-7 8 -7 18t7 18l249 249l-94 94q-14 14 -10 24.5t25 10.5z" />
|
||||
<glyph unicode="" d="M600 1177q117 0 224 -45.5t184.5 -123t123 -184.5t45.5 -224t-45.5 -224t-123 -184.5t-184.5 -123t-224 -45.5t-224 45.5t-184.5 123t-123 184.5t-45.5 224t45.5 224t123 184.5t184.5 123t224 45.5zM704 900h-208q-20 0 -32 -14.5t-8 -34.5l58 -302q4 -20 21.5 -34.5 t37.5 -14.5h54q20 0 37.5 14.5t21.5 34.5l58 302q4 20 -8 34.5t-32 14.5zM675 400h-150q-10 0 -17.5 -7.5t-7.5 -17.5v-150q0 -10 7.5 -17.5t17.5 -7.5h150q10 0 17.5 7.5t7.5 17.5v150q0 10 -7.5 17.5t-17.5 7.5z" />
|
||||
<glyph unicode="" d="M260 1200q9 0 19 -2t15 -4l5 -2q22 -10 44 -23l196 -118q21 -13 36 -24q29 -21 37 -12q11 13 49 35l196 118q22 13 45 23q17 7 38 7q23 0 47 -16.5t37 -33.5l13 -16q14 -21 18 -45l25 -123l8 -44q1 -9 8.5 -14.5t17.5 -5.5h61q10 0 17.5 -7.5t7.5 -17.5v-50 q0 -10 -7.5 -17.5t-17.5 -7.5h-50q-10 0 -17.5 -7.5t-7.5 -17.5v-175h-400v300h-200v-300h-400v175q0 10 -7.5 17.5t-17.5 7.5h-50q-10 0 -17.5 7.5t-7.5 17.5v50q0 10 7.5 17.5t17.5 7.5h61q11 0 18 3t7 8q0 4 9 52l25 128q5 25 19 45q2 3 5 7t13.5 15t21.5 19.5t26.5 15.5 t29.5 7zM915 1079l-166 -162q-7 -7 -5 -12t12 -5h219q10 0 15 7t2 17l-51 149q-3 10 -11 12t-15 -6zM463 917l-177 157q-8 7 -16 5t-11 -12l-51 -143q-3 -10 2 -17t15 -7h231q11 0 12.5 5t-5.5 12zM500 0h-375q-10 0 -17.5 7.5t-7.5 17.5v375h400v-400zM1100 400v-375 q0 -10 -7.5 -17.5t-17.5 -7.5h-375v400h400z" />
|
||||
<glyph unicode="" d="M1165 1190q8 3 21 -6.5t13 -17.5q-2 -178 -24.5 -323.5t-55.5 -245.5t-87 -174.5t-102.5 -118.5t-118 -68.5t-118.5 -33t-120 -4.5t-105 9.5t-90 16.5q-61 12 -78 11q-4 1 -12.5 0t-34 -14.5t-52.5 -40.5l-153 -153q-26 -24 -37 -14.5t-11 43.5q0 64 42 102q8 8 50.5 45 t66.5 58q19 17 35 47t13 61q-9 55 -10 102.5t7 111t37 130t78 129.5q39 51 80 88t89.5 63.5t94.5 45t113.5 36t129 31t157.5 37t182 47.5zM1116 1098q-8 9 -22.5 -3t-45.5 -50q-38 -47 -119 -103.5t-142 -89.5l-62 -33q-56 -30 -102 -57t-104 -68t-102.5 -80.5t-85.5 -91 t-64 -104.5q-24 -56 -31 -86t2 -32t31.5 17.5t55.5 59.5q25 30 94 75.5t125.5 77.5t147.5 81q70 37 118.5 69t102 79.5t99 111t86.5 148.5q22 50 24 60t-6 19z" />
|
||||
<glyph unicode="" d="M653 1231q-39 -67 -54.5 -131t-10.5 -114.5t24.5 -96.5t47.5 -80t63.5 -62.5t68.5 -46.5t65 -30q-4 7 -17.5 35t-18.5 39.5t-17 39.5t-17 43t-13 42t-9.5 44.5t-2 42t4 43t13.5 39t23 38.5q96 -42 165 -107.5t105 -138t52 -156t13 -159t-19 -149.5q-13 -55 -44 -106.5 t-68 -87t-78.5 -64.5t-72.5 -45t-53 -22q-72 -22 -127 -11q-31 6 -13 19q6 3 17 7q13 5 32.5 21t41 44t38.5 63.5t21.5 81.5t-6.5 94.5t-50 107t-104 115.5q10 -104 -0.5 -189t-37 -140.5t-65 -93t-84 -52t-93.5 -11t-95 24.5q-80 36 -131.5 114t-53.5 171q-2 23 0 49.5 t4.5 52.5t13.5 56t27.5 60t46 64.5t69.5 68.5q-8 -53 -5 -102.5t17.5 -90t34 -68.5t44.5 -39t49 -2q31 13 38.5 36t-4.5 55t-29 64.5t-36 75t-26 75.5q-15 85 2 161.5t53.5 128.5t85.5 92.5t93.5 61t81.5 25.5z" />
|
||||
<glyph unicode="" d="M600 1094q82 0 160.5 -22.5t140 -59t116.5 -82.5t94.5 -95t68 -95t42.5 -82.5t14 -57.5t-14 -57.5t-43 -82.5t-68.5 -95t-94.5 -95t-116.5 -82.5t-140 -59t-159.5 -22.5t-159.5 22.5t-140 59t-116.5 82.5t-94.5 95t-68.5 95t-43 82.5t-14 57.5t14 57.5t42.5 82.5t68 95 t94.5 95t116.5 82.5t140 59t160.5 22.5zM888 829q-15 15 -18 12t5 -22q25 -57 25 -119q0 -124 -88 -212t-212 -88t-212 88t-88 212q0 59 23 114q8 19 4.5 22t-17.5 -12q-70 -69 -160 -184q-13 -16 -15 -40.5t9 -42.5q22 -36 47 -71t70 -82t92.5 -81t113 -58.5t133.5 -24.5 t133.5 24t113 58.5t92.5 81.5t70 81.5t47 70.5q11 18 9 42.5t-14 41.5q-90 117 -163 189zM448 727l-35 -36q-15 -15 -19.5 -38.5t4.5 -41.5q37 -68 93 -116q16 -13 38.5 -11t36.5 17l35 34q14 15 12.5 33.5t-16.5 33.5q-44 44 -89 117q-11 18 -28 20t-32 -12z" />
|
||||
<glyph unicode="" d="M592 0h-148l31 120q-91 20 -175.5 68.5t-143.5 106.5t-103.5 119t-66.5 110t-22 76q0 21 14 57.5t42.5 82.5t68 95t94.5 95t116.5 82.5t140 59t160.5 22.5q61 0 126 -15l32 121h148zM944 770l47 181q108 -85 176.5 -192t68.5 -159q0 -26 -19.5 -71t-59.5 -102t-93 -112 t-129 -104.5t-158 -75.5l46 173q77 49 136 117t97 131q11 18 9 42.5t-14 41.5q-54 70 -107 130zM310 824q-70 -69 -160 -184q-13 -16 -15 -40.5t9 -42.5q18 -30 39 -60t57 -70.5t74 -73t90 -61t105 -41.5l41 154q-107 18 -178.5 101.5t-71.5 193.5q0 59 23 114q8 19 4.5 22 t-17.5 -12zM448 727l-35 -36q-15 -15 -19.5 -38.5t4.5 -41.5q37 -68 93 -116q16 -13 38.5 -11t36.5 17l12 11l22 86l-3 4q-44 44 -89 117q-11 18 -28 20t-32 -12z" />
|
||||
<glyph unicode="" d="M-90 100l642 1066q20 31 48 28.5t48 -35.5l642 -1056q21 -32 7.5 -67.5t-50.5 -35.5h-1294q-37 0 -50.5 34t7.5 66zM155 200h345v75q0 10 7.5 17.5t17.5 7.5h150q10 0 17.5 -7.5t7.5 -17.5v-75h345l-445 723zM496 700h208q20 0 32 -14.5t8 -34.5l-58 -252 q-4 -20 -21.5 -34.5t-37.5 -14.5h-54q-20 0 -37.5 14.5t-21.5 34.5l-58 252q-4 20 8 34.5t32 14.5z" />
|
||||
<glyph unicode="" d="M650 1200q62 0 106 -44t44 -106v-339l363 -325q15 -14 26 -38.5t11 -44.5v-41q0 -20 -12 -26.5t-29 5.5l-359 249v-263q100 -93 100 -113v-64q0 -21 -13 -29t-32 1l-205 128l-205 -128q-19 -9 -32 -1t-13 29v64q0 20 100 113v263l-359 -249q-17 -12 -29 -5.5t-12 26.5v41 q0 20 11 44.5t26 38.5l363 325v339q0 62 44 106t106 44z" />
|
||||
<glyph unicode="" d="M850 1200h100q21 0 35.5 -14.5t14.5 -35.5v-50h50q21 0 35.5 -14.5t14.5 -35.5v-150h-1100v150q0 21 14.5 35.5t35.5 14.5h50v50q0 21 14.5 35.5t35.5 14.5h100q21 0 35.5 -14.5t14.5 -35.5v-50h500v50q0 21 14.5 35.5t35.5 14.5zM1100 800v-750q0 -21 -14.5 -35.5 t-35.5 -14.5h-1000q-21 0 -35.5 14.5t-14.5 35.5v750h1100zM100 600v-100h100v100h-100zM300 600v-100h100v100h-100zM500 600v-100h100v100h-100zM700 600v-100h100v100h-100zM900 600v-100h100v100h-100zM100 400v-100h100v100h-100zM300 400v-100h100v100h-100zM500 400 v-100h100v100h-100zM700 400v-100h100v100h-100zM900 400v-100h100v100h-100zM100 200v-100h100v100h-100zM300 200v-100h100v100h-100zM500 200v-100h100v100h-100zM700 200v-100h100v100h-100zM900 200v-100h100v100h-100z" />
|
||||
<glyph unicode="" d="M1135 1165l249 -230q15 -14 15 -35t-15 -35l-249 -230q-14 -14 -24.5 -10t-10.5 25v150h-159l-600 -600h-291q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5h209l600 600h241v150q0 21 10.5 25t24.5 -10zM522 819l-141 -141l-122 122h-209q-21 0 -35.5 14.5 t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5h291zM1135 565l249 -230q15 -14 15 -35t-15 -35l-249 -230q-14 -14 -24.5 -10t-10.5 25v150h-241l-181 181l141 141l122 -122h159v150q0 21 10.5 25t24.5 -10z" />
|
||||
<glyph unicode="" d="M100 1100h1000q41 0 70.5 -29.5t29.5 -70.5v-600q0 -41 -29.5 -70.5t-70.5 -29.5h-596l-304 -300v300h-100q-41 0 -70.5 29.5t-29.5 70.5v600q0 41 29.5 70.5t70.5 29.5z" />
|
||||
<glyph unicode="" d="M150 1200h200q21 0 35.5 -14.5t14.5 -35.5v-250h-300v250q0 21 14.5 35.5t35.5 14.5zM850 1200h200q21 0 35.5 -14.5t14.5 -35.5v-250h-300v250q0 21 14.5 35.5t35.5 14.5zM1100 800v-300q0 -41 -3 -77.5t-15 -89.5t-32 -96t-58 -89t-89 -77t-129 -51t-174 -20t-174 20 t-129 51t-89 77t-58 89t-32 96t-15 89.5t-3 77.5v300h300v-250v-27v-42.5t1.5 -41t5 -38t10 -35t16.5 -30t25.5 -24.5t35 -19t46.5 -12t60 -4t60 4.5t46.5 12.5t35 19.5t25 25.5t17 30.5t10 35t5 38t2 40.5t-0.5 42v25v250h300z" />
|
||||
<glyph unicode="" d="M1100 411l-198 -199l-353 353l-353 -353l-197 199l551 551z" />
|
||||
<glyph unicode="" d="M1101 789l-550 -551l-551 551l198 199l353 -353l353 353z" />
|
||||
<glyph unicode="" d="M404 1000h746q21 0 35.5 -14.5t14.5 -35.5v-551h150q21 0 25 -10.5t-10 -24.5l-230 -249q-14 -15 -35 -15t-35 15l-230 249q-14 14 -10 24.5t25 10.5h150v401h-381zM135 984l230 -249q14 -14 10 -24.5t-25 -10.5h-150v-400h385l215 -200h-750q-21 0 -35.5 14.5 t-14.5 35.5v550h-150q-21 0 -25 10.5t10 24.5l230 249q14 15 35 15t35 -15z" />
|
||||
<glyph unicode="" d="M56 1200h94q17 0 31 -11t18 -27l38 -162h896q24 0 39 -18.5t10 -42.5l-100 -475q-5 -21 -27 -42.5t-55 -21.5h-633l48 -200h535q21 0 35.5 -14.5t14.5 -35.5t-14.5 -35.5t-35.5 -14.5h-50v-50q0 -21 -14.5 -35.5t-35.5 -14.5t-35.5 14.5t-14.5 35.5v50h-300v-50 q0 -21 -14.5 -35.5t-35.5 -14.5t-35.5 14.5t-14.5 35.5v50h-31q-18 0 -32.5 10t-20.5 19l-5 10l-201 961h-54q-20 0 -35 14.5t-15 35.5t15 35.5t35 14.5z" />
|
||||
<glyph unicode="" d="M1200 1000v-100h-1200v100h200q0 41 29.5 70.5t70.5 29.5h300q41 0 70.5 -29.5t29.5 -70.5h500zM0 800h1200v-800h-1200v800z" />
|
||||
<glyph unicode="" d="M200 800l-200 -400v600h200q0 41 29.5 70.5t70.5 29.5h300q42 0 71 -29.5t29 -70.5h500v-200h-1000zM1500 700l-300 -700h-1200l300 700h1200z" />
|
||||
<glyph unicode="" d="M635 1184l230 -249q14 -14 10 -24.5t-25 -10.5h-150v-601h150q21 0 25 -10.5t-10 -24.5l-230 -249q-14 -15 -35 -15t-35 15l-230 249q-14 14 -10 24.5t25 10.5h150v601h-150q-21 0 -25 10.5t10 24.5l230 249q14 15 35 15t35 -15z" />
|
||||
<glyph unicode="" d="M936 864l249 -229q14 -15 14 -35.5t-14 -35.5l-249 -229q-15 -15 -25.5 -10.5t-10.5 24.5v151h-600v-151q0 -20 -10.5 -24.5t-25.5 10.5l-249 229q-14 15 -14 35.5t14 35.5l249 229q15 15 25.5 10.5t10.5 -25.5v-149h600v149q0 21 10.5 25.5t25.5 -10.5z" />
|
||||
<glyph unicode="" d="M1169 400l-172 732q-5 23 -23 45.5t-38 22.5h-672q-20 0 -38 -20t-23 -41l-172 -739h1138zM1100 300h-1000q-41 0 -70.5 -29.5t-29.5 -70.5v-100q0 -41 29.5 -70.5t70.5 -29.5h1000q41 0 70.5 29.5t29.5 70.5v100q0 41 -29.5 70.5t-70.5 29.5zM800 100v100h100v-100h-100 zM1000 100v100h100v-100h-100z" />
|
||||
<glyph unicode="" d="M1150 1100q21 0 35.5 -14.5t14.5 -35.5v-850q0 -21 -14.5 -35.5t-35.5 -14.5t-35.5 14.5t-14.5 35.5v850q0 21 14.5 35.5t35.5 14.5zM1000 200l-675 200h-38l47 -276q3 -16 -5.5 -20t-29.5 -4h-7h-84q-20 0 -34.5 14t-18.5 35q-55 337 -55 351v250v6q0 16 1 23.5t6.5 14 t17.5 6.5h200l675 250v-850zM0 750v-250q-4 0 -11 0.5t-24 6t-30 15t-24 30t-11 48.5v50q0 26 10.5 46t25 30t29 16t25.5 7z" />
|
||||
<glyph unicode="" d="M553 1200h94q20 0 29 -10.5t3 -29.5l-18 -37q83 -19 144 -82.5t76 -140.5l63 -327l118 -173h17q19 0 33 -14.5t14 -35t-13 -40.5t-31 -27q-8 -4 -23 -9.5t-65 -19.5t-103 -25t-132.5 -20t-158.5 -9q-57 0 -115 5t-104 12t-88.5 15.5t-73.5 17.5t-54.5 16t-35.5 12l-11 4 q-18 8 -31 28t-13 40.5t14 35t33 14.5h17l118 173l63 327q15 77 76 140t144 83l-18 32q-6 19 3.5 32t28.5 13zM498 110q50 -6 102 -6q53 0 102 6q-12 -49 -39.5 -79.5t-62.5 -30.5t-63 30.5t-39 79.5z" />
|
||||
<glyph unicode="" d="M800 946l224 78l-78 -224l234 -45l-180 -155l180 -155l-234 -45l78 -224l-224 78l-45 -234l-155 180l-155 -180l-45 234l-224 -78l78 224l-234 45l180 155l-180 155l234 45l-78 224l224 -78l45 234l155 -180l155 180z" />
|
||||
<glyph unicode="" d="M650 1200h50q40 0 70 -40.5t30 -84.5v-150l-28 -125h328q40 0 70 -40.5t30 -84.5v-100q0 -45 -29 -74l-238 -344q-16 -24 -38 -40.5t-45 -16.5h-250q-7 0 -42 25t-66 50l-31 25h-61q-45 0 -72.5 18t-27.5 57v400q0 36 20 63l145 196l96 198q13 28 37.5 48t51.5 20z M650 1100l-100 -212l-150 -213v-375h100l136 -100h214l250 375v125h-450l50 225v175h-50zM50 800h100q21 0 35.5 -14.5t14.5 -35.5v-500q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5v500q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M600 1100h250q23 0 45 -16.5t38 -40.5l238 -344q29 -29 29 -74v-100q0 -44 -30 -84.5t-70 -40.5h-328q28 -118 28 -125v-150q0 -44 -30 -84.5t-70 -40.5h-50q-27 0 -51.5 20t-37.5 48l-96 198l-145 196q-20 27 -20 63v400q0 39 27.5 57t72.5 18h61q124 100 139 100z M50 1000h100q21 0 35.5 -14.5t14.5 -35.5v-500q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5v500q0 21 14.5 35.5t35.5 14.5zM636 1000l-136 -100h-100v-375l150 -213l100 -212h50v175l-50 225h450v125l-250 375h-214z" />
|
||||
<glyph unicode="" d="M356 873l363 230q31 16 53 -6l110 -112q13 -13 13.5 -32t-11.5 -34l-84 -121h302q84 0 138 -38t54 -110t-55 -111t-139 -39h-106l-131 -339q-6 -21 -19.5 -41t-28.5 -20h-342q-7 0 -90 81t-83 94v525q0 17 14 35.5t28 28.5zM400 792v-503l100 -89h293l131 339 q6 21 19.5 41t28.5 20h203q21 0 30.5 25t0.5 50t-31 25h-456h-7h-6h-5.5t-6 0.5t-5 1.5t-5 2t-4 2.5t-4 4t-2.5 4.5q-12 25 5 47l146 183l-86 83zM50 800h100q21 0 35.5 -14.5t14.5 -35.5v-500q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5v500 q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M475 1103l366 -230q2 -1 6 -3.5t14 -10.5t18 -16.5t14.5 -20t6.5 -22.5v-525q0 -13 -86 -94t-93 -81h-342q-15 0 -28.5 20t-19.5 41l-131 339h-106q-85 0 -139.5 39t-54.5 111t54 110t138 38h302l-85 121q-11 15 -10.5 34t13.5 32l110 112q22 22 53 6zM370 945l146 -183 q17 -22 5 -47q-2 -2 -3.5 -4.5t-4 -4t-4 -2.5t-5 -2t-5 -1.5t-6 -0.5h-6h-6.5h-6h-475v-100h221q15 0 29 -20t20 -41l130 -339h294l106 89v503l-342 236zM1050 800h100q21 0 35.5 -14.5t14.5 -35.5v-500q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5 v500q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M550 1294q72 0 111 -55t39 -139v-106l339 -131q21 -6 41 -19.5t20 -28.5v-342q0 -7 -81 -90t-94 -83h-525q-17 0 -35.5 14t-28.5 28l-9 14l-230 363q-16 31 6 53l112 110q13 13 32 13.5t34 -11.5l121 -84v302q0 84 38 138t110 54zM600 972v203q0 21 -25 30.5t-50 0.5 t-25 -31v-456v-7v-6v-5.5t-0.5 -6t-1.5 -5t-2 -5t-2.5 -4t-4 -4t-4.5 -2.5q-25 -12 -47 5l-183 146l-83 -86l236 -339h503l89 100v293l-339 131q-21 6 -41 19.5t-20 28.5zM450 200h500q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-500 q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M350 1100h500q21 0 35.5 14.5t14.5 35.5v100q0 21 -14.5 35.5t-35.5 14.5h-500q-21 0 -35.5 -14.5t-14.5 -35.5v-100q0 -21 14.5 -35.5t35.5 -14.5zM600 306v-106q0 -84 -39 -139t-111 -55t-110 54t-38 138v302l-121 -84q-15 -12 -34 -11.5t-32 13.5l-112 110 q-22 22 -6 53l230 363q1 2 3.5 6t10.5 13.5t16.5 17t20 13.5t22.5 6h525q13 0 94 -83t81 -90v-342q0 -15 -20 -28.5t-41 -19.5zM308 900l-236 -339l83 -86l183 146q22 17 47 5q2 -1 4.5 -2.5t4 -4t2.5 -4t2 -5t1.5 -5t0.5 -6v-5.5v-6v-7v-456q0 -22 25 -31t50 0.5t25 30.5 v203q0 15 20 28.5t41 19.5l339 131v293l-89 100h-503z" />
|
||||
<glyph unicode="" d="M600 1178q118 0 225 -45.5t184.5 -123t123 -184.5t45.5 -225t-45.5 -225t-123 -184.5t-184.5 -123t-225 -45.5t-225 45.5t-184.5 123t-123 184.5t-45.5 225t45.5 225t123 184.5t184.5 123t225 45.5zM914 632l-275 223q-16 13 -27.5 8t-11.5 -26v-137h-275 q-10 0 -17.5 -7.5t-7.5 -17.5v-150q0 -10 7.5 -17.5t17.5 -7.5h275v-137q0 -21 11.5 -26t27.5 8l275 223q16 13 16 32t-16 32z" />
|
||||
<glyph unicode="" d="M600 1178q118 0 225 -45.5t184.5 -123t123 -184.5t45.5 -225t-45.5 -225t-123 -184.5t-184.5 -123t-225 -45.5t-225 45.5t-184.5 123t-123 184.5t-45.5 225t45.5 225t123 184.5t184.5 123t225 45.5zM561 855l-275 -223q-16 -13 -16 -32t16 -32l275 -223q16 -13 27.5 -8 t11.5 26v137h275q10 0 17.5 7.5t7.5 17.5v150q0 10 -7.5 17.5t-17.5 7.5h-275v137q0 21 -11.5 26t-27.5 -8z" />
|
||||
<glyph unicode="" d="M600 1178q118 0 225 -45.5t184.5 -123t123 -184.5t45.5 -225t-45.5 -225t-123 -184.5t-184.5 -123t-225 -45.5t-225 45.5t-184.5 123t-123 184.5t-45.5 225t45.5 225t123 184.5t184.5 123t225 45.5zM855 639l-223 275q-13 16 -32 16t-32 -16l-223 -275q-13 -16 -8 -27.5 t26 -11.5h137v-275q0 -10 7.5 -17.5t17.5 -7.5h150q10 0 17.5 7.5t7.5 17.5v275h137q21 0 26 11.5t-8 27.5z" />
|
||||
<glyph unicode="" d="M600 1178q118 0 225 -45.5t184.5 -123t123 -184.5t45.5 -225t-45.5 -225t-123 -184.5t-184.5 -123t-225 -45.5t-225 45.5t-184.5 123t-123 184.5t-45.5 225t45.5 225t123 184.5t184.5 123t225 45.5zM675 900h-150q-10 0 -17.5 -7.5t-7.5 -17.5v-275h-137q-21 0 -26 -11.5 t8 -27.5l223 -275q13 -16 32 -16t32 16l223 275q13 16 8 27.5t-26 11.5h-137v275q0 10 -7.5 17.5t-17.5 7.5z" />
|
||||
<glyph unicode="" d="M600 1176q116 0 222.5 -46t184 -123.5t123.5 -184t46 -222.5t-46 -222.5t-123.5 -184t-184 -123.5t-222.5 -46t-222.5 46t-184 123.5t-123.5 184t-46 222.5t46 222.5t123.5 184t184 123.5t222.5 46zM627 1101q-15 -12 -36.5 -20.5t-35.5 -12t-43 -8t-39 -6.5 q-15 -3 -45.5 0t-45.5 -2q-20 -7 -51.5 -26.5t-34.5 -34.5q-3 -11 6.5 -22.5t8.5 -18.5q-3 -34 -27.5 -91t-29.5 -79q-9 -34 5 -93t8 -87q0 -9 17 -44.5t16 -59.5q12 0 23 -5t23.5 -15t19.5 -14q16 -8 33 -15t40.5 -15t34.5 -12q21 -9 52.5 -32t60 -38t57.5 -11 q7 -15 -3 -34t-22.5 -40t-9.5 -38q13 -21 23 -34.5t27.5 -27.5t36.5 -18q0 -7 -3.5 -16t-3.5 -14t5 -17q104 -2 221 112q30 29 46.5 47t34.5 49t21 63q-13 8 -37 8.5t-36 7.5q-15 7 -49.5 15t-51.5 19q-18 0 -41 -0.5t-43 -1.5t-42 -6.5t-38 -16.5q-51 -35 -66 -12 q-4 1 -3.5 25.5t0.5 25.5q-6 13 -26.5 17.5t-24.5 6.5q1 15 -0.5 30.5t-7 28t-18.5 11.5t-31 -21q-23 -25 -42 4q-19 28 -8 58q6 16 22 22q6 -1 26 -1.5t33.5 -4t19.5 -13.5q7 -12 18 -24t21.5 -20.5t20 -15t15.5 -10.5l5 -3q2 12 7.5 30.5t8 34.5t-0.5 32q-3 18 3.5 29 t18 22.5t15.5 24.5q6 14 10.5 35t8 31t15.5 22.5t34 22.5q-6 18 10 36q8 0 24 -1.5t24.5 -1.5t20 4.5t20.5 15.5q-10 23 -31 42.5t-37.5 29.5t-49 27t-43.5 23q0 1 2 8t3 11.5t1.5 10.5t-1 9.5t-4.5 4.5q31 -13 58.5 -14.5t38.5 2.5l12 5q5 28 -9.5 46t-36.5 24t-50 15 t-41 20q-18 -4 -37 0zM613 994q0 -17 8 -42t17 -45t9 -23q-8 1 -39.5 5.5t-52.5 10t-37 16.5q3 11 16 29.5t16 25.5q10 -10 19 -10t14 6t13.5 14.5t16.5 12.5z" />
|
||||
<glyph unicode="" d="M756 1157q164 92 306 -9l-259 -138l145 -232l251 126q6 -89 -34 -156.5t-117 -110.5q-60 -34 -127 -39.5t-126 16.5l-596 -596q-15 -16 -36.5 -16t-36.5 16l-111 110q-15 15 -15 36.5t15 37.5l600 599q-34 101 5.5 201.5t135.5 154.5z" />
|
||||
<glyph unicode="" horiz-adv-x="1220" d="M100 1196h1000q41 0 70.5 -29.5t29.5 -70.5v-100q0 -41 -29.5 -70.5t-70.5 -29.5h-1000q-41 0 -70.5 29.5t-29.5 70.5v100q0 41 29.5 70.5t70.5 29.5zM1100 1096h-200v-100h200v100zM100 796h1000q41 0 70.5 -29.5t29.5 -70.5v-100q0 -41 -29.5 -70.5t-70.5 -29.5h-1000 q-41 0 -70.5 29.5t-29.5 70.5v100q0 41 29.5 70.5t70.5 29.5zM1100 696h-500v-100h500v100zM100 396h1000q41 0 70.5 -29.5t29.5 -70.5v-100q0 -41 -29.5 -70.5t-70.5 -29.5h-1000q-41 0 -70.5 29.5t-29.5 70.5v100q0 41 29.5 70.5t70.5 29.5zM1100 296h-300v-100h300v100z " />
|
||||
<glyph unicode="" d="M150 1200h900q21 0 35.5 -14.5t14.5 -35.5t-14.5 -35.5t-35.5 -14.5h-900q-21 0 -35.5 14.5t-14.5 35.5t14.5 35.5t35.5 14.5zM700 500v-300l-200 -200v500l-350 500h900z" />
|
||||
<glyph unicode="" d="M500 1200h200q41 0 70.5 -29.5t29.5 -70.5v-100h300q41 0 70.5 -29.5t29.5 -70.5v-400h-500v100h-200v-100h-500v400q0 41 29.5 70.5t70.5 29.5h300v100q0 41 29.5 70.5t70.5 29.5zM500 1100v-100h200v100h-200zM1200 400v-200q0 -41 -29.5 -70.5t-70.5 -29.5h-1000 q-41 0 -70.5 29.5t-29.5 70.5v200h1200z" />
|
||||
<glyph unicode="" d="M50 1200h300q21 0 25 -10.5t-10 -24.5l-94 -94l199 -199q7 -8 7 -18t-7 -18l-106 -106q-8 -7 -18 -7t-18 7l-199 199l-94 -94q-14 -14 -24.5 -10t-10.5 25v300q0 21 14.5 35.5t35.5 14.5zM850 1200h300q21 0 35.5 -14.5t14.5 -35.5v-300q0 -21 -10.5 -25t-24.5 10l-94 94 l-199 -199q-8 -7 -18 -7t-18 7l-106 106q-7 8 -7 18t7 18l199 199l-94 94q-14 14 -10 24.5t25 10.5zM364 470l106 -106q7 -8 7 -18t-7 -18l-199 -199l94 -94q14 -14 10 -24.5t-25 -10.5h-300q-21 0 -35.5 14.5t-14.5 35.5v300q0 21 10.5 25t24.5 -10l94 -94l199 199 q8 7 18 7t18 -7zM1071 271l94 94q14 14 24.5 10t10.5 -25v-300q0 -21 -14.5 -35.5t-35.5 -14.5h-300q-21 0 -25 10.5t10 24.5l94 94l-199 199q-7 8 -7 18t7 18l106 106q8 7 18 7t18 -7z" />
|
||||
<glyph unicode="" d="M596 1192q121 0 231.5 -47.5t190 -127t127 -190t47.5 -231.5t-47.5 -231.5t-127 -190.5t-190 -127t-231.5 -47t-231.5 47t-190.5 127t-127 190.5t-47 231.5t47 231.5t127 190t190.5 127t231.5 47.5zM596 1010q-112 0 -207.5 -55.5t-151 -151t-55.5 -207.5t55.5 -207.5 t151 -151t207.5 -55.5t207.5 55.5t151 151t55.5 207.5t-55.5 207.5t-151 151t-207.5 55.5zM454.5 905q22.5 0 38.5 -16t16 -38.5t-16 -39t-38.5 -16.5t-38.5 16.5t-16 39t16 38.5t38.5 16zM754.5 905q22.5 0 38.5 -16t16 -38.5t-16 -39t-38 -16.5q-14 0 -29 10l-55 -145 q17 -23 17 -51q0 -36 -25.5 -61.5t-61.5 -25.5t-61.5 25.5t-25.5 61.5q0 32 20.5 56.5t51.5 29.5l122 126l1 1q-9 14 -9 28q0 23 16 39t38.5 16zM345.5 709q22.5 0 38.5 -16t16 -38.5t-16 -38.5t-38.5 -16t-38.5 16t-16 38.5t16 38.5t38.5 16zM854.5 709q22.5 0 38.5 -16 t16 -38.5t-16 -38.5t-38.5 -16t-38.5 16t-16 38.5t16 38.5t38.5 16z" />
|
||||
<glyph unicode="" d="M546 173l469 470q91 91 99 192q7 98 -52 175.5t-154 94.5q-22 4 -47 4q-34 0 -66.5 -10t-56.5 -23t-55.5 -38t-48 -41.5t-48.5 -47.5q-376 -375 -391 -390q-30 -27 -45 -41.5t-37.5 -41t-32 -46.5t-16 -47.5t-1.5 -56.5q9 -62 53.5 -95t99.5 -33q74 0 125 51l548 548 q36 36 20 75q-7 16 -21.5 26t-32.5 10q-26 0 -50 -23q-13 -12 -39 -38l-341 -338q-15 -15 -35.5 -15.5t-34.5 13.5t-14 34.5t14 34.5q327 333 361 367q35 35 67.5 51.5t78.5 16.5q14 0 29 -1q44 -8 74.5 -35.5t43.5 -68.5q14 -47 2 -96.5t-47 -84.5q-12 -11 -32 -32 t-79.5 -81t-114.5 -115t-124.5 -123.5t-123 -119.5t-96.5 -89t-57 -45q-56 -27 -120 -27q-70 0 -129 32t-93 89q-48 78 -35 173t81 163l511 511q71 72 111 96q91 55 198 55q80 0 152 -33q78 -36 129.5 -103t66.5 -154q17 -93 -11 -183.5t-94 -156.5l-482 -476 q-15 -15 -36 -16t-37 14t-17.5 34t14.5 35z" />
|
||||
<glyph unicode="" d="M649 949q48 68 109.5 104t121.5 38.5t118.5 -20t102.5 -64t71 -100.5t27 -123q0 -57 -33.5 -117.5t-94 -124.5t-126.5 -127.5t-150 -152.5t-146 -174q-62 85 -145.5 174t-150 152.5t-126.5 127.5t-93.5 124.5t-33.5 117.5q0 64 28 123t73 100.5t104 64t119 20 t120.5 -38.5t104.5 -104zM896 972q-33 0 -64.5 -19t-56.5 -46t-47.5 -53.5t-43.5 -45.5t-37.5 -19t-36 19t-40 45.5t-43 53.5t-54 46t-65.5 19q-67 0 -122.5 -55.5t-55.5 -132.5q0 -23 13.5 -51t46 -65t57.5 -63t76 -75l22 -22q15 -14 44 -44t50.5 -51t46 -44t41 -35t23 -12 t23.5 12t42.5 36t46 44t52.5 52t44 43q4 4 12 13q43 41 63.5 62t52 55t46 55t26 46t11.5 44q0 79 -53 133.5t-120 54.5z" />
|
||||
<glyph unicode="" d="M776.5 1214q93.5 0 159.5 -66l141 -141q66 -66 66 -160q0 -42 -28 -95.5t-62 -87.5l-29 -29q-31 53 -77 99l-18 18l95 95l-247 248l-389 -389l212 -212l-105 -106l-19 18l-141 141q-66 66 -66 159t66 159l283 283q65 66 158.5 66zM600 706l105 105q10 -8 19 -17l141 -141 q66 -66 66 -159t-66 -159l-283 -283q-66 -66 -159 -66t-159 66l-141 141q-66 66 -66 159.5t66 159.5l55 55q29 -55 75 -102l18 -17l-95 -95l247 -248l389 389z" />
|
||||
<glyph unicode="" d="M603 1200q85 0 162 -15t127 -38t79 -48t29 -46v-953q0 -41 -29.5 -70.5t-70.5 -29.5h-600q-41 0 -70.5 29.5t-29.5 70.5v953q0 21 30 46.5t81 48t129 37.5t163 15zM300 1000v-700h600v700h-600zM600 254q-43 0 -73.5 -30.5t-30.5 -73.5t30.5 -73.5t73.5 -30.5t73.5 30.5 t30.5 73.5t-30.5 73.5t-73.5 30.5z" />
|
||||
<glyph unicode="" d="M902 1185l283 -282q15 -15 15 -36t-14.5 -35.5t-35.5 -14.5t-35 15l-36 35l-279 -267v-300l-212 210l-308 -307l-280 -203l203 280l307 308l-210 212h300l267 279l-35 36q-15 14 -15 35t14.5 35.5t35.5 14.5t35 -15z" />
|
||||
<glyph unicode="" d="M700 1248v-78q38 -5 72.5 -14.5t75.5 -31.5t71 -53.5t52 -84t24 -118.5h-159q-4 36 -10.5 59t-21 45t-40 35.5t-64.5 20.5v-307l64 -13q34 -7 64 -16.5t70 -32t67.5 -52.5t47.5 -80t20 -112q0 -139 -89 -224t-244 -97v-77h-100v79q-150 16 -237 103q-40 40 -52.5 93.5 t-15.5 139.5h139q5 -77 48.5 -126t117.5 -65v335l-27 8q-46 14 -79 26.5t-72 36t-63 52t-40 72.5t-16 98q0 70 25 126t67.5 92t94.5 57t110 27v77h100zM600 754v274q-29 -4 -50 -11t-42 -21.5t-31.5 -41.5t-10.5 -65q0 -29 7 -50.5t16.5 -34t28.5 -22.5t31.5 -14t37.5 -10 q9 -3 13 -4zM700 547v-310q22 2 42.5 6.5t45 15.5t41.5 27t29 42t12 59.5t-12.5 59.5t-38 44.5t-53 31t-66.5 24.5z" />
|
||||
<glyph unicode="" d="M561 1197q84 0 160.5 -40t123.5 -109.5t47 -147.5h-153q0 40 -19.5 71.5t-49.5 48.5t-59.5 26t-55.5 9q-37 0 -79 -14.5t-62 -35.5q-41 -44 -41 -101q0 -26 13.5 -63t26.5 -61t37 -66q6 -9 9 -14h241v-100h-197q8 -50 -2.5 -115t-31.5 -95q-45 -62 -99 -112 q34 10 83 17.5t71 7.5q32 1 102 -16t104 -17q83 0 136 30l50 -147q-31 -19 -58 -30.5t-55 -15.5t-42 -4.5t-46 -0.5q-23 0 -76 17t-111 32.5t-96 11.5q-39 -3 -82 -16t-67 -25l-23 -11l-55 145q4 3 16 11t15.5 10.5t13 9t15.5 12t14.5 14t17.5 18.5q48 55 54 126.5 t-30 142.5h-221v100h166q-23 47 -44 104q-7 20 -12 41.5t-6 55.5t6 66.5t29.5 70.5t58.5 71q97 88 263 88z" />
|
||||
<glyph unicode="" d="M400 300h150q21 0 25 -11t-10 -25l-230 -250q-14 -15 -35 -15t-35 15l-230 250q-14 14 -10 25t25 11h150v900h200v-900zM935 1184l230 -249q14 -14 10 -24.5t-25 -10.5h-150v-900h-200v900h-150q-21 0 -25 10.5t10 24.5l230 249q14 15 35 15t35 -15z" />
|
||||
<glyph unicode="" d="M1000 700h-100v100h-100v-100h-100v500h300v-500zM400 300h150q21 0 25 -11t-10 -25l-230 -250q-14 -15 -35 -15t-35 15l-230 250q-14 14 -10 25t25 11h150v900h200v-900zM801 1100v-200h100v200h-100zM1000 350l-200 -250h200v-100h-300v150l200 250h-200v100h300v-150z " />
|
||||
<glyph unicode="" d="M400 300h150q21 0 25 -11t-10 -25l-230 -250q-14 -15 -35 -15t-35 15l-230 250q-14 14 -10 25t25 11h150v900h200v-900zM1000 1050l-200 -250h200v-100h-300v150l200 250h-200v100h300v-150zM1000 0h-100v100h-100v-100h-100v500h300v-500zM801 400v-200h100v200h-100z " />
|
||||
<glyph unicode="" d="M400 300h150q21 0 25 -11t-10 -25l-230 -250q-14 -15 -35 -15t-35 15l-230 250q-14 14 -10 25t25 11h150v900h200v-900zM1000 700h-100v400h-100v100h200v-500zM1100 0h-100v100h-200v400h300v-500zM901 400v-200h100v200h-100z" />
|
||||
<glyph unicode="" d="M400 300h150q21 0 25 -11t-10 -25l-230 -250q-14 -15 -35 -15t-35 15l-230 250q-14 14 -10 25t25 11h150v900h200v-900zM1100 700h-100v100h-200v400h300v-500zM901 1100v-200h100v200h-100zM1000 0h-100v400h-100v100h200v-500z" />
|
||||
<glyph unicode="" d="M400 300h150q21 0 25 -11t-10 -25l-230 -250q-14 -15 -35 -15t-35 15l-230 250q-14 14 -10 25t25 11h150v900h200v-900zM900 1000h-200v200h200v-200zM1000 700h-300v200h300v-200zM1100 400h-400v200h400v-200zM1200 100h-500v200h500v-200z" />
|
||||
<glyph unicode="" d="M400 300h150q21 0 25 -11t-10 -25l-230 -250q-14 -15 -35 -15t-35 15l-230 250q-14 14 -10 25t25 11h150v900h200v-900zM1200 1000h-500v200h500v-200zM1100 700h-400v200h400v-200zM1000 400h-300v200h300v-200zM900 100h-200v200h200v-200z" />
|
||||
<glyph unicode="" d="M350 1100h400q162 0 256 -93.5t94 -256.5v-400q0 -165 -93.5 -257.5t-256.5 -92.5h-400q-165 0 -257.5 92.5t-92.5 257.5v400q0 165 92.5 257.5t257.5 92.5zM800 900h-500q-41 0 -70.5 -29.5t-29.5 -70.5v-500q0 -41 29.5 -70.5t70.5 -29.5h500q41 0 70.5 29.5t29.5 70.5 v500q0 41 -29.5 70.5t-70.5 29.5z" />
|
||||
<glyph unicode="" d="M350 1100h400q165 0 257.5 -92.5t92.5 -257.5v-400q0 -165 -92.5 -257.5t-257.5 -92.5h-400q-163 0 -256.5 92.5t-93.5 257.5v400q0 163 94 256.5t256 93.5zM800 900h-500q-41 0 -70.5 -29.5t-29.5 -70.5v-500q0 -41 29.5 -70.5t70.5 -29.5h500q41 0 70.5 29.5t29.5 70.5 v500q0 41 -29.5 70.5t-70.5 29.5zM440 770l253 -190q17 -12 17 -30t-17 -30l-253 -190q-16 -12 -28 -6.5t-12 26.5v400q0 21 12 26.5t28 -6.5z" />
|
||||
<glyph unicode="" d="M350 1100h400q163 0 256.5 -94t93.5 -256v-400q0 -165 -92.5 -257.5t-257.5 -92.5h-400q-165 0 -257.5 92.5t-92.5 257.5v400q0 163 92.5 256.5t257.5 93.5zM800 900h-500q-41 0 -70.5 -29.5t-29.5 -70.5v-500q0 -41 29.5 -70.5t70.5 -29.5h500q41 0 70.5 29.5t29.5 70.5 v500q0 41 -29.5 70.5t-70.5 29.5zM350 700h400q21 0 26.5 -12t-6.5 -28l-190 -253q-12 -17 -30 -17t-30 17l-190 253q-12 16 -6.5 28t26.5 12z" />
|
||||
<glyph unicode="" d="M350 1100h400q165 0 257.5 -92.5t92.5 -257.5v-400q0 -163 -92.5 -256.5t-257.5 -93.5h-400q-163 0 -256.5 94t-93.5 256v400q0 165 92.5 257.5t257.5 92.5zM800 900h-500q-41 0 -70.5 -29.5t-29.5 -70.5v-500q0 -41 29.5 -70.5t70.5 -29.5h500q41 0 70.5 29.5t29.5 70.5 v500q0 41 -29.5 70.5t-70.5 29.5zM580 693l190 -253q12 -16 6.5 -28t-26.5 -12h-400q-21 0 -26.5 12t6.5 28l190 253q12 17 30 17t30 -17z" />
|
||||
<glyph unicode="" d="M550 1100h400q165 0 257.5 -92.5t92.5 -257.5v-400q0 -165 -92.5 -257.5t-257.5 -92.5h-400q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5h450q41 0 70.5 29.5t29.5 70.5v500q0 41 -29.5 70.5t-70.5 29.5h-450q-21 0 -35.5 14.5t-14.5 35.5v100 q0 21 14.5 35.5t35.5 14.5zM338 867l324 -284q16 -14 16 -33t-16 -33l-324 -284q-16 -14 -27 -9t-11 26v150h-250q-21 0 -35.5 14.5t-14.5 35.5v200q0 21 14.5 35.5t35.5 14.5h250v150q0 21 11 26t27 -9z" />
|
||||
<glyph unicode="" d="M793 1182l9 -9q8 -10 5 -27q-3 -11 -79 -225.5t-78 -221.5l300 1q24 0 32.5 -17.5t-5.5 -35.5q-1 0 -133.5 -155t-267 -312.5t-138.5 -162.5q-12 -15 -26 -15h-9l-9 8q-9 11 -4 32q2 9 42 123.5t79 224.5l39 110h-302q-23 0 -31 19q-10 21 6 41q75 86 209.5 237.5 t228 257t98.5 111.5q9 16 25 16h9z" />
|
||||
<glyph unicode="" d="M350 1100h400q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-450q-41 0 -70.5 -29.5t-29.5 -70.5v-500q0 -41 29.5 -70.5t70.5 -29.5h450q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-400q-165 0 -257.5 92.5t-92.5 257.5v400 q0 165 92.5 257.5t257.5 92.5zM938 867l324 -284q16 -14 16 -33t-16 -33l-324 -284q-16 -14 -27 -9t-11 26v150h-250q-21 0 -35.5 14.5t-14.5 35.5v200q0 21 14.5 35.5t35.5 14.5h250v150q0 21 11 26t27 -9z" />
|
||||
<glyph unicode="" d="M750 1200h400q21 0 35.5 -14.5t14.5 -35.5v-400q0 -21 -10.5 -25t-24.5 10l-109 109l-312 -312q-15 -15 -35.5 -15t-35.5 15l-141 141q-15 15 -15 35.5t15 35.5l312 312l-109 109q-14 14 -10 24.5t25 10.5zM456 900h-156q-41 0 -70.5 -29.5t-29.5 -70.5v-500 q0 -41 29.5 -70.5t70.5 -29.5h500q41 0 70.5 29.5t29.5 70.5v148l200 200v-298q0 -165 -93.5 -257.5t-256.5 -92.5h-400q-165 0 -257.5 92.5t-92.5 257.5v400q0 165 92.5 257.5t257.5 92.5h300z" />
|
||||
<glyph unicode="" d="M600 1186q119 0 227.5 -46.5t187 -125t125 -187t46.5 -227.5t-46.5 -227.5t-125 -187t-187 -125t-227.5 -46.5t-227.5 46.5t-187 125t-125 187t-46.5 227.5t46.5 227.5t125 187t187 125t227.5 46.5zM600 1022q-115 0 -212 -56.5t-153.5 -153.5t-56.5 -212t56.5 -212 t153.5 -153.5t212 -56.5t212 56.5t153.5 153.5t56.5 212t-56.5 212t-153.5 153.5t-212 56.5zM600 794q80 0 137 -57t57 -137t-57 -137t-137 -57t-137 57t-57 137t57 137t137 57z" />
|
||||
<glyph unicode="" d="M450 1200h200q21 0 35.5 -14.5t14.5 -35.5v-350h245q20 0 25 -11t-9 -26l-383 -426q-14 -15 -33.5 -15t-32.5 15l-379 426q-13 15 -8.5 26t25.5 11h250v350q0 21 14.5 35.5t35.5 14.5zM50 300h1000q21 0 35.5 -14.5t14.5 -35.5v-250h-1100v250q0 21 14.5 35.5t35.5 14.5z M900 200v-50h100v50h-100z" />
|
||||
<glyph unicode="" d="M583 1182l378 -435q14 -15 9 -31t-26 -16h-244v-250q0 -20 -17 -35t-39 -15h-200q-20 0 -32 14.5t-12 35.5v250h-250q-20 0 -25.5 16.5t8.5 31.5l383 431q14 16 33.5 17t33.5 -14zM50 300h1000q21 0 35.5 -14.5t14.5 -35.5v-250h-1100v250q0 21 14.5 35.5t35.5 14.5z M900 200v-50h100v50h-100z" />
|
||||
<glyph unicode="" d="M396 723l369 369q7 7 17.5 7t17.5 -7l139 -139q7 -8 7 -18.5t-7 -17.5l-525 -525q-7 -8 -17.5 -8t-17.5 8l-292 291q-7 8 -7 18t7 18l139 139q8 7 18.5 7t17.5 -7zM50 300h1000q21 0 35.5 -14.5t14.5 -35.5v-250h-1100v250q0 21 14.5 35.5t35.5 14.5zM900 200v-50h100v50 h-100z" />
|
||||
<glyph unicode="" d="M135 1023l142 142q14 14 35 14t35 -14l77 -77l-212 -212l-77 76q-14 15 -14 36t14 35zM655 855l210 210q14 14 24.5 10t10.5 -25l-2 -599q-1 -20 -15.5 -35t-35.5 -15l-597 -1q-21 0 -25 10.5t10 24.5l208 208l-154 155l212 212zM50 300h1000q21 0 35.5 -14.5t14.5 -35.5 v-250h-1100v250q0 21 14.5 35.5t35.5 14.5zM900 200v-50h100v50h-100z" />
|
||||
<glyph unicode="" d="M350 1200l599 -2q20 -1 35 -15.5t15 -35.5l1 -597q0 -21 -10.5 -25t-24.5 10l-208 208l-155 -154l-212 212l155 154l-210 210q-14 14 -10 24.5t25 10.5zM524 512l-76 -77q-15 -14 -36 -14t-35 14l-142 142q-14 14 -14 35t14 35l77 77zM50 300h1000q21 0 35.5 -14.5 t14.5 -35.5v-250h-1100v250q0 21 14.5 35.5t35.5 14.5zM900 200v-50h100v50h-100z" />
|
||||
<glyph unicode="" d="M1200 103l-483 276l-314 -399v423h-399l1196 796v-1096zM483 424v-230l683 953z" />
|
||||
<glyph unicode="" d="M1100 1000v-850q0 -21 -14.5 -35.5t-35.5 -14.5h-150v400h-700v-400h-150q-21 0 -35.5 14.5t-14.5 35.5v1000q0 20 14.5 35t35.5 15h250v-300h500v300h100zM700 1000h-100v200h100v-200z" />
|
||||
<glyph unicode="" d="M1100 1000l-2 -149l-299 -299l-95 95q-9 9 -21.5 9t-21.5 -9l-149 -147h-312v-400h-150q-21 0 -35.5 14.5t-14.5 35.5v1000q0 20 14.5 35t35.5 15h250v-300h500v300h100zM700 1000h-100v200h100v-200zM1132 638l106 -106q7 -7 7 -17.5t-7 -17.5l-420 -421q-8 -7 -18 -7 t-18 7l-202 203q-8 7 -8 17.5t8 17.5l106 106q7 8 17.5 8t17.5 -8l79 -79l297 297q7 7 17.5 7t17.5 -7z" />
|
||||
<glyph unicode="" d="M1100 1000v-269l-103 -103l-134 134q-15 15 -33.5 16.5t-34.5 -12.5l-266 -266h-329v-400h-150q-21 0 -35.5 14.5t-14.5 35.5v1000q0 20 14.5 35t35.5 15h250v-300h500v300h100zM700 1000h-100v200h100v-200zM1202 572l70 -70q15 -15 15 -35.5t-15 -35.5l-131 -131 l131 -131q15 -15 15 -35.5t-15 -35.5l-70 -70q-15 -15 -35.5 -15t-35.5 15l-131 131l-131 -131q-15 -15 -35.5 -15t-35.5 15l-70 70q-15 15 -15 35.5t15 35.5l131 131l-131 131q-15 15 -15 35.5t15 35.5l70 70q15 15 35.5 15t35.5 -15l131 -131l131 131q15 15 35.5 15 t35.5 -15z" />
|
||||
<glyph unicode="" d="M1100 1000v-300h-350q-21 0 -35.5 -14.5t-14.5 -35.5v-150h-500v-400h-150q-21 0 -35.5 14.5t-14.5 35.5v1000q0 20 14.5 35t35.5 15h250v-300h500v300h100zM700 1000h-100v200h100v-200zM850 600h100q21 0 35.5 -14.5t14.5 -35.5v-250h150q21 0 25 -10.5t-10 -24.5 l-230 -230q-14 -14 -35 -14t-35 14l-230 230q-14 14 -10 24.5t25 10.5h150v250q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M1100 1000v-400l-165 165q-14 15 -35 15t-35 -15l-263 -265h-402v-400h-150q-21 0 -35.5 14.5t-14.5 35.5v1000q0 20 14.5 35t35.5 15h250v-300h500v300h100zM700 1000h-100v200h100v-200zM935 565l230 -229q14 -15 10 -25.5t-25 -10.5h-150v-250q0 -20 -14.5 -35 t-35.5 -15h-100q-21 0 -35.5 15t-14.5 35v250h-150q-21 0 -25 10.5t10 25.5l230 229q14 15 35 15t35 -15z" />
|
||||
<glyph unicode="" d="M50 1100h1100q21 0 35.5 -14.5t14.5 -35.5v-150h-1200v150q0 21 14.5 35.5t35.5 14.5zM1200 800v-550q0 -21 -14.5 -35.5t-35.5 -14.5h-1100q-21 0 -35.5 14.5t-14.5 35.5v550h1200zM100 500v-200h400v200h-400z" />
|
||||
<glyph unicode="" d="M935 1165l248 -230q14 -14 14 -35t-14 -35l-248 -230q-14 -14 -24.5 -10t-10.5 25v150h-400v200h400v150q0 21 10.5 25t24.5 -10zM200 800h-50q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5h50v-200zM400 800h-100v200h100v-200zM18 435l247 230 q14 14 24.5 10t10.5 -25v-150h400v-200h-400v-150q0 -21 -10.5 -25t-24.5 10l-247 230q-15 14 -15 35t15 35zM900 300h-100v200h100v-200zM1000 500h51q20 0 34.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-34.5 -14.5h-51v200z" />
|
||||
<glyph unicode="" d="M862 1073l276 116q25 18 43.5 8t18.5 -41v-1106q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5v397q-4 1 -11 5t-24 17.5t-30 29t-24 42t-11 56.5v359q0 31 18.5 65t43.5 52zM550 1200q22 0 34.5 -12.5t14.5 -24.5l1 -13v-450q0 -28 -10.5 -59.5 t-25 -56t-29 -45t-25.5 -31.5l-10 -11v-447q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5v447q-4 4 -11 11.5t-24 30.5t-30 46t-24 55t-11 60v450q0 2 0.5 5.5t4 12t8.5 15t14.5 12t22.5 5.5q20 0 32.5 -12.5t14.5 -24.5l3 -13v-350h100v350v5.5t2.5 12 t7 15t15 12t25.5 5.5q23 0 35.5 -12.5t13.5 -24.5l1 -13v-350h100v350q0 2 0.5 5.5t3 12t7 15t15 12t24.5 5.5z" />
|
||||
<glyph unicode="" d="M1200 1100v-56q-4 0 -11 -0.5t-24 -3t-30 -7.5t-24 -15t-11 -24v-888q0 -22 25 -34.5t50 -13.5l25 -2v-56h-400v56q75 0 87.5 6.5t12.5 43.5v394h-500v-394q0 -37 12.5 -43.5t87.5 -6.5v-56h-400v56q4 0 11 0.5t24 3t30 7.5t24 15t11 24v888q0 22 -25 34.5t-50 13.5 l-25 2v56h400v-56q-75 0 -87.5 -6.5t-12.5 -43.5v-394h500v394q0 37 -12.5 43.5t-87.5 6.5v56h400z" />
|
||||
<glyph unicode="" d="M675 1000h375q21 0 35.5 -14.5t14.5 -35.5v-150h-105l-295 -98v98l-200 200h-400l100 100h375zM100 900h300q41 0 70.5 -29.5t29.5 -70.5v-500q0 -41 -29.5 -70.5t-70.5 -29.5h-300q-41 0 -70.5 29.5t-29.5 70.5v500q0 41 29.5 70.5t70.5 29.5zM100 800v-200h300v200 h-300zM1100 535l-400 -133v163l400 133v-163zM100 500v-200h300v200h-300zM1100 398v-248q0 -21 -14.5 -35.5t-35.5 -14.5h-375l-100 -100h-375l-100 100h400l200 200h105z" />
|
||||
<glyph unicode="" d="M17 1007l162 162q17 17 40 14t37 -22l139 -194q14 -20 11 -44.5t-20 -41.5l-119 -118q102 -142 228 -268t267 -227l119 118q17 17 42.5 19t44.5 -12l192 -136q19 -14 22.5 -37.5t-13.5 -40.5l-163 -162q-3 -1 -9.5 -1t-29.5 2t-47.5 6t-62.5 14.5t-77.5 26.5t-90 42.5 t-101.5 60t-111 83t-119 108.5q-74 74 -133.5 150.5t-94.5 138.5t-60 119.5t-34.5 100t-15 74.5t-4.5 48z" />
|
||||
<glyph unicode="" d="M600 1100q92 0 175 -10.5t141.5 -27t108.5 -36.5t81.5 -40t53.5 -37t31 -27l9 -10v-200q0 -21 -14.5 -33t-34.5 -9l-202 34q-20 3 -34.5 20t-14.5 38v146q-141 24 -300 24t-300 -24v-146q0 -21 -14.5 -38t-34.5 -20l-202 -34q-20 -3 -34.5 9t-14.5 33v200q3 4 9.5 10.5 t31 26t54 37.5t80.5 39.5t109 37.5t141 26.5t175 10.5zM600 795q56 0 97 -9.5t60 -23.5t30 -28t12 -24l1 -10v-50l365 -303q14 -15 24.5 -40t10.5 -45v-212q0 -21 -14.5 -35.5t-35.5 -14.5h-1100q-21 0 -35.5 14.5t-14.5 35.5v212q0 20 10.5 45t24.5 40l365 303v50 q0 4 1 10.5t12 23t30 29t60 22.5t97 10z" />
|
||||
<glyph unicode="" d="M1100 700l-200 -200h-600l-200 200v500h200v-200h200v200h200v-200h200v200h200v-500zM250 400h700q21 0 35.5 -14.5t14.5 -35.5t-14.5 -35.5t-35.5 -14.5h-12l137 -100h-950l137 100h-12q-21 0 -35.5 14.5t-14.5 35.5t14.5 35.5t35.5 14.5zM50 100h1100q21 0 35.5 -14.5 t14.5 -35.5v-50h-1200v50q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M700 1100h-100q-41 0 -70.5 -29.5t-29.5 -70.5v-1000h300v1000q0 41 -29.5 70.5t-70.5 29.5zM1100 800h-100q-41 0 -70.5 -29.5t-29.5 -70.5v-700h300v700q0 41 -29.5 70.5t-70.5 29.5zM400 0h-300v400q0 41 29.5 70.5t70.5 29.5h100q41 0 70.5 -29.5t29.5 -70.5v-400z " />
|
||||
<glyph unicode="" d="M200 1100h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212v500q0 124 88 212t212 88zM100 900v-700h900v700h-900zM500 700h-200v-100h200v-300h-300v100h200v100h-200v300h300v-100zM900 700v-300l-100 -100h-200v500h200z M700 700v-300h100v300h-100z" />
|
||||
<glyph unicode="" d="M200 1100h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212v500q0 124 88 212t212 88zM100 900v-700h900v700h-900zM500 300h-100v200h-100v-200h-100v500h100v-200h100v200h100v-500zM900 700v-300l-100 -100h-200v500h200z M700 700v-300h100v300h-100z" />
|
||||
<glyph unicode="" d="M200 1100h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212v500q0 124 88 212t212 88zM100 900v-700h900v700h-900zM500 700h-200v-300h200v-100h-300v500h300v-100zM900 700h-200v-300h200v-100h-300v500h300v-100z" />
|
||||
<glyph unicode="" d="M200 1100h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212v500q0 124 88 212t212 88zM100 900v-700h900v700h-900zM500 400l-300 150l300 150v-300zM900 550l-300 -150v300z" />
|
||||
<glyph unicode="" d="M200 1100h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212v500q0 124 88 212t212 88zM100 900v-700h900v700h-900zM900 300h-700v500h700v-500zM800 700h-130q-38 0 -66.5 -43t-28.5 -108t27 -107t68 -42h130v300zM300 700v-300 h130q41 0 68 42t27 107t-28.5 108t-66.5 43h-130z" />
|
||||
<glyph unicode="" d="M200 1100h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212v500q0 124 88 212t212 88zM100 900v-700h900v700h-900zM500 700h-200v-100h200v-300h-300v100h200v100h-200v300h300v-100zM900 300h-100v400h-100v100h200v-500z M700 300h-100v100h100v-100z" />
|
||||
<glyph unicode="" d="M200 1100h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212v500q0 124 88 212t212 88zM100 900v-700h900v700h-900zM300 700h200v-400h-300v500h100v-100zM900 300h-100v400h-100v100h200v-500zM300 600v-200h100v200h-100z M700 300h-100v100h100v-100z" />
|
||||
<glyph unicode="" d="M200 1100h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212v500q0 124 88 212t212 88zM100 900v-700h900v700h-900zM500 500l-199 -200h-100v50l199 200v150h-200v100h300v-300zM900 300h-100v400h-100v100h200v-500zM701 300h-100 v100h100v-100z" />
|
||||
<glyph unicode="" d="M600 1191q120 0 229.5 -47t188.5 -126t126 -188.5t47 -229.5t-47 -229.5t-126 -188.5t-188.5 -126t-229.5 -47t-229.5 47t-188.5 126t-126 188.5t-47 229.5t47 229.5t126 188.5t188.5 126t229.5 47zM600 1021q-114 0 -211 -56.5t-153.5 -153.5t-56.5 -211t56.5 -211 t153.5 -153.5t211 -56.5t211 56.5t153.5 153.5t56.5 211t-56.5 211t-153.5 153.5t-211 56.5zM800 700h-300v-200h300v-100h-300l-100 100v200l100 100h300v-100z" />
|
||||
<glyph unicode="" d="M600 1191q120 0 229.5 -47t188.5 -126t126 -188.5t47 -229.5t-47 -229.5t-126 -188.5t-188.5 -126t-229.5 -47t-229.5 47t-188.5 126t-126 188.5t-47 229.5t47 229.5t126 188.5t188.5 126t229.5 47zM600 1021q-114 0 -211 -56.5t-153.5 -153.5t-56.5 -211t56.5 -211 t153.5 -153.5t211 -56.5t211 56.5t153.5 153.5t56.5 211t-56.5 211t-153.5 153.5t-211 56.5zM800 700v-100l-50 -50l100 -100v-50h-100l-100 100h-150v-100h-100v400h300zM500 700v-100h200v100h-200z" />
|
||||
<glyph unicode="" d="M503 1089q110 0 200.5 -59.5t134.5 -156.5q44 14 90 14q120 0 205 -86.5t85 -207t-85 -207t-205 -86.5h-128v250q0 21 -14.5 35.5t-35.5 14.5h-300q-21 0 -35.5 -14.5t-14.5 -35.5v-250h-222q-80 0 -136 57.5t-56 136.5q0 69 43 122.5t108 67.5q-2 19 -2 37q0 100 49 185 t134 134t185 49zM525 500h150q10 0 17.5 -7.5t7.5 -17.5v-275h137q21 0 26 -11.5t-8 -27.5l-223 -244q-13 -16 -32 -16t-32 16l-223 244q-13 16 -8 27.5t26 11.5h137v275q0 10 7.5 17.5t17.5 7.5z" />
|
||||
<glyph unicode="" d="M502 1089q110 0 201 -59.5t135 -156.5q43 15 89 15q121 0 206 -86.5t86 -206.5q0 -99 -60 -181t-150 -110l-378 360q-13 16 -31.5 16t-31.5 -16l-381 -365h-9q-79 0 -135.5 57.5t-56.5 136.5q0 69 43 122.5t108 67.5q-2 19 -2 38q0 100 49 184.5t133.5 134t184.5 49.5z M632 467l223 -228q13 -16 8 -27.5t-26 -11.5h-137v-275q0 -10 -7.5 -17.5t-17.5 -7.5h-150q-10 0 -17.5 7.5t-7.5 17.5v275h-137q-21 0 -26 11.5t8 27.5q199 204 223 228q19 19 31.5 19t32.5 -19z" />
|
||||
<glyph unicode="" d="M700 100v100h400l-270 300h170l-270 300h170l-300 333l-300 -333h170l-270 -300h170l-270 -300h400v-100h-50q-21 0 -35.5 -14.5t-14.5 -35.5v-50h400v50q0 21 -14.5 35.5t-35.5 14.5h-50z" />
|
||||
<glyph unicode="" d="M600 1179q94 0 167.5 -56.5t99.5 -145.5q89 -6 150.5 -71.5t61.5 -155.5q0 -61 -29.5 -112.5t-79.5 -82.5q9 -29 9 -55q0 -74 -52.5 -126.5t-126.5 -52.5q-55 0 -100 30v-251q21 0 35.5 -14.5t14.5 -35.5v-50h-300v50q0 21 14.5 35.5t35.5 14.5v251q-45 -30 -100 -30 q-74 0 -126.5 52.5t-52.5 126.5q0 18 4 38q-47 21 -75.5 65t-28.5 97q0 74 52.5 126.5t126.5 52.5q5 0 23 -2q0 2 -1 10t-1 13q0 116 81.5 197.5t197.5 81.5z" />
|
||||
<glyph unicode="" d="M1010 1010q111 -111 150.5 -260.5t0 -299t-150.5 -260.5q-83 -83 -191.5 -126.5t-218.5 -43.5t-218.5 43.5t-191.5 126.5q-111 111 -150.5 260.5t0 299t150.5 260.5q83 83 191.5 126.5t218.5 43.5t218.5 -43.5t191.5 -126.5zM476 1065q-4 0 -8 -1q-121 -34 -209.5 -122.5 t-122.5 -209.5q-4 -12 2.5 -23t18.5 -14l36 -9q3 -1 7 -1q23 0 29 22q27 96 98 166q70 71 166 98q11 3 17.5 13.5t3.5 22.5l-9 35q-3 13 -14 19q-7 4 -15 4zM512 920q-4 0 -9 -2q-80 -24 -138.5 -82.5t-82.5 -138.5q-4 -13 2 -24t19 -14l34 -9q4 -1 8 -1q22 0 28 21 q18 58 58.5 98.5t97.5 58.5q12 3 18 13.5t3 21.5l-9 35q-3 12 -14 19q-7 4 -15 4zM719.5 719.5q-49.5 49.5 -119.5 49.5t-119.5 -49.5t-49.5 -119.5t49.5 -119.5t119.5 -49.5t119.5 49.5t49.5 119.5t-49.5 119.5zM855 551q-22 0 -28 -21q-18 -58 -58.5 -98.5t-98.5 -57.5 q-11 -4 -17 -14.5t-3 -21.5l9 -35q3 -12 14 -19q7 -4 15 -4q4 0 9 2q80 24 138.5 82.5t82.5 138.5q4 13 -2.5 24t-18.5 14l-34 9q-4 1 -8 1zM1000 515q-23 0 -29 -22q-27 -96 -98 -166q-70 -71 -166 -98q-11 -3 -17.5 -13.5t-3.5 -22.5l9 -35q3 -13 14 -19q7 -4 15 -4 q4 0 8 1q121 34 209.5 122.5t122.5 209.5q4 12 -2.5 23t-18.5 14l-36 9q-3 1 -7 1z" />
|
||||
<glyph unicode="" d="M700 800h300v-380h-180v200h-340v-200h-380v755q0 10 7.5 17.5t17.5 7.5h575v-400zM1000 900h-200v200zM700 300h162l-212 -212l-212 212h162v200h100v-200zM520 0h-395q-10 0 -17.5 7.5t-7.5 17.5v395zM1000 220v-195q0 -10 -7.5 -17.5t-17.5 -7.5h-195z" />
|
||||
<glyph unicode="" d="M700 800h300v-520l-350 350l-550 -550v1095q0 10 7.5 17.5t17.5 7.5h575v-400zM1000 900h-200v200zM862 200h-162v-200h-100v200h-162l212 212zM480 0h-355q-10 0 -17.5 7.5t-7.5 17.5v55h380v-80zM1000 80v-55q0 -10 -7.5 -17.5t-17.5 -7.5h-155v80h180z" />
|
||||
<glyph unicode="" d="M1162 800h-162v-200h100l100 -100h-300v300h-162l212 212zM200 800h200q27 0 40 -2t29.5 -10.5t23.5 -30t7 -57.5h300v-100h-600l-200 -350v450h100q0 36 7 57.5t23.5 30t29.5 10.5t40 2zM800 400h240l-240 -400h-800l300 500h500v-100z" />
|
||||
<glyph unicode="" d="M650 1100h100q21 0 35.5 -14.5t14.5 -35.5v-50h50q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-300q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5h50v50q0 21 14.5 35.5t35.5 14.5zM1000 850v150q41 0 70.5 -29.5t29.5 -70.5v-800 q0 -41 -29.5 -70.5t-70.5 -29.5h-600q-1 0 -20 4l246 246l-326 326v324q0 41 29.5 70.5t70.5 29.5v-150q0 -62 44 -106t106 -44h300q62 0 106 44t44 106zM412 250l-212 -212v162h-200v100h200v162z" />
|
||||
<glyph unicode="" d="M450 1100h100q21 0 35.5 -14.5t14.5 -35.5v-50h50q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-300q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5h50v50q0 21 14.5 35.5t35.5 14.5zM800 850v150q41 0 70.5 -29.5t29.5 -70.5v-500 h-200v-300h200q0 -36 -7 -57.5t-23.5 -30t-29.5 -10.5t-40 -2h-600q-41 0 -70.5 29.5t-29.5 70.5v800q0 41 29.5 70.5t70.5 29.5v-150q0 -62 44 -106t106 -44h300q62 0 106 44t44 106zM1212 250l-212 -212v162h-200v100h200v162z" />
|
||||
<glyph unicode="" d="M658 1197l637 -1104q23 -38 7 -65.5t-60 -27.5h-1276q-44 0 -60 27.5t7 65.5l637 1104q22 39 54 39t54 -39zM704 800h-208q-20 0 -32 -14.5t-8 -34.5l58 -302q4 -20 21.5 -34.5t37.5 -14.5h54q20 0 37.5 14.5t21.5 34.5l58 302q4 20 -8 34.5t-32 14.5zM500 300v-100h200 v100h-200z" />
|
||||
<glyph unicode="" d="M425 1100h250q10 0 17.5 -7.5t7.5 -17.5v-150q0 -10 -7.5 -17.5t-17.5 -7.5h-250q-10 0 -17.5 7.5t-7.5 17.5v150q0 10 7.5 17.5t17.5 7.5zM425 800h250q10 0 17.5 -7.5t7.5 -17.5v-150q0 -10 -7.5 -17.5t-17.5 -7.5h-250q-10 0 -17.5 7.5t-7.5 17.5v150q0 10 7.5 17.5 t17.5 7.5zM825 800h250q10 0 17.5 -7.5t7.5 -17.5v-150q0 -10 -7.5 -17.5t-17.5 -7.5h-250q-10 0 -17.5 7.5t-7.5 17.5v150q0 10 7.5 17.5t17.5 7.5zM25 500h250q10 0 17.5 -7.5t7.5 -17.5v-150q0 -10 -7.5 -17.5t-17.5 -7.5h-250q-10 0 -17.5 7.5t-7.5 17.5v150 q0 10 7.5 17.5t17.5 7.5zM425 500h250q10 0 17.5 -7.5t7.5 -17.5v-150q0 -10 -7.5 -17.5t-17.5 -7.5h-250q-10 0 -17.5 7.5t-7.5 17.5v150q0 10 7.5 17.5t17.5 7.5zM825 500h250q10 0 17.5 -7.5t7.5 -17.5v-150q0 -10 -7.5 -17.5t-17.5 -7.5h-250q-10 0 -17.5 7.5t-7.5 17.5 v150q0 10 7.5 17.5t17.5 7.5zM25 200h250q10 0 17.5 -7.5t7.5 -17.5v-150q0 -10 -7.5 -17.5t-17.5 -7.5h-250q-10 0 -17.5 7.5t-7.5 17.5v150q0 10 7.5 17.5t17.5 7.5zM425 200h250q10 0 17.5 -7.5t7.5 -17.5v-150q0 -10 -7.5 -17.5t-17.5 -7.5h-250q-10 0 -17.5 7.5 t-7.5 17.5v150q0 10 7.5 17.5t17.5 7.5zM825 200h250q10 0 17.5 -7.5t7.5 -17.5v-150q0 -10 -7.5 -17.5t-17.5 -7.5h-250q-10 0 -17.5 7.5t-7.5 17.5v150q0 10 7.5 17.5t17.5 7.5z" />
|
||||
<glyph unicode="" d="M700 1200h100v-200h-100v-100h350q62 0 86.5 -39.5t-3.5 -94.5l-66 -132q-41 -83 -81 -134h-772q-40 51 -81 134l-66 132q-28 55 -3.5 94.5t86.5 39.5h350v100h-100v200h100v100h200v-100zM250 400h700q21 0 35.5 -14.5t14.5 -35.5t-14.5 -35.5t-35.5 -14.5h-12l137 -100 h-950l138 100h-13q-21 0 -35.5 14.5t-14.5 35.5t14.5 35.5t35.5 14.5zM50 100h1100q21 0 35.5 -14.5t14.5 -35.5v-50h-1200v50q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M600 1300q40 0 68.5 -29.5t28.5 -70.5h-194q0 41 28.5 70.5t68.5 29.5zM443 1100h314q18 -37 18 -75q0 -8 -3 -25h328q41 0 44.5 -16.5t-30.5 -38.5l-175 -145h-678l-178 145q-34 22 -29 38.5t46 16.5h328q-3 17 -3 25q0 38 18 75zM250 700h700q21 0 35.5 -14.5 t14.5 -35.5t-14.5 -35.5t-35.5 -14.5h-150v-200l275 -200h-950l275 200v200h-150q-21 0 -35.5 14.5t-14.5 35.5t14.5 35.5t35.5 14.5zM50 100h1100q21 0 35.5 -14.5t14.5 -35.5v-50h-1200v50q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M600 1181q75 0 128 -53t53 -128t-53 -128t-128 -53t-128 53t-53 128t53 128t128 53zM602 798h46q34 0 55.5 -28.5t21.5 -86.5q0 -76 39 -183h-324q39 107 39 183q0 58 21.5 86.5t56.5 28.5h45zM250 400h700q21 0 35.5 -14.5t14.5 -35.5t-14.5 -35.5t-35.5 -14.5h-13 l138 -100h-950l137 100h-12q-21 0 -35.5 14.5t-14.5 35.5t14.5 35.5t35.5 14.5zM50 100h1100q21 0 35.5 -14.5t14.5 -35.5v-50h-1200v50q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M600 1300q47 0 92.5 -53.5t71 -123t25.5 -123.5q0 -78 -55.5 -133.5t-133.5 -55.5t-133.5 55.5t-55.5 133.5q0 62 34 143l144 -143l111 111l-163 163q34 26 63 26zM602 798h46q34 0 55.5 -28.5t21.5 -86.5q0 -76 39 -183h-324q39 107 39 183q0 58 21.5 86.5t56.5 28.5h45 zM250 400h700q21 0 35.5 -14.5t14.5 -35.5t-14.5 -35.5t-35.5 -14.5h-13l138 -100h-950l137 100h-12q-21 0 -35.5 14.5t-14.5 35.5t14.5 35.5t35.5 14.5zM50 100h1100q21 0 35.5 -14.5t14.5 -35.5v-50h-1200v50q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M600 1200l300 -161v-139h-300q0 -57 18.5 -108t50 -91.5t63 -72t70 -67.5t57.5 -61h-530q-60 83 -90.5 177.5t-30.5 178.5t33 164.5t87.5 139.5t126 96.5t145.5 41.5v-98zM250 400h700q21 0 35.5 -14.5t14.5 -35.5t-14.5 -35.5t-35.5 -14.5h-13l138 -100h-950l137 100 h-12q-21 0 -35.5 14.5t-14.5 35.5t14.5 35.5t35.5 14.5zM50 100h1100q21 0 35.5 -14.5t14.5 -35.5v-50h-1200v50q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M600 1300q41 0 70.5 -29.5t29.5 -70.5v-78q46 -26 73 -72t27 -100v-50h-400v50q0 54 27 100t73 72v78q0 41 29.5 70.5t70.5 29.5zM400 800h400q54 0 100 -27t72 -73h-172v-100h200v-100h-200v-100h200v-100h-200v-100h200q0 -83 -58.5 -141.5t-141.5 -58.5h-400 q-83 0 -141.5 58.5t-58.5 141.5v400q0 83 58.5 141.5t141.5 58.5z" />
|
||||
<glyph unicode="" d="M150 1100h900q21 0 35.5 -14.5t14.5 -35.5v-500q0 -21 -14.5 -35.5t-35.5 -14.5h-900q-21 0 -35.5 14.5t-14.5 35.5v500q0 21 14.5 35.5t35.5 14.5zM125 400h950q10 0 17.5 -7.5t7.5 -17.5v-50q0 -10 -7.5 -17.5t-17.5 -7.5h-283l224 -224q13 -13 13 -31.5t-13 -32 t-31.5 -13.5t-31.5 13l-88 88h-524l-87 -88q-13 -13 -32 -13t-32 13.5t-13 32t13 31.5l224 224h-289q-10 0 -17.5 7.5t-7.5 17.5v50q0 10 7.5 17.5t17.5 7.5zM541 300l-100 -100h324l-100 100h-124z" />
|
||||
<glyph unicode="" d="M200 1100h800q83 0 141.5 -58.5t58.5 -141.5v-200h-100q0 41 -29.5 70.5t-70.5 29.5h-250q-41 0 -70.5 -29.5t-29.5 -70.5h-100q0 41 -29.5 70.5t-70.5 29.5h-250q-41 0 -70.5 -29.5t-29.5 -70.5h-100v200q0 83 58.5 141.5t141.5 58.5zM100 600h1000q41 0 70.5 -29.5 t29.5 -70.5v-300h-1200v300q0 41 29.5 70.5t70.5 29.5zM300 100v-50q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5v50h200zM1100 100v-50q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5v50h200z" />
|
||||
<glyph unicode="" d="M480 1165l682 -683q31 -31 31 -75.5t-31 -75.5l-131 -131h-481l-517 518q-32 31 -32 75.5t32 75.5l295 296q31 31 75.5 31t76.5 -31zM108 794l342 -342l303 304l-341 341zM250 100h800q21 0 35.5 -14.5t14.5 -35.5v-50h-900v50q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M1057 647l-189 506q-8 19 -27.5 33t-40.5 14h-400q-21 0 -40.5 -14t-27.5 -33l-189 -506q-8 -19 1.5 -33t30.5 -14h625v-150q0 -21 14.5 -35.5t35.5 -14.5t35.5 14.5t14.5 35.5v150h125q21 0 30.5 14t1.5 33zM897 0h-595v50q0 21 14.5 35.5t35.5 14.5h50v50 q0 21 14.5 35.5t35.5 14.5h48v300h200v-300h47q21 0 35.5 -14.5t14.5 -35.5v-50h50q21 0 35.5 -14.5t14.5 -35.5v-50z" />
|
||||
<glyph unicode="" d="M900 800h300v-575q0 -10 -7.5 -17.5t-17.5 -7.5h-375v591l-300 300v84q0 10 7.5 17.5t17.5 7.5h375v-400zM1200 900h-200v200zM400 600h300v-575q0 -10 -7.5 -17.5t-17.5 -7.5h-650q-10 0 -17.5 7.5t-7.5 17.5v950q0 10 7.5 17.5t17.5 7.5h375v-400zM700 700h-200v200z " />
|
||||
<glyph unicode="" d="M484 1095h195q75 0 146 -32.5t124 -86t89.5 -122.5t48.5 -142q18 -14 35 -20q31 -10 64.5 6.5t43.5 48.5q10 34 -15 71q-19 27 -9 43q5 8 12.5 11t19 -1t23.5 -16q41 -44 39 -105q-3 -63 -46 -106.5t-104 -43.5h-62q-7 -55 -35 -117t-56 -100l-39 -234q-3 -20 -20 -34.5 t-38 -14.5h-100q-21 0 -33 14.5t-9 34.5l12 70q-49 -14 -91 -14h-195q-24 0 -65 8l-11 -64q-3 -20 -20 -34.5t-38 -14.5h-100q-21 0 -33 14.5t-9 34.5l26 157q-84 74 -128 175l-159 53q-19 7 -33 26t-14 40v50q0 21 14.5 35.5t35.5 14.5h124q11 87 56 166l-111 95 q-16 14 -12.5 23.5t24.5 9.5h203q116 101 250 101zM675 1000h-250q-10 0 -17.5 -7.5t-7.5 -17.5v-50q0 -10 7.5 -17.5t17.5 -7.5h250q10 0 17.5 7.5t7.5 17.5v50q0 10 -7.5 17.5t-17.5 7.5z" />
|
||||
<glyph unicode="" d="M641 900l423 247q19 8 42 2.5t37 -21.5l32 -38q14 -15 12.5 -36t-17.5 -34l-139 -120h-390zM50 1100h106q67 0 103 -17t66 -71l102 -212h823q21 0 35.5 -14.5t14.5 -35.5v-50q0 -21 -14 -40t-33 -26l-737 -132q-23 -4 -40 6t-26 25q-42 67 -100 67h-300q-62 0 -106 44 t-44 106v200q0 62 44 106t106 44zM173 928h-80q-19 0 -28 -14t-9 -35v-56q0 -51 42 -51h134q16 0 21.5 8t5.5 24q0 11 -16 45t-27 51q-18 28 -43 28zM550 727q-32 0 -54.5 -22.5t-22.5 -54.5t22.5 -54.5t54.5 -22.5t54.5 22.5t22.5 54.5t-22.5 54.5t-54.5 22.5zM130 389 l152 130q18 19 34 24t31 -3.5t24.5 -17.5t25.5 -28q28 -35 50.5 -51t48.5 -13l63 5l48 -179q13 -61 -3.5 -97.5t-67.5 -79.5l-80 -69q-47 -40 -109 -35.5t-103 51.5l-130 151q-40 47 -35.5 109.5t51.5 102.5zM380 377l-102 -88q-31 -27 2 -65l37 -43q13 -15 27.5 -19.5 t31.5 6.5l61 53q19 16 14 49q-2 20 -12 56t-17 45q-11 12 -19 14t-23 -8z" />
|
||||
<glyph unicode="" d="M625 1200h150q10 0 17.5 -7.5t7.5 -17.5v-109q79 -33 131 -87.5t53 -128.5q1 -46 -15 -84.5t-39 -61t-46 -38t-39 -21.5l-17 -6q6 0 15 -1.5t35 -9t50 -17.5t53 -30t50 -45t35.5 -64t14.5 -84q0 -59 -11.5 -105.5t-28.5 -76.5t-44 -51t-49.5 -31.5t-54.5 -16t-49.5 -6.5 t-43.5 -1v-75q0 -10 -7.5 -17.5t-17.5 -7.5h-150q-10 0 -17.5 7.5t-7.5 17.5v75h-100v-75q0 -10 -7.5 -17.5t-17.5 -7.5h-150q-10 0 -17.5 7.5t-7.5 17.5v75h-175q-10 0 -17.5 7.5t-7.5 17.5v150q0 10 7.5 17.5t17.5 7.5h75v600h-75q-10 0 -17.5 7.5t-7.5 17.5v150 q0 10 7.5 17.5t17.5 7.5h175v75q0 10 7.5 17.5t17.5 7.5h150q10 0 17.5 -7.5t7.5 -17.5v-75h100v75q0 10 7.5 17.5t17.5 7.5zM400 900v-200h263q28 0 48.5 10.5t30 25t15 29t5.5 25.5l1 10q0 4 -0.5 11t-6 24t-15 30t-30 24t-48.5 11h-263zM400 500v-200h363q28 0 48.5 10.5 t30 25t15 29t5.5 25.5l1 10q0 4 -0.5 11t-6 24t-15 30t-30 24t-48.5 11h-363z" />
|
||||
<glyph unicode="" d="M212 1198h780q86 0 147 -61t61 -147v-416q0 -51 -18 -142.5t-36 -157.5l-18 -66q-29 -87 -93.5 -146.5t-146.5 -59.5h-572q-82 0 -147 59t-93 147q-8 28 -20 73t-32 143.5t-20 149.5v416q0 86 61 147t147 61zM600 1045q-70 0 -132.5 -11.5t-105.5 -30.5t-78.5 -41.5 t-57 -45t-36 -41t-20.5 -30.5l-6 -12l156 -243h560l156 243q-2 5 -6 12.5t-20 29.5t-36.5 42t-57 44.5t-79 42t-105 29.5t-132.5 12zM762 703h-157l195 261z" />
|
||||
<glyph unicode="" d="M475 1300h150q103 0 189 -86t86 -189v-500q0 -41 -42 -83t-83 -42h-450q-41 0 -83 42t-42 83v500q0 103 86 189t189 86zM700 300v-225q0 -21 -27 -48t-48 -27h-150q-21 0 -48 27t-27 48v225h300z" />
|
||||
<glyph unicode="" d="M475 1300h96q0 -150 89.5 -239.5t239.5 -89.5v-446q0 -41 -42 -83t-83 -42h-450q-41 0 -83 42t-42 83v500q0 103 86 189t189 86zM700 300v-225q0 -21 -27 -48t-48 -27h-150q-21 0 -48 27t-27 48v225h300z" />
|
||||
<glyph unicode="" d="M1294 767l-638 -283l-378 170l-78 -60v-224l100 -150v-199l-150 148l-150 -149v200l100 150v250q0 4 -0.5 10.5t0 9.5t1 8t3 8t6.5 6l47 40l-147 65l642 283zM1000 380l-350 -166l-350 166v147l350 -165l350 165v-147z" />
|
||||
<glyph unicode="" d="M250 800q62 0 106 -44t44 -106t-44 -106t-106 -44t-106 44t-44 106t44 106t106 44zM650 800q62 0 106 -44t44 -106t-44 -106t-106 -44t-106 44t-44 106t44 106t106 44zM1050 800q62 0 106 -44t44 -106t-44 -106t-106 -44t-106 44t-44 106t44 106t106 44z" />
|
||||
<glyph unicode="" d="M550 1100q62 0 106 -44t44 -106t-44 -106t-106 -44t-106 44t-44 106t44 106t106 44zM550 700q62 0 106 -44t44 -106t-44 -106t-106 -44t-106 44t-44 106t44 106t106 44zM550 300q62 0 106 -44t44 -106t-44 -106t-106 -44t-106 44t-44 106t44 106t106 44z" />
|
||||
<glyph unicode="" d="M125 1100h950q10 0 17.5 -7.5t7.5 -17.5v-150q0 -10 -7.5 -17.5t-17.5 -7.5h-950q-10 0 -17.5 7.5t-7.5 17.5v150q0 10 7.5 17.5t17.5 7.5zM125 700h950q10 0 17.5 -7.5t7.5 -17.5v-150q0 -10 -7.5 -17.5t-17.5 -7.5h-950q-10 0 -17.5 7.5t-7.5 17.5v150q0 10 7.5 17.5 t17.5 7.5zM125 300h950q10 0 17.5 -7.5t7.5 -17.5v-150q0 -10 -7.5 -17.5t-17.5 -7.5h-950q-10 0 -17.5 7.5t-7.5 17.5v150q0 10 7.5 17.5t17.5 7.5z" />
|
||||
<glyph unicode="" d="M350 1200h500q162 0 256 -93.5t94 -256.5v-500q0 -165 -93.5 -257.5t-256.5 -92.5h-500q-165 0 -257.5 92.5t-92.5 257.5v500q0 165 92.5 257.5t257.5 92.5zM900 1000h-600q-41 0 -70.5 -29.5t-29.5 -70.5v-600q0 -41 29.5 -70.5t70.5 -29.5h600q41 0 70.5 29.5 t29.5 70.5v600q0 41 -29.5 70.5t-70.5 29.5zM350 900h500q21 0 35.5 -14.5t14.5 -35.5v-300q0 -21 -14.5 -35.5t-35.5 -14.5h-500q-21 0 -35.5 14.5t-14.5 35.5v300q0 21 14.5 35.5t35.5 14.5zM400 800v-200h400v200h-400z" />
|
||||
<glyph unicode="" d="M150 1100h1000q21 0 35.5 -14.5t14.5 -35.5t-14.5 -35.5t-35.5 -14.5h-50v-200h50q21 0 35.5 -14.5t14.5 -35.5t-14.5 -35.5t-35.5 -14.5h-50v-200h50q21 0 35.5 -14.5t14.5 -35.5t-14.5 -35.5t-35.5 -14.5h-50v-200h50q21 0 35.5 -14.5t14.5 -35.5t-14.5 -35.5 t-35.5 -14.5h-1000q-21 0 -35.5 14.5t-14.5 35.5t14.5 35.5t35.5 14.5h50v200h-50q-21 0 -35.5 14.5t-14.5 35.5t14.5 35.5t35.5 14.5h50v200h-50q-21 0 -35.5 14.5t-14.5 35.5t14.5 35.5t35.5 14.5h50v200h-50q-21 0 -35.5 14.5t-14.5 35.5t14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M650 1187q87 -67 118.5 -156t0 -178t-118.5 -155q-87 66 -118.5 155t0 178t118.5 156zM300 800q124 0 212 -88t88 -212q-124 0 -212 88t-88 212zM1000 800q0 -124 -88 -212t-212 -88q0 124 88 212t212 88zM300 500q124 0 212 -88t88 -212q-124 0 -212 88t-88 212z M1000 500q0 -124 -88 -212t-212 -88q0 124 88 212t212 88zM700 199v-144q0 -21 -14.5 -35.5t-35.5 -14.5t-35.5 14.5t-14.5 35.5v142q40 -4 43 -4q17 0 57 6z" />
|
||||
<glyph unicode="" d="M745 878l69 19q25 6 45 -12l298 -295q11 -11 15 -26.5t-2 -30.5q-5 -14 -18 -23.5t-28 -9.5h-8q1 0 1 -13q0 -29 -2 -56t-8.5 -62t-20 -63t-33 -53t-51 -39t-72.5 -14h-146q-184 0 -184 288q0 24 10 47q-20 4 -62 4t-63 -4q11 -24 11 -47q0 -288 -184 -288h-142 q-48 0 -84.5 21t-56 51t-32 71.5t-16 75t-3.5 68.5q0 13 2 13h-7q-15 0 -27.5 9.5t-18.5 23.5q-6 15 -2 30.5t15 25.5l298 296q20 18 46 11l76 -19q20 -5 30.5 -22.5t5.5 -37.5t-22.5 -31t-37.5 -5l-51 12l-182 -193h891l-182 193l-44 -12q-20 -5 -37.5 6t-22.5 31t6 37.5 t31 22.5z" />
|
||||
<glyph unicode="" d="M1200 900h-50q0 21 -4 37t-9.5 26.5t-18 17.5t-22 11t-28.5 5.5t-31 2t-37 0.5h-200v-850q0 -22 25 -34.5t50 -13.5l25 -2v-100h-400v100q4 0 11 0.5t24 3t30 7t24 15t11 24.5v850h-200q-25 0 -37 -0.5t-31 -2t-28.5 -5.5t-22 -11t-18 -17.5t-9.5 -26.5t-4 -37h-50v300 h1000v-300zM500 450h-25q0 15 -4 24.5t-9 14.5t-17 7.5t-20 3t-25 0.5h-100v-425q0 -11 12.5 -17.5t25.5 -7.5h12v-50h-200v50q50 0 50 25v425h-100q-17 0 -25 -0.5t-20 -3t-17 -7.5t-9 -14.5t-4 -24.5h-25v150h500v-150z" />
|
||||
<glyph unicode="" d="M1000 300v50q-25 0 -55 32q-14 14 -25 31t-16 27l-4 11l-289 747h-69l-300 -754q-18 -35 -39 -56q-9 -9 -24.5 -18.5t-26.5 -14.5l-11 -5v-50h273v50q-49 0 -78.5 21.5t-11.5 67.5l69 176h293l61 -166q13 -34 -3.5 -66.5t-55.5 -32.5v-50h312zM412 691l134 342l121 -342 h-255zM1100 150v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-1000q-21 0 -35.5 14.5t-14.5 35.5v100q0 21 14.5 35.5t35.5 14.5h1000q21 0 35.5 -14.5t14.5 -35.5z" />
|
||||
<glyph unicode="" d="M50 1200h1100q21 0 35.5 -14.5t14.5 -35.5v-1100q0 -21 -14.5 -35.5t-35.5 -14.5h-1100q-21 0 -35.5 14.5t-14.5 35.5v1100q0 21 14.5 35.5t35.5 14.5zM611 1118h-70q-13 0 -18 -12l-299 -753q-17 -32 -35 -51q-18 -18 -56 -34q-12 -5 -12 -18v-50q0 -8 5.5 -14t14.5 -6 h273q8 0 14 6t6 14v50q0 8 -6 14t-14 6q-55 0 -71 23q-10 14 0 39l63 163h266l57 -153q11 -31 -6 -55q-12 -17 -36 -17q-8 0 -14 -6t-6 -14v-50q0 -8 6 -14t14 -6h313q8 0 14 6t6 14v50q0 7 -5.5 13t-13.5 7q-17 0 -42 25q-25 27 -40 63h-1l-288 748q-5 12 -19 12zM639 611 h-197l103 264z" />
|
||||
<glyph unicode="" d="M1200 1100h-1200v100h1200v-100zM50 1000h400q21 0 35.5 -14.5t14.5 -35.5v-900q0 -21 -14.5 -35.5t-35.5 -14.5h-400q-21 0 -35.5 14.5t-14.5 35.5v900q0 21 14.5 35.5t35.5 14.5zM650 1000h400q21 0 35.5 -14.5t14.5 -35.5v-400q0 -21 -14.5 -35.5t-35.5 -14.5h-400 q-21 0 -35.5 14.5t-14.5 35.5v400q0 21 14.5 35.5t35.5 14.5zM700 900v-300h300v300h-300z" />
|
||||
<glyph unicode="" d="M50 1200h400q21 0 35.5 -14.5t14.5 -35.5v-900q0 -21 -14.5 -35.5t-35.5 -14.5h-400q-21 0 -35.5 14.5t-14.5 35.5v900q0 21 14.5 35.5t35.5 14.5zM650 700h400q21 0 35.5 -14.5t14.5 -35.5v-400q0 -21 -14.5 -35.5t-35.5 -14.5h-400q-21 0 -35.5 14.5t-14.5 35.5v400 q0 21 14.5 35.5t35.5 14.5zM700 600v-300h300v300h-300zM1200 0h-1200v100h1200v-100z" />
|
||||
<glyph unicode="" d="M50 1000h400q21 0 35.5 -14.5t14.5 -35.5v-350h100v150q0 21 14.5 35.5t35.5 14.5h400q21 0 35.5 -14.5t14.5 -35.5v-150h100v-100h-100v-150q0 -21 -14.5 -35.5t-35.5 -14.5h-400q-21 0 -35.5 14.5t-14.5 35.5v150h-100v-350q0 -21 -14.5 -35.5t-35.5 -14.5h-400 q-21 0 -35.5 14.5t-14.5 35.5v800q0 21 14.5 35.5t35.5 14.5zM700 700v-300h300v300h-300z" />
|
||||
<glyph unicode="" d="M100 0h-100v1200h100v-1200zM250 1100h400q21 0 35.5 -14.5t14.5 -35.5v-400q0 -21 -14.5 -35.5t-35.5 -14.5h-400q-21 0 -35.5 14.5t-14.5 35.5v400q0 21 14.5 35.5t35.5 14.5zM300 1000v-300h300v300h-300zM250 500h900q21 0 35.5 -14.5t14.5 -35.5v-400 q0 -21 -14.5 -35.5t-35.5 -14.5h-900q-21 0 -35.5 14.5t-14.5 35.5v400q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M600 1100h150q21 0 35.5 -14.5t14.5 -35.5v-400q0 -21 -14.5 -35.5t-35.5 -14.5h-150v-100h450q21 0 35.5 -14.5t14.5 -35.5v-400q0 -21 -14.5 -35.5t-35.5 -14.5h-900q-21 0 -35.5 14.5t-14.5 35.5v400q0 21 14.5 35.5t35.5 14.5h350v100h-150q-21 0 -35.5 14.5 t-14.5 35.5v400q0 21 14.5 35.5t35.5 14.5h150v100h100v-100zM400 1000v-300h300v300h-300z" />
|
||||
<glyph unicode="" d="M1200 0h-100v1200h100v-1200zM550 1100h400q21 0 35.5 -14.5t14.5 -35.5v-400q0 -21 -14.5 -35.5t-35.5 -14.5h-400q-21 0 -35.5 14.5t-14.5 35.5v400q0 21 14.5 35.5t35.5 14.5zM600 1000v-300h300v300h-300zM50 500h900q21 0 35.5 -14.5t14.5 -35.5v-400 q0 -21 -14.5 -35.5t-35.5 -14.5h-900q-21 0 -35.5 14.5t-14.5 35.5v400q0 21 14.5 35.5t35.5 14.5z" />
|
||||
<glyph unicode="" d="M865 565l-494 -494q-23 -23 -41 -23q-14 0 -22 13.5t-8 38.5v1000q0 25 8 38.5t22 13.5q18 0 41 -23l494 -494q14 -14 14 -35t-14 -35z" />
|
||||
<glyph unicode="" d="M335 635l494 494q29 29 50 20.5t21 -49.5v-1000q0 -41 -21 -49.5t-50 20.5l-494 494q-14 14 -14 35t14 35z" />
|
||||
<glyph unicode="" d="M100 900h1000q41 0 49.5 -21t-20.5 -50l-494 -494q-14 -14 -35 -14t-35 14l-494 494q-29 29 -20.5 50t49.5 21z" />
|
||||
<glyph unicode="" d="M635 865l494 -494q29 -29 20.5 -50t-49.5 -21h-1000q-41 0 -49.5 21t20.5 50l494 494q14 14 35 14t35 -14z" />
|
||||
<glyph unicode="" d="M700 741v-182l-692 -323v221l413 193l-413 193v221zM1200 0h-800v200h800v-200z" />
|
||||
<glyph unicode="" d="M1200 900h-200v-100h200v-100h-300v300h200v100h-200v100h300v-300zM0 700h50q0 21 4 37t9.5 26.5t18 17.5t22 11t28.5 5.5t31 2t37 0.5h100v-550q0 -22 -25 -34.5t-50 -13.5l-25 -2v-100h400v100q-4 0 -11 0.5t-24 3t-30 7t-24 15t-11 24.5v550h100q25 0 37 -0.5t31 -2 t28.5 -5.5t22 -11t18 -17.5t9.5 -26.5t4 -37h50v300h-800v-300z" />
|
||||
<glyph unicode="" d="M800 700h-50q0 21 -4 37t-9.5 26.5t-18 17.5t-22 11t-28.5 5.5t-31 2t-37 0.5h-100v-550q0 -22 25 -34.5t50 -14.5l25 -1v-100h-400v100q4 0 11 0.5t24 3t30 7t24 15t11 24.5v550h-100q-25 0 -37 -0.5t-31 -2t-28.5 -5.5t-22 -11t-18 -17.5t-9.5 -26.5t-4 -37h-50v300 h800v-300zM1100 200h-200v-100h200v-100h-300v300h200v100h-200v100h300v-300z" />
|
||||
<glyph unicode="" d="M701 1098h160q16 0 21 -11t-7 -23l-464 -464l464 -464q12 -12 7 -23t-21 -11h-160q-13 0 -23 9l-471 471q-7 8 -7 18t7 18l471 471q10 9 23 9z" />
|
||||
<glyph unicode="" d="M339 1098h160q13 0 23 -9l471 -471q7 -8 7 -18t-7 -18l-471 -471q-10 -9 -23 -9h-160q-16 0 -21 11t7 23l464 464l-464 464q-12 12 -7 23t21 11z" />
|
||||
<glyph unicode="" d="M1087 882q11 -5 11 -21v-160q0 -13 -9 -23l-471 -471q-8 -7 -18 -7t-18 7l-471 471q-9 10 -9 23v160q0 16 11 21t23 -7l464 -464l464 464q12 12 23 7z" />
|
||||
<glyph unicode="" d="M618 993l471 -471q9 -10 9 -23v-160q0 -16 -11 -21t-23 7l-464 464l-464 -464q-12 -12 -23 -7t-11 21v160q0 13 9 23l471 471q8 7 18 7t18 -7z" />
|
||||
<glyph unicode="" d="M1000 1200q0 -124 -88 -212t-212 -88q0 124 88 212t212 88zM450 1000h100q21 0 40 -14t26 -33l79 -194q5 1 16 3q34 6 54 9.5t60 7t65.5 1t61 -10t56.5 -23t42.5 -42t29 -64t5 -92t-19.5 -121.5q-1 -7 -3 -19.5t-11 -50t-20.5 -73t-32.5 -81.5t-46.5 -83t-64 -70 t-82.5 -50q-13 -5 -42 -5t-65.5 2.5t-47.5 2.5q-14 0 -49.5 -3.5t-63 -3.5t-43.5 7q-57 25 -104.5 78.5t-75 111.5t-46.5 112t-26 90l-7 35q-15 63 -18 115t4.5 88.5t26 64t39.5 43.5t52 25.5t58.5 13t62.5 2t59.5 -4.5t55.5 -8l-147 192q-12 18 -5.5 30t27.5 12z" />
|
||||
<glyph unicode="🔑" d="M250 1200h600q21 0 35.5 -14.5t14.5 -35.5v-400q0 -21 -14.5 -35.5t-35.5 -14.5h-150v-500l-255 -178q-19 -9 -32 -1t-13 29v650h-150q-21 0 -35.5 14.5t-14.5 35.5v400q0 21 14.5 35.5t35.5 14.5zM400 1100v-100h300v100h-300z" />
|
||||
<glyph unicode="🚪" d="M250 1200h750q39 0 69.5 -40.5t30.5 -84.5v-933l-700 -117v950l600 125h-700v-1000h-100v1025q0 23 15.5 49t34.5 26zM500 525v-100l100 20v100z" />
|
||||
</font>
|
||||
</defs></svg>
|
||||
|
After Width: | Height: | Size: 106 KiB |
BIN
site/fonts/glyphicons-halflings-regular.ttf
Normal file
BIN
site/fonts/glyphicons-halflings-regular.ttf
Normal file
Binary file not shown.
BIN
site/fonts/glyphicons-halflings-regular.woff
Normal file
BIN
site/fonts/glyphicons-halflings-regular.woff
Normal file
Binary file not shown.
BIN
site/fonts/glyphicons-halflings-regular.woff2
Normal file
BIN
site/fonts/glyphicons-halflings-regular.woff2
Normal file
Binary file not shown.
218
site/index.html
Normal file
218
site/index.html
Normal file
@ -0,0 +1,218 @@
|
||||
<!DOCTYPE html>
|
||||
<html lang="en">
|
||||
<head>
|
||||
<meta charset="utf-8">
|
||||
<meta http-equiv="X-UA-Compatible" content="IE=edge">
|
||||
<meta name="viewport" content="width=device-width, initial-scale=1">
|
||||
<!-- The above 3 meta tags *must* come first in the head; any other head content must come *after* these tags -->
|
||||
<meta name="description" content="">
|
||||
<meta name="author" content="">
|
||||
<link rel="icon" href="favicon.ico">
|
||||
|
||||
<title>ldap-client: Pure Haskell LDAP Client Library</title>
|
||||
|
||||
<!-- Bootstrap core CSS -->
|
||||
<link href="css/bootstrap.min.css" rel="stylesheet">
|
||||
|
||||
<!-- Custom styles for this template -->
|
||||
<link href="css/bootstrap-custom.css" rel="stylesheet">
|
||||
|
||||
<!-- Open Sans -->
|
||||
<link href="https://fonts.googleapis.com/css?family=Open+Sans:300" rel="stylesheet">
|
||||
|
||||
<!-- Pandoc -->
|
||||
<style type="text/css">code{white-space: pre;}</style>
|
||||
<style type="text/css">
|
||||
table.sourceCode, tr.sourceCode, td.lineNumbers, td.sourceCode {
|
||||
margin: 0; padding: 0; vertical-align: baseline; border: none; }
|
||||
table.sourceCode { width: 100%; line-height: 100%; }
|
||||
td.lineNumbers { text-align: right; padding-right: 4px; padding-left: 4px; color: #aaaaaa; border-right: 1px solid #aaaaaa; }
|
||||
td.sourceCode { padding-left: 5px; }
|
||||
code > span.kw { color: #007020; font-weight: bold; }
|
||||
code > span.dt { color: #902000; }
|
||||
code > span.dv { color: #40a070; }
|
||||
code > span.bn { color: #40a070; }
|
||||
code > span.fl { color: #40a070; }
|
||||
code > span.ch { color: #4070a0; }
|
||||
code > span.st { color: #4070a0; }
|
||||
code > span.co { color: #60a0b0; font-style: italic; }
|
||||
code > span.ot { color: #007020; }
|
||||
code > span.al { color: #ff0000; font-weight: bold; }
|
||||
code > span.fu { color: #06287e; }
|
||||
code > span.er { color: #ff0000; font-weight: bold; }
|
||||
</style>
|
||||
|
||||
<!-- Just for debugging purposes. Don't actually copy these 2 lines! -->
|
||||
<!--[if lt IE 9]><script src="../../assets/js/ie8-responsive-file-warning.js"></script><![endif]-->
|
||||
<script src="assets/js/ie-emulation-modes-warning.js"></script>
|
||||
|
||||
<!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
|
||||
<!--[if lt IE 9]>
|
||||
<script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
|
||||
<script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
|
||||
<![endif]-->
|
||||
</head>
|
||||
|
||||
<body>
|
||||
|
||||
<nav class="navbar navbar-inverse navbar-fixed-top">
|
||||
<div class="container">
|
||||
<div class="navbar-header">
|
||||
<ul class="nav navbar-nav">
|
||||
<li class="active"><a href="#">Home</a></li>
|
||||
<li><a href="https://hackage.haskell.org/package/ldap-client">On Hackage</a></li>
|
||||
<li><a href="https://github.com/supki/ldap-client">On GitHub</a></li>
|
||||
<li><a href="https://github.com/supki/ldap-client/tree/master/example">Examples</a></li>
|
||||
<li><a href="https://github.com/supki/ldap-client/issues">Issues</a></li>
|
||||
<li><a href="https://supki.github.io/ldap-client">API Documentation</a></li>
|
||||
</ul>
|
||||
</div>
|
||||
</div>
|
||||
</nav>
|
||||
|
||||
<div class="jumbotron">
|
||||
<div class="container">
|
||||
<h1>ldap-client</h1>
|
||||
<p>Pure Haskell LDAP client library</p>
|
||||
<a href="https://hackage.haskell.org/package/ldap-client"><img src="https://budueba.com/hackage/ldap-client"></img></a>
|
||||
<a href="https://travis-ci.org/supki/ldap-client"><img src="https://travis-ci.org/supki/ldap-client.svg?branch=master"></img></a>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="container">
|
||||
<!-- Example row of columns -->
|
||||
<div class="row">
|
||||
<div class="col-md-7">
|
||||
<h2>Installation</h2>
|
||||
<p>
|
||||
It should be possible to install <code>ldap-client</code> from Hackage:
|
||||
</p>
|
||||
|
||||
<pre>$ cabal install ldap-client</pre>
|
||||
|
||||
<p>
|
||||
or git:
|
||||
</p>
|
||||
|
||||
<pre>
|
||||
$ git clone https://github.com/supki/ldap-client
|
||||
$ cabal install ldap-client/ldap-client.cabal</pre>
|
||||
|
||||
<p>
|
||||
if you use GHC 7.6.1 or a newer version.
|
||||
</p>
|
||||
|
||||
<h2>Example</h2>
|
||||
|
||||
<p>
|
||||
To get a feeling of <code>ldap-client</code> we will try and
|
||||
log in into LDAP and change our password.
|
||||
</p>
|
||||
|
||||
<p>
|
||||
Before all that, though, here's the obligatory module header
|
||||
describing the language extensions and imports used later,
|
||||
so that you can follow along:
|
||||
</p>
|
||||
|
||||
<pre class="sourceCode literate haskell"><code class="sourceCode haskell"><span class="ot">{-# LANGUAGE OverloadedStrings #-}</span>
|
||||
<span class="kw">module</span> <span class="dt">Example</span> <span class="kw">where</span>
|
||||
|
||||
<span class="kw">import </span><span class="dt">Ldap.Client</span> <span class="kw">as</span> <span class="dt">Ldap</span></code></pre>
|
||||
|
||||
<h3>LDAP Authentication</h3>
|
||||
|
||||
<p>
|
||||
The typical LDAP authentication routine has three steps:
|
||||
<ol>
|
||||
<li>Try and bind with the manager's DN and password. Manager here means
|
||||
any account that is able to look up information in the Directory.
|
||||
<li>Find the DN of the user using manager's powers.
|
||||
<li>Try and bind with the user's newly found DN and their password.
|
||||
</ol>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
We will encapsulate the first two steps in a separate function as it's a
|
||||
fairly self-contained operation:
|
||||
</p>
|
||||
|
||||
<!-- start findUser -->
|
||||
<pre class="sourceCode literate haskell"><code class="sourceCode haskell"><span class="ot">findUser ::</span> <span class="dt">Ldap</span> <span class="ot">-></span> (<span class="dt">Dn</span>, <span class="dt">Password</span>) <span class="ot">-></span> <span class="dt">AttrValue</span> <span class="ot">-></span> <span class="dt">IO</span> (<span class="dt">Maybe</span> <span class="dt">Dn</span>)
|
||||
findUser l (managerDn, managerPassword) userName <span class="fu">=</span> <span class="kw">do</span>
|
||||
Ldap.bind l managerDn managerPassword
|
||||
users <span class="ot"><-</span> Ldap.search l (<span class="dt">Dn</span> <span class="st">"dc=com,dc=example"</span>)
|
||||
(typesOnly <span class="dt">True</span>)
|
||||
(<span class="dt">Attr</span> <span class="st">"uid"</span> <span class="fu">:=</span> userName)
|
||||
[]
|
||||
<span class="kw">case</span> users <span class="kw">of</span>
|
||||
<span class="dt">SearchEntry</span> userDn _ <span class="fu">:</span> _ <span class="ot">-></span> return (<span class="dt">Just</span> userDn)
|
||||
_ <span class="ot">-></span> return <span class="dt">Nothing</span></code></pre>
|
||||
<!-- end findUser -->
|
||||
|
||||
<p>
|
||||
The third step uses the <code>Dn</code> we've got from <code>findUser</code>; we will
|
||||
pass it through since it will be useful to <code>changePassword</code>.
|
||||
</p>
|
||||
|
||||
<!-- start login -->
|
||||
<pre class="sourceCode literate haskell"><code class="sourceCode haskell"><span class="ot">login ::</span> <span class="dt">Ldap</span> <span class="ot">-></span> (<span class="dt">Dn</span>, <span class="dt">Password</span>) <span class="ot">-></span> (<span class="dt">AttrValue</span>, <span class="dt">Password</span>) <span class="ot">-></span> <span class="dt">IO</span> <span class="dt">Dn</span>
|
||||
login l (managerDn, managerPassword) (userName, userPassword) <span class="fu">=</span> <span class="kw">do</span>
|
||||
maybeUserDn <span class="ot"><-</span> findUser l (managerDn, managerPassword) userName
|
||||
<span class="kw">case</span> maybeUserDn <span class="kw">of</span>
|
||||
<span class="dt">Nothing</span> <span class="ot">-></span> error <span class="st">"User not found!"</span>
|
||||
<span class="dt">Just</span> userDn <span class="ot">-></span> <span class="kw">do</span> Ldap.bind l userDn userPassword
|
||||
return userDn</code></pre>
|
||||
<!-- end login -->
|
||||
|
||||
<h3>Changing user's password</h3>
|
||||
|
||||
<p>
|
||||
Because we have been already bound as <code>userName</code>, we can simply modify
|
||||
the relevant attribute in the Directory to change the password.
|
||||
</p>
|
||||
|
||||
<!-- start changePassword -->
|
||||
<pre class="sourceCode literate haskell"><code class="sourceCode haskell"><span class="ot">changePassword ::</span> <span class="dt">Ldap</span> <span class="ot">-></span> <span class="dt">Dn</span> <span class="ot">-></span> <span class="dt">AttrValue</span> <span class="ot">-></span> <span class="dt">IO</span> ()
|
||||
changePassword l userDn userNewPassword <span class="fu">=</span>
|
||||
Ldap.modify l userDn [<span class="dt">Replace</span> (<span class="dt">Attr</span> <span class="st">"userPassword"</span>) [userNewPassword]]</code></pre>
|
||||
<!-- end changePassword -->
|
||||
|
||||
<h3>Finishing up</h3>
|
||||
|
||||
<p>
|
||||
The only remaining task is to wrap <code>login</code> and
|
||||
<code>changePassword</code> in <code>Ldap.with</code>.
|
||||
</p>
|
||||
|
||||
<!-- start loginAndChangePassword -->
|
||||
<pre class="sourceCode literate haskell"><code class="sourceCode haskell">loginAndChangePassword
|
||||
<span class="ot"> ::</span> (<span class="dt">Dn</span>, <span class="dt">Password</span>)
|
||||
<span class="ot">-></span> (<span class="dt">AttrValue</span>, <span class="dt">Password</span>, <span class="dt">AttrValue</span>)
|
||||
<span class="ot">-></span> <span class="dt">IO</span> (<span class="dt">Either</span> <span class="dt">LdapError</span> ())
|
||||
loginAndChangePassword (managerDn, managerPassword)
|
||||
(userName, userPassword, userNewPassword) <span class="fu">=</span>
|
||||
Ldap.with (<span class="dt">Secure</span> <span class="st">"ldap.example.com"</span>) <span class="dv">636</span> <span class="fu">$</span> \l <span class="ot">-></span> <span class="kw">do</span>
|
||||
dn <span class="ot"><-</span> login l (managerDn, managerPassword) (userName, userPassword)
|
||||
changePassword l dn userNewPassword</code></pre>
|
||||
<!-- end loginAndChangePassword -->
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<hr>
|
||||
|
||||
<footer>
|
||||
<p>© Traceback (most recent call last): 2015</p>
|
||||
</footer>
|
||||
</div> <!-- /container -->
|
||||
|
||||
|
||||
<!-- Bootstrap core JavaScript
|
||||
================================================== -->
|
||||
<!-- Placed at the end of the document so the pages load faster -->
|
||||
<script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.2/jquery.min.js"></script>
|
||||
<script src="dist/js/bootstrap.min.js"></script>
|
||||
<!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
|
||||
<script src="assets/js/ie10-viewport-bug-workaround.js"></script>
|
||||
</body>
|
||||
</html>
|
||||
7
site/js/bootstrap.min.js
vendored
Normal file
7
site/js/bootstrap.min.js
vendored
Normal file
File diff suppressed because one or more lines are too long
13
site/js/npm.js
Normal file
13
site/js/npm.js
Normal file
@ -0,0 +1,13 @@
|
||||
// This file is autogenerated via the `commonjs` Grunt task. You can require() this file in a CommonJS environment.
|
||||
require('../../js/transition.js')
|
||||
require('../../js/alert.js')
|
||||
require('../../js/button.js')
|
||||
require('../../js/carousel.js')
|
||||
require('../../js/collapse.js')
|
||||
require('../../js/dropdown.js')
|
||||
require('../../js/modal.js')
|
||||
require('../../js/tooltip.js')
|
||||
require('../../js/popover.js')
|
||||
require('../../js/scrollspy.js')
|
||||
require('../../js/tab.js')
|
||||
require('../../js/affix.js')
|
||||
@ -1,431 +0,0 @@
|
||||
{-# LANGUAGE CPP #-}
|
||||
-- | This module contains convertions from ASN.1 to LDAP types.
|
||||
module Ldap.Asn1.FromAsn1
|
||||
( parseAsn1
|
||||
, FromAsn1
|
||||
) where
|
||||
|
||||
#if __GLASGOW_HASKELL__ >= 710
|
||||
import Control.Applicative (Alternative(..), liftA2, optional)
|
||||
#else
|
||||
import Control.Applicative (Applicative(..), Alternative(..), liftA2, optional)
|
||||
#endif
|
||||
import Control.Monad (MonadPlus(..), (>=>), guard)
|
||||
#if __GLASGOW_HASKELL__ >= 86
|
||||
import Control.Monad.Fail (MonadFail, fail)
|
||||
#endif
|
||||
import Data.ASN1.Types (ASN1)
|
||||
import qualified Data.ASN1.Types as Asn1
|
||||
import Data.Foldable (asum)
|
||||
import Data.List.NonEmpty (some1)
|
||||
import qualified Data.Text.Encoding as Text
|
||||
|
||||
import Ldap.Asn1.Type
|
||||
|
||||
{-# ANN module ("HLint: ignore Use const" :: String) #-}
|
||||
{-# ANN module ("HLint: ignore Avoid lambda" :: String) #-}
|
||||
|
||||
|
||||
-- | Convert a part of ASN.1 stream to a LDAP type returning the remainder of the stream.
|
||||
parseAsn1 :: FromAsn1 a => [ASN1] -> Maybe ([ASN1], a)
|
||||
parseAsn1 = parse fromAsn1
|
||||
|
||||
-- | ASN.1 stream parsers.
|
||||
--
|
||||
-- When it's relevant, instances include the part of RFC describing the encoding.
|
||||
class FromAsn1 a where
|
||||
fromAsn1 :: Parser [ASN1] a
|
||||
|
||||
{- |
|
||||
@
|
||||
LDAPMessage ::= SEQUENCE {
|
||||
messageID MessageID,
|
||||
protocolOp CHOICE {
|
||||
bindRequest BindRequest,
|
||||
bindResponse BindResponse,
|
||||
unbindRequest UnbindRequest,
|
||||
searchRequest SearchRequest,
|
||||
searchResEntry SearchResultEntry,
|
||||
searchResDone SearchResultDone,
|
||||
searchResRef SearchResultReference,
|
||||
addRequest AddRequest,
|
||||
addResponse AddResponse,
|
||||
... },
|
||||
controls [0] Controls OPTIONAL }
|
||||
@
|
||||
-}
|
||||
instance FromAsn1 op => FromAsn1 (LdapMessage op) where
|
||||
fromAsn1 = do
|
||||
Asn1.Start Asn1.Sequence <- next
|
||||
i <- fromAsn1
|
||||
op <- fromAsn1
|
||||
Asn1.End Asn1.Sequence <- next
|
||||
return (LdapMessage i op Nothing)
|
||||
|
||||
{- |
|
||||
@
|
||||
MessageID ::= INTEGER (0 .. maxInt)
|
||||
@
|
||||
-}
|
||||
instance FromAsn1 Id where
|
||||
fromAsn1 = do
|
||||
Asn1.IntVal i <- next
|
||||
return (Id (fromIntegral i))
|
||||
|
||||
{- |
|
||||
@
|
||||
LDAPString ::= OCTET STRING -- UTF-8 encoded,
|
||||
@
|
||||
-}
|
||||
instance FromAsn1 LdapString where
|
||||
fromAsn1 = do
|
||||
Asn1.OctetString s <- next
|
||||
case Text.decodeUtf8' s of
|
||||
Right t -> return (LdapString t)
|
||||
Left _ -> empty
|
||||
|
||||
{- |
|
||||
@
|
||||
LDAPOID ::= OCTET STRING -- Constrained to \<numericoid\>
|
||||
@
|
||||
-}
|
||||
instance FromAsn1 LdapOid where
|
||||
fromAsn1 = do
|
||||
Asn1.OctetString s <- next
|
||||
case Text.decodeUtf8' s of
|
||||
Right t -> return (LdapOid t)
|
||||
Left _ -> empty
|
||||
|
||||
{- |
|
||||
@
|
||||
LDAPDN ::= LDAPString
|
||||
@
|
||||
-}
|
||||
instance FromAsn1 LdapDn where
|
||||
fromAsn1 = fmap LdapDn fromAsn1
|
||||
|
||||
{- |
|
||||
@
|
||||
AttributeDescription ::= LDAPString
|
||||
@
|
||||
-}
|
||||
instance FromAsn1 AttributeDescription where
|
||||
fromAsn1 = fmap AttributeDescription fromAsn1
|
||||
|
||||
{- |
|
||||
@
|
||||
AttributeValue ::= OCTET STRING
|
||||
@
|
||||
-}
|
||||
instance FromAsn1 AttributeValue where
|
||||
fromAsn1 = do
|
||||
Asn1.OctetString s <- next
|
||||
return (AttributeValue s)
|
||||
|
||||
{- |
|
||||
@
|
||||
PartialAttribute ::= SEQUENCE {
|
||||
type AttributeDescription,
|
||||
vals SET OF value AttributeValue }
|
||||
@
|
||||
-}
|
||||
instance FromAsn1 PartialAttribute where
|
||||
fromAsn1 = do
|
||||
Asn1.Start Asn1.Sequence <- next
|
||||
d <- fromAsn1
|
||||
Asn1.Start Asn1.Set <- next
|
||||
vs <- many fromAsn1
|
||||
Asn1.End Asn1.Set <- next
|
||||
Asn1.End Asn1.Sequence <- next
|
||||
return (PartialAttribute d vs)
|
||||
|
||||
{- |
|
||||
@
|
||||
LDAPResult ::= SEQUENCE {
|
||||
resultCode ENUMERATED {
|
||||
success (0),
|
||||
operationsError (1),
|
||||
protocolError (2),
|
||||
timeLimitExceeded (3),
|
||||
sizeLimitExceeded (4),
|
||||
compareFalse (5),
|
||||
compareTrue (6),
|
||||
authMethodNotSupported (7),
|
||||
strongerAuthRequired (8),
|
||||
-- 9 reserved --
|
||||
referral (10),
|
||||
adminLimitExceeded (11),
|
||||
unavailableCriticalExtension (12),
|
||||
confidentialityRequired (13),
|
||||
saslBindInProgress (14),
|
||||
noSuchAttribute (16),
|
||||
undefinedAttributeType (17),
|
||||
inappropriateMatching (18),
|
||||
constraintViolation (19),
|
||||
attributeOrValueExists (20),
|
||||
invalidAttributeSyntax (21),
|
||||
-- 22-31 unused --
|
||||
noSuchObject (32),
|
||||
aliasProblem (33),
|
||||
invalidDNSyntax (34),
|
||||
-- 35 reserved for undefined isLeaf --
|
||||
aliasDereferencingProblem (36),
|
||||
-- 37-47 unused --
|
||||
inappropriateAuthentication (48),
|
||||
invalidCredentials (49),
|
||||
insufficientAccessRights (50),
|
||||
busy (51),
|
||||
unavailable (52),
|
||||
unwillingToPerform (53),
|
||||
loopDetect (54),
|
||||
-- 55-63 unused --
|
||||
namingViolation (64),
|
||||
objectClassViolation (65),
|
||||
notAllowedOnNonLeaf (66),
|
||||
notAllowedOnRDN (67),
|
||||
entryAlreadyExists (68),
|
||||
objectClassModsProhibited (69),
|
||||
-- 70 reserved for CLDAP --
|
||||
affectsMultipleDSAs (71),
|
||||
-- 72-79 unused --
|
||||
other (80),
|
||||
... },
|
||||
matchedDN LDAPDN,
|
||||
diagnosticMessage LDAPString,
|
||||
referral [3] Referral OPTIONAL }
|
||||
@
|
||||
-}
|
||||
instance FromAsn1 LdapResult where
|
||||
fromAsn1 = do
|
||||
resultCode <- do
|
||||
Asn1.Enumerated x <- next
|
||||
case x of
|
||||
0 -> pure Success
|
||||
1 -> pure OperationError
|
||||
2 -> pure ProtocolError
|
||||
3 -> pure TimeLimitExceeded
|
||||
4 -> pure SizeLimitExceeded
|
||||
5 -> pure CompareFalse
|
||||
6 -> pure CompareTrue
|
||||
7 -> pure AuthMethodNotSupported
|
||||
8 -> pure StrongerAuthRequired
|
||||
10 -> pure Referral
|
||||
11 -> pure AdminLimitExceeded
|
||||
12 -> pure UnavailableCriticalExtension
|
||||
13 -> pure ConfidentialityRequired
|
||||
14 -> pure SaslBindInProgress
|
||||
16 -> pure NoSuchAttribute
|
||||
17 -> pure UndefinedAttributeType
|
||||
18 -> pure InappropriateMatching
|
||||
19 -> pure ConstraintViolation
|
||||
20 -> pure AttributeOrValueExists
|
||||
21 -> pure InvalidAttributeSyntax
|
||||
32 -> pure NoSuchObject
|
||||
33 -> pure AliasProblem
|
||||
34 -> pure InvalidDNSyntax
|
||||
36 -> pure AliasDereferencingProblem
|
||||
48 -> pure InappropriateAuthentication
|
||||
49 -> pure InvalidCredentials
|
||||
50 -> pure InsufficientAccessRights
|
||||
51 -> pure Busy
|
||||
52 -> pure Unavailable
|
||||
53 -> pure UnwillingToPerform
|
||||
54 -> pure LoopDetect
|
||||
64 -> pure NamingViolation
|
||||
65 -> pure ObjectClassViolation
|
||||
66 -> pure NotAllowedOnNonLeaf
|
||||
67 -> pure NotAllowedOnRDN
|
||||
68 -> pure EntryAlreadyExists
|
||||
69 -> pure ObjectClassModsProhibited
|
||||
71 -> pure AffectsMultipleDSAs
|
||||
80 -> pure Other
|
||||
_ -> empty
|
||||
matchedDn <- fromAsn1
|
||||
diagnosticMessage
|
||||
<- fromAsn1
|
||||
referral <- optional $ do
|
||||
Asn1.Start (Asn1.Container Asn1.Context 0) <- next
|
||||
x <- fromAsn1
|
||||
Asn1.End (Asn1.Container Asn1.Context 0) <- next
|
||||
return x
|
||||
return (LdapResult resultCode matchedDn diagnosticMessage referral)
|
||||
|
||||
{- |
|
||||
@
|
||||
Referral ::= SEQUENCE SIZE (1..MAX) OF uri URI
|
||||
@
|
||||
-}
|
||||
instance FromAsn1 ReferralUris where
|
||||
fromAsn1 = do
|
||||
Asn1.Start Asn1.Sequence <- next
|
||||
xs <- some1 fromAsn1
|
||||
Asn1.End Asn1.Sequence <- next
|
||||
return (ReferralUris xs)
|
||||
|
||||
{- |
|
||||
@
|
||||
URI ::= LDAPString
|
||||
@
|
||||
-}
|
||||
instance FromAsn1 Uri where
|
||||
fromAsn1 = fmap Uri fromAsn1
|
||||
|
||||
{- |
|
||||
@
|
||||
BindResponse ::= [APPLICATION 1] SEQUENCE {
|
||||
COMPONENTS OF LDAPResult,
|
||||
serverSaslCreds [7] OCTET STRING OPTIONAL }
|
||||
@
|
||||
|
||||
@
|
||||
SearchResultEntry ::= [APPLICATION 4] SEQUENCE {
|
||||
objectName LDAPDN,
|
||||
attributes PartialAttributeList }
|
||||
@
|
||||
|
||||
@
|
||||
SearchResultReference ::= [APPLICATION 19] SEQUENCE
|
||||
SIZE (1..MAX) OF uri URI
|
||||
@
|
||||
|
||||
@
|
||||
SearchResultDone ::= [APPLICATION 5] LDAPResult
|
||||
@
|
||||
|
||||
@
|
||||
ModifyResponse ::= [APPLICATION 7] LDAPResult
|
||||
@
|
||||
|
||||
@
|
||||
AddResponse ::= [APPLICATION 9] LDAPResult
|
||||
@
|
||||
|
||||
@
|
||||
DelResponse ::= [APPLICATION 11] LDAPResult
|
||||
@
|
||||
|
||||
@
|
||||
ModifyDNResponse ::= [APPLICATION 13] LDAPResult
|
||||
@
|
||||
|
||||
@
|
||||
CompareResponse ::= [APPLICATION 15] LDAPResult
|
||||
@
|
||||
|
||||
@
|
||||
ExtendedResponse ::= [APPLICATION 24] SEQUENCE {
|
||||
COMPONENTS OF LDAPResult,
|
||||
responseName [10] LDAPOID OPTIONAL,
|
||||
responseValue [11] OCTET STRING OPTIONAL }
|
||||
@
|
||||
|
||||
@
|
||||
IntermediateResponse ::= [APPLICATION 25] SEQUENCE {
|
||||
responseName [0] LDAPOID OPTIONAL,
|
||||
responseValue [1] OCTET STRING OPTIONAL }
|
||||
@
|
||||
-}
|
||||
instance FromAsn1 ProtocolServerOp where
|
||||
fromAsn1 = asum
|
||||
[ fmap (\res -> BindResponse res Nothing) (app 1)
|
||||
, fmap (uncurry SearchResultEntry) (app 4)
|
||||
, fmap SearchResultDone (app 5)
|
||||
, fmap ModifyResponse (app 7)
|
||||
, fmap AddResponse (app 9)
|
||||
, fmap DeleteResponse (app 11)
|
||||
, fmap ModifyDnResponse (app 13)
|
||||
, fmap CompareResponse (app 15)
|
||||
|
||||
, do
|
||||
Asn1.Start (Asn1.Container Asn1.Application 19) <- next
|
||||
uris <- some1 fromAsn1
|
||||
Asn1.End (Asn1.Container Asn1.Application 19) <- next
|
||||
return (SearchResultReference uris)
|
||||
|
||||
, do
|
||||
Asn1.Start (Asn1.Container Asn1.Application 24) <- next
|
||||
res <- fromAsn1
|
||||
utf8Name <- optional $ do
|
||||
Asn1.Other Asn1.Context 10 s <- next
|
||||
return s
|
||||
name <- maybe (return Nothing) (\n -> case Text.decodeUtf8' n of
|
||||
Left _ -> empty
|
||||
Right name -> return (Just name)) utf8Name
|
||||
value <- optional $ do
|
||||
Asn1.Other Asn1.Context 11 s <- next
|
||||
return s
|
||||
Asn1.End (Asn1.Container Asn1.Application 24) <- next
|
||||
return (ExtendedResponse res (fmap LdapOid name) value)
|
||||
|
||||
, do
|
||||
Asn1.Start (Asn1.Container Asn1.Application 25) <- next
|
||||
name <- optional fromAsn1
|
||||
value <- optional $ do
|
||||
Asn1.OctetString s <- next
|
||||
return s
|
||||
Asn1.End (Asn1.Container Asn1.Application 25) <- next
|
||||
return (IntermediateResponse name value)
|
||||
]
|
||||
where
|
||||
app l = do
|
||||
Asn1.Start (Asn1.Container Asn1.Application x) <- next
|
||||
guard (x == l)
|
||||
res <- fromAsn1
|
||||
Asn1.End (Asn1.Container Asn1.Application y) <- next
|
||||
guard (y == l)
|
||||
return res
|
||||
|
||||
{- |
|
||||
@
|
||||
PartialAttributeList ::= SEQUENCE OF partialAttribute PartialAttribute
|
||||
@
|
||||
-}
|
||||
instance FromAsn1 PartialAttributeList where
|
||||
fromAsn1 = do
|
||||
Asn1.Start Asn1.Sequence <- next
|
||||
xs <- many fromAsn1
|
||||
Asn1.End Asn1.Sequence <- next
|
||||
return (PartialAttributeList xs)
|
||||
|
||||
instance (FromAsn1 a, FromAsn1 b) => FromAsn1 (a, b) where
|
||||
fromAsn1 = liftA2 (,) fromAsn1 fromAsn1
|
||||
|
||||
|
||||
newtype Parser s a = Parser { unParser :: s -> Maybe (s, a) }
|
||||
|
||||
instance Functor (Parser s) where
|
||||
fmap f (Parser g) = Parser (fmap (fmap f) . g)
|
||||
|
||||
instance Applicative (Parser s) where
|
||||
pure x = Parser (\s -> pure (s, x))
|
||||
Parser mf <*> Parser mx = Parser $ \s -> do
|
||||
(s', f) <- mf s
|
||||
(s'', x) <- mx s'
|
||||
pure (s'', f x)
|
||||
|
||||
instance Alternative (Parser s) where
|
||||
empty = Parser (\_ -> empty)
|
||||
Parser ma <|> Parser mb =
|
||||
Parser (\s -> ma s <|> mb s)
|
||||
|
||||
instance Monad (Parser s) where
|
||||
return x = Parser (\s -> return (s, x))
|
||||
Parser mx >>= k =
|
||||
Parser (mx >=> \(s', x) -> unParser (k x) s')
|
||||
fail _ = empty
|
||||
|
||||
instance MonadPlus (Parser s) where
|
||||
mzero = Parser (\_ -> mzero)
|
||||
Parser ma `mplus` Parser mb =
|
||||
Parser (\s -> ma s `mplus` mb s)
|
||||
|
||||
#if __GLASGOW_HASKELL__ >= 86
|
||||
instance MonadFail (Parser s) where
|
||||
fail _ = mzero
|
||||
#endif
|
||||
|
||||
parse :: Parser s a -> s -> Maybe (s, a)
|
||||
parse = unParser
|
||||
|
||||
next :: Parser [s] s
|
||||
next = Parser (\s -> case s of [] -> Nothing; x : xs -> Just (xs, x))
|
||||
@ -1,440 +0,0 @@
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
-- | This module contains convertions from LDAP types to ASN.1.
|
||||
--
|
||||
-- Various hacks are employed because "asn1-encoding" only encodes to DER, but
|
||||
-- LDAP demands BER-encoding. So, when a definition looks suspiciously different
|
||||
-- from the spec in the comment, that's why. I hope all that will be fixed
|
||||
-- eventually.
|
||||
module Ldap.Asn1.ToAsn1
|
||||
( ToAsn1(toAsn1)
|
||||
) where
|
||||
|
||||
import Data.ASN1.Types (ASN1, ASN1Class, ASN1Tag, ASN1ConstructionType)
|
||||
import qualified Data.ASN1.Types as Asn1
|
||||
import Data.ByteString (ByteString)
|
||||
import Data.Foldable (fold, foldMap)
|
||||
import Data.List.NonEmpty (NonEmpty)
|
||||
import Data.Maybe (maybe)
|
||||
import Data.Monoid (Endo(Endo), (<>), mempty)
|
||||
import qualified Data.Text.Encoding as Text
|
||||
import Prelude (Integer, (.), fromIntegral)
|
||||
|
||||
import Ldap.Asn1.Type
|
||||
|
||||
|
||||
-- | Convert a LDAP type to ASN.1.
|
||||
--
|
||||
-- When it's relevant, instances include the part of RFC describing the encoding.
|
||||
class ToAsn1 a where
|
||||
toAsn1 :: a -> Endo [ASN1]
|
||||
|
||||
{- |
|
||||
@
|
||||
LDAPMessage ::= SEQUENCE {
|
||||
messageID MessageID,
|
||||
protocolOp CHOICE {
|
||||
bindRequest BindRequest,
|
||||
bindResponse BindResponse,
|
||||
unbindRequest UnbindRequest,
|
||||
searchRequest SearchRequest,
|
||||
searchResEntry SearchResultEntry,
|
||||
searchResDone SearchResultDone,
|
||||
searchResRef SearchResultReference,
|
||||
addRequest AddRequest,
|
||||
addResponse AddResponse,
|
||||
... },
|
||||
controls [0] Controls OPTIONAL }
|
||||
@
|
||||
-}
|
||||
instance ToAsn1 op => ToAsn1 (LdapMessage op) where
|
||||
toAsn1 (LdapMessage i op mc) =
|
||||
sequence (toAsn1 i <> toAsn1 op <> maybe mempty (context 0 . toAsn1) mc)
|
||||
|
||||
{- |
|
||||
@
|
||||
MessageID ::= INTEGER (0 .. maxInt)
|
||||
@
|
||||
-}
|
||||
instance ToAsn1 Id where
|
||||
toAsn1 (Id i) = single (Asn1.IntVal (fromIntegral i))
|
||||
|
||||
{- |
|
||||
@
|
||||
LDAPString ::= OCTET STRING -- UTF-8 encoded
|
||||
@
|
||||
-}
|
||||
instance ToAsn1 LdapString where
|
||||
toAsn1 (LdapString s) = single (Asn1.OctetString (Text.encodeUtf8 s))
|
||||
|
||||
{- |
|
||||
@
|
||||
LDAPOID ::= OCTET STRING -- Constrained to \<numericoid\>
|
||||
@
|
||||
-}
|
||||
instance ToAsn1 LdapOid where
|
||||
toAsn1 (LdapOid s) = single (Asn1.OctetString (Text.encodeUtf8 s))
|
||||
|
||||
{- |
|
||||
@
|
||||
LDAPDN ::= LDAPString -- Constrained to \<distinguishedName\>
|
||||
@
|
||||
-}
|
||||
instance ToAsn1 LdapDn where
|
||||
toAsn1 (LdapDn s) = toAsn1 s
|
||||
|
||||
{- |
|
||||
@
|
||||
RelativeLDAPDN ::= LDAPString -- Constrained to \<name-component\>
|
||||
@
|
||||
-}
|
||||
instance ToAsn1 RelativeLdapDn where
|
||||
toAsn1 (RelativeLdapDn s) = toAsn1 s
|
||||
|
||||
{- |
|
||||
@
|
||||
AttributeDescription ::= LDAPString
|
||||
@
|
||||
-}
|
||||
instance ToAsn1 AttributeDescription where
|
||||
toAsn1 (AttributeDescription s) = toAsn1 s
|
||||
|
||||
{- |
|
||||
@
|
||||
AttributeValue ::= OCTET STRING
|
||||
@
|
||||
-}
|
||||
instance ToAsn1 AttributeValue where
|
||||
toAsn1 (AttributeValue s) = single (Asn1.OctetString s)
|
||||
|
||||
{- |
|
||||
@
|
||||
AttributeValueAssertion ::= SEQUENCE {
|
||||
attributeDesc AttributeDescription,
|
||||
assertionValue AssertionValue }
|
||||
@
|
||||
-}
|
||||
instance ToAsn1 AttributeValueAssertion where
|
||||
toAsn1 (AttributeValueAssertion d v) = toAsn1 d <> toAsn1 v
|
||||
|
||||
{- |
|
||||
@
|
||||
AssertionValue ::= OCTET STRING
|
||||
@
|
||||
-}
|
||||
instance ToAsn1 AssertionValue where
|
||||
toAsn1 (AssertionValue s) = single (Asn1.OctetString s)
|
||||
|
||||
|
||||
{- |
|
||||
@
|
||||
PartialAttribute ::= SEQUENCE {
|
||||
type AttributeDescription,
|
||||
vals SET OF value AttributeValue }
|
||||
@
|
||||
-}
|
||||
instance ToAsn1 PartialAttribute where
|
||||
toAsn1 (PartialAttribute d xs) = sequence (toAsn1 d <> set (toAsn1 xs))
|
||||
|
||||
{- |
|
||||
@
|
||||
Attribute ::= PartialAttribute(WITH COMPONENTS {
|
||||
...,
|
||||
vals (SIZE(1..MAX))})
|
||||
@
|
||||
-}
|
||||
instance ToAsn1 Attribute where
|
||||
toAsn1 (Attribute d xs) = sequence (toAsn1 d <> set (toAsn1 xs))
|
||||
|
||||
{- |
|
||||
@
|
||||
MatchingRuleId ::= LDAPString
|
||||
@
|
||||
-}
|
||||
instance ToAsn1 MatchingRuleId where
|
||||
toAsn1 (MatchingRuleId s) = toAsn1 s
|
||||
|
||||
{- |
|
||||
@
|
||||
Controls ::= SEQUENCE OF control Control
|
||||
@
|
||||
-}
|
||||
instance ToAsn1 Controls where
|
||||
toAsn1 (Controls cs) = sequence (toAsn1 cs)
|
||||
|
||||
{- |
|
||||
@
|
||||
Control ::= SEQUENCE {
|
||||
controlType LDAPOID,
|
||||
criticality BOOLEAN DEFAULT FALSE,
|
||||
controlValue OCTET STRING OPTIONAL }
|
||||
@
|
||||
-}
|
||||
instance ToAsn1 Control where
|
||||
toAsn1 (Control t c v) =
|
||||
sequence (fold
|
||||
[ toAsn1 t
|
||||
, single (Asn1.Boolean c)
|
||||
, maybe mempty (single . Asn1.OctetString) v
|
||||
])
|
||||
|
||||
{- |
|
||||
@
|
||||
BindRequest ::= [APPLICATION 0] SEQUENCE {
|
||||
version INTEGER (1 .. 127),
|
||||
name LDAPDN,
|
||||
authentication AuthenticationChoice }
|
||||
@
|
||||
|
||||
@
|
||||
UnbindRequest ::= [APPLICATION 2] NULL
|
||||
@
|
||||
|
||||
@
|
||||
SearchRequest ::= [APPLICATION 3] SEQUENCE {
|
||||
baseObject LDAPDN,
|
||||
scope ENUMERATED {
|
||||
baseObject (0),
|
||||
singleLevel (1),
|
||||
wholeSubtree (2),
|
||||
... },
|
||||
derefAliases ENUMERATED {
|
||||
neverDerefAliases (0),
|
||||
derefInSearching (1),
|
||||
derefFindingBaseObj (2),
|
||||
derefAlways (3) },
|
||||
sizeLimit INTEGER (0 .. maxInt),
|
||||
timeLimit INTEGER (0 .. maxInt),
|
||||
typesOnly BOOLEAN,
|
||||
filter Filter,
|
||||
attributes AttributeSelection }
|
||||
@
|
||||
|
||||
@
|
||||
ModifyRequest ::= [APPLICATION 6] SEQUENCE {
|
||||
object LDAPDN,
|
||||
changes SEQUENCE OF change SEQUENCE {
|
||||
operation ENUMERATED {
|
||||
add (0),
|
||||
delete (1),
|
||||
replace (2),
|
||||
... },
|
||||
modification PartialAttribute } }
|
||||
@
|
||||
|
||||
@
|
||||
AddRequest ::= [APPLICATION 8] SEQUENCE {
|
||||
entry LDAPDN,
|
||||
attributes AttributeList }
|
||||
@
|
||||
|
||||
@
|
||||
DelRequest ::= [APPLICATION 10] LDAPDN
|
||||
@
|
||||
|
||||
@
|
||||
ModifyDNRequest ::= [APPLICATION 12] SEQUENCE {
|
||||
entry LDAPDN,
|
||||
newrdn RelativeLDAPDN,
|
||||
deleteoldrdn BOOLEAN,
|
||||
newSuperior [0] LDAPDN OPTIONAL }
|
||||
@
|
||||
|
||||
@
|
||||
CompareRequest ::= [APPLICATION 14] SEQUENCE {
|
||||
entry LDAPDN,
|
||||
ava AttributeValueAssertion }
|
||||
@
|
||||
|
||||
@
|
||||
ExtendedRequest ::= [APPLICATION 23] SEQUENCE {
|
||||
requestName [0] LDAPOID,
|
||||
requestValue [1] OCTET STRING OPTIONAL }
|
||||
@
|
||||
-}
|
||||
instance ToAsn1 ProtocolClientOp where
|
||||
toAsn1 (BindRequest v n a) =
|
||||
application 0 (single (Asn1.IntVal (fromIntegral v)) <> toAsn1 n <> toAsn1 a)
|
||||
toAsn1 UnbindRequest =
|
||||
other Asn1.Application 2 mempty
|
||||
toAsn1 (SearchRequest bo s da sl tl to f a) =
|
||||
application 3 (fold
|
||||
[ toAsn1 bo
|
||||
, enum s'
|
||||
, enum da'
|
||||
, single (Asn1.IntVal (fromIntegral sl))
|
||||
, single (Asn1.IntVal (fromIntegral tl))
|
||||
, single (Asn1.Boolean to)
|
||||
, toAsn1 f
|
||||
, toAsn1 a
|
||||
])
|
||||
where
|
||||
s' = case s of
|
||||
BaseObject -> 0
|
||||
SingleLevel -> 1
|
||||
WholeSubtree -> 2
|
||||
da' = case da of
|
||||
NeverDerefAliases -> 0
|
||||
DerefInSearching -> 1
|
||||
DerefFindingBaseObject -> 2
|
||||
DerefAlways -> 3
|
||||
toAsn1 (ModifyRequest dn xs) =
|
||||
application 6 (fold
|
||||
[ toAsn1 dn
|
||||
, sequence (foldMap (\(op, pa) -> sequence (enum (case op of
|
||||
Add -> 0
|
||||
Delete -> 1
|
||||
Replace -> 2) <> toAsn1 pa)) xs)
|
||||
])
|
||||
toAsn1 (AddRequest dn as) =
|
||||
application 8 (toAsn1 dn <> toAsn1 as)
|
||||
toAsn1 (DeleteRequest (LdapDn (LdapString dn))) =
|
||||
other Asn1.Application 10 (Text.encodeUtf8 dn)
|
||||
toAsn1 (ModifyDnRequest dn rdn del new) =
|
||||
application 12 (fold
|
||||
[ toAsn1 dn
|
||||
, toAsn1 rdn
|
||||
, single (Asn1.Boolean del)
|
||||
, maybe mempty
|
||||
(\(LdapDn (LdapString dn')) -> other Asn1.Context 0 (Text.encodeUtf8 dn'))
|
||||
new
|
||||
])
|
||||
toAsn1 (CompareRequest dn av) =
|
||||
application 14 (toAsn1 dn <> sequence (toAsn1 av))
|
||||
toAsn1 (ExtendedRequest (LdapOid oid) mv) =
|
||||
application 23 (fold
|
||||
[ other Asn1.Context 0 (Text.encodeUtf8 oid)
|
||||
, maybe mempty (other Asn1.Context 1) mv
|
||||
])
|
||||
|
||||
{- |
|
||||
@
|
||||
AuthenticationChoice ::= CHOICE {
|
||||
simple [0] OCTET STRING,
|
||||
sasl [3] SaslCredentials,
|
||||
... }
|
||||
|
||||
|
||||
SaslCredentials ::= SEQUENCE {
|
||||
mechanism LDAPString,
|
||||
credentials OCTET STRING OPTIONAL }
|
||||
@
|
||||
-}
|
||||
instance ToAsn1 AuthenticationChoice where
|
||||
toAsn1 (Simple s) = other Asn1.Context 0 s
|
||||
toAsn1 (Sasl External c) =
|
||||
context 3 (fold
|
||||
[ toAsn1 (LdapString "EXTERNAL")
|
||||
, maybe mempty (toAsn1 . LdapString) c
|
||||
])
|
||||
{- |
|
||||
@
|
||||
AttributeSelection ::= SEQUENCE OF selector LDAPString
|
||||
@
|
||||
-}
|
||||
instance ToAsn1 AttributeSelection where
|
||||
toAsn1 (AttributeSelection as) = sequence (toAsn1 as)
|
||||
|
||||
{- |
|
||||
@
|
||||
Filter ::= CHOICE {
|
||||
and [0] SET SIZE (1..MAX) OF filter Filter,
|
||||
or [1] SET SIZE (1..MAX) OF filter Filter,
|
||||
not [2] Filter,
|
||||
equalityMatch [3] AttributeValueAssertion,
|
||||
substrings [4] SubstringFilter,
|
||||
greaterOrEqual [5] AttributeValueAssertion,
|
||||
lessOrEqual [6] AttributeValueAssertion,
|
||||
present [7] AttributeDescription,
|
||||
approxMatch [8] AttributeValueAssertion,
|
||||
extensibleMatch [9] MatchingRuleAssertion,
|
||||
... }
|
||||
@
|
||||
-}
|
||||
instance ToAsn1 Filter where
|
||||
toAsn1 f = case f of
|
||||
And xs -> context 0 (toAsn1 xs)
|
||||
Or xs -> context 1 (toAsn1 xs)
|
||||
Not x -> context 2 (toAsn1 x)
|
||||
EqualityMatch x -> context 3 (toAsn1 x)
|
||||
Substrings x -> context 4 (toAsn1 x)
|
||||
GreaterOrEqual x -> context 5 (toAsn1 x)
|
||||
LessOrEqual x -> context 6 (toAsn1 x)
|
||||
Present (AttributeDescription (LdapString x))
|
||||
-> other Asn1.Context 7 (Text.encodeUtf8 x)
|
||||
ApproxMatch x -> context 8 (toAsn1 x)
|
||||
ExtensibleMatch x -> context 9 (toAsn1 x)
|
||||
|
||||
{- |
|
||||
@
|
||||
SubstringFilter ::= SEQUENCE {
|
||||
type AttributeDescription,
|
||||
substrings SEQUENCE SIZE (1..MAX) OF substring CHOICE {
|
||||
initial [0] AssertionValue, -- can occur at most once
|
||||
any [1] AssertionValue,
|
||||
final [2] AssertionValue } -- can occur at most once
|
||||
}
|
||||
@
|
||||
-}
|
||||
instance ToAsn1 SubstringFilter where
|
||||
toAsn1 (SubstringFilter ad ss) =
|
||||
toAsn1 ad <> sequence (foldMap (\s -> case s of
|
||||
Initial (AssertionValue v) -> other Asn1.Context 0 v
|
||||
Any (AssertionValue v) -> other Asn1.Context 1 v
|
||||
Final (AssertionValue v) -> other Asn1.Context 2 v) ss)
|
||||
|
||||
{- |
|
||||
@
|
||||
MatchingRuleAssertion ::= SEQUENCE {
|
||||
matchingRule [1] MatchingRuleId OPTIONAL,
|
||||
type [2] AttributeDescription OPTIONAL,
|
||||
matchValue [3] AssertionValue,
|
||||
dnAttributes [4] BOOLEAN DEFAULT FALSE }
|
||||
@
|
||||
-}
|
||||
instance ToAsn1 MatchingRuleAssertion where
|
||||
toAsn1 (MatchingRuleAssertion mmr mad (AssertionValue av) _) = fold
|
||||
[ maybe mempty f mmr
|
||||
, maybe mempty g mad
|
||||
, other Asn1.Context 3 av
|
||||
]
|
||||
where
|
||||
f (MatchingRuleId (LdapString x)) = other Asn1.Context 1 (Text.encodeUtf8 x)
|
||||
g (AttributeDescription (LdapString x)) = other Asn1.Context 2 (Text.encodeUtf8 x)
|
||||
|
||||
{- |
|
||||
@
|
||||
AttributeList ::= SEQUENCE OF attribute Attribute
|
||||
@
|
||||
-}
|
||||
instance ToAsn1 AttributeList where
|
||||
toAsn1 (AttributeList xs) = sequence (toAsn1 xs)
|
||||
|
||||
instance ToAsn1 a => ToAsn1 [a] where
|
||||
toAsn1 = foldMap toAsn1
|
||||
|
||||
instance ToAsn1 a => ToAsn1 (NonEmpty a) where
|
||||
toAsn1 = foldMap toAsn1
|
||||
|
||||
sequence :: Endo [ASN1] -> Endo [ASN1]
|
||||
sequence = construction Asn1.Sequence
|
||||
|
||||
set :: Endo [ASN1] -> Endo [ASN1]
|
||||
set = construction Asn1.Set
|
||||
|
||||
application :: ASN1Tag -> Endo [ASN1] -> Endo [ASN1]
|
||||
application = construction . Asn1.Container Asn1.Application
|
||||
|
||||
context :: ASN1Tag -> Endo [ASN1] -> Endo [ASN1]
|
||||
context = construction . Asn1.Container Asn1.Context
|
||||
|
||||
construction :: ASN1ConstructionType -> Endo [ASN1] -> Endo [ASN1]
|
||||
construction t x = single (Asn1.Start t) <> x <> single (Asn1.End t)
|
||||
|
||||
other :: ASN1Class -> ASN1Tag -> ByteString -> Endo [ASN1]
|
||||
other c t = single . Asn1.Other c t
|
||||
|
||||
enum :: Integer -> Endo [ASN1]
|
||||
enum = single . Asn1.Enumerated
|
||||
|
||||
single :: a -> Endo [a]
|
||||
single x = Endo (x :)
|
||||
@ -1,228 +0,0 @@
|
||||
module Ldap.Asn1.Type where
|
||||
|
||||
import Data.ByteString (ByteString)
|
||||
import Data.Int (Int8, Int32)
|
||||
import Data.List.NonEmpty (NonEmpty)
|
||||
import Data.Text (Text)
|
||||
|
||||
|
||||
-- | Message envelope. (Section 4.1.1.)
|
||||
data LdapMessage op = LdapMessage
|
||||
{ ldapMessageId :: !Id
|
||||
, ldapMessageOp :: !op
|
||||
, ldapMessageControls :: !(Maybe Controls)
|
||||
} deriving (Show, Eq)
|
||||
|
||||
-- | Every message being processed has a unique non-zero integer ID. (Section 4.1.1.1.)
|
||||
newtype Id = Id { unId :: Int32 }
|
||||
deriving (Show, Eq, Ord)
|
||||
|
||||
-- | Client requests. The RFC doesn't make a difference between 'ProtocolClientOp'
|
||||
-- and 'ProtocolServerOp' but it's useful to distinguish between them in Haskell.
|
||||
data ProtocolClientOp =
|
||||
BindRequest !Int8 !LdapDn !AuthenticationChoice
|
||||
| UnbindRequest
|
||||
| SearchRequest !LdapDn !Scope !DerefAliases !Int32 !Int32 !Bool !Filter !AttributeSelection
|
||||
| ModifyRequest !LdapDn ![(Operation, PartialAttribute)]
|
||||
| AddRequest !LdapDn !AttributeList
|
||||
| DeleteRequest !LdapDn
|
||||
| ModifyDnRequest !LdapDn !RelativeLdapDn !Bool !(Maybe LdapDn)
|
||||
| CompareRequest !LdapDn !AttributeValueAssertion
|
||||
| ExtendedRequest !LdapOid !(Maybe ByteString)
|
||||
deriving (Show, Eq)
|
||||
|
||||
-- | Server responses. The RFC doesn't make a difference between 'ProtocolClientOp'
|
||||
-- and 'ProtocolServerOp' but it's useful to distinguish between them in Haskell.
|
||||
data ProtocolServerOp =
|
||||
BindResponse !LdapResult !(Maybe ByteString)
|
||||
| SearchResultEntry !LdapDn !PartialAttributeList
|
||||
| SearchResultReference !(NonEmpty Uri)
|
||||
| SearchResultDone !LdapResult
|
||||
| ModifyResponse !LdapResult
|
||||
| AddResponse !LdapResult
|
||||
| DeleteResponse !LdapResult
|
||||
| ModifyDnResponse !LdapResult
|
||||
| CompareResponse !LdapResult
|
||||
| ExtendedResponse !LdapResult !(Maybe LdapOid) !(Maybe ByteString)
|
||||
| IntermediateResponse !(Maybe LdapOid) !(Maybe ByteString)
|
||||
deriving (Show, Eq)
|
||||
|
||||
-- | Not really a choice until SASL is supported.
|
||||
data AuthenticationChoice =
|
||||
Simple !ByteString
|
||||
| Sasl !SaslMechanism !(Maybe Text)
|
||||
deriving (Show, Eq)
|
||||
|
||||
-- | SASL Mechanism, for now only SASL EXTERNAL is supported
|
||||
data SaslMechanism =
|
||||
External
|
||||
deriving (Show, Eq)
|
||||
|
||||
-- | Scope of the search to be performed.
|
||||
data Scope =
|
||||
BaseObject -- ^ Constrained to the entry named by baseObject.
|
||||
| SingleLevel -- ^ Constrained to the immediate subordinates of the entry named by baseObject.
|
||||
| WholeSubtree -- ^ Constrained to the entry named by baseObject and to all its subordinates.
|
||||
deriving (Show, Eq)
|
||||
|
||||
-- | An indicator as to whether or not alias entries (as defined in
|
||||
-- [RFC4512]) are to be dereferenced during stages of the Search
|
||||
-- operation.
|
||||
data DerefAliases =
|
||||
NeverDerefAliases -- ^ Do not dereference aliases in searching or in locating the base object of the Search.
|
||||
| DerefInSearching -- ^ While searching subordinates of the base object, dereference any alias within the search scope.
|
||||
| DerefFindingBaseObject -- ^ Dereference aliases in locating the base object of the Search.
|
||||
| DerefAlways -- ^ Dereference aliases both in searching and in locating the base object of the Search.
|
||||
deriving (Show, Eq)
|
||||
|
||||
-- | Conditions that must be fulfilled in order for the Search to match a given entry.
|
||||
data Filter =
|
||||
And !(NonEmpty Filter) -- ^ All filters evaluate to @TRUE@
|
||||
| Or !(NonEmpty Filter) -- ^ Any filter evaluates to @TRUE@
|
||||
| Not !Filter -- ^ Filter evaluates to @FALSE@
|
||||
| EqualityMatch !AttributeValueAssertion -- ^ @EQUALITY@ rule returns @TRUE@
|
||||
| Substrings !SubstringFilter -- ^ @SUBSTR@ rule returns @TRUE@
|
||||
| GreaterOrEqual !AttributeValueAssertion -- ^ @ORDERING@ rule returns @FALSE@
|
||||
| LessOrEqual !AttributeValueAssertion -- ^ @ORDERING@ or @EQUALITY@ rule returns @TRUE@
|
||||
| Present !AttributeDescription -- ^ Attribute is present in the entry
|
||||
| ApproxMatch !AttributeValueAssertion -- ^ Same as 'EqualityMatch' for most servers
|
||||
| ExtensibleMatch !MatchingRuleAssertion
|
||||
deriving (Show, Eq)
|
||||
|
||||
data SubstringFilter = SubstringFilter !AttributeDescription !(NonEmpty Substring)
|
||||
deriving (Show, Eq)
|
||||
|
||||
data Substring =
|
||||
Initial !AssertionValue
|
||||
| Any !AssertionValue
|
||||
| Final !AssertionValue
|
||||
deriving (Show, Eq)
|
||||
|
||||
data MatchingRuleAssertion = MatchingRuleAssertion !(Maybe MatchingRuleId) !(Maybe AttributeDescription) !AssertionValue !Bool
|
||||
deriving (Show, Eq)
|
||||
|
||||
-- | Matching rules are defined in Section 4.1.3 of [RFC4512]. A matching
|
||||
-- rule is identified in the protocol by the printable representation of
|
||||
-- either its <numericoid> or one of its short name descriptors
|
||||
-- [RFC4512], e.g., 'caseIgnoreMatch' or '2.5.13.2'. (Section 4.1.8.)
|
||||
newtype MatchingRuleId = MatchingRuleId LdapString
|
||||
deriving (Show, Eq)
|
||||
|
||||
newtype AttributeSelection = AttributeSelection [LdapString]
|
||||
deriving (Show, Eq)
|
||||
|
||||
newtype AttributeList = AttributeList [Attribute]
|
||||
deriving (Show, Eq)
|
||||
|
||||
newtype PartialAttributeList = PartialAttributeList [PartialAttribute]
|
||||
deriving (Show, Eq)
|
||||
|
||||
newtype Controls = Controls [Control]
|
||||
deriving (Show, Eq)
|
||||
|
||||
data Control = Control !LdapOid !Bool !(Maybe ByteString)
|
||||
deriving (Show, Eq)
|
||||
|
||||
data LdapResult = LdapResult !ResultCode !LdapDn !LdapString !(Maybe ReferralUris)
|
||||
deriving (Show, Eq)
|
||||
|
||||
-- | LDAP operation's result.
|
||||
data ResultCode =
|
||||
Success
|
||||
| OperationError
|
||||
| ProtocolError
|
||||
| TimeLimitExceeded
|
||||
| SizeLimitExceeded
|
||||
| CompareFalse
|
||||
| CompareTrue
|
||||
| AuthMethodNotSupported
|
||||
| StrongerAuthRequired
|
||||
| Referral
|
||||
| AdminLimitExceeded
|
||||
| UnavailableCriticalExtension
|
||||
| ConfidentialityRequired
|
||||
| SaslBindInProgress
|
||||
| NoSuchAttribute
|
||||
| UndefinedAttributeType
|
||||
| InappropriateMatching
|
||||
| ConstraintViolation
|
||||
| AttributeOrValueExists
|
||||
| InvalidAttributeSyntax
|
||||
| NoSuchObject
|
||||
| AliasProblem
|
||||
| InvalidDNSyntax
|
||||
| AliasDereferencingProblem
|
||||
| InappropriateAuthentication
|
||||
| InvalidCredentials
|
||||
| InsufficientAccessRights
|
||||
| Busy
|
||||
| Unavailable
|
||||
| UnwillingToPerform
|
||||
| LoopDetect
|
||||
| NamingViolation
|
||||
| ObjectClassViolation
|
||||
| NotAllowedOnNonLeaf
|
||||
| NotAllowedOnRDN
|
||||
| EntryAlreadyExists
|
||||
| ObjectClassModsProhibited
|
||||
| AffectsMultipleDSAs
|
||||
| Other
|
||||
deriving (Show, Eq)
|
||||
|
||||
newtype AttributeDescription = AttributeDescription LdapString
|
||||
deriving (Show, Eq)
|
||||
|
||||
newtype AttributeValue = AttributeValue ByteString
|
||||
deriving (Show, Eq)
|
||||
|
||||
data AttributeValueAssertion = AttributeValueAssertion !AttributeDescription !AssertionValue
|
||||
deriving (Show, Eq)
|
||||
|
||||
newtype AssertionValue = AssertionValue ByteString
|
||||
deriving (Show, Eq)
|
||||
|
||||
data Attribute = Attribute !AttributeDescription !(NonEmpty AttributeValue)
|
||||
deriving (Show, Eq)
|
||||
|
||||
data PartialAttribute = PartialAttribute !AttributeDescription ![AttributeValue]
|
||||
deriving (Show, Eq)
|
||||
|
||||
|
||||
|
||||
-- | An LDAPDN is defined to be the representation of a Distinguished Name
|
||||
-- (DN) after encoding according to the specification in [RFC4514].
|
||||
newtype LdapDn = LdapDn LdapString
|
||||
deriving (Show, Eq)
|
||||
|
||||
-- | A RelativeLDAPDN is defined to be the representation of a Relative
|
||||
-- Distinguished Name (RDN) after encoding according to the
|
||||
-- specification in [RFC4514].
|
||||
newtype RelativeLdapDn = RelativeLdapDn LdapString
|
||||
deriving (Show, Eq)
|
||||
|
||||
newtype ReferralUris = ReferralUris (NonEmpty Uri)
|
||||
deriving (Show, Eq)
|
||||
|
||||
newtype Uri = Uri LdapString
|
||||
deriving (Show, Eq)
|
||||
|
||||
data Operation =
|
||||
Add
|
||||
| Delete
|
||||
| Replace
|
||||
deriving (Show, Eq)
|
||||
|
||||
-- | The LDAPString is a notational convenience to indicate that, although
|
||||
-- strings of LDAPString type encode as ASN.1 OCTET STRING types, the
|
||||
-- [ISO10646] character set (a superset of [Unicode]) is used, encoded
|
||||
-- following the UTF-8 [RFC3629] algorithm. (Section 4.1.2.)
|
||||
newtype LdapString = LdapString Text
|
||||
deriving (Show, Eq)
|
||||
|
||||
-- | The LDAPOID is a notational convenience to indicate that the
|
||||
-- permitted value of this string is a (UTF-8 encoded) dotted-decimal
|
||||
-- representation of an OBJECT IDENTIFIER. Although an LDAPOID is
|
||||
-- encoded as an OCTET STRING, values are limited to the definition of
|
||||
-- \<numericoid\> given in Section 1.4 of [RFC4512].
|
||||
newtype LdapOid = LdapOid Text
|
||||
deriving (Show, Eq)
|
||||
@ -1,336 +0,0 @@
|
||||
{-# LANGUAGE CPP #-}
|
||||
{-# LANGUAGE BangPatterns #-}
|
||||
{-# LANGUAGE DeriveDataTypeable #-}
|
||||
{-# LANGUAGE NamedFieldPuns #-}
|
||||
{-# LANGUAGE ScopedTypeVariables #-}
|
||||
|
||||
-- | This module is intended to be imported qualified
|
||||
--
|
||||
-- @
|
||||
-- import qualified Ldap.Client as Ldap
|
||||
-- @
|
||||
module Ldap.Client
|
||||
( with
|
||||
, with'
|
||||
, runsIn
|
||||
, runsInEither
|
||||
, open
|
||||
, close
|
||||
, Host(..)
|
||||
, defaultTlsSettings
|
||||
, insecureTlsSettings
|
||||
, PortNumber
|
||||
, Ldap
|
||||
, LdapH
|
||||
, LdapError(..)
|
||||
, ResponseError(..)
|
||||
, Type.ResultCode(..)
|
||||
-- * Bind
|
||||
, Password(..)
|
||||
, bind
|
||||
, externalBind
|
||||
-- * Search
|
||||
, search
|
||||
, SearchEntry(..)
|
||||
-- ** Search modifiers
|
||||
, Search
|
||||
, Mod
|
||||
, Type.Scope(..)
|
||||
, scope
|
||||
, size
|
||||
, time
|
||||
, typesOnly
|
||||
, Type.DerefAliases(..)
|
||||
, derefAliases
|
||||
, Filter(..)
|
||||
-- * Modify
|
||||
, modify
|
||||
, Operation(..)
|
||||
-- * Add
|
||||
, add
|
||||
-- * Delete
|
||||
, delete
|
||||
-- * ModifyDn
|
||||
, RelativeDn(..)
|
||||
, modifyDn
|
||||
-- * Compare
|
||||
, compare
|
||||
-- * Extended
|
||||
, Oid(..)
|
||||
, extended
|
||||
-- * Miscellanous
|
||||
, Dn(..)
|
||||
, Attr(..)
|
||||
, AttrValue
|
||||
, AttrList
|
||||
-- * Re-exports
|
||||
, NonEmpty
|
||||
) where
|
||||
|
||||
#if __GLASGOW_HASKELL__ < 710
|
||||
import Control.Applicative ((<$>))
|
||||
#endif
|
||||
import qualified Control.Concurrent.Async as Async
|
||||
import Control.Concurrent.STM (atomically, throwSTM)
|
||||
import Control.Concurrent.STM.TMVar (putTMVar)
|
||||
import Control.Concurrent.STM.TQueue (TQueue, newTQueueIO, writeTQueue, readTQueue)
|
||||
import Control.Exception (Exception, bracket, throwIO, SomeException, fromException, throw, Handler(..))
|
||||
import Control.Monad (forever)
|
||||
import Data.Void (Void)
|
||||
import qualified Data.ASN1.BinaryEncoding as Asn1
|
||||
import qualified Data.ASN1.Encoding as Asn1
|
||||
import qualified Data.ASN1.Error as Asn1
|
||||
import qualified Data.ByteString as ByteString
|
||||
import qualified Data.ByteString.Lazy as ByteString.Lazy
|
||||
import Data.Foldable (asum)
|
||||
import Data.Function (fix)
|
||||
import Data.List.NonEmpty (NonEmpty((:|)))
|
||||
import qualified Data.Map.Strict as Map
|
||||
import Data.Monoid (Endo(appEndo))
|
||||
import Data.Text (Text)
|
||||
#if __GLASGOW_HASKELL__ < 710
|
||||
import Data.Traversable (traverse)
|
||||
#endif
|
||||
import Data.Typeable (Typeable)
|
||||
import Network.Connection (Connection)
|
||||
import qualified Network.Connection as Conn
|
||||
import Prelude hiding (compare)
|
||||
import qualified System.IO.Error as IO
|
||||
|
||||
import Ldap.Asn1.ToAsn1 (ToAsn1(toAsn1))
|
||||
import Ldap.Asn1.FromAsn1 (FromAsn1, parseAsn1)
|
||||
import qualified Ldap.Asn1.Type as Type
|
||||
import Ldap.Client.Internal
|
||||
import Ldap.Client.Bind (Password(..), bind, externalBind)
|
||||
import Ldap.Client.Search
|
||||
( search
|
||||
, Search
|
||||
, Mod
|
||||
, scope
|
||||
, size
|
||||
, time
|
||||
, typesOnly
|
||||
, derefAliases
|
||||
, Filter(..)
|
||||
, SearchEntry(..)
|
||||
)
|
||||
import Ldap.Client.Modify (Operation(..), modify, RelativeDn(..), modifyDn)
|
||||
import Ldap.Client.Add (add)
|
||||
import Ldap.Client.Delete (delete)
|
||||
import Ldap.Client.Compare (compare)
|
||||
import Ldap.Client.Extended (Oid(..), extended, noticeOfDisconnectionOid)
|
||||
|
||||
{-# ANN module ("HLint: ignore Use first" :: String) #-}
|
||||
|
||||
|
||||
-- | Various failures that can happen when working with LDAP.
|
||||
data LdapError
|
||||
= IOError !IOError -- ^ Network failure.
|
||||
| ParseError !Asn1.ASN1Error -- ^ Invalid ASN.1 data received from the server.
|
||||
| ResponseError !ResponseError -- ^ An LDAP operation failed.
|
||||
| DisconnectError !Disconnect -- ^ Notice of Disconnection has been received.
|
||||
deriving (Show, Eq)
|
||||
|
||||
instance Exception LdapError
|
||||
|
||||
data Disconnect = Disconnect !Type.ResultCode !Dn !Text
|
||||
deriving (Show, Eq, Typeable)
|
||||
|
||||
instance Exception Disconnect
|
||||
|
||||
newtype LdapH = LdapH Ldap
|
||||
|
||||
-- | Provide a 'LdapH' to a function needing an 'Ldap' handle.
|
||||
runsIn :: (Ldap -> IO a)
|
||||
-> LdapH
|
||||
-> IO a
|
||||
runsIn act (LdapH ldap) = do
|
||||
actor <- Async.async (act ldap)
|
||||
r <- Async.waitEitherCatch (workers ldap) actor
|
||||
case r of
|
||||
Left (Right _a) -> error "Unreachable"
|
||||
Left (Left e) -> throwIO =<< catchesHandler workerErr e
|
||||
Right (Right r') -> pure r'
|
||||
Right (Left e) -> throwIO =<< catchesHandler respErr e
|
||||
|
||||
-- | Provide a 'LdapH' to a function needing an 'Ldap' handle
|
||||
runsInEither :: (Ldap -> IO a)
|
||||
-> LdapH
|
||||
-> IO (Either LdapError a)
|
||||
runsInEither act (LdapH ldap) = do
|
||||
actor <- Async.async (act ldap)
|
||||
r <- Async.waitEitherCatch (workers ldap) actor
|
||||
case r of
|
||||
Left (Right _a) -> error "Unreachable"
|
||||
Left (Left e) -> do Left <$> catchesHandler workerErr e
|
||||
Right (Right r') -> pure (Right r')
|
||||
Right (Left e) -> do Left <$> catchesHandler respErr e
|
||||
|
||||
|
||||
workerErr :: [Handler LdapError]
|
||||
workerErr = [ Handler (\(ex :: IOError) -> pure (IOError ex))
|
||||
, Handler (\(ex :: Asn1.ASN1Error) -> pure (ParseError ex))
|
||||
, Handler (\(ex :: Disconnect) -> pure (DisconnectError ex))
|
||||
]
|
||||
|
||||
respErr :: [Handler LdapError]
|
||||
respErr = [ Handler (\(ex :: ResponseError) -> pure (ResponseError ex))
|
||||
]
|
||||
|
||||
catchesHandler :: [Handler a] -> SomeException -> IO a
|
||||
catchesHandler handlers e = foldr tryHandler (throw e) handlers
|
||||
where tryHandler (Handler handler) res
|
||||
= case fromException e of
|
||||
Just e' -> handler e'
|
||||
Nothing -> res
|
||||
|
||||
-- | The entrypoint into LDAP.
|
||||
with' :: Host -> PortNumber -> (Ldap -> IO a) -> IO a
|
||||
with' host port act = bracket (open host port) close (runsIn act)
|
||||
|
||||
with :: Host -> PortNumber -> (Ldap -> IO a) -> IO (Either LdapError a)
|
||||
with host port act = bracket (open host port) close (runsInEither act)
|
||||
|
||||
-- | Creates an LDAP handle. This action is useful for creating your own resource
|
||||
-- management, such as with 'resource-pool'. The handle must be manually closed
|
||||
-- with 'close'.
|
||||
open :: Host -> PortNumber -> IO (LdapH)
|
||||
open host port = do
|
||||
context <- Conn.initConnectionContext
|
||||
conn <- Conn.connectTo context params
|
||||
reqQ <- newTQueueIO
|
||||
inQ <- newTQueueIO
|
||||
outQ <- newTQueueIO
|
||||
|
||||
-- The input worker that reads data off the network.
|
||||
(inW :: Async.Async Void) <- Async.async (input inQ conn)
|
||||
|
||||
-- The output worker that sends data onto the network.
|
||||
(outW :: Async.Async Void) <- Async.async (output outQ conn)
|
||||
|
||||
-- The dispatch worker that sends data between the three queues.
|
||||
(dispW :: Async.Async Void) <- Async.async (dispatch reqQ inQ outQ)
|
||||
|
||||
-- We use this to propagate exceptions between the workers. The `workers` Async is just a tool to
|
||||
-- exchange exceptions between the entire worker group and another thread.
|
||||
workers <- Async.async (snd <$> Async.waitAnyCancel [inW, outW, dispW])
|
||||
|
||||
pure (LdapH (Ldap reqQ workers conn))
|
||||
where
|
||||
params = Conn.ConnectionParams
|
||||
{ Conn.connectionHostname =
|
||||
case host of
|
||||
Plain h -> h
|
||||
Tls h _ -> h
|
||||
, Conn.connectionPort = port
|
||||
, Conn.connectionUseSecure =
|
||||
case host of
|
||||
Plain _ -> Nothing
|
||||
Tls _ settings -> pure settings
|
||||
, Conn.connectionUseSocks = Nothing
|
||||
}
|
||||
|
||||
-- | Closes an LDAP connection.
|
||||
-- This is to be used in together with 'open'.
|
||||
close :: LdapH -> IO ()
|
||||
close (LdapH ldap) = do
|
||||
unbindAsync ldap
|
||||
Conn.connectionClose (conn ldap)
|
||||
Async.cancel (workers ldap)
|
||||
|
||||
defaultTlsSettings :: Conn.TLSSettings
|
||||
defaultTlsSettings = Conn.TLSSettingsSimple
|
||||
{ Conn.settingDisableCertificateValidation = False
|
||||
, Conn.settingDisableSession = False
|
||||
, Conn.settingUseServerName = False
|
||||
}
|
||||
|
||||
insecureTlsSettings :: Conn.TLSSettings
|
||||
insecureTlsSettings = Conn.TLSSettingsSimple
|
||||
{ Conn.settingDisableCertificateValidation = True
|
||||
, Conn.settingDisableSession = False
|
||||
, Conn.settingUseServerName = False
|
||||
}
|
||||
|
||||
-- | Reads Asn1 BER encoded chunks off a connection into a TQueue.
|
||||
input :: FromAsn1 a => TQueue a -> Connection -> IO b
|
||||
input inq conn = loop []
|
||||
where
|
||||
loop chunks = do
|
||||
chunk <- Conn.connectionGet conn 8192
|
||||
case ByteString.length chunk of
|
||||
0 -> throwIO (IO.mkIOError IO.eofErrorType "Ldap.Client.input" Nothing Nothing)
|
||||
_ -> do
|
||||
let chunks' = chunk : chunks
|
||||
case Asn1.decodeASN1 Asn1.BER (ByteString.Lazy.fromChunks (reverse chunks')) of
|
||||
Left Asn1.ParsingPartial
|
||||
-> loop chunks'
|
||||
Left e -> throwIO e
|
||||
Right asn1 -> do
|
||||
flip fix asn1 $ \loop' asn1' ->
|
||||
case parseAsn1 asn1' of
|
||||
Nothing -> return ()
|
||||
Just (asn1'', a) -> do
|
||||
atomically (writeTQueue inq a)
|
||||
loop' asn1''
|
||||
loop []
|
||||
|
||||
-- | Transmits Asn1 DER encoded data from a TQueue into a Connection.
|
||||
output :: ToAsn1 a => TQueue a -> Connection -> IO b
|
||||
output out conn = forever $ do
|
||||
msg <- atomically (readTQueue out)
|
||||
Conn.connectionPut conn (encode (toAsn1 msg))
|
||||
where
|
||||
encode x = Asn1.encodeASN1' Asn1.DER (appEndo x [])
|
||||
|
||||
dispatch
|
||||
:: TQueue ClientMessage
|
||||
-> TQueue (Type.LdapMessage Type.ProtocolServerOp)
|
||||
-> TQueue (Type.LdapMessage Request)
|
||||
-> IO a
|
||||
dispatch reqq inq outq = loop (Map.empty, 1)
|
||||
where
|
||||
saveUp mid op res = return (Map.adjust (\(stack, var) -> (op : stack, var)) mid res)
|
||||
|
||||
loop (!req, !counter) =
|
||||
loop =<< atomically (asum
|
||||
[ do New new var <- readTQueue reqq
|
||||
writeTQueue outq (Type.LdapMessage (Type.Id counter) new Nothing)
|
||||
return (Map.insert (Type.Id counter) ([], var) req, counter + 1)
|
||||
, do Type.LdapMessage mid op _
|
||||
<- readTQueue inq
|
||||
res <- case op of
|
||||
Type.BindResponse {} -> done mid op req
|
||||
Type.SearchResultEntry {} -> saveUp mid op req
|
||||
Type.SearchResultReference {} -> return req
|
||||
Type.SearchResultDone {} -> done mid op req
|
||||
Type.ModifyResponse {} -> done mid op req
|
||||
Type.AddResponse {} -> done mid op req
|
||||
Type.DeleteResponse {} -> done mid op req
|
||||
Type.ModifyDnResponse {} -> done mid op req
|
||||
Type.CompareResponse {} -> done mid op req
|
||||
Type.ExtendedResponse {} -> probablyDisconnect mid op req
|
||||
Type.IntermediateResponse {} -> saveUp mid op req
|
||||
return (res, counter)
|
||||
])
|
||||
|
||||
done mid op req =
|
||||
case Map.lookup mid req of
|
||||
Nothing -> return req
|
||||
Just (stack, var) -> do
|
||||
putTMVar var (op :| stack)
|
||||
return (Map.delete mid req)
|
||||
|
||||
probablyDisconnect (Type.Id 0)
|
||||
(Type.ExtendedResponse
|
||||
(Type.LdapResult code
|
||||
(Type.LdapDn (Type.LdapString dn))
|
||||
(Type.LdapString reason)
|
||||
_)
|
||||
moid _)
|
||||
req =
|
||||
case moid of
|
||||
Just (Type.LdapOid oid)
|
||||
| Oid oid == noticeOfDisconnectionOid -> throwSTM (Disconnect code (Dn dn) reason)
|
||||
_ -> return req
|
||||
probablyDisconnect mid op req = done mid op req
|
||||
@ -1,69 +0,0 @@
|
||||
-- | <https://tools.ietf.org/html/rfc4511#section-4.7 Add> operation.
|
||||
--
|
||||
-- This operation comes in four flavours:
|
||||
--
|
||||
-- * synchronous, exception throwing ('add')
|
||||
--
|
||||
-- * synchronous, returning 'Either' 'ResponseError' @()@ ('addEither')
|
||||
--
|
||||
-- * asynchronous, 'IO' based ('addAsync')
|
||||
--
|
||||
-- * asynchronous, 'STM' based ('addAsyncSTM')
|
||||
--
|
||||
-- Of those, the first one ('add') is probably the most useful for the typical usecase.
|
||||
module Ldap.Client.Add
|
||||
( add
|
||||
, addEither
|
||||
, addAsync
|
||||
, addAsyncSTM
|
||||
, Async
|
||||
, wait
|
||||
, waitSTM
|
||||
) where
|
||||
|
||||
import Control.Monad.STM (STM, atomically)
|
||||
import Data.List.NonEmpty (NonEmpty((:|)))
|
||||
|
||||
import qualified Ldap.Asn1.Type as Type
|
||||
import Ldap.Client.Internal
|
||||
|
||||
|
||||
-- | Perform the Add operation synchronously. Raises 'ResponseError' on failures.
|
||||
add :: Ldap -> Dn -> AttrList NonEmpty -> IO ()
|
||||
add l dn as =
|
||||
eitherToIO =<< addEither l dn as
|
||||
|
||||
-- | Perform the Add operation synchronously. Returns @Left e@ where
|
||||
-- @e@ is a 'ResponseError' on failures.
|
||||
addEither :: Ldap -> Dn -> AttrList NonEmpty -> IO (Either ResponseError ())
|
||||
addEither l dn as =
|
||||
wait =<< addAsync l dn as
|
||||
|
||||
-- | Perform the Add operation asynchronously. Call 'Ldap.Client.wait' to wait
|
||||
-- for its completion.
|
||||
addAsync :: Ldap -> Dn -> AttrList NonEmpty -> IO (Async ())
|
||||
addAsync l dn as =
|
||||
atomically (addAsyncSTM l dn as)
|
||||
|
||||
-- | Perform the Add operation asynchronously.
|
||||
--
|
||||
-- Don't wait for its completion (with 'Ldap.Client.waitSTM') in the
|
||||
-- same transaction you've performed it in.
|
||||
addAsyncSTM :: Ldap -> Dn -> AttrList NonEmpty -> STM (Async ())
|
||||
addAsyncSTM l dn as =
|
||||
let req = addRequest dn as in sendRequest l (addResult req) req
|
||||
|
||||
addRequest :: Dn -> AttrList NonEmpty -> Request
|
||||
addRequest (Dn dn) as =
|
||||
Type.AddRequest (Type.LdapDn (Type.LdapString dn))
|
||||
(Type.AttributeList (map f as))
|
||||
where
|
||||
f (Attr x, xs) = Type.Attribute (Type.AttributeDescription (Type.LdapString x))
|
||||
(fmap Type.AttributeValue xs)
|
||||
|
||||
addResult :: Request -> Response -> Either ResponseError ()
|
||||
addResult req (Type.AddResponse (Type.LdapResult code (Type.LdapDn (Type.LdapString dn))
|
||||
(Type.LdapString msg) _) :| [])
|
||||
| Type.Success <- code = Right ()
|
||||
| otherwise = Left (ResponseErrorCode req code (Dn dn) msg)
|
||||
addResult req res = Left (ResponseInvalid req res)
|
||||
@ -1,114 +0,0 @@
|
||||
-- | <https://tools.ietf.org/html/rfc4511#section-4.2 Bind> operation.
|
||||
--
|
||||
-- This operation comes in four flavours:
|
||||
--
|
||||
-- * synchronous, exception throwing ('bind')
|
||||
--
|
||||
-- * synchronous, returning 'Either' 'ResponseError' @()@ ('bindEither')
|
||||
--
|
||||
-- * asynchronous, 'IO' based ('bindAsync')
|
||||
--
|
||||
-- * asynchronous, 'STM' based ('bindAsyncSTM')
|
||||
--
|
||||
-- Of those, the first one ('bind') is probably the most useful for the typical usecase.
|
||||
module Ldap.Client.Bind
|
||||
( Password(..)
|
||||
, bind
|
||||
, bindEither
|
||||
, bindAsync
|
||||
, bindAsyncSTM
|
||||
, externalBind
|
||||
, externalBindEither
|
||||
, externalBindAsync
|
||||
, externalBindAsyncSTM
|
||||
, Async
|
||||
, wait
|
||||
, waitSTM
|
||||
) where
|
||||
|
||||
import Control.Monad.STM (STM, atomically)
|
||||
import Data.ByteString (ByteString)
|
||||
import Data.Text (Text)
|
||||
import Data.List.NonEmpty (NonEmpty((:|)))
|
||||
|
||||
import qualified Ldap.Asn1.Type as Type
|
||||
import Ldap.Client.Internal
|
||||
|
||||
|
||||
-- | User's password.
|
||||
newtype Password = Password ByteString
|
||||
deriving (Show, Eq)
|
||||
|
||||
-- | Perform the Bind operation synchronously. Raises 'ResponseError' on failures.
|
||||
bind :: Ldap -> Dn -> Password -> IO ()
|
||||
bind l username password =
|
||||
eitherToIO =<< bindEither l username password
|
||||
|
||||
-- | Perform the Bind operation synchronously. Returns @Left e@ where
|
||||
-- @e@ is a 'ResponseError' on failures.
|
||||
bindEither :: Ldap -> Dn -> Password -> IO (Either ResponseError ())
|
||||
bindEither l username password =
|
||||
wait =<< bindAsync l username password
|
||||
|
||||
-- | Perform the Bind operation asynchronously. Call 'Ldap.Client.wait' to wait
|
||||
-- for its completion.
|
||||
bindAsync :: Ldap -> Dn -> Password -> IO (Async ())
|
||||
bindAsync l username password =
|
||||
atomically (bindAsyncSTM l username password)
|
||||
|
||||
-- | Perform the Bind operation asynchronously.
|
||||
--
|
||||
-- Don't wait for its completion (with 'Ldap.Client.waitSTM') in the
|
||||
-- same transaction you've performed it in.
|
||||
bindAsyncSTM :: Ldap -> Dn -> Password -> STM (Async ())
|
||||
bindAsyncSTM l username password =
|
||||
let req = bindRequest username password in sendRequest l (bindResult req) req
|
||||
|
||||
bindRequest :: Dn -> Password -> Request
|
||||
bindRequest (Dn username) (Password password) =
|
||||
Type.BindRequest ldapVersion
|
||||
(Type.LdapDn (Type.LdapString username))
|
||||
(Type.Simple password)
|
||||
where
|
||||
ldapVersion = 3
|
||||
|
||||
bindResult :: Request -> Response -> Either ResponseError ()
|
||||
bindResult req (Type.BindResponse (Type.LdapResult code (Type.LdapDn (Type.LdapString dn))
|
||||
(Type.LdapString msg) _) _ :| [])
|
||||
| Type.Success <- code = Right ()
|
||||
| otherwise = Left (ResponseErrorCode req code (Dn dn) msg)
|
||||
bindResult req res = Left (ResponseInvalid req res)
|
||||
|
||||
-- | Perform a SASL EXTERNAL Bind operation synchronously. Raises 'ResponseError' on failures.
|
||||
externalBind :: Ldap -> Dn -> Maybe Text -> IO ()
|
||||
externalBind l username mCredentials =
|
||||
eitherToIO =<< externalBindEither l username mCredentials
|
||||
|
||||
-- | Perform a SASL EXTERNAL Bind operation synchronously. Returns @Left e@ where
|
||||
-- @e@ is a 'ResponseError' on failures.
|
||||
externalBindEither :: Ldap -> Dn -> Maybe Text -> IO (Either ResponseError ())
|
||||
externalBindEither l username mCredentials =
|
||||
wait =<< externalBindAsync l username mCredentials
|
||||
|
||||
-- | Perform the SASL EXTERNAL Bind operation asynchronously. Call 'Ldap.Client.wait' to wait
|
||||
-- for its completion.
|
||||
externalBindAsync :: Ldap -> Dn -> Maybe Text -> IO (Async ())
|
||||
externalBindAsync l username mCredentials =
|
||||
atomically (externalBindAsyncSTM l username mCredentials)
|
||||
|
||||
-- | Perform the SASL EXTERNAL Bind operation asynchronously.
|
||||
--
|
||||
-- Don't wait for its completion (with 'Ldap.Client.waitSTM') in the
|
||||
-- same transaction you've performed it in.
|
||||
externalBindAsyncSTM :: Ldap -> Dn -> Maybe Text -> STM (Async ())
|
||||
externalBindAsyncSTM l username mCredentials =
|
||||
let req = externalBindRequest username mCredentials in sendRequest l (bindResult req) req
|
||||
|
||||
externalBindRequest :: Dn -> Maybe Text -> Request
|
||||
externalBindRequest (Dn username) mCredentials =
|
||||
Type.BindRequest ldapVersion
|
||||
(Type.LdapDn (Type.LdapString username))
|
||||
(Type.Sasl Type.External mCredentials)
|
||||
where
|
||||
ldapVersion = 3
|
||||
|
||||
@ -1,71 +0,0 @@
|
||||
-- | <https://tools.ietf.org/html/rfc4511#section-4.10 Compare> operation.
|
||||
--
|
||||
-- This operation comes in four flavours:
|
||||
--
|
||||
-- * synchronous, exception throwing ('compare')
|
||||
--
|
||||
-- * synchronous, returning 'Either' 'ResponseError' @()@ ('compareEither')
|
||||
--
|
||||
-- * asynchronous, 'IO' based ('compareAsync')
|
||||
--
|
||||
-- * asynchronous, 'STM' based ('compareAsyncSTM')
|
||||
--
|
||||
-- Of those, the first one ('compare') is probably the most useful for the
|
||||
-- typical usecase.
|
||||
module Ldap.Client.Compare
|
||||
( compare
|
||||
, compareEither
|
||||
, compareAsync
|
||||
, compareAsyncSTM
|
||||
, Async
|
||||
, wait
|
||||
, waitSTM
|
||||
) where
|
||||
|
||||
import Control.Monad.STM (STM, atomically)
|
||||
import Data.List.NonEmpty (NonEmpty((:|)))
|
||||
import Prelude hiding (compare)
|
||||
|
||||
import Ldap.Client.Internal
|
||||
import qualified Ldap.Asn1.Type as Type
|
||||
|
||||
|
||||
-- | Perform the Compare operation synchronously. Raises 'ResponseError' on failures.
|
||||
compare :: Ldap -> Dn -> Attr -> AttrValue -> IO Bool
|
||||
compare l dn k v =
|
||||
eitherToIO =<< compareEither l dn k v
|
||||
|
||||
-- | Perform the Compare operation synchronously. Returns @Left e@ where
|
||||
-- @e@ is a 'ResponseError' on failures.
|
||||
compareEither :: Ldap -> Dn -> Attr -> AttrValue -> IO (Either ResponseError Bool)
|
||||
compareEither l dn k v =
|
||||
wait =<< compareAsync l dn k v
|
||||
|
||||
-- | Perform the Compare operation asynchronously. Call 'Ldap.Client.wait' to wait
|
||||
-- for its completion.
|
||||
compareAsync :: Ldap -> Dn -> Attr -> AttrValue -> IO (Async Bool)
|
||||
compareAsync l dn k v =
|
||||
atomically (compareAsyncSTM l dn k v)
|
||||
|
||||
-- | Perform the Compare operation asynchronously.
|
||||
--
|
||||
-- Don't wait for its completion (with 'Ldap.Client.waitSTM') in the
|
||||
-- same transaction you've performed it in.
|
||||
compareAsyncSTM :: Ldap -> Dn -> Attr -> AttrValue -> STM (Async Bool)
|
||||
compareAsyncSTM l dn k v =
|
||||
let req = compareRequest dn k v in sendRequest l (compareResult req) req
|
||||
|
||||
compareRequest :: Dn -> Attr -> AttrValue -> Request
|
||||
compareRequest (Dn dn) (Attr k) v =
|
||||
Type.CompareRequest (Type.LdapDn (Type.LdapString dn))
|
||||
(Type.AttributeValueAssertion
|
||||
(Type.AttributeDescription (Type.LdapString k))
|
||||
(Type.AssertionValue v))
|
||||
|
||||
compareResult :: Request -> Response -> Either ResponseError Bool
|
||||
compareResult req (Type.CompareResponse (Type.LdapResult code (Type.LdapDn (Type.LdapString dn))
|
||||
(Type.LdapString msg) _) :| [])
|
||||
| Type.CompareTrue <- code = Right True
|
||||
| Type.CompareFalse <- code = Right False
|
||||
| otherwise = Left (ResponseErrorCode req code (Dn dn) msg)
|
||||
compareResult req res = Left (ResponseInvalid req res)
|
||||
@ -1,65 +0,0 @@
|
||||
-- | <https://tools.ietf.org/html/rfc4511#section-4.8 Delete> operation.
|
||||
--
|
||||
-- This operation comes in four flavours:
|
||||
--
|
||||
-- * synchronous, exception throwing ('delete')
|
||||
--
|
||||
-- * synchronous, returning 'Either' 'ResponseError' @()@ ('deleteEither')
|
||||
--
|
||||
-- * asynchronous, 'IO' based ('deleteAsync')
|
||||
--
|
||||
-- * asynchronous, 'STM' based ('deleteAsyncSTM')
|
||||
--
|
||||
-- Of those, the first one ('delete') is probably the most useful for the typical usecase.
|
||||
module Ldap.Client.Delete
|
||||
( delete
|
||||
, deleteEither
|
||||
, deleteAsync
|
||||
, deleteAsyncSTM
|
||||
, Async
|
||||
, wait
|
||||
, waitSTM
|
||||
) where
|
||||
|
||||
import Control.Concurrent.STM (STM, atomically)
|
||||
import Data.List.NonEmpty (NonEmpty((:|)))
|
||||
|
||||
import qualified Ldap.Asn1.Type as Type
|
||||
import Ldap.Client.Internal
|
||||
|
||||
|
||||
-- | Perform the Delete operation synchronously. Raises 'ResponseError' on failures.
|
||||
delete :: Ldap -> Dn -> IO ()
|
||||
delete l dn =
|
||||
eitherToIO =<< deleteEither l dn
|
||||
|
||||
-- | Perform the Delete operation synchronously. Returns @Left e@ where
|
||||
-- @e@ is a 'ResponseError' on failures.
|
||||
deleteEither :: Ldap -> Dn -> IO (Either ResponseError ())
|
||||
deleteEither l dn =
|
||||
wait =<< deleteAsync l dn
|
||||
|
||||
-- | Perform the Delete operation asynchronously. Call 'Ldap.Client.wait' to wait
|
||||
-- for its completion.
|
||||
deleteAsync :: Ldap -> Dn -> IO (Async ())
|
||||
deleteAsync l dn =
|
||||
atomically (deleteAsyncSTM l dn)
|
||||
|
||||
-- | Perform the Delete operation asynchronously.
|
||||
--
|
||||
-- Don't wait for its completion (with 'Ldap.Client.waitSTM') in the
|
||||
-- same transaction you've performed it in.
|
||||
deleteAsyncSTM :: Ldap -> Dn -> STM (Async ())
|
||||
deleteAsyncSTM l dn =
|
||||
let req = deleteRequest dn in sendRequest l (deleteResult req) req
|
||||
|
||||
deleteRequest :: Dn -> Request
|
||||
deleteRequest (Dn dn) =
|
||||
Type.DeleteRequest (Type.LdapDn (Type.LdapString dn))
|
||||
|
||||
deleteResult :: Request -> Response -> Either ResponseError ()
|
||||
deleteResult req (Type.DeleteResponse (Type.LdapResult code (Type.LdapDn (Type.LdapString dn))
|
||||
(Type.LdapString msg) _) :| [])
|
||||
| Type.Success <- code = Right ()
|
||||
| otherwise = Left (ResponseErrorCode req code (Dn dn) msg)
|
||||
deleteResult req res = Left (ResponseInvalid req res)
|
||||
@ -1,116 +0,0 @@
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
-- | <https://tools.ietf.org/html/rfc4511#section-4.12 Extended> operation.
|
||||
--
|
||||
-- This operation comes in four flavours:
|
||||
--
|
||||
-- * synchronous, exception throwing ('extended')
|
||||
--
|
||||
-- * synchronous, returning 'Either' 'ResponseError' @()@ ('extendedEither')
|
||||
--
|
||||
-- * asynchronous, 'IO' based ('extendedAsync')
|
||||
--
|
||||
-- * asynchronous, 'STM' based ('extendedAsyncSTM')
|
||||
--
|
||||
-- Of those, the first one ('extended') is probably the most useful for the typical usecase.
|
||||
module Ldap.Client.Extended
|
||||
( -- * Extended Operation
|
||||
Oid(..)
|
||||
, extended
|
||||
, extendedEither
|
||||
, extendedAsync
|
||||
, extendedAsyncSTM
|
||||
-- * StartTLS Operation
|
||||
, startTls
|
||||
, startTlsEither
|
||||
, startTlsAsync
|
||||
, startTlsAsyncSTM
|
||||
-- * OIDs
|
||||
, noticeOfDisconnectionOid
|
||||
, startTlsOid
|
||||
, Async
|
||||
, wait
|
||||
, waitSTM
|
||||
) where
|
||||
|
||||
import Control.Monad ((<=<))
|
||||
import Control.Monad.STM (STM, atomically)
|
||||
import Data.ByteString (ByteString)
|
||||
import Data.List.NonEmpty (NonEmpty((:|)))
|
||||
import Data.String (IsString(fromString))
|
||||
import Data.Text (Text)
|
||||
|
||||
import qualified Ldap.Asn1.Type as Type
|
||||
import Ldap.Client.Internal
|
||||
|
||||
|
||||
-- | Globally unique LDAP object identifier.
|
||||
newtype Oid = Oid Text
|
||||
deriving (Show, Eq)
|
||||
|
||||
instance IsString Oid where
|
||||
fromString =
|
||||
Oid . fromString
|
||||
|
||||
-- | Perform the Extended operation synchronously. Raises 'ResponseError' on failures.
|
||||
extended :: Ldap -> Oid -> Maybe ByteString -> IO ()
|
||||
extended l oid mv =
|
||||
eitherToIO =<< extendedEither l oid mv
|
||||
|
||||
-- | Perform the Extended operation synchronously. Returns @Left e@ where
|
||||
-- @e@ is a 'ResponseError' on failures.
|
||||
extendedEither :: Ldap -> Oid -> Maybe ByteString -> IO (Either ResponseError ())
|
||||
extendedEither l oid mv =
|
||||
wait =<< extendedAsync l oid mv
|
||||
|
||||
-- | Perform the Extended operation asynchronously. Call 'Ldap.Client.wait' to wait
|
||||
-- for its completion.
|
||||
extendedAsync :: Ldap -> Oid -> Maybe ByteString -> IO (Async ())
|
||||
extendedAsync l oid mv =
|
||||
atomically (extendedAsyncSTM l oid mv)
|
||||
|
||||
-- | Perform the Extended operation asynchronously.
|
||||
--
|
||||
-- Don't wait for its completion (with 'Ldap.Client.waitSTM') in the
|
||||
-- same transaction you've performed it in.
|
||||
extendedAsyncSTM :: Ldap -> Oid -> Maybe ByteString -> STM (Async ())
|
||||
extendedAsyncSTM l oid mv =
|
||||
let req = extendedRequest oid mv in sendRequest l (extendedResult req) req
|
||||
|
||||
extendedRequest :: Oid -> Maybe ByteString -> Request
|
||||
extendedRequest (Oid oid) =
|
||||
Type.ExtendedRequest (Type.LdapOid oid)
|
||||
|
||||
extendedResult :: Request -> Response -> Either ResponseError ()
|
||||
extendedResult req (Type.ExtendedResponse
|
||||
(Type.LdapResult code (Type.LdapDn (Type.LdapString dn))
|
||||
(Type.LdapString msg) _) _ _ :| [])
|
||||
| Type.Success <- code = Right ()
|
||||
| otherwise = Left (ResponseErrorCode req code (Dn dn) msg)
|
||||
extendedResult req res = Left (ResponseInvalid req res)
|
||||
|
||||
|
||||
-- | An example of @Extended Operation@, cf. 'extended'.
|
||||
startTls :: Ldap -> IO ()
|
||||
startTls =
|
||||
eitherToIO <=< startTlsEither
|
||||
|
||||
-- | An example of @Extended Operation@, cf. 'extendedEither'.
|
||||
startTlsEither :: Ldap -> IO (Either ResponseError ())
|
||||
startTlsEither =
|
||||
wait <=< startTlsAsync
|
||||
|
||||
-- | An example of @Extended Operation@, cf. 'extendedAsync'.
|
||||
startTlsAsync :: Ldap -> IO (Async ())
|
||||
startTlsAsync =
|
||||
atomically . startTlsAsyncSTM
|
||||
|
||||
-- | An example of @Extended Operation@, cf. 'extendedAsyncSTM'.
|
||||
startTlsAsyncSTM :: Ldap -> STM (Async ())
|
||||
startTlsAsyncSTM l =
|
||||
extendedAsyncSTM l startTlsOid Nothing
|
||||
|
||||
noticeOfDisconnectionOid :: Oid
|
||||
noticeOfDisconnectionOid = "1.3.6.1.4.1.1466.20036"
|
||||
|
||||
startTlsOid :: Oid
|
||||
startTlsOid = "1.3.6.1.4.1.1466.20037"
|
||||
@ -1,148 +0,0 @@
|
||||
{-# LANGUAGE CPP #-}
|
||||
{-# LANGUAGE DeriveDataTypeable #-}
|
||||
{-# LANGUAGE NamedFieldPuns #-}
|
||||
module Ldap.Client.Internal
|
||||
( Host(..)
|
||||
, PortNumber
|
||||
, Ldap(..)
|
||||
, ClientMessage(..)
|
||||
, Type.ResultCode(..)
|
||||
, Async
|
||||
, AttrList
|
||||
-- * Waiting for Request Completion
|
||||
, wait
|
||||
, waitSTM
|
||||
-- * Misc
|
||||
, Response
|
||||
, ResponseError(..)
|
||||
, Request
|
||||
, eitherToIO
|
||||
, sendRequest
|
||||
, Dn(..)
|
||||
, Attr(..)
|
||||
, AttrValue
|
||||
, unAttr
|
||||
-- * Unbind operation
|
||||
, unbindAsync
|
||||
, unbindAsyncSTM
|
||||
) where
|
||||
|
||||
import qualified Control.Concurrent.Async as Async (Async)
|
||||
import Control.Concurrent.STM (STM, atomically)
|
||||
import Control.Concurrent.STM.TMVar (TMVar, newEmptyTMVar, readTMVar)
|
||||
import Control.Concurrent.STM.TQueue (TQueue, writeTQueue)
|
||||
import Control.Exception (Exception, throwIO)
|
||||
import Control.Monad (void)
|
||||
import Data.ByteString (ByteString)
|
||||
import Data.List.NonEmpty (NonEmpty)
|
||||
import Data.Text (Text)
|
||||
import Data.Typeable (Typeable)
|
||||
#if __GLASGOW_HASKELL__ >= 84
|
||||
import Network.Socket (PortNumber)
|
||||
#else
|
||||
import Network (PortNumber)
|
||||
#endif
|
||||
import Network.Connection (TLSSettings, Connection)
|
||||
import Data.Void (Void)
|
||||
|
||||
import qualified Ldap.Asn1.Type as Type
|
||||
|
||||
|
||||
-- | LDAP host.
|
||||
data Host =
|
||||
Plain String -- ^ Plain LDAP.
|
||||
| Tls String TLSSettings -- ^ LDAP over TLS.
|
||||
deriving (Show)
|
||||
|
||||
-- | An LDAP connection handle
|
||||
data Ldap = Ldap
|
||||
{ reqQ :: !(TQueue ClientMessage) -- ^ Request queue for client messages to be send.
|
||||
, workers :: !(Async.Async Void) -- ^ Workers group for communicating with the server.
|
||||
, conn :: !Connection -- ^ Network connection to the server.
|
||||
}
|
||||
|
||||
data ClientMessage = New !Request !(TMVar (NonEmpty Type.ProtocolServerOp))
|
||||
type Request = Type.ProtocolClientOp
|
||||
type InMessage = Type.ProtocolServerOp
|
||||
type Response = NonEmpty InMessage
|
||||
|
||||
-- | Asynchronous LDAP operation. Use 'wait' or 'waitSTM' to wait for its completion.
|
||||
newtype Async a = Async (STM (Either ResponseError a))
|
||||
|
||||
instance Functor Async where
|
||||
fmap f (Async stm) = Async (fmap (fmap f) stm)
|
||||
|
||||
-- | Unique identifier of an LDAP entry.
|
||||
newtype Dn = Dn Text
|
||||
deriving (Show, Eq)
|
||||
|
||||
-- | Response indicates a failed operation.
|
||||
data ResponseError =
|
||||
ResponseInvalid !Request !Response -- ^ LDAP server did not follow the protocol, so @ldap-client@ couldn't make sense of the response.
|
||||
| ResponseErrorCode !Request !Type.ResultCode !Dn !Text -- ^ The response contains a result code indicating failure and an error message.
|
||||
deriving (Show, Eq, Typeable)
|
||||
|
||||
instance Exception ResponseError
|
||||
|
||||
-- | Attribute name.
|
||||
newtype Attr = Attr Text
|
||||
deriving (Show, Eq)
|
||||
|
||||
-- | Attribute value.
|
||||
type AttrValue = ByteString
|
||||
|
||||
-- | List of attributes and their values. @f@ is the structure these
|
||||
-- values are in, e.g. 'NonEmpty'.
|
||||
type AttrList f = [(Attr, f AttrValue)]
|
||||
|
||||
-- 'Attr' unwrapper. This is a separate function not to turn 'Attr''s
|
||||
-- 'Show' instance into complete and utter shit.
|
||||
unAttr :: Attr -> Text
|
||||
unAttr (Attr a) = a
|
||||
|
||||
-- | Wait for operation completion.
|
||||
wait :: Async a -> IO (Either ResponseError a)
|
||||
wait = atomically . waitSTM
|
||||
|
||||
-- | Wait for operation completion inside 'STM'.
|
||||
--
|
||||
-- Do not use this inside the same 'STM' transaction the operation was
|
||||
-- requested in! To give LDAP the chance to respond to it that transaction
|
||||
-- should commit. After that, applying 'waitSTM' to the corresponding 'Async'
|
||||
-- starts to make sense.
|
||||
waitSTM :: Async a -> STM (Either ResponseError a)
|
||||
waitSTM (Async stm) = stm
|
||||
|
||||
sendRequest :: Ldap -> (Response -> Either ResponseError a) -> Request -> STM (Async a)
|
||||
sendRequest l p msg =
|
||||
do var <- newEmptyTMVar
|
||||
writeRequest l var msg
|
||||
return (Async (fmap p (readTMVar var)))
|
||||
|
||||
writeRequest :: Ldap -> TMVar Response -> Request -> STM ()
|
||||
writeRequest Ldap { reqQ } var msg = writeTQueue reqQ (New msg var)
|
||||
|
||||
eitherToIO :: Exception e => Either e a -> IO a
|
||||
eitherToIO = either throwIO pure
|
||||
|
||||
-- | Terminate the connection to the Directory.
|
||||
--
|
||||
-- Note that 'unbindAsync' does not return an 'Async',
|
||||
-- because LDAP server never responds to @UnbindRequest@s, hence
|
||||
-- a call to 'wait' on a hypothetical 'Async' would have resulted
|
||||
-- in an exception anyway.
|
||||
unbindAsync :: Ldap -> IO ()
|
||||
unbindAsync =
|
||||
atomically . unbindAsyncSTM
|
||||
|
||||
-- | Terminate the connection to the Directory.
|
||||
--
|
||||
-- Note that 'unbindAsyncSTM' does not return an 'Async',
|
||||
-- because LDAP server never responds to @UnbindRequest@s, hence
|
||||
-- a call to 'wait' on a hypothetical 'Async' would have resulted
|
||||
-- in an exception anyway.
|
||||
unbindAsyncSTM :: Ldap -> STM ()
|
||||
unbindAsyncSTM l =
|
||||
void (sendRequest l die Type.UnbindRequest)
|
||||
where
|
||||
die = error "Ldap.Client: do not wait for the response to UnbindRequest"
|
||||
@ -1,134 +0,0 @@
|
||||
-- | <https://tools.ietf.org/html/rfc4511#section-4.6 Modify> and
|
||||
-- <https://tools.ietf.org/html/rfc4511#section-4.9 Modify DN> operations.
|
||||
--
|
||||
-- These operations come in four flavours:
|
||||
--
|
||||
-- * synchronous, exception throwing ('modify' / 'modifyDn')
|
||||
--
|
||||
-- * synchronous, returning 'Either' 'ResponseError' @()@
|
||||
-- ('modifyEither' / 'modifyDnEither')
|
||||
--
|
||||
-- * asynchronous, 'IO' based ('modifyAsync' / 'modifyDnAsync')
|
||||
--
|
||||
-- * asynchronous, 'STM' based ('modifyAsyncSTM' / 'modifyDnAsyncSTM')
|
||||
--
|
||||
-- Of those, the first one ('modify' / 'modifyDn') is probably the most
|
||||
-- useful for the typical usecase.
|
||||
module Ldap.Client.Modify
|
||||
( Operation(..)
|
||||
, modify
|
||||
, modifyEither
|
||||
, modifyAsync
|
||||
, modifyAsyncSTM
|
||||
, RelativeDn(..)
|
||||
, modifyDn
|
||||
, modifyDnEither
|
||||
, modifyDnAsync
|
||||
, modifyDnAsyncSTM
|
||||
, Async
|
||||
, wait
|
||||
, waitSTM
|
||||
) where
|
||||
|
||||
import Control.Monad.STM (STM, atomically)
|
||||
import Data.List.NonEmpty (NonEmpty((:|)))
|
||||
import Data.Text (Text)
|
||||
|
||||
import qualified Ldap.Asn1.Type as Type
|
||||
import Ldap.Client.Internal
|
||||
|
||||
|
||||
-- | Type of modification being performed.
|
||||
data Operation =
|
||||
Delete !Attr ![AttrValue] -- ^ Delete values from the attribute. Deletes the attribute if the list is empty or all current values are listed.
|
||||
| Add !Attr ![AttrValue] -- ^ Add values to the attribute, creating it if necessary.
|
||||
| Replace !Attr ![AttrValue] -- ^ Replace all existing values of the attribute with the new list. Deletes the attribute if the list is empty.
|
||||
deriving (Show, Eq)
|
||||
|
||||
-- | Perform the Modify operation synchronously. Raises 'ResponseError' on failures.
|
||||
modify :: Ldap -> Dn -> [Operation] -> IO ()
|
||||
modify l dn as =
|
||||
eitherToIO =<< modifyEither l dn as
|
||||
|
||||
-- | Perform the Modify operation synchronously. Returns @Left e@ where
|
||||
-- @e@ is a 'ResponseError' on failures.
|
||||
modifyEither :: Ldap -> Dn -> [Operation] -> IO (Either ResponseError ())
|
||||
modifyEither l dn as =
|
||||
wait =<< modifyAsync l dn as
|
||||
|
||||
-- | Perform the Modify operation asynchronously. Call 'Ldap.Client.wait' to wait
|
||||
-- for its completion.
|
||||
modifyAsync :: Ldap -> Dn -> [Operation] -> IO (Async ())
|
||||
modifyAsync l dn as =
|
||||
atomically (modifyAsyncSTM l dn as)
|
||||
|
||||
-- | Perform the Modify operation asynchronously.
|
||||
--
|
||||
-- Don't wait for its completion (with 'Ldap.Client.waitSTM') in the
|
||||
-- same transaction you've performed it in.
|
||||
modifyAsyncSTM :: Ldap -> Dn -> [Operation] -> STM (Async ())
|
||||
modifyAsyncSTM l dn xs =
|
||||
let req = modifyRequest dn xs in sendRequest l (modifyResult req) req
|
||||
|
||||
modifyRequest :: Dn -> [Operation] -> Request
|
||||
modifyRequest (Dn dn) xs =
|
||||
Type.ModifyRequest (Type.LdapDn (Type.LdapString dn)) (map f xs)
|
||||
where
|
||||
f (Delete (Attr k) vs) =
|
||||
(Type.Delete, Type.PartialAttribute (Type.AttributeDescription (Type.LdapString k))
|
||||
(map Type.AttributeValue vs))
|
||||
f (Add (Attr k) vs) =
|
||||
(Type.Add, Type.PartialAttribute (Type.AttributeDescription (Type.LdapString k))
|
||||
(map Type.AttributeValue vs))
|
||||
f (Replace (Attr k) vs) =
|
||||
(Type.Replace, Type.PartialAttribute (Type.AttributeDescription (Type.LdapString k))
|
||||
(map Type.AttributeValue vs))
|
||||
|
||||
modifyResult :: Request -> Response -> Either ResponseError ()
|
||||
modifyResult req (Type.ModifyResponse (Type.LdapResult code (Type.LdapDn (Type.LdapString dn)) (Type.LdapString msg) _) :| [])
|
||||
| Type.Success <- code = Right ()
|
||||
| otherwise = Left (ResponseErrorCode req code (Dn dn) msg)
|
||||
modifyResult req res = Left (ResponseInvalid req res)
|
||||
|
||||
|
||||
-- | A component of 'Dn'.
|
||||
newtype RelativeDn = RelativeDn Text
|
||||
deriving (Show, Eq)
|
||||
|
||||
-- | Perform the Modify DN operation synchronously. Raises 'ResponseError' on failures.
|
||||
modifyDn :: Ldap -> Dn -> RelativeDn -> Bool -> Maybe Dn -> IO ()
|
||||
modifyDn l dn rdn del new =
|
||||
eitherToIO =<< modifyDnEither l dn rdn del new
|
||||
|
||||
-- | Perform the Modify DN operation synchronously. Returns @Left e@ where
|
||||
-- @e@ is a 'ResponseError' on failures.
|
||||
modifyDnEither :: Ldap -> Dn -> RelativeDn -> Bool -> Maybe Dn -> IO (Either ResponseError ())
|
||||
modifyDnEither l dn rdn del new =
|
||||
wait =<< modifyDnAsync l dn rdn del new
|
||||
|
||||
-- | Perform the Modify DN operation asynchronously. Call 'Ldap.Client.wait' to wait
|
||||
-- for its completion.
|
||||
modifyDnAsync :: Ldap -> Dn -> RelativeDn -> Bool -> Maybe Dn -> IO (Async ())
|
||||
modifyDnAsync l dn rdn del new =
|
||||
atomically (modifyDnAsyncSTM l dn rdn del new)
|
||||
|
||||
-- | Perform the Modify DN operation asynchronously.
|
||||
--
|
||||
-- Don't wait for its completion (with 'Ldap.Client.waitSTM') in the
|
||||
-- same transaction you've performed it in.
|
||||
modifyDnAsyncSTM :: Ldap -> Dn -> RelativeDn -> Bool -> Maybe Dn -> STM (Async ())
|
||||
modifyDnAsyncSTM l dn rdn del new =
|
||||
let req = modifyDnRequest dn rdn del new in sendRequest l (modifyDnResult req) req
|
||||
|
||||
modifyDnRequest :: Dn -> RelativeDn -> Bool -> Maybe Dn -> Request
|
||||
modifyDnRequest (Dn dn) (RelativeDn rdn) del new =
|
||||
Type.ModifyDnRequest (Type.LdapDn (Type.LdapString dn))
|
||||
(Type.RelativeLdapDn (Type.LdapString rdn))
|
||||
del
|
||||
(fmap (\(Dn dn') -> Type.LdapDn (Type.LdapString dn')) new)
|
||||
|
||||
modifyDnResult :: Request -> Response -> Either ResponseError ()
|
||||
modifyDnResult req (Type.ModifyDnResponse (Type.LdapResult code (Type.LdapDn (Type.LdapString dn)) (Type.LdapString msg) _) :| [])
|
||||
| Type.Success <- code = Right ()
|
||||
| otherwise = Left (ResponseErrorCode req code (Dn dn) msg)
|
||||
modifyDnResult req res = Left (ResponseInvalid req res)
|
||||
@ -1,223 +0,0 @@
|
||||
{-# LANGUAGE CPP #-}
|
||||
{-# LANGUAGE NamedFieldPuns #-}
|
||||
-- | <https://tools.ietf.org/html/rfc4511#section-4.5 Search> operation.
|
||||
--
|
||||
-- This operation comes in four flavours:
|
||||
--
|
||||
-- * synchronous, exception throwing ('search')
|
||||
--
|
||||
-- * synchronous, returning 'Either' 'ResponseError' @()@ ('searchEither')
|
||||
--
|
||||
-- * asynchronous, 'IO' based ('searchAsync')
|
||||
--
|
||||
-- * asynchronous, 'STM' based ('searchAsyncSTM')
|
||||
--
|
||||
-- Of those, the first one ('search') is probably the most useful for the typical usecase.
|
||||
module Ldap.Client.Search
|
||||
( search
|
||||
, searchEither
|
||||
, searchAsync
|
||||
, searchAsyncSTM
|
||||
, Search
|
||||
, Mod
|
||||
, Type.Scope(..)
|
||||
, scope
|
||||
, size
|
||||
, time
|
||||
, typesOnly
|
||||
, Type.DerefAliases(..)
|
||||
, derefAliases
|
||||
, Filter(..)
|
||||
, SearchEntry(..)
|
||||
, Async
|
||||
, wait
|
||||
, waitSTM
|
||||
) where
|
||||
|
||||
import Control.Monad.STM (STM, atomically)
|
||||
import Data.Int (Int32)
|
||||
import Data.List.NonEmpty (NonEmpty((:|)))
|
||||
import qualified Data.List.NonEmpty as NonEmpty
|
||||
import Data.Maybe (mapMaybe)
|
||||
#if __GLASGOW_HASKELL__ >= 710
|
||||
import Data.Semigroup (Semigroup(..))
|
||||
#else
|
||||
import Data.Semigroup (Semigroup(..), Monoid(..))
|
||||
#endif
|
||||
|
||||
import qualified Ldap.Asn1.Type as Type
|
||||
import Ldap.Client.Internal
|
||||
|
||||
|
||||
-- | Perform the Search operation synchronously. Raises 'ResponseError' on failures.
|
||||
search :: Ldap -> Dn -> Mod Search -> Filter -> [Attr] -> IO [SearchEntry]
|
||||
search l base opts flt attributes =
|
||||
eitherToIO =<< searchEither l base opts flt attributes
|
||||
|
||||
-- | Perform the Search operation synchronously. Returns @Left e@ where
|
||||
-- @e@ is a 'ResponseError' on failures.
|
||||
searchEither
|
||||
:: Ldap
|
||||
-> Dn
|
||||
-> Mod Search
|
||||
-> Filter
|
||||
-> [Attr]
|
||||
-> IO (Either ResponseError [SearchEntry])
|
||||
searchEither l base opts flt attributes =
|
||||
wait =<< searchAsync l base opts flt attributes
|
||||
|
||||
-- | Perform the Search operation asynchronously. Call 'Ldap.Client.wait' to wait
|
||||
-- for its completion.
|
||||
searchAsync :: Ldap -> Dn -> Mod Search -> Filter -> [Attr] -> IO (Async [SearchEntry])
|
||||
searchAsync l base opts flt attributes =
|
||||
atomically (searchAsyncSTM l base opts flt attributes)
|
||||
|
||||
-- | Perform the Search operation asynchronously.
|
||||
--
|
||||
-- Don't wait for its completion (with 'Ldap.Client.waitSTM') in the
|
||||
-- same transaction you've performed it in.
|
||||
searchAsyncSTM
|
||||
:: Ldap
|
||||
-> Dn
|
||||
-> Mod Search
|
||||
-> Filter
|
||||
-> [Attr]
|
||||
-> STM (Async [SearchEntry])
|
||||
searchAsyncSTM l base opts flt attributes =
|
||||
let req = searchRequest base opts flt attributes in sendRequest l (searchResult req) req
|
||||
|
||||
searchRequest :: Dn -> Mod Search -> Filter -> [Attr] -> Request
|
||||
searchRequest (Dn base) (Mod m) flt attributes =
|
||||
Type.SearchRequest (Type.LdapDn (Type.LdapString base))
|
||||
_scope
|
||||
_derefAliases
|
||||
_size
|
||||
_time
|
||||
_typesOnly
|
||||
(fromFilter flt)
|
||||
(Type.AttributeSelection (map (Type.LdapString . unAttr) attributes))
|
||||
where
|
||||
Search { _scope, _derefAliases, _size, _time, _typesOnly } =
|
||||
m defaultSearch
|
||||
fromFilter (Not x) = Type.Not (fromFilter x)
|
||||
fromFilter (And xs) = Type.And (fmap fromFilter xs)
|
||||
fromFilter (Or xs) = Type.Or (fmap fromFilter xs)
|
||||
fromFilter (Present (Attr x)) =
|
||||
Type.Present (Type.AttributeDescription (Type.LdapString x))
|
||||
fromFilter (Attr x := y) =
|
||||
Type.EqualityMatch
|
||||
(Type.AttributeValueAssertion (Type.AttributeDescription (Type.LdapString x))
|
||||
(Type.AssertionValue y))
|
||||
fromFilter (Attr x :>= y) =
|
||||
Type.GreaterOrEqual
|
||||
(Type.AttributeValueAssertion (Type.AttributeDescription (Type.LdapString x))
|
||||
(Type.AssertionValue y))
|
||||
fromFilter (Attr x :<= y) =
|
||||
Type.LessOrEqual
|
||||
(Type.AttributeValueAssertion (Type.AttributeDescription (Type.LdapString x))
|
||||
(Type.AssertionValue y))
|
||||
fromFilter (Attr x :~= y) =
|
||||
Type.ApproxMatch
|
||||
(Type.AttributeValueAssertion (Type.AttributeDescription (Type.LdapString x))
|
||||
(Type.AssertionValue y))
|
||||
fromFilter (Attr x :=* (mi, xs, mf)) =
|
||||
Type.Substrings
|
||||
(Type.SubstringFilter (Type.AttributeDescription (Type.LdapString x))
|
||||
(NonEmpty.fromList (concat
|
||||
[ maybe [] (\i -> [Type.Initial (Type.AssertionValue i)]) mi
|
||||
, fmap (Type.Any . Type.AssertionValue) xs
|
||||
, maybe [] (\f -> [Type.Final (Type.AssertionValue f)]) mf
|
||||
])))
|
||||
fromFilter ((mx, mr, b) ::= y) =
|
||||
Type.ExtensibleMatch
|
||||
(Type.MatchingRuleAssertion (fmap (\(Attr r) -> Type.MatchingRuleId (Type.LdapString r)) mr)
|
||||
(fmap (\(Attr x) -> Type.AttributeDescription (Type.LdapString x)) mx)
|
||||
(Type.AssertionValue y)
|
||||
b)
|
||||
|
||||
searchResult :: Request -> Response -> Either ResponseError [SearchEntry]
|
||||
searchResult req (Type.SearchResultDone (Type.LdapResult code (Type.LdapDn (Type.LdapString dn'))
|
||||
(Type.LdapString msg) _) :| xs)
|
||||
| Type.Success <- code = Right (mapMaybe g xs)
|
||||
| Type.AdminLimitExceeded <- code = Right (mapMaybe g xs)
|
||||
| Type.SizeLimitExceeded <- code = Right (mapMaybe g xs)
|
||||
| otherwise = Left (ResponseErrorCode req code (Dn dn') msg)
|
||||
where
|
||||
g (Type.SearchResultEntry (Type.LdapDn (Type.LdapString dn))
|
||||
(Type.PartialAttributeList ys)) =
|
||||
Just (SearchEntry (Dn dn) (map h ys))
|
||||
g _ = Nothing
|
||||
h (Type.PartialAttribute (Type.AttributeDescription (Type.LdapString x))
|
||||
y) = (Attr x, fmap j y)
|
||||
j (Type.AttributeValue x) = x
|
||||
searchResult req res = Left (ResponseInvalid req res)
|
||||
|
||||
-- | Search options. Use 'Mod' to change some of those.
|
||||
data Search = Search
|
||||
{ _scope :: !Type.Scope
|
||||
, _derefAliases :: !Type.DerefAliases
|
||||
, _size :: !Int32
|
||||
, _time :: !Int32
|
||||
, _typesOnly :: !Bool
|
||||
} deriving (Show, Eq)
|
||||
|
||||
defaultSearch :: Search
|
||||
defaultSearch = Search
|
||||
{ _scope = Type.WholeSubtree
|
||||
, _size = 0
|
||||
, _time = 0
|
||||
, _typesOnly = False
|
||||
, _derefAliases = Type.NeverDerefAliases
|
||||
}
|
||||
|
||||
-- | Scope of the search (default: 'WholeSubtree').
|
||||
scope :: Type.Scope -> Mod Search
|
||||
scope x = Mod (\y -> y { _scope = x })
|
||||
|
||||
-- | Maximum number of entries to be returned as a result of the Search.
|
||||
-- No limit if the value is @0@ (default: @0@).
|
||||
size :: Int32 -> Mod Search
|
||||
size x = Mod (\y -> y { _size = x })
|
||||
|
||||
-- | Maximum time (in seconds) allowed for the Search. No limit if the value
|
||||
-- is @0@ (default: @0@).
|
||||
time :: Int32 -> Mod Search
|
||||
time x = Mod (\y -> y { _time = x })
|
||||
|
||||
-- | Whether Search results are to contain just attribute descriptions, or
|
||||
-- both attribute descriptions and values (default: 'False').
|
||||
typesOnly :: Bool -> Mod Search
|
||||
typesOnly x = Mod (\y -> y { _typesOnly = x })
|
||||
|
||||
-- | Alias dereference policy (default: 'NeverDerefAliases').
|
||||
derefAliases :: Type.DerefAliases -> Mod Search
|
||||
derefAliases x = Mod (\y -> y { _derefAliases = x })
|
||||
|
||||
-- | Search modifier. Combine using 'Semigroup' and/or 'Monoid' instance.
|
||||
newtype Mod a = Mod (a -> a)
|
||||
|
||||
instance Semigroup (Mod a) where
|
||||
Mod f <> Mod g = Mod (g . f)
|
||||
|
||||
instance Monoid (Mod a) where
|
||||
mempty = Mod id
|
||||
mappend = (<>)
|
||||
|
||||
-- | Conditions that must be fulfilled in order for the Search to match a given entry.
|
||||
data Filter =
|
||||
Not !Filter -- ^ Filter does not match the entry
|
||||
| And !(NonEmpty Filter) -- ^ All filters match the entry
|
||||
| Or !(NonEmpty Filter) -- ^ Any filter matches the entry
|
||||
| Present !Attr -- ^ Attribute is present in the entry
|
||||
| !Attr := !AttrValue -- ^ Attribute's value is equal to the assertion
|
||||
| !Attr :>= !AttrValue -- ^ Attribute's value is equal to or greater than the assertion
|
||||
| !Attr :<= !AttrValue -- ^ Attribute's value is equal to or less than the assertion
|
||||
| !Attr :~= !AttrValue -- ^ Attribute's value approximately matches the assertion
|
||||
| !Attr :=* !(Maybe AttrValue, [AttrValue], Maybe AttrValue)
|
||||
-- ^ Glob match
|
||||
| !(Maybe Attr, Maybe Attr, Bool) ::= !AttrValue
|
||||
-- ^ Extensible match
|
||||
|
||||
-- | Entry found during the Search.
|
||||
data SearchEntry = SearchEntry !Dn !(AttrList [])
|
||||
deriving (Show, Eq)
|
||||
18
ssl/cert.pem
18
ssl/cert.pem
@ -1,18 +0,0 @@
|
||||
-----BEGIN CERTIFICATE-----
|
||||
MIIC+zCCAeOgAwIBAgIJAL+SevcUdGeVMA0GCSqGSIb3DQEBCwUAMBQxEjAQBgNV
|
||||
BAMMCWxvY2FsaG9zdDAeFw0xNTA0MDEyMjA2NTZaFw00MjA4MTcyMjA2NTZaMBQx
|
||||
EjAQBgNVBAMMCWxvY2FsaG9zdDCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoC
|
||||
ggEBAMq+GXKsMouYN7wpvSlBz4/BY4A/uQ19sP9LQId8VVrHZxUbt4QP5m+uFkYw
|
||||
qCznxHeXunDruidrJiCsJ5TfPqXZ9E+/hO0ewzpxiTGyycgxgippBJXcEIYRvHPD
|
||||
J/BtnNwsQD1vJExq7vJg2ItvZYPVyu/rCevTqsr12nJ+iZ/zx8+PsgRFqSJ9iuQa
|
||||
PiejWEQNqNirMHclgvpYNSarEcqyu2U6j+jJtre8NIguzx0ErLYoJxfjznoPoBzG
|
||||
4n/S9gJljX1/DcCKCZmMRTpxSy6UPLuS5BIWVhXrbTRP3QUm5qWQdcpOgCH8WGK1
|
||||
EDk5E8qzzSg/e+cDv9etz+4jUScCAwEAAaNQME4wHQYDVR0OBBYEFL3gfN6W366G
|
||||
XF6/UN8HXnHyVepYMB8GA1UdIwQYMBaAFL3gfN6W366GXF6/UN8HXnHyVepYMAwG
|
||||
A1UdEwQFMAMBAf8wDQYJKoZIhvcNAQELBQADggEBADDaU8lRRUMIVYNl51Dnow9g
|
||||
I2CgTLuTE+ftj27NSzURKCPy9QOPQ2FIFAoL57lAKlyds/tWx5zk4GoVUlIlFb+O
|
||||
43uJ0NKrT5tXDsu68d3wfgwna+kpPFib3n8G1GQWI9DoaBoNOcbl2f11Tu2kujIh
|
||||
LPk75BQnBLxRZRE0VSeLHE4ncy8HPZeqoDdrpjLn92aNLlojK0GfgjimkvR/trCd
|
||||
doQuooLYwyFGQRd6HcrqWqoIuDKimBgnu9lcF7GEsks2f4fxtqewqrYvAzZ+Olkv
|
||||
MUMU6xdL5/6ai/xqcOza3cJoR84obIHWzzzDe8BZpD1/TfPQJiCLVqmslQiR+Fc=
|
||||
-----END CERTIFICATE-----
|
||||
28
ssl/key.pem
28
ssl/key.pem
@ -1,28 +0,0 @@
|
||||
-----BEGIN PRIVATE KEY-----
|
||||
MIIEvgIBADANBgkqhkiG9w0BAQEFAASCBKgwggSkAgEAAoIBAQDKvhlyrDKLmDe8
|
||||
Kb0pQc+PwWOAP7kNfbD/S0CHfFVax2cVG7eED+ZvrhZGMKgs58R3l7pw67onayYg
|
||||
rCeU3z6l2fRPv4TtHsM6cYkxssnIMYIqaQSV3BCGEbxzwyfwbZzcLEA9byRMau7y
|
||||
YNiLb2WD1crv6wnr06rK9dpyfomf88fPj7IERakifYrkGj4no1hEDajYqzB3JYL6
|
||||
WDUmqxHKsrtlOo/oyba3vDSILs8dBKy2KCcX4856D6AcxuJ/0vYCZY19fw3AigmZ
|
||||
jEU6cUsulDy7kuQSFlYV6200T90FJualkHXKToAh/FhitRA5ORPKs80oP3vnA7/X
|
||||
rc/uI1EnAgMBAAECggEAUQ6z6e8CvmD7V5VwdYBEVftBptLTT5uDGm6hvAlvrr2u
|
||||
bvgH5RreTKRTb3igpGN9XzsgZWk5oezq74EkyhZ/W5vKW9/8azkzYLhn26DZn9p7
|
||||
ai1WkfvL92475CSQYUXRww1GGcnHv225XtpteUHuWkktu8JC0zBrRn4I+mGw8Gu1
|
||||
9Fd0ptmOQhiAkRRQO0ErULkSPKB3cYJDvvqgOCJ8G1cTnez0txFVa3kL5NYZDZtP
|
||||
lpNz0pOoTKvrOf7dwpGk0oajaxEulb4dzR/Tl9WDGkVby2DEyG+33o0Bq2BT/piM
|
||||
C/t+3TjF0+X5VAOvlCh4i8Seipxpgktf0ohgd62qMQKBgQD5xB+Fwo3UfSBHbS1d
|
||||
j5liyCgib+5a2N5MlGy6KUf1KfsBgn2QZs4Dz4kcVUmULaSdyL927G87Wyd4Ca3p
|
||||
BWu7pMVx2YM1eEvBQkM1BNFAb5eB8hldtNXt7shKRohRBh+Xa63foiLwz40hAMpd
|
||||
KCxFzgrwDOX4/gM12UmsrAXg3QKBgQDPzYUmUDwR46bnudzIXi9zmXAiy24G5k6q
|
||||
KdRGLxde2iy5qTSZY47kgzCyfd9UfzWQy2r4cyKN/3bNmlsfGV734yagEcGjGn39
|
||||
MhV9K6sSvX9lckyPhFjjWmInAlEKOADa1nexGKOWO5fyP5MBdu8Enq2R5yrO9HG3
|
||||
aB9xcHG30wKBgAtw2mjMIqcLHEFpVNymSUZnGL+LFQYATR6A5gIZBfzK8X5+NbY5
|
||||
n1I5XXR4y6gH9zRrD6oo5md3o3UyLE8yOl8cCxdN+V6npgCyQlXZZKRo+C2xo0vR
|
||||
jsMZXv9X/8KGX0gWXJ6T1LnnJ/XNDXf68Rw5dfLNBHPFXuxGicNpFdPZAoGBAK6v
|
||||
8a/MoULUonmImF5kNvWx1j+ZzevE7fpEYauCaN4XAKQu5wXPWM8mrehOwlBxA+Gt
|
||||
70Xe2/yM9h1PFizlkh1G+jBz3Nk1KxaPZNstu4lsfc0VMeEv+91cHMj4PJIflDBj
|
||||
PIlG0jY38Lr30KfZiILUtcrCjw0dFv98a3pccWx7AoGBAPIxhVChDoThlxIXwznq
|
||||
MT1dHx8mqDmBGHACPrg4wAEs8xZbXLyokny/2n6YWIX0dGj9WIwQjMRrRK9b2JE5
|
||||
VmCNcq3ZXXshrP2+p0l9CPdNHubGvYy3LK+n3nwUuIkIHfdT/21DOFizMVzxhLDy
|
||||
/s+4Xn40x7nuJMSyfmvN1EKY
|
||||
-----END PRIVATE KEY-----
|
||||
@ -1,26 +0,0 @@
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
module Ldap.Client.AddSpec (spec) where
|
||||
|
||||
import qualified Data.List.NonEmpty as NonEmpty
|
||||
import Test.Hspec
|
||||
|
||||
import Ldap.Client (Dn(..), Filter(..), Attr(..))
|
||||
import qualified Ldap.Client as Ldap
|
||||
|
||||
import SpecHelper (locally , dns , vulpix)
|
||||
|
||||
|
||||
spec :: Spec
|
||||
spec = do
|
||||
let go l f = Ldap.search l (Dn "o=localhost") (Ldap.typesOnly True) f []
|
||||
|
||||
it "adds an entry" $ do
|
||||
res <- locally $ \l -> do
|
||||
Ldap.add l vulpix
|
||||
[ (Attr "cn", NonEmpty.fromList ["vulpix"])
|
||||
, (Attr "evolution", NonEmpty.fromList ["0"])
|
||||
, (Attr "type", NonEmpty.fromList ["fire"])
|
||||
]
|
||||
res <- go l (Attr "cn" := "vulpix")
|
||||
dns res `shouldBe` [vulpix]
|
||||
res `shouldBe` Right ()
|
||||
@ -1,41 +0,0 @@
|
||||
{-# LANGUAGE CPP #-}
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
module Ldap.Client.BindSpec (spec) where
|
||||
|
||||
#if __GLASGOW_HASKELL__ < 710
|
||||
import Data.Monoid (mempty)
|
||||
#endif
|
||||
import Test.Hspec
|
||||
import qualified Ldap.Asn1.Type as Ldap.Type
|
||||
import Ldap.Client as Ldap
|
||||
|
||||
import SpecHelper (locally)
|
||||
|
||||
|
||||
spec :: Spec
|
||||
spec = do
|
||||
it "binds as ‘admin’" $ do
|
||||
res <- locally $ \l ->
|
||||
Ldap.bind l (Dn "cn=admin") (Password "secret")
|
||||
res `shouldBe` Right ()
|
||||
|
||||
it "tries to bind as ‘admin’ with the wrong password, unsuccessfully" $ do
|
||||
res <- locally $ \l ->
|
||||
Ldap.bind l (Dn "cn=admin") (Password "public")
|
||||
res `shouldBe` Left
|
||||
(Ldap.ResponseError
|
||||
(Ldap.ResponseErrorCode
|
||||
(Ldap.Type.BindRequest 3
|
||||
(Ldap.Type.LdapDn (Ldap.Type.LdapString "cn=admin"))
|
||||
(Ldap.Type.Simple "public"))
|
||||
Ldap.InvalidCredentials
|
||||
(Dn "cn=admin")
|
||||
"InvalidCredentialsError"))
|
||||
|
||||
it "binds as ‘pikachu’" $ do
|
||||
res <- locally $ \l -> do
|
||||
Ldap.bind l (Dn "cn=admin") (Password "secret")
|
||||
[Ldap.SearchEntry udn _]
|
||||
<- Ldap.search l (Dn "o=localhost") mempty (Attr "cn" := "pikachu") []
|
||||
Ldap.bind l udn (Password "i-choose-you")
|
||||
res `shouldBe` Right ()
|
||||
@ -1,39 +0,0 @@
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
module Ldap.Client.CompareSpec (spec) where
|
||||
|
||||
import Test.Hspec
|
||||
import qualified Ldap.Asn1.Type as Ldap.Type
|
||||
import Ldap.Client as Ldap
|
||||
|
||||
import SpecHelper (locally, charmander, charizard)
|
||||
|
||||
|
||||
spec :: Spec
|
||||
spec = do
|
||||
it "compares and wins" $ do
|
||||
res <- locally $ \l -> do
|
||||
res <- Ldap.compare l charizard (Attr "type") "fire"
|
||||
res `shouldBe` True
|
||||
res `shouldBe` Right ()
|
||||
|
||||
it "compares and loses" $ do
|
||||
res <- locally $ \l -> do
|
||||
res <- Ldap.compare l charmander (Attr "type") "flying"
|
||||
res `shouldBe` False
|
||||
res `shouldBe` Right ()
|
||||
|
||||
it "tries to compare non-existing object, unsuccessfully" $ do
|
||||
res <- locally $ \l -> do
|
||||
res <- Ldap.compare l (Dn "cn=nope") (Attr "type") "flying"
|
||||
res `shouldBe` False
|
||||
res `shouldBe` Left
|
||||
(Ldap.ResponseError
|
||||
(Ldap.ResponseErrorCode
|
||||
(Ldap.Type.CompareRequest
|
||||
(Ldap.Type.LdapDn (Ldap.Type.LdapString "cn=nope"))
|
||||
(Ldap.Type.AttributeValueAssertion
|
||||
(Ldap.Type.AttributeDescription (Ldap.Type.LdapString "type"))
|
||||
(Ldap.Type.AssertionValue "flying")))
|
||||
Ldap.NoSuchObject
|
||||
(Dn "")
|
||||
"No tree found for: cn=nope"))
|
||||
@ -1,33 +0,0 @@
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
module Ldap.Client.DeleteSpec (spec) where
|
||||
|
||||
import Test.Hspec
|
||||
|
||||
import Ldap.Client (Dn(..), Filter(..), Attr(..))
|
||||
import qualified Ldap.Client as Ldap
|
||||
import qualified Ldap.Asn1.Type as Ldap.Type
|
||||
|
||||
import SpecHelper (locally, dns, pikachu, oddish)
|
||||
|
||||
|
||||
spec :: Spec
|
||||
spec = do
|
||||
let go l f = Ldap.search l (Dn "o=localhost") (Ldap.typesOnly True) f []
|
||||
|
||||
it "deletes an entry" $ do
|
||||
res <- locally $ \l -> do
|
||||
Ldap.delete l pikachu
|
||||
res <- go l (Attr "cn" := "pikachu")
|
||||
dns res `shouldBe` []
|
||||
res `shouldBe` Right ()
|
||||
|
||||
it "tries to delete an non-existing entry, unsuccessfully" $ do
|
||||
res <- locally $ \l ->
|
||||
Ldap.delete l oddish
|
||||
res `shouldBe` Left
|
||||
(Ldap.ResponseError
|
||||
(Ldap.ResponseErrorCode (Ldap.Type.DeleteRequest
|
||||
(Ldap.Type.LdapDn (Ldap.Type.LdapString "cn=oddish,o=localhost")))
|
||||
Ldap.NoSuchObject
|
||||
(Dn "o=localhost")
|
||||
"cn=oddish,o=localhost"))
|
||||
@ -1,32 +0,0 @@
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
module Ldap.Client.ExtendedSpec (spec) where
|
||||
|
||||
import Test.Hspec
|
||||
|
||||
import Ldap.Client as Ldap
|
||||
import Ldap.Client.Extended as Ldap
|
||||
import qualified Ldap.Asn1.Type as Ldap.Type
|
||||
|
||||
import SpecHelper (locally )
|
||||
|
||||
|
||||
spec :: Spec
|
||||
spec = do
|
||||
it "sends an extended request" $ do
|
||||
res <- locally $ \l ->
|
||||
Ldap.extended l (Oid "0") Nothing
|
||||
res `shouldBe` Left
|
||||
(ResponseError (ResponseErrorCode (Ldap.Type.ExtendedRequest (Ldap.Type.LdapOid "0") Nothing)
|
||||
ProtocolError
|
||||
(Dn "")
|
||||
"0 not supported"))
|
||||
|
||||
it "sends a StartTLS request" $ do
|
||||
res <- locally $ \l ->
|
||||
Ldap.startTls l
|
||||
res `shouldBe` Left
|
||||
(ResponseError (ResponseErrorCode (Ldap.Type.ExtendedRequest (Ldap.Type.LdapOid "1.3.6.1.4.1.1466.20037")
|
||||
Nothing)
|
||||
ProtocolError
|
||||
(Dn "")
|
||||
"1.3.6.1.4.1.1466.20037 not supported"))
|
||||
@ -1,86 +0,0 @@
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
module Ldap.Client.ModifySpec (spec) where
|
||||
|
||||
import Test.Hspec
|
||||
import qualified Ldap.Asn1.Type as Ldap.Type
|
||||
import Ldap.Client as Ldap
|
||||
|
||||
import SpecHelper (locally, charizard, pikachu, raichu)
|
||||
|
||||
|
||||
spec :: Spec
|
||||
spec = do
|
||||
let go l f = Ldap.search l (Dn "o=localhost") (Ldap.typesOnly True) f []
|
||||
|
||||
context "delete" $ do
|
||||
it "can land ‘charizard’" $ do
|
||||
res <- locally $ \l -> do
|
||||
[x] <- go l (Attr "cn" := "charizard")
|
||||
lookupAttr (Attr "type") x `shouldBe` Just ["fire", "flying"]
|
||||
|
||||
Ldap.modify l charizard [Attr "type" `Delete` ["flying"]]
|
||||
|
||||
[y] <- go l (Attr "cn" := "charizard")
|
||||
lookupAttr (Attr "type") y `shouldBe` Just ["fire"]
|
||||
res `shouldBe` Right ()
|
||||
|
||||
it "tries to remove ‘pikachu’'s password, unsuccessfully" $ do
|
||||
res <- locally $ \l ->
|
||||
Ldap.modify l pikachu [Attr "password" `Delete` []]
|
||||
res `shouldBe` Left
|
||||
(ResponseError
|
||||
(ResponseErrorCode
|
||||
(Ldap.Type.ModifyRequest (Ldap.Type.LdapDn (Ldap.Type.LdapString "cn=pikachu,o=localhost"))
|
||||
[( Ldap.Type.Delete
|
||||
, Ldap.Type.PartialAttribute
|
||||
(Ldap.Type.AttributeDescription (Ldap.Type.LdapString "password"))
|
||||
[]
|
||||
)])
|
||||
UnwillingToPerform
|
||||
(Dn "o=localhost")
|
||||
"cannot delete password"))
|
||||
|
||||
context "add" $
|
||||
it "can feed ‘charizard’" $ do
|
||||
res <- locally $ \l -> do
|
||||
[x] <- go l (Attr "cn" := "charizard")
|
||||
lookupAttr (Attr "type") x `shouldBe` Just ["fire", "flying"]
|
||||
|
||||
Ldap.modify l charizard [Attr "type" `Add` ["fed"]]
|
||||
|
||||
[y] <- go l (Attr "cn" := "charizard")
|
||||
lookupAttr (Attr "type") y `shouldBe` Just ["fire", "flying", "fed"]
|
||||
res `shouldBe` Right ()
|
||||
|
||||
context "replace" $
|
||||
it "can put ‘charizard’ to sleep" $ do
|
||||
res <- locally $ \l -> do
|
||||
[x] <- go l (Attr "cn" := "charizard")
|
||||
lookupAttr (Attr "type") x `shouldBe` Just ["fire", "flying"]
|
||||
|
||||
Ldap.modify l charizard [Attr "type" `Replace` ["sleeping"]]
|
||||
|
||||
[y] <- go l (Attr "cn" := "charizard")
|
||||
lookupAttr (Attr "type") y `shouldBe` Just ["sleeping"]
|
||||
res `shouldBe` Right ()
|
||||
|
||||
context "modify dn" $
|
||||
it "evolves ‘pikachu’ into ‘raichu’" $ do
|
||||
res <- locally $ \l -> do
|
||||
[] <- go l (Attr "cn" := "raichu")
|
||||
|
||||
Ldap.modifyDn l pikachu (RelativeDn "cn=raichu") False Nothing
|
||||
Ldap.modify l raichu [Attr "evolution" `Replace` ["1"]]
|
||||
|
||||
[res] <- go l (Attr "cn" := "raichu")
|
||||
res `shouldBe`
|
||||
SearchEntry raichu
|
||||
[ (Attr "cn", ["raichu"])
|
||||
, (Attr "evolution", ["1"])
|
||||
, (Attr "type", ["electric"])
|
||||
, (Attr "password", ["i-choose-you"])
|
||||
]
|
||||
res `shouldBe` Right ()
|
||||
|
||||
lookupAttr :: Attr -> SearchEntry -> Maybe [AttrValue]
|
||||
lookupAttr a (SearchEntry _ as) = lookup a as
|
||||
@ -1,163 +0,0 @@
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
module Ldap.Client.SearchSpec (spec) where
|
||||
|
||||
import qualified Data.List.NonEmpty as NonEmpty
|
||||
import Test.Hspec
|
||||
import Ldap.Client as Ldap
|
||||
import qualified Ldap.Asn1.Type as Ldap.Type
|
||||
|
||||
import SpecHelper
|
||||
( locally
|
||||
, dns
|
||||
, bulbasaur
|
||||
, ivysaur
|
||||
, venusaur
|
||||
, charmander
|
||||
, charmeleon
|
||||
, charizard
|
||||
, squirtle
|
||||
, wartortle
|
||||
, blastoise
|
||||
, caterpie
|
||||
, metapod
|
||||
, butterfree
|
||||
, pikachu
|
||||
)
|
||||
|
||||
|
||||
spec :: Spec
|
||||
spec = do
|
||||
let go l f = Ldap.search l (Dn "o=localhost") (Ldap.typesOnly True) f []
|
||||
|
||||
it "cannot search as ‘pikachu’" $ do
|
||||
res <- locally $ \l -> do
|
||||
Ldap.bind l pikachu (Password "i-choose-you")
|
||||
go l (Present (Attr "password"))
|
||||
let req = Ldap.Type.SearchRequest
|
||||
(Ldap.Type.LdapDn (Ldap.Type.LdapString "o=localhost"))
|
||||
Ldap.Type.WholeSubtree
|
||||
Ldap.Type.NeverDerefAliases
|
||||
0
|
||||
0
|
||||
True
|
||||
(Ldap.Type.Present (Ldap.Type.AttributeDescription (Ldap.Type.LdapString "password")))
|
||||
(Ldap.Type.AttributeSelection [])
|
||||
res `shouldBe` Left
|
||||
(Ldap.ResponseError
|
||||
(Ldap.ResponseErrorCode req
|
||||
Ldap.InsufficientAccessRights
|
||||
(Dn "o=localhost")
|
||||
"InsufficientAccessRightsError"))
|
||||
|
||||
it "‘present’ filter" $ do
|
||||
res <- locally $ \l -> do
|
||||
res <- go l (Present (Attr "password"))
|
||||
dns res `shouldBe` [pikachu]
|
||||
res `shouldBe` Right ()
|
||||
|
||||
it "‘equality’ filter" $ do
|
||||
res <- locally $ \l -> do
|
||||
res <- go l (Attr "type" := "flying")
|
||||
dns res `shouldMatchList`
|
||||
[ butterfree
|
||||
, charizard
|
||||
]
|
||||
res `shouldBe` Right ()
|
||||
|
||||
it "‘and’ filter" $ do
|
||||
res <- locally $ \l -> do
|
||||
res <- go l (And (NonEmpty.fromList [ Attr "type" := "fire"
|
||||
, Attr "evolution" := "1"
|
||||
]))
|
||||
dns res `shouldBe` [charmeleon]
|
||||
res `shouldBe` Right ()
|
||||
|
||||
it "‘or’ filter" $ do
|
||||
res <- locally $ \l -> do
|
||||
res <- go l (Or (NonEmpty.fromList [ Attr "type" := "fire"
|
||||
, Attr "evolution" := "1"
|
||||
]))
|
||||
dns res `shouldMatchList`
|
||||
[ ivysaur
|
||||
, charizard
|
||||
, charmeleon
|
||||
, charmander
|
||||
, wartortle
|
||||
, metapod
|
||||
]
|
||||
res `shouldBe` Right ()
|
||||
|
||||
it "‘ge’ filter" $ do
|
||||
res <- locally $ \l -> do
|
||||
res <- go l (Attr "evolution" :>= "2")
|
||||
dns res `shouldMatchList`
|
||||
[ venusaur
|
||||
, charizard
|
||||
, blastoise
|
||||
, butterfree
|
||||
]
|
||||
res `shouldBe` Right ()
|
||||
|
||||
it "‘le’ filter" $ do
|
||||
res <- locally $ \l -> do
|
||||
res <- go l (Attr "evolution" :<= "0")
|
||||
dns res `shouldMatchList`
|
||||
[ bulbasaur
|
||||
, charmander
|
||||
, squirtle
|
||||
, caterpie
|
||||
, pikachu
|
||||
]
|
||||
res `shouldBe` Right ()
|
||||
|
||||
it "‘not’ filter" $ do
|
||||
res <- locally $ \l -> do
|
||||
res <- go l (Not (Or (NonEmpty.fromList [ Attr "type" := "fire"
|
||||
, Attr "evolution" :>= "1"
|
||||
])))
|
||||
dns res `shouldMatchList`
|
||||
[ bulbasaur
|
||||
, squirtle
|
||||
, caterpie
|
||||
, pikachu
|
||||
]
|
||||
res `shouldBe` Right ()
|
||||
|
||||
it "‘substrings’ filter" $ do
|
||||
res <- locally $ \l -> do
|
||||
x <- go l (Attr "cn" :=* (Just "char", [], Nothing))
|
||||
dns x `shouldMatchList`
|
||||
[ charmander
|
||||
, charmeleon
|
||||
, charizard
|
||||
]
|
||||
y <- go l (Attr "cn" :=* (Nothing, [], Just "saur"))
|
||||
dns y `shouldMatchList`
|
||||
[ bulbasaur
|
||||
, ivysaur
|
||||
, venusaur
|
||||
]
|
||||
z <- go l (Attr "cn" :=* (Nothing, ["a", "o"], Just "e"))
|
||||
dns z `shouldMatchList`
|
||||
[ blastoise
|
||||
, wartortle
|
||||
]
|
||||
res `shouldBe` Right ()
|
||||
|
||||
it "‘approximate’ filter (actually, another ‘equality’ filter)" $ do
|
||||
res <- locally $ \l -> do
|
||||
res <- go l (Attr "type" :~= "flying")
|
||||
dns res `shouldMatchList`
|
||||
[ butterfree
|
||||
, charizard
|
||||
]
|
||||
res `shouldBe` Right ()
|
||||
|
||||
it "‘extensible’ filter" $ do
|
||||
res <- locally $ \l -> do
|
||||
res <- go l ((Just (Attr "type"), Nothing, True) ::= "flying")
|
||||
dns res `shouldMatchList`
|
||||
[ butterfree
|
||||
, charizard
|
||||
]
|
||||
res `shouldBe` Right ()
|
||||
@ -1,18 +0,0 @@
|
||||
module Ldap.ClientSpec (spec) where
|
||||
|
||||
import Control.Exception (IOException, throwIO)
|
||||
import Test.Hspec
|
||||
|
||||
import SpecHelper (locally)
|
||||
|
||||
|
||||
spec :: Spec
|
||||
spec =
|
||||
context "exceptions" $
|
||||
it "propagates unrelated ‘IOException’s through" $
|
||||
locally (\_ -> throwIO unrelated)
|
||||
`shouldThrow`
|
||||
(== unrelated)
|
||||
|
||||
unrelated :: IOException
|
||||
unrelated = userError "unrelated"
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user