         Edinburgh IMP77 Compiler - Version 8.4

    1  %recordformat sockaddr(%integer whatever)
    2  
    3  %externalroutine connect(%integer sockfd, %record (sockaddr) %name addr, %integer addlen)
    4     %systemroutinespec connect(%integer sockfd, %record (sockaddr) %name addr, %integer addlen)
    5     connect(sockfd, addr, addlen)
    6  %end
    7  
    8  %begin
    9    ! call connect?
   10  %end
   11  
   12  %endoffile

    8 Statements compiled
