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.5 by aloha,
Sun Nov 26 00:41:57 2006 UTC




revision 1.6 by aloha,
Sun Nov 26 15:34:16 2006 UTC






#

Line 3 



Line 3 













3
 (define-type <buffer> "GtkTextBuffer*" "buffer"
 (define-type <buffer> "GtkTextBuffer*" "buffer"

















4
   "SHIKI_BUFFER_P" "SHIKI_BUFFER_UNBOX" "SHIKI_BUFFER_BOX")
   "SHIKI_BUFFER_P" "SHIKI_BUFFER_UNBOX" "SHIKI_BUFFER_BOX")

















5
 
 












6
 
 (define-cproc bufferp (buffer)







7
 
  (call <boolean> "SHIKI_BUFFER_P"))







8
 
 












9
 (define-cproc selected-buffer ()
 (define-cproc selected-buffer ()

















10
  (body <buffer>
  (body <buffer>

















11
   "  g_object_ref(Shiki_CURRENT_TEXT_BUFFER);
   "  g_object_ref(Shiki_CURRENT_TEXT_BUFFER);

















12
   SCM_RESULT = Shiki_CURRENT_TEXT_BUFFER;"))
   SCM_RESULT = Shiki_CURRENT_TEXT_BUFFER;"))

















13
 
 












14
 
 (define-cproc get-next-buffer (&optional buffer)







15
 
  (body <buffer>







16
 
   "  if(buffer == SCM_UNBOUND)







17
 
     SCM_RESULT = Shiki_get_next_buffer(Shiki_CURRENT_TEXT_BUFFER);







18
 
   else if(SHIKI_BUFFER_P(buffer))







19
 
     SCM_RESULT = Shiki_get_next_buffer(SHIKI_BUFFER_UNBOX(buffer));







20
 
   else







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







22
 
   if(SCM_RESULT)







23
 
     g_object_ref(SCM_RESULT);"))







24
 
 







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







26
 
  (body <buffer>







27
 
   "  if(buffer == SCM_UNBOUND)







28
 
     SCM_RESULT = Shiki_get_previous_buffer(Shiki_CURRENT_TEXT_BUFFER);







29
 
   else if(SHIKI_BUFFER_P(buffer))







30
 
     SCM_RESULT = Shiki_get_previous_buffer(SHIKI_BUFFER_UNBOX(buffer));







31
 
   else







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







33
 
   if(SCM_RESULT)







34
 
     g_object_ref(SCM_RESULT);")







35
 
  )







36
 
 







37
 
 (define-cproc buffer-list ()







38
 
  (call "Shiki_buffer_list"))







39
 
 







40
 
 (define-cproc next-buffer ()







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







42
 
 (define-cproc previous-buffer ()







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







44
 
 







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







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







47
 
 







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







49
 
  (body <boolean>







50
 
   "  if(buffer == SCM_UNBOUND)







51
 
     SCM_RESULT = gtk_text_buffer_get_modified(Shiki_CURRENT_TEXT_BUFFER);







52
 
   else if(SHIKI_BUFFER_P(buffer))







53
 
     SCM_RESULT = gtk_text_buffer_get_modified(SHIKI_BUFFER_UNBOX(buffer));







54
 
   else







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







56
 
 












57
 (define-cproc buffer-substring (start::<int> end::<int>)
 (define-cproc buffer-substring (start::<int> end::<int>)

















58
  (body <string>?
  (body <string>?

















59
   "  gchar *substr = Shiki_buffer_substring(start, end);
   "  gchar *substr = Shiki_buffer_substring(start, end);











#

Line 19 



Line 65 













65
 
 

















66
 (define-cproc delete-region (start::<int> end::<int>)(call <void> "Shiki_delete_region"))
 (define-cproc delete-region (start::<int> end::<int>)(call <void> "Shiki_delete_region"))

















67
 
 















68


 (define-cproc insert (char_or_string::<top>)


 (define-cproc insert (char_or_string)















69
  (body <void>
  (body <void>

















70
   "if(SCM_CHARP(char_or_string)) {
   "if(SCM_CHARP(char_or_string)) {

















71
     gunichar u = SCM_CHAR_VALUE(char_or_string);
     gunichar u = SCM_CHAR_VALUE(char_or_string);











#

Line 27 



Line 73 













73
     gtk_text_buffer_insert_at_cursor(Shiki_CURRENT_TEXT_BUFFER, str, -1);
     gtk_text_buffer_insert_at_cursor(Shiki_CURRENT_TEXT_BUFFER, str, -1);

















74
     g_free(str);
     g_free(str);

















75
   } else if(SCM_STRINGP(char_or_string))
   } else if(SCM_STRINGP(char_or_string))















76


     gtk_text_buffer_insert_at_cursor(Shiki_CURRENT_TEXT_BUFFER, SCM_STRING_CONST_CSTRING(char_or_string), -1);"))


     gtk_text_buffer_insert_at_cursor(Shiki_CURRENT_TEXT_BUFFER, SCM_STRING_CONST_CSTRING(char_or_string), -1);













77


 


     else













78


 


     Scm_Error(\"character or string required, but got %S\", char_or_string);"))















79
 
 

















80
 (define-cproc point () (call <int> "Shiki_point"))
 (define-cproc point () (call <int> "Shiki_point"))

















81
 (define-cproc point-max () (call <int> "Shiki_point_max"))
 (define-cproc point-max () (call <int> "Shiki_point_max"))





























Legend:



Removed from v.1.5
 


changed lines


 
Added in v.1.6













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[OSDN]/shiki/shiki/xyzzylisp.stub
-revision 1.5 by aloha,
Sun Nov 26 00:41:57 2006 UTC
+revision 1.6 by aloha,
Sun Nov 26 15:34:16 2006 UTC
 Line 3
  (define-type <buffer> "GtkTextBuffer*" "buffer"
    "SHIKI_BUFFER_P" "SHIKI_BUFFER_UNBOX" "SHIKI_BUFFER_BOX")
+ (define-cproc bufferp (buffer)
+  (call <boolean> "SHIKI_BUFFER_P"))
  (define-cproc selected-buffer ()
   (body <buffer>
    "  g_object_ref(Shiki_CURRENT_TEXT_BUFFER);
    SCM_RESULT = Shiki_CURRENT_TEXT_BUFFER;"))
+ (define-cproc get-next-buffer (&optional buffer)
+  (body <buffer>
+   "  if(buffer == SCM_UNBOUND)
+     SCM_RESULT = Shiki_get_next_buffer(Shiki_CURRENT_TEXT_BUFFER);
+   else if(SHIKI_BUFFER_P(buffer))
+     SCM_RESULT = Shiki_get_next_buffer(SHIKI_BUFFER_UNBOX(buffer));
+   else
+     Scm_Error(\"buffer required, but got %S\", buffer);
+   if(SCM_RESULT)
+     g_object_ref(SCM_RESULT);"))
+ (define-cproc get-previous-buffer (&optional buffer)
+  (body <buffer>
+   "  if(buffer == SCM_UNBOUND)
+     SCM_RESULT = Shiki_get_previous_buffer(Shiki_CURRENT_TEXT_BUFFER);
+   else if(SHIKI_BUFFER_P(buffer))
+     SCM_RESULT = Shiki_get_previous_buffer(SHIKI_BUFFER_UNBOX(buffer));
+   else
+     Scm_Error(\"buffer required, but got %S\", buffer);
+   if(SCM_RESULT)
+     g_object_ref(SCM_RESULT);")
+  )
+ (define-cproc buffer-list ()
+  (call "Shiki_buffer_list"))
+ (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 buffer-modified-p (&optional buffer)
+  (body <boolean>
+   "  if(buffer == SCM_UNBOUND)
+     SCM_RESULT = gtk_text_buffer_get_modified(Shiki_CURRENT_TEXT_BUFFER);
+   else if(SHIKI_BUFFER_P(buffer))
+     SCM_RESULT = gtk_text_buffer_get_modified(SHIKI_BUFFER_UNBOX(buffer));
+   else
+     Scm_Error(\"buffer required, but got %S\", buffer);"))
  (define-cproc buffer-substring (start::<int> end::<int>)
   (body <string>?
    "  gchar *substr = Shiki_buffer_substring(start, end);
-Line 19
+Line 65
  (define-cproc delete-region (start::<int> end::<int>)(call <void> "Shiki_delete_region"))
- (define-cproc insert (char_or_string::<top>)
+ (define-cproc insert (char_or_string)
   (body <void>
    "if(SCM_CHARP(char_or_string)) {
      gunichar u = SCM_CHAR_VALUE(char_or_string);
-Line 27
+Line 73
      gtk_text_buffer_insert_at_cursor(Shiki_CURRENT_TEXT_BUFFER, str, -1);
      g_free(str);
    } else if(SCM_STRINGP(char_or_string))
-     gtk_text_buffer_insert_at_cursor(Shiki_CURRENT_TEXT_BUFFER, SCM_STRING_CONST_CSTRING(char_or_string), -1);"))
+     gtk_text_buffer_insert_at_cursor(Shiki_CURRENT_TEXT_BUFFER, SCM_STRING_CONST_CSTRING(char_or_string), -1);
+     else
+     Scm_Error(\"character or string required, but got %S\", char_or_string);"))
  (define-cproc point () (call <int> "Shiki_point"))
  (define-cproc point-max () (call <int> "Shiki_point_max"))
 Legend:



Removed from v.1.5
 


changed lines


 
Added in v.1.6
 Legend:



Removed from v.1.5
 


changed lines


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

Develop and Download Open Source Software

S 式エディタ

Browse CVS Repository