Skip to content

Commit 491ab8b

Browse files
KaneTWKaneTW
committed
initial commit
0 parents  commit 491ab8b

12 files changed

+205
-0
lines changed

‎.gitignore

+2
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,2 @@
1+
.stack-work/
2+
*~

‎.gitmodules

+3
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
[submodule "godot_headers"]
2+
path = godot_headers
3+
url = https://github.com/GodotNativeTools/godot_headers.git

‎ChangeLog.md

+3
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
# Changelog for godot-haskell-plugin
2+
3+
## Unreleased changes

‎LICENSE

+30
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,30 @@
1+
Copyright David Kraeutmann (c) 2018
2+
3+
All rights reserved.
4+
5+
Redistribution and use in source and binary forms, with or without
6+
modification, are permitted provided that the following conditions are met:
7+
8+
* Redistributions of source code must retain the above copyright
9+
notice, this list of conditions and the following disclaimer.
10+
11+
* Redistributions in binary form must reproduce the above
12+
copyright notice, this list of conditions and the following
13+
disclaimer in the documentation and/or other materials provided
14+
with the distribution.
15+
16+
* Neither the name of David Kraeutmann nor the names of other
17+
contributors may be used to endorse or promote products derived
18+
from this software without specific prior written permission.
19+
20+
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
21+
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
22+
LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
23+
A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
24+
OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
25+
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
26+
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
27+
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
28+
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
29+
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
30+
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

‎README.md

+1
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+
# godot-haskell-plugin

‎Setup.hs

+2
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,2 @@
1+
import Distribution.Simple
2+
main = defaultMain

‎cbits/flib.c

+13
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,13 @@
1+
#include "HsFFI.h"
2+
3+
static void flib_init() __attribute__((constructor));
4+
static void flib_init() {
5+
static char *argv[] = { "libGodotHaskellPlugin.so", 0 }, **argv_ = argv;
6+
static int argc = 1;
7+
hs_init(&argc, &argv_);
8+
}
9+
10+
static void flib_fini() __attribute__((destructor));
11+
static void flib_fini() {
12+
hs_exit();
13+
}

‎flib/Flib.hs

+20
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,20 @@
1+
{-# LANGUAGE ForeignFunctionInterface #-}
2+
module Flib where
3+
4+
import Foreign
5+
import Godot.Gdnative
6+
7+
godot_gdnative_init :: GodotGdnativeInitOptionsPtr -> IO ()
8+
godot_gdnative_init optPtr = putStrLn "gdnative init"
9+
10+
foreign export ccall godot_gdnative_init :: GodotGdnativeInitOptionsPtr -> IO ()
11+
12+
godot_gdnative_terminate :: GodotGdnativeTerminateOptionsPtr -> IO ()
13+
godot_gdnative_terminate optPtr = putStrLn "gdnative terminate"
14+
15+
foreign export ccall godot_gdnative_terminate :: GodotGdnativeTerminateOptionsPtr -> IO ()
16+
17+
godot_nativescript_init :: Ptr () -> IO ()
18+
godot_nativescript_init desc = putStrLn "nativescript init"
19+
20+
foreign export ccall godot_nativescript_init :: Ptr () -> IO ()

‎godot-haskell-plugin.cabal

+53
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,53 @@
1+
-- This file has been generated from package.yaml by hpack version 0.20.0.
2+
--
3+
-- see: https://github.com/sol/hpack
4+
--
5+
-- hash: 9dd8efd2e45c2898fb76a533380ee709713ad59d98865274345e6eac9e30c25b
6+
7+
name: godot-haskell-plugin
8+
version: 0.1.0.0
9+
description: Please see the README on Github at <https://github.com/KaneTW/godot-haskell-plugin#readme>
10+
homepage: https://github.com/KaneTW/godot-haskell-plugin#readme
11+
bug-reports: https://github.com/KaneTW/godot-haskell-plugin/issues
12+
author: David Kraeutmann
13+
maintainer: [email protected]
14+
copyright: 2018 David Kraeutmann
15+
license: BSD3
16+
license-file: LICENSE
17+
build-type: Simple
18+
cabal-version: >= 1.10
19+
20+
extra-source-files:
21+
ChangeLog.md
22+
README.md
23+
24+
source-repository head
25+
type: git
26+
location: https://github.com/KaneTW/godot-haskell-plugin
27+
28+
library
29+
hs-source-dirs:
30+
src
31+
build-depends:
32+
base >=4.7 && <5
33+
, godot-haskell
34+
exposed-modules:
35+
Lib
36+
default-language: Haskell2010
37+
38+
foreign-library godot-haskell-plugin
39+
type: native-shared
40+
other-modules: Flib
41+
include-dirs:
42+
godot_headers
43+
hs-source-dirs:
44+
flib
45+
ghc-options: -threaded -rtsopts -with-rtsopts=-N
46+
build-depends:
47+
base >=4.7 && <5
48+
, godot-haskell
49+
, godot-haskell-plugin
50+
c-sources:
51+
cbits/flib.c
52+
default-language: Haskell2010
53+

‎godot_headers

Submodule godot_headers added at 51bca3b

‎src/Lib.hs

+6
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,6 @@
1+
module Lib
2+
( someFunc
3+
) where
4+
5+
someFunc :: IO ()
6+
someFunc = putStrLn "someFunc"

‎stack.yaml

+71
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,71 @@
1+
# This file was automatically generated by 'stack init'
2+
#
3+
# Some commonly used options have been documented as comments in this file.
4+
# For advanced use and comprehensive documentation of the format, please see:
5+
# https://docs.haskellstack.org/en/stable/yaml_configuration/
6+
7+
# Resolver to choose a 'specific' stackage snapshot or a compiler version.
8+
# A snapshot resolver dictates the compiler version and the set of packages
9+
# to be used for project dependencies. For example:
10+
#
11+
# resolver: lts-3.5
12+
# resolver: nightly-2015-09-21
13+
# resolver: ghc-7.10.2
14+
# resolver: ghcjs-0.1.0_ghc-7.10.2
15+
# resolver:
16+
# name: custom-snapshot
17+
# location: "./custom-snapshot.yaml"
18+
resolver: lts-10.5
19+
20+
# User packages to be built.
21+
# Various formats can be used as shown in the example below.
22+
#
23+
# packages:
24+
# - some-directory
25+
# - https://example.com/foo/bar/baz-0.0.2.tar.gz
26+
# - location:
27+
# git: https://github.com/commercialhaskell/stack.git
28+
# commit: e7b331f14bcffb8367cd58fbfc8b40ec7642100a
29+
# - location: https://github.com/commercialhaskell/stack/commit/e7b331f14bcffb8367cd58fbfc8b40ec7642100a
30+
# extra-dep: true
31+
# subdirs:
32+
# - auto-update
33+
# - wai
34+
#
35+
# A package marked 'extra-dep: true' will only be built if demanded by a
36+
# non-dependency (i.e. a user package), and its test suites and benchmarks
37+
# will not be run. This is useful for tweaking upstream packages.
38+
packages:
39+
- .
40+
- location:
41+
git: https://github.com/SimulaVR/godot-haskell
42+
commit: HEAD
43+
extra-dep: true
44+
45+
# Dependency packages to be pulled from upstream that are not in the resolver
46+
# (e.g., acme-missiles-0.3)
47+
# extra-deps: []
48+
49+
# Override default flag values for local packages and extra-deps
50+
# flags: {}
51+
52+
# Extra package databases containing global packages
53+
# extra-package-dbs: []
54+
55+
# Control whether we use the GHC we find on the path
56+
# system-ghc: true
57+
#
58+
# Require a specific version of stack, using version ranges
59+
# require-stack-version: -any # Default
60+
# require-stack-version: ">=1.6"
61+
#
62+
# Override the architecture used by stack, especially useful on Windows
63+
# arch: i386
64+
# arch: x86_64
65+
#
66+
# Extra directories used by stack for building
67+
# extra-include-dirs: [/path/to/dir]
68+
# extra-lib-dirs: [/path/to/dir]
69+
#
70+
# Allow a newer minor version of GHC than the snapshot specifies
71+
# compiler-check: newer-minor

0 commit comments

Comments
 (0)