Programming languages 检测语言

有人能帮我检测一下语言并描述一下代码的功能吗？这有点像ALGOL，但我不确定，提前谢谢

 //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 

//开始
C_文本（1美元）
C_指针（2美元）
C_文本（3美元）
//
//
C_TEXT（$TextToParse_t；$Delimiter_t；$Element_t）
C_LONGINT（$To_；$From_；$DQ1_i；$DQ2_i）
C_指针（$PtrToArray_p）
//
如果（计数参数>=3）
$TextToParse\u t:=$1
$PtrToArray\u p:=$2
$Delimiter\u t:=$3
C_LONGINT（$i；$Last）
If（数组大小（$PtrToArray_p->）>0）
从阵列中删除（$PtrToArray_p->；1；阵列大小（$PtrToArray_p->））
如果结束
如果（$TextToParse_#t#“”）
$From_l:=1
重复
$To\u l:=位置（$Delimiter\u t；$TextToParse\u t；$From\u l）
如果（$To_l>0）
$Element\u t:=子字符串（$TextToParse\u t；$From\u l；$To\u l-$From\u l）
附加到数组（$PtrToArray_p->；$Element_t）
$From\u l:=$To\u l+长度（$Delimiter\u t）
如果结束
直到（$To_l；$Element_t）
如果结束

---

如果代码来自4D语言，则结束。 所有文档都可以在这里找到