This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-04-03 17:27:09 -05:00
commit 7979007091
2 changed files with 16 additions and 10 deletions

View File

@ -13,14 +13,16 @@ BaselineOfMiniDocs >> baseline: spec [
"Dependencies" "Dependencies"
self setUpTeapot: spec. self setUpTeapot: spec.
self setUpPetitParser: spec. self setUpPetitParser: spec.
self setUpLepiterBuildingBlocs: spec. "LepiterBuildingBlocs commented while resolving the conflict with the internal gtoolkit renaming."
"self setUpLepiterBuildingBlocs: spec"
spec spec
baseline: 'Mustache' with: [ spec repository: 'github://noha/mustache' ]; baseline: 'Mustache' with: [ spec repository: 'github://noha/mustache' ];
baseline: 'Temple' with: [ spec repository: 'github://astares/Pharo-Temple/src' ]; baseline: 'Temple' with: [ spec repository: 'github://astares/Pharo-Temple/src' ];
baseline: 'Tealight' with: [ spec repository: 'github://astares/Tealight:main/src' ]. baseline: 'Tealight' with: [ spec repository: 'github://astares/Tealight:main/src' ];
baseline: 'DataFrame' with: [ spec repository: 'github://PolyMathOrg/DataFrame/src' ].
"self fossil: spec." "self fossil: spec."
"self xmlParserHTML: spec" self xmlParserHTML: spec.
"Packages" "Packages"
spec spec
@ -91,7 +93,7 @@ BaselineOfMiniDocs >> xmlParserHTML: spec [
spec spec
baseline: 'XMLParserHTML' baseline: 'XMLParserHTML'
with: [ spec with: [ spec
repository: 'github://pharo-contributions/XML-XMLParserHTML/src'; repository: 'github://ruidajo/XML-XMLParserHTML/src';
loads: #('ALL')]; loads: #('ALL')];
import: 'XMLParserHTML' import: 'XMLParserHTML'
] ]

View File

@ -33,12 +33,16 @@ YQ class >> jsonToYaml: aDictionary [
| jsonFile | | jsonFile |
self binaryFile exists ifFalse: [ YQ install]. self binaryFile exists ifFalse: [ YQ install].
jsonFile := MarkupFile exportAsFileOn: FileLocator temp / 'data.json' containing: aDictionary. 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 } { #category : #accessing }