crestrc.c File Reference

#include <stdlib.h>
#include "machine.h"
#include <string.h>
#include <stdio.h>
#include "stack-c.h"
#include "sciprint.h"

Include dependency graph for crestrc.c:

Go to the source code of this file.

Defines
#define	MYSTR   "Scilab is ..."
Functions
int	dblearrayc (double **a, int *m, int *n, int *ierr)
int	intarrayc (int **a, int *m, int *n, int *ierr)
int	crestrc (char **a, int *m, int *ierr)

---

Define Documentation

#define MYSTR   "Scilab is ..."

Definition at line 62 of file crestrc.c.

Referenced by crestr(), and crestrc().

---

Function Documentation

int crestrc	(	char **	a,
		int *	m,
		int*	ierr
	)

Definition at line 64 of file crestrc.c.

References malloc(), MYSTR, and sciprint().

Referenced by intex5c(), and intex6c().

{
  *m= strlen(MYSTR);
  *a= (char *) malloc((unsigned) (*m+1)*sizeof(char));
  if ( *a != (char *) 0) 
    {
      *ierr=0;
      sprintf((*a),MYSTR);
    }
  else
    {
      *ierr=1;
      sciprint("malloc : No more space \r\n");
    }
  return(0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

int dblearrayc	(	double **	a,
		int *	m,
		int *	n,
		int*	ierr
	)

Definition at line 16 of file crestrc.c.

References i, and malloc().

Referenced by intex6c().

{
  int i ;
  *n=5 ;
  *m=3 ;
  *a= ( double *) malloc( (unsigned) (*m)*(*n) *sizeof(double));
  if ( *a != (double *) 0)   
    {
      *ierr=0;
      for ( i= 0 ; i < (*m)*(*n) ; i++) (*a)[i] = i+1;
    }
  else 
    *ierr=1;
  return(0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

int intarrayc	(	int **	a,
		int *	m,
		int *	n,
		int*	ierr
	)

Definition at line 37 of file crestrc.c.

References i, and malloc().

Referenced by intex6c().

{
  int i ;
  *n=5 ;
  *m=3 ;
  *a= ( int *) malloc( (unsigned) (*m)*(*n) *sizeof(int));
  if ( *a != (int *) 0)   
    {
      *ierr=0;
      for ( i= 0 ; i < (*m)*(*n) ; i++) (*a)[i] = i+1;
    }
  else 
      *ierr=1;
  return(0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

---