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.12 by aloha, Thu Nov 30 14:45:49 2006 UTC revision 1.13 by aloha, Sat Dec 2 14:23:20 2006 UTC
# Line 788  SCM_RETURN(Scm_MakeInteger(SCM_RESULT)); Line 788  SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
788  static SCM_DEFINE_STRING_CONST(xyzzylisp_current_column__NAME, "current-column", 14, 14);  static SCM_DEFINE_STRING_CONST(xyzzylisp_current_column__NAME, "current-column", 14, 14);
789  static SCM_DEFINE_SUBR(xyzzylisp_current_column__STUB, 0, 0, SCM_OBJ(&xyzzylisp_current_column__NAME), xyzzylisp_current_column, NULL, NULL);  static SCM_DEFINE_SUBR(xyzzylisp_current_column__STUB, 0, 0, SCM_OBJ(&xyzzylisp_current_column__NAME), xyzzylisp_current_column, NULL, NULL);
790    
791    static ScmObj xyzzylisp_eval_expression(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
792    {
793      SCM_ENTER_SUBR("eval-expression");
794      {
795    Shiki_eval_expression();
796    SCM_RETURN(SCM_UNDEFINED);
797      }
798    }
799    
800    static SCM_DEFINE_STRING_CONST(xyzzylisp_eval_expression__NAME, "eval-expression", 15, 15);
801    static SCM_DEFINE_SUBR(xyzzylisp_eval_expression__STUB, 0, 0, SCM_OBJ(&xyzzylisp_eval_expression__NAME), xyzzylisp_eval_expression, NULL, NULL);
802    
803    static ScmObj xyzzylisp_eval_last_sexp(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
804    {
805      SCM_ENTER_SUBR("eval-last-sexp");
806      {
807    Shiki_eval_last_sexp();
808    SCM_RETURN(SCM_UNDEFINED);
809      }
810    }
811    
812    static SCM_DEFINE_STRING_CONST(xyzzylisp_eval_last_sexp__NAME, "eval-last-sexp", 14, 14);
813    static SCM_DEFINE_SUBR(xyzzylisp_eval_last_sexp__STUB, 0, 0, SCM_OBJ(&xyzzylisp_eval_last_sexp__NAME), xyzzylisp_eval_last_sexp, NULL, NULL);
814    
815  void Scm_Init_xyzzylisp(ScmModule *module)  void Scm_Init_xyzzylisp(ScmModule *module)
816  {  {
817    
# Line 834  void Scm_Init_xyzzylisp(ScmModule *modul Line 858  void Scm_Init_xyzzylisp(ScmModule *modul
858    SCM_DEFINE(module, "msgbox", SCM_OBJ(&xyzzylisp_msgbox__STUB));    SCM_DEFINE(module, "msgbox", SCM_OBJ(&xyzzylisp_msgbox__STUB));
859    SCM_DEFINE(module, "current-line-number", SCM_OBJ(&xyzzylisp_current_line_number__STUB));    SCM_DEFINE(module, "current-line-number", SCM_OBJ(&xyzzylisp_current_line_number__STUB));
860    SCM_DEFINE(module, "current-column", SCM_OBJ(&xyzzylisp_current_column__STUB));    SCM_DEFINE(module, "current-column", SCM_OBJ(&xyzzylisp_current_column__STUB));
861      SCM_DEFINE(module, "eval-expression", SCM_OBJ(&xyzzylisp_eval_expression__STUB));
862      SCM_DEFINE(module, "eval-last-sexp", SCM_OBJ(&xyzzylisp_eval_last_sexp__STUB));
863  }  }
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help