Changeset 20420 for lang/haskell/nario/tool/listup-imgs.hs

Timestamp:

10/02/08 01:25:33 (3 months ago)

Author:

mokehehe

Message:

タイトル画面とゲーム中を作成
プレーヤーが画面外に落ちたりタイムアップならゲームオーバー

Files:

• lang/haskell/nario/tool/listup-imgs.hs (modified) (4 diffs)

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

@@ +1 @@
+-- 画像ファイルを列挙して、ソースを生成
 
 import System (getArgs)
@@ -7 +8 @@
 import Data.List (intercalate)
 
--- �摜�t�@�C���̗�listupImgFiles path = fileEntries path >>= return . filter bmpFile
+-- 画像ファイルの列挙
+listupImgFiles path = fileEntries path >>= return . filter bmpFile
         where
                 bmpFile = isJust . regex "\\.bmp$"
 
-regex :: String -> String -> Maybe [String]
-regex rex str = matchRegex (mkRegex rex) str
-
+-- 全置換
 gsub rexstr f str = loop str
         where
@@ -22 +22 @@
                 rex = mkRegex rexstr
 
+-- 拡張子を除いたファイル名
 basefn fn =
         case regex "^(.*)\\..*$" $ basename fn of
@@ -27 +28 @@
                 Nothing         -> fn
 
--- �擪�������camelize (x:xs) = toUpper x : xs
+-- 先頭を大文字に
+camelize (x:xs) = toUpper x : xs
 
-
+-- エントリ
 main = do
         args <- getArgs