int load_data() { int c,r ; char * endp ; MYSQL_ROW row ; MYSQL_FIELD *field ; ST_retcode rc ; ST_double val = 0 ; // Loop over rows/columns of MySQL result set for(r=1;r<=mysql_num_rows(res); r++){ row=mysql_fetch_row(res) ; if(row<0) break ; for(c=1;c<=mysql_num_fields(res);c++){ val = strtod(row[c-1], &endp) ; if (val) { val = strtod(row[c-1], &endp) ; if(rc = SF_vstore(c, r, val)) return(rc) ; } else { if(rc = SF_sstore(c, r, row[c-1])) return(rc) ; } } } return 0 ; }
int WriteOut(gsl_vector * metaResultsVector, ST_long j, gsl_combination * comb) { ST_retcode rc; ST_uint4 i, subsetLength = gsl_combination_k(comb); char digits[52]="abcdefghijklmnopqrstuvwxywABCDEFGHIJKLMNOPQRSTUVWXYZ"; char buf[80] ,temp[80]; if((rc = SF_vstore(3, j, MARES(0)))) return(rc); /* ES_FEM */ if((rc = SF_vstore(4, j, MARES(1)))) return(rc); /* var_FEM */ if((rc = SF_vstore(5, j, MARES(2)))) return(rc); /* ES_REM */ if((rc = SF_vstore(6, j, MARES(3)))) return(rc); /* var_REM */ if((rc = SF_vstore(7, j, MARES(4)))) return(rc); /* df */ if (MARES(4) > 0.0) { if((rc = SF_vstore(8, j, MARES(5)))) return(rc); /* Q */ if((rc = SF_vstore(9, j, MARES(6)))) return(rc); /* I2 */ } else { if((rc = SF_vstore(8, j, SV_missval ))) return(rc); /* Q */ if((rc = SF_vstore(9, j, SV_missval ))) return(rc); /* I2 */ } if((rc = SF_vstore(10, j, MARES(7)))) return(rc); /* tau2 */ if (subsetLength>80) { SF_error("Exceeded 80 characters for subset description"); SF_error("I will not print the string variable coding the subsets"); } else { for(i=0; i<subsetLength; i++) { buf[i]=digits[c(i)]; if (i==subsetLength-1) { buf[i+1]='\0'; } } } if((rc = SF_sstore(11, j, buf))) return(rc); return 0; }