From 0fd4cecd892f4638037d1a929d9f0ba101030db3 Mon Sep 17 00:00:00 2001 From: jean0t Date: Thu, 22 Jan 2026 22:08:58 -0300 Subject: [PATCH] feat: skeleton created monastery.asd and files --- bridge/mdict_bridge.cpp | 1 - bridge/mdict_bridge.h | 13 ------------- core.lisp | 1 + monastery.asd | 13 +++++++++++++ monastery.lisp | 1 + package.lisp | 2 ++ types.lisp | 13 +++++++++++++ 7 files changed, 30 insertions(+), 14 deletions(-) delete mode 100644 bridge/mdict_bridge.cpp delete mode 100644 bridge/mdict_bridge.h create mode 100644 core.lisp create mode 100644 monastery.asd create mode 100644 monastery.lisp create mode 100644 package.lisp create mode 100644 types.lisp diff --git a/bridge/mdict_bridge.cpp b/bridge/mdict_bridge.cpp deleted file mode 100644 index 66cc192..0000000 --- a/bridge/mdict_bridge.cpp +++ /dev/null @@ -1 +0,0 @@ -#include "mdict_bridge.h" diff --git a/bridge/mdict_bridge.h b/bridge/mdict_bridge.h deleted file mode 100644 index 0ee8943..0000000 --- a/bridge/mdict_bridge.h +++ /dev/null @@ -1,13 +0,0 @@ -#ifndef MDICT_BRIDGE -#define MDICT_BRIDGE - -#ifdef __cplusplus -extern "C" { -#endif - - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/core.lisp b/core.lisp new file mode 100644 index 0000000..7ef08c1 --- /dev/null +++ b/core.lisp @@ -0,0 +1 @@ +(in-package :monastery) diff --git a/monastery.asd b/monastery.asd new file mode 100644 index 0000000..2a17abc --- /dev/null +++ b/monastery.asd @@ -0,0 +1,13 @@ +(defsystem :monastery + :author "Joao Mauricio " + :license "AGPL-3" + :description "This library provides functionality to read and parse MDX/MDD dictionary files commonly used in electronic dictionaries" + :version "0.0.1" + :homepage "https://git.ajattix.org/Jamno/monastery" + :source-control (:git "https://git.ajattix.org/Jamno/monastery.git") + :serial t + :components ((:file "package") + (:file "types") + (:file "core") + (:file "monastery")) + :depends-on (#:cffi #:cffi-ops)) diff --git a/monastery.lisp b/monastery.lisp new file mode 100644 index 0000000..7ef08c1 --- /dev/null +++ b/monastery.lisp @@ -0,0 +1 @@ +(in-package :monastery) diff --git a/package.lisp b/package.lisp new file mode 100644 index 0000000..7df52c8 --- /dev/null +++ b/package.lisp @@ -0,0 +1,2 @@ +(defpackage :monastery + (:use #:cl #:cffi #:cffi-ops)) diff --git a/types.lisp b/types.lisp new file mode 100644 index 0000000..96add79 --- /dev/null +++ b/types.lisp @@ -0,0 +1,13 @@ +(in-package :monastery) + +(defcstruct sized-data + (data :pointer) + (size :size-t)) + +(defcenum mdict-encoding-t + (:mdict-encoding-base64 0) + (:mdict-encoding-hex 1)) + + +(defctype s-data '(:struct sized-data)) +(defctype mdict-encoding '(:struct mdict-encoding-t))