extra/asn1/ldap/ldap.factor

   1 ! Copyright (C) 2007 Elie CHAFTARI
   2 ! See http://factorcode.org/license.txt for BSD license.
   3
   4 IN: asn1.ldap
   5
   6 CONSTANT: SearchScope_BaseObject      0
   7 CONSTANT: SearchScope_SingleLevel     1
   8 CONSTANT: SearchScope_WholeSubtree    2
   9
  10 : asn-syntax ( -- hashtable )
  11     H{
  12         { "application"
  13             H{
  14                 { "primitive"
  15                     H{
  16                         { 2 "null" }    ! UnbindRequest body
  17                      }
  18                 }
  19                 { "constructed"
  20                     H{
  21                         { 0 "array" }   ! BindRequest
  22                         { 1 "array" }   ! BindResponse
  23                         { 2 "array" }   ! UnbindRequest
  24                         { 3 "array" }   ! SearchRequest
  25                         { 4 "array" }   ! SearchData
  26                         { 5 "array" }   ! SearchResult
  27                         { 6 "array" }   ! ModifyRequest
  28                         { 7 "array" }   ! ModifyResponse
  29                         { 8 "array" }   ! AddRequest
  30                         { 9 "array" }   ! AddResponse
  31                         { 10 "array" }  ! DelRequest
  32                         { 11 "array" }  ! DelResponse
  33                         { 12 "array" }  ! ModifyRdnRequest
  34                         { 13 "array" }  ! ModifyRdnResponse
  35                         { 14 "array" }  ! CompareRequest
  36                         { 15 "array" }  ! CompareResponse
  37                         { 16 "array" }  ! AbandonRequest
  38                         { 19 "array" }  ! SearchResultReferral
  39                         { 24 "array" }  ! Unsolicited Notification
  40                      }
  41                 }
  42             }
  43         }
  44         { "context_specific"
  45              H{
  46                  { "primitive"
  47                      H{
  48                          { 0 "string" }  ! password
  49                          { 1 "string" }  ! Kerberos v4
  50                          { 2 "string" }  ! Kerberos v5
  51                          { 7 "string" }  ! serverSaslCreds
  52                      }
  53                  }
  54                  { "constructed"
  55                      H{
  56                          { 0 "array" }    ! RFC-2251 Control and Filter-AND
  57                          { 1 "array" }    ! SearchFilter-OR
  58                          { 2 "array" }    ! SearchFilter-NOT
  59                          { 3 "array" }    ! Seach referral
  60                          { 4 "array" }    ! unknown use in Microsoft Outlook
  61                          { 5 "array" }    ! SearchFilter-GE
  62                          { 6 "array" }    ! SearchFilter-LE
  63                          { 7 "array" }    ! serverSaslCreds
  64                      }
  65                  }
  66              }
  67         }
  68      } ;