[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] dynamic-modules db69d49 12/22: new module: elisp
From: |
Teodor Zlatanov |
Subject: |
[Emacs-diffs] dynamic-modules db69d49 12/22: new module: elisp |
Date: |
Thu, 27 Nov 2014 02:01:53 +0000 |
branch: dynamic-modules
commit db69d495fe33829789e2ae767beb02f62060de51
Author: Aurélien Aptel <address@hidden>
Date: Sun Nov 23 21:17:58 2014 +0100
new module: elisp
The elisp module simply evaluates some code written in ELisp from C.
---
modules/elisp/Makefile | 12 ++++++++++++
modules/elisp/elisp.c | 35 +++++++++++++++++++++++++++++++++++
2 files changed, 47 insertions(+), 0 deletions(-)
diff --git a/modules/elisp/Makefile b/modules/elisp/Makefile
new file mode 100644
index 0000000..8df325e
--- /dev/null
+++ b/modules/elisp/Makefile
@@ -0,0 +1,12 @@
+ROOT = ../..
+
+all: elisp.so elisp.doc
+
+%.so: %.o
+ gcc -shared -o $@ $<
+
+%.o: %.c
+ gcc -ggdb3 -Wall -I$(ROOT)/src -I$(ROOT)/lib -fPIC -c $<
+
+%.doc: %.c
+ $(ROOT)/lib-src/make-docfile $< > $@
diff --git a/modules/elisp/elisp.c b/modules/elisp/elisp.c
new file mode 100644
index 0000000..cf61a74
--- /dev/null
+++ b/modules/elisp/elisp.c
@@ -0,0 +1,35 @@
+#include <string.h>
+#include <config.h>
+#include <lisp.h>
+
+int plugin_is_GPL_compatible;
+
+static Lisp_Object Qreplace_regexp_in_string;
+
+#define MAKE_STRING(s) (make_string (s, sizeof(s)-1))
+
+EXFUN (Felisp_test, 0);
+DEFUN ("elisp-test", Felisp_test, Selisp_test, 0, 0, 0,
+ doc: "Eval some lisp.")
+ (void)
+{
+ Lisp_Object string = MAKE_STRING ("no-more-dash");
+ Lisp_Object regex = MAKE_STRING ("[-]");
+ Lisp_Object replace = MAKE_STRING (" ");
+ Lisp_Object res;
+
+ struct gcpro gcpro1, gcpro2, gcpro3;
+ GCPRO3 (string, regex, replace);
+ res = call3 (Qreplace_regexp_in_string, regex, replace, string);
+ UNGCPRO;
+
+ return res;
+}
+
+
+void init ()
+{
+ DEFSYM (Qreplace_regexp_in_string, "replace-regexp-in-string");
+
+ defsubr (&Selisp_test);
+}
- [Emacs-diffs] dynamic-modules 3f762bd 02/22: add `load-module' function to emacs lisp., (continued)
- [Emacs-diffs] dynamic-modules 3f762bd 02/22: add `load-module' function to emacs lisp., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules 5c710fb 01/22: add libltdl configure option/dependency., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules 2010646 04/22: add sample module `fmod'., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules 1be03fd 08/22: doc.c: don't prefix doc path by ../etc/ for modules, Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules fa450f8 07/22: doc.c: use DOC format sanity checks instead of bytecompiled checks on module doc files., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules d2271bc 06/22: alloc.c: protect doc field from GC., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules cc5fe95 09/22: move fmod module in modules/fmod/., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules c0eb5a6 05/22: change Subr doc field from char* to Lisp_Object., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules e374b97 11/22: opaque: add comments., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules 1be7b68 10/22: new module: opaque, Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules db69d49 12/22: new module: elisp,
Teodor Zlatanov <=
- [Emacs-diffs] dynamic-modules 106c15b 14/22: curl: use url arg., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules 334564f 15/22: fix docstring., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules ada5c5e 13/22: new module: curl. basic URL fetcher working., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules 399d8ec 16/22: make `load' look for and handle dynamic modules., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules 01e2303 17/22: update modules examples with `provide' call., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules 6334cf7 18/22: use `load-module-suffixes' as a source of module suffixes., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules eae5da9 20/22: yaml module: add `yaml-parse-string'., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules 4efd6a2 21/22: yaml module: rename `yaml-parse' to `yaml-parse-buffer'., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules 9313182 22/22: configure.ac: dynamic modules off by default., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules 18920eb 19/22: new yaml parsing module using libyaml, Teodor Zlatanov, 2014/11/26