自学教程：C++ EDITOR_IAM函数代码示例

static void menu_cb_evaluate_noise_2_0 (EDITOR_ARGS) {	EDITOR_IAM (OTMultiEditor);	Editor_save (me, U"Evaluate (noise 2.0)");	OTMulti_newDisharmonies ((OTMulti) my data, 2.0);	Graphics_updateWs (my g);	Editor_broadcastDataChanged (me);}

static void menu_cb_evaluate_tinyNoise (EDITOR_ARGS) {	EDITOR_IAM (OTGrammarEditor);	Editor_save (me, L"Evaluate (tiny noise)");	OTGrammar_newDisharmonies ((OTGrammar) my data, 1e-9);	Graphics_updateWs (my g);	my broadcastDataChanged ();}

static void menu_cb_editRanking (EDITOR_ARGS) {	EDITOR_IAM (OTMultiEditor);	EDITOR_FORM (U"Edit ranking", 0)		LABEL (U"constraint", U"");		REAL (U"Ranking value", U"100.0");		REAL (U"Disharmony", U"100.0");	EDITOR_OK		OTMulti grammar = (OTMulti) my data;		OTConstraint constraint;		if (my selectedConstraint < 1 || my selectedConstraint > grammar -> numberOfConstraints)			Melder_throw (U"Select a constraint first.");		constraint = & grammar -> constraints [grammar -> index [my selectedConstraint]];		SET_STRING (U"constraint", constraint -> name)		SET_REAL (U"Ranking value", constraint -> ranking)		SET_REAL (U"Disharmony", constraint -> disharmony)	EDITOR_DO		OTMulti grammar = (OTMulti) my data;		OTConstraint constraint = & grammar -> constraints [grammar -> index [my selectedConstraint]];		Editor_save (me, U"Edit ranking");		constraint -> ranking = GET_REAL (U"Ranking value");		constraint -> disharmony = GET_REAL (U"Disharmony");		OTMulti_sort (grammar);		Graphics_updateWs (my g);		Editor_broadcastDataChanged (me);	EDITOR_END}

static void menu_cb_evaluate_zeroNoise (EDITOR_ARGS) {	EDITOR_IAM (OTGrammarEditor);	Editor_save (me, U"Evaluate (zero noise)");	OTGrammar_newDisharmonies ((OTGrammar) my data, 0.0);	Graphics_updateWs (my g);	Editor_broadcastDataChanged (me);}

static void menu_cb_addToDynamicMenu (EDITOR_ARGS) {	EDITOR_IAM (ScriptEditor);	EDITOR_FORM (U"Add to dynamic menu", U"Add to dynamic menu...")		WORD (U"Class 1", U"Sound")		INTEGER (U"Number 1", U"0")		WORD (U"Class 2", U"")		INTEGER (U"Number 2", U"0")		WORD (U"Class 3", U"")		INTEGER (U"Number 3", U"0")		SENTENCE (U"Command", U"Do it...")		SENTENCE (U"After command", U"")		INTEGER (U"Depth", U"0")		LABEL (U"", U"Script file:")		TEXTFIELD (U"Script", U"")	EDITOR_OK		if (my name [0])			SET_STRING (U"Script", my name)		else			SET_STRING (U"Script", U"(please save your script first)")	EDITOR_DO		praat_addActionScript (GET_STRING (U"Class 1"), GET_INTEGER (U"Number 1"),			GET_STRING (U"Class 2"), GET_INTEGER (U"Number 2"), GET_STRING (U"Class 3"),			GET_INTEGER (U"Number 3"), GET_STRING (U"Command"), GET_STRING (U"After command"),			GET_INTEGER (U"Depth"), GET_STRING (U"Script"));		praat_show ();	EDITOR_END}

static void menu_cb_runSelection (EDITOR_ARGS) {	EDITOR_IAM (ScriptEditor);	if (my interpreter -> running)		Melder_throw (U"The script is already running (paused). Please close or continue the pause or demo window.");	autostring32 text = GuiText_getSelection (my textWidget);	if (text.peek() == NULL)		Melder_throw (U"No text selected.");	structMelderFile file = { 0 };	if (my name [0]) {		Melder_pathToFile (my name, & file);		MelderFile_setDefaultDir (& file);	}	Melder_includeIncludeFiles (& text);	int npar = Interpreter_readParameters (my interpreter, text.peek());	if (npar) {		/*		 * Pop up a dialog box for querying the arguments.		 */		forget (my argsDialog);		my argsDialog = Interpreter_createForm (my interpreter, my d_windowForm, NULL, args_ok_selectionOnly, me, true);		UiForm_do (my argsDialog, false);	} else {		autoPraatBackground background;		if (my name [0]) MelderFile_setDefaultDir (& file);		Interpreter_run (my interpreter, text.peek());	}}

static void menu_cb_pitchSettings (EDITOR_ARGS) {	EDITOR_IAM (FormantGridEditor);	EDITOR_FORM (L"Source pitch settings", 0)		LABEL (L"", L"These settings apply to the pitch curve")		LABEL (L"", L"that you hear when playing the FormantGrid.")		REAL (L"Starting time", L"0.0%")		POSITIVE (L"Starting pitch (Hz)", L"150.0")		REAL (L"Mid time", L"25.0%")		POSITIVE (L"Mid pitch (Hz)", L"180.0")		REAL (L"End time", L"100.0%")		POSITIVE (L"End pitch (Hz)", L"120")	EDITOR_OK		SET_REAL (L"Starting time", my source.pitch.tStart)		SET_REAL (L"Starting pitch", my source.pitch.f0Start)		SET_REAL (L"Mid time", my source.pitch.tMid)		SET_REAL (L"Mid pitch", my source.pitch.f0Mid)		SET_REAL (L"End time", my source.pitch.tEnd)		SET_REAL (L"End pitch", my source.pitch.f0End)	EDITOR_DO		preferences.source.pitch.tStart = my source.pitch.tStart = GET_REAL (L"Starting time");		preferences.source.pitch.f0Start = my source.pitch.f0Start = GET_REAL (L"Starting pitch");		preferences.source.pitch.tMid = my source.pitch.tMid = GET_REAL (L"Mid time");		preferences.source.pitch.f0Mid = my source.pitch.f0Mid = GET_REAL (L"Mid pitch");		preferences.source.pitch.tEnd = my source.pitch.tEnd = GET_REAL (L"End time");		preferences.source.pitch.f0End = my source.pitch.f0End = GET_REAL (L"End pitch");	EDITOR_END}

static void menu_cb_pitchSettings (EDITOR_ARGS) {	EDITOR_IAM (FormantGridEditor);	EDITOR_FORM (U"Source pitch settings", 0)		LABEL (U"", U"These settings apply to the pitch curve")		LABEL (U"", U"that you hear when playing the FormantGrid.")		REAL     (U"Starting time",       my default_source_pitch_tStart  ())		POSITIVE (U"Starting pitch (Hz)", my default_source_pitch_f0Start ())		REAL     (U"Mid time",            my default_source_pitch_tMid    ())		POSITIVE (U"Mid pitch (Hz)",      my default_source_pitch_f0Mid   ())		REAL     (U"End time",            my default_source_pitch_tEnd    ())		POSITIVE (U"End pitch (Hz)",      my default_source_pitch_f0End   ())	EDITOR_OK		SET_REAL (U"Starting time",  my p_source_pitch_tStart)		SET_REAL (U"Starting pitch", my p_source_pitch_f0Start)		SET_REAL (U"Mid time",       my p_source_pitch_tMid)		SET_REAL (U"Mid pitch",      my p_source_pitch_f0Mid)		SET_REAL (U"End time",       my p_source_pitch_tEnd)		SET_REAL (U"End pitch",      my p_source_pitch_f0End)	EDITOR_DO		my pref_source_pitch_tStart  () = my p_source_pitch_tStart  = GET_REAL (U"Starting time");		my pref_source_pitch_f0Start () = my p_source_pitch_f0Start = GET_REAL (U"Starting pitch");		my pref_source_pitch_tMid    () = my p_source_pitch_tMid    = GET_REAL (U"Mid time");		my pref_source_pitch_f0Mid   () = my p_source_pitch_f0Mid   = GET_REAL (U"Mid pitch");		my pref_source_pitch_tEnd    () = my p_source_pitch_tEnd    = GET_REAL (U"End time");		my pref_source_pitch_f0End   () = my p_source_pitch_f0End   = GET_REAL (U"End pitch");	EDITOR_END}

static void menu_cb_editConstraint (EDITOR_ARGS) {	EDITOR_IAM (OTGrammarEditor);	EDITOR_FORM (U"Edit constraint", 0)		LABEL (U"constraint", U"");		REAL (U"Ranking value", U"100.0");		REAL (U"Disharmony", U"100.0");		REAL (U"Plasticity", U"1.0");	EDITOR_OK		OTGrammar ot = (OTGrammar) my data;		OTGrammarConstraint constraint;		if (my selected < 1 || my selected > ot -> numberOfConstraints)			Melder_throw (U"Select a constraint first.");		constraint = & ot -> constraints [ot -> index [my selected]];		SET_STRING (U"constraint", constraint -> name)		SET_REAL (U"Ranking value", constraint -> ranking)		SET_REAL (U"Disharmony", constraint -> disharmony)		SET_REAL (U"Plasticity", constraint -> plasticity)	EDITOR_DO		OTGrammar ot = (OTGrammar) my data;		OTGrammarConstraint constraint = & ot -> constraints [ot -> index [my selected]];		Editor_save (me, U"Edit constraint");		constraint -> ranking = GET_REAL (U"Ranking value");		constraint -> disharmony = GET_REAL (U"Disharmony");		constraint -> plasticity = GET_REAL (U"Plasticity");		OTGrammar_sort (ot);		Graphics_updateWs (my g);		Editor_broadcastDataChanged (me);	EDITOR_END}

static void menu_cb_evaluate_tinyNoise (EDITOR_ARGS) {	EDITOR_IAM (OTMultiEditor);	Editor_save (me, U"Evaluate (tiny noise)");	OTMulti_newDisharmonies ((OTMulti) my data, 1e-9);	Graphics_updateWs (my g);	Editor_broadcastDataChanged (me);}

static void menu_cb_MoveCursorToZero (EDITOR_ARGS) {	EDITOR_IAM (SoundEditor);	double zero = Sound_getNearestZeroCrossing ((Sound) my data, 0.5 * (my d_startSelection + my d_endSelection), 1);   // STEREO BUG	if (NUMdefined (zero)) {		my d_startSelection = my d_endSelection = zero;		FunctionEditor_marksChanged (me, true);	}}

static void menu_cb_ReverseSelection (EDITOR_ARGS) {	EDITOR_IAM (SoundEditor);	Editor_save (me, L"Reverse selection");	Sound_reverse ((Sound) my data, my d_startSelection, my d_endSelection);	my v_destroy_analysis ();	FunctionEditor_redraw (me);	Editor_broadcastDataChanged (me);}

static void menu_cb_moveCursorToPeak (EDITOR_ARGS) {	EDITOR_IAM (SpectrumEditor);	double frequencyOfMaximum, heightOfMaximum;	Spectrum_getNearestMaximum ((Spectrum) my data, 0.5 * (my d_startSelection + my d_endSelection), & frequencyOfMaximum, & heightOfMaximum);	my d_startSelection = my d_endSelection = frequencyOfMaximum;	my cursorHeight = heightOfMaximum;	FunctionEditor_marksChanged (me, true);}

static void menu_cb_octaveDown (EDITOR_ARGS) {	EDITOR_IAM (PitchEditor);	Pitch pitch = (Pitch) my data;	Editor_save (me, U"Octave down");	Pitch_step (pitch, 0.5, 0.1, my d_startSelection, my d_endSelection);	FunctionEditor_redraw (me);	Editor_broadcastDataChanged (me);}

static void menu_cb_addPointAtCursor (EDITOR_ARGS) {	EDITOR_IAM (FormantGridEditor);	Editor_save (me, U"Add point");	FormantGrid grid = (FormantGrid) my data;	Ordered tiers = my editingBandwidths ? grid -> bandwidths : grid -> formants;	RealTier tier = (RealTier) tiers -> item [my selectedFormant];	RealTier_addPoint (tier, 0.5 * (my d_startSelection + my d_endSelection), my ycursor);	FunctionEditor_redraw (me);	Editor_broadcastDataChanged (me);}

static void menu_cb_selectFormantOrBandwidth (EDITOR_ARGS) {	EDITOR_IAM (FormantGridEditor);	EDITOR_FORM (U"Select formant or bandwidth", 0)		NATURAL (U"Formant number", U"1")	EDITOR_OK		SET_INTEGER (U"Formant number", my selectedFormant)	EDITOR_DO		selectFormantOrBandwidth (me, GET_INTEGER (U"Formant number"));		FunctionEditor_redraw (me);	EDITOR_END}

static void menu_cb_expandIncludeFiles (EDITOR_ARGS) {	EDITOR_IAM (ScriptEditor);	structMelderFile file = { 0 };	autostring32 text = GuiText_getString (my textWidget);	if (my name [0]) {		Melder_pathToFile (my name, & file);		MelderFile_setDefaultDir (& file);	}	Melder_includeIncludeFiles (& text);	GuiText_setString (my textWidget, text.peek());}

static void menu_cb_removeConstraint (EDITOR_ARGS) {	EDITOR_IAM (OTMultiEditor);	OTMulti grammar = (OTMulti) my data;	if (my selectedConstraint < 1 || my selectedConstraint > grammar -> numberOfConstraints)		Melder_throw (U"Select a constraint first.");	OTConstraint constraint = & grammar -> constraints [grammar -> index [my selectedConstraint]];	Editor_save (me, U"Remove constraint");	OTMulti_removeConstraint (grammar, constraint -> name);	Graphics_updateWs (my g);	Editor_broadcastDataChanged (me);}

static void menu_cb_writeOneToHtmlFile (EDITOR_ARGS) {	EDITOR_IAM (Manual);	EDITOR_FORM_WRITE (L"Save as HTML file", 0)		ManPages manPages = (ManPages) my data;		wchar_t *p = defaultName;		wcscpy (p, ((ManPage) manPages -> pages -> item [my path]) -> title);		while (*p) { if (! isalnum (*p) && *p != '_') *p = '_'; p ++; }		wcscat (defaultName, L".html");	EDITOR_DO_WRITE		ManPages_writeOneToHtmlFile ((ManPages) my data, my path, file);	EDITOR_END}

static void menu_cb_searchForPageList (EDITOR_ARGS) {	EDITOR_IAM (Manual);	EDITOR_FORM (L"Search for page", 0)		ManPages manPages = (ManPages) my data;		long numberOfPages;		const wchar_t **pages = ManPages_getTitles (manPages, & numberOfPages);		LIST (L"Page", manPages -> pages -> size, pages, 1)	EDITOR_OK	EDITOR_DO		HyperPage_goToPage_i (me, GET_INTEGER (L"Page"));	EDITOR_END}

static void menu_cb_resetAllRankings (EDITOR_ARGS) {	EDITOR_IAM (OTMultiEditor);	EDITOR_FORM (U"Reset all rankings", 0)		REAL (U"Ranking", U"100.0")	EDITOR_OK	EDITOR_DO		Editor_save (me, U"Reset all rankings");		OTMulti_reset ((OTMulti) my data, GET_REAL (U"Ranking"));		Graphics_updateWs (my g);		Editor_broadcastDataChanged (me);	EDITOR_END}

static void menu_cb_evaluate (EDITOR_ARGS) {	EDITOR_IAM (OTMultiEditor);	EDITOR_FORM (U"Evaluate", 0)		REAL (U"Evaluation noise", U"2.0")	EDITOR_OK	EDITOR_DO		Editor_save (me, U"Evaluate");		OTMulti_newDisharmonies ((OTMulti) my data, GET_REAL (U"Evaluation noise"));		Graphics_updateWs (my g);		Editor_broadcastDataChanged (me);	EDITOR_END}