Diff of /trunk/Data Types/JSONVAR/AsString/Set/svnobj [000000] .. [r2]  Maximize  Restore

Switch to unified view

a b/trunk/Data Types/JSONVAR/AsString/Set/svnobj
1
Gx_ló!0…jüo   ¶}>¾¶-ZªDSystem.StringL{792f2eb6-721e-4e64-ba20-bc98351056db}ImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocumentL{f3878285-8e4f-490b-bb1b-9acbb7eb04db}TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}  Id
2
longTagText
ZIF (ValueType = JSONVALUETYPE.json_null) THENˆ//if the type is not explicitly configured, make a guess at the type@    IF ISNUMBER(ADR(AsString)) THENR      _ValueType:= JSONVALUETYPE.json_number;H   ELSIF ISBOOLEAN(ADR(AsString)) THENT      _ValueType:= JSONVALUETYPE.json_boolean;: ELSIF (AsString = null) THENN    _ValueType:= JSONVALUETYPE.json_null;
3
    ELSER    _ValueType:= JSONVALUETYPE.json_string;   END_IFEND_IF$CASE _ValueType OF0JSONVALUETYPE.json_null:* THIS^.Null:= 'null';6JSONVALUETYPE.json_boolean:L StrToUpperA(pString:= ADR(AsString));8   IF (AsString = 'TRUE') THEN $      TempBool:= TRUE;!&    TempBool:= FALSE;"4   THIS^.Boolean:= TempBool;#4JSONVALUETYPE.json_number:$J TempReal:= STRING_TO_REAL(AsString);%2 THIS^.Number:= TempReal;&4JSONVALUETYPE.json_string:':   THIS^.CharString:= AsString;(END_CASE)Interface*L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}+VAR,  TempBool: BOOL;-    TempReal: REAL;.   TempInt:   DINT;/2   TempString: STRING(255);0END_VAR1
4
IsGet2boolÐÐÐEÐÐ   
5
­pÚÐ-
ÐÐ  
6
­bÚÐ-ÐÐ  
7
­tÚÐ-ÐÐ  
8
­hÚÐ-ÐÐ  
9
­iÚÐ-ÐÐ  
10
­uÚÐ-ÐÐ  
11
­vÚÐ-ÐÐ  
12
­jÚÐ-ÐÐ  
13
­kÚÐ-ÐÐ  
14
­eÚÐ-ÐÐ  
15
­oÚÐ-ÐÐ  
16
­XÚÐ-ÐÐ  
17
­ZÚÐ-ÐÐ  
18
­AÚÐ-ÐÐ  
19
­%ÚÐ-ÐÐ  
20
­ÚÐ-ÐÐ  
21
­LÚÐ-ÐÐ  
22
­UÚÐ-ÐÐ  
23
­QÚÐ-ÐÐ  
24
­RÚÐ- ÐÐ  
25
­SÚÐ-ÐÐ  
26
­TÚÐ-!ÐÐ  
27
­)ÚÐ-ÐÐ  
28
­   ÚÐ-"ÐÐ    
29
­.ÚÐ-#ÐÐ  
30
­ÚÐ-$ÐÐ  
31
­HÚÐ-%ÐÐ  
32
­KÚÐ-&ÐÐ  
33
­ÚÐ-'ÐÐ  
34
­$ÚÐ-(ÐÐ  
35
­ÚÐ-Ð)*ÐEÐÐ    
36
­CÚÐ-+ÐÐ  
37
­DÚÐ-,ÐÐ  
38
­EÚÐ--ÐÐ  
39
­FÚÐ-.ÐÐ  
40
­ÚÐ-/ÐÐ  
41
­ÚÐ-0ÐÐ  
42
­ÚÐ-Ð12­