Develop and Download Open Source Software

S 式エディタ

Browse CVS Repository

/[OSDN]/shiki/shiki/xyzzylisp.c

Diff of /shiki/shiki/xyzzylisp.c

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.9 by aloha, Tue Nov 28 16:29:22 2006 UTC revision 1.10 by aloha, Wed Nov 29 04:37:23 2006 UTC
# Line 665  SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT)); Line 665  SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
665  static SCM_DEFINE_STRING_CONST(xyzzylisp_yes_or_no_p__NAME, "yes-or-no-p", 11, 11);  static SCM_DEFINE_STRING_CONST(xyzzylisp_yes_or_no_p__NAME, "yes-or-no-p", 11, 11);
666  static SCM_DEFINE_SUBR(xyzzylisp_yes_or_no_p__STUB, 1, 0, SCM_OBJ(&xyzzylisp_yes_or_no_p__NAME), xyzzylisp_yes_or_no_p, NULL, NULL);  static SCM_DEFINE_SUBR(xyzzylisp_yes_or_no_p__STUB, 1, 0, SCM_OBJ(&xyzzylisp_yes_or_no_p__NAME), xyzzylisp_yes_or_no_p, NULL, NULL);
667    
668    static ScmObj xyzzylisp_no_or_yes_p(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
669    {
670      ScmObj msg_scm;
671      const char * msg;
672      SCM_ENTER_SUBR("no-or-yes-p");
673      msg_scm = SCM_ARGREF(0);
674      if (!SCM_STRINGP(msg_scm)) Scm_Error("const C string required, but got %S", msg_scm);
675      msg = SCM_STRING_CONST_CSTRING(msg_scm);
676      {
677    {
678    int SCM_RESULT;
679    SCM_RESULT = Shiki_no_or_yes_p(msg);
680    SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
681    }
682      }
683    }
684    
685    static SCM_DEFINE_STRING_CONST(xyzzylisp_no_or_yes_p__NAME, "no-or-yes-p", 11, 11);
686    static SCM_DEFINE_SUBR(xyzzylisp_no_or_yes_p__STUB, 1, 0, SCM_OBJ(&xyzzylisp_no_or_yes_p__NAME), xyzzylisp_no_or_yes_p, NULL, NULL);
687    
688  static ScmObj xyzzylisp_need_buffer_save_p(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)  static ScmObj xyzzylisp_need_buffer_save_p(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
689  {  {
690    ScmObj buffer_scm;    ScmObj buffer_scm;
# Line 754  void Scm_Init_xyzzylisp(ScmModule *modul Line 774  void Scm_Init_xyzzylisp(ScmModule *modul
774    SCM_DEFINE(module, "file-name-dialog", SCM_OBJ(&xyzzylisp_file_name_dialog__STUB));    SCM_DEFINE(module, "file-name-dialog", SCM_OBJ(&xyzzylisp_file_name_dialog__STUB));
775    KEYARG_title = Scm_MakeKeyword(&KEYARG_title__NAME);    KEYARG_title = Scm_MakeKeyword(&KEYARG_title__NAME);
776    SCM_DEFINE(module, "yes-or-no-p", SCM_OBJ(&xyzzylisp_yes_or_no_p__STUB));    SCM_DEFINE(module, "yes-or-no-p", SCM_OBJ(&xyzzylisp_yes_or_no_p__STUB));
777      SCM_DEFINE(module, "no-or-yes-p", SCM_OBJ(&xyzzylisp_no_or_yes_p__STUB));
778    SCM_DEFINE(module, "need-buffer-save-p", SCM_OBJ(&xyzzylisp_need_buffer_save_p__STUB));    SCM_DEFINE(module, "need-buffer-save-p", SCM_OBJ(&xyzzylisp_need_buffer_save_p__STUB));
779    SCM_DEFINE(module, "msgbox", SCM_OBJ(&xyzzylisp_msgbox__STUB));    SCM_DEFINE(module, "msgbox", SCM_OBJ(&xyzzylisp_msgbox__STUB));
780  }  }
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help