/denemo-0.9.2/src/scheme_cb.h
C++ Header | 6068 lines | 5732 code | 336 blank | 0 comment | 1680 complexity | cef5334775261c38269c231b401aae58 MD5 | raw file
Possible License(s): GPL-3.0
Large files files are truncated, but you can click here to view the full file
- SCM scheme_CursorLeft (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- cursorleft_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_MoveCursorLeft (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- movecursorleft_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_CursorDown (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- cursordown_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_CursorUp (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- cursorup_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_CursorRight (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- cursorright_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_MoveCursorRight (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- movecursorright_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_GoToMark (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- goto_mark (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_SwapPointAndMark (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- swap_point_and_mark (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_GoToSelectionStart (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- goto_selection_start (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_PushPosition (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- PushPosition (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_PopPosition (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- PopPosition (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_PopPushPosition (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- PopPushPosition (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_ToggleReduceToDrawingArea (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- ToggleReduceToDrawingArea (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_StaffUp (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- staffup_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_StaffDown (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- staffdown_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_MoveToStaffUp (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- movetostaffup_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_MoveToStaffDown (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- movetostaffdown_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_MeasureLeft (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- measureleft_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_MeasureRight (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- measureright_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_MoveToMeasureLeft (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- movetomeasureleft_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_MoveToMeasureRight (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- movetomeasureright_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_A (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- go_to_A_key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_B (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- go_to_B_key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_C (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- go_to_C_key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_D (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- go_to_D_key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_E (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- go_to_E_key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_F (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- go_to_F_key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_G (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- go_to_G_key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_OctaveUp (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- octave_up_key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_OctaveDown (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- octave_down_key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_WholeNote (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_chord_0key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_HalfNote (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_chord_1key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_QuarterNote (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_chord_2key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_EighthNote (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_chord_3key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_SixteenthNote (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_chord_4key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_ThirtysecondNote (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_chord_5key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_SixtyfourthNote (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_chord_6key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_OneHundredTwentyEighthNote (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_chord_7key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_TwoHundredFiftySixthNote (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_chord_8key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertWholeRest (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_rest_0key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertHalfRest (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_rest_1key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertQuarterRest (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_rest_2key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertEighthRest (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_rest_3key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertSixteenthRest (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_rest_4key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertThirtysecondRest (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_rest_5key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertSixtyfourthRest (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_rest_6key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertBlankWholeNote (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_blankchord_0key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertBlankHalfNote (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_blankchord_1key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertBlankQuarterNote (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_blankchord_2key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertBlankEighthNote (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_blankchord_3key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertBlankSixteenthNote (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_blankchord_4key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertBlankThirtysecondNote (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_blankchord_5key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertBlankSixtyfourthNote (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_blankchord_6key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertBlankOneHundredTwentyEighthNote (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_blankchord_7key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertBlankTwoHundredFiftySixthNote (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_blankchord_8key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_ToggleRestMode (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- rest_toggle_key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_ToggleBlankMode (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- toggle_blank_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertDuplet (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_duplet_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertTriplet (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_triplet_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_StartTriplet (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- start_triplet_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_EndTuplet (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- end_tuplet_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertQuadtuplet (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_quadtuplet_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertQuintuplet (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_quintuplet_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertSextuplet (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_sextuplet_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertSeptuplet (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_septuplet_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_AddNoteToChord (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- add_tone_key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_RemoveNoteFromChord (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- remove_tone_key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_Sharpen (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- sharpen_key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_Flatten (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- flatten_key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_PendingSharpen (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- pending_sharpen_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_PendingFlatten (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- pending_flatten_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_StemUp (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- stem_up_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_StemDown (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- stem_down_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_AddDot (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- add_dot_key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_RemoveDot (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- remove_dot_key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertTiedNote (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- tie_notes_key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_ToggleTie (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- toggle_tie (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_DeleteObject (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- deleteobject_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_DeletePreviousObject (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- deletepreviousobject_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertMeasure (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insert_measure_key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_AddMeasure (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- addmeasureafter_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertMeasureBefore (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insertmeasurebefore_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_InsertMeasureAfter (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- insertmeasureafter_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_AppendMeasure (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- append_measure_key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_DeleteMeasure (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- deletemeasure_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_DeleteMeasureAllStaffs (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- deletemeasureallstaffs_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_ShrinkMeasures (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- adjust_measure_less_width_key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_WidenMeasures (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- adjust_measure_more_width_key_cb (NULL, ¶m);
- if(param.status && query) return scm_makfrom0str (gstr->str); if(gstr) g_string_free(gstr, TRUE);
- return SCM_BOOL(param.status);
- }
- SCM scheme_ShorterStaffs (SCM optional) {
- gboolean query=FALSE;
- DenemoScriptParam param;
- GString *gstr=NULL;
- int length;
- char *str=NULL;
- if(scm_is_string(optional)){
- str = scm_to_locale_stringn(optional, &length);
- gstr = g_string_new_len(str, length);
- if(!strncmp("query",str,5)) query = TRUE; }
- param.string = gstr;
- param.status = FALSE;
-
- adjust_staff_less_height_key_cb (NULL, ¶m);
- if(param.status && query) retu…
Large files files are truncated, but you can click here to view the full file