JSON parsing and composing library
1-planninga library to parse and compose JSON strings from local variables
Brought to you by:
tvm
MIT License
Unlicense
[r2]: / trunk / Functions / STRUCT_TO_JSON / svnobj Maximize Restore History
6 lines (6 with data), 18.0 kB
Gx_l CF ! 0
jüoº4 xél a \SÄ8 S y s t e m . S t r i n g L{ 6 f 9 d a c 9 9 - 8 d e 1 - 4 e f c - 8 4 6 5 - 6 8 a c 4 4 3 b 7 d 0 8 } S p e c i a l F u n c L{ 0 d b 3 d 7 b b - c d e 0 - 4 4 1 6 - 9 a 7 b - c e 4 9 a 0 1 2 4 3 2 3 } N o n e I m p l e m e n t a t i o n L{ 3 b 8 3 b 7 7 6 - f b 2 5 - 4 3 b 8 - 9 9 f 2 - 3 c 5 0 7 c 9 1 4 3 f c } T e x t D o c u m e n t L{ f 3 8 7 8 2 8 5 - 8 e 4 f - 4 9 0 b - b b 1 b - 9 a c b b 7 e b 0 4 d b }
T e x t L i n e s L{ a 5 d e 0 b 0 b - 1 c b 5 - 4 9 1 3 - a c 2 1 - 9 d 7 0 2 9 3 e c 0 0 d } I d
l o n g T a g T e x t Ò( * = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = S T R U C T _ T O _ J S O N ( ) VA u t h o r : T i m V a n M e p p e l e n , P r o E l e c t r i c I n c . (t i m v @ p r o e l e c t r i c . c o m "D a t e : N o v 2 , 2 0 1 8 lc r e a t e a J S O N s t r i n g f r o m a s t r u c t u r e o f J S O N V A R t y p e s Ô= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = * ) t h i s l o o p s t a r t t i m e : = T I M E ( ) ; / / s t o r e t h e t i m e o f t h e b e g i n n i n g o f t h i s l o o p 8E x e c u t e _ T R I G ( C L K : = E x e c u t e ) ; 0A b o r t _ T R I G ( C L K : = A b o r t ) ; ,I F E x e c u t e _ T R I G . Q T H E N l/ / m u s t s e e a r i s i n g e d g e o n e x e c u t e t o s t a r t c o m p o s i n g s t a r t t i m e : = T I M E ( ) ; / / s t o r e t h e t i m e o f t h e b e g i n n i n g o f e x e c u t i o n c o m p o s e : = T R U E ; B u s y : = T R U E ; " A b o r t e d : = F A L S E ; ! D o n e : = F A L S E ; " E r r o r : = F A L S E ; #& E r r o r P o s i t i o n : = 0 ; $( b u f f e r p o s i t i o n : = 1 ; %& j s o n v a r i n d e x : = 1 ; &H F O R i : = 1 T O G P L _ J S O N . M A X _ L E V E L S D O '( / / c l e a r n a m e s a r r a y (* n a m e s [ i ] . N a m e : = ' ' ; )4 n a m e s [ i ] . A r r a y I n d e x : = 0 ; * E N D _ F O R +0 / / c l e a r p r e v i o u s s t r i n g , S y s M e m S e t ( -, p D e s t : = J S O N S t r i n g , . u d i V a l u e : = 0 , /6 u d i C o u n t : = J S O N S t r i n g S i z e 0 ) ; 1 E N D _ I F 2(I F A b o r t _ T R I G . Q T H E N 3 B u s y : = F A L S E ; 4 A b o r t e d : = T R U E ; 5" c o m p o s e : = F A L S E ; 6´W H I L E c o m p o s e A N D ( j s o n v a r i n d e x < = N u m b e r O f V a r s ) A N D ( b u f f e r p o s i t i o n < J S O N S t r i n g S i z e ) D O 7D/ / l o o p t h r o u g h a l l l o c a l v a r i a b l e s 8` o b j e c t s t r : = ' ' ; / / c l e a r p r e v i o u s o b j e c t s t r i n g 9¢ n a m e s : = J S O N V a r s ^ [ j s o n v a r i n d e x ] . N a m e s ; / / h e l p e r v a r i a b l e f o r n a m e a r r a y p r o p e r t y : ;6 I F ( j s o n v a r i n d e x = 1 ) T H E N <~ o b j e c t s t r : = C O N C A T ( o b j e c t s t r , ' { ' ) ; / / o p e n J S O N s t r i n g w i t h { = I F F o r m a t T H E N >f o b j e c t s t r : = C O N C A T ( o b j e c t s t r , G P L _ J S O N . N E W L I N E ) ; ? E N D _ I F @
E L S E A I F N O T ( V a r i a b l e A r r a y S i z e A N D ( n a m e s [ 1 ] . A r r a y I n d e x > 0 ) A N D ( J S O N V a r s ^ [ j s o n v a r i n d e x ] . V a l u e T y p e = J S O N V A L U E T Y P E . j s o n _ n u l l ) ) T H E N B¨ / / d o n ' t w r i t e t h e v a l u e i f t h e c u r r e n t v a r i a b l e i s a n a r r a y , a n d t h e v a l u e i s n u l l C o b j e c t s t r : = C O N C A T ( o b j e c t s t r , ' , ' ) ; / / c o m m a i n b e t w e e n e a c h v a l u e D` I F F o r m a t A N D ( n a m e s [ 1 ] . A r r a y I n d e x < = 1 ) T H E N E` / / n e w l i n e a f t e r e a c h c o m m a , e x c e p t i n a r r a y s Fj o b j e c t s t r : = C O N C A T ( o b j e c t s t r , G P L _ J S O N . N E W L I N E ) ; G E N D _ I F H E N D _ I F I F O R n a m e s i n d e x : = J S O N V a r s ^ [ j s o n v a r i n d e x ] . P a r e n t V a r - 1 T O 1 B Y - 1 D O Jx / / s t a r t a t t h e s e c o n d h i g h e s t v a r i a b l e l e v e l a n d c o u n t d o w n K / / o p e n n e w o b j e c t s o r a r r a y s , a n d w r i t e a s i n g l e n a m e : v a l u e p a i r a t l e v e l 1 LÔ / / = = = = = = = = = = = = = = = = = = = = = = o p e n n e w o b j e c t s o r a r r a y s , o r c r e a t e n e w n a m e : v a l u e p a i r s = = = = = = = = = = = = = = = = = = = = = = M I F n a m e s [ n a m e s i n d e x ] . N e w A r r a y A N D ( n a m e s [ n a m e s i n d e x ] . A r r a y I n d e x < = 1 ) T H E N N6 / / n e w a r r a y a t t h i s l e v e l OZ C r e a t e N a m e ( N a m e : = n a m e s [ n a m e s i n d e x ] . N a m e ) ; P$ C r e a t e A r r a y ( ) ; Q E N D _ I F Rt I F ( n a m e s i n d e x > 1 ) A N D n a m e s [ n a m e s i n d e x ] . N e w O b j e c t T H E N Sz / / n e w o b j e c t a t t h i s l e v e l , d o n ' t c r e a t e o b j e c t s a t l e v e l 1 TZ I F ( n a m e s [ n a m e s i n d e x ] . A r r a y I n d e x = 0 ) T H E N U~ / / o n l y c r e a t e a n o b j e c t n a m e i f t h i s i s n o t p a r t o f a n a r r a y V\ C r e a t e N a m e ( N a m e : = n a m e s [ n a m e s i n d e x ] . N a m e ) ; W E N D _ I F X& C r e a t e O b j e c t ( ) ; Y Z0 I F ( n a m e s i n d e x = 1 ) T H E N [B / / o n l y w r i t e a v a l u e a t l e v e l 1 \Z I F ( n a m e s [ n a m e s i n d e x ] . A r r a y I n d e x > 0 ) T H E N ]: / / a r r a y , c r e a t e v a l u e o n l y ^ I F N O T ( V a r i a b l e A r r a y S i z e A N D ( n a m e s [ 1 ] . A r r a y I n d e x > 0 ) A N D ( J S O N V a r s ^ [ j s o n v a r i n d e x ] . V a l u e T y p e = J S O N V A L U E T Y P E . j s o n _ n u l l ) ) T H E N _¬ / / d o n ' t w r i t e t h e v a l u e i f t h e c u r r e n t v a r i a b l e i s a n a r r a y , a n d t h e v a l u e i s n u l l `Þ C r e a t e V a l u e ( V a l u e T y p e : = J S O N V a r s ^ [ j s o n v a r i n d e x ] . V a l u e T y p e , V a l u e : = J S O N V a r s ^ [ j s o n v a r i n d e x ] . A s S t r i n g ) ; a E N D _ I F b E L S E c( / / n a m e : v a l u e p a i r dÒ C r e a t e V a l u e ( V a l u e T y p e : = J S O N V a r s ^ [ j s o n v a r i n d e x ] . V a l u e T y p e , V a l u e : = J S O N V a r s ^ [ j s o n v a r i n d e x ] . A s S t r i n g ) ; e| F O R n a m e s i n d e x : = 1 T O J S O N V a r s ^ [ j s o n v a r i n d e x ] . P a r e n t V a r - 1 D O fR / / s t a r t a t t h e l o w e s t l e v e l a n d c o u n t u p g / / c l o s e o b j e c t s o r a r r a y s i f t h i s i s t h e l a s t v a l u e i n t h i s o b j e c t o r a r r a y hJ I F n a m e s [ n a m e s i n d e x ] . E n d O b j e c t T H E N i< / / c l o s e o b j e c t a t t h i s l e v e l j" C l o s e O b j e c t ( ) ; kJ I F n a m e s [ n a m e s i n d e x ] . E n d A r r a y T H E N l: / / c l o s e a r r a y a t t h i s l e v e l m" C l o s e A r r a y ( ) ; n E N D _ F O R o / / c o n c a t e n a t e t h e t e m p o r a r y o b j e c t s t r i n g t o t h e J S O N s t r i n g o u t p u t p S t r C o n c a t A ( q8 p s t F r o m : = A D R ( o b j e c t s t r ) , rX p s t T o : = A D R ( J S O N S t r i n g ^ [ b u f f e r p o s i t i o n ] ) , sX i B u f f e r S i z e : = U D I N T _ T O _ I N T ( J S O N S t r i n g S i z e ) t ) ; u b u f f e r p o s i t i o n : = b u f f e r p o s i t i o n + D I N T _ T O _ U D I N T ( L E N ( o b j e c t s t r ) ) ; vN I F ( j s o n v a r i n d e x > = N u m b e r O f V a r s ) T H E N w8 / / e n d o f v a r s , c l o s e s t r i n g x$ c o m p o s e : = F A L S E ; y B u s y : = F A L S E ; z D o n e : = T R U E ; {F C o m p o s e T i m e : = T I M E ( ) - s t a r t t i m e ; | J S O N S t r i n g ^ [ b u f f e r p o s i t i o n ] : = A S C I I . C L O S E _ B R A C E ; ; / / c l o s e J S O N o b j e c t w i t h } } J S O N S t r i n g ^ [ b u f f e r p o s i t i o n + 1 ] : = A S C I I . N U L L ; / / n u l l c h a r a c t e r t o e n d s t r i n g ~ I F T I M E ( ) > = ( t h i s l o o p s t a r t t i m e + G P L _ J S O N . M A X _ E X E C U T I O N _ T I M E ) T H E N ¬ / / t h i s f u n c t i o n b l o c k w o n ' t t a k e u p m o r e t h a n G P L _ J S O N . M A X _ E X E C U T I O N _ T I M E o n o n e s c a n Ê / / v e r y l o n g s t r i n g s c o u l d t a k e t o o l o n g t o c o m p o s e i n o n e t a s k c y c l e , a n d c a u s e a w a t c h d o g e x c e p t i o n R E T U R N ; D j s o n v a r i n d e x : = j s o n v a r i n d e x + 1 ; E N D _ W H I L E I n t e r f a c e
L{ a 9 e d 5 b 7 e - 7 5 c 5 - 4 6 5 1 - a f 1 6 - d 2 c 2 7 e 9 8 c b 9 4 } :F U N C T I O N _ B L O C K S T R U C T _ T O _ J S O N V A R _ I N P U T E x e c u t e : B O O L ; / / r i s i n g e d g e t r i g g e r s c o m p o s e o f J S O N s t r i n g z A b o r t : B O O L ; / / r i s i n g e d g e s t o p s c o m p o s i n g a J S O N s t r i n g ú { a t t r i b u t e ' d i s p l a y m o d e ' : = ' h e x ' } J S O N S t r i n g : P O I N T E R T O A R R A Y [ 1 . . G P L _ J S O N . M A X _ J S O N _ S T R I N G ] O F B Y T E ; / / p o i n t e r t o J S O N s t r i n g T J S O N S t r i n g S i z e : U D I N T ; / / s i z e o f s t r i n g è J S O N V a r s : P O I N T E R T O A R R A Y [ 1 . . G P L _ J S O N . M A X _ V A R S ] O F J S O N V A R ; / / p o i n t e r t o l o c a l s t r u c t u r e m a d e u p o f t y p e J S O N V A R N u m b e r O f V a r s : U I N T ; / / n u m b e r o f v a r i a b l e s i n t h e l o c a l s t r u c t u r e o r a r r a y Î V a r i a b l e A r r a y S i z e : B O O L ; / / d o n ' t w r i t e a r r a y v a l u e s w h i c h a r e n u l l , r e s u l t i n g i n v a r i a b l e a r r a y s i z e s F o r m a t : B O O L ; / / a d d w h i t e s p a c e a n d i n d e n t i n g t o t h e r e s u l t i n g s t r i n g E N D _ V A R V A R _ O U T P U T T B u s y : B O O L ; / / b u s y c o m p o s i n g a s t r i n g D o n e : B O O L ; / / s u c c e s s f u l l y c o m p o s e d t h e w h o l e s t r i n g w i t h n o e r r o r s f A b o r t e d : B O O L ; / / c o m p o s e a b o r t e d b y A b o r t i n p u t ¢ E r r o r : B O O L ; / / u n e x p e c t e d c h a r a c t e r d e t e c t e d , s t r i n g n o t c o m p l e t e l y c o m p o s e d E r r o r P o s i t i o n : U D I N T ; / / i n d e x o f l o c a l o b j e c t a t w h i c h c o m p o s i n g s t o p p e d t C o m p o s e T i m e : T I M E ; / / t i m e i t t o o k t o c o m p o s e t h e s t r i n g V A R r b u f f e r p o s i t i o n : U D I N T ; / / c u r r e n t p o s i t i o n i n t h e s t r i n g , j s o n v a r i n d e x : U D I N T ; $ c o m p o s e : B O O L ; ~ o b j e c t s t r : S T R I N G ( 2 5 5 ) ; / / s t r i n g c r e a t e d b y c u r r e n t v a r i a b l e Æ n a m e s : A R R A Y [ 1 . . G P L _ J S O N . M A X _ L E V E L S ] O F J S O N V A R N A M E ; / / h e l p e r v a r i a b l e f o r n a m e s a r r a y p r o p e r t y & n a m e s i n d e x : I N T ; i : U I N T ; . E x e c u t e _ T R I G : R _ T R I G ; ¡, A b o r t _ T R I G : R _ T R I G ; ¢t t h i s l o o p s t a r t t i m e : T I M E ; / / t i m e t h e c u r r e n t l o o p s t a r t e d £Z s t a r t t i m e : T I M E ; / / t i m e c o m p o s i n g s t a r t e d ¤"U n i q u e I d G e n e r a t o r ¥1 1 9 3 ¦P O U L e v e l §L{ 8 e 5 7 5 c 5 b - 1 d 3 7 - 4 9 c 6 - 9 4 1 b - 5 c 0 e c 7 8 7 4 7 8 7 } ¨S t a n d a r d © C h i l d O b j e c t G u i d s ª8S y s t e m . C o l l e c t i o n s . A r r a y L i s t «,A d d A t t r i b u t e S u b s e q u e n t ¬b o o l Ð Ð-ÐÐ E
Ð Ð
% ÚÐ-Ð Ð
& ÚÐ-Ð Ð
' ÚÐ-Ð Ð
( ÚÐ-Ð Ð
) ÚÐ-Ð Ð
* ÚÐ-Ð Ð
2 ÚÐ-Ð Ð
Ý ÚÐ-Ð Ð
Þ ÚÐ-Ð Ð
Ø ÚÐ-Ð Ð
Ù ÚÐ-Ð Ð
Ú ÚÐ-Ð Ð
Û ÚÐ-Ð Ð
Ü ÚÐ-Ð Ð
Ý ÚÐ- Ð Ð
Þ ÚÐ- Ð Ð
ß ÚÐ- Ð Ð
á ÚÐ- Ð Ð
â ÚÐ- Ð Ð
ã ÚÐ-!Ð Ð
ä ÚÐ-"Ð Ð
ÚÐ-#Ð Ð
ÚÐ-$Ð Ð
ÚÐ-%Ð Ð
K ÚÐ-&Ð Ð
@ ÚÐ-'Ð Ð
Ø ÚÐ-(Ð Ð
M ÚÐ-)Ð Ð
ÚÐ-*Ð Ð
ÚÐ-+Ð Ð
ÚÐ-,Ð Ð
ÚÐ--Ð Ð
ÚÐ-.Ð Ð
ÚÐ-/Ð Ð
5 ÚÐ-0Ð Ð
í ÚÐ-1Ð Ð
î ÚÐ-Ð Ð
ï ÚÐ-2Ð Ð
ð ÚÐ-3Ð Ð
ñ ÚÐ-4Ð Ð
ò ÚÐ-5Ð Ð
ó ÚÐ-1Ð Ð
3 ÚÐ-Ð Ð
5 ÚÐ-Ð Ð
û ÚÐ-Ð Ð
6 ÚÐ-6Ð Ð
Û ÚÐ-7Ð Ð
æ ÚÐ-8Ð Ð
ö ÚÐ-9Ð Ð
ÚÐ-:Ð Ð
ÚÐ-;Ð Ð
r ÚÐ-<Ð Ð
s ÚÐ-=Ð Ð
t ÚÐ->Ð Ð
ÚÐ-?Ð Ð
ÚÐ-@Ð Ð
© ÚÐ-AÐ Ð
ÚÐ-BÐ Ð
ÚÐ-CÐ Ð
¡ ÚÐ-DÐ Ð
¢ ÚÐ-EÐ Ð
£ ÚÐ-FÐ Ð
ÚÐ-GÐ Ð
k ÚÐ-?Ð Ð
ÚÐ-Ð Ð
4 ÚÐ-HÐ Ð
I ÚÐ-Ð Ð
ÚÐ-IÐ Ð
" ÚÐ-JÐ Ð
L ÚÐ-KÐ Ð
O ÚÐ-LÐ Ð
T ÚÐ-MÐ Ð
] ÚÐ-NÐ Ð
_ ÚÐ-OÐ Ð
V ÚÐ-PÐ Ð
b ÚÐ-QÐ Ð
ÚÐ-Ð Ð
d ÚÐ-RÐ Ð
e ÚÐ-SÐ Ð
g ÚÐ-TÐ Ð
a ÚÐ-UÐ Ð
f ÚÐ-VÐ Ð
` ÚÐ-WÐ Ð
ÚÐ-XÐ Ð
ÚÐ-?Ð Ð
q ÚÐ-YÐ Ð
ä ÚÐ-ZÐ Ð
ÚÐ-[Ð Ð
À ÚÐ-\Ð Ð
ÚÐ-]Ð Ð
¤ ÚÐ-^Ð Ð
¥ ÚÐ-_Ð Ð
¦ ÚÐ-`Ð Ð
Æ ÚÐ-aÐ Ð
Á ÚÐ-bÐ Ð
³ ÚÐ-cÐ Ð
´ ÚÐ-VÐ Ð
± ÚÐ-dÐ Ð
| ÚÐ-WÐ Ð
à ÚÐ-?Ð Ð
E ÚÐ-*Ð Ð
F ÚÐ-:Ð Ð
G ÚÐ-eÐ Ð
H ÚÐ-fÐ Ð
R ÚÐ-gÐ Ð
; ÚÐ-hÐ Ð
< ÚÐ-iÐ Ð
= ÚÐ-jÐ Ð
> ÚÐ-?Ð Ð
? ÚÐ-Ð Ð
@ ÚÐ-kÐ Ð
A ÚÐ-lÐ Ð
B ÚÐ-mÐ Ð
C ÚÐ-QÐ Ð
D ÚÐ-nÐ Ð
¸ ÚÐ-:Ð Ð
¹ ÚÐ-oÐ Ð
º ÚÐ-pÐ Ð
» ÚÐ-qÐ Ð
ÚÐ-rÐ Ð
¼ ÚÐ-sÐ Ð
9 ÚÐ-tÐ Ð
O ÚÐ-:Ð Ð
@ ÚÐ-uÐ Ð
ý ÚÐ-Ð Ð
ÚÐ-vÐ Ð
ÚÐ-wÐ Ð
ÚÐ-xÐ Ð
ÚÐ-yÐ Ð
ÚÐ-zÐ Ð
? ÚÐ-{Ð Ð
ÚÐ-|Ð Ð
ÚÐ-}Ð Ð
ÚÐ-HÐ Ð
þ ÚÐ-:Ð Ð
ÿ ÚÐ-~Ð Ð
ÚÐ-Ð Ð
ÚÐ-Ð Ð
ÚÐ-Ð Ð
ÚÐ-HÐ Ð
ÚÐ-:Ð Ð
ÚÐ-Ð Ð
{ ÚÐ-Ð Ð
ÚÐ-Ð
Ð E
%Ð Ð
Æ ÚÐ-Ð Ð
È ÚÐ-Ð Ð
É ÚÐ-Ð Ð
Ê ÚÐ-Ð Ð
+ ÚÐ-Ð Ð
Ë ÚÐ-Ð Ð
Ì ÚÐ-Ð Ð
ÚÐ-Ð Ð
ù ÚÐ-Ð Ð
Í ÚÐ-Ð Ð
Ç ÚÐ-Ð Ð
ÚÐ-Ð Ð
Î ÚÐ-Ð Ð
Ï ÚÐ-Ð Ð
Ð ÚÐ-Ð Ð
Ñ ÚÐ-Ð Ð
Ò ÚÐ-Ð Ð
< ÚÐ-Ð Ð
Ó ÚÐ-Ð Ð
Õ ÚÐ-Ð Ð
ÚÐ-Ð Ð
ÚÐ-Ð Ð
i ÚÐ-Ð Ð
ÚÐ-Ð Ð
h ÚÐ-Ð Ð
ÚÐ-Ð Ð
ÚÐ-Ð Ð
n ÚÐ-Ð Ð
ÚÐ-Ð Ð
Ö ÚÐ-:Ð Ð
× ÚÐ- Ð Ð
ù ÚÐ-¡Ð Ð
ú ÚÐ-¢Ð Ð
ü ÚÐ-£Ð Ð
n ÚÐ-Ð Ð
ÚÐ-Ð Ð
ÚÐ-Ф-¥Ð¦§-¨©ª Ы¬