Merge pull request #30 from noha/integrate-headers-accessors

Integrate headers accessors

Author: noha

source/JSONWebToken-Core/JOSEHeader.class.st

@@ -5,7 +5,8 @@ Class {
 	#name : 'JOSEHeader',
 	#superclass : 'Object',
 	#instVars : [
-		'properties'
+		'properties',
+		'strict'
 	],
 	#category : 'JSONWebToken-Core-Headers',
 	#package : 'JSONWebToken-Core',
@@ -26,6 +27,31 @@ JOSEHeader >> = aHeader [
 	^ aHeader hasSameElements: properties
 ]
 
+{ #category : 'accessing' }
+JOSEHeader >> at: aString [
+
+	^ strict
+		  ifTrue: [ properties at: aString ]
+		  ifFalse: [ properties at: aString ifAbsent: nil ]
+]
+
+{ #category : 'accessing' }
+JOSEHeader >> at: aKey put: aValue [
+	properties at: aKey put: aValue
+]
+
+{ #category : 'initialization' }
+JOSEHeader >> beLenient [
+
+	strict := false
+]
+
+{ #category : 'initialization' }
+JOSEHeader >> beStrict [
+
+	strict := true
+]
+
 { #category : 'testing' }
 JOSEHeader >> hasSameElements: aDictionary [
 	^ (properties difference: aDictionary) isEmpty
@@ -36,6 +62,23 @@ JOSEHeader >> hash [
 	^ properties hash
 ]
 
+{ #category : 'initialization' }
+JOSEHeader >> initialize [ 
+	super initialize.
+	strict := true
+]
+
+{ #category : 'accessing' }
+JOSEHeader >> kid [
+"Public Key ID"
+	^ properties at: 'kid'
+]
+
+{ #category : 'accessing' }
+JOSEHeader >> kid: anObject [
+	properties at: 'kid' put: anObject
+]
+
 { #category : 'accessing' }
 JOSEHeader >> typ [
 	^ self type

source/JSONWebToken-Core/JWTClaimsSet.class.st

@@ -1,5 +1,8 @@
 "
 A set of specific claims
+
+The registered claim names are: iss, sub, aud, exp, nbf, iat, jti
+None of the claims defined are intended to be mandatory to use or implement in all cases, but rather they provide a starting point for a set of useful, interoperable claims.
 "
 Class {
 	#name : 'JWTClaimsSet',
@@ -29,7 +32,7 @@ JWTClaimsSet >> at: aString [
 
 	^ strict
 		  ifTrue: [ claims at: aString ]
-		  ifFalse: [ claims at: aString ifAbsent: [  ] ]
+		  ifFalse: [ claims at: aString ifAbsent: nil ]
 ]
 
 { #category : 'accessing - basic' }
@@ -191,11 +194,41 @@ JWTClaimsSet >> issuer: anObject [
 	self iss: anObject
 ]
 
+{ #category : 'accessing' }
+JWTClaimsSet >> jti [
+	^ self at: 'jti'
+]
+
+{ #category : 'accessing' }
+JWTClaimsSet >> jti: aString [
+	self at: 'jti' put: aString
+]
+
+{ #category : 'accessing' }
+JWTClaimsSet >> jwtId [
+	^ self jti
+]
+
+{ #category : 'accessing' }
+JWTClaimsSet >> jwtId: aString [
+	self jti: aString
+]
+
 { #category : 'accessing' }
 JWTClaimsSet >> mimeType [
 	^ 'JWT'
 ]
 
+{ #category : 'accessing' }
+JWTClaimsSet >> nbf [
+	^ self at: 'nbf'
+]
+
+{ #category : 'accessing' }
+JWTClaimsSet >> nbf: aString [
+	self at: 'nbf' put: aString
+]
+
 { #category : 'accessing' }
 JWTClaimsSet >> nonce [
 	^ self at: 'nonce'
@@ -206,6 +239,16 @@ JWTClaimsSet >> nonce: anObject [
 	self at: 'nonce' put: anObject
 ]
 
+{ #category : 'accessing' }
+JWTClaimsSet >> notBefore [
+	^ self nbf
+]
+
+{ #category : 'accessing' }
+JWTClaimsSet >> notBefore: aString [
+	self nbf: aString
+]
+
 { #category : 'accessing' }
 JWTClaimsSet >> setClaims: aCollection [
 	claims := aCollection