Develop and Download Open Source Software

S 式エディタ

Browse CVS Repository

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

Diff of /shiki/shiki/xyzzylisp.stub

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.8 by aloha, Mon Nov 27 12:01:50 2006 UTC revision 1.9 by aloha, Tue Nov 28 16:29:22 2006 UTC
# Line 13  Line 13 
13    
14  (define-cproc get-next-buffer (&optional buffer)  (define-cproc get-next-buffer (&optional buffer)
15   (body <buffer>   (body <buffer>
16    "  if(buffer == SCM_UNBOUND)    "  SCM_RESULT = NULL;
17      if(buffer == SCM_UNBOUND)
18      SCM_RESULT = Shiki_get_next_buffer(Shiki_CURRENT_TEXT_BUFFER);      SCM_RESULT = Shiki_get_next_buffer(Shiki_CURRENT_TEXT_BUFFER);
19    else if(SHIKI_BUFFER_P(buffer))    else if(SHIKI_BUFFER_P(buffer))
20      SCM_RESULT = Shiki_get_next_buffer(SHIKI_BUFFER_UNBOX(buffer));      SCM_RESULT = Shiki_get_next_buffer(SHIKI_BUFFER_UNBOX(buffer));
# Line 24  Line 25 
25    
26  (define-cproc buffer-lines (&optional buffer)  (define-cproc buffer-lines (&optional buffer)
27   (body <int>   (body <int>
28    "  if(buffer == SCM_UNBOUND)    "  SCM_RESULT = -1;
29      if(buffer == SCM_UNBOUND)
30      SCM_RESULT = gtk_text_buffer_get_line_count(Shiki_CURRENT_TEXT_BUFFER);      SCM_RESULT = gtk_text_buffer_get_line_count(Shiki_CURRENT_TEXT_BUFFER);
31    else if(SHIKI_BUFFER_P(buffer))    else if(SHIKI_BUFFER_P(buffer))
32      SCM_RESULT = gtk_text_buffer_get_line_count(SHIKI_BUFFER_UNBOX(buffer));      SCM_RESULT = gtk_text_buffer_get_line_count(SHIKI_BUFFER_UNBOX(buffer));
# Line 33  Line 35 
35    
36  (define-cproc buffer-size (&optional buffer)  (define-cproc buffer-size (&optional buffer)
37   (body <int>   (body <int>
38    "  if(buffer == SCM_UNBOUND)    "  SCM_RESULT = -1;
39      if(buffer == SCM_UNBOUND)
40      SCM_RESULT = gtk_text_buffer_get_char_count(Shiki_CURRENT_TEXT_BUFFER);      SCM_RESULT = gtk_text_buffer_get_char_count(Shiki_CURRENT_TEXT_BUFFER);
41    else if(SHIKI_BUFFER_P(buffer))    else if(SHIKI_BUFFER_P(buffer))
42      SCM_RESULT = gtk_text_buffer_get_char_count(SHIKI_BUFFER_UNBOX(buffer));      SCM_RESULT = gtk_text_buffer_get_char_count(SHIKI_BUFFER_UNBOX(buffer));
# Line 69  Line 72 
72    
73  (define-cproc get-previous-buffer (&optional buffer)  (define-cproc get-previous-buffer (&optional buffer)
74   (body <buffer>   (body <buffer>
75    "  if(buffer == SCM_UNBOUND)    "  SCM_RESULT = NULL;
76      if(buffer == SCM_UNBOUND)
77      SCM_RESULT = Shiki_get_previous_buffer(Shiki_CURRENT_TEXT_BUFFER);      SCM_RESULT = Shiki_get_previous_buffer(Shiki_CURRENT_TEXT_BUFFER);
78    else if(SHIKI_BUFFER_P(buffer))    else if(SHIKI_BUFFER_P(buffer))
79      SCM_RESULT = Shiki_get_previous_buffer(SHIKI_BUFFER_UNBOX(buffer));      SCM_RESULT = Shiki_get_previous_buffer(SHIKI_BUFFER_UNBOX(buffer));
# Line 96  Line 100 
100    
101  (define-cproc buffer-modified-p (&optional buffer)  (define-cproc buffer-modified-p (&optional buffer)
102   (body <boolean>   (body <boolean>
103    "  if(buffer == SCM_UNBOUND)    "  SCM_RESULT = FALSE;
104      if(buffer == SCM_UNBOUND)
105      SCM_RESULT = gtk_text_buffer_get_modified(Shiki_CURRENT_TEXT_BUFFER);      SCM_RESULT = gtk_text_buffer_get_modified(Shiki_CURRENT_TEXT_BUFFER);
106    else if(SHIKI_BUFFER_P(buffer))    else if(SHIKI_BUFFER_P(buffer))
107      SCM_RESULT = gtk_text_buffer_get_modified(SHIKI_BUFFER_UNBOX(buffer));      SCM_RESULT = gtk_text_buffer_get_modified(SHIKI_BUFFER_UNBOX(buffer));
# Line 144  Line 149 
149    
150  (define-cproc yes-or-no-p (msg::<const-cstring>)  (define-cproc yes-or-no-p (msg::<const-cstring>)
151   (call <boolean> "Shiki_yes_or_no_p"))   (call <boolean> "Shiki_yes_or_no_p"))
152    
153    (define-cproc need-buffer-save-p (buffer::<buffer>)
154     (call <boolean> "Shiki_need_buffer_save_p"))
155    
156    (define-cproc msgbox (format::<string> &rest args)
157     (body <symbol>
158      "  ScmObj os = Scm_MakeOutputStringPort(TRUE);
159         GtkWidget *dialog;
160      Scm_Format(SCM_PORT(os), format, args, FALSE);
161      dialog = gtk_message_dialog_new(GTK_WINDOW(Shiki_EDITOR_WINDOW),
162          GTK_DIALOG_DESTROY_WITH_PARENT, GTK_MESSAGE_INFO, GTK_BUTTONS_OK,
163          Scm_GetString(SCM_STRING(Scm_GetOutputString(SCM_PORT(os)))));
164      gtk_dialog_run(GTK_DIALOG(dialog));
165      gtk_widget_destroy(dialog);
166      SCM_RESULT = SCM_SYMBOL(SCM_INTERN(\":ok\"));"))
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help