ftell_.c from EmStar at Krugle

Show ftell_.c syntax highlighted


#include "f2c.h"
#include "fio.h"

 static FILE *
#ifdef KR_headers
unit_chk(Unit, who) integer Unit; char *who;
#else
unit_chk(integer Unit, char *who)
#endif
{
	if (Unit >= MXUNIT || Unit < 0)
		f__fatal(101, who);
	return f__units[Unit].ufd;
	}

 integer
#ifdef KR_headers
ftell_(Unit) integer *Unit;
#else
ftell_(integer *Unit)
#endif
{
	FILE *f;
	return (f = unit_chk(*Unit, "ftell")) ? ftell(f) : -1L;
	}

 int
#ifdef KR_headers
fseek_(Unit, offset, whence) integer *Unit, *offset, *whence;
#else
fseek_(integer *Unit, integer *offset, integer *whence)
#endif
{
	FILE *f;
	int w = (int)*whence;
#ifdef SEEK_SET
	static int wohin[3] = { SEEK_SET, SEEK_CUR, SEEK_END };
#endif
	if (w < 0 || w > 2)
		w = 0;
#ifdef SEEK_SET
	w = wohin[w];
#endif
	return	!(f = unit_chk(*Unit, "fseek"))
		|| fseek(f, *offset, w) ? 1 : 0;
	}

See more files for this project here

EmStar

EmStar is a software system for developing and deploying wireless sensor networks involving Linux-based platforms. As the wireless sensor network community has attempted to deploy more complex designs---large-scale, long-lived systems that need self-organization and adaptivity---a number of difficult software design issues have arisen. Advances in software design have not kept pace with the capabilities of hardware. This is because designing for an adaptive, efficient, and useful sensor network has turned out to be surprisingly complex and difficult. EmStar is a Linux-based software framework, whose goal is to dramatically reduce this complexity, enabling work to be shared and reused, and simplifying and speeding the design of new sensor network applications.

Project homepage: http://cvs.cens.ucla.edu/emstar/
Programming language(s): C,Shell Script
License: other

  BUILD
  Notice
  README
  abort_.c
  backspac.c
  c_abs.c
  c_cos.c
  c_div.c
  c_exp.c
  c_log.c
  c_sin.c
  c_sqrt.c
  cabs.c
  close.c
  d_abs.c
  d_acos.c
  d_asin.c
  d_atan.c
  d_atn2.c
  d_cnjg.c
  d_cos.c
  d_cosh.c
  d_dim.c
  d_exp.c
  d_imag.c
  d_int.c
  d_lg10.c
  d_log.c
  d_mod.c
  d_nint.c
  d_prod.c
  d_sign.c
  d_sin.c
  d_sinh.c
  d_sqrt.c
  d_tan.c
  d_tanh.c
  derf_.c
  derfc_.c
  dfe.c
  dolio.c
  dtime_.c
  due.c
  ef1asc_.c
  ef1cmc_.c
  endfile.c
  erf_.c
  erfc_.c
  err.c
  etime_.c
  exit_.c
  f2c.h
  f77_aloc.c
  f77vers.c
  f_init.c
  fio.h
  fmt.c
  fmt.h
  fmtlib.c
  fp.h
  ftell_.c
  getarg_.c
  getenv_.c
  h_abs.c
  h_dim.c
  h_dnnt.c
  h_indx.c
  h_len.c
  h_mod.c
  h_nint.c
  h_sign.c
  hl_ge.c
  hl_gt.c
  hl_le.c
  hl_lt.c
  i77vers.c
  i_abs.c
  i_dim.c
  i_dnnt.c
  i_indx.c
  i_len.c
  i_mod.c
  i_nint.c
  i_sign.c
  iargc_.c
  iio.c
  ilnw.c
  inquire.c
  l_ge.c
  l_gt.c
  l_le.c
  l_lt.c
  lbitbits.c
  lbitshft.c
  lio.h
  lread.c
  lwrite.c
  main.c
  open.c
  pow_ci.c
  pow_dd.c
  pow_di.c