xsとdankogaiに関するTAKESAKOのブックマーク (3)
-
2009年02月22日00:15 カテゴリ perl - Text::Tx now released! 以前作って放置してあったText::Tx を、CPAN にも Release したのでお知らせします。 /lang/perl/Text-Tx/L/trunk - CodeRepos::Share - Trac Dan Kogai / Text-Tx/ - search.cpan.org http://www.dan.co.jp/~dankogai/cpan/Text-Tx-0.02.tar.gz 404 Blog Not Found:perl - Text::Tx も一応作った CPANにまだ上げない理由その一。txはlibraryとして素直に使うにはちょっと問題があるのです。 もう一つは、なぜか Mac OS X v10.4.11 の gcc 4.0できちんとcompileしないこと。
-
2008年06月27日14:45 カテゴリLightweight Languages perl - Const.pm is unauthorized まずは舌足らずをお詫び。 YappoLogs: Internals::SvREADONLY danさんの ただし、これではscalarしかflagをいじれません。というわけで、同様のことをXSでやるようにするモジュールを書いたというわけです。 これは間違いでARRAYもHASHも弄れます。 これは、s/scalar/PV一つ/gですね。 どういうことかというと、PVAVとしてのarray, PVHVとしてのhashはread-onlyに出来ても、その中身は違うということ。 % perl -MDevel::Peek -le '@a=(1,2);Internals::SvREADONLY(@a,1);Dump \@a' SV = RV(0x180
-
2007年12月07日19:00 カテゴリLightweight Languages perl - 勝手に添削 - SvTRUEをPurePerlで ちょっと風邪気味なので今日は家でおとなしく。 SvTRUE、PurePerl版 - D-6 [相変わらず根無し] sub SvTRUE{ my $x = shift; if (! defined $x) { return (); } if (!ref $x && $x =~ /\D/) { return length($x) > 1 || substr($x, 0, 1) ne '0'; } else { return $x; } } 長過ぎるように見えるのは体調のせいじゃないよね。 だって、一行でこう書けるんだもん。 sub SvTRUE{ !! $_[0] } で、以下証拠。 #!/usr/local/bin/perl use stric
-
1