Merge pull request #149 from fpco/feature/github-actions

Switched travis to github-actions

.github/workflows/ci.yaml

@@ -0,0 +1,50 @@
+name: CI
+on:
+  push:
+    branches:
+      - master
+  pull_request:
+    types:
+      - opened
+      - synchronize
+jobs:
+  build:
+    name: ${{ matrix.os }}-stack-${{ matrix.stackage }}
+    runs-on: ${{ matrix.os }}
+    strategy:
+      fail-fast: false
+      matrix:
+        os: ['ubuntu-latest', 'macos-latest']
+        stackage: ['nightly', 'lts-21', 'lts-20']
+    steps:
+      - uses: actions/checkout@v4
+      - uses: haskell/actions/setup@v2
+        with:
+          enable-stack: true
+          stack-no-global: true
+      - name: Install packages
+        run: |
+          if [ ${{ matrix.os }} == "ubuntu-latest" ] ; then
+            sudo apt-get update -qq && sudo apt-get install -y gobjc++ libgnustep-base-dev libgsl-dev
+          else
+            /bin/bash -c "$(curl -fsSL https://raw.githubusercontent.com/Homebrew/install/HEAD/install.sh)"
+            brew install gsl || true
+          fi
+      - uses: actions/cache@v3
+        with:
+          path: ~/.stack
+          key: stack-${{ matrix.os }}-${{ matrix.stackage }}-${{ hashFiles('stack.yaml') }}
+      - name: Build
+        run: |
+          if [ ${{ matrix.os }} == "ubuntu-latest" ] ; then
+            stack build --stack-yaml stack-${{ matrix.stackage }}.yaml --flag inline-c:gsl-example --flag inline-c-cpp:std-vector-example
+          else
+            stack build --stack-yaml stack-${{ matrix.stackage }}.yaml --flag inline-c-cpp:std-vector-example
+          fi
+      - name: Test
+        run: |
+          if [ ${{ matrix.os }} == "ubuntu-latest" ] ; then
+            stack test --stack-yaml stack-${{ matrix.stackage }}.yaml --flag inline-c:gsl-example --flag inline-c-cpp:std-vector-example
+          else
+            stack test --stack-yaml stack-${{ matrix.stackage }}.yaml --flag inline-c-cpp:std-vector-example
+          fi

README.md

@@ -1,9 +1,9 @@
-[![Build Status](https://travis-ci.org/fpco/inline-c.svg?branch=master)](https://travis-ci.org/fpco/inline-c)
+[![Build Status](https://github.com/fpco/inline-c/actions/workflows/ci.yaml/badge.svg?branch=master)](https://github.com/fpco/inline-c/actions)
 
 See READMEs for `inline-c` and `inline-c-cpp`.
 
 ## Authors
 
 `inline-c` was written by [Francesco Mazzoli](https://github.com/bitonic), with contributions from Mathieu Boespflug, [Junji Hashimoto](https://github.com/junjihashimoto), and [Robert Hensing](https://github.com/roberth).
 
-It is now maintained by [Junji Hashimoto](https://github.com/junjihashimoto).
+It is now maintained by [Junji Hashimoto](https://github.com/junjihashimoto).

inline-c-objc/inline-c-objc.cabal

@@ -38,3 +38,6 @@ test-suite tests
   default-language:    Haskell2010
   if os(darwin)
     frameworks:        Foundation
+    buildable:         True
+  else
+    buildable:         False

inline-c/examples/gsl-ode.hs

@@ -3,19 +3,19 @@
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE QuasiQuotes #-}
 {-# LANGUAGE MultiWayIf #-}
-import           Data.Coerce (coerce)
+import           Unsafe.Coerce (unsafeCoerce)
 import           Data.Monoid ((<>))
 import qualified Data.Vector.Storable as V
 import qualified Data.Vector.Storable.Mutable as VM
 import           Foreign.C.Types
 import           Foreign.ForeignPtr (newForeignPtr_)
 import           Foreign.Ptr (Ptr)
 import           Foreign.Storable (Storable)
-import qualified Graphics.Rendering.Chart.Backend.Cairo as Chart
-import qualified Graphics.Rendering.Chart.Easy as Chart
 import qualified Language.C.Inline as C
 import qualified Language.C.Inline.Unsafe as CU
 import           System.IO.Unsafe (unsafePerformIO)
+import           Control.Monad (forM_)
+import           System.IO (withFile, hPutStrLn, IOMode(..))
 
 C.context (C.baseCtx <> C.vecCtx <> C.funCtx)
 
@@ -94,7 +94,7 @@ solveOde
   -> Either String (V.Vector Double)
   -- ^ Solution at end point, or error.
 solveOde fun x0 f0 xend =
-  coerce $ solveOdeC (coerce fun) (coerce x0) (coerce f0) (coerce xend)
+  unsafeCoerce $ solveOdeC (unsafeCoerce fun) (unsafeCoerce x0) (unsafeCoerce f0) (unsafeCoerce xend)
 
 lorenz
   :: Double
@@ -121,9 +121,9 @@ lorenz x0 f0 xend = solveOde fun x0 f0 xend
            ]
 
 main :: IO ()
-main = Chart.toFile Chart.def "lorenz.png" $ do
-    Chart.layout_title Chart..= "Lorenz"
-    Chart.plot $ Chart.line "curve" [pts]
+main = withFile "lorenz.csv" WriteMode $ \h ->
+         forM_ pts $ \(x,y) ->
+           hPutStrLn h $ show x ++ ", " ++ show y
   where
     pts = [(f V.! 0, f V.! 2) | (_x, f) <- go 0 (V.fromList [10.0 , 1.0 , 1.0])]
 

inline-c/inline-c.cabal

@@ -88,7 +88,5 @@ executable gsl-ode
     build-depends:     base >=4 && <5
                      , inline-c
                      , vector
-                     , Chart >= 1.3
-                     , Chart-cairo
   else
     buildable: False

stack-lts-20.yaml

@@ -0,0 +1,6 @@
+resolver: lts-20.26
+packages:
+- inline-c
+- inline-c-cpp
+- inline-c-objc
+- sample-cabal-project

stack-lts-21.yaml

@@ -0,0 +1,6 @@
+resolver: lts-21.13
+packages:
+- inline-c
+- inline-c-cpp
+- inline-c-objc
+- sample-cabal-project

stack-nightly.yaml

@@ -0,0 +1,6 @@
+resolver: nightly-2023-09-24
+packages:
+- inline-c
+- inline-c-cpp
+- inline-c-objc
+- sample-cabal-project

stack.yaml

@@ -0,0 +1 @@
+stack-lts-21.yaml