test1.pl

来自「ftam等标准协议服务器和客户端的源代码。」· PL 代码 · 共 88 行

( APPL 0x0
    ( APPL 0x1
        ( UNIV VISS 0x4
            "John"
        )
        ( UNIV VISS 0x1
            "P"
        )
        ( UNIV VISS 0x5
            "Smit"
            "h"
        )
    )
    ( CONT 0x0
        ( UNIV VISS 0x8
            "Dire"
            "ctor"
        )
    )
    ( APPL 0x2 0x1
        0x33
    )
    ( CONT 0x1
        ( APPL 0x3 0x8
            0x31393731
            0x30393137
        )
    )
    ( CONT 0x2
        ( APPL 0x1
            ( UNIV VISS 0x4
                "Mary"
            )
            ( UNIV VISS 0x1
                "T"
            )
            ( UNIV VISS 0x5
                "Smit"
                "h"
            )
        )
    )
    ( CONT 0x3
        ( UNIV SET
            ( APPL 0x1
                ( UNIV VISS 0x5
                    "Ralp"
                    "h"
                )
                ( UNIV VISS 0x1
                    "T"
                )
                ( UNIV VISS 0x5
                    "Smit"
                    "h"
                )
            )
            ( CONT 0x0
                ( APPL 0x3 0x8
                    0x31393537
                    0x31313131
                )
            )
        )
        ( UNIV SET
            ( APPL 0x1
                ( UNIV VISS 0x5
                    "Susa"
                    "n"
                )
                ( UNIV VISS 0x1
                    "B"
                )
                ( UNIV VISS 0x5
                    "Jone"
                    "s"
                )
            )
            ( CONT 0x0
                ( APPL 0x3 0x8
                    0x31393539
                    0x30373137
                )
            )
        )
    )
)