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.6 by aloha, Sun Nov 26 15:34:16 2006 UTC revision 1.7 by aloha, Sun Nov 26 18:41:43 2006 UTC
# Line 74  SCM_RETURN(SHIKI_BUFFER_BOX(SCM_RESULT)) Line 74  SCM_RETURN(SHIKI_BUFFER_BOX(SCM_RESULT))
74  static SCM_DEFINE_STRING_CONST(xyzzylisp_get_next_buffer__NAME, "get-next-buffer", 15, 15);  static SCM_DEFINE_STRING_CONST(xyzzylisp_get_next_buffer__NAME, "get-next-buffer", 15, 15);
75  static SCM_DEFINE_SUBR(xyzzylisp_get_next_buffer__STUB, 0, 1, SCM_OBJ(&xyzzylisp_get_next_buffer__NAME), xyzzylisp_get_next_buffer, NULL, NULL);  static SCM_DEFINE_SUBR(xyzzylisp_get_next_buffer__STUB, 0, 1, SCM_OBJ(&xyzzylisp_get_next_buffer__NAME), xyzzylisp_get_next_buffer, NULL, NULL);
76    
77    static ScmObj xyzzylisp_buffer_lines(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
78    {
79      ScmObj buffer_scm;
80      ScmObj buffer;
81      ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1);
82      SCM_ENTER_SUBR("buffer-lines");
83      if (Scm_Length(SCM_OPTARGS) > 1)
84        Scm_Error("too many arguments: up to 1 is expected, %d given.", Scm_Length(SCM_OPTARGS));
85      if (SCM_NULLP(SCM_OPTARGS)) buffer_scm = SCM_UNBOUND;
86      else {
87        buffer_scm = SCM_CAR(SCM_OPTARGS);
88        SCM_OPTARGS = SCM_CDR(SCM_OPTARGS);
89      }
90      buffer = (buffer_scm);
91      {
92    {
93    int SCM_RESULT;
94      if(buffer == SCM_UNBOUND)
95        SCM_RESULT = gtk_text_buffer_get_line_count(Shiki_CURRENT_TEXT_BUFFER);
96      else if(SHIKI_BUFFER_P(buffer))
97        SCM_RESULT = gtk_text_buffer_get_line_count(SHIKI_BUFFER_UNBOX(buffer));
98      else
99        Scm_Error("buffer required, but got %S", buffer);
100    SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
101    }
102      }
103    }
104    
105    static SCM_DEFINE_STRING_CONST(xyzzylisp_buffer_lines__NAME, "buffer-lines", 12, 12);
106    static SCM_DEFINE_SUBR(xyzzylisp_buffer_lines__STUB, 0, 1, SCM_OBJ(&xyzzylisp_buffer_lines__NAME), xyzzylisp_buffer_lines, NULL, NULL);
107    
108    static ScmObj xyzzylisp_buffer_size(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
109    {
110      ScmObj buffer_scm;
111      ScmObj buffer;
112      ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1);
113      SCM_ENTER_SUBR("buffer-size");
114      if (Scm_Length(SCM_OPTARGS) > 1)
115        Scm_Error("too many arguments: up to 1 is expected, %d given.", Scm_Length(SCM_OPTARGS));
116      if (SCM_NULLP(SCM_OPTARGS)) buffer_scm = SCM_UNBOUND;
117      else {
118        buffer_scm = SCM_CAR(SCM_OPTARGS);
119        SCM_OPTARGS = SCM_CDR(SCM_OPTARGS);
120      }
121      buffer = (buffer_scm);
122      {
123    {
124    int SCM_RESULT;
125      if(buffer == SCM_UNBOUND)
126        SCM_RESULT = gtk_text_buffer_get_char_count(Shiki_CURRENT_TEXT_BUFFER);
127      else if(SHIKI_BUFFER_P(buffer))
128        SCM_RESULT = gtk_text_buffer_get_char_count(SHIKI_BUFFER_UNBOX(buffer));
129      else
130        Scm_Error("buffer required, but got %S", buffer);
131    SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
132    }
133      }
134    }
135    
136    static SCM_DEFINE_STRING_CONST(xyzzylisp_buffer_size__NAME, "buffer-size", 11, 11);
137    static SCM_DEFINE_SUBR(xyzzylisp_buffer_size__STUB, 0, 1, SCM_OBJ(&xyzzylisp_buffer_size__NAME), xyzzylisp_buffer_size, NULL, NULL);
138    
139  static ScmObj xyzzylisp_get_previous_buffer(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)  static ScmObj xyzzylisp_get_previous_buffer(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
140  {  {
141    ScmObj buffer_scm;    ScmObj buffer_scm;
# Line 166  SCM_RETURN(SCM_MAKE_MAYBE(SCM_MAKE_STR_C Line 228  SCM_RETURN(SCM_MAKE_MAYBE(SCM_MAKE_STR_C
228  static SCM_DEFINE_STRING_CONST(xyzzylisp_buffer_name__NAME, "buffer-name", 11, 11);  static SCM_DEFINE_STRING_CONST(xyzzylisp_buffer_name__NAME, "buffer-name", 11, 11);
229  static SCM_DEFINE_SUBR(xyzzylisp_buffer_name__STUB, 1, 0, SCM_OBJ(&xyzzylisp_buffer_name__NAME), xyzzylisp_buffer_name, NULL, NULL);  static SCM_DEFINE_SUBR(xyzzylisp_buffer_name__STUB, 1, 0, SCM_OBJ(&xyzzylisp_buffer_name__NAME), xyzzylisp_buffer_name, NULL, NULL);
230    
231    static ScmObj xyzzylisp_deleted_buffer_p(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
232    {
233      ScmObj buffer_scm;
234      GtkTextBuffer* buffer;
235      SCM_ENTER_SUBR("deleted-buffer-p");
236      buffer_scm = SCM_ARGREF(0);
237      if (!SHIKI_BUFFER_P(buffer_scm)) Scm_Error("buffer required, but got %S", buffer_scm);
238      buffer = SHIKI_BUFFER_UNBOX(buffer_scm);
239      {
240    {
241    int SCM_RESULT;
242     SCM_RESULT = (Shiki_deleted_buffer_p(buffer));
243    SCM_RETURN(SCM_MAKE_MAYBE(SCM_MAKE_BOOL, SCM_RESULT));
244    }
245      }
246    }
247    
248    static SCM_DEFINE_STRING_CONST(xyzzylisp_deleted_buffer_p__NAME, "deleted-buffer-p", 16, 16);
249    static SCM_DEFINE_SUBR(xyzzylisp_deleted_buffer_p__STUB, 1, 0, SCM_OBJ(&xyzzylisp_deleted_buffer_p__NAME), xyzzylisp_deleted_buffer_p, NULL, NULL);
250    
251  static ScmObj xyzzylisp_buffer_modified_p(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)  static ScmObj xyzzylisp_buffer_modified_p(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
252  {  {
253    ScmObj buffer_scm;    ScmObj buffer_scm;
# Line 406  void Scm_Init_xyzzylisp(ScmModule *modul Line 488  void Scm_Init_xyzzylisp(ScmModule *modul
488    SCM_DEFINE(module, "bufferp", SCM_OBJ(&xyzzylisp_bufferp__STUB));    SCM_DEFINE(module, "bufferp", SCM_OBJ(&xyzzylisp_bufferp__STUB));
489    SCM_DEFINE(module, "selected-buffer", SCM_OBJ(&xyzzylisp_selected_buffer__STUB));    SCM_DEFINE(module, "selected-buffer", SCM_OBJ(&xyzzylisp_selected_buffer__STUB));
490    SCM_DEFINE(module, "get-next-buffer", SCM_OBJ(&xyzzylisp_get_next_buffer__STUB));    SCM_DEFINE(module, "get-next-buffer", SCM_OBJ(&xyzzylisp_get_next_buffer__STUB));
491      SCM_DEFINE(module, "buffer-lines", SCM_OBJ(&xyzzylisp_buffer_lines__STUB));
492      SCM_DEFINE(module, "buffer-size", SCM_OBJ(&xyzzylisp_buffer_size__STUB));
493    SCM_DEFINE(module, "get-previous-buffer", SCM_OBJ(&xyzzylisp_get_previous_buffer__STUB));    SCM_DEFINE(module, "get-previous-buffer", SCM_OBJ(&xyzzylisp_get_previous_buffer__STUB));
494    SCM_DEFINE(module, "buffer-list", SCM_OBJ(&xyzzylisp_buffer_list__STUB));    SCM_DEFINE(module, "buffer-list", SCM_OBJ(&xyzzylisp_buffer_list__STUB));
495    SCM_DEFINE(module, "next-buffer", SCM_OBJ(&xyzzylisp_next_buffer__STUB));    SCM_DEFINE(module, "next-buffer", SCM_OBJ(&xyzzylisp_next_buffer__STUB));
496    SCM_DEFINE(module, "previous-buffer", SCM_OBJ(&xyzzylisp_previous_buffer__STUB));    SCM_DEFINE(module, "previous-buffer", SCM_OBJ(&xyzzylisp_previous_buffer__STUB));
497    SCM_DEFINE(module, "buffer-name", SCM_OBJ(&xyzzylisp_buffer_name__STUB));    SCM_DEFINE(module, "buffer-name", SCM_OBJ(&xyzzylisp_buffer_name__STUB));
498      SCM_DEFINE(module, "deleted-buffer-p", SCM_OBJ(&xyzzylisp_deleted_buffer_p__STUB));
499    SCM_DEFINE(module, "buffer-modified-p", SCM_OBJ(&xyzzylisp_buffer_modified_p__STUB));    SCM_DEFINE(module, "buffer-modified-p", SCM_OBJ(&xyzzylisp_buffer_modified_p__STUB));
500    SCM_DEFINE(module, "buffer-substring", SCM_OBJ(&xyzzylisp_buffer_substring__STUB));    SCM_DEFINE(module, "buffer-substring", SCM_OBJ(&xyzzylisp_buffer_substring__STUB));
501    SCM_DEFINE(module, "delete-region", SCM_OBJ(&xyzzylisp_delete_region__STUB));    SCM_DEFINE(module, "delete-region", SCM_OBJ(&xyzzylisp_delete_region__STUB));
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help