view release on metacpan or  search on metacpan

matlab.pd  view on Meta::CPAN

 if (header_flag)
     RETVAL = Mat_CreateVer(matname, hdr_str, mat_file_ver);
 else RETVAL = Mat_CreateVer(matname, (void *) NULL, mat_file_ver);
 OUTPUT:
 RETVAL

");

pp_addxs ( '',  "

int
_mat_get_version(matfp)
 mat_t * matfp
 CODE:
 enum mat_ft mat_file_ver;
 int retval;
 mat_file_ver = Mat_GetVersion(matfp);
 /* fprintf(stderr, \"in C vers %d\", mat_file_ver); */
 /* This could be done much more easily ! */
 switch (mat_file_ver)
    {
     case MAT_FT_MAT73:
              {
                retval= $MAT_FT_MAT73;
                break;
              }
     case MAT_FT_MAT5:
              {
                retval= $MAT_FT_MAT5;
                break;
              }
     case MAT_FT_MAT4:
              {
                retval= $MAT_FT_MAT4;
                break;
              }
     default:
          {
        barf(\"PDL::IO::Matlab::get_version returned unknown version.\");
         }
     }
  RETVAL = retval;
  OUTPUT:
  RETVAL
");

pp_addxs( '', '

void
_read_data_all (mat, matvar)
mat_t * mat
matvar_t * matvar
CODE:
Mat_VarReadDataAll(mat,matvar);

void
get_library_version()
  INIT:
  int major,minor,release;

  PPCODE:
  Mat_GetLibraryVersion(&major, &minor, &release);
  XPUSHs(sv_2mortal(newSVnv(major)));
  XPUSHs(sv_2mortal(newSVnv(minor)));
  XPUSHs(sv_2mortal(newSVnv(release)));

int
_mat_rewind(mat)
mat_t * mat
CODE:
RETVAL = Mat_Rewind(mat);
if (RETVAL == -1) barf("PDL::IO::Matlab::rewind Bad filehandle");
OUTPUT:
RETVAL

char *
_mat_get_header(mat)
mat_t * mat
CODE:
RETVAL = (char *)Mat_GetHeader(mat);
OUTPUT:
RETVAL

char *
_mat_get_filename(mat)
mat_t * mat
CODE:
RETVAL = (char *)Mat_GetFilename(mat);
OUTPUT:
RETVAL

');

=for comment

int
_my_mat_feof(mat)
mat_t * mat
CODE:
RETVAL = feof(mat->fp);
OUTPUT:
RETVAL

=cut


pp_addxs ( '',  '

void
_extra_matio_print_all_var_info (matfp,printdata)
mat_t * matfp
int printdata
CODE:
extra_matio_print_all_var_info(matfp,printdata);

void
_convert_next_matvar_to_pdl(matfp,onedr)
mat_t * matfp
int onedr
PPCODE:
pdl * retpdl;
matvar_t * matvar;
retpdl = convert_next_matvar_to_pdl(matfp, &matvar, onedr);
SV * s = sv_newmortal();
SV * p = sv_newmortal();
if (retpdl != NULL) PDL->SetSV_PDL(p,retpdl);
if (matvar != NULL) {
  sv_setpv(s, matvar->name);
  Mat_VarFree(matvar);
}
XPUSHs(p);
XPUSHs(s);

int
_write_pdl_to_matlab_file (mat, piddle, varname, oned, compress)
mat_t * mat
pdl * piddle
char * varname
int oned
int compress
CODE:
RETVAL = write_pdl_to_matlab_file (mat, piddle, varname, oned, compress);
OUTPUT:
RETVAL


');

pp_done();


1;

#  LocalWords:  setversion Matio src Enums enum fh matio EO
#  LocalWords:  addpm TOPMATTER Matlab pdls OO multi PDL qw
#  LocalWords:  matlab pdl dat Inv filename wantarray rw eq
#  LocalWords:  iopts undef wvarname wvarnum elsif ver cpan
#  LocalWords:  matvar varname foreach printdata Lapeyre qq
#  LocalWords:  jlapeyre Hulbert addhdr stdlib addxs RETVAL
#  LocalWords:  ACC RDONLY RDWR matname hdr str CreateVer
#  LocalWords:  matfp retval GetVersion fprintf stderr vers
#  LocalWords:  VarReadDataAll INIT PPCODE XPUSHs sv feof
#  LocalWords:  GetLibraryVersion newSVnv filehandle fp EOF
#  LocalWords:  newmortal SetSV namekey varbasew exobj todo
#  LocalWords:  hardcoded retpdl setpv VarFree disa