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.1 by aloha, Fri Nov 24 13:45:58 2006 UTC revision 1.2 by aloha, Fri Nov 24 19:31:04 2006 UTC
# Line 5  Line 5 
5  #else  #else
6  #define SCM_CGEN_CONST const  #define SCM_CGEN_CONST const
7  #endif  #endif
8    #include "shiki.h"
9  static ScmObj xyzzylisp_buffer_substring(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)  static ScmObj xyzzylisp_buffer_substring(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
10  {  {
11    ScmObj start_scm;    ScmObj start_scm;
# Line 37  static ScmObj xyzzylisp_buffer_substring Line 38  static ScmObj xyzzylisp_buffer_substring
38  static SCM_DEFINE_STRING_CONST(xyzzylisp_buffer_substring__NAME, "buffer-substring", 16, 16);  static SCM_DEFINE_STRING_CONST(xyzzylisp_buffer_substring__NAME, "buffer-substring", 16, 16);
39  static SCM_DEFINE_SUBR(xyzzylisp_buffer_substring__STUB, 2, 0, SCM_OBJ(&xyzzylisp_buffer_substring__NAME), xyzzylisp_buffer_substring, NULL, NULL);  static SCM_DEFINE_SUBR(xyzzylisp_buffer_substring__STUB, 2, 0, SCM_OBJ(&xyzzylisp_buffer_substring__NAME), xyzzylisp_buffer_substring, NULL, NULL);
40    
 static ScmObj xyzzylisp_clear_current_buffer(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)  
 {  
   SCM_ENTER_SUBR("clear-current-buffer");  
   {  
   clear_current_buffer();  
   return SCM_NIL;  
   }  
 }  
   
 static SCM_DEFINE_STRING_CONST(xyzzylisp_clear_current_buffer__NAME, "clear-current-buffer", 20, 20);  
 static SCM_DEFINE_SUBR(xyzzylisp_clear_current_buffer__STUB, 0, 0, SCM_OBJ(&xyzzylisp_clear_current_buffer__NAME), xyzzylisp_clear_current_buffer, NULL, NULL);  
   
41  void Scm_Init_xyzzylisp(ScmModule *module)  void Scm_Init_xyzzylisp(ScmModule *module)
42  {  {
43    
44    SCM_DEFINE(module, "buffer-substring", SCM_OBJ(&xyzzylisp_buffer_substring__STUB));    SCM_DEFINE(module, "buffer-substring", SCM_OBJ(&xyzzylisp_buffer_substring__STUB));
   SCM_DEFINE(module, "clear-current-buffer", SCM_OBJ(&xyzzylisp_clear_current_buffer__STUB));  
45  }  }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help