/*************************************************************************** sfx_save.cfsml Copyright (C) 1999 Christoph Reichenbach, TU Darmstadt This program may be modified and copied freely according to the terms of the GNU general public license (GPL), as long as the above copyright notice and the licensing information contained herein are preserved. Please refer to www.gnu.org for licensing details. This work is provided AS IS, without warranty of any kind, expressed or implied, including but not limited to the warranties of merchantibility, noninfringement, and fitness for a specific purpose. The author will not be held liable for any damage caused by this work or derivatives of it. By using this source code, you agree to the licensing terms as stated above. Please contact the maintainer for bug reports or inquiries. Current Maintainer: Christoph Reichenbach (CJR) [jameson@linuxgames.com] ***************************************************************************/ /* CFSML file providing persistance to the sound system ** Note that this is only useful if the default sound library implementation ** is in use. */ #include #include #include #include #ifdef _WIN32 #include #define chdir _chdir #define getcwd _getcwd #endif #ifdef _DREAMCAST #include #endif #ifndef O_BINARY #define O_BINARY 0 #endif /* !O_BINARY */ #define SOUND_SAVEGAME_VERSION 2; typedef struct { int sound_version; int number_of_songs; song_t *songs; /* All songs in order */ int active_song; SOUND_SERVER_STATE_SAVED_MEMBERS /* Defined in sound_server_state_t */ } sound_lib_file_ver2_t; typedef struct { int sound_version; int songs_nr; /* Number of songs */ song_t *songs; /* All songs in order */ int active_song; int master_volume; /* duh.. */ int soundcue; /* Cumulative sound cue */ long usecs_to_sleep; /* Microseconds until the next tick is due */ long ticks_to_wait; /* Ticks until the next sound command has to be interpreted */ long ticks_to_fade; /* Ticks until a fade-out is complete */ } sound_lib_file_ver1_t; /* Auto-generated CFSML declaration and function block */ #line 796 "sfx_save.cfsml" #define CFSML_SUCCESS 0 #define CFSML_FAILURE 1 #line 102 "sfx_save.cfsml" #include /* We need va_lists */ #include #ifdef CFSML_DEBUG_MALLOC /* #define free(p) dbg_sci_free(p) #define malloc(s) dbg_sci_malloc(s) #define calloc(n, s) dbg_sci_calloc(n, s) #define realloc(p, s) dbg_sci_realloc(p, s) */ #define free dbg_sci_free #define malloc dbg_sci_malloc #define calloc dbg_sci_calloc #define realloc dbg_sci_realloc #endif static void _cfsml_error(char *fmt, ...) { va_list argp; fprintf(stderr, "Error: "); va_start(argp, fmt); vfprintf(stderr, fmt, argp); va_end(argp); } static struct _cfsml_pointer_refstruct { struct _cfsml_pointer_refstruct *next; void *ptr; } *_cfsml_pointer_references = NULL; static struct _cfsml_pointer_refstruct **_cfsml_pointer_references_current = &_cfsml_pointer_references; static char *_cfsml_last_value_retreived = NULL; static char *_cfsml_last_identifier_retreived = NULL; static void _cfsml_free_pointer_references_recursively(struct _cfsml_pointer_refstruct *refs, int free_pointers) { if (!refs) return; #ifdef CFSML_DEBUG_MALLOC SCI_MEMTEST; #endif _cfsml_free_pointer_references_recursively(refs->next, free_pointers); #ifdef CFSML_DEBUG_MALLOC SCI_MEMTEST; fprintf(stderr,"Freeing ptrref %p [%p] %s\n", refs->ptr, refs, free_pointers? "ALL": "cleanup only"); #endif if (free_pointers) free(refs->ptr); #ifdef CFSML_DEBUG_MALLOC SCI_MEMTEST; #endif free(refs); #ifdef CFSML_DEBUG_MALLOC SCI_MEMTEST; #endif } static void _cfsml_free_pointer_references(struct _cfsml_pointer_refstruct **meta_ref, int free_pointers) { _cfsml_free_pointer_references_recursively(*meta_ref, free_pointers); *meta_ref = NULL; _cfsml_pointer_references_current = meta_ref; } static struct _cfsml_pointer_refstruct ** _cfsml_get_current_refpointer() { return _cfsml_pointer_references_current; } static void _cfsml_register_pointer(void *ptr) { struct _cfsml_pointer_refstruct *newref = sci_malloc(sizeof (struct _cfsml_pointer_refstruct)); #ifdef CFSML_DEBUG_MALLOC SCI_MEMTEST; fprintf(stderr,"Registering ptrref %p [%p]\n", ptr, newref); #endif newref->next = *_cfsml_pointer_references_current; newref->ptr = ptr; *_cfsml_pointer_references_current = newref; } static char * _cfsml_mangle_string(char *s) { char *source = s; char c; char *target = (char *) sci_malloc(1 + strlen(s) * 2); /* We will probably need less than that */ char *writer = target; while ((c = *source++)) { if (c < 32) { /* Special character? */ *writer++ = '\\'; /* Escape... */ c += ('a' - 1); } else if (c == '\\' || c == '"') *writer++ = '\\'; /* Escape, but do not change */ *writer++ = c; } *writer = 0; /* Terminate string */ return (char *) sci_realloc(target, strlen(target) + 1); } static char * _cfsml_unmangle_string(char *s) { char *target = (char *) sci_malloc(1 + strlen(s)); char *writer = target; char *source = s; char c; while ((c = *source++) && (c > 31)) { if (c == '\\') { /* Escaped character? */ c = *source++; if ((c != '\\') && (c != '"')) /* Un-escape 0-31 only */ c -= ('a' - 1); } *writer++ = c; } *writer = 0; /* Terminate string */ return (char *) sci_realloc(target, strlen(target) + 1); } static char * _cfsml_get_identifier(FILE *fd, int *line, int *hiteof, int *assignment) { int c; int mem = 32; int pos = 0; int done = 0; char *retval = (char *) sci_malloc(mem); if (_cfsml_last_identifier_retreived) { free(_cfsml_last_identifier_retreived); _cfsml_last_identifier_retreived = NULL; } while (isspace(c = fgetc(fd)) && (c != EOF)); if (c == EOF) { _cfsml_error("Unexpected end of file at line %d\n", *line); free(retval); *hiteof = 1; return NULL; } ungetc(c, fd); while (((c = fgetc(fd)) != EOF) && ((pos == 0) || (c != '\n')) && (c != '=')) { if (pos == mem - 1) /* Need more memory? */ retval = (char *) sci_realloc(retval, mem *= 2); if (!isspace(c)) { if (done) { _cfsml_error("Single word identifier expected at line %d\n", *line); free(retval); return NULL; } retval[pos++] = c; } else if (pos != 0) done = 1; /* Finished the variable name */ else if (c == '\n') ++(*line); } if (c == EOF) { _cfsml_error("Unexpected end of file at line %d\n", *line); free(retval); *hiteof = 1; return NULL; } if (c == '\n') { ++(*line); if (assignment) *assignment = 0; } else if (assignment) *assignment = 1; if (pos == 0) { _cfsml_error("Missing identifier in assignment at line %d\n", *line); free(retval); return NULL; } if (pos == mem - 1) /* Need more memory? */ retval = (char *) sci_realloc(retval, mem += 1); retval[pos] = 0; /* Terminate string */ #line 322 "sfx_save.cfsml" return _cfsml_last_identifier_retreived = retval; } static char * _cfsml_get_value(FILE *fd, int *line, int *hiteof) { int c; int mem = 64; int pos = 0; char *retval = (char *) sci_malloc(mem); if (_cfsml_last_value_retreived) { free(_cfsml_last_value_retreived); _cfsml_last_value_retreived = NULL; } while (((c = fgetc(fd)) != EOF) && (c != '\n')) { if (pos == mem - 1) /* Need more memory? */ retval = (char *) sci_realloc(retval, mem *= 2); if (pos || (!isspace(c))) retval[pos++] = c; } while ((pos > 0) && (isspace(retval[pos - 1]))) --pos; /* Strip trailing whitespace */ if (c == EOF) *hiteof = 1; if (pos == 0) { _cfsml_error("Missing value in assignment at line %d\n", *line); free(retval); return NULL; } if (c == '\n') ++(*line); if (pos == mem - 1) /* Need more memory? */ retval = (char *) sci_realloc(retval, mem += 1); retval[pos] = 0; /* Terminate string */ #line 379 "sfx_save.cfsml" return (_cfsml_last_value_retreived = (char *) sci_realloc(retval, strlen(retval) + 1)); /* Re-allocate; this value might be used for quite some while (if we are ** restoring a string) */ } #line 431 "sfx_save.cfsml" static void _cfsml_write_sound_lib_file_ver1_t(FILE *fh, sound_lib_file_ver1_t* save_struc); static int _cfsml_read_sound_lib_file_ver1_t(FILE *fh, sound_lib_file_ver1_t* save_struc, char *lastval, int *line, int *hiteof); #line 431 "sfx_save.cfsml" static void _cfsml_write_word(FILE *fh, word* save_struc); static int _cfsml_read_word(FILE *fh, word* save_struc, char *lastval, int *line, int *hiteof); #line 431 "sfx_save.cfsml" static void _cfsml_write_int(FILE *fh, int* save_struc); static int _cfsml_read_int(FILE *fh, int* save_struc, char *lastval, int *line, int *hiteof); #line 431 "sfx_save.cfsml" static void _cfsml_write_long(FILE *fh, long* save_struc); static int _cfsml_read_long(FILE *fh, long* save_struc, char *lastval, int *line, int *hiteof); #line 431 "sfx_save.cfsml" static void _cfsml_write_string(FILE *fh, char ** save_struc); static int _cfsml_read_string(FILE *fh, char ** save_struc, char *lastval, int *line, int *hiteof); #line 431 "sfx_save.cfsml" static void _cfsml_write_sound_lib_file_ver2_t(FILE *fh, sound_lib_file_ver2_t* save_struc); static int _cfsml_read_sound_lib_file_ver2_t(FILE *fh, sound_lib_file_ver2_t* save_struc, char *lastval, int *line, int *hiteof); #line 431 "sfx_save.cfsml" static void _cfsml_write_song_t(FILE *fh, song_t* save_struc); static int _cfsml_read_song_t(FILE *fh, song_t* save_struc, char *lastval, int *line, int *hiteof); #line 444 "sfx_save.cfsml" static void _cfsml_write_sound_lib_file_ver1_t(FILE *fh, sound_lib_file_ver1_t* save_struc) { int min, max, i; #line 464 "sfx_save.cfsml" fprintf(fh, "{\n"); fprintf(fh, "sound_version = "); _cfsml_write_int(fh, &(save_struc->sound_version)); fprintf(fh, "\n"); fprintf(fh, "songs = "); min = max = save_struc->songs_nr; if (!save_struc->songs) min = max = 0; /* Don't write if it points to NULL */ #line 490 "sfx_save.cfsml" fprintf(fh, "[%d][\n", max); for (i = 0; i < min; i++) { _cfsml_write_song_t(fh, &(save_struc->songs[i])); fprintf(fh, "\n"); } fprintf(fh, "]"); fprintf(fh, "\n"); fprintf(fh, "active_song = "); _cfsml_write_int(fh, &(save_struc->active_song)); fprintf(fh, "\n"); fprintf(fh, "soundcue = "); _cfsml_write_int(fh, &(save_struc->soundcue)); fprintf(fh, "\n"); fprintf(fh, "usecs_to_sleep = "); _cfsml_write_long(fh, &(save_struc->usecs_to_sleep)); fprintf(fh, "\n"); fprintf(fh, "ticks_to_wait = "); _cfsml_write_long(fh, &(save_struc->ticks_to_wait)); fprintf(fh, "\n"); fprintf(fh, "ticks_to_fade = "); _cfsml_write_long(fh, &(save_struc->ticks_to_fade)); fprintf(fh, "\n"); fprintf(fh, "}"); } #line 538 "sfx_save.cfsml" static int _cfsml_read_sound_lib_file_ver1_t(FILE *fh, sound_lib_file_ver1_t* save_struc, char *lastval, int *line, int *hiteof) { char *token; int min, max, i; #line 599 "sfx_save.cfsml" int assignment, closed, done; if (strcmp(lastval, "{")) { _cfsml_error("Reading record; expected opening braces in line %d, got \"%s\"\n",line, lastval); return CFSML_FAILURE; }; closed = 0; do { char *value; token = _cfsml_get_identifier(fh, line, hiteof, &assignment); if (!token) { _cfsml_error("Expected token at line %d\n", *line); return CFSML_FAILURE; } if (!assignment) { if (!strcmp(token, "}")) closed = 1; else { _cfsml_error("Expected assignment or closing braces in line %d\n", *line); return CFSML_FAILURE; } } else { value = ""; while (!value || !strcmp(value, "")) value = _cfsml_get_value(fh, line, hiteof); if (!value) { _cfsml_error("Expected token at line %d\n", *line); return CFSML_FAILURE; } if (!strcmp(token, "sound_version")) { #line 749 "sfx_save.cfsml" if (_cfsml_read_int(fh, &(save_struc->sound_version), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for sound_version at line %d\n", *line); return CFSML_FAILURE; } } else if (!strcmp(token, "songs")) { #line 663 "sfx_save.cfsml" if ((value[0] != '[') || (value[strlen(value) - 1] != '[')) { _cfsml_error("Opening brackets expected at line %d\n", *line); return CFSML_FAILURE; } #line 673 "sfx_save.cfsml" /* Prepare to restore dynamic array */ max = strtol(value + 1, NULL, 0); if (max < 0) { _cfsml_error("Invalid number of elements to allocate for dynamic array '%s' at line %d\n", token, *line); return CFSML_FAILURE; } if (max) { save_struc->songs = (song_t *) sci_malloc(max * sizeof(song_t)); #ifdef SATISFY_PURIFY memset(save_struc->songs, 0, max * sizeof(song_t)); #endif _cfsml_register_pointer(save_struc->songs); } else save_struc->songs = NULL; #line 699 "sfx_save.cfsml" done = i = 0; do { if (!(value = _cfsml_get_identifier(fh, line, hiteof, NULL))) { #line 707 "sfx_save.cfsml" _cfsml_error("Token expected at line %d\n", *line); return 1; } if (strcmp(value, "]")) { if (i == max) { _cfsml_error("More elements than space available (%d) in '%s' at line %d\n", max, token, *line); return CFSML_FAILURE; } if (_cfsml_read_song_t(fh, &(save_struc->songs[i++]), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_song_t() for songs[i++] at line %d\n", *line); return CFSML_FAILURE; } } else done = 1; } while (!done); save_struc->songs_nr = max ; /* Set array size accordingly */ } else if (!strcmp(token, "active_song")) { #line 749 "sfx_save.cfsml" if (_cfsml_read_int(fh, &(save_struc->active_song), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for active_song at line %d\n", *line); return CFSML_FAILURE; } } else if (!strcmp(token, "soundcue")) { #line 749 "sfx_save.cfsml" if (_cfsml_read_int(fh, &(save_struc->soundcue), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for soundcue at line %d\n", *line); return CFSML_FAILURE; } } else if (!strcmp(token, "usecs_to_sleep")) { #line 749 "sfx_save.cfsml" if (_cfsml_read_long(fh, &(save_struc->usecs_to_sleep), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_long() for usecs_to_sleep at line %d\n", *line); return CFSML_FAILURE; } } else if (!strcmp(token, "ticks_to_wait")) { #line 749 "sfx_save.cfsml" if (_cfsml_read_long(fh, &(save_struc->ticks_to_wait), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_long() for ticks_to_wait at line %d\n", *line); return CFSML_FAILURE; } } else if (!strcmp(token, "ticks_to_fade")) { #line 749 "sfx_save.cfsml" if (_cfsml_read_long(fh, &(save_struc->ticks_to_fade), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_long() for ticks_to_fade at line %d\n", *line); return CFSML_FAILURE; } } else #line 758 "sfx_save.cfsml" { _cfsml_error("Assignment to invalid identifier '%s' in line %d\n", token, *line); return CFSML_FAILURE; } } } while (!closed); /* Until closing braces are hit */ return CFSML_SUCCESS; } #line 444 "sfx_save.cfsml" static void _cfsml_write_word(FILE *fh, word* save_struc) { fprintf(fh, "%li", (long) *save_struc); } #line 538 "sfx_save.cfsml" static int _cfsml_read_word(FILE *fh, word* save_struc, char *lastval, int *line, int *hiteof) { char *token; #line 564 "sfx_save.cfsml" *save_struc = strtol(lastval, &token, 0); if ( (*save_struc == 0) && (token == lastval) ) { _cfsml_error("strtol failed at line %d\n", *line); return CFSML_FAILURE; } if (*token != 0) { _cfsml_error("Non-integer encountered while parsing int value at line %d\n", *line); return CFSML_FAILURE; } return CFSML_SUCCESS; } #line 444 "sfx_save.cfsml" static void _cfsml_write_int(FILE *fh, int* save_struc) { fprintf(fh, "%li", (long) *save_struc); } #line 538 "sfx_save.cfsml" static int _cfsml_read_int(FILE *fh, int* save_struc, char *lastval, int *line, int *hiteof) { char *token; #line 564 "sfx_save.cfsml" *save_struc = strtol(lastval, &token, 0); if ( (*save_struc == 0) && (token == lastval) ) { _cfsml_error("strtol failed at line %d\n", *line); return CFSML_FAILURE; } if (*token != 0) { _cfsml_error("Non-integer encountered while parsing int value at line %d\n", *line); return CFSML_FAILURE; } return CFSML_SUCCESS; } #line 444 "sfx_save.cfsml" static void _cfsml_write_long(FILE *fh, long* save_struc) { fprintf(fh, "%li", (long) *save_struc); } #line 538 "sfx_save.cfsml" static int _cfsml_read_long(FILE *fh, long* save_struc, char *lastval, int *line, int *hiteof) { char *token; #line 564 "sfx_save.cfsml" *save_struc = strtol(lastval, &token, 0); if ( (*save_struc == 0) && (token == lastval) ) { _cfsml_error("strtol failed at line %d\n", *line); return CFSML_FAILURE; } if (*token != 0) { _cfsml_error("Non-integer encountered while parsing int value at line %d\n", *line); return CFSML_FAILURE; } return CFSML_SUCCESS; } #line 444 "sfx_save.cfsml" static void _cfsml_write_string(FILE *fh, char ** save_struc) { #line 454 "sfx_save.cfsml" if (!(*save_struc)) fprintf(fh, "\\null\\"); else { char *token = _cfsml_mangle_string((char *) *save_struc); fprintf(fh, "\"%s\"", token); free(token); } } #line 538 "sfx_save.cfsml" static int _cfsml_read_string(FILE *fh, char ** save_struc, char *lastval, int *line, int *hiteof) { char *token; #line 577 "sfx_save.cfsml" if (strcmp(lastval, "\\null\\")) { /* null pointer? */ if (*lastval == '"') { /* Quoted string? */ int seeker = strlen(lastval); while (lastval[seeker] != '"') --seeker; if (!seeker) { /* No matching double-quotes? */ _cfsml_error("Unbalanced quotes at line %d\n", *line); return CFSML_FAILURE; } lastval[seeker] = 0; /* Terminate string at closing quotes... */ lastval++; /* ...and skip the opening quotes locally */ } *save_struc = _cfsml_unmangle_string(lastval); _cfsml_register_pointer(*save_struc); return CFSML_SUCCESS; } else { *save_struc = NULL; return CFSML_SUCCESS; } } #line 444 "sfx_save.cfsml" static void _cfsml_write_sound_lib_file_ver2_t(FILE *fh, sound_lib_file_ver2_t* save_struc) { int min, max, i; #line 464 "sfx_save.cfsml" fprintf(fh, "{\n"); fprintf(fh, "sound_version = "); _cfsml_write_int(fh, &(save_struc->sound_version)); fprintf(fh, "\n"); fprintf(fh, "songs = "); min = max = save_struc->number_of_songs; if (!save_struc->songs) min = max = 0; /* Don't write if it points to NULL */ #line 490 "sfx_save.cfsml" fprintf(fh, "[%d][\n", max); for (i = 0; i < min; i++) { _cfsml_write_song_t(fh, &(save_struc->songs[i])); fprintf(fh, "\n"); } fprintf(fh, "]"); fprintf(fh, "\n"); fprintf(fh, "active_song = "); _cfsml_write_int(fh, &(save_struc->active_song)); fprintf(fh, "\n"); fprintf(fh, "master_volume = "); _cfsml_write_int(fh, &(save_struc->master_volume)); fprintf(fh, "\n"); fprintf(fh, "sound_cue = "); _cfsml_write_int(fh, &(save_struc->sound_cue)); fprintf(fh, "\n"); fprintf(fh, "}"); } #line 538 "sfx_save.cfsml" static int _cfsml_read_sound_lib_file_ver2_t(FILE *fh, sound_lib_file_ver2_t* save_struc, char *lastval, int *line, int *hiteof) { char *token; int min, max, i; #line 599 "sfx_save.cfsml" int assignment, closed, done; if (strcmp(lastval, "{")) { _cfsml_error("Reading record; expected opening braces in line %d, got \"%s\"\n",line, lastval); return CFSML_FAILURE; }; closed = 0; do { char *value; token = _cfsml_get_identifier(fh, line, hiteof, &assignment); if (!token) { _cfsml_error("Expected token at line %d\n", *line); return CFSML_FAILURE; } if (!assignment) { if (!strcmp(token, "}")) closed = 1; else { _cfsml_error("Expected assignment or closing braces in line %d\n", *line); return CFSML_FAILURE; } } else { value = ""; while (!value || !strcmp(value, "")) value = _cfsml_get_value(fh, line, hiteof); if (!value) { _cfsml_error("Expected token at line %d\n", *line); return CFSML_FAILURE; } if (!strcmp(token, "sound_version")) { #line 749 "sfx_save.cfsml" if (_cfsml_read_int(fh, &(save_struc->sound_version), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for sound_version at line %d\n", *line); return CFSML_FAILURE; } } else if (!strcmp(token, "songs")) { #line 663 "sfx_save.cfsml" if ((value[0] != '[') || (value[strlen(value) - 1] != '[')) { _cfsml_error("Opening brackets expected at line %d\n", *line); return CFSML_FAILURE; } #line 673 "sfx_save.cfsml" /* Prepare to restore dynamic array */ max = strtol(value + 1, NULL, 0); if (max < 0) { _cfsml_error("Invalid number of elements to allocate for dynamic array '%s' at line %d\n", token, *line); return CFSML_FAILURE; } if (max) { save_struc->songs = (song_t *) sci_malloc(max * sizeof(song_t)); #ifdef SATISFY_PURIFY memset(save_struc->songs, 0, max * sizeof(song_t)); #endif _cfsml_register_pointer(save_struc->songs); } else save_struc->songs = NULL; #line 699 "sfx_save.cfsml" done = i = 0; do { if (!(value = _cfsml_get_identifier(fh, line, hiteof, NULL))) { #line 707 "sfx_save.cfsml" _cfsml_error("Token expected at line %d\n", *line); return 1; } if (strcmp(value, "]")) { if (i == max) { _cfsml_error("More elements than space available (%d) in '%s' at line %d\n", max, token, *line); return CFSML_FAILURE; } if (_cfsml_read_song_t(fh, &(save_struc->songs[i++]), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_song_t() for songs[i++] at line %d\n", *line); return CFSML_FAILURE; } } else done = 1; } while (!done); save_struc->number_of_songs = max ; /* Set array size accordingly */ } else if (!strcmp(token, "active_song")) { #line 749 "sfx_save.cfsml" if (_cfsml_read_int(fh, &(save_struc->active_song), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for active_song at line %d\n", *line); return CFSML_FAILURE; } } else if (!strcmp(token, "master_volume")) { #line 749 "sfx_save.cfsml" if (_cfsml_read_int(fh, &(save_struc->master_volume), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for master_volume at line %d\n", *line); return CFSML_FAILURE; } } else if (!strcmp(token, "sound_cue")) { #line 749 "sfx_save.cfsml" if (_cfsml_read_int(fh, &(save_struc->sound_cue), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for sound_cue at line %d\n", *line); return CFSML_FAILURE; } } else #line 758 "sfx_save.cfsml" { _cfsml_error("Assignment to invalid identifier '%s' in line %d\n", token, *line); return CFSML_FAILURE; } } } while (!closed); /* Until closing braces are hit */ return CFSML_SUCCESS; } #line 444 "sfx_save.cfsml" static void _cfsml_write_song_t(FILE *fh, song_t* save_struc) { int min, max, i; #line 464 "sfx_save.cfsml" fprintf(fh, "{\n"); fprintf(fh, "flags = "); min = max = MIDI_CHANNELS; #line 490 "sfx_save.cfsml" fprintf(fh, "[%d][\n", max); for (i = 0; i < min; i++) { _cfsml_write_int(fh, &(save_struc->flags[i])); fprintf(fh, "\n"); } fprintf(fh, "]"); fprintf(fh, "\n"); fprintf(fh, "polyphony = "); min = max = MIDI_CHANNELS; #line 490 "sfx_save.cfsml" fprintf(fh, "[%d][\n", max); for (i = 0; i < min; i++) { _cfsml_write_int(fh, &(save_struc->polyphony[i])); fprintf(fh, "\n"); } fprintf(fh, "]"); fprintf(fh, "\n"); fprintf(fh, "instruments = "); min = max = MIDI_CHANNELS; #line 490 "sfx_save.cfsml" fprintf(fh, "[%d][\n", max); for (i = 0; i < min; i++) { _cfsml_write_int(fh, &(save_struc->instruments[i])); fprintf(fh, "\n"); } fprintf(fh, "]"); fprintf(fh, "\n"); fprintf(fh, "velocity = "); min = max = MIDI_CHANNELS; #line 490 "sfx_save.cfsml" fprintf(fh, "[%d][\n", max); for (i = 0; i < min; i++) { _cfsml_write_int(fh, &(save_struc->velocity[i])); fprintf(fh, "\n"); } fprintf(fh, "]"); fprintf(fh, "\n"); fprintf(fh, "pressure = "); min = max = MIDI_CHANNELS; #line 490 "sfx_save.cfsml" fprintf(fh, "[%d][\n", max); for (i = 0; i < min; i++) { _cfsml_write_int(fh, &(save_struc->pressure[i])); fprintf(fh, "\n"); } fprintf(fh, "]"); fprintf(fh, "\n"); fprintf(fh, "pitch = "); min = max = MIDI_CHANNELS; #line 490 "sfx_save.cfsml" fprintf(fh, "[%d][\n", max); for (i = 0; i < min; i++) { _cfsml_write_int(fh, &(save_struc->pitch[i])); fprintf(fh, "\n"); } fprintf(fh, "]"); fprintf(fh, "\n"); fprintf(fh, "channel_map = "); min = max = MIDI_CHANNELS; #line 490 "sfx_save.cfsml" fprintf(fh, "[%d][\n", max); for (i = 0; i < min; i++) { _cfsml_write_int(fh, &(save_struc->channel_map[i])); fprintf(fh, "\n"); } fprintf(fh, "]"); fprintf(fh, "\n"); fprintf(fh, "size = "); _cfsml_write_int(fh, &(save_struc->size)); fprintf(fh, "\n"); fprintf(fh, "pos = "); _cfsml_write_int(fh, &(save_struc->pos)); fprintf(fh, "\n"); fprintf(fh, "loopmark = "); _cfsml_write_int(fh, &(save_struc->loopmark)); fprintf(fh, "\n"); fprintf(fh, "fading = "); _cfsml_write_int(fh, &(save_struc->fading)); fprintf(fh, "\n"); fprintf(fh, "maxfade = "); _cfsml_write_int(fh, &(save_struc->maxfade)); fprintf(fh, "\n"); fprintf(fh, "reverb = "); _cfsml_write_int(fh, &(save_struc->reverb)); fprintf(fh, "\n"); fprintf(fh, "file_nr = "); _cfsml_write_int(fh, &(save_struc->file_nr)); fprintf(fh, "\n"); fprintf(fh, "priority = "); _cfsml_write_int(fh, &(save_struc->priority)); fprintf(fh, "\n"); fprintf(fh, "loops = "); _cfsml_write_int(fh, &(save_struc->loops)); fprintf(fh, "\n"); fprintf(fh, "status = "); _cfsml_write_int(fh, &(save_struc->status)); fprintf(fh, "\n"); fprintf(fh, "resetflag = "); _cfsml_write_int(fh, &(save_struc->resetflag)); fprintf(fh, "\n"); fprintf(fh, "handle = "); _cfsml_write_int(fh, &(save_struc->handle)); fprintf(fh, "\n"); fprintf(fh, "}"); } #line 538 "sfx_save.cfsml" static int _cfsml_read_song_t(FILE *fh, song_t* save_struc, char *lastval, int *line, int *hiteof) { char *token; int min, max, i; #line 599 "sfx_save.cfsml" int assignment, closed, done; if (strcmp(lastval, "{")) { _cfsml_error("Reading record; expected opening braces in line %d, got \"%s\"\n",line, lastval); return CFSML_FAILURE; }; closed = 0; do { char *value; token = _cfsml_get_identifier(fh, line, hiteof, &assignment); if (!token) { _cfsml_error("Expected token at line %d\n", *line); return CFSML_FAILURE; } if (!assignment) { if (!strcmp(token, "}")) closed = 1; else { _cfsml_error("Expected assignment or closing braces in line %d\n", *line); return CFSML_FAILURE; } } else { value = ""; while (!value || !strcmp(value, "")) value = _cfsml_get_value(fh, line, hiteof); if (!value) { _cfsml_error("Expected token at line %d\n", *line); return CFSML_FAILURE; } if (!strcmp(token, "flags")) { #line 663 "sfx_save.cfsml" if ((value[0] != '[') || (value[strlen(value) - 1] != '[')) { _cfsml_error("Opening brackets expected at line %d\n", *line); return CFSML_FAILURE; } /* Prepare to restore static array */ max = MIDI_CHANNELS; #line 699 "sfx_save.cfsml" done = i = 0; do { if (!(value = _cfsml_get_identifier(fh, line, hiteof, NULL))) { #line 707 "sfx_save.cfsml" _cfsml_error("Token expected at line %d\n", *line); return 1; } if (strcmp(value, "]")) { if (i == max) { _cfsml_error("More elements than space available (%d) in '%s' at line %d\n", max, token, *line); return CFSML_FAILURE; } if (_cfsml_read_int(fh, &(save_struc->flags[i++]), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for flags[i++] at line %d\n", *line); return CFSML_FAILURE; } } else done = 1; } while (!done); } else if (!strcmp(token, "polyphony")) { #line 663 "sfx_save.cfsml" if ((value[0] != '[') || (value[strlen(value) - 1] != '[')) { _cfsml_error("Opening brackets expected at line %d\n", *line); return CFSML_FAILURE; } /* Prepare to restore static array */ max = MIDI_CHANNELS; #line 699 "sfx_save.cfsml" done = i = 0; do { if (!(value = _cfsml_get_identifier(fh, line, hiteof, NULL))) { #line 707 "sfx_save.cfsml" _cfsml_error("Token expected at line %d\n", *line); return 1; } if (strcmp(value, "]")) { if (i == max) { _cfsml_error("More elements than space available (%d) in '%s' at line %d\n", max, token, *line); return CFSML_FAILURE; } if (_cfsml_read_int(fh, &(save_struc->polyphony[i++]), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for polyphony[i++] at line %d\n", *line); return CFSML_FAILURE; } } else done = 1; } while (!done); } else if (!strcmp(token, "instruments")) { #line 663 "sfx_save.cfsml" if ((value[0] != '[') || (value[strlen(value) - 1] != '[')) { _cfsml_error("Opening brackets expected at line %d\n", *line); return CFSML_FAILURE; } /* Prepare to restore static array */ max = MIDI_CHANNELS; #line 699 "sfx_save.cfsml" done = i = 0; do { if (!(value = _cfsml_get_identifier(fh, line, hiteof, NULL))) { #line 707 "sfx_save.cfsml" _cfsml_error("Token expected at line %d\n", *line); return 1; } if (strcmp(value, "]")) { if (i == max) { _cfsml_error("More elements than space available (%d) in '%s' at line %d\n", max, token, *line); return CFSML_FAILURE; } if (_cfsml_read_int(fh, &(save_struc->instruments[i++]), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for instruments[i++] at line %d\n", *line); return CFSML_FAILURE; } } else done = 1; } while (!done); } else if (!strcmp(token, "velocity")) { #line 663 "sfx_save.cfsml" if ((value[0] != '[') || (value[strlen(value) - 1] != '[')) { _cfsml_error("Opening brackets expected at line %d\n", *line); return CFSML_FAILURE; } /* Prepare to restore static array */ max = MIDI_CHANNELS; #line 699 "sfx_save.cfsml" done = i = 0; do { if (!(value = _cfsml_get_identifier(fh, line, hiteof, NULL))) { #line 707 "sfx_save.cfsml" _cfsml_error("Token expected at line %d\n", *line); return 1; } if (strcmp(value, "]")) { if (i == max) { _cfsml_error("More elements than space available (%d) in '%s' at line %d\n", max, token, *line); return CFSML_FAILURE; } if (_cfsml_read_int(fh, &(save_struc->velocity[i++]), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for velocity[i++] at line %d\n", *line); return CFSML_FAILURE; } } else done = 1; } while (!done); } else if (!strcmp(token, "pressure")) { #line 663 "sfx_save.cfsml" if ((value[0] != '[') || (value[strlen(value) - 1] != '[')) { _cfsml_error("Opening brackets expected at line %d\n", *line); return CFSML_FAILURE; } /* Prepare to restore static array */ max = MIDI_CHANNELS; #line 699 "sfx_save.cfsml" done = i = 0; do { if (!(value = _cfsml_get_identifier(fh, line, hiteof, NULL))) { #line 707 "sfx_save.cfsml" _cfsml_error("Token expected at line %d\n", *line); return 1; } if (strcmp(value, "]")) { if (i == max) { _cfsml_error("More elements than space available (%d) in '%s' at line %d\n", max, token, *line); return CFSML_FAILURE; } if (_cfsml_read_int(fh, &(save_struc->pressure[i++]), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for pressure[i++] at line %d\n", *line); return CFSML_FAILURE; } } else done = 1; } while (!done); } else if (!strcmp(token, "pitch")) { #line 663 "sfx_save.cfsml" if ((value[0] != '[') || (value[strlen(value) - 1] != '[')) { _cfsml_error("Opening brackets expected at line %d\n", *line); return CFSML_FAILURE; } /* Prepare to restore static array */ max = MIDI_CHANNELS; #line 699 "sfx_save.cfsml" done = i = 0; do { if (!(value = _cfsml_get_identifier(fh, line, hiteof, NULL))) { #line 707 "sfx_save.cfsml" _cfsml_error("Token expected at line %d\n", *line); return 1; } if (strcmp(value, "]")) { if (i == max) { _cfsml_error("More elements than space available (%d) in '%s' at line %d\n", max, token, *line); return CFSML_FAILURE; } if (_cfsml_read_int(fh, &(save_struc->pitch[i++]), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for pitch[i++] at line %d\n", *line); return CFSML_FAILURE; } } else done = 1; } while (!done); } else if (!strcmp(token, "channel_map")) { #line 663 "sfx_save.cfsml" if ((value[0] != '[') || (value[strlen(value) - 1] != '[')) { _cfsml_error("Opening brackets expected at line %d\n", *line); return CFSML_FAILURE; } /* Prepare to restore static array */ max = MIDI_CHANNELS; #line 699 "sfx_save.cfsml" done = i = 0; do { if (!(value = _cfsml_get_identifier(fh, line, hiteof, NULL))) { #line 707 "sfx_save.cfsml" _cfsml_error("Token expected at line %d\n", *line); return 1; } if (strcmp(value, "]")) { if (i == max) { _cfsml_error("More elements than space available (%d) in '%s' at line %d\n", max, token, *line); return CFSML_FAILURE; } if (_cfsml_read_int(fh, &(save_struc->channel_map[i++]), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for channel_map[i++] at line %d\n", *line); return CFSML_FAILURE; } } else done = 1; } while (!done); } else if (!strcmp(token, "size")) { #line 749 "sfx_save.cfsml" if (_cfsml_read_int(fh, &(save_struc->size), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for size at line %d\n", *line); return CFSML_FAILURE; } } else if (!strcmp(token, "pos")) { #line 749 "sfx_save.cfsml" if (_cfsml_read_int(fh, &(save_struc->pos), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for pos at line %d\n", *line); return CFSML_FAILURE; } } else if (!strcmp(token, "loopmark")) { #line 749 "sfx_save.cfsml" if (_cfsml_read_int(fh, &(save_struc->loopmark), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for loopmark at line %d\n", *line); return CFSML_FAILURE; } } else if (!strcmp(token, "fading")) { #line 749 "sfx_save.cfsml" if (_cfsml_read_int(fh, &(save_struc->fading), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for fading at line %d\n", *line); return CFSML_FAILURE; } } else if (!strcmp(token, "maxfade")) { #line 749 "sfx_save.cfsml" if (_cfsml_read_int(fh, &(save_struc->maxfade), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for maxfade at line %d\n", *line); return CFSML_FAILURE; } } else if (!strcmp(token, "reverb")) { #line 749 "sfx_save.cfsml" if (_cfsml_read_int(fh, &(save_struc->reverb), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for reverb at line %d\n", *line); return CFSML_FAILURE; } } else if (!strcmp(token, "file_nr")) { #line 749 "sfx_save.cfsml" if (_cfsml_read_int(fh, &(save_struc->file_nr), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for file_nr at line %d\n", *line); return CFSML_FAILURE; } } else if (!strcmp(token, "priority")) { #line 749 "sfx_save.cfsml" if (_cfsml_read_int(fh, &(save_struc->priority), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for priority at line %d\n", *line); return CFSML_FAILURE; } } else if (!strcmp(token, "loops")) { #line 749 "sfx_save.cfsml" if (_cfsml_read_int(fh, &(save_struc->loops), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for loops at line %d\n", *line); return CFSML_FAILURE; } } else if (!strcmp(token, "status")) { #line 749 "sfx_save.cfsml" if (_cfsml_read_int(fh, &(save_struc->status), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for status at line %d\n", *line); return CFSML_FAILURE; } } else if (!strcmp(token, "resetflag")) { #line 749 "sfx_save.cfsml" if (_cfsml_read_int(fh, &(save_struc->resetflag), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for resetflag at line %d\n", *line); return CFSML_FAILURE; } } else if (!strcmp(token, "handle")) { #line 749 "sfx_save.cfsml" if (_cfsml_read_int(fh, &(save_struc->handle), value, line, hiteof)) { _cfsml_error("Token expected by _cfsml_read_int() for handle at line %d\n", *line); return CFSML_FAILURE; } } else #line 758 "sfx_save.cfsml" { _cfsml_error("Assignment to invalid identifier '%s' in line %d\n", token, *line); return CFSML_FAILURE; } } } while (!closed); /* Until closing braces are hit */ return CFSML_SUCCESS; } /* Auto-generated CFSML declaration and function block ends here */ /* Auto-generation performed by cfsml.pl 0.8.2 */ #line 149 "sfx_save.cfsml" /* Sound state saving reference implementation */ int soundsrv_save_state(FILE *debugstream, char *dir, sound_server_state_t *sss) { sound_lib_file_ver2_t write_rec; song_t *seeker; /* song seeker */ int number_of_songs = 0; int curr_songs_nr; /* current song number */ int songctr; /* song counter */ FILE *fh; if (dir && chdir(dir)) { char *cwd; cwd = getcwd(NULL, 0); fprintf(debugstream, "Failed to enter '%s', cwd is '%s'\n", dir, cwd); sci_free(cwd); return 1; } #ifdef DEBUG_SOUND_SERVER fprintf(debugstream, "Saving game...\n"); #endif write_rec.sound_version = SOUND_SAVEGAME_VERSION; write_rec.master_volume = sss->master_volume; write_rec.sound_cue = sss->sound_cue; #ifdef DEBUG_SOUND_SERVER fprintf(debugstream, " Save game version: %i\n", write_rec.sound_version); fprintf(debugstream, " Master volume : %i\n", write_rec.master_volume); fprintf(debugstream, " Sound cue : %i\n", write_rec.sound_cue); #endif /* Determine number of songs */ number_of_songs = song_lib_count(sss->songlib); seeker = *sss->songlib; for (curr_songs_nr = 0; curr_songs_nr < number_of_songs; curr_songs_nr++) { if (seeker == sss->current_song) break; seeker = seeker->next; } write_rec.number_of_songs = number_of_songs; write_rec.active_song = curr_songs_nr; #ifdef DEBUG_SOUND_SERVER fprintf(debugstream, " Number of songs : %i\n", write_rec.number_of_songs); if (seeker) fprintf(debugstream, " Active song : %04x (%i)\n", seeker->handle, write_rec.active_song); else fprintf(debugstream, " No active song : (%i)\n", write_rec.active_song); #endif write_rec.songs = sci_malloc(sizeof(song_t) * number_of_songs); /* Now memcpy those songs into a row and write their song data to a file */ songctr = 0; seeker = *sss->songlib; while (seeker) { char filename[10]; FILE *fh; memcpy(&(write_rec.songs[songctr]), seeker, sizeof(song_t)); write_rec.songs[songctr].file_nr = songctr; /* Now write to an external file */ sprintf(filename, "song.%d", songctr); fh = fopen(filename, "w" FO_BINARY); if (!fh) { fprintf(debugstream, "Error creating file: %s while creating '%s/%s'\n", strerror(errno), dir, filename); sci_free(write_rec.songs); if (dir) chdir (".."); return 1; } #ifdef DEBUG_SOUND_SERVER fprintf(debugstream, " Writing song : %04x\n", seeker->handle); #endif if (fwrite(seeker->data, sizeof(byte), seeker->size, fh) < seeker->size) { fprintf(debugstream, "Write error: Failed to write to '%s/%s'\n", dir, filename); sci_free(write_rec.songs); if (dir) chdir (".."); return 1; } fclose(fh); songctr++; seeker = seeker->next; } fh = fopen("sound", "w" FO_TEXT); #line 877 "sfx_save.cfsml" /* Auto-generated CFSML data writer code */ _cfsml_write_sound_lib_file_ver2_t(fh, &write_rec); fprintf(fh, "\n"); /* End of auto-generated CFSML data writer code */ #line 256 "sfx_save.cfsml" fclose(fh); fprintf(debugstream, "Finished all writing.\n"); sci_free(write_rec.songs); if (dir) chdir (".."); return 0; } static void recover_version0(sound_lib_file_ver1_t *rec) { int i; for (i = 0; i < rec->songs_nr; i++) { int j; song_t *song = rec->songs + i; song->reverb = 0; song->maxfade = 16; song->resetflag = 0; song->shared = 0; for (j = 0; j < MIDI_CHANNELS; j++) song->polyphony[j] = 1; } } static int recover_version1(FILE *fh, sound_lib_file_ver1_t *rec, sound_server_state_t *sss, FILE *ds) { song_t *seeker, *next = NULL; int i; int error; rec->songs = NULL; /* Backwards capability crap */ rec->sound_version = 0; rec->master_volume = sss->master_volume; /* Read all the records */ /* Auto-generated CFSML data reader code */ #line 823 "sfx_save.cfsml" { #line 826 "sfx_save.cfsml" int _cfsml_line_ctr = 0; #line 831 "sfx_save.cfsml" struct _cfsml_pointer_refstruct **_cfsml_myptrrefptr = _cfsml_get_current_refpointer(); #line 834 "sfx_save.cfsml" int _cfsml_eof = 0, _cfsml_error; int dummy; #line 842 "sfx_save.cfsml" char *_cfsml_inp = _cfsml_get_identifier(fh, &(_cfsml_line_ctr), &_cfsml_eof, &dummy); #line 847 "sfx_save.cfsml" _cfsml_error = _cfsml_read_sound_lib_file_ver1_t(fh, rec, _cfsml_inp, &(_cfsml_line_ctr), &_cfsml_eof); #line 852 "sfx_save.cfsml" error = _cfsml_error; #line 856 "sfx_save.cfsml" _cfsml_free_pointer_references(_cfsml_myptrrefptr, _cfsml_error); #line 859 "sfx_save.cfsml" if (_cfsml_last_value_retreived) { free(_cfsml_last_value_retreived); _cfsml_last_value_retreived = NULL; } if (_cfsml_last_identifier_retreived) { free(_cfsml_last_identifier_retreived); _cfsml_last_identifier_retreived = NULL; } } /* End of auto-generated CFSML data reader code */ #line 304 "sfx_save.cfsml" fclose(fh); if (error) { fprintf(ds, "Failed to parse file 'sound'\n"); return 1; } if (rec->sound_version == 0) recover_version0(rec); /* Read in each song's data */ for (i = 0; i < rec->songs_nr; i++) { int size = rec->songs[i].size; char filename[10]; sprintf(filename, "song.%d", rec->songs[i].file_nr); fh = fopen(filename, "r" FO_BINARY); if (!fh) { fprintf(ds, "Opening %s failed: %s\n", filename, strerror(errno)); return 1; } rec->songs[i].data = (byte *) sci_malloc(size); if (fread(rec->songs[i].data, sizeof(byte), size, fh) < size) { int j; for (j = 0; j < i; j++) sci_free(rec->songs[i].data); fprintf(ds, "Reading %d bytes from %s failed\n", size, filename); return 1; } fclose(fh); } /* Everything is well, so free all songs to make way for the new ones */ song_lib_free(sss->songlib); sss->current_song = NULL; #ifdef DEBUG_SOUND_SERVER fprintf(ds, " Number of songs : %i\n", rec->songs_nr); #endif for (i = 0; i < rec->songs_nr; i++) { next = sci_malloc(sizeof(song_t)); memcpy(next, &(rec->songs[i]), sizeof(song_t)); next->next = NULL; next->shared = 0; if (i > 0) seeker->next = next; #ifdef DEBUG_SOUND_SERVER fprintf(ds, " Reading song : %04x\n", next->handle); #endif seeker = next; if (i == 0) *sss->songlib = seeker; if (i == rec->active_song) sss->current_song = seeker; } #ifdef DEBUG_SOUND_SERVER if (sss->current_song) fprintf(ds, " Active song : %04x (%i)\n", sss->current_song->handle, rec->active_song); else fprintf(ds, " No active song : (%i)\n", rec->active_song); #endif #ifdef DEBUG_SOUND_SERVER fprintf(ds, " Master volume : %i\n", rec->master_volume); fprintf(ds, " Sound cue : %i\n", rec->soundcue); #endif /* sss->usecs_to_sleep = rec->usecs_to_sleep; */ /* sss->ticks_to_wait = rec->ticks_to_wait; */ /* sss->ticks_to_fade = rec->ticks_to_fade; */ set_master_volume((guint8)((float)rec->master_volume / 100.0 * 15.0), sss); sss->sound_cue = rec->soundcue; if (rec->songs_nr) sci_free(rec->songs); return 0; } static int recover_version2(FILE *fh, sound_lib_file_ver2_t *rec, sound_server_state_t *sss, FILE *ds) { song_t *seeker, *next = NULL; int i; int error; rec->songs = NULL; /* Read all the records */ /* Auto-generated CFSML data reader code */ #line 823 "sfx_save.cfsml" { #line 826 "sfx_save.cfsml" int _cfsml_line_ctr = 0; #line 831 "sfx_save.cfsml" struct _cfsml_pointer_refstruct **_cfsml_myptrrefptr = _cfsml_get_current_refpointer(); #line 834 "sfx_save.cfsml" int _cfsml_eof = 0, _cfsml_error; int dummy; #line 842 "sfx_save.cfsml" char *_cfsml_inp = _cfsml_get_identifier(fh, &(_cfsml_line_ctr), &_cfsml_eof, &dummy); #line 847 "sfx_save.cfsml" _cfsml_error = _cfsml_read_sound_lib_file_ver2_t(fh, rec, _cfsml_inp, &(_cfsml_line_ctr), &_cfsml_eof); #line 852 "sfx_save.cfsml" error = _cfsml_error; #line 856 "sfx_save.cfsml" _cfsml_free_pointer_references(_cfsml_myptrrefptr, _cfsml_error); #line 859 "sfx_save.cfsml" if (_cfsml_last_value_retreived) { free(_cfsml_last_value_retreived); _cfsml_last_value_retreived = NULL; } if (_cfsml_last_identifier_retreived) { free(_cfsml_last_identifier_retreived); _cfsml_last_identifier_retreived = NULL; } } /* End of auto-generated CFSML data reader code */ #line 407 "sfx_save.cfsml" fclose(fh); if (error) { fprintf(ds, "Failed to parse file 'sound'\n"); return 1; } /* Read in each song's data */ for (i = 0; i < rec->number_of_songs; i++) { int song_data_size = rec->songs[i].size; char filename[10]; sprintf(filename, "song.%d", rec->songs[i].file_nr); fh = fopen(filename, "r" FO_BINARY); if (!fh) { fprintf(ds, "Opening %s failed: %s\n", filename, strerror(errno)); return 1; } rec->songs[i].data = (byte *) sci_malloc(song_data_size); rec->songs[i].shared = 0; if (fread(rec->songs[i].data, sizeof(byte), song_data_size, fh) < song_data_size) { int j; for (j = 0; j < i; j++) sci_free(rec->songs[i].data); fprintf(ds, "Reading %d bytes from %s failed\n", song_data_size, filename); return 1; } fclose(fh); } /* Everything is well, so free all songs to make way for the new ones */ song_lib_free(sss->songlib); if (sss->current_song) sss->current_song->data = NULL; sss->current_song = NULL; #ifdef DEBUG_SOUND_SERVER fprintf(ds, " Number of songs : %i\n", rec->number_of_songs); #endif for (i = 0; i < rec->number_of_songs; i++) { next = sci_malloc(sizeof(song_t)); memcpy(next, &(rec->songs[i]), sizeof(song_t)); next->next = NULL; if (i > 0) seeker->next = next; #ifdef DEBUG_SOUND_SERVER fprintf(ds, " Reading song : %04x\n", next->handle); #endif seeker = next; if (i == 0) *sss->songlib = seeker; if (i == rec->active_song) sss->current_song = seeker; } #ifdef DEBUG_SOUND_SERVER if (sss->current_song) fprintf(ds, " Active song : %04x (%i)\n", sss->current_song->handle, rec->active_song); else fprintf(ds, " No active song : (%i)\n", rec->active_song); #endif if (song_lib_count(sss->songlib) != rec->number_of_songs) { fprintf(ds, "Number of songs read does not match number of songs saved\n"); return 1; } #ifdef DEBUG_SOUND_SERVER fprintf(ds, " Master volume : %i\n", rec->master_volume); fprintf(ds, " Sound cue : %i\n", rec->sound_cue); #endif set_master_volume((guint8)((float)rec->master_volume / 100.0 * 15.0), sss); sss->sound_cue = rec->sound_cue; if (rec->number_of_songs) sci_free(rec->songs); return 0; } /* Sound state restore complement for the saving reference implementation */ int soundsrv_restore_state(FILE *debugstream, char *dir, sound_server_state_t *sss) { FILE *fh; int ch = 0; int sound_version; if (dir && chdir(dir)) { fprintf(debugstream, "Failed to enter '%s'\n", dir); return 1; } fh = fopen("sound", "r" FO_TEXT); if (!fh) { fprintf(debugstream, "'%s/sound' not found!\n", dir); if (dir) chdir (".."); return 1; } /* find sound version */ while ( (ch < '0') || (ch > '9') ) ch = fgetc(fh); ungetc(ch, fh); #ifdef _DREAMCAST /* FIXME (Dreamcast) */ sound_version = 2; #else if ( (fscanf(fh, "%d", &sound_version)) < 0 ) { fprintf(debugstream, "Error reading saved game sound version!\n"); if (dir) chdir (".."); return 1; } #endif rewind(fh); #ifdef DEBUG_SOUND_SERVER fprintf(debugstream, "Restoring game %s...\n", dir); fprintf(debugstream, " Save game version: %i\n", sound_version); #endif if ( (sound_version == 0) || (sound_version == 1) ) { sound_lib_file_ver1_t read_rec; if (recover_version1(fh, &read_rec, sss, debugstream) != 0) { if (dir) chdir (".."); return 1; } } else if (sound_version == 2) { sound_lib_file_ver2_t read_rec; if (recover_version2(fh, &read_rec, sss, debugstream) != 0) { if (dir) chdir (".."); return 1; } } if (dir) chdir (".."); return 0; }