"
COPYRIGHT (c) 2018 by eXept Software AG
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
"{ Package: 'stx:libbasic2' }"
"{ NameSpace: Smalltalk }"
Base64Coder subclass:#Base64UrlCoder
instanceVariableNames:''
classVariableNames:'Base64UrlMapping Base64UrlReverseMapping'
poolDictionaries:''
category:'System-Storage'
!
!Base64UrlCoder class methodsFor:'documentation'!
copyright
"
COPYRIGHT (c) 2018 by eXept Software AG
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
!
documentation
"
A variant of base64 encoding which generates url- and filename save encodings.
Same as Base64 except that instead of plus and slash, minus and underline are generated.
The main entry point API is
Base64UrlCoder encode:aStringOrBytes
and
Base64UrlCoder decode:aString
If the decoder should return a string, use
Base64UrlCoder decodeAsString:aString.
[author:]
Claus Gittinger
[see also:]
RFC https://tools.ietf.org/html/rfc4648
[instance variables:]
[class variables:]
Base64UrlMapping String Mapping from bytes (with 6 valid bits)
to Base64Url characters
Base64UrlReverseMapping Array Mapping from Base64Url characters to 6-bit-Bytes
"
!
examples
"
[exBegin]
(Base64Coder encode:#[0 0 16r3F]) = 'AAA/'
[exEnd]
[exBegin]
(Base64Coder decode:'AAA/') = #[0 0 63]
[exEnd]
[exBegin]
(Base64UrlCoder encode:#[0 0 16r3F]) = 'AAA_'
[exEnd]
[exBegin]
(Base64UrlCoder decode:'AAA_') = #[0 0 63]
[exEnd]
"
! !
!Base64UrlCoder class methodsFor:'initialization'!
initializeMappings
"initialize class variables"
Base64UrlMapping isNil ifTrue:[
"65 characters representing the 6-bit values from 0-63 and one pad character"
"/ notice: minus and underline instead of plus and slash
Base64UrlMapping := 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_='.
Base64UrlReverseMapping := self reverseMappingFor:Base64UrlMapping.
].
"
Base64UrlMapping := nil.
self initializeMappings
"
"Created: / 30-09-2018 / 15:20:47 / Claus Gittinger"
!
mapping
^ Base64UrlMapping
"Created: / 30-09-2018 / 15:31:14 / Claus Gittinger"
!
reverseMapping
^ Base64UrlReverseMapping
"Created: / 30-09-2018 / 15:31:21 / Claus Gittinger"
! !
!Base64UrlCoder class methodsFor:'documentation'!
version_CVS
^ '$Header$'
! !