69 lines
		
	
	
		
			2.6 KiB
		
	
	
	
		
			Factor
		
	
	
		
		
			
		
	
	
			69 lines
		
	
	
		
			2.6 KiB
		
	
	
	
		
			Factor
		
	
	
|  | ! Copyright (C) 2007 Elie CHAFTARI | ||
|  | ! See http://factorcode.org/license.txt for BSD license. | ||
|  | 
 | ||
|  | IN: asn1.ldap | ||
|  | 
 | ||
|  | : SearchScope_BaseObject      0 ; inline
 | ||
|  | : SearchScope_SingleLevel     1 ; inline
 | ||
|  | : SearchScope_WholeSubtree    2 ; inline
 | ||
|  | 
 | ||
|  | : asn-syntax ( -- hashtable )
 | ||
|  |     H{ | ||
|  |         { "application" | ||
|  |             H{ | ||
|  |                 { "primitive" | ||
|  |                     H{ | ||
|  |                         { 2 "null" }    ! UnbindRequest body | ||
|  |                      } | ||
|  |                 } | ||
|  |                 { "constructed" | ||
|  |                     H{  | ||
|  |                         { 0 "array" }   ! BindRequest | ||
|  |                         { 1 "array" }   ! BindResponse | ||
|  |                         { 2 "array" }   ! UnbindRequest | ||
|  |                         { 3 "array" }   ! SearchRequest | ||
|  |                         { 4 "array" }   ! SearchData | ||
|  |                         { 5 "array" }   ! SearchResult | ||
|  |                         { 6 "array" }   ! ModifyRequest | ||
|  |                         { 7 "array" }   ! ModifyResponse | ||
|  |                         { 8 "array" }   ! AddRequest | ||
|  |                         { 9 "array" }   ! AddResponse | ||
|  |                         { 10 "array" }  ! DelRequest | ||
|  |                         { 11 "array" }  ! DelResponse | ||
|  |                         { 12 "array" }  ! ModifyRdnRequest | ||
|  |                         { 13 "array" }  ! ModifyRdnResponse | ||
|  |                         { 14 "array" }  ! CompareRequest | ||
|  |                         { 15 "array" }  ! CompareResponse | ||
|  |                         { 16 "array" }  ! AbandonRequest | ||
|  |                         { 19 "array" }  ! SearchResultReferral | ||
|  |                         { 24 "array" }  ! Unsolicited Notification | ||
|  |                      } | ||
|  |                 } | ||
|  |             } | ||
|  |         } | ||
|  |         { "context_specific" | ||
|  |              H{ | ||
|  |                  { "primitive" | ||
|  |                      H{ | ||
|  |                          { 0 "string" }  ! password | ||
|  |                          { 1 "string" }  ! Kerberos v4 | ||
|  |                          { 2 "string" }  ! Kerberos v5 | ||
|  |                          { 7 "string" }  ! serverSaslCreds | ||
|  |                      } | ||
|  |                  } | ||
|  |                  { "constructed" | ||
|  |                      H{ | ||
|  |                          { 0 "array" }    ! RFC-2251 Control and Filter-AND | ||
|  |                          { 1 "array" }    ! SearchFilter-OR | ||
|  |                          { 2 "array" }    ! SearchFilter-NOT | ||
|  |                          { 3 "array" }    ! Seach referral | ||
|  |                          { 4 "array" }    ! unknown use in Microsoft Outlook | ||
|  |                          { 5 "array" }    ! SearchFilter-GE | ||
|  |                          { 6 "array" }    ! SearchFilter-LE | ||
|  |                          { 7 "array" }    ! serverSaslCreds | ||
|  |                      } | ||
|  |                  } | ||
|  |              } | ||
|  |         } | ||
|  |      } ;
 |