/************************************************** * snns_saveNewPatterns * * Saves patterns from a file using * krui_saveNewPatterns(). **************************************************/ int snns_saveNewPatterns(stEval *args, stEval *result, void *instance) { char *filename = STSTRING(&args[0]); int set_no = STINT(&args[1]); krui_err errCode; char *errMsg; errCode = krui_saveNewPatterns(filename, set_no); if (errCode == KRERR_NO_ERROR) { return EC_OK; } else { errMsg = krui_error(errCode); slMessage(0, "breveSNNS: saveNewPatterns failed with message %s (error code %d).", errMsg, errCode); return EC_ERROR; } }
void create_patterns(char *pattern_file,int no_of_exemplars) { FILE *fp; float val; int setNo; if (!strlen(pattern_file) || !no_of_exemplars) return; /* shortcut of no patterns */ /* create patterns with datas from pattern_file */ if((fp=fopen(pattern_file,"r"))!=NULL){ ret = krui_allocNewPatternSet(&setNo); errChk( ret ); for (j = 1; j <= no_of_exemplars; j++){ for (i = 1; i <= IUnits; i++){ ret = krui_setCurrentUnit(i); errChk( ret ); fscanf(fp,"%s",string); val=atof(string); krui_setUnitActivation(i,val); } ret = krui_newPattern(); errChk( ret ); } } else { printf("\n Pattern file %s could not be opened!\n",pattern_file); exit(1); } fclose(fp); printf("\nFilename of patterns to save: "); scanf("%s", name); strcat(name,".pat"); printf("Save Patterns\n"); /* save the patterns */ ret = krui_saveNewPatterns( name, setNo ); errChk( ret ); } /* end of create_patterns */
void ui_file_savePatterns (Widget w, XtPointer button, caddr_t call_data) { char string[80+MAX_NAME_LENGTH+MAX_NAME_LENGTH]; char filename[4+MAX_NAME_LENGTH+MAX_NAME_LENGTH]; Bool performSave = TRUE; if (strlen(ui_filenamePAT) == 0) { ui_confirmOk("No file specified!"); return; } if (ui_filenamePAT[0] == '/') sprintf(filename, "%s%s", ui_filenamePAT, ui_getExtension(UI_FILE_PAT)); else sprintf(filename, "%s/%s%s", ui_pathname, ui_filenamePAT, ui_getExtension(UI_FILE_PAT)); if (ui_fileExist(filename, 0)) { sprintf(string,"%s already exist! Overwrite?", ui_filenamePAT); performSave = ui_confirmYes(string); } if (performSave) { ui_printMessage("Saving patterns ..."); ui_checkError(krui_saveNewPatterns(filename,CURR_PATTERN_SET)); if (ui_kernelError < 0) ui_confirmOk("Error during saving patterns!"); else { sprintf(string, "Patterns saved to file:\n %s\n", filename); ui_tw_printMessage(string); strcpy(ui_filenameSLPAT, ui_filenamePAT); ui_file_updateShellLabels(); } } }