Source position: tcl80.pp line 908
function Tcl_Gets(
chan: PTcl_Channel;
dsPtr: PTcl_DString
):Integer;