init
This commit is contained in:
mtgmonkey
26
flake.lock
generated
Normal file
26
flake.lock
generated
Normal file
@@ -0,0 +1,26 @@
|
||||
{
|
||||
"nodes": {
|
||||
"nixpkgs": {
|
||||
"locked": {
|
||||
"lastModified": 1764947035,
|
||||
"narHash": "sha256-EYHSjVM4Ox4lvCXUMiKKs2vETUSL5mx+J2FfutM7T9w=",
|
||||
"owner": "NixOS",
|
||||
"repo": "nixpkgs",
|
||||
"rev": "a672be65651c80d3f592a89b3945466584a22069",
|
||||
"type": "github"
|
||||
},
|
||||
"original": {
|
||||
"id": "nixpkgs",
|
||||
"ref": "nixpkgs-unstable",
|
||||
"type": "indirect"
|
||||
}
|
||||
},
|
||||
"root": {
|
||||
"inputs": {
|
||||
"nixpkgs": "nixpkgs"
|
||||
}
|
||||
}
|
||||
},
|
||||
"root": "root",
|
||||
"version": 7
|
||||
}
|
||||
91
flake.nix
Normal file
91
flake.nix
Normal file
@@ -0,0 +1,91 @@
|
||||
{
|
||||
inputs = {
|
||||
nixpkgs.url = "nixpkgs/nixpkgs-unstable";
|
||||
};
|
||||
outputs = {nixpkgs, ...}: let
|
||||
system = "x86_64-linux";
|
||||
pkgs = nixpkgs.legacyPackages.${system};
|
||||
debugGhcOptions = pkgs.lib.concatStringsSep " " (debugGhcFlags ++ commonGhcFlags);
|
||||
debugGhcFlags =
|
||||
[
|
||||
"-O0"
|
||||
"-Wall"
|
||||
"-Widentities"
|
||||
"-Wincomplete-record-updates"
|
||||
"-Wincomplete-uni-patterns"
|
||||
# "-Wmissing-export-lists"
|
||||
"-Wmissing-home-modules"
|
||||
"-Wpartial-fields"
|
||||
"-Wredundant-constraints"
|
||||
]
|
||||
++ commonGhcFlags;
|
||||
haddockOptions = pkgs.lib.concatStringsSep " " haddockFlags;
|
||||
haddockFlags = [
|
||||
"--html"
|
||||
"--odir docs"
|
||||
"--optghc=-i./src"
|
||||
"src/Game.hs"
|
||||
];
|
||||
releaseGhcOptions = pkgs.lib.concatStringsSep " " (releaseGhcFlags ++ commonGhcFlags);
|
||||
releaseGhcFlags =
|
||||
[
|
||||
"-O2"
|
||||
"-threaded"
|
||||
"-rtsopts"
|
||||
"-with-rtsopts=-N"
|
||||
"-main-is Main"
|
||||
]
|
||||
++ commonGhcFlags;
|
||||
noHaddockOptions = "";
|
||||
commonGhcFlags = [
|
||||
"-i./src"
|
||||
"-threaded"
|
||||
"-rtsopts"
|
||||
"-with-rtsopts=-N"
|
||||
"-main-is Main"
|
||||
];
|
||||
ghcPackages = p: [
|
||||
];
|
||||
buildDeps = [
|
||||
pkgs.pkg-config
|
||||
pkgs.wayland-protocols
|
||||
pkgs.wayland-scanner
|
||||
|
||||
pkgs.egl-wayland
|
||||
pkgs.libGL
|
||||
pkgs.libxkbcommon
|
||||
pkgs.wayland
|
||||
pkgs.xorg.libX11
|
||||
pkgs.xorg.libXcursor
|
||||
pkgs.xorg.libXi
|
||||
pkgs.xorg.libXrandr
|
||||
];
|
||||
in {
|
||||
packages.${system} = {
|
||||
debug = pkgs.callPackage ./package.nix {
|
||||
ghcOptions = debugGhcOptions;
|
||||
haddockOptions = noHaddockOptions;
|
||||
inherit ghcPackages;
|
||||
inherit buildDeps;
|
||||
};
|
||||
release = pkgs.callPackage ./package.nix {
|
||||
ghcOptions = releaseGhcOptions;
|
||||
haddockOptions = noHaddockOptions;
|
||||
inherit ghcPackages;
|
||||
inherit buildDeps;
|
||||
};
|
||||
docs = pkgs.callPackage ./package.nix {
|
||||
ghcOptions = "--version";
|
||||
inherit haddockOptions;
|
||||
inherit ghcPackages;
|
||||
inherit buildDeps;
|
||||
};
|
||||
default = pkgs.callPackage ./package.nix {
|
||||
ghcOptions = releaseGhcOptions;
|
||||
inherit haddockOptions;
|
||||
inherit ghcPackages;
|
||||
inherit buildDeps;
|
||||
};
|
||||
};
|
||||
};
|
||||
}
|
||||
14040
lib/RGFW.h
Normal file
14040
lib/RGFW.h
Normal file
File diff suppressed because it is too large
Load Diff
64
package.nix
Normal file
64
package.nix
Normal file
@@ -0,0 +1,64 @@
|
||||
{
|
||||
buildDeps,
|
||||
haskellPackages,
|
||||
lib,
|
||||
pkgs,
|
||||
stdenv,
|
||||
ghcOptions,
|
||||
haddockOptions,
|
||||
ghcPackages,
|
||||
...
|
||||
}:
|
||||
stdenv.mkDerivation {
|
||||
pname = "hs-rgfw";
|
||||
version = "0.1.0";
|
||||
src = ./.;
|
||||
nativeBuildInputs =
|
||||
[
|
||||
(haskellPackages.ghcWithPackages ghcPackages)
|
||||
]
|
||||
++ buildDeps;
|
||||
buildInputs =
|
||||
[
|
||||
]
|
||||
++ buildDeps;
|
||||
configurePhase = ''
|
||||
export PKG_CONFIG_PATH=/run/current-system/sw/lib/pkgconfig
|
||||
|
||||
mkdir ccode
|
||||
wayland-scanner public-code ${pkgs.wayland-protocols}/share/wayland-protocols/stable/xdg-shell/xdg-shell.xml ./ccode/xdg-shell.c
|
||||
wayland-scanner public-code ${pkgs.wayland-protocols}/share/wayland-protocols/staging/xdg-toplevel-icon/xdg-toplevel-icon-v1.xml ./ccode/xdg-toplevel-icon-v1.c
|
||||
wayland-scanner public-code ${pkgs.wayland-protocols}/share/wayland-protocols/unstable/xdg-decoration/xdg-decoration-unstable-v1.xml ./ccode/xdg-decoration-unstable-v1.c
|
||||
wayland-scanner public-code ${pkgs.wayland-protocols}/share/wayland-protocols/unstable/relative-pointer/relative-pointer-unstable-v1.xml ./ccode/relative-pointer-unstable-v1.c
|
||||
wayland-scanner public-code ${pkgs.wayland-protocols}/share/wayland-protocols/unstable/pointer-constraints/pointer-constraints-unstable-v1.xml ./ccode/pointer-constraints-unstable-v1.c
|
||||
wayland-scanner public-code ${pkgs.wayland-protocols}/share/wayland-protocols/unstable/xdg-output/xdg-output-unstable-v1.xml ./ccode/xdg-output-unstable-v1.c
|
||||
|
||||
mkdir headers
|
||||
wayland-scanner client-header ${pkgs.wayland-protocols}/share/wayland-protocols/stable/xdg-shell/xdg-shell.xml ./headers/xdg-shell.h
|
||||
wayland-scanner client-header ${pkgs.wayland-protocols}/share/wayland-protocols/staging/xdg-toplevel-icon/xdg-toplevel-icon-v1.xml ./headers/xdg-toplevel-icon-v1.h
|
||||
wayland-scanner client-header ${pkgs.wayland-protocols}/share/wayland-protocols/unstable/xdg-decoration/xdg-decoration-unstable-v1.xml ./headers/xdg-decoration-unstable-v1.h
|
||||
wayland-scanner client-header ${pkgs.wayland-protocols}/share/wayland-protocols/unstable/relative-pointer/relative-pointer-unstable-v1.xml ./headers/relative-pointer-unstable-v1.h
|
||||
wayland-scanner client-header ${pkgs.wayland-protocols}/share/wayland-protocols/unstable/pointer-constraints/pointer-constraints-unstable-v1.xml ./headers/pointer-constraints-unstable-v1.h
|
||||
wayland-scanner client-header ${pkgs.wayland-protocols}/share/wayland-protocols/unstable/xdg-output/xdg-output-unstable-v1.xml ./headers/xdg-output-unstable-v1.h
|
||||
'';
|
||||
buildPhase = ''
|
||||
mkdir src/lib
|
||||
cp lib/* src/lib/
|
||||
cp ccode/*.c ./
|
||||
ghc ${ghcOptions} ./src/Main.hs -o ./Main $(pkg-config --cflags --libs gl wayland-client wayland-egl wayland-cursor xkbcommon x11 xcursor xrandr xi) -I./headers/ $(ls *.c)
|
||||
mkdir ./docs
|
||||
haddock ${haddockOptions}
|
||||
'';
|
||||
installPhase = ''
|
||||
mkdir -p $out/bin
|
||||
cp ./Main $out/bin/hs-rgfw
|
||||
cp ./docs $out/docs -r
|
||||
'';
|
||||
|
||||
meta = {
|
||||
homepage = "https://mtgmonkey.net";
|
||||
license = lib.licenses.bsd3;
|
||||
mainProgram = "hs-rgfw";
|
||||
platforms = ["x86_64-linux"];
|
||||
};
|
||||
}
|
||||
121
src/Main.hs
Normal file
121
src/Main.hs
Normal file
@@ -0,0 +1,121 @@
|
||||
{-# LANGUAGE CApiFFI #-}
|
||||
|
||||
module Main (main) where
|
||||
|
||||
import Data.Bits (shiftL, (.|.))
|
||||
import Foreign
|
||||
import Foreign.C.String
|
||||
import Foreign.C.Types
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- main
|
||||
--------------------------------------------------------------------------------
|
||||
|
||||
main :: IO ()
|
||||
main = do
|
||||
window <- withCString "a window" (\name ->
|
||||
rgfwCreateWindow
|
||||
name
|
||||
0
|
||||
0
|
||||
800
|
||||
600
|
||||
$ mkWindowFlags
|
||||
[ WindowCenter
|
||||
, WindowNoResize
|
||||
, WindowOpenGL
|
||||
]
|
||||
)
|
||||
let loop = do
|
||||
putStrLn $ show window
|
||||
putStrLn
|
||||
$ show
|
||||
$ mkWindowFlags
|
||||
[ WindowCenter
|
||||
, WindowNoResize
|
||||
, WindowOpenGL
|
||||
]
|
||||
shouldClose <- rgfwWindowShouldClose window
|
||||
if 0 == shouldClose
|
||||
then return ()
|
||||
else loop
|
||||
loop
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Haskell-ier abstractions
|
||||
--------------------------------------------------------------------------------
|
||||
|
||||
data WindowFlags
|
||||
= WindowNoBorder
|
||||
| WindowNoResize
|
||||
| WindowAllowDND
|
||||
| WindowHideMouse
|
||||
| WindowFullscreen
|
||||
| WindowTransparent
|
||||
| WindowCenter
|
||||
| WindowRawMouse
|
||||
| WindowScaleToMonitor
|
||||
| WindowHide
|
||||
| WindowMaximize
|
||||
| WindowCenterCursor
|
||||
| WindowFloating
|
||||
| WindowFocusOnShow
|
||||
| WindowMinimize
|
||||
| WindowFocus
|
||||
| WindowOpenGL
|
||||
| WindowEGL
|
||||
| WindowedFullscreen
|
||||
|
||||
mkWindowFlags :: [WindowFlags] -> RGFWwindowFlags
|
||||
mkWindowFlags [] = 0
|
||||
mkWindowFlags (flag:flags) =
|
||||
let
|
||||
shift =
|
||||
case flag of
|
||||
WindowNoBorder -> 0
|
||||
WindowNoResize -> 1
|
||||
WindowAllowDND -> 2
|
||||
WindowHideMouse -> 3
|
||||
WindowFullscreen -> 4
|
||||
WindowTransparent -> 5
|
||||
WindowCenter -> 6
|
||||
WindowRawMouse -> 7
|
||||
WindowScaleToMonitor -> 8
|
||||
WindowHide -> 9
|
||||
WindowMaximize -> 10
|
||||
WindowCenterCursor -> 11
|
||||
WindowFloating -> 12
|
||||
WindowFocusOnShow -> 13
|
||||
WindowMinimize -> 14
|
||||
WindowFocus -> 15
|
||||
WindowOpenGL -> 17
|
||||
WindowEGL -> 18
|
||||
_ -> 19 -- TODO fix this silent error, implement windowedFullscreen
|
||||
in
|
||||
(shiftL 1 shift) .|. (mkWindowFlags flags)
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- directly from RFGW.h
|
||||
--------------------------------------------------------------------------------
|
||||
|
||||
-- RGFWindow
|
||||
data RGFWwindow
|
||||
-- ptr
|
||||
type RGFWwindowPtr = Ptr RGFWwindow
|
||||
-- flags to create
|
||||
type RGFWwindowFlags = Word32
|
||||
|
||||
type RGFWbool = CUInt
|
||||
|
||||
foreign import capi "lib/RGFW.h RGFW_createWindow" rgfwCreateWindow
|
||||
:: CString
|
||||
-> Int32
|
||||
-> Int32
|
||||
-> Int32
|
||||
-> Int32
|
||||
-> RGFWwindowFlags
|
||||
-> IO RGFWwindowPtr
|
||||
|
||||
foreign import capi "lib/RGFW.h RGFW_window_shouldClose" rgfwWindowShouldClose
|
||||
:: RGFWwindowPtr
|
||||
-> IO RGFWbool
|
||||
Reference in New Issue
Block a user