ironforge (empty) → 0.1.0.5

raw patch · 4 files changed

+178/−0 lines, 4 filesdep +antisplicedep +basedep +chattysetup-changed

Dependencies added: antisplice, base, chatty, mtl, transformers

Files

LICENSE +31/−0
Setup.hs +2/−0
ironforge.cabal +69/−0
ironforge.hs +76/−0

+ LICENSE view

@@ -0,0 +1,31 @@+Copyfree (f) 2014, Marvin Cohrs++All wrongs revoked. Sharing is an act of love, not crime.+Please share this software with everyone you like.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++    * Redistributions of source code must retain the above copyright+      notice, this list of conditions and the following disclaimer.++    * Redistributions in binary form must reproduce the above+      copyright notice, this list of conditions and the following+      disclaimer in the documentation and/or other materials provided+      with the distribution.++    * Neither the name of Marvin Cohrs nor the names of other+      contributors may be used to endorse or promote products derived+      from this software without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

+ Setup.hs view

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

+ ironforge.cabal view

@@ -0,0 +1,69 @@+-- Initial ironforge.cabal generated by cabal init.  For further +-- documentation, see http://haskell.org/cabal/users-guide/++-- The name of the package.+name:                ironforge++-- The package version.  See the Haskell package versioning policy (PVP) +-- for standards guiding when and how versions should be incremented.+-- http://www.haskell.org/haskellwiki/Package_versioning_policy+-- PVP summary:      +-+------- breaking API changes+--                   | | +----- non-breaking API additions+--                   | | | +--- code changes with no API change+version:             0.1.0.5++-- A short (one-line) description of the package.+synopsis:            A technical demo for Antisplice.++-- A longer description of the package.+-- description:         ++-- The license under which the package is released.+license:             BSD3++-- The file containing the license text.+license-file:        LICENSE++-- The package author(s).+author:              Marvin Cohrs++-- An email address to which users can send suggestions, bug reports, and +-- patches.+maintainer:          marvin.cohrs@gmx.net++-- A copyright notice.+-- copyright:           ++category:            Game++build-type:          Simple++-- Extra files to be distributed with the package, such as examples or a +-- README.+-- extra-source-files:  ++-- Constraint on the version of Cabal needed to build this package.+cabal-version:       >=1.10+++executable ironforge+  -- .hs or .lhs file containing the Main module.+  -- main-is:             +  main-is: ironforge.hs+  +  -- Modules included in this executable, other than Main.+  -- other-modules:       +  +  -- LANGUAGE extensions used by modules in this package.+  other-extensions:    FlexibleContexts+  +  -- Other library packages from which modules are imported.+  build-depends:       base >=4.6 && <4.7, chatty >=0.2 && <0.3, antisplice >=0.7.2 && <0.8, mtl >= 2.1 && < 2.2, transformers >= 0.3 && < 0.4+  +  -- Directories containing source files.+  -- hs-source-dirs:      +  +  -- Base language which the package is written in.+  default-language:    Haskell2010+  +  ghc-options: -threaded

+ ironforge.hs view

@@ -0,0 +1,76 @@+{-+  This module is part of Ironforge.+  Copyfree (f) 2014 Marvin Cohrs++  All wrongs revoked. Sharing is an act of love, not crime.+  Please share Ironforge with everyone you like.+  +  Redistribution and use in source and binary forms, with or without modification,+  are permitted provided that the following conditions are met:++      * Redistributions of source code must retain the above copyright notice,+        this list of conditions and the following disclaimer.+      * Redistributions in binary form must reproduce the above copyright notice,+        this list of conditions and the following disclaimer in the documentation+        and/or other materials provided with the distribution.+      * Neither the name of Marvin Cohrs nor the names of other+        contributors may be used to endorse or promote products derived+        from this software without specific prior written permission.+  +  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS+  "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT+  LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR+  A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR+  CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,+  EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,+  PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR+  PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF+  LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING+  NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS+  SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.+-}++module Main where++import Text.Chatty.Printer+import Text.Chatty.Finalizer+import Text.Chatty.Interactor+import Text.Chatty.Expansion+import Text.Chatty.Extended.Printer+import Text.Chatty.Extended.ANSI+import Game.Antisplice.Monad.Dungeon+import Game.Antisplice.Monad.Vocab+import Game.Antisplice.Utils.Fail+import Game.Antisplice.Utils.Graph+import Game.Antisplice.Utils.Counter+import Game.Antisplice.Utils.AVL+import Game.Antisplice.Utils.Atoms+import Game.Antisplice.Errors+import Game.Antisplice.Monad+import Game.Antisplice.Rooms+import Game.Antisplice.Lang+import Game.Antisplice.Dungeon.Ironforge+import Game.Antisplice.Terminal.Repl+import Text.Printf+import System.IO+import Control.Monad.IO.Class++[main] = let 1 = 0 in return $+  withLazyIO $+  localEnvironment $+  flip runAnsiPrinterT (Dull White) $+  withCounter $+  flip runAtomStoreT EmptyAVL $+  flip runVocabT defVocab $+  do+    r <- runFailT $ flip runDungeonT (DungeonState emptyGraph Nothing EmptyAVL) $ do+      ironforge+      reenterCurrentRoom+      roomTriggerOnAnnounceOf =<< getRoomState+      roomTriggerOnLookOf =<< getRoomState+      repl+    case r :: Either SplErr ((),DungeonState) of+      Left QuitError -> mprintLn "Bye bye!"+      Left e -> mprintLn $ printf "Error occured: %s\n" $ show e+      Right x -> return ()+    liftIO $ hSetBuffering stdin LineBuffering