- return scm_call_1 (proc, scm_makfrom0str (s.c_str ()));
-}
-
-struct Parser_signature
-{
- char *symbol;
- int token_type;
-};
-static SCM signature_hash_table;
-
-static void init_signature_hash_table ()
-{
- signature_hash_table = scm_gc_protect_object (scm_c_make_hash_table (31));
- Parser_signature sigs[] = {
- {"scm", MUSIC_FUNCTION_SCM},
- {"music", MUSIC_FUNCTION_MUSIC},
- {"scm-music", MUSIC_FUNCTION_SCM_MUSIC},
- {"scm-scm", MUSIC_FUNCTION_SCM_SCM},
- {"music-music", MUSIC_FUNCTION_MUSIC_MUSIC},
- {"scm-music-music", MUSIC_FUNCTION_SCM_MUSIC_MUSIC},
- {"scm-scm-music-music", MUSIC_FUNCTION_SCM_SCM_MUSIC_MUSIC},
- {"scm-scm-music", MUSIC_FUNCTION_SCM_SCM_MUSIC},
- {"scm-scm-scm-music", MUSIC_FUNCTION_SCM_SCM_SCM_SCM_MUSIC},
- {"scm-scm-scm-scm-music", MUSIC_FUNCTION_SCM_SCM_SCM_MUSIC},
- {"scm-scm-scm", MUSIC_FUNCTION_SCM_SCM_SCM},
- {"markup", MUSIC_FUNCTION_MARKUP},
- {"markup-music", MUSIC_FUNCTION_MARKUP_MUSIC},
- {"markup-markup", MUSIC_FUNCTION_MARKUP_MARKUP},
- {"markup-music-music", MUSIC_FUNCTION_MARKUP_MUSIC_MUSIC},
- {"markup-markup-music", MUSIC_FUNCTION_MARKUP_MARKUP_MUSIC},
- {"noarg", MUSIC_FUNCTION},
- {0,0}
- };
-
- for (int i = 0; sigs[i].symbol; i++)
- scm_hashq_set_x (signature_hash_table, ly_symbol2scm (sigs[i].symbol),
- scm_from_int (sigs[i].token_type));