clean up TextInterface, prettyPrint and other unused functions

Author: timaschew

src/GraphicInterface.hs

@@ -1,7 +1,9 @@
-
 module GraphicInterface where
 
 
+import System.Directory
+import Data.List
+
 
 {--
 example path: "data/traindata/img/10_12/big_numbers/0.pgm"
@@ -22,3 +24,23 @@ readPPMFile fn = do
 normalize x = norm where
 z = read x :: Double
 norm = z / 255
+
+
+-- returns a list of inputvalues from the given ppm folder.
+-- reads every ppm and generates its inputValues from the pixels values
+getPPMInput :: String -> IO [[Double]]
+getPPMInput path = do
+let fullPath = path--dataPath ++ path
+nameList <- getPgmList fullPath
+fileList <- mapM readPPMFile (map (\x -> fullPath ++ x) nameList)
+
+return fileList
+
+
+-- scans a directory for ppm files and returns a list of their filenames
+getPgmList :: String -> IO [String]
+getPgmList path = do
+dirContent <- getDirectoryContents path
+let pgmList = filter (isSuffixOf ".pgm") dirContent
+return $ sort pgmList
+

src/Gui.hs

@@ -5,7 +5,6 @@ import Neuron
 import Trainingdata
 import Backpropagation
 import Utils
-import Config
 import TopologyParser
 import TraindataParser
 import GraphicInterface