Diff of /shiki/shiki/xyzzylisp.stub

OSDN > Find Software > S 式エディタ

 Browse CVS Repository



/[OSDN]/shiki/shiki/xyzzylisp.stub




Diff of /shiki/shiki/xyzzylisp.stub



 Parent Directory

|  Revision Log


|  Revision Graph


|  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 22 



Line 22 













22
   if(SCM_RESULT)
   if(SCM_RESULT)

















23
     g_object_ref(SCM_RESULT);"))
     g_object_ref(SCM_RESULT);"))

















24
 
 












25
 
 (define-cproc buffer-lines (&optional buffer)







26
 
  (body <int>







27
 
   "  if(buffer == SCM_UNBOUND)







28
 
     SCM_RESULT = gtk_text_buffer_get_line_count(Shiki_CURRENT_TEXT_BUFFER);







29
 
   else if(SHIKI_BUFFER_P(buffer))







30
 
     SCM_RESULT = gtk_text_buffer_get_line_count(SHIKI_BUFFER_UNBOX(buffer));







31
 
   else







32
 
     Scm_Error(\"buffer required, but got %S\", buffer);"))







33
 
 







34
 
 (define-cproc buffer-size (&optional buffer)







35
 
  (body <int>







36
 
   "  if(buffer == SCM_UNBOUND)







37
 
     SCM_RESULT = gtk_text_buffer_get_char_count(Shiki_CURRENT_TEXT_BUFFER);







38
 
   else if(SHIKI_BUFFER_P(buffer))







39
 
     SCM_RESULT = gtk_text_buffer_get_char_count(SHIKI_BUFFER_UNBOX(buffer));







40
 
   else







41
 
     Scm_Error(\"buffer required, but got %S\", buffer);"))







42
 
 












43
 (define-cproc get-previous-buffer (&optional buffer)
 (define-cproc get-previous-buffer (&optional buffer)

















44
  (body <buffer>
  (body <buffer>

















45
   "  if(buffer == SCM_UNBOUND)
   "  if(buffer == SCM_UNBOUND)











#

Line 39 



Line 57 













57
 
 

















58
 (define-cproc next-buffer ()
 (define-cproc next-buffer ()

















59
  (body <void> "gtk_notebook_next_page(Shiki_EDITOR_NOTEBOOK);"))
  (body <void> "gtk_notebook_next_page(Shiki_EDITOR_NOTEBOOK);"))












60
 
 












61
 (define-cproc previous-buffer ()
 (define-cproc previous-buffer ()

















62
  (body <void> "gtk_notebook_prev_page(Shiki_EDITOR_NOTEBOOK);"))
  (body <void> "gtk_notebook_prev_page(Shiki_EDITOR_NOTEBOOK);"))

















63
 
 

















64
 (define-cproc buffer-name (buffer::<buffer>)
 (define-cproc buffer-name (buffer::<buffer>)

















65
  (expr <const-cstring>? "Shiki_buffer_name(buffer)"))
  (expr <const-cstring>? "Shiki_buffer_name(buffer)"))

















66
 
 












67
 
 (define-cproc deleted-buffer-p (buffer::<buffer>)







68
 
  (expr <boolean>? "Shiki_deleted_buffer_p(buffer)"))







69
 
 












70
 (define-cproc buffer-modified-p (&optional buffer)
 (define-cproc buffer-modified-p (&optional buffer)

















71
  (body <boolean>
  (body <boolean>

















72
   "  if(buffer == SCM_UNBOUND)
   "  if(buffer == SCM_UNBOUND)





























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
 /[OSDN]/shiki/shiki/xyzzylisp.stub
-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 22
    if(SCM_RESULT)
      g_object_ref(SCM_RESULT);"))
+ (define-cproc buffer-lines (&optional buffer)
+  (body <int>
+   "  if(buffer == SCM_UNBOUND)
+     SCM_RESULT = gtk_text_buffer_get_line_count(Shiki_CURRENT_TEXT_BUFFER);
+   else if(SHIKI_BUFFER_P(buffer))
+     SCM_RESULT = gtk_text_buffer_get_line_count(SHIKI_BUFFER_UNBOX(buffer));
+   else
+     Scm_Error(\"buffer required, but got %S\", buffer);"))
+ (define-cproc buffer-size (&optional buffer)
+  (body <int>
+   "  if(buffer == SCM_UNBOUND)
+     SCM_RESULT = gtk_text_buffer_get_char_count(Shiki_CURRENT_TEXT_BUFFER);
+   else if(SHIKI_BUFFER_P(buffer))
+     SCM_RESULT = gtk_text_buffer_get_char_count(SHIKI_BUFFER_UNBOX(buffer));
+   else
+     Scm_Error(\"buffer required, but got %S\", buffer);"))
  (define-cproc get-previous-buffer (&optional buffer)
   (body <buffer>
    "  if(buffer == SCM_UNBOUND)
-Line 39
+Line 57
  (define-cproc next-buffer ()
   (body <void> "gtk_notebook_next_page(Shiki_EDITOR_NOTEBOOK);"))
  (define-cproc previous-buffer ()
   (body <void> "gtk_notebook_prev_page(Shiki_EDITOR_NOTEBOOK);"))
  (define-cproc buffer-name (buffer::<buffer>)
   (expr <const-cstring>? "Shiki_buffer_name(buffer)"))
+ (define-cproc deleted-buffer-p (buffer::<buffer>)
+  (expr <boolean>? "Shiki_deleted_buffer_p(buffer)"))
  (define-cproc buffer-modified-p (&optional buffer)
   (body <boolean>
    "  if(buffer == SCM_UNBOUND)
 Legend:



Removed from v.1.6
 


changed lines


 
Added in v.1.7
 Legend:



Removed from v.1.6
 


changed lines


 
Added in v.1.7
-Removed from v.1.6
+Added in v.1.7
-Back to OSDN">Back to OSDN
+ViewVC Help
 Powered by ViewVC 1.1.26

Develop and Download Open Source Software

S 式エディタ

Browse CVS Repository