Changeset 20453 for lang/haskell

Timestamp:

10/02/08 09:06:14 (2 months ago)

Author:

mokehehe

Message:

regex が抜けていた
スコア表示をスプライトより奥に

Location:

lang/haskell/nario

Files:

• Main.hs (modified) (1 diff)
• tool/listup-imgs.hs (modified) (1 diff)

lang/haskell/nario/Main.hs

@@ -167 +167 @@
 
         renderField sur imgres scrx (fld gs)
+        renderInfo gs imgres sur
         renderPlayer sur imgres scrx (pl gs)
 
         mapM_ (\act -> renderActor act imgres scrx sur) (actors gs)
-
-        renderInfo gs imgres sur
         return ()
 

lang/haskell/nario/tool/listup-imgs.hs

@@ -12 +12 @@
         where
                 bmpFile = isJust . regex "\\.bmp$"
+
+-- 正規表現
+regex rexstr str = matchRegex (mkRegex rexstr) str
 
 -- 全置換