parser: add simple parser and tests

src/Phsyche.package/.filetree

@@ -0,0 +1,4 @@
+{
+	"noMethodMetaData" : true,
+	"separateMethodMetaAndSource" : false,
+	"useCypressPropertiesFile" : true }

src/Phsyche.package/Phsyche.class/README.md

@@ -0,0 +1 @@
+I’m a simple Lisp interpreter.

src/Phsyche.package/Phsyche.class/instance/parse..st

@@ -0,0 +1,4 @@
+as yet unclassified
+parse: aProgramString
+	aProgramString ifEmpty: [ ^ #() ].
+	^ (Scanner new scanTokens: aProgramString) first

src/Phsyche.package/Phsyche.class/properties.json

@@ -0,0 +1,14 @@
+{
+	"category" : "Phsyche",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "VeitHeller 4/30/2018 16:32",
+	"instvars" : [
+		"env" ],
+	"name" : "Phsyche",
+	"pools" : [
+		 ],
+	"super" : "Object",
+	"type" : "normal" }

src/Phsyche.package/PhsycheTest.class/instance/setUp.st

@@ -0,0 +1,3 @@
+tests
+setUp
+	ph := Phsyche new

src/Phsyche.package/PhsycheTest.class/instance/testParseEmptyList.st

@@ -0,0 +1,3 @@
+tests
+testParseEmptyList
+	self assert: (ph parse: '()') equals: #()

src/Phsyche.package/PhsycheTest.class/instance/testParseFloat.st

@@ -0,0 +1,3 @@
+tests
+testParseFloat
+	self assert: (ph parse: '12.33') equals: 12.33

src/Phsyche.package/PhsycheTest.class/instance/testParseIsNull.st

@@ -0,0 +1,8 @@
+tests
+testParseIsNull
+	self
+		assert: (ph parse: '(isNull (cons (quote a) #()))')
+		equals: #(#isNull #(#cons #(#quote #a) #())).
+	self
+		assert: (ph parse: '(isNull (cons (quote a) ()))')
+		equals: #(#isNull #(#cons #(#quote #a) #()))

src/Phsyche.package/PhsycheTest.class/instance/testParseLambda.st

@@ -0,0 +1,5 @@
+tests
+testParseLambda
+	self
+		assert: (ph parse: '(define squared (lambda (x) (* x x)))')
+		equals: #(#define #squared #(#lambda #(#x) #(* x x)))

src/Phsyche.package/PhsycheTest.class/instance/testParseSymbol.st

@@ -0,0 +1,3 @@
+tests
+testParseSymbol
+self assert: (ph parse: 'r') equals: #r

src/Phsyche.package/PhsycheTest.class/properties.json

@@ -0,0 +1,14 @@
+{
+	"category" : "Phsyche",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		"ph" ],
+	"name" : "PhsycheTest",
+	"pools" : [
+		 ],
+	"super" : "TestCase",
+	"type" : "normal" }

src/Phsyche.package/monticello.meta/categories.st

@@ -0,0 +1 @@
+SystemOrganization addCategory: #Phsyche!

src/Phsyche.package/monticello.meta/package

@@ -0,0 +1 @@
+(name 'Phsyche')

src/Phsyche.package/properties.json

@@ -0,0 +1,2 @@
+{
+	 }