Multiple changes:

- Add the book and a few first pages
- Add the code generator

src/Carp/CarpNamedFunction.class.st

@@ -0,0 +1,53 @@
+Class {
+	#name : #CarpNamedFunction,
+	#superclass : #CarpBinding,
+	#instVars : [
+		'arguments',
+		'body'
+	],
+	#category : #'Carp-IDE'
+}
+
+{ #category : #'instance creation' }
+CarpNamedFunction class >> named: aString withArguments: aCollection andBody: anExpression [
+	^ self new 
+		name: aString;
+		arguments: aCollection;
+		body: anExpression
+]
+
+{ #category : #accessing }
+CarpNamedFunction >> addArgument: anArgument [
+	arguments add: anArgument
+]
+
+{ #category : #accessing }
+CarpNamedFunction >> arguments: aCollection [
+	arguments := aCollection
+]
+
+{ #category : #accessing }
+CarpNamedFunction >> body [
+
+	^ body
+]
+
+{ #category : #accessing }
+CarpNamedFunction >> body: anExpression [
+	body := anExpression
+]
+
+{ #category : #initialization }
+CarpNamedFunction >> initialize [
+	arguments := OrderedCollection new
+]
+
+{ #category : #converting }
+CarpNamedFunction >> toCarp [
+
+	^ String streamContents: [ :aStream | 
+		  aStream << '(' << self bindingName << ' ' << self name toCarp
+		  << ' ['.
+		  arguments do: [ :anArgument | aStream << anArgument toCarp << ' ' ].
+		  aStream << '] ' << self body toCarp << ')' ]
+]