File: pldes.st

package info (click to toggle)
steptalk 0.10.0%2Bgit20200629-3
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 2,732 kB
  • sloc: objc: 12,182; yacc: 400; makefile: 40; sh: 34; csh: 4; awk: 3; lisp: 3
file content (58 lines) | stat: -rw-r--r-- 1,311 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
"
pldes.st

    GNUstep plpdes tool rewriten as Smalltalk script for StepTalk

Ussage:
    stexec pldes.st file1 [file2 ...]


"
[| :locale

main
    locale := (NSUserDefaults standardUserDefaults) dictionaryRepresentation.

    ((Args count) < 1 ) 
    ifTrue: 
    [
            Transcript showLine:'No file names given to deserialize.'
    ]
    ifFalse:
    [
        Args do: 
        [  :file | 
            [self deserializeFile:file] 
            handler:
            [ :exception |
                Transcript showLine:'Loading \'', file, '\' - ', (exception reason).
            ]
        ]
    ].

    ^self
!

deserializeFile:file
    | myData myString result out |

    myData := NSData dataWithContentsOfFile: file.
    result := NSDeserializer deserializePropertyListFromData: myData
                                           mutableContainers: NO.

    (result isNil) 
        ifTrue: [
            Transcript showLine:'Loading \'',file, '\' - nil property list'.
        ] 
        ifFalse: [

            myString := result descriptionWithLocale: locale indent: 0.
            myData := myString dataUsingEncoding: NSASCIIStringEncoding.

            out := NSFileHandle fileHandleWithStandardOutput.
            out writeData: myData;
                synchronizeFile.
        ].

    ^self
]