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.3 by aloha,
Sat Nov 25 09:10:43 2006 UTC




revision 1.4 by aloha,
Sat Nov 25 14:28:17 2006 UTC






#

Line 8 



Line 8 













8
   else
   else

















9
     SCM_RESULT = SCM_STRING(SCM_FALSE);
     SCM_RESULT = SCM_STRING(SCM_FALSE);

















10
   g_free(substr);"))
   g_free(substr);"))












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







12
 
 







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







14
 
  (body <void>







15
 
   "if(SCM_CHARP(char_or_string)) {







16
 
     gunichar u = SCM_CHAR_VALUE(char_or_string);







17
 
     gchar *str  = g_ucs4_to_utf8(&u, 1, NULL, NULL, NULL);







18
 
     gtk_text_buffer_insert_at_cursor(Shiki_CURRENT_TEXT_BUFFER, str, -1);







19
 
     g_free(str);







20
 
   } else if(SCM_STRINGP(char_or_string))







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







22
 
 







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







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







25
 
 (define-cproc point-min () (call <int> "Shiki_point_min"))







26
 
 (define-cproc goto-char (offset::<int>) (call <void> "Shiki_goto_char"))







27
 
 (define-cproc forward-char () (call <void> "Shiki_forward_char"))







28
 
 (define-cproc backward-char () (call <void> "Shiki_backward_char"))







29
 
 (define-cproc goto-line (line::<int>) (call <void> "Shiki_goto_line"))







30
 
 (define-cproc goto-bol () (call <void> "Shiki_goto_bol"))







31
 
 (define-cproc goto-eol () (call <void> "Shiki_goto_eol"))
























Legend:



Removed from v.1.3
 


changed lines


 
Added in v.1.4













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[OSDN]/shiki/shiki/xyzzylisp.stub
-revision 1.3 by aloha,
Sat Nov 25 09:10:43 2006 UTC
+revision 1.4 by aloha,
Sat Nov 25 14:28:17 2006 UTC
 Line 8
    else
      SCM_RESULT = SCM_STRING(SCM_FALSE);
    g_free(substr);"))
+ (define-cproc delete-region (start::<int> end::<int>)(call <void> "Shiki_delete_region"))
+ (define-cproc insert (char_or_string::<top>)
+  (body <void>
+   "if(SCM_CHARP(char_or_string)) {
+     gunichar u = SCM_CHAR_VALUE(char_or_string);
+     gchar *str  = g_ucs4_to_utf8(&u, 1, NULL, NULL, NULL);
+     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);"))
+ (define-cproc point () (call <int> "Shiki_point"))
+ (define-cproc point-max () (call <int> "Shiki_point_max"))
+ (define-cproc point-min () (call <int> "Shiki_point_min"))
+ (define-cproc goto-char (offset::<int>) (call <void> "Shiki_goto_char"))
+ (define-cproc forward-char () (call <void> "Shiki_forward_char"))
+ (define-cproc backward-char () (call <void> "Shiki_backward_char"))
+ (define-cproc goto-line (line::<int>) (call <void> "Shiki_goto_line"))
+ (define-cproc goto-bol () (call <void> "Shiki_goto_bol"))
+ (define-cproc goto-eol () (call <void> "Shiki_goto_eol"))
 Legend:



Removed from v.1.3
 


changed lines


 
Added in v.1.4
 Legend:



Removed from v.1.3
 


changed lines


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

Develop and Download Open Source Software

S 式エディタ

Browse CVS Repository