Exporting oracles in STON and JSON.

2023-12-01 11:45:13 -05:00 · 2023-12-01 11:45:13 -05:00 · a9d376b36c
parent 29a8d52f0f
commit a9d376b36c
1 changed files with 11 additions and 0 deletions
--- a/RoloLudo.package/Firelights.class/instance/saveOracles.st
+++ b/RoloLudo.package/Firelights.class/instance/saveOracles.st
@ -0,0 +1,11 @@
+accessing
+saveOracles
+	| fileName formats |
+	fileName := 'oracles'.
+	formats := {'ston' -> STON. 'json' -> STONJSON} asDictionary.
+	formats keysAndValuesDo: [:format :class |
+		MarkupFile 
+			exportAsFileOn: (FileLocator temp / fileName), format  
+			containing: (class toStringPretty: self oracles)
+	].
+	^ FileLocator temp