Merge 3a2d096025

src/MiniDocs/YQ.class.st

@@ -33,12 +33,16 @@ YQ class >> jsonToYaml: aDictionary [
 	| jsonFile |
 	self binaryFile exists ifFalse: [ YQ install].
 	jsonFile := MarkupFile exportAsFileOn: FileLocator temp / 'data.json' containing: aDictionary.
-	OSSUnixSubprocess new
+	(Smalltalk os isUnix or: [ Smalltalk os isMacOS ]) 
-	shellCommand: 'cat ', jsonFile fullName,' | yq -y';
+		ifTrue: [
-	redirectStdout;
+			OSSUnixSubprocess new
-	runAndWaitOnExitDo: [ :command :outString |
+				shellCommand: 'cat ', jsonFile fullName,' | yq -y';
-		^ outString 					
+				redirectStdout;
-	].
+				runAndWaitOnExitDo: [ :command :outString |
+					^ outString 					
+				]].
+	Smalltalk os isWindows 
+		ifTrue: [ ^ LibC resultOfCommand: 'yq -p=json ', jsonFile fullName  ].
 ]
 
 { #category : #accessing }