Scilab [trunk]: scilab/modules/integer/src/c/genmdsp.c File Reference

#define Abs ( x ) ( ( (x) >= 0) ? (x) : -( x) )

Definition at line 8 of file genmdsp.c.

#define DSP	(	Type,
		Fmt		)

Definition at line 11 of file genmdsp.c.

Referenced by genmdsp().

#define Max	(	x,
		y		)	(((x)>(y))?(x):(y))

Definition at line 9 of file genmdsp.c.

typedef signed char integer1

Definition at line 6 of file genmdsp.c.

typedef short integer2

Definition at line 7 of file genmdsp.c.

int C2F() genmdsp	(	integer *	typ,
		integer *	x,
		integer *	nx,
		integer *	mm,
		integer *	nn,
		integer *	ll,
		integer *	lunit,
		cw	,
		integer*	iw,
		int	cw_len
	)

Definition at line 72 of file genmdsp.c.

References basout(), C2F, DSP, ib, l, lp, m, n, s, typ, and x.

00078 {
00079   static integer k, l, m, n, s, lbloc, nbloc, k1, l1, k2, ib;
00080   static char dl;
00081   static integer fl, io, lp;
00082   extern  int C2F(blktit)(), C2F(basout)();
00083 
00084   switch (*typ) {
00085   case 1:
00086     DSP(integer1,"%*i ");
00087     break;
00088   case 2:
00089     DSP(integer2,"%*i ");
00090     break;
00091   case 4:
00092     DSP(integer,"%*i ");
00093     break;
00094   case 11:
00095     DSP(unsigned char,"%*u ");
00096     break;
00097   case 12:
00098     DSP(unsigned short,"%*u ");
00099     break;
00100   case 14:
00101     DSP(unsigned int,"%*u ");
00102     break;
00103   }
00104   return 0;
00105 }

Here is the call graph for this function:

genmdsp.c File Reference

Defines

Typedefs

Functions

Define Documentation

Typedef Documentation

Function Documentation


Defines
#define	Abs(x) ( ( (x) >= 0) ? (x) : -( x) )
#define	Max(x, y) (((x)>(y))?(x):(y))
#define	DSP(Type, Fmt)
Typedefs
typedef signed char	integer1
typedef short	integer2
Functions
int C2F()	genmdsp (integer typ, integer x, integer nx, integer mm, integer nn, integer ll, integer lunit, cw, integer iw, int cw_len)