[r2]: / voljsk-tec2 / Db_Structs / _PathToTokens / svnobj  Maximize  Restore  History

Download this file

29 lines (29 with data), 3.0 kB

Gx_l}!0…jüo¬µŸÔ•©¿eÜFSystem.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
&_PathToTokens := 0;@IF strPath=0 THEN RETURN; END_IF^WHILE curr_char<>0 AND pos_token<count_token DO<   curr_char := strPath^[end];   end:=end+1;(   CASE curr_char OF´       16#00, 16#2E, 16#5B, 16#5D:	//open next token '\0', '.', '[',  close cur token  ']'h           IF (end-begin)>1 THEN  //skip empty tokenÊ               StrCpyA(ADR(tokens[pos_token]), UDINT_TO_DINT(end-begin), strPath+begin); //copy tokenx               pos_token := pos_token + 1;	//shift token pos"           END_IFZ           begin:=end; //set begin token name	END_CASEEND_WHILE6_PathToTokens := pos_token;InterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}FMETHOD PRIVATE _PathToTokens : DINTVAR_INPUT L  tokens          : POINTER TO STRING;!L  strPath         : POINTER TO STRING;"2  count_token     : DINT;#END_VAR$VAR%:  begin,end       : UDINT:=0;&2  pos_token,j	 : DINT:=0;'8  curr_char       : BYTE:=1;(ÐÐÐEÐÐ	
­@ÚÐ-
ÐÐ	
­AÚÐ-ÐÐ	
­BÚÐ-ÐÐ	
­CÚÐ-ÐÐ	
­DÚÐ-ÐÐ	
­EÚÐ-ÐÐ	
­FÚÐ-ÐÐ	
­GÚÐ-ÐÐ	
­HÚÐ-ÐÐ	
­IÚÐ-ÐÐ	
­JÚÐ-ÐÐ	
­KÚÐ-ÐÐ	
­LÚÐ-ÐÐ	
­MÚÐ-ÐÐ	
­ÚÐ-ÐÐEÐÐ	
­5ÚÐ-ÐÐ	
­6ÚÐ-ÐÐ	
­7ÚÐ- ÐÐ	
­8ÚÐ-!ÐÐ	
­9ÚÐ-"ÐÐ	
­:ÚÐ-#ÐÐ	
­;ÚÐ-$ÐÐ	
­<ÚÐ-%ÐÐ	
­=ÚÐ-&ÐÐ	
­>ÚÐ-'ÐÐ	
­?ÚÐ-#ÐÐ	
­ÚÐ-(