From f3b3d4b1a26eba872c32ad95fc112650011b625c Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Sun, 23 Nov 2025 17:05:53 +0100
Subject: Add the tiny-chat project from the Pharo MOOC

---
 .../src/TinyChat-server/TCServer.class.st          | 75 ++++++++++++++++++++++
 1 file changed, 75 insertions(+)
 create mode 100644 pharo-mooc/tiny-chat/src/TinyChat-server/TCServer.class.st

(limited to 'pharo-mooc/tiny-chat/src/TinyChat-server/TCServer.class.st')

diff --git a/pharo-mooc/tiny-chat/src/TinyChat-server/TCServer.class.st b/pharo-mooc/tiny-chat/src/TinyChat-server/TCServer.class.st
new file mode 100644
index 0000000..cda06a0
--- /dev/null
+++ b/pharo-mooc/tiny-chat/src/TinyChat-server/TCServer.class.st
@@ -0,0 +1,75 @@
+Class {
+	#name : 'TCServer',
+	#superclass : 'Object',
+	#instVars : [
+		'teapotServer',
+		'messagesQueue'
+	],
+	#category : 'TinyChat-server',
+	#package : 'TinyChat-server'
+}
+
+{ #category : 'initialization' }
+TCServer class >> startOn: aPortNumber [
+	^self new
+		  initializePort: aPortNumber;
+		  registerRoutes;
+		  registerErrorHandlers;
+		  yourself
+]
+
+{ #category : 'initialization' }
+TCServer class >> stopAll [
+	self allInstancesDo: #stop
+]
+
+{ #category : 'initialization' }
+TCServer >> addMessage: aRequest [
+	messagesQueue add: (TCMessage from: (aRequest at: #sender) text: (aRequest at: #text)).
+]
+
+{ #category : 'initialization' }
+TCServer >> initialize [
+	super initialize.
+	messagesQueue := TCMessageQueue new
+]
+
+{ #category : 'initialization' }
+TCServer >> initializePort: anInteger [
+	teapotServer := Teapot configure: {
+		#defaultOutput -> #text.
+		#port -> anInteger.
+		#debugMode -> true
+	}.
+	teapotServer start
+]
+
+{ #category : 'initialization' }
+TCServer >> messageCount [
+	^ messagesQueue size
+]
+
+{ #category : 'initialization' }
+TCServer >> messagesFrom: request [
+	^ messagesQueue formattedMessagesFrom: (request at: #id)
+]
+
+{ #category : 'initialization' }
+TCServer >> registerErrorHandlers [
+	teapotServer
+		exception: KeyNotFound -> (TeaResponse notFound body: 'No such message')
+]
+
+{ #category : 'initialization' }
+TCServer >> registerRoutes [
+	teapotServer
+		GET: '/messages/count' -> (Send message: #messageCount to: self);
+		GET: '/messages/<id:IsInteger>' -> (Send message: #messagesFrom: to: self);
+		POST: '/messages/add' -> (Send message: #addMessage: to: self)
+]
+
+{ #category : 'initialization' }
+TCServer >> stop [
+	teapotServer stop.
+	messagesQueue reset
+]
-- 
cgit v1.2.3