add bases classes

Diya/DiyaBoot.class.st

@@ -20,6 +20,11 @@ DiyaBoot class >> initialize [
 
 { #category : #'system startup' }
 DiyaBoot class >> startUp: status [
+	"
+	As is the entry point for Diya, it need to be disabled
+	when inside the SDK image.
+	"
+	((Smalltalk globals at:#codeName ifAbsent:[nil]) = 'diya') ifFalse: [^self].
 	self getLoadedClasses
 		do: [ :c | 
 			Transcript

Diya/DiyaFFIBase.class.st

@@ -0,0 +1,25 @@
+Class {
+	#name : #DiyaFFIBase,
+	#superclass : #DiyaBaseObject,
+	#category : #'Diya-Core'
+}
+
+{ #category : #accessing }
+DiyaFFIBase class >> checkSymbol [
+	^self subclassResponsibility 
+]
+
+{ #category : #accessing }
+DiyaFFIBase class >> libNames [
+	^self subclassResponsibility
+]
+
+{ #category : #accessing }
+DiyaFFIBase class >> moduleName [
+	self libNames do:[:aName|
+		(ExternalAddress loadSymbol: self checkSymbol from: aName) ifNotNil: [ 
+			^ aName
+		].
+	].
+	self error: 'Unable to find FFI library (', self checkSymbol, ')'.
+]

Diya/DiyaSDLBinding.class.st

@@ -0,0 +1,18 @@
+Class {
+	#name : #DiyaSDLBinding,
+	#superclass : #DiyaFFIBase,
+	#category : #'Diya-Graphics-SDL'
+}
+
+{ #category : #accessing }
+DiyaSDLBinding class >> checkSymbol [
+	^ 'SDL_Init'
+]
+
+{ #category : #accessing }
+DiyaSDLBinding class >> libNames [
+	#(
+		'libSDL2-2.0.so.0'			"Linux 1"
+		'libSDL2-2.0.so.0.2.1'	"Linux 2"
+	) 
+]

Diya/ImageInitializer.class.st

@@ -87,7 +87,7 @@ ImageInitializer >> preloadSystem: loaded [
 
 { #category : #activation }
 ImageInitializer >> snap [
-	|pkg|
+	Smalltalk globals at: #codeName put: 'diya'.
 	self class removeFromSystem.
 	Smalltalk garbageCollect.
 	Smalltalk snapshot: true andQuit: false.