Может ли кто-нибудь помочь определить язык и описать, что делает этот код?Это немного похоже на АЛГОЛ, но я не уверен, заранее спасибо.
//BEGIN
C_TEXT($1)
C_POINTER($2)
C_TEXT($3)
//
//
C_TEXT($TextToParse_t;$Delimiter_t;$Element_t)
C_LONGINT($To_l;$From_l;$DQ1_i;$DQ2_i)
C_POINTER($PtrToArray_p)
//
If (Count parameters>=3)
$TextToParse_t:=$1
$PtrToArray_p:=$2
$Delimiter_t:=$3
C_LONGINT($i;$Last)
If (Size of array($PtrToArray_p->)>0)
DELETE FROM ARRAY($PtrToArray_p->;1;Size of array($PtrToArray_p->))
End if
If ($TextToParse_t#"")
$From_l:=1
Repeat
$To_l:=Position($Delimiter_t;$TextToParse_t;$From_l)
If ($To_l>0)
$Element_t:=Substring($TextToParse_t;$From_l;$To_l-$From_l)
APPEND TO ARRAY($PtrToArray_p->;$Element_t)
$From_l:=$To_l+Length($Delimiter_t)
End if
Until ($To_l<=0)
$Element_t:=Substring($TextToParse_t;$From_l)
APPEND TO ARRAY($PtrToArray_p->;$Element_t)
End if
Конец, если