view release on metacpan or  search on metacpan

fgets.xs  view on Meta::CPAN

PROTOTYPES: ENABLE

void
fgets(fp, count)
    PerlIO *fp
    SSize_t count
  PROTOTYPE:
    *$
  PREINIT:
    dXSTARG;
  PPCODE:
    if (count < 0)
        XSRETURN_UNDEF;

    SvUPGRADE(TARG, SVt_PV);
    SvGROW(TARG, 256);
    SvCUR_set(TARG, 0);

    if (PerlIO_fast_gets(fp)) {

        while (count > 0) {