Claude implementation for Glamorous Toolkit

gistfile1.txt

Object subclass: #AnthropicClaude
	instanceVariableNames: ''
	classVariableNames: 'ApplicationKey'
	package: 'LLM-AnthropicClaude'!

!AnthropicClaude methodsFor: 'accessing' stamp: 'GlamorousAuthor 6/8/2024 12:25'!
invoke: userPrompt system: systemPrompt
	| client payload response |
	payload := {#model -> 'claude-3-haiku-20240307'.
			#max_tokens -> 1536.
			#system -> systemPrompt.
			#messages
				-> {{#role -> 'user'.
							#content -> userPrompt} asDictionary}} asDictionary.
	client := ZnClient new
			headerAt: 'Accept' put: 'application/json';
			headerAt: 'Content-Type' put: 'application/json';
			headerAt: 'Anthropic-Version' put: '2023-06-01';
			headerAt: 'X-Api-Key' put: self class ApplicationKey.
	client url: self class APIEndpoint.
	client contents: (STONJSON toString: payload).
	response := STON fromString: client post.
	^ (response at: 'content') first at: 'text'! !

"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

AnthropicClaude class
	instanceVariableNames: ''!

!AnthropicClaude class methodsFor: 'accessing' stamp: 'GlamorousAuthor 6/8/2024 11:40'!
ApplicationKey: blob
	ApplicationKey := blob! !

!AnthropicClaude class methodsFor: 'accessing' stamp: 'GlamorousAuthor 6/8/2024 11:43'!
APIEndpoint
	APIEndpoint ifNil: [ ^  'https://api.anthropic.com/v1/messages' ].
	^ APIEndpoint! !

!AnthropicClaude class methodsFor: 'accessing' stamp: 'GlamorousAuthor 6/8/2024 11:40'!
ApplicationKey
	^ ApplicationKey! !