[r2]: / trunk / Functions / JSON_TO_STRUCT / Name / svnobj  Maximize  Restore  History

Download this file

42 lines (42 with data), 3.6 kB

Gx_lß
!0…jüo
ÀåEý±jÓC´System.StringL{f8a58466-d7f6-439f-bbb8-d4600e41d099}ImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocumentL{f3878285-8e4f-490b-bb1b-9acbb7eb04db}TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}	Id
longTagText
Ò(*=======================================================================================================Name()pfound the first quote at the beginning of a name string,vextract the name string and put it into the NameValue arrayÔ========================================================================================================*)@name_start:= bufferposition + 1;xFOR j:= name_start TO (name_start+GPL_JSON.MAX_NAME_SIZE) DOB	IF (JSONString^[j] = 16#22) THENT	//find the closing quote of a name stringv		name_stop:= j - 1;		//name ends at character before quote~		bufferposition:= j + 1;	//next loop can start after the quote,		namestringok:= TRUE;		EXIT;	END_IFEND_FOR(IF namestringok THEN	SysMemSet(T		pDest:= ADR(NameValue[obj_level].Name),   		udiValue:= 0, !\		udiCount:= SIZEOF(NameValue[obj_level].Name)"	);#	$	SysMemCpy(%N		pSrc:= ADR(JSONString^[name_start]), &N		udiCount:= (name_stop+1 - name_start)'ELSE( 	ErrorHandler();)END_IF*Interface+L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94},METHOD Name-VAR.*	namestringok:		BOOL;/	j:					UDINT;0END_VARÐÐÐE ÐÐ	
­'ÚÐ-
ÐÐ	
­(ÚÐ-ÐÐ	
­.ÚÐ-ÐÐ	
­-ÚÐ-ÐÐ	
­+ÚÐ-ÐÐ	
­&ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­	ÚÐ-ÐÐ	
­
ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­3ÚÐ-ÐÐ	
­
ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­/ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­6ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ- ÐÐ	
­ÚÐ-!ÐÐ	
­ ÚÐ-"ÐÐ	
­!ÚÐ-#ÐÐ	
­"ÚÐ-$ÐÐ	
­#ÚÐ-ÐÐ	
­$ÚÐ-%ÐÐ	
­%ÚÐ-&ÐÐ	
­7ÚÐ-"ÐÐ	
­8ÚÐ-'ÐÐ	
­9ÚÐ-(ÐÐ	
­ÚÐ-)Ð*+ÐEÐÐ	
­ÚÐ-,ÐÐ	
­4ÚÐ--ÐÐ	
­:ÚÐ-.ÐÐ	
­5ÚÐ-/ÐÐ	
­ÚÐ-0ÐÐ	
­ÚÐ-