static void edit_find_ok_callback(read_direction_t direction, Widget w, XtPointer context, XtPointer info)
{ /* "Find" is the label here */
char *str = NULL, *buf = NULL;
XmString s1;
XEN proc;
str = XmTextGetString(edit_find_text);
if ((str) && (*str))
{
clear_global_search_procedure(true);
ss->search_expr = mus_strdup(str);
redirect_errors_to(errors_to_find_text, NULL);
proc = snd_catch_any(eval_str_wrapper, str, str);
redirect_errors_to(NULL, NULL);
if ((XEN_PROCEDURE_P(proc)) && (procedure_arity_ok(proc, 1)))
{
ss->search_proc = proc;
ss->search_proc_loc = snd_protect(proc);
#if HAVE_SCHEME
if (optimization(ss) > 0)
ss->search_tree = mus_run_form_to_ptree_1_b(XEN_PROCEDURE_SOURCE(proc));
#endif
buf = (char *)calloc(PRINT_BUFFER_SIZE, sizeof(char));
mus_snprintf(buf, PRINT_BUFFER_SIZE, "find: %s", str);
set_label(edit_find_label, buf);
/* XmTextSetString(edit_find_text, NULL); */
free(buf);
}
}
else
{
if (ss->search_expr == NULL)
{
char *temp = NULL;
/* using global search_proc set by user */
buf = (char *)calloc(PRINT_BUFFER_SIZE, sizeof(char));
mus_snprintf(buf, PRINT_BUFFER_SIZE, "find: %s", temp = (char *)XEN_AS_STRING(ss->search_proc));
#if HAVE_SCHEME
if (temp) free(temp);
#endif
set_label(edit_find_label, buf);
/* XmTextSetString(edit_find_text, NULL); */
free(buf);
}
}
if (str) XtFree(str);
if ((XEN_PROCEDURE_P(ss->search_proc)) || (ss->search_tree))
{
s1 = XmStringCreateLocalized((char *)"Stop");
XtVaSetValues(cancelB, XmNlabelString, s1, NULL);
XmStringFree(s1);
redirect_xen_error_to(stop_search_if_error, NULL);
str = global_search(direction);
redirect_xen_error_to(NULL, NULL);
s1 = XmStringCreateLocalized((char *)"Go Away");
XtVaSetValues(cancelB, XmNlabelString, s1, NULL);
XmStringFree(s1);
if ((str) && (*str)) set_label(edit_find_label, str);
}
}
void snd_set_global_defaults(bool need_cleanup)
{
if (need_cleanup)
{
if (ss->HTML_Program) {FREE(ss->HTML_Program); ss->HTML_Program = NULL;}
if (ss->HTML_Dir) {FREE(ss->HTML_Dir); ss->HTML_Dir = NULL;}
if (ss->Temp_Dir) {FREE(ss->Temp_Dir); ss->Temp_Dir = NULL;}
if (ss->Save_Dir) {FREE(ss->Save_Dir); ss->Save_Dir = NULL;}
if (ss->Ladspa_Dir) {FREE(ss->Ladspa_Dir); ss->Ladspa_Dir = NULL;}
if (ss->Save_State_File) {FREE(ss->Save_State_File); ss->Save_State_File = NULL;}
if (ss->Eps_File) {FREE(ss->Eps_File); ss->Eps_File = NULL;}
if (ss->Listener_Prompt) {FREE(ss->Listener_Prompt); ss->Listener_Prompt = NULL;}
/* not sure about the next two... */
if ((cursor_style(ss) == CURSOR_PROC) && (XEN_PROCEDURE_P(ss->cursor_proc)))
snd_unprotect_at(ss->cursor_proc_loc);
if ((zoom_focus_style(ss) == ZOOM_FOCUS_PROC) && (XEN_PROCEDURE_P(ss->zoom_focus_proc)))
snd_unprotect_at(ss->zoom_focus_proc_loc);
}
ss->Transform_Size = DEFAULT_TRANSFORM_SIZE;
ss->Minibuffer_History_Length = DEFAULT_MINIBUFFER_HISTORY_LENGTH;
ss->Fft_Window = DEFAULT_FFT_WINDOW;
ss->Fft_Window_Alpha = DEFAULT_FFT_WINDOW_ALPHA;
ss->Fft_Window_Beta = DEFAULT_FFT_WINDOW_BETA;
ss->Transform_Graph_Type = DEFAULT_TRANSFORM_GRAPH_TYPE;
ss->Sinc_Width = DEFAULT_SINC_WIDTH;
ss->Default_Output_Chans = DEFAULT_OUTPUT_CHANS;
ss->Default_Output_Srate = DEFAULT_OUTPUT_SRATE;
ss->Default_Output_Header_Type = DEFAULT_OUTPUT_HEADER_TYPE;
ss->Default_Output_Data_Format = DEFAULT_OUTPUT_DATA_FORMAT;
ss->Auto_Resize = DEFAULT_AUTO_RESIZE;
ss->Auto_Update = DEFAULT_AUTO_UPDATE;
ss->Graphs_Horizontal = DEFAULT_GRAPHS_HORIZONTAL;
ss->Color_Cutoff = DEFAULT_COLOR_CUTOFF;
ss->Color_Scale = DEFAULT_COLOR_SCALE;
ss->Color_Inverted = DEFAULT_COLOR_INVERTED;
ss->Color_Map = DEFAULT_COLOR_MAP;
ss->Zero_Pad = DEFAULT_ZERO_PAD;
ss->Ask_Before_Overwrite = DEFAULT_ASK_BEFORE_OVERWRITE;
ss->X_Axis_Style = DEFAULT_X_AXIS_STYLE;
ss->Beats_Per_Minute = DEFAULT_BEATS_PER_MINUTE;
ss->Beats_Per_Measure = DEFAULT_BEATS_PER_MEASURE;
ss->Time_Graph_Type = DEFAULT_TIME_GRAPH_TYPE;
ss->Wavo_Hop = DEFAULT_WAVO_HOP;
ss->Wavo_Trace = DEFAULT_WAVO_TRACE;
ss->Spectro_Hop = DEFAULT_SPECTRO_HOP;
ss->Spectro_X_Scale = DEFAULT_SPECTRO_X_SCALE;
ss->Spectro_Y_Scale = DEFAULT_SPECTRO_Y_SCALE;
ss->Spectro_Z_Scale = DEFAULT_SPECTRO_Z_SCALE;
ss->Spectro_Z_Angle = DEFAULT_SPECTRO_Z_ANGLE;
ss->Spectro_X_Angle = DEFAULT_SPECTRO_X_ANGLE;
ss->Spectro_Y_Angle = DEFAULT_SPECTRO_Y_ANGLE;
ss->Color_Map = DEFAULT_COLOR_MAP;
ss->Color_Map_Size = DEFAULT_COLOR_MAP_SIZE;
ss->Spectro_Cutoff = DEFAULT_SPECTRO_CUTOFF;
ss->Spectro_Start = DEFAULT_SPECTRO_START;
ss->Wavelet_Type = DEFAULT_WAVELET_TYPE;
ss->Transform_Type = DEFAULT_TRANSFORM_TYPE;
ss->Show_Selection_Transform = DEFAULT_SHOW_SELECTION_TRANSFORM;
ss->With_Mix_Tags = DEFAULT_WITH_MIX_TAGS;
ss->With_Relative_Panes = DEFAULT_WITH_RELATIVE_PANES;
ss->With_GL = DEFAULT_WITH_GL;
ss->With_Background_Processes = DEFAULT_WITH_BACKGROUND_PROCESSES;
ss->With_File_Monitor = DEFAULT_WITH_FILE_MONITOR;
ss->Dot_Size = DEFAULT_DOT_SIZE;
ss->Grid_Density = DEFAULT_GRID_DENSITY;
ss->Cursor_Size = DEFAULT_CURSOR_SIZE;
ss->Cursor_Style = DEFAULT_CURSOR_STYLE;
ss->Tracking_Cursor_Style = DEFAULT_TRACKING_CURSOR_STYLE;
ss->cursor_proc = XEN_UNDEFINED;
ss->cursor_proc_loc = NOT_A_GC_LOC;
ss->Vu_Size = DEFAULT_VU_SIZE;
ss->Vu_In_dB = DEFAULT_VU_IN_DB;
ss->Selection_Creates_Region = DEFAULT_SELECTION_CREATES_REGION;
ss->Transform_Normalization = DEFAULT_TRANSFORM_NORMALIZATION;
ss->Zoom_Focus_Style = DEFAULT_ZOOM_FOCUS_STYLE;
ss->zoom_focus_proc = XEN_UNDEFINED;
ss->zoom_focus_proc_loc = NOT_A_GC_LOC;
ss->Graph_Style = DEFAULT_GRAPH_STYLE;
ss->Region_Graph_Style = DEFAULT_GRAPH_STYLE;
ss->Enved_Filter_Order = DEFAULT_ENVED_FILTER_ORDER;
ss->Verbose_Cursor = DEFAULT_VERBOSE_CURSOR;
if (MUS_DEFAULT_TEMP_DIR != (char *)NULL) ss->Temp_Dir = copy_string(MUS_DEFAULT_TEMP_DIR); else ss->Temp_Dir = NULL;
if (MUS_DEFAULT_SAVE_DIR != (char *)NULL) ss->Save_Dir = copy_string(MUS_DEFAULT_SAVE_DIR); else ss->Save_Dir = NULL;
if (DEFAULT_LADSPA_DIR != (char *)NULL) ss->Ladspa_Dir = copy_string(DEFAULT_LADSPA_DIR); else ss->Ladspa_Dir = NULL;
if (DEFAULT_EPS_FILE != (char *)NULL) ss->Eps_File = copy_string(DEFAULT_EPS_FILE); else ss->Eps_File = NULL;
ss->Eps_Bottom_Margin = DEFAULT_EPS_BOTTOM_MARGIN;
ss->Eps_Left_Margin = DEFAULT_EPS_LEFT_MARGIN;
ss->Eps_Size = DEFAULT_EPS_SIZE;
ss->Listener_Prompt = copy_string(DEFAULT_LISTENER_PROMPT);
ss->listener_prompt_length = snd_strlen(ss->Listener_Prompt);
ss->Show_Transform_Peaks = DEFAULT_SHOW_TRANSFORM_PEAKS;
ss->Show_Y_Zero = DEFAULT_SHOW_Y_ZERO;
ss->Show_Grid = DEFAULT_SHOW_GRID;
ss->Show_Sonogram_Cursor = DEFAULT_SHOW_SONOGRAM_CURSOR;
ss->Show_Axes = DEFAULT_SHOW_AXES;
ss->Show_Marks = DEFAULT_SHOW_MARKS;
ss->Show_Indices = DEFAULT_SHOW_INDICES;
ss->Show_Backtrace = DEFAULT_SHOW_BACKTRACE;
ss->Clipping = DEFAULT_CLIPPING;
ss->Fft_Log_Magnitude = DEFAULT_FFT_LOG_MAGNITUDE;
ss->Fft_Log_Frequency = DEFAULT_FFT_LOG_FREQUENCY;
ss->Channel_Style = DEFAULT_CHANNEL_STYLE;
ss->Sound_Style = DEFAULT_SOUND_STYLE;
ss->Audio_Input_Device = DEFAULT_AUDIO_INPUT_DEVICE;
ss->Audio_Output_Device = DEFAULT_AUDIO_OUTPUT_DEVICE;
ss->Optimization = DEFAULT_OPTIMIZATION;
ss->Print_Length = DEFAULT_PRINT_LENGTH;
ss->View_Files_Sort = DEFAULT_VIEW_FILES_SORT;
ss->Show_Mix_Waveforms = DEFAULT_SHOW_MIX_WAVEFORMS;
ss->Mix_Waveform_Height = DEFAULT_MIX_WAVEFORM_HEIGHT;
ss->Mix_Tag_Width = DEFAULT_MIX_TAG_WIDTH;
ss->Mix_Tag_Height = DEFAULT_MIX_TAG_HEIGHT;
ss->Mark_Tag_Width = DEFAULT_MARK_TAG_WIDTH;
ss->Mark_Tag_Height = DEFAULT_MARK_TAG_HEIGHT;
if (DEFAULT_SAVE_STATE_FILE != (char *)NULL) ss->Save_State_File = copy_string(DEFAULT_SAVE_STATE_FILE); else ss->Save_State_File = NULL;
ss->Enved_Base = DEFAULT_ENVED_BASE;
ss->Enved_Power = DEFAULT_ENVED_POWER;
ss->Enved_Wave_p = DEFAULT_ENVED_WAVE_P;
ss->Enved_Style = DEFAULT_ENVED_STYLE;
ss->Enved_Target = DEFAULT_ENVED_TARGET;
ss->Dac_Size = DEFAULT_DAC_SIZE;
ss->Dac_Combines_Channels = DEFAULT_DAC_COMBINES_CHANNELS;
ss->Auto_Update_Interval = DEFAULT_AUTO_UPDATE_INTERVAL;
ss->Cursor_Update_Interval = DEFAULT_CURSOR_UPDATE_INTERVAL;
ss->Cursor_Location_Offset = DEFAULT_CURSOR_LOCATION_OFFSET;
ss->Max_Regions = DEFAULT_MAX_REGIONS;
ss->Max_Transform_Peaks = DEFAULT_MAX_TRANSFORM_PEAKS;
ss->HTML_Dir = copy_string(DEFAULT_HTML_DIR);
ss->HTML_Program = copy_string(DEFAULT_HTML_PROGRAM);
ss->Log_Freq_Start = DEFAULT_LOG_FREQ_START;
ss->Min_dB = DEFAULT_MIN_DB;
ss->lin_dB = pow(10.0, DEFAULT_MIN_DB * 0.05);
ss->Expand_Control_Min = DEFAULT_EXPAND_CONTROL_MIN;
ss->Expand_Control_Max = DEFAULT_EXPAND_CONTROL_MAX;
ss->Amp_Control_Min = DEFAULT_AMP_CONTROL_MIN;
ss->Amp_Control_Max = DEFAULT_AMP_CONTROL_MAX;
ss->Speed_Control_Min = DEFAULT_SPEED_CONTROL_MIN;
ss->Speed_Control_Max = DEFAULT_SPEED_CONTROL_MAX;
ss->Contrast_Control_Min = DEFAULT_CONTRAST_CONTROL_MIN;
ss->Contrast_Control_Max = DEFAULT_CONTRAST_CONTROL_MAX;
ss->Contrast_Control_Amp = DEFAULT_CONTRAST_CONTROL_AMP;
ss->Expand_Control_Length = DEFAULT_EXPAND_CONTROL_LENGTH;
ss->Expand_Control_Ramp = DEFAULT_EXPAND_CONTROL_RAMP;
ss->Expand_Control_Hop = DEFAULT_EXPAND_CONTROL_HOP;
ss->Expand_Control_Jitter = DEFAULT_EXPAND_CONTROL_JITTER;
ss->Reverb_Control_Feedback = DEFAULT_REVERB_CONTROL_FEEDBACK;
ss->Reverb_Control_Lowpass = DEFAULT_REVERB_CONTROL_LOWPASS;
ss->Reverb_Control_Scale_Min = DEFAULT_REVERB_CONTROL_SCALE_MIN;
ss->Reverb_Control_Scale_Max = DEFAULT_REVERB_CONTROL_SCALE_MAX;
ss->Reverb_Control_Decay = DEFAULT_REVERB_CONTROL_DECAY;
ss->Speed_Control_Tones = DEFAULT_SPEED_CONTROL_TONES;
ss->Speed_Control_Style = DEFAULT_SPEED_CONTROL_STYLE;
ss->Reverb_Control_Length_Min = DEFAULT_REVERB_CONTROL_LENGTH_MIN;
ss->Reverb_Control_Length_Max = DEFAULT_REVERB_CONTROL_LENGTH_MAX;
ss->Filter_Control_Order = DEFAULT_FILTER_CONTROL_ORDER;
ss->Filter_Control_In_Db = DEFAULT_FILTER_CONTROL_IN_DB;
ss->Filter_Control_In_Hz = DEFAULT_FILTER_CONTROL_IN_HZ;
ss->Tempo_Control_Min = DEFAULT_TEMPO_CONTROL_MIN;
ss->Tempo_Control_Max = DEFAULT_TEMPO_CONTROL_MAX;
ss->Show_Controls = DEFAULT_SHOW_CONTROLS;
ss->With_Tracking_Cursor = DEFAULT_WITH_TRACKING_CURSOR;
ss->Just_Sounds = DEFAULT_JUST_SOUNDS;
}
