Select Code to Download

int
tdSensor( protocol, protocolLen, model, modelLen, id, dataTypes )
...
    RETVAL
    id
    dataTypes

int
_tdSensor( protocol, protocolLen, model, modelLen, id, dataTypes )
...
    RETVAL
    id
    dataTypes

sub tdSensor {
    my( $protocolLen, $modelLen ) = @_;
...
        for $protocol, $model;
    return( $ret, $protocol, $model, $id, $dataTypes );
}