TimePiece 0.0.3 → 0.0.4
raw patch · 8 files changed
+12/−33 lines, 8 filesdep ~base
Dependency ranges changed: base
Files
- HSMain.hs +3/−3
- HSMain_stub.c +2/−2
- HSMain_stub.h +1/−1
- LICENSE +0/−20
- Main.hs +1/−1
- TimePiece.cabal +4/−5
- TimePiece.ttf binary
- c_main.c +1/−1
HSMain.hs view
@@ -2,7 +2,7 @@ module HSMain where import Main -foreign export ccall hs_main :: IO ()+foreign export ccall hs_MAIN :: IO () -hs_main :: IO ()-hs_main = main+hs_MAIN :: IO ()+hs_MAIN = main
HSMain_stub.c view
@@ -6,13 +6,13 @@ #endif extern StgClosure HSMain_zdfhszumainzuatN_closure;-void hs_main(void)+void hs_MAIN(void) { Capability *cap; HaskellObj ret; cap = rts_lock(); cap=rts_evalIO(cap,rts_apply(cap,(HaskellObj)runIO_closure,&HSMain_zdfhszumainzuatN_closure) ,&ret);-rts_checkSchedStatus("hs_main",cap);+rts_checkSchedStatus("hs_MAIN",cap); rts_unlock(cap); } static void stginit_export_HSMain_zdfhszumainzuatN() __attribute__((constructor));
HSMain_stub.h view
@@ -2,7 +2,7 @@ #ifdef __cplusplus extern "C" { #endif-extern void hs_main(void);+extern void hs_MAIN(void); #ifdef __cplusplus } #endif
− LICENSE
@@ -1,20 +0,0 @@-Copyright 2008 by Audrey Tang--Permission is hereby granted, free of charge, to any person obtaining-a copy of this software and associated documentation files (the-"Software"), to deal in the Software without restriction, including-without limitation the rights to use, copy, modify, merge, publish,-distribute, sublicense, and/or sell copies of the Software, and to-permit persons to whom the Software is furnished to do so, subject to-the following conditions:--The above copyright notice and this permission notice shall be-included in all copies or substantial portions of the Software.--THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,-EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF-MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND-NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE-LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION-OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION-WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
Main.hs view
@@ -70,7 +70,7 @@ calculateTiling :: String -> IO [Tiling] calculateTiling = cacheOnce _calculateTiling $ \time -> forM time $ \ch -> do ttf <- getDataFileName "TimePiece.ttf"- pts <- renderChar ttf 22 ch+ pts <- renderChar ttf (if ch == '4' || ch == ':' then 28 else 30) ch tiling <- makeRandomTiles pts seeds <- forM tiling . const $ randomRIO (1, 3) return $ MkTiling tiling seeds (edgePoint (toPointSet pts))
TimePiece.cabal view
@@ -1,20 +1,18 @@ Name: TimePiece-Version: 0.0.3+Version: 0.0.4 Synopsis: A simple tile-based digital clock screen saver Description: A simple tile-based digital clock screen saver-License: BSD3-License-File: LICENSE+License: PublicDomain Category: Screensaver Author: Audrey Tang Maintainer: Audrey Tang <audreyt@audreyt.org>-Build-Depends: base, SDL >= 0.5.4, SDL-image, SDL-ttf, SDL-gfx, containers, random, old-locale, old-time+Build-Depends: base >= 3 && < 5, SDL >= 0.5.4, SDL-image, SDL-ttf, SDL-gfx, containers, random, old-locale, old-time Build-Type: Custom Data-Files: 1/10.png 1/20.png 1/30.png 1/40.png 1/50.png 1/60.png 1/70.png 1/80.png 1/90.png 2/10.png 2/20.png 2/30.png 2/40.png 2/50.png 2/60.png 2/70.png 2/80.png 2/90.png 3/10.png 3/20.png 3/30.png 3/40.png 3/50.png 3/60.png 3/70.png 3/80.png 3/90.png HSMain_stub.c HSMain_stub.h TimePiece.ttf Extra-Source-Files: Check.hs-Cabal-Version: >= 1.2 Exposed-Modules: Main Other-Modules: Cache Image Paths Point Render Tiles Zoom @@ -22,6 +20,7 @@ HS-Source-Dirs: . Main-Is: HSMain.hs GHC-Options: -no-hs-main -Wall+Include-Dirs: /usr/include/SDL /usr/local/include/SDL C-Sources: c_main.c Extensions: GeneralizedNewtypeDeriving, ForeignFunctionInterface Other-Modules: Cache Image Paths Main Point Render Tiles Zoom
TimePiece.ttf view
binary file changed (21296 → 98156 bytes)
c_main.c view
@@ -28,7 +28,7 @@ hs_add_root(__stginit_HSMain); #endif - hs_main();+ hs_MAIN(); hs_exit();