Esempi in C++ (Cpp) per G77_fnum_0

Esempio n. 1

File: isatty_.c Progetto: VargMon/dd-wrt

logical
G77_isatty_0 (integer * lunit)
{
  if (*lunit >= MXUNIT || *lunit < 0)
    err (1, 101, "isatty");
  /* f__units is a table of descriptions for the unit numbers (defined
     in io.h) with file descriptors rather than streams */
  return (isatty (G77_fnum_0 (lunit)) ? TRUE_ : FALSE_);
}

Esempio n. 2

File: f2cext.c Progetto: akbertram/egcs-jvm

integer fnum_ (integer *lunit) {
    extern integer G77_fnum_0 (integer *lunit);
    return G77_fnum_0 (lunit);
}