[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] feature/aptel/dynamic-modules-rc3 bfe16af 10/35: new modul
From: |
Noah Friedman |
Subject: |
[Emacs-diffs] feature/aptel/dynamic-modules-rc3 bfe16af 10/35: new module: opaque |
Date: |
Mon, 8 May 2017 19:46:27 -0400 (EDT) |
branch: feature/aptel/dynamic-modules-rc3
commit bfe16af726b590b55c42cf7b1168e37d38119669
Author: Aurélien Aptel <address@hidden>
Commit: Aurélien Aptel <address@hidden>
new module: opaque
The opaque module is a simple module which shows how to embed any C
type in a Lisp_Object.
---
modules/opaque/Makefile | 12 +++++++++++
modules/opaque/opaque.c | 53 +++++++++++++++++++++++++++++++++++++++++++++++++
2 files changed, 65 insertions(+)
diff --git a/modules/opaque/Makefile b/modules/opaque/Makefile
new file mode 100644
index 0000000..7f50732
--- /dev/null
+++ b/modules/opaque/Makefile
@@ -0,0 +1,12 @@
+ROOT = ../..
+
+all: opaque.so opaque.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/opaque/opaque.c b/modules/opaque/opaque.c
new file mode 100644
index 0000000..f1ba759
--- /dev/null
+++ b/modules/opaque/opaque.c
@@ -0,0 +1,53 @@
+#include <config.h>
+#include <lisp.h>
+
+int plugin_is_GPL_compatible;
+
+struct opaque
+{
+ int a, b, c;
+};
+
+static Lisp_Object Qa, Qb, Qc;
+
+EXFUN (Fopaque_make, 3);
+DEFUN ("opaque-make", Fopaque_make, Sopaque_make, 3, 3, 0,
+ doc: "Make opaque type.")
+ (Lisp_Object a, Lisp_Object b, Lisp_Object c)
+{
+ struct opaque *p = malloc (sizeof (*p));
+ p->a = XINT (a);
+ p->b = XINT (b);
+ p->c = XINT (c);
+ return make_save_ptr ((void*)p);
+}
+
+EXFUN (Fopaque_free, 1);
+DEFUN ("opaque-free", Fopaque_free, Sopaque_free, 1, 1, 0,
+ doc: "Free opaque type.")
+ (Lisp_Object p)
+{
+ free (XSAVE_POINTER (p, 0));
+ return Qnil;
+}
+
+EXFUN (Fopaque_get, 2);
+DEFUN ("opaque-get", Fopaque_get, Sopaque_get, 2, 2, 0,
+ doc: "Return the field F (`a', `b', `c') of the opaque object OBJ.")
+ (Lisp_Object obj, Lisp_Object f)
+{
+ struct opaque *p = XSAVE_POINTER (obj, 0);
+ int val = EQ (f, Qa) ? p->a : EQ (f, Qb) ? p->b : EQ (f, Qc) ? p->c : -1;
+ return make_number (val);
+}
+
+void init ()
+{
+ DEFSYM (Qa, "a");
+ DEFSYM (Qb, "b");
+ DEFSYM (Qc, "c");
+
+ defsubr (&Sopaque_make);
+ defsubr (&Sopaque_free);
+ defsubr (&Sopaque_get);
+}
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 6478a32 03/35: intern literal strings as regular string., (continued)
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 6478a32 03/35: intern literal strings as regular string., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 b8286d2 08/35: doc.c: don't prefix doc path by ../etc/ for modules, Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 89c8287 11/35: opaque: add comments., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 79e2c28 05/35: change Subr doc field from char* to Lisp_Object., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 8254721 16/35: make `load' look for and handle dynamic modules., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 092a6d2 22/35: configure.ac: dynamic modules off by default., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 0cfb066 07/35: doc.c: use DOC format sanity checks instead of bytecompiled checks on module doc files., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 4000103 20/35: yaml module: add `yaml-parse-string'., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 4e1ad37 19/35: new yaml parsing module using libyaml, Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 8147699 15/35: fix docstring., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 bfe16af 10/35: new module: opaque,
Noah Friedman <=
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 582704c 14/35: curl: use url arg., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 9330ca6 12/35: new module: elisp, Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 9da7346 13/35: new module: curl. basic URL fetcher working., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 c7248ea 21/35: yaml module: rename `yaml-parse' to `yaml-parse-buffer'., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 a95e032 17/35: update modules examples with `provide' call., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 1959b65 18/35: use `load-module-suffixes' as a source of module suffixes., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 1da9b91 24/35: opaque module: rename Qc variable to Qc_ due to macro collision, Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 6e9c6b1 26/35: doc.c: fix module doc prefix, Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 3a2aab6 29/35: modules/fmod: use M prefix for module global vars, Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 ef45794 32/35: modules/yaml: skip TODO tests, Noah Friedman, 2017/05/08