/**************************************************
* 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();
}
}
}
