Hatena::Grouphaskell

suztomoの日記

|

2012-09-08

build.mk

00:30

Build configuration

Next, you say how this build of GHC is to differ from the standard defaults by creating a new file mk/build.mk in the build tree. This file is the one and only file you edit in the build tree, precisely because it says how this build differs from the source. (Just in case your build tree does die, you might want to keep a private directory of build.mk files, and use a symbolic link in each build tree to point to the appropriate one.)

mk/build.mk is purely for overriding settings that are found in mk/config.mk. You should never edit mk/config.mk directly, since it is automatically generated from mk/config.mk.in by configure. Neither should you edit mk/config.mk.in; just provide your settings in mk/build.mk.

http://hackage.haskell.org/trac/ghc/wiki/Building/Using#HowtomakeGHCbuildquickly

GHC7.6.1

00:02

わかりやすいのがDeferring type errors to runtime.

http://www.haskell.org/ghc/docs/7.6.1/html/users_guide/release-7-6-1.html

~/Documents/ReadGHC/ghc-7.6.1 $ ghc defer.hs
[1 of 1] Compiling Main             ( defer.hs, defer.o )

defer.hs:4:5:
    Couldn't match expected type `Int' with actual type `Char'
    In the expression: 'a'
    In an equation for `a': a = 'a'
suztomo@SuzBookPro.local ~/Documents/ReadGHC/ghc-7.6.1
~/Documents/ReadGHC/ghc-7.6.1 $ ./inplace/bin/ghc-stage2 ./defer.hs 
[1 of 1] Compiling Main             ( defer.hs, defer.o )

defer.hs:4:5:
    Couldn't match expected type `Int' with actual type `Char'
    In the expression: 'a'
    In an equation for `a': a = 'a'
suztomo@SuzBookPro.local ~/Documents/ReadGHC/ghc-7.6.1
~/Documents/ReadGHC/ghc-7.6.1 $ ./inplace/bin/ghc-stage2 -fdefer-type-errors ./defer.hs
[1 of 1] Compiling Main             ( defer.hs, defer.o )

defer.hs:4:5: Warning:
    Couldn't match expected type `Int' with actual type `Char'
    In the expression: 'a'
    In an equation for `a': a = 'a'
Linking defer ...
suztomo@SuzBookPro.local ~/Documents/ReadGHC/ghc-7.6.1
~/Documents/ReadGHC/ghc-7.6.1 $ ./defer 
"b"

Haskellのソースコード

19:15

めも。

今日の最新版はGHC7.6.1。初心者としてHaskell Platformをつかっているがそれはまだ7.4系列。

ソースのダウンロード

http://www.haskell.org/ghc/download_ghc_7_6_1

解凍

bunzip2 -d ./ghc-7.6.1-src.tar.bz2

~/Documents/ReadGHC $ tar xvf ghc-7.6.1-src.tar
x ghc-7.6.1/
x ghc-7.6.1/libraries/
x ghc-7.6.1/libraries/unix/
...

READMEを読む

Building & Installing

=====================

For full information on building GHC, see the GHC Building Guide [3].

Here follows a summary - if you get into trouble, the Building Guide

has all the answers.

Before building GHC you may need to install some other tools and

libraries. See "Setting up your system for building GHC" [8].

NB. in particular you need GHC installed in order to build GHC,

because the compiler is itself written in Haskell. For instructions

on how to port GHC to a new platform, see the Building Guide [3].

...

[3] http://hackage.haskell.org/trac/ghc/wiki/Building Building Guide

...

[8] http://hackage.haskell.org/trac/ghc/wiki/Building/Preparation

Building/Preparationを読む


This section describes how to set up your system with all the tools you need to build and develop GHC. Jump to the relevant section for your operating system:

Linux

Windows

MacOS X

Solaris

Building/Preparation

Building/MacOSXを読む

http://hackage.haskell.org/trac/ghc/wiki/Building/MacOSX

手元のMacは10.6.8のSnow Leopardで、XCodeは3.2.6だった. XCode4系列はLionじゃないといけないぽい。だいじょうぶだろう

configure

~/Documents/ReadGHC/ghc-7.6.1 $ ./configure
checking for gfind... no
checking for find... /usr/bin/find
checking for sort... /usr/bin/sorthttp://haskell.g.hatena.ne.jp/suztomo/#
...

----------------------------------------------------------------------
Configure completed successfully.

   Building GHC version  : 7.6.1

   Build platform        : i386-apple-darwin
   Host platform         : i386-apple-darwin
   Target platform       : i386-apple-darwin

   Bootstrapping using   : /usr/bin/ghc
      which is version   : 7.4.1

   Using GCC                 : /usr/bin/gcc
      which is version       : 4.2.1
   Building a cross compiler : NO
   Porting to foreign arch   : NO
   Alien script              : 

   ld       : /usr/bin/ld
   Happy    : /usr/bin/happy (1.18.9)
   Alex     : /usr/bin/alex (3.0.1)
   Python   : /Library/Frameworks/Python.framework/Versions/2.7/bin/python
   Perl     : /opt/local/bin/perl
   dblatex  : 
   xsltproc : /opt/local/bin/xsltproc

   HsColour was not found; documentation will not contain source links

   Building DocBook HTML documentation : NO
   Building DocBook PS documentation   : NO
   Building DocBook PDF documentation  : NO
----------------------------------------------------------------------

For a standard build of GHC (fully optimised with profiling), type (g)make.

To make changes to the default build configuration, copy the file
mk/build.mk.sample to mk/build.mk, and edit the settings in there.

For more information on how to configure your GHC build, see
   http://hackage.haskell.org/trac/ghc/wiki/Building

よし

make


~/Documents/ReadGHC/ghc-7.6.1 $ make
+ test -f mk/config.mk.old
+ cp -p mk/config.mk mk/config.mk.old
touch -r mk/config.mk.old mk/config.mk
+ test -f mk/project.mk.old
+ cp -p mk/project.mk mk/project.mk.old
touch -r mk/project.mk.old mk/project.mk
+ test -f compiler/ghc.cabal.old
+ cp -p compiler/ghc.cabal compiler/ghc.cabal.old
touch -r compiler/ghc.cabal.old compiler/ghc.cabal
===--- building phase 0
make -r --no-print-directory -f ghc.mk phase=0 phase_0_builds
libraries/hpc/ghc.mk:3: libraries/hpc/dist-boot/package-data.mk: No such file or directory
libraries/Cabal/Cabal/ghc.mk:3: libraries/Cabal/Cabal/dist-boot/package-data.mk: No such file or directory
...

めも。19:27にコンパイル開始

  90% (  9 / 10) in 'Foreign'
  80% (  4 /  5) in 'Foreign.C'
  99% (142 /143) in 'Data.List'
 100% ( 42 / 42) in 'Control.Monad'
  90% ( 75 / 83) in 'System.IO'
  95% ( 21 / 22) in 'Data.Array'
Warning: Prelude: could not find link destinations for:
    GHC.ForeignPtr.Finalizers Text.ParserCombinators.ReadP.P GHC.IO.Handle.Types.HandleType
Warning: Control.Monad: could not find link destinations for:
    Text.ParserCombinators.ReadP.P
cd libraries && sh gen_contents_index --inplace

20:50にコンパイルおわり

executableをみつける

If make completes successfully, then it should have created inplace/bin/ghc-stage2, which is a GHC binary you can run directly. It supports all the usual features, including GHCi if you pass the --interactive flag.

http://hackage.haskell.org/trac/ghc/wiki/Building/Using
suztomo@SuzBookPro.local ~/Documents/ReadGHC/ghc-7.6.1
~/Documents/ReadGHC/ghc-7.6.1 $ cat hello.hs
main :: IO ()
main = putStrLn "Hello, World"
~/Documents/ReadGHC/ghc-7.6.1 $ ./inplace/bin/ghc-stage2 ./hello.hs 
[1 of 1] Compiling Main             ( hello.hs, hello.o )
Linking hello ...
suztomo@SuzBookPro.local ~/Documents/ReadGHC/ghc-7.6.1
~/Documents/ReadGHC/ghc-7.6.1 $ ./hello 
Hello, World

花痴花痴2013/09/10 18:53花痴:http://花痴.happykanpo.com
花痴:http://xn--dtyr5y.happykanpo.com
花痴:http://xn--dtyr5y.happykanpo.com
威哥王:http://www.onbape.com
イカオウ:http://www.onbape.com
紅蜘蛛:http://www.shkanpo.com
紅蜘蛛:http://www.shkanpo.com
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html



威哥王:http://www.hellokanpo.com/view/weigewang.html
巨人倍増:http://www.hellokanpo.com/view/jurenbeiceng.html
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
D10 媚薬:http://www.hellokanpo.com/view/D10-meiyao.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html
花痴:http://www.hellokanpo.com/view/huachi.html
紅蜘蛛:http://www.hellokanpo.com/view/hongzhizhu1.html

威哥王:http://www.hellokanpo.com/view/weigewang.html
巨人倍増:http://www.hellokanpo.com/view/jurenbeiceng.html
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
D10 媚薬:http://www.hellokanpo.com/view/D10-meiyao.html
さんべんぼう:http://www.hellokanpo.com/view/satibo-capsules.html
イーリーシン:http://www.hellokanpo.com/view/yilishen.html
狼一号:http://www.hellokanpo.com/view/langyihao.html
三體牛鞭:http://www.hellokanpo.com/view/santiniubian.html
D10 催情剤:http://www.hellokanpo.com/view/D10-meiyao.html
三体牛鞭:http://www.hellokanpo.com/view/santiniubian.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html
韓国痩身1号:http://www.hellokanpo.com/view/hanguoshou-575.html
紅蜘蛛:http://www.hellokanpo.com/view/hongzhizhu1.html


精力剤:http://www.hellokanpo.com/JingLiJi
媚薬:http://www.hellokanpo.com/meiyao
威哥王:http://www.hellokanpo.com/view/weigewang.html
巨人倍増:http://www.hellokanpo.com/view/jurenbeiceng.html
天天素:http://www.hellokanpo.com/view/tiantiansu.html
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
蟻力神:http://www.hellokanpo.com/view/yilishen.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html
韓国痩身1号:http://www.hellokanpo.com/view/hanguoshou-575.html
D10 媚薬:http://www.hellokanpo.com/view/D10-meiyao.html
福源春:http://www.hellokanpo.com/view/fuyuanchun.html
狼一号:http://www.hellokanpo.com/view/langyihao.html
花痴:http://www.hellokanpo.com/view/huachi.html
紅蜘蛛:http://www.hellokanpo.com/view/hongzhizhu1.html
巨根カプセル:http://www.hellokanpo.com/view/jugen.html
三體牛鞭:http://www.hellokanpo.com/view/santiniubian.html
三体牛鞭:http://www.hellokanpo.com/view/santiniubian.html
絶對高潮:http://www.hellokanpo.com/view/jueduigaochao.html
SEX DROPS:http://www.hellokanpo.com/view/sex-drops.html
D10 催情剤:http://www.hellokanpo.com/view/D10-meiyao.html
終極痩身:http://www.hellokanpo.com/view/zhongjishoushen.html
超級脂肪燃焼弾:http://www.hellokanpo.com/view/FATBURNING.html
SUPER FAT BURNING:http://www.hellokanpo.com/view/SUPERFATBURNING.html
D5 原液:http://www.hellokanpo.com/view/FLYD5yuan.html
新一粒神:http://www.hellokanpo.com/view/xinyilishen.html
ビグレックス:http://www.hellokanpo.com/view/Oil.html
蔵八宝:http://www.hellokanpo.com/view/zhangbabao.html
御秀堂:http://www.hellokanpo.com/view/yuxiutang.html
中絶薬:http://www.hellokanpo.com/zhongjue


イーリーシン:http://www.hellokanpo.com/view/yilishen.html
ED助勃:http://www.hellokanpo.com
催情:http://www.hellokanpo.com/view/D10-meiyao.html
五便宝:http://www.hellokanpo.com/view/wodibo-capsules.html
キョジンバイゾウ:http://www.hellokanpo.com/view/jurenbeiceng.html
蒼蝿水:http://www.hellokanpo.com/view/FLY-D5.html
VigRx:http://www.hellokanpo.com/view/VigRx.html
ウェイカワン:http://www.hellokanpo.com/view/weigewang.html
VVK:http://www.hellokanpo.com/view/VVK-Wenickman.html
狼1号:http://www.hellokanpo.com/view/langyihao.html
男宝:http://www.hellokanpo.com/view/nanbao.html
vigRx oil:http://www.hellokanpo.com/view/Oil.html
曲美:http://www.hellokanpo.com/view/qumei.html
SPANISCHE FLIEGE:http://www.hellokanpo.com/view/spanische-flieged5-1.html
Wenickman:http://www.hellokanpo.com/view/VVK-Wenickman.html
FLY D5:http://www.hellokanpo.com/view/FLY-D5.html
ペニス増大:http://www.hellokanpo.com/JingLiJi/xingqi.html
蟻王:http://www.hellokanpo.com/view/antking.html
ナンパオ:http://www.hellokanpo.com/view/nanbao.html
ベニクモ:http://www.hellokanpo.com/view/hong-zhi-zhu.html
韓国痩身一号:http://www.hellokanpo.com/view/hanguoshou-575.html
ハナチ:http://www.hellokanpo.com/view/huachi.html
セックスドロップ:http://www.hellokanpo.com/view/sex-drops.html
男根増長素:http://www.hellokanpo.com/view/nangen.html
三鞭粒:http://www.hellokanpo.com/view/wei.html
九鞭粒:http://www.hellokanpo.com/view/jiubianli.html
V26:http://www.hellokanpo.com/view/V26.html
日本秀身堂:http://www.hellokanpo.com/view/xouzhentang.html
procomil spray:http://www.hellokanpo.com/view/procomil-spray.html
性霸2000:http://www.hellokanpo.com/view/xingba2000.html
魔根:http://www.hellokanpo.com/view/muogen.html
花之欲:http://www.hellokanpo.com/view/huazhiyu.html
Xing霸:http://www.hellokanpo.com/view/xingba2000.html
美人豹:http://www.hellokanpo.com/view/meirenbao.html
アリ王:http://www.hellokanpo.com/view/antking.html
男露888:http://www.hellokanpo.com/view/nanlu888.html
消渇丸:http://www.hellokanpo.com/view/xiaokewan.html
西班牙昆虫粉:http://www.hellokanpo.com/view/kunchong-fen.html
壮三天:http://www.hellokanpo.com/view/zhuangsantian.html
モチベーター:http://www.hellokanpo.com/view/Motivat.html
motivator:http://www.hellokanpo.com/view/Motivat.html
早漏防止:http://www.hellokanpo.com/JingLiJi/zaoxie.html
漢方薬 通販:http://www.hellokanpo.com/hanfang
ED治療薬:http://www.hellokanpo.com
勃起促進:http://www.hellokanpo.com/view/weigewang.html
女性用媚薬:http://www.hellokanpo.com/meiyao
漢方ダイエット:http://www.hellokanpo.com/jianfei/hfjianfei.html
ダイエット薬:http://www.hellokanpo.com/jianfei/xinchendaixie.html
さんべんぼう:http://www.hellokanpo.com/view/satibo-capsules.html
リドスプレー:http://www.hellokanpo.com/view/Lidosprayer.html
イカオウ:http://www.hellokanpo.com/view/wei.html
きょくび:http://www.hellokanpo.com/view/qumei.html
威哥王:http://www.hellokanpo.com/view/weigewang.html
巨人倍増:http://www.hellokanpo.com/view/jurenbeiceng.html
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
D10 媚薬:http://www.hellokanpo.com/view/D10-meiyao.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html
紅蜘蛛:http://www.hellokanpo.com/view/hongzhizhu1.html
威哥王 販売:http://www.hellokanpo.com/view/weigewang.html
紅蜘蛛 液体:http://www.hellokanpo.com/view/hong-zhi-zhu.html
紅蜘蛛 激安:http://www.hellokanpo.com/view/hong-zhi-zhu-meiyao.html
三便宝 激安:http://www.hellokanpo.com/view/satibo-capsules5.html
三便宝 販売:http://www.hellokanpo.com/view/satibo-capsules.html

三體牛鞭三體牛鞭2014/11/04 21:52蟻(アリ)王 ( ANT KING ):http://www.superkanpo.com/product/191.html
西班牙催情薬:http://www.superkanpo.com/product/182.html
紅蜘蛛女性催情口服液 RED SPIDER:http://www.superkanpo.com/product/181.html
美人豹:http://www.superkanpo.com/product/179.html
金蒼蝿 Gold Fly 迷情液:http://www.superkanpo.com/product/178.html
西班牙蒼蝿粉(鉄箱催情粉)(4缶装):http://www.superkanpo.com/product/175.html
DEMON女用興奮粉:http://www.superkanpo.com/product/173.html
紅蜘蛛 II(水剤+粉剤):http://www.superkanpo.com/product/171.html
西班牙蒼蝿迷情液 (gold fly):http://www.superkanpo.com/product/168.html
西班牙魔力蒼蝿水:http://www.superkanpo.com/product/167.html
西班牙蒼蝿水口服液+遅延増大:http://www.superkanpo.com/product/166.html
西班牙魔力蒼蝿水:http://www.superkanpo.com/product/164.html
三體牛寶:http://www.superkanpo.com/product/570.html
西班牙蒼蝿水:http://www.superkanpo.com/product/163.html
西班牙蒼蝿水口服液:http://www.superkanpo.com/product/162.html
VOV催情粉:http://www.superkanpo.com/product/236.html
シルバーフォックスslivlr fox 催情液:http://www.superkanpo.com/product/161.html
愛妻楽:http://www.superkanpo.com/product/158.html
西班牙(Spanish Bag)昆虫粉:http://www.superkanpo.com/product/157.html
紅蜘蛛赤くも催情粉:http://www.superkanpo.com/product/156.html
西班牙蒼蝿粉:http://www.superkanpo.com/product/154.html
SPANISCHE FLIEGE D5:http://www.superkanpo.com/product/143.html
三體牛鞭:http://www.superkanpo.com/product/141.html
三体牛鞭:http://www.superkanpo.com/product/141.html
26味三鞭寶:http://www.superkanpo.com/product/138.html

御秀堂養顔痩身カプセル第3代御秀堂養顔痩身カプセル第3代2014/11/04 21:53達克寧:http://www.kampo365.com/product/456.html
宮血寧:http://www.kampo365.com/product/449.html
V26Ⅳ美白美肌速効ダイエット:http://www.kampo365.com/product/407.html
V26Ⅲ速效ダイエット:http://www.kampo365.com/product/406.html
御秀堂養顔痩身カプセル第3代:http://www.kampo365.com/product/392.html
御秀堂養顔痩身カプセル第2代:http://www.kampo365.com/product/391.html
韓国痩身一号:http://www.kampo365.com/product/380.html
曲美:http://www.kampo365.com/product/379.html
日本秀身堂救急箱:http://www.kampo365.com/product/366.html
簡約痩身:http://www.kampo365.com/product/365.html
奇果:http://www.kampo365.com/product/347.html
簡約痩身美体カプセル:http://www.kampo365.com/product/363.html
縮陰膏:http://www.kampo365.com/product/298.html
3月安の長効口径避妊剤:http://www.kampo365.com/product/288.html
RU486:http://www.kampo365.com/product/235.html
K-Y Jelly高級潤滑剤:http://www.kampo365.com/product/286.html
マーベロン Marvelon(事後避妊):http://www.kampo365.com/product/283.html
催春迷香:http://www.kampo365.com/product/245.html
夢露 Monglu:http://www.kampo365.com/product/239.html
VOV催情液:http://www.kampo365.com/product/238.html
中絶薬RU486 (上海華聯):http://www.kampo365.com/product/234.html
悦可亭(長効避妊薬):http://www.kampo365.com/product/232.html
アリ王 蟻王 ANT KING:http://www.kampo365.com/product/231.html
催情コーヒー(女性用媚薬):http://www.kampo365.com/product/229.html
妖JI催情粉:http://www.kampo365.com/product/228.html

2012-07-22

memo

02:03

sql data type

Var char

02:03

select post_id, blog, title, url from train.posts where blog = '26472335'

Total runtime: 40,198.685 ms

bigint

20:00

Total runtime: 49,496.884 ms

花痴花痴2013/09/10 18:54花痴:http://花痴.happykanpo.com
花痴:http://xn--dtyr5y.happykanpo.com
花痴:http://xn--dtyr5y.happykanpo.com
威哥王:http://www.onbape.com
イカオウ:http://www.onbape.com
紅蜘蛛:http://www.shkanpo.com
紅蜘蛛:http://www.shkanpo.com
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html



威哥王:http://www.hellokanpo.com/view/weigewang.html
巨人倍増:http://www.hellokanpo.com/view/jurenbeiceng.html
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
D10 媚薬:http://www.hellokanpo.com/view/D10-meiyao.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html
花痴:http://www.hellokanpo.com/view/huachi.html
紅蜘蛛:http://www.hellokanpo.com/view/hongzhizhu1.html

威哥王:http://www.hellokanpo.com/view/weigewang.html
巨人倍増:http://www.hellokanpo.com/view/jurenbeiceng.html
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
D10 媚薬:http://www.hellokanpo.com/view/D10-meiyao.html
さんべんぼう:http://www.hellokanpo.com/view/satibo-capsules.html
イーリーシン:http://www.hellokanpo.com/view/yilishen.html
狼一号:http://www.hellokanpo.com/view/langyihao.html
三體牛鞭:http://www.hellokanpo.com/view/santiniubian.html
D10 催情剤:http://www.hellokanpo.com/view/D10-meiyao.html
三体牛鞭:http://www.hellokanpo.com/view/santiniubian.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html
韓国痩身1号:http://www.hellokanpo.com/view/hanguoshou-575.html
紅蜘蛛:http://www.hellokanpo.com/view/hongzhizhu1.html


精力剤:http://www.hellokanpo.com/JingLiJi
媚薬:http://www.hellokanpo.com/meiyao
威哥王:http://www.hellokanpo.com/view/weigewang.html
巨人倍増:http://www.hellokanpo.com/view/jurenbeiceng.html
天天素:http://www.hellokanpo.com/view/tiantiansu.html
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
蟻力神:http://www.hellokanpo.com/view/yilishen.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html
韓国痩身1号:http://www.hellokanpo.com/view/hanguoshou-575.html
D10 媚薬:http://www.hellokanpo.com/view/D10-meiyao.html
福源春:http://www.hellokanpo.com/view/fuyuanchun.html
狼一号:http://www.hellokanpo.com/view/langyihao.html
花痴:http://www.hellokanpo.com/view/huachi.html
紅蜘蛛:http://www.hellokanpo.com/view/hongzhizhu1.html
巨根カプセル:http://www.hellokanpo.com/view/jugen.html
三體牛鞭:http://www.hellokanpo.com/view/santiniubian.html
三体牛鞭:http://www.hellokanpo.com/view/santiniubian.html
絶對高潮:http://www.hellokanpo.com/view/jueduigaochao.html
SEX DROPS:http://www.hellokanpo.com/view/sex-drops.html
D10 催情剤:http://www.hellokanpo.com/view/D10-meiyao.html
終極痩身:http://www.hellokanpo.com/view/zhongjishoushen.html
超級脂肪燃焼弾:http://www.hellokanpo.com/view/FATBURNING.html
SUPER FAT BURNING:http://www.hellokanpo.com/view/SUPERFATBURNING.html
D5 原液:http://www.hellokanpo.com/view/FLYD5yuan.html
新一粒神:http://www.hellokanpo.com/view/xinyilishen.html
ビグレックス:http://www.hellokanpo.com/view/Oil.html
蔵八宝:http://www.hellokanpo.com/view/zhangbabao.html
御秀堂:http://www.hellokanpo.com/view/yuxiutang.html
中絶薬:http://www.hellokanpo.com/zhongjue


イーリーシン:http://www.hellokanpo.com/view/yilishen.html
ED助勃:http://www.hellokanpo.com
催情:http://www.hellokanpo.com/view/D10-meiyao.html
五便宝:http://www.hellokanpo.com/view/wodibo-capsules.html
キョジンバイゾウ:http://www.hellokanpo.com/view/jurenbeiceng.html
蒼蝿水:http://www.hellokanpo.com/view/FLY-D5.html
VigRx:http://www.hellokanpo.com/view/VigRx.html
ウェイカワン:http://www.hellokanpo.com/view/weigewang.html
VVK:http://www.hellokanpo.com/view/VVK-Wenickman.html
狼1号:http://www.hellokanpo.com/view/langyihao.html
男宝:http://www.hellokanpo.com/view/nanbao.html
vigRx oil:http://www.hellokanpo.com/view/Oil.html
曲美:http://www.hellokanpo.com/view/qumei.html
SPANISCHE FLIEGE:http://www.hellokanpo.com/view/spanische-flieged5-1.html
Wenickman:http://www.hellokanpo.com/view/VVK-Wenickman.html
FLY D5:http://www.hellokanpo.com/view/FLY-D5.html
ペニス増大:http://www.hellokanpo.com/JingLiJi/xingqi.html
蟻王:http://www.hellokanpo.com/view/antking.html
ナンパオ:http://www.hellokanpo.com/view/nanbao.html
ベニクモ:http://www.hellokanpo.com/view/hong-zhi-zhu.html
韓国痩身一号:http://www.hellokanpo.com/view/hanguoshou-575.html
ハナチ:http://www.hellokanpo.com/view/huachi.html
セックスドロップ:http://www.hellokanpo.com/view/sex-drops.html
男根増長素:http://www.hellokanpo.com/view/nangen.html
三鞭粒:http://www.hellokanpo.com/view/wei.html
九鞭粒:http://www.hellokanpo.com/view/jiubianli.html
V26:http://www.hellokanpo.com/view/V26.html
日本秀身堂:http://www.hellokanpo.com/view/xouzhentang.html
procomil spray:http://www.hellokanpo.com/view/procomil-spray.html
性霸2000:http://www.hellokanpo.com/view/xingba2000.html
魔根:http://www.hellokanpo.com/view/muogen.html
花之欲:http://www.hellokanpo.com/view/huazhiyu.html
Xing霸:http://www.hellokanpo.com/view/xingba2000.html
美人豹:http://www.hellokanpo.com/view/meirenbao.html
アリ王:http://www.hellokanpo.com/view/antking.html
男露888:http://www.hellokanpo.com/view/nanlu888.html
消渇丸:http://www.hellokanpo.com/view/xiaokewan.html
西班牙昆虫粉:http://www.hellokanpo.com/view/kunchong-fen.html
壮三天:http://www.hellokanpo.com/view/zhuangsantian.html
モチベーター:http://www.hellokanpo.com/view/Motivat.html
motivator:http://www.hellokanpo.com/view/Motivat.html
早漏防止:http://www.hellokanpo.com/JingLiJi/zaoxie.html
漢方薬 通販:http://www.hellokanpo.com/hanfang
ED治療薬:http://www.hellokanpo.com
勃起促進:http://www.hellokanpo.com/view/weigewang.html
女性用媚薬:http://www.hellokanpo.com/meiyao
漢方ダイエット:http://www.hellokanpo.com/jianfei/hfjianfei.html
ダイエット薬:http://www.hellokanpo.com/jianfei/xinchendaixie.html
さんべんぼう:http://www.hellokanpo.com/view/satibo-capsules.html
リドスプレー:http://www.hellokanpo.com/view/Lidosprayer.html
イカオウ:http://www.hellokanpo.com/view/wei.html
きょくび:http://www.hellokanpo.com/view/qumei.html
威哥王:http://www.hellokanpo.com/view/weigewang.html
巨人倍増:http://www.hellokanpo.com/view/jurenbeiceng.html
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
D10 媚薬:http://www.hellokanpo.com/view/D10-meiyao.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html
紅蜘蛛:http://www.hellokanpo.com/view/hongzhizhu1.html
威哥王 販売:http://www.hellokanpo.com/view/weigewang.html
紅蜘蛛 液体:http://www.hellokanpo.com/view/hong-zhi-zhu.html
紅蜘蛛 激安:http://www.hellokanpo.com/view/hong-zhi-zhu-meiyao.html
三便宝 激安:http://www.hellokanpo.com/view/satibo-capsules5.html
三便宝 販売:http://www.hellokanpo.com/view/satibo-capsules.html

2012-07-01

花痴花痴2013/09/10 18:54花痴:http://花痴.happykanpo.com
花痴:http://xn--dtyr5y.happykanpo.com
花痴:http://xn--dtyr5y.happykanpo.com
威哥王:http://www.onbape.com
イカオウ:http://www.onbape.com
紅蜘蛛:http://www.shkanpo.com
紅蜘蛛:http://www.shkanpo.com
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html



威哥王:http://www.hellokanpo.com/view/weigewang.html
巨人倍増:http://www.hellokanpo.com/view/jurenbeiceng.html
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
D10 媚薬:http://www.hellokanpo.com/view/D10-meiyao.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html
花痴:http://www.hellokanpo.com/view/huachi.html
紅蜘蛛:http://www.hellokanpo.com/view/hongzhizhu1.html

威哥王:http://www.hellokanpo.com/view/weigewang.html
巨人倍増:http://www.hellokanpo.com/view/jurenbeiceng.html
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
D10 媚薬:http://www.hellokanpo.com/view/D10-meiyao.html
さんべんぼう:http://www.hellokanpo.com/view/satibo-capsules.html
イーリーシン:http://www.hellokanpo.com/view/yilishen.html
狼一号:http://www.hellokanpo.com/view/langyihao.html
三體牛鞭:http://www.hellokanpo.com/view/santiniubian.html
D10 催情剤:http://www.hellokanpo.com/view/D10-meiyao.html
三体牛鞭:http://www.hellokanpo.com/view/santiniubian.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html
韓国痩身1号:http://www.hellokanpo.com/view/hanguoshou-575.html
紅蜘蛛:http://www.hellokanpo.com/view/hongzhizhu1.html


精力剤:http://www.hellokanpo.com/JingLiJi
媚薬:http://www.hellokanpo.com/meiyao
威哥王:http://www.hellokanpo.com/view/weigewang.html
巨人倍増:http://www.hellokanpo.com/view/jurenbeiceng.html
天天素:http://www.hellokanpo.com/view/tiantiansu.html
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
蟻力神:http://www.hellokanpo.com/view/yilishen.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html
韓国痩身1号:http://www.hellokanpo.com/view/hanguoshou-575.html
D10 媚薬:http://www.hellokanpo.com/view/D10-meiyao.html
福源春:http://www.hellokanpo.com/view/fuyuanchun.html
狼一号:http://www.hellokanpo.com/view/langyihao.html
花痴:http://www.hellokanpo.com/view/huachi.html
紅蜘蛛:http://www.hellokanpo.com/view/hongzhizhu1.html
巨根カプセル:http://www.hellokanpo.com/view/jugen.html
三體牛鞭:http://www.hellokanpo.com/view/santiniubian.html
三体牛鞭:http://www.hellokanpo.com/view/santiniubian.html
絶對高潮:http://www.hellokanpo.com/view/jueduigaochao.html
SEX DROPS:http://www.hellokanpo.com/view/sex-drops.html
D10 催情剤:http://www.hellokanpo.com/view/D10-meiyao.html
終極痩身:http://www.hellokanpo.com/view/zhongjishoushen.html
超級脂肪燃焼弾:http://www.hellokanpo.com/view/FATBURNING.html
SUPER FAT BURNING:http://www.hellokanpo.com/view/SUPERFATBURNING.html
D5 原液:http://www.hellokanpo.com/view/FLYD5yuan.html
新一粒神:http://www.hellokanpo.com/view/xinyilishen.html
ビグレックス:http://www.hellokanpo.com/view/Oil.html
蔵八宝:http://www.hellokanpo.com/view/zhangbabao.html
御秀堂:http://www.hellokanpo.com/view/yuxiutang.html
中絶薬:http://www.hellokanpo.com/zhongjue


イーリーシン:http://www.hellokanpo.com/view/yilishen.html
ED助勃:http://www.hellokanpo.com
催情:http://www.hellokanpo.com/view/D10-meiyao.html
五便宝:http://www.hellokanpo.com/view/wodibo-capsules.html
キョジンバイゾウ:http://www.hellokanpo.com/view/jurenbeiceng.html
蒼蝿水:http://www.hellokanpo.com/view/FLY-D5.html
VigRx:http://www.hellokanpo.com/view/VigRx.html
ウェイカワン:http://www.hellokanpo.com/view/weigewang.html
VVK:http://www.hellokanpo.com/view/VVK-Wenickman.html
狼1号:http://www.hellokanpo.com/view/langyihao.html
男宝:http://www.hellokanpo.com/view/nanbao.html
vigRx oil:http://www.hellokanpo.com/view/Oil.html
曲美:http://www.hellokanpo.com/view/qumei.html
SPANISCHE FLIEGE:http://www.hellokanpo.com/view/spanische-flieged5-1.html
Wenickman:http://www.hellokanpo.com/view/VVK-Wenickman.html
FLY D5:http://www.hellokanpo.com/view/FLY-D5.html
ペニス増大:http://www.hellokanpo.com/JingLiJi/xingqi.html
蟻王:http://www.hellokanpo.com/view/antking.html
ナンパオ:http://www.hellokanpo.com/view/nanbao.html
ベニクモ:http://www.hellokanpo.com/view/hong-zhi-zhu.html
韓国痩身一号:http://www.hellokanpo.com/view/hanguoshou-575.html
ハナチ:http://www.hellokanpo.com/view/huachi.html
セックスドロップ:http://www.hellokanpo.com/view/sex-drops.html
男根増長素:http://www.hellokanpo.com/view/nangen.html
三鞭粒:http://www.hellokanpo.com/view/wei.html
九鞭粒:http://www.hellokanpo.com/view/jiubianli.html
V26:http://www.hellokanpo.com/view/V26.html
日本秀身堂:http://www.hellokanpo.com/view/xouzhentang.html
procomil spray:http://www.hellokanpo.com/view/procomil-spray.html
性霸2000:http://www.hellokanpo.com/view/xingba2000.html
魔根:http://www.hellokanpo.com/view/muogen.html
花之欲:http://www.hellokanpo.com/view/huazhiyu.html
Xing霸:http://www.hellokanpo.com/view/xingba2000.html
美人豹:http://www.hellokanpo.com/view/meirenbao.html
アリ王:http://www.hellokanpo.com/view/antking.html
男露888:http://www.hellokanpo.com/view/nanlu888.html
消渇丸:http://www.hellokanpo.com/view/xiaokewan.html
西班牙昆虫粉:http://www.hellokanpo.com/view/kunchong-fen.html
壮三天:http://www.hellokanpo.com/view/zhuangsantian.html
モチベーター:http://www.hellokanpo.com/view/Motivat.html
motivator:http://www.hellokanpo.com/view/Motivat.html
早漏防止:http://www.hellokanpo.com/JingLiJi/zaoxie.html
漢方薬 通販:http://www.hellokanpo.com/hanfang
ED治療薬:http://www.hellokanpo.com
勃起促進:http://www.hellokanpo.com/view/weigewang.html
女性用媚薬:http://www.hellokanpo.com/meiyao
漢方ダイエット:http://www.hellokanpo.com/jianfei/hfjianfei.html
ダイエット薬:http://www.hellokanpo.com/jianfei/xinchendaixie.html
さんべんぼう:http://www.hellokanpo.com/view/satibo-capsules.html
リドスプレー:http://www.hellokanpo.com/view/Lidosprayer.html
イカオウ:http://www.hellokanpo.com/view/wei.html
きょくび:http://www.hellokanpo.com/view/qumei.html
威哥王:http://www.hellokanpo.com/view/weigewang.html
巨人倍増:http://www.hellokanpo.com/view/jurenbeiceng.html
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
D10 媚薬:http://www.hellokanpo.com/view/D10-meiyao.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html
紅蜘蛛:http://www.hellokanpo.com/view/hongzhizhu1.html
威哥王 販売:http://www.hellokanpo.com/view/weigewang.html
紅蜘蛛 液体:http://www.hellokanpo.com/view/hong-zhi-zhu.html
紅蜘蛛 激安:http://www.hellokanpo.com/view/hong-zhi-zhu-meiyao.html
三便宝 激安:http://www.hellokanpo.com/view/satibo-capsules5.html
三便宝 販売:http://www.hellokanpo.com/view/satibo-capsules.html

2012-06-17

17:30

System.Info.MAC.Fetchの実装がMacのifconfigを読んでくれないのでちょっとParsecの勉強ついでに調べてみる。

ifconfigの内容をparsecでパースする。Parserの中でparse関数を読んでいるのは筋が悪い気がするし、こういう分野は正規表現が得意な気がする。

最初に各NICセクションを分けて、それぞれの中をさらにパースして結果とする。

before :: Parser a -> Parser Bool
before p = try (lookAhead p *> return True) <|> (eof *> return False) <|>(anyChar *> before p)


nicSection :: Parser (String, Maybe MAC)
nicSection = do
  name <- many1 alphaNum
  r <- manyTill anyChar (try $ lookAhead $ (void (char '\n' *> alphaNum)) <|> eof)
  let mac = case (parse macAddr "macaddr parse" r) of
        Left _ -> Nothing
        Right mac -> mac
      ret = (name, mac)
  (char '\n' *> return ret) <|> return ret
  -- Skip next char if it's '\n'. However, the below doesn't work
  -- try $ char '\n'
  -- return ret


nicSections :: Parser [(String, Maybe MAC)]
nicSections = many1 nicSection


macAddr :: Parser (Maybe MAC)
macAddr = do
  found <- before markers
  if found
    then do
      markers
      spaces
      parseMAC ':' >>= return
    else return Nothing
 where
  markers = choice $ map (try . string) [ "ether", "HWaddr" ]


parseNICs' :: Parser [(String, MAC)]
parseNICs' = (foldr macAddrOnOnly []) <$> nicSections
  where
    macAddrOnOnly (_, Nothing) p = p
    macAddrOnOnly (n, Just x) p = (n, x) : p


main:: IO ()
main=do
  let u = parse parseNICs' "ifconfig mac" mac
  putStrLn $ show u

beforeは山本さんのを参考にした。

  (char '\n' *> return ret) <|> return ret

あたりはもっといい方法がありそうな気がする。「もし今読んでいるところが'\n'なら一文字読む」

参考;

花痴花痴2013/09/10 18:55花痴:http://花痴.happykanpo.com
花痴:http://xn--dtyr5y.happykanpo.com
花痴:http://xn--dtyr5y.happykanpo.com
威哥王:http://www.onbape.com
イカオウ:http://www.onbape.com
紅蜘蛛:http://www.shkanpo.com
紅蜘蛛:http://www.shkanpo.com
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html



威哥王:http://www.hellokanpo.com/view/weigewang.html
巨人倍増:http://www.hellokanpo.com/view/jurenbeiceng.html
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
D10 媚薬:http://www.hellokanpo.com/view/D10-meiyao.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html
花痴:http://www.hellokanpo.com/view/huachi.html
紅蜘蛛:http://www.hellokanpo.com/view/hongzhizhu1.html

威哥王:http://www.hellokanpo.com/view/weigewang.html
巨人倍増:http://www.hellokanpo.com/view/jurenbeiceng.html
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
D10 媚薬:http://www.hellokanpo.com/view/D10-meiyao.html
さんべんぼう:http://www.hellokanpo.com/view/satibo-capsules.html
イーリーシン:http://www.hellokanpo.com/view/yilishen.html
狼一号:http://www.hellokanpo.com/view/langyihao.html
三體牛鞭:http://www.hellokanpo.com/view/santiniubian.html
D10 催情剤:http://www.hellokanpo.com/view/D10-meiyao.html
三体牛鞭:http://www.hellokanpo.com/view/santiniubian.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html
韓国痩身1号:http://www.hellokanpo.com/view/hanguoshou-575.html
紅蜘蛛:http://www.hellokanpo.com/view/hongzhizhu1.html


精力剤:http://www.hellokanpo.com/JingLiJi
媚薬:http://www.hellokanpo.com/meiyao
威哥王:http://www.hellokanpo.com/view/weigewang.html
巨人倍増:http://www.hellokanpo.com/view/jurenbeiceng.html
天天素:http://www.hellokanpo.com/view/tiantiansu.html
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
蟻力神:http://www.hellokanpo.com/view/yilishen.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html
韓国痩身1号:http://www.hellokanpo.com/view/hanguoshou-575.html
D10 媚薬:http://www.hellokanpo.com/view/D10-meiyao.html
福源春:http://www.hellokanpo.com/view/fuyuanchun.html
狼一号:http://www.hellokanpo.com/view/langyihao.html
花痴:http://www.hellokanpo.com/view/huachi.html
紅蜘蛛:http://www.hellokanpo.com/view/hongzhizhu1.html
巨根カプセル:http://www.hellokanpo.com/view/jugen.html
三體牛鞭:http://www.hellokanpo.com/view/santiniubian.html
三体牛鞭:http://www.hellokanpo.com/view/santiniubian.html
絶對高潮:http://www.hellokanpo.com/view/jueduigaochao.html
SEX DROPS:http://www.hellokanpo.com/view/sex-drops.html
D10 催情剤:http://www.hellokanpo.com/view/D10-meiyao.html
終極痩身:http://www.hellokanpo.com/view/zhongjishoushen.html
超級脂肪燃焼弾:http://www.hellokanpo.com/view/FATBURNING.html
SUPER FAT BURNING:http://www.hellokanpo.com/view/SUPERFATBURNING.html
D5 原液:http://www.hellokanpo.com/view/FLYD5yuan.html
新一粒神:http://www.hellokanpo.com/view/xinyilishen.html
ビグレックス:http://www.hellokanpo.com/view/Oil.html
蔵八宝:http://www.hellokanpo.com/view/zhangbabao.html
御秀堂:http://www.hellokanpo.com/view/yuxiutang.html
中絶薬:http://www.hellokanpo.com/zhongjue


イーリーシン:http://www.hellokanpo.com/view/yilishen.html
ED助勃:http://www.hellokanpo.com
催情:http://www.hellokanpo.com/view/D10-meiyao.html
五便宝:http://www.hellokanpo.com/view/wodibo-capsules.html
キョジンバイゾウ:http://www.hellokanpo.com/view/jurenbeiceng.html
蒼蝿水:http://www.hellokanpo.com/view/FLY-D5.html
VigRx:http://www.hellokanpo.com/view/VigRx.html
ウェイカワン:http://www.hellokanpo.com/view/weigewang.html
VVK:http://www.hellokanpo.com/view/VVK-Wenickman.html
狼1号:http://www.hellokanpo.com/view/langyihao.html
男宝:http://www.hellokanpo.com/view/nanbao.html
vigRx oil:http://www.hellokanpo.com/view/Oil.html
曲美:http://www.hellokanpo.com/view/qumei.html
SPANISCHE FLIEGE:http://www.hellokanpo.com/view/spanische-flieged5-1.html
Wenickman:http://www.hellokanpo.com/view/VVK-Wenickman.html
FLY D5:http://www.hellokanpo.com/view/FLY-D5.html
ペニス増大:http://www.hellokanpo.com/JingLiJi/xingqi.html
蟻王:http://www.hellokanpo.com/view/antking.html
ナンパオ:http://www.hellokanpo.com/view/nanbao.html
ベニクモ:http://www.hellokanpo.com/view/hong-zhi-zhu.html
韓国痩身一号:http://www.hellokanpo.com/view/hanguoshou-575.html
ハナチ:http://www.hellokanpo.com/view/huachi.html
セックスドロップ:http://www.hellokanpo.com/view/sex-drops.html
男根増長素:http://www.hellokanpo.com/view/nangen.html
三鞭粒:http://www.hellokanpo.com/view/wei.html
九鞭粒:http://www.hellokanpo.com/view/jiubianli.html
V26:http://www.hellokanpo.com/view/V26.html
日本秀身堂:http://www.hellokanpo.com/view/xouzhentang.html
procomil spray:http://www.hellokanpo.com/view/procomil-spray.html
性霸2000:http://www.hellokanpo.com/view/xingba2000.html
魔根:http://www.hellokanpo.com/view/muogen.html
花之欲:http://www.hellokanpo.com/view/huazhiyu.html
Xing霸:http://www.hellokanpo.com/view/xingba2000.html
美人豹:http://www.hellokanpo.com/view/meirenbao.html
アリ王:http://www.hellokanpo.com/view/antking.html
男露888:http://www.hellokanpo.com/view/nanlu888.html
消渇丸:http://www.hellokanpo.com/view/xiaokewan.html
西班牙昆虫粉:http://www.hellokanpo.com/view/kunchong-fen.html
壮三天:http://www.hellokanpo.com/view/zhuangsantian.html
モチベーター:http://www.hellokanpo.com/view/Motivat.html
motivator:http://www.hellokanpo.com/view/Motivat.html
早漏防止:http://www.hellokanpo.com/JingLiJi/zaoxie.html
漢方薬 通販:http://www.hellokanpo.com/hanfang
ED治療薬:http://www.hellokanpo.com
勃起促進:http://www.hellokanpo.com/view/weigewang.html
女性用媚薬:http://www.hellokanpo.com/meiyao
漢方ダイエット:http://www.hellokanpo.com/jianfei/hfjianfei.html
ダイエット薬:http://www.hellokanpo.com/jianfei/xinchendaixie.html
さんべんぼう:http://www.hellokanpo.com/view/satibo-capsules.html
リドスプレー:http://www.hellokanpo.com/view/Lidosprayer.html
イカオウ:http://www.hellokanpo.com/view/wei.html
きょくび:http://www.hellokanpo.com/view/qumei.html
威哥王:http://www.hellokanpo.com/view/weigewang.html
巨人倍増:http://www.hellokanpo.com/view/jurenbeiceng.html
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
D10 媚薬:http://www.hellokanpo.com/view/D10-meiyao.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html
紅蜘蛛:http://www.hellokanpo.com/view/hongzhizhu1.html
威哥王 販売:http://www.hellokanpo.com/view/weigewang.html
紅蜘蛛 液体:http://www.hellokanpo.com/view/hong-zhi-zhu.html
紅蜘蛛 激安:http://www.hellokanpo.com/view/hong-zhi-zhu-meiyao.html
三便宝 激安:http://www.hellokanpo.com/view/satibo-capsules5.html
三便宝 販売:http://www.hellokanpo.com/view/satibo-capsules.html

2012-05-30

containerを読む

22:31

(zero p1 m)がtrueならば、p1とp2でp2のほうがおおきい。

join :: Prefix -> IntMap a -> Prefix -> IntMap a -> IntMap a
join p1 t1 p2 t2
  | zero p1 m = Bin p m t1 t2
  | otherwise = Bin p m t2 t1
  where
    m = branchMask p1 p2
    p = mask p1 m

このBinのmで使われるbranchMaskは二つのprefixをとって、xorしたあとに一番大きいBitをかえす。

花痴花痴2013/09/10 18:55花痴:http://花痴.happykanpo.com
花痴:http://xn--dtyr5y.happykanpo.com
花痴:http://xn--dtyr5y.happykanpo.com
威哥王:http://www.onbape.com
イカオウ:http://www.onbape.com
紅蜘蛛:http://www.shkanpo.com
紅蜘蛛:http://www.shkanpo.com
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html



威哥王:http://www.hellokanpo.com/view/weigewang.html
巨人倍増:http://www.hellokanpo.com/view/jurenbeiceng.html
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
D10 媚薬:http://www.hellokanpo.com/view/D10-meiyao.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html
花痴:http://www.hellokanpo.com/view/huachi.html
紅蜘蛛:http://www.hellokanpo.com/view/hongzhizhu1.html

威哥王:http://www.hellokanpo.com/view/weigewang.html
巨人倍増:http://www.hellokanpo.com/view/jurenbeiceng.html
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
D10 媚薬:http://www.hellokanpo.com/view/D10-meiyao.html
さんべんぼう:http://www.hellokanpo.com/view/satibo-capsules.html
イーリーシン:http://www.hellokanpo.com/view/yilishen.html
狼一号:http://www.hellokanpo.com/view/langyihao.html
三體牛鞭:http://www.hellokanpo.com/view/santiniubian.html
D10 催情剤:http://www.hellokanpo.com/view/D10-meiyao.html
三体牛鞭:http://www.hellokanpo.com/view/santiniubian.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html
韓国痩身1号:http://www.hellokanpo.com/view/hanguoshou-575.html
紅蜘蛛:http://www.hellokanpo.com/view/hongzhizhu1.html


精力剤:http://www.hellokanpo.com/JingLiJi
媚薬:http://www.hellokanpo.com/meiyao
威哥王:http://www.hellokanpo.com/view/weigewang.html
巨人倍増:http://www.hellokanpo.com/view/jurenbeiceng.html
天天素:http://www.hellokanpo.com/view/tiantiansu.html
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
蟻力神:http://www.hellokanpo.com/view/yilishen.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html
韓国痩身1号:http://www.hellokanpo.com/view/hanguoshou-575.html
D10 媚薬:http://www.hellokanpo.com/view/D10-meiyao.html
福源春:http://www.hellokanpo.com/view/fuyuanchun.html
狼一号:http://www.hellokanpo.com/view/langyihao.html
花痴:http://www.hellokanpo.com/view/huachi.html
紅蜘蛛:http://www.hellokanpo.com/view/hongzhizhu1.html
巨根カプセル:http://www.hellokanpo.com/view/jugen.html
三體牛鞭:http://www.hellokanpo.com/view/santiniubian.html
三体牛鞭:http://www.hellokanpo.com/view/santiniubian.html
絶對高潮:http://www.hellokanpo.com/view/jueduigaochao.html
SEX DROPS:http://www.hellokanpo.com/view/sex-drops.html
D10 催情剤:http://www.hellokanpo.com/view/D10-meiyao.html
終極痩身:http://www.hellokanpo.com/view/zhongjishoushen.html
超級脂肪燃焼弾:http://www.hellokanpo.com/view/FATBURNING.html
SUPER FAT BURNING:http://www.hellokanpo.com/view/SUPERFATBURNING.html
D5 原液:http://www.hellokanpo.com/view/FLYD5yuan.html
新一粒神:http://www.hellokanpo.com/view/xinyilishen.html
ビグレックス:http://www.hellokanpo.com/view/Oil.html
蔵八宝:http://www.hellokanpo.com/view/zhangbabao.html
御秀堂:http://www.hellokanpo.com/view/yuxiutang.html
中絶薬:http://www.hellokanpo.com/zhongjue


イーリーシン:http://www.hellokanpo.com/view/yilishen.html
ED助勃:http://www.hellokanpo.com
催情:http://www.hellokanpo.com/view/D10-meiyao.html
五便宝:http://www.hellokanpo.com/view/wodibo-capsules.html
キョジンバイゾウ:http://www.hellokanpo.com/view/jurenbeiceng.html
蒼蝿水:http://www.hellokanpo.com/view/FLY-D5.html
VigRx:http://www.hellokanpo.com/view/VigRx.html
ウェイカワン:http://www.hellokanpo.com/view/weigewang.html
VVK:http://www.hellokanpo.com/view/VVK-Wenickman.html
狼1号:http://www.hellokanpo.com/view/langyihao.html
男宝:http://www.hellokanpo.com/view/nanbao.html
vigRx oil:http://www.hellokanpo.com/view/Oil.html
曲美:http://www.hellokanpo.com/view/qumei.html
SPANISCHE FLIEGE:http://www.hellokanpo.com/view/spanische-flieged5-1.html
Wenickman:http://www.hellokanpo.com/view/VVK-Wenickman.html
FLY D5:http://www.hellokanpo.com/view/FLY-D5.html
ペニス増大:http://www.hellokanpo.com/JingLiJi/xingqi.html
蟻王:http://www.hellokanpo.com/view/antking.html
ナンパオ:http://www.hellokanpo.com/view/nanbao.html
ベニクモ:http://www.hellokanpo.com/view/hong-zhi-zhu.html
韓国痩身一号:http://www.hellokanpo.com/view/hanguoshou-575.html
ハナチ:http://www.hellokanpo.com/view/huachi.html
セックスドロップ:http://www.hellokanpo.com/view/sex-drops.html
男根増長素:http://www.hellokanpo.com/view/nangen.html
三鞭粒:http://www.hellokanpo.com/view/wei.html
九鞭粒:http://www.hellokanpo.com/view/jiubianli.html
V26:http://www.hellokanpo.com/view/V26.html
日本秀身堂:http://www.hellokanpo.com/view/xouzhentang.html
procomil spray:http://www.hellokanpo.com/view/procomil-spray.html
性霸2000:http://www.hellokanpo.com/view/xingba2000.html
魔根:http://www.hellokanpo.com/view/muogen.html
花之欲:http://www.hellokanpo.com/view/huazhiyu.html
Xing霸:http://www.hellokanpo.com/view/xingba2000.html
美人豹:http://www.hellokanpo.com/view/meirenbao.html
アリ王:http://www.hellokanpo.com/view/antking.html
男露888:http://www.hellokanpo.com/view/nanlu888.html
消渇丸:http://www.hellokanpo.com/view/xiaokewan.html
西班牙昆虫粉:http://www.hellokanpo.com/view/kunchong-fen.html
壮三天:http://www.hellokanpo.com/view/zhuangsantian.html
モチベーター:http://www.hellokanpo.com/view/Motivat.html
motivator:http://www.hellokanpo.com/view/Motivat.html
早漏防止:http://www.hellokanpo.com/JingLiJi/zaoxie.html
漢方薬 通販:http://www.hellokanpo.com/hanfang
ED治療薬:http://www.hellokanpo.com
勃起促進:http://www.hellokanpo.com/view/weigewang.html
女性用媚薬:http://www.hellokanpo.com/meiyao
漢方ダイエット:http://www.hellokanpo.com/jianfei/hfjianfei.html
ダイエット薬:http://www.hellokanpo.com/jianfei/xinchendaixie.html
さんべんぼう:http://www.hellokanpo.com/view/satibo-capsules.html
リドスプレー:http://www.hellokanpo.com/view/Lidosprayer.html
イカオウ:http://www.hellokanpo.com/view/wei.html
きょくび:http://www.hellokanpo.com/view/qumei.html
威哥王:http://www.hellokanpo.com/view/weigewang.html
巨人倍増:http://www.hellokanpo.com/view/jurenbeiceng.html
三便宝:http://www.hellokanpo.com/view/satibo-capsules.html
D10 媚薬:http://www.hellokanpo.com/view/D10-meiyao.html
RU486:http://www.hellokanpo.com/view/beijing-ru486.html
紅蜘蛛:http://www.hellokanpo.com/view/hongzhizhu1.html
威哥王 販売:http://www.hellokanpo.com/view/weigewang.html
紅蜘蛛 液体:http://www.hellokanpo.com/view/hong-zhi-zhu.html
紅蜘蛛 激安:http://www.hellokanpo.com/view/hong-zhi-zhu-meiyao.html
三便宝 激安:http://www.hellokanpo.com/view/satibo-capsules5.html
三便宝 販売:http://www.hellokanpo.com/view/satibo-capsules.html

|