From c002c5588a0cbfb11c7d28d7e619508ceb89a4aa Mon Sep 17 00:00:00 2001
From: Boris Shingarov <shingarov@labware.com>
Date: Mon, 8 Jul 2024 23:32:41 -0400
Subject: [PATCH] Move Luke's ISACaller stuff to ISA repo

---
 .../MdwnParserTest.class.st                   | 25 ------
 src/ArchC-LibreSOC-Tests/package.st           |  1 -
 src/ArchC-LibreSOC/ExpectBlank.class.st       | 32 -------
 src/ArchC-LibreSOC/ExpectDesc.class.st        | 19 -----
 src/ArchC-LibreSOC/ExpectForm.class.st        | 11 ---
 src/ArchC-LibreSOC/ExpectOpcode.class.st      | 13 ---
 src/ArchC-LibreSOC/ExpectPseudoLine.class.st  | 13 ---
 .../ExpectPseudocodeHeader.class.st           | 11 ---
 .../ExpectSpecialHeader.class.st              | 11 ---
 .../ExpectSpecialRegister.class.st            | 13 ---
 src/ArchC-LibreSOC/MdwnInstruction.class.st   | 65 --------------
 src/ArchC-LibreSOC/MdwnParser.class.st        | 84 -------------------
 src/ArchC-LibreSOC/ParsingDone.class.st       | 15 ----
 src/ArchC-LibreSOC/ParsingState.class.st      | 35 --------
 src/ArchC-LibreSOC/package.st                 |  1 -
 15 files changed, 349 deletions(-)
 delete mode 100644 src/ArchC-LibreSOC-Tests/MdwnParserTest.class.st
 delete mode 100644 src/ArchC-LibreSOC-Tests/package.st
 delete mode 100644 src/ArchC-LibreSOC/ExpectBlank.class.st
 delete mode 100644 src/ArchC-LibreSOC/ExpectDesc.class.st
 delete mode 100644 src/ArchC-LibreSOC/ExpectForm.class.st
 delete mode 100644 src/ArchC-LibreSOC/ExpectOpcode.class.st
 delete mode 100644 src/ArchC-LibreSOC/ExpectPseudoLine.class.st
 delete mode 100644 src/ArchC-LibreSOC/ExpectPseudocodeHeader.class.st
 delete mode 100644 src/ArchC-LibreSOC/ExpectSpecialHeader.class.st
 delete mode 100644 src/ArchC-LibreSOC/ExpectSpecialRegister.class.st
 delete mode 100644 src/ArchC-LibreSOC/MdwnInstruction.class.st
 delete mode 100644 src/ArchC-LibreSOC/MdwnParser.class.st
 delete mode 100644 src/ArchC-LibreSOC/ParsingDone.class.st
 delete mode 100644 src/ArchC-LibreSOC/ParsingState.class.st
 delete mode 100644 src/ArchC-LibreSOC/package.st

diff --git a/src/ArchC-LibreSOC-Tests/MdwnParserTest.class.st b/src/ArchC-LibreSOC-Tests/MdwnParserTest.class.st
deleted file mode 100644
index 81f0cab..0000000
--- a/src/ArchC-LibreSOC-Tests/MdwnParserTest.class.st
+++ /dev/null
@@ -1,25 +0,0 @@
-Class {
-	#name : #MdwnParserTest,
-	#superclass : #TestCase,
-	#category : #'ArchC-LibreSOC-Tests'
-}
-
-{ #category : #tests }
-MdwnParserTest >> testParseBranch [
-	| page branch |
-	page := MdwnParser parse: 'branch'. "Array with 5 Mdwninstructions"
-	self assert: page size equals: 5.
-	branch := page detect: [ :op | op desc = 'Branch' ].
-	self assert: branch opcodes size equals: 4. "b, ba, bl, bla"
-	
-]
-
-{ #category : #tests }
-MdwnParserTest >> testParseFixedArith [
-	| page branch |
-	page := MdwnParser parse: 'fixedarith'. "Array with 41 Mdwninstructions"
-	self assert: page size equals: 41.
-	branch := page detect: [ :op | op desc = 'Subtract From' ].
-	self assert: branch opcodes size equals: 4. "subf, subf., subfo, subfo. "
-	
-]
diff --git a/src/ArchC-LibreSOC-Tests/package.st b/src/ArchC-LibreSOC-Tests/package.st
deleted file mode 100644
index a36b84c..0000000
--- a/src/ArchC-LibreSOC-Tests/package.st
+++ /dev/null
@@ -1 +0,0 @@
-Package { #name : #'ArchC-LibreSOC-Tests' }
diff --git a/src/ArchC-LibreSOC/ExpectBlank.class.st b/src/ArchC-LibreSOC/ExpectBlank.class.st
deleted file mode 100644
index c329df3..0000000
--- a/src/ArchC-LibreSOC/ExpectBlank.class.st
+++ /dev/null
@@ -1,32 +0,0 @@
-Class {
-	#name : #ExpectBlank,
-	#superclass : #ParsingState,
-	#instVars : [
-		'nextState'
-	],
-	#category : #'ArchC-LibreSOC'
-}
-
-{ #category : #'as yet unclassified' }
-ExpectBlank class >> op: op next: aParserStateSubclass [ 
-	^super new
-		op: op;
-		nextState: aParserStateSubclass;
-		yourself
-]
-
-{ #category : #accessing }
-ExpectBlank >> nextState [
-	^ nextState
-]
-
-{ #category : #accessing }
-ExpectBlank >> nextState: anObject [
-	nextState := anObject
-]
-
-{ #category : #logic }
-ExpectBlank >> transition: l [
-	l isEmpty ifFalse: [ self error ].
-	^nextState new: op
-]
diff --git a/src/ArchC-LibreSOC/ExpectDesc.class.st b/src/ArchC-LibreSOC/ExpectDesc.class.st
deleted file mode 100644
index 859186c..0000000
--- a/src/ArchC-LibreSOC/ExpectDesc.class.st
+++ /dev/null
@@ -1,19 +0,0 @@
-Class {
-	#name : #ExpectDesc,
-	#superclass : #ParsingState,
-	#category : #'ArchC-LibreSOC'
-}
-
-{ #category : #'as yet unclassified' }
-ExpectDesc class >> initial [
-	^self new: MdwnInstruction new
-]
-
-{ #category : #logic }
-ExpectDesc >> transition: l [
-	l isEmpty ifTrue: [ ^self ].
-	(l beginsWith: '<!--') ifTrue: [ ^self ].
-	(l beginsWith: '#') ifFalse: [ self error ].
-	op desc: l copyWithoutFirst stripLeftSeparator.
-	^ExpectBlank op: op next: ExpectForm 
-]
diff --git a/src/ArchC-LibreSOC/ExpectForm.class.st b/src/ArchC-LibreSOC/ExpectForm.class.st
deleted file mode 100644
index ae12d6c..0000000
--- a/src/ArchC-LibreSOC/ExpectForm.class.st
+++ /dev/null
@@ -1,11 +0,0 @@
-Class {
-	#name : #ExpectForm,
-	#superclass : #ParsingState,
-	#category : #'ArchC-LibreSOC'
-}
-
-{ #category : #logic }
-ExpectForm >> transition: l [
-	op form: (l copyFrom: 1 to: (l indexOfSubCollection: '-Form' startingAt: 1 ifAbsent: [ self error ])-1).
-	^ExpectBlank op: op next: ExpectOpcode 
-]
diff --git a/src/ArchC-LibreSOC/ExpectOpcode.class.st b/src/ArchC-LibreSOC/ExpectOpcode.class.st
deleted file mode 100644
index 2d5a0b7..0000000
--- a/src/ArchC-LibreSOC/ExpectOpcode.class.st
+++ /dev/null
@@ -1,13 +0,0 @@
-Class {
-	#name : #ExpectOpcode,
-	#superclass : #ParsingState,
-	#category : #'ArchC-LibreSOC'
-}
-
-{ #category : #logic }
-ExpectOpcode >> transition: l [
-	l isEmpty ifTrue: [ ^ExpectPseudocodeHeader new: op ].
-	(l beginsWith: '*') ifFalse: [ self error ].
-	op opcodes add: l copyWithoutFirst stripLeftSeparator.
-	^self
-]
diff --git a/src/ArchC-LibreSOC/ExpectPseudoLine.class.st b/src/ArchC-LibreSOC/ExpectPseudoLine.class.st
deleted file mode 100644
index 874af22..0000000
--- a/src/ArchC-LibreSOC/ExpectPseudoLine.class.st
+++ /dev/null
@@ -1,13 +0,0 @@
-Class {
-	#name : #ExpectPseudoLine,
-	#superclass : #ParsingState,
-	#category : #'ArchC-LibreSOC'
-}
-
-{ #category : #logic }
-ExpectPseudoLine >> transition: l [
-	l isEmpty ifTrue: [ ^ExpectSpecialHeader new: op ].
-	(l beginsWith: '    ') ifFalse: [ self error ].
-	op pcode add: (l copyFrom: 5 to: l size).
-	^self
-]
diff --git a/src/ArchC-LibreSOC/ExpectPseudocodeHeader.class.st b/src/ArchC-LibreSOC/ExpectPseudocodeHeader.class.st
deleted file mode 100644
index 23dd1c3..0000000
--- a/src/ArchC-LibreSOC/ExpectPseudocodeHeader.class.st
+++ /dev/null
@@ -1,11 +0,0 @@
-Class {
-	#name : #ExpectPseudocodeHeader,
-	#superclass : #ParsingState,
-	#category : #'ArchC-LibreSOC'
-}
-
-{ #category : #logic }
-ExpectPseudocodeHeader >> transition: l [
-	l = 'Pseudo-code:' ifFalse: [ self error ].
-	^ExpectBlank op: op next: ExpectPseudoLine 
-]
diff --git a/src/ArchC-LibreSOC/ExpectSpecialHeader.class.st b/src/ArchC-LibreSOC/ExpectSpecialHeader.class.st
deleted file mode 100644
index fdd9f00..0000000
--- a/src/ArchC-LibreSOC/ExpectSpecialHeader.class.st
+++ /dev/null
@@ -1,11 +0,0 @@
-Class {
-	#name : #ExpectSpecialHeader,
-	#superclass : #ParsingState,
-	#category : #'ArchC-LibreSOC'
-}
-
-{ #category : #logic }
-ExpectSpecialHeader >> transition: l [
-	l = 'Special Registers Altered:' ifFalse: [ ^self error ].
-	^ExpectBlank op: op next: ExpectSpecialRegister 
-]
diff --git a/src/ArchC-LibreSOC/ExpectSpecialRegister.class.st b/src/ArchC-LibreSOC/ExpectSpecialRegister.class.st
deleted file mode 100644
index 12093b2..0000000
--- a/src/ArchC-LibreSOC/ExpectSpecialRegister.class.st
+++ /dev/null
@@ -1,13 +0,0 @@
-Class {
-	#name : #ExpectSpecialRegister,
-	#superclass : #ParsingState,
-	#category : #'ArchC-LibreSOC'
-}
-
-{ #category : #logic }
-ExpectSpecialRegister >> transition: l [
-	l isEmpty ifTrue: [ ^ParsingDone new: op ].
-	(l beginsWith: '    ') ifFalse: [ self error ].
-	op sregs add: (l copyFrom: 5 to: l size).
-	^self
-]
diff --git a/src/ArchC-LibreSOC/MdwnInstruction.class.st b/src/ArchC-LibreSOC/MdwnInstruction.class.st
deleted file mode 100644
index e015840..0000000
--- a/src/ArchC-LibreSOC/MdwnInstruction.class.st
+++ /dev/null
@@ -1,65 +0,0 @@
-Class {
-	#name : #MdwnInstruction,
-	#superclass : #Object,
-	#instVars : [
-		'desc',
-		'form',
-		'opcodes',
-		'pcode',
-		'sregs'
-	],
-	#category : #'ArchC-LibreSOC'
-}
-
-{ #category : #accessing }
-MdwnInstruction >> desc [
-	^ desc
-]
-
-{ #category : #accessing }
-MdwnInstruction >> desc: anObject [
-	desc := anObject
-]
-
-{ #category : #accessing }
-MdwnInstruction >> form [
-	^ form
-]
-
-{ #category : #accessing }
-MdwnInstruction >> form: anObject [
-	form := anObject
-]
-
-{ #category : #accessing }
-MdwnInstruction >> opcodes [
-	opcodes isNil ifTrue: [ opcodes := OrderedCollection new ].
-	^ opcodes
-]
-
-{ #category : #accessing }
-MdwnInstruction >> opcodes: anObject [
-	opcodes := anObject
-]
-
-{ #category : #accessing }
-MdwnInstruction >> pcode [
-	pcode isNil ifTrue: [ pcode := OrderedCollection new ].
-	^ pcode
-]
-
-{ #category : #accessing }
-MdwnInstruction >> pcode: anObject [
-	pcode := anObject
-]
-
-{ #category : #accessing }
-MdwnInstruction >> sregs [
-	sregs isNil ifTrue: [ sregs := OrderedCollection new ].
-	^ sregs
-]
-
-{ #category : #accessing }
-MdwnInstruction >> sregs: anObject [
-	sregs := anObject
-]
diff --git a/src/ArchC-LibreSOC/MdwnParser.class.st b/src/ArchC-LibreSOC/MdwnParser.class.st
deleted file mode 100644
index 89b8dc2..0000000
--- a/src/ArchC-LibreSOC/MdwnParser.class.st
+++ /dev/null
@@ -1,84 +0,0 @@
-Class {
-	#name : #MdwnParser,
-	#superclass : #Object,
-	#instVars : [
-		'state'
-	],
-	#category : #'ArchC-LibreSOC'
-}
-
-{ #category : #'working directory' }
-MdwnParser class >> baseDirectory [
-	"Answer where the working copy of LibreSOC is.
-
-	The directory is determined as follows:
-
-	1. environment variable named LIBRESOC,
-	   if not set then
-	1. `libresoc` directory in local git working copy
-	   (as created by `get-libresoc.sh` script)
-	"
-
-	| base slash |
-	base := 'LIBRESOC' getOSEnvironment.
-	base isNil ifTrue:[
-		self shouldBeImplemented.
-		base := self baseDirectoryGuess.
-		base isNil ifTrue:[
-			self error: 'Failed to guess the base directory for PDLs, please run `get-libresoc.sh` or set ''LIBRESOC'' environment.'
-		].
-	].
-
-	"Make sure it has a slash at the end!"
-	((Smalltalk respondsTo: #isSmalltalkX) and: [ Smalltalk isSmalltalkX ]) ifTrue: [ 
-		slash := #Filename asClass separator
-	] ifFalse: [ 
-		slash := #DiskStore asClass activeClass delimiter.
-	].
-	(base notNil and:[base last ~~ slash]) ifTrue:[
-		self error: 'Base directory must end with ', slash asString
-	].
-	^base
-
-	"
-	MdwnParser baseDirectory
-	"
-
-]
-
-{ #category : #'working directory' }
-MdwnParser class >> filenameFor: page [
-	^self baseDirectory,
-		'openpower-isa/openpower/isa/',
-		page,
-		'.mdwn'
-]
-
-{ #category : #API }
-MdwnParser class >> parse: pageName [
-	| filename lines |
-	filename := self filenameFor: pageName.
-	^self new parse: filename asFileReference readStream contents lines.
-	
-]
-
-{ #category : #initialization }
-MdwnParser >> initialize [
-	state := ExpectDesc initial
-]
-
-{ #category : #API }
-MdwnParser >> parse: lines [ 
-	^(lines collect: [ :l |
-		self transition: l.
-		state isAccepting ifTrue: [
-			| instr |
-			instr := state op.
-			state := ExpectDesc initial.
-			instr ] ifFalse: [	nil]]) reject: [ :instr | instr isNil ]
-]
-
-{ #category : #logic }
-MdwnParser >> transition: l [
-	state := state transition: l
-]
diff --git a/src/ArchC-LibreSOC/ParsingDone.class.st b/src/ArchC-LibreSOC/ParsingDone.class.st
deleted file mode 100644
index ecf11be..0000000
--- a/src/ArchC-LibreSOC/ParsingDone.class.st
+++ /dev/null
@@ -1,15 +0,0 @@
-Class {
-	#name : #ParsingDone,
-	#superclass : #ParsingState,
-	#category : #'ArchC-LibreSOC'
-}
-
-{ #category : #logic }
-ParsingDone >> isAccepting [ 
-	^true
-]
-
-{ #category : #logic }
-ParsingDone >> transition: l [
-	self shouldNotImplement 
-]
diff --git a/src/ArchC-LibreSOC/ParsingState.class.st b/src/ArchC-LibreSOC/ParsingState.class.st
deleted file mode 100644
index 88699aa..0000000
--- a/src/ArchC-LibreSOC/ParsingState.class.st
+++ /dev/null
@@ -1,35 +0,0 @@
-Class {
-	#name : #ParsingState,
-	#superclass : #Object,
-	#instVars : [
-		'op'
-	],
-	#category : #'ArchC-LibreSOC'
-}
-
-{ #category : #'instance creation' }
-ParsingState class >> new: op [
-	^super new 
-		op: op;
-		yourself
-]
-
-{ #category : #'as yet unclassified' }
-ParsingState >> isAccepting [
-	^false
-]
-
-{ #category : #accessing }
-ParsingState >> op [
-	^ op
-]
-
-{ #category : #accessing }
-ParsingState >> op: anObject [
-	op := anObject
-]
-
-{ #category : #logic }
-ParsingState >> transition: l [
-	self subclassResponsibility 
-]
diff --git a/src/ArchC-LibreSOC/package.st b/src/ArchC-LibreSOC/package.st
deleted file mode 100644
index cf48a67..0000000
--- a/src/ArchC-LibreSOC/package.st
+++ /dev/null
@@ -1 +0,0 @@
-Package { #name : #'ArchC-LibreSOC' }