Scilab [trunk]: scilab/modules/core/includes/stack1.h Source File

00001 #ifndef STACK1_H 
00002 #define STACK1_H 
00003 
00004 #include "Scierror.h"
00005 
00006 typedef  void (*S_fp) __PARAMS((char *,int *));
00007 
00010 extern  int C2F(cvname) __PARAMS((integer *,char *,integer *, unsigned long int));
00011 extern  int C2F(cvstr)  __PARAMS((integer *,integer *,char *,integer *,unsigned long int));
00012 extern int C2F(icopy)  __PARAMS((integer *,integer *,integer *,integer *,integer *));
00013 extern int C2F(dcopy)  __PARAMS((integer *,double *,integer *,double *,integer *));
00014 extern int C2F(unsfdcopy)  __PARAMS((integer *,double *,integer *,double *,integer *));
00015 extern int C2F(rcopy)  __PARAMS((integer *,float *,integer *,float *,integer *));
00016 extern void C2F(cstringf) __PARAMS((char ***,integer *,integer *,integer *,integer *,integer *));
00017 extern int C2F(stringc)  __PARAMS((integer *,char ***,integer *));
00018 extern int C2F(stackg)   __PARAMS((integer *));
00019 
00020 /* calelm */
00021 
00022 extern int C2F(entier)  __PARAMS((integer *n, double *d__, integer *s));
00023 extern int C2F(simple)  __PARAMS((integer *n, double *d__, float *s));
00024 extern int C2F(iset)  __PARAMS((integer *n, integer *dx, integer *dy, integer *incy));
00025 extern int C2F(rea2db)  __PARAMS((integer *n, float *dx, integer *incx, double *dy, integer *incy));
00026 extern int C2F(int2db)  __PARAMS((integer *n, integer *dx, integer *incx, double *dy, integer *incy));
00027 
00028 /* stack0.c */
00029 
00030 extern int C2F(stacki2d)  __PARAMS((integer *n, integer *il1, integer *dl1));
00031 extern int C2F(stackr2d)  __PARAMS((integer *n, integer *sl1, integer *dl1));
00032 extern int C2F(stackc2i)  __PARAMS((integer *n, integer *sl1, integer *il1));
00033 
00034 /* cvstr */
00035 
00036 extern int C2F(cvstr)  __PARAMS((integer *n, integer *line, char *str, integer *job, unsigned long str_len));
00037 extern int C2F(cvstr1)  __PARAMS((integer *n, integer *line, char *str, integer *job, unsigned long str_len));
00038 extern int C2F(codetoascii)  __PARAMS((integer *n, integer *line, char *str, unsigned long str_len));
00039 extern int C2F(asciitocode)  __PARAMS((integer *n, integer *line, char *str, integer *flag__, unsigned long str_len));
00040 extern integer C2F(getcode)  __PARAMS((unsigned char *mc, unsigned long mc_len));
00041 
00042 /* stack1.c */
00043 
00044 int C2F(getwsmat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *ilr, integer *ilrd, unsigned long fname_len));
00045 int C2F(getlistwsmat)  __PARAMS((char *fname, integer *topk, integer *spos,integer*lnum, integer *m, integer *n, integer *ilr, integer *ilrd, unsigned long fname_len));
00046 
00047 char * get_fname __PARAMS(( char *fname,   unsigned long fname_len));
00048 int cre_smat_from_str __PARAMS((char *fname,  integer *lw, integer * m, integer * n, char **Str,    unsigned long fname_len));
00049 
00050 int C2F(getlistmat)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len));
00051 int C2F(getmat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len));
00052 
00053 int C2F(getmati)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lw, integer *it, integer *m, integer *n, integer *lr, integer *lc, int *inlist__, integer *nel, unsigned long fname_len));
00054 int C2F(listcremat)  __PARAMS((char *fname, integer *lw, integer *numi, integer *stlw, integer *it, integer *m, integer *n, integer *lrs, integer *lcs, unsigned long fname_len));
00055 int C2F(cremat)  __PARAMS((char *fname, integer *lw, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len));
00056 int C2F(crematvar)  __PARAMS((integer *id, integer *lw, integer *it, integer *m, integer *n, double *rtab, double *itab));
00057 int C2F(crebmatvar) __PARAMS((integer *id, integer *lw, integer *m, integer *n, integer *val));
00058 int C2F(cresmatvar) __PARAMS((integer *id, integer *lw, char *str, integer *lstr, unsigned long str_len));
00059 int C2F(fakecremat)  __PARAMS((integer *lw, integer *it, integer *m, integer *n, integer *lr, integer *lc));
00060 int C2F(cremati)  __PARAMS((char *fname, integer *stlw, integer *it, integer *m, integer *n, integer *lr, integer *lc, int *flag__, unsigned long fname_len));
00061 int C2F(getlistbmat)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *m, integer *n, integer *lr, unsigned long fname_len));
00062 int C2F(getbmat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len));
00063 int C2F(getbmati)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lw, integer *m, integer *n, integer *lr, int *inlist__, integer *nel, unsigned long fname_len));
00064 int C2F(listcrebmat)  __PARAMS((char *fname, integer *lw, integer *numi, integer *stlw, integer *m, integer *n, integer *lrs, unsigned long fname_len));
00065 int C2F(crebmat)  __PARAMS((char *fname, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len));
00066 int C2F(fakecrebmat)  __PARAMS(( integer *lw, integer *m, integer *n, integer *lr));
00067 int C2F(crebmati)  __PARAMS((char *fname, integer *stlw, integer *m, integer *n, integer *lr, int *flag__, unsigned long fname_len));
00068 int C2F(getsparse)  __PARAMS((char *fname, integer *topk, integer *lw, integer *it, integer *m, integer *n, integer *nel, integer *mnel, integer *icol, integer *lr, integer *lc, unsigned long fname_len));
00069 int C2F(getlistsparse)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *it, integer *m, integer *n, integer *nel, integer *mnel, integer *icol, integer *lr, integer *lc, unsigned long fname_len));
00070 int C2F(getsparsei)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lw, integer *it, integer *m, integer *n, integer *nel, integer *mnel, integer *icol, integer *lr, integer *lc, int *inlist__, integer *nellist, unsigned long fname_len));
00071 int C2F(listcresparse)  __PARAMS((char *fname, integer *lw, integer *numi, integer *stlw, integer *it, integer *m, integer *n, integer *nel, integer *mnel, integer *icol, integer *lrs, integer *lcs, unsigned long fname_len));
00072 int C2F(cresparse)  __PARAMS((char *fname, integer *lw, integer *it, integer *m, integer *n, integer *nel, integer *mnel, integer *icol, integer *lr, integer *lc, unsigned long fname_len));
00073 int C2F(cresparsei)  __PARAMS((char *fname, integer *stlw, integer *it, integer *m, integer *n, integer *nel, integer *mnel, integer *icol, integer *lr, integer *lc, unsigned long fname_len));
00074 int C2F(getlistvect)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len));
00075 int C2F(getvect)  __PARAMS((char *fname, integer *topk, integer *lw, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len));
00076 int C2F(getrmat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len));
00077 int C2F(getcmat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len));
00078 int C2F(getrvect)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len));
00079 int C2F(getscalar)  __PARAMS((char *fname, integer *topk, integer *lw, integer *lr, unsigned long fname_len));
00080 int C2F(matsize)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, unsigned long fname_len));
00081 int C2F(vectsize)  __PARAMS((char *fname, integer *topk, integer *lw, integer *n, unsigned long fname_len));
00082 int C2F(matbsize)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, unsigned long fname_len));
00083 int C2F(getsmat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *i__, integer *j, integer *lr, integer *nlr, unsigned long fname_len));
00084 int C2F(getsimat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *i__, integer *j, integer *lr, integer *nlr, unsigned long fname_len));
00085 int C2F(listcresmat)  __PARAMS((char *fname, integer *lw, integer *numi, integer *stlw, integer *m, integer *n, integer *nchar, integer *job, integer *ilrs, unsigned long fname_len));
00086 int C2F(cresmat)  __PARAMS((char *fname, integer *lw, integer *m, integer *n, integer *nchar, unsigned long fname_len));
00087 int C2F(cresmati)  __PARAMS((char *fname, integer *stlw, integer *m, integer *n, integer *nchar, integer *job, integer *lr, integer *sz, unsigned long fname_len));
00088 int C2F(cresmat1)  __PARAMS((char *fname, integer *lw, integer *m, integer *nchar, unsigned long fname_len));
00089 int C2F(cresmat3)  __PARAMS((char *fname, integer *lw, integer *m, integer *n, integer *nchar, char *buffer, unsigned long fname_len, unsigned long buffer_len));
00090 int C2F(cresmat2)  __PARAMS((char *fname, integer *lw, integer *nchar, integer *lr, unsigned long fname_len));
00091 int C2F(smatj)  __PARAMS((char *fname, integer *lw, integer *j, unsigned long fname_len));
00092 int C2F(lmatj)  __PARAMS((char *fname, integer *lw, integer *j, unsigned long fname_len));
00093 int C2F(pmatj)  __PARAMS((char *fname, integer *lw, integer *j, unsigned long fname_len));
00094 int C2F(copysmat)  __PARAMS((char *fname, integer *flw, integer *tlw, unsigned long fname_len));
00095 int C2F(setsimat)  __PARAMS((char *fname, integer *lw, integer *i__, integer *j, integer *nlr, unsigned long fname_len));
00096 int C2F(realmat)  __PARAMS((void));
00097 int C2F(crewmat)  __PARAMS((char *fname, integer *lw, integer *m, integer *lr, unsigned long fname_len));
00098 int C2F(copyobj)  __PARAMS((char *fname, integer *lw, integer *lwd, unsigned long fname_len));
00099 int C2F(vcopyobj)  __PARAMS((char *fname, integer *lw, integer *lwd, unsigned long fname_len));
00100 int C2F(swapmat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *it1, integer *m1, integer *n1, integer *mn1, integer *it2, integer *m2, integer *n2, integer *mn2, unsigned long fname_len));
00101 int C2F(insmat)  __PARAMS((integer *topk, integer *lw, integer *it, integer *m, integer *n, integer *lr, integer *lc, integer *lr1, integer *lc1));
00102 extern integer C2F(gettype)  __PARAMS((integer *lw));
00103 extern integer C2F(ogettype)  __PARAMS((integer *lw));
00104 int C2F(stackinfo)  __PARAMS((integer *lw, integer *typ));
00105 int C2F(allmat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, unsigned long fname_len));
00106 int C2F(allmatset)  __PARAMS((char *fname, integer *lw, integer *m, integer *n, unsigned long fname_len));
00107 int C2F(getilist)  __PARAMS((char *fname, integer *topk, integer *lw, integer *n, integer *i__, integer *ili, unsigned long fname_len));
00108 int C2F(objvide)  __PARAMS((char *fname, integer *lw, unsigned long fname_len));
00109 int C2F(getexternal)  __PARAMS((char *fname, integer *topk, integer *lw, char *name__, int *type__, S_fp setfun, unsigned long fname_len, unsigned long name_len));
00110 int C2F(getpoly)  __PARAMS((char *fname, integer *topk, integer *lw, integer *it, integer *m, integer *n, char *name__, integer *namel, integer *ilp, integer *lr, integer *lc, unsigned long fname_len, unsigned long name_len));
00111 int C2F(crewimat)  __PARAMS((char *fname, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len));
00112 int C2F(getwimat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len));
00113 int C2F(checkval)  __PARAMS((char *fname, integer *ival1, integer *ival2, unsigned long fname_len));
00114 int C2F(optvarget)  __PARAMS((char *fname, integer *topk, integer *iel, char *name__, unsigned long fname_len, unsigned long name_len));
00115 int C2F(bufstore)  __PARAMS((char *fname, integer *lbuf, integer *lbufi, integer *lbuff, integer *lr, integer *nlr, unsigned long fname_len));
00116 int C2F(crestringv)  __PARAMS((char *fname, integer *spos, integer *ilorig, integer *lw, unsigned long fname_len));
00117 
00118 int C2F(crepointer)  __PARAMS((char *fname, integer *spos, integer *lw, unsigned long fname_len));
00119 int C2F(listcrepointer)  __PARAMS((char *fname, integer *lw, integer *numi, integer *stlw,  integer *lrs,  unsigned long fname_len));
00120 int C2F(crepointeri)  __PARAMS((char *fname, integer *stlw, 
00121                                       integer *lr, int *flag__, 
00122                                       unsigned long fname_len));
00123 
00124 
00125 int C2F(lcrestringmatfromc)  __PARAMS((char *fname, integer *spos, integer *numi, integer *stlw, integer *lorig, integer *m, integer *n, unsigned long fname_len));
00126 int C2F(crestringmatfromc)  __PARAMS((char *fname, integer *spos, integer *lorig, integer *m, integer *n, unsigned long fname_len));
00127 int C2F(crelist)  __PARAMS((integer *slw, integer *ilen, integer *lw));
00128 int C2F(cretlist)  __PARAMS((integer *slw, integer *ilen, integer *lw));
00129 int C2F(cremlist)  __PARAMS((integer *slw, integer *ilen, integer *lw));
00130 int C2F(getlistvectrow)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len));
00131 int C2F(getvectrow)  __PARAMS((char *fname, integer *topk, integer *spos, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len));
00132 int C2F(getlistvectcol)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len));
00133 int C2F(getvectcol)  __PARAMS((char *fname, integer *topk, integer *spos, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len));
00134 int C2F(getlistscalar)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *lr, unsigned long fname_len));
00135 int C2F(listcrestring)  __PARAMS((char *fname, integer *lw, integer *numi, integer *stlw, integer *nch, integer *ilrs, unsigned long fname_len));
00136 int C2F(crestring)  __PARAMS((char *fname, integer *spos, integer *nchar, integer *ilrs, unsigned long fname_len));
00137 int C2F(crestringi)  __PARAMS((char *fname, integer *stlw, integer *nchar, integer *ilrs, unsigned long fname_len));
00138 int C2F(getlistsimat)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *m, integer *n, integer *i__, integer *j, integer *lr, integer *nlr, unsigned long fname_len));
00139 int C2F(getsmati)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lw, integer *m, integer *n, integer *i__, integer *j, integer *lr, integer *nlr, int *inlist__, integer *nel, unsigned long fname_len));
00140 
00141 int C2F(getsimati)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lw, integer *m, integer *n, integer *i, integer *j, integer *lr, integer *nlr,integer *inlist,integer *nel, unsigned long fname_len));
00142 int C2F(getonepoly)  __PARAMS((char *fname, integer *topk, integer *lw, integer *it, integer *md, char *name__, integer *namel, integer *lr, integer *lc, unsigned long fname_len, unsigned long name_len));
00143 
00144 int C2F(getlistpointer)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *lr, unsigned long fname_len));
00145  int C2F(getpointer)  __PARAMS((char *fname, integer *topk, integer *lw, integer *lr, unsigned long fname_len));
00146 int C2F(getpointeri)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lw, integer *lr, 
00147                                       int *inlist__, integer *nel, unsigned long fname_len));
00148 
00149 
00150 
00151 int C2F(mspcreate)  __PARAMS((integer *lw, integer *m, integer *n, integer *nzmax, integer *it));
00152 int C2F(cresmat4)  __PARAMS((char *fname, integer *lw, integer *m, integer *nchar, integer *lr, unsigned long fname_len));
00153 int C2F(credata) __PARAMS((char *fname, integer *lw, integer m, unsigned long fname_len));
00154 
00155 int cre_smat_from_str  __PARAMS((char *fname, integer *lw, integer *m, integer *n, char **Str, long unsigned int fname_len));
00156 int cre_listsmat_from_str  __PARAMS((char *fname, integer *lw, integer *numi, integer *stlw, integer *m, integer *n, char **Str, long unsigned int fname_len));
00157 
00158 int cre_sparse_from_ptr __PARAMS((char *fname,integer * lw,integer *m, integer *n,SciSparse *Str, unsigned long fname_len ));
00159 
00160 int cre_listsparse_from_ptr  __PARAMS((char *fname,integer * lw,integer * numi,integer * stlw,integer *  m,integer * n,
00161                                       SciSparse *M, unsigned long fname_len ));
00162 
00163 
00164 
00165 /**********************************************************************
00166  * INT MATRICES 
00167  **********************************************************************/
00168 int C2F(getlistimat) __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *it, integer *m, integer *n, integer *lr, long unsigned int fname_len));
00169 
00170 int C2F(getimat) __PARAMS((char *fname, integer *topk, integer *lw, integer *it, integer *m, integer *n, integer *lr, long unsigned int fname_len));
00171 
00172 int C2F(getimati) __PARAMS((char *fname, integer *topk, integer *spos, integer *lw, integer *it, integer *m, integer *n, integer *lr, int *inlistx, integer *nel, long unsigned int fname_len));
00173 
00174 int C2F(listcreimat) __PARAMS((char *fname, integer *lw, integer *numi, integer *stlw, integer *it, integer *m, integer *n, integer *lrs, long unsigned int fname_len));
00175 
00176 int C2F(creimat) __PARAMS((char *fname, integer *lw, integer *it, integer *m, integer *n, integer *lr, long unsigned int fname_len));
00177 
00178 int C2F(creimati) __PARAMS((char *fname, integer *stlw, integer *it, integer *m, integer *n, integer *lr, int *flagx, long unsigned int fname_len));
00179 
00180 /**********************************************************************
00181  * HANDLE MATRICES 
00182  **********************************************************************/
00183 int C2F(getlisthmat)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *m, integer *n, integer *lr, unsigned long fname_len));
00184 int C2F(gethmat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len));
00185 int C2F(gethmati)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lw, integer *m, integer *n, integer *lr, int *inlist__, integer *nel, unsigned long fname_len));
00186 
00187 
00188 int C2F(listcrehmat)  __PARAMS((char *fname, integer *lw, integer *numi, integer *stlw, integer *m, integer *n, integer *lrs, unsigned long fname_len));
00189 int C2F(crehmat)  __PARAMS((char *fname, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len));
00190 int C2F(crehmati)  __PARAMS((char *fname, integer *stlw, integer *m, integer *n, integer *lr, int *flag__, unsigned long fname_len));
00191 #endif