AERN-RnToRm-Plot 0.1.0 → 0.1.1

raw patch · 4 files changed

+8/−38 lines, 4 filesdep ~AERN-Realdep ~AERN-RnToRmdep ~glade

Dependency ranges changed: AERN-Real, AERN-RnToRm, glade, glib, gtk, gtkglext

Files

• AERN-RnToRm-Plot.cabal +5/−6
• ChangeLog +2/−0
• src/Data/Number/ER/MiscSTM.hs +0/−31
• src/Data/Number/ER/RnToRm/Plot/GLDrawable.hs +1/−1

@@ -1,5 +1,5 @@ Name:           AERN-RnToRm-Plot-Version:        0.1.0+Version:        0.1.1 Cabal-Version:  >= 1.2 Build-Type:     Simple License:        BSD3@@ -28,19 +28,18 @@   if flag(containers-in-base)     Build-Depends:       base < 3, binary >= 0.4, directory, filepath, old-time, stm,-      AERN-Real >= 0.9.7.1, AERN-RnToRm >= 0.4.1, +      AERN-Real >= 0.9.8, AERN-RnToRm >= 0.4.2,       OpenGL >= 2.2.1.1, GLUT >= 2.1.1.1,-      gtk >= 0.9.12.1, gtkglext >= 0.9.12.1, glib >= 0.9.12.1, glade >= 0.9.12.1+      gtk >= 0.9.13, gtkglext >= 0.9.13, glib >= 0.9.13, glade >= 0.9.13   else     Build-Depends:       base >= 3, containers, binary >= 0.4, directory, filepath, old-time, stm,        AERN-Real >= 0.9.7.1, AERN-RnToRm >= 0.4.1,        OpenGL >= 2.2.1.1, GLUT >= 2.1.1.1,-      gtk >= 0.9.12.1, gtkglext >= 0.9.12.1, glib >= 0.9.12.1, glade >= 0.9.12.1+      gtk >= 0.9.13, gtkglext >= 0.9.13, glib >= 0.9.13, glade >= 0.9.13   Exposed-modules:     Data.Number.ER.RnToRm.Plot.FnView,     Data.Number.ER.RnToRm.Plot.GLDrawable,-    Data.Number.ER.RnToRm.Plot.Params,-    Data.Number.ER.MiscSTM+    Data.Number.ER.RnToRm.Plot.Params        

@@ -1,2 +1,4 @@+0.1.1: 1 December 2008+    * moved MiscSTM from here to AERN-Real so that it can be used also in AERN-Net 0.1.0: 1 October 2008     * initial release of AERN-RnToRm-Plot

@@ -1,31 +0,0 @@-{-|-    Utilities related to concurrency.--}-module Data.Number.ER.MiscSTM where--import Control.Concurrent as Concurrent-import Control.Concurrent.STM as STM--modifyTVar tv update =-    do-    value <- readTVar tv-    writeTVar tv $ update value--modifyTVarGetOldVal tv update =-    do-    value <- readTVar tv-    writeTVar tv $ update value-    return value--modifyTVarHasChanged tv update =-    do-    value <- readTVar tv-    let newValue = update value-    if value == newValue-        then return False-        else -            do-            writeTVar tv $ update value-            return True-    -    

@@ -143,7 +143,7 @@      DomainIntBox box varid domra,      DomainBoxMappable dtrbox box varid (DomTransl domra) domra,       DomainBoxMappable box dtrbox varid domra (DomTransl domra), -     Eq dtrbox) =>+     Eq dtrbox, Ord dtrbox) =>     ERFnGLDrawable box varid domra ranra (ERFnDomTranslApprox dtrbox varid ufa domra)      instance