C++ (Cpp) s_color_map_to_scmの例

コード例 #1

ファイル: g_rc.c プロジェクト: igutekunst/geda-gaf

SCM g_rc_print_color_map (SCM scm_map)
{
  if (scm_map == SCM_UNDEFINED) {
    return s_color_map_to_scm (print_colors);
  }

  SCM_ASSERT (scm_is_true (scm_list_p (scm_map)),
              scm_map, SCM_ARG1, "print-color-map");

  s_color_map_from_scm (print_colors, scm_map, "print-color-map");
  return SCM_BOOL_T;
}

コード例 #2

ファイル: g_rc.c プロジェクト: bert/geda-gaf

SCM g_rc_display_outline_color_map (SCM scm_map)
{
    if (scm_map == SCM_UNDEFINED) {
        return s_color_map_to_scm (display_outline_colors);
    }

    SCM_ASSERT (scm_is_true (scm_list_p (scm_map)),
                scm_map, SCM_ARG1, "display-outline-color-map");

    s_color_map_from_scm (display_outline_colors, scm_map, "display-outline-color-map");
    return SCM_BOOL_T;
}