sudo port selfupdate
sudo port upgrade outdated
#import <Foundation/Foundation.h>
#import <stdio.h>
int main(void)
{
NSAutoreleasePool *pool = [[NSAutoreleasePool alloc]init];
NSObject *obj = [[NSObject alloc] init];
printf("init: %d\n",[obj retainCount]);
[obj retain];
printf("retain: %d\n",[obj retainCount]);
[obj retain];
printf("retain: %d\n",[obj retainCount]);
[obj release];
printf("release: %d\n",[obj retainCount]);
[obj release];
printf("release: %d\n",[obj retainCount]);
[obj release];
/* 実行するとエラーになるはずなのだが・・・ */
printf("release: %d\n",[obj retainCount]);
[pool drain];
return 0;
}
gcc -framework Foundation -m32 reference.minit: 1 retain: 2 retain: 3 release: 2 release: 1 objc[2758]: FREED(id): message retainCount sent to freed object=0x103f60 Illegal instruction
init: 1 retain: 2 retain: 3 release: 2 release: 1 release: 1
$ ps ax | awk '{ print $1 }' | sort -n | uniq -c | awk '{ print $2,$1}'$ tail -f /var/log/messages
startnet startGemstone
startSeaside_Hyper 50081
_____________________________________________________________________________ | Configuration Files | | | | System File: /opt/gemstone/GemStone64Bit2.4.4.1-x86_64.Linux/seaside/data/system.conf | | | Executable File: /opt/gemstone/GemStone64Bit2.4.4.1-x86_64.Linux/seaside/data/gem.conf |_____________________________________________________________________________| Using GEM_TEMPOBJ_CACHE_SIZE 50000 from -T command line option _____________________________________________________________________________ | Gem Configuration Options for process id 15795 | |_____________________________________________________________________________| DUMP_OPTIONS = TRUE; GEM_GCI_LOG_ENABLED = FALSE; GEM_FREE_FRAME_CACHE_SIZE = -1; GEM_FREE_FRAME_LIMIT = -1; GEM_HALT_ON_ERROR = 0; GEM_IO_LIMIT = 5000; GEM_KEEP_MIN_SOFTREFS = 0; GEM_MAX_SMALLTALK_STACK_DEPTH = 1000; GEM_PRIVATE_PAGE_CACHE_KB = 1000; GEM_PGSVR_FREE_FRAME_CACHE_SIZE = -1; GEM_PGSVR_FREE_FRAME_LIMIT = -1; GEM_PGSVR_UPDATE_CACHE_ON_READ = FALSE; GEM_RPCGCI_TIMEOUT = 0; GEM_SOFTREF_CLEANUP_PERCENT_MEM = 50; GEM_TEMPOBJ_AGGRESSIVE_STUBBING = TRUE; GEM_TEMPOBJ_CACHE_SIZE = 50000; GEM_TEMPOBJ_INITIAL_SIZE not used on this platform GEM_TEMPOBJ_MESPACE_SIZE = 0; GEM_TEMPOBJ_OOPMAP_SIZE = 0; GEM_TEMPOBJ_POMGEN_SIZE = 0; GEM_TEMPOBJ_POMGEN_PRUNE_ON_VOTE = 50; GEM_TEMPOBJ_POMGEN_SCAVENGE_INTERVAL = 1800; LOG_WARNINGS = TRUE; SHR_NUM_FREE_FRAME_SERVERS = 1; SHR_PAGE_CACHE_NUM_SHARED_COUNTERS = 1900; SHR_PAGE_CACHE_SIZE_KB = 500000; SHR_PAGE_CACHE_NUM_PROCS = 1017; SHR_TARGET_FREE_FRAME_COUNT = -1; (vmGc spaceSizes: eden init 2000K max 9368K , survivor init 400K max 1568K, vmGc old max 37496K, code max 10000K, perm max 5000K, pom 10 * 4168K = 41680K, vmGc remSet 1008K, meSpace max 47800K oopMapSize 262144 ) _____________________________________________________________________________ | GemStone/S64 Object-Oriented Data Management System | | Copyright (C) GemStone Systems, Inc. 1986-2010 | | All rights reserved. | | covered by Patent Number 6,567,905 Generational Garbage Collector. | +-----------------------------------------------------------------------------+ | PROGRAM: topaz, Linear GemStone Interface (Linked Session) | | VERSION: 2.4.4.1, Tue Jul 13 15:19:49 2010 | | BUILD: gss64_2_4_4_x_branch-23813 | | BUILT FOR: x86-64 (Linux) | | MODE: 64 bit | | RUNNING ON: 6-CPU localhost x86_64 (Linux 2.6.18-194.11.1.el5 #1 SMP Tue Aug| | 10 19:05:06 EDT 2010) 7480MB | | PROCESS ID: 15795 DATE: 2010年08月26日 06時38分42秒 JST | | USER IDS: REAL=ringo (500) EFFECTIVE=ringo (500) | | DATEFORMAT: %Y年%m月%d日 %H時%M分%S秒 | |_____________________________________________________________________________| topaz> topaz> topaz> topaz> topaz> topaz> topaz> topaz> [Info]: LNK client/gem GCI levels = 844/844 [Info]: User ID: DataCurator [Info]: Repository: seaside [Info]: Session ID: 1 [Info]: GCI Client Host:[Info]: Page server PID: -1 [Info]: Login Time: 2010年08月26日 06時38分42秒.198 JST [2010年08月26日 06時38分43秒.095 JST] gci login: currSession 1 rpc gem processId -1 successful login topaz 1> topaz 1> [268 sz:0 cls: 68097 Boolean] true topaz 1> topaz 1> GemStone Smalltalk Compiler Errors: | service server site | true "enable for remote breakpoints and profiling" ifTrue: [ GemToGemAnnouncement installStaticHandler. Exception installStaticException: [:ex :cat :num :args | BreakpointNotification signal. "needed to avoid infinite loop when resuming from a breakpoint" ex _incrementBreakpointsToIgnore. ] category: GemStoneError number: 6005 subtype: nil. System commitTransaction ifFalse: [ nil error: 'Could not commit for GemToGemSignaling' ]]. System transactionMode: #manualBegin. Exception installStaticException: [:ex :cat :num :args | "Run the abort in a lowPriority process, since we must acquire the transactionMutex." [ SeasidePlatformSupport transactionMutex * ^1 ******* critical: [ SeasidePlatformSupport doAbortTransaction ]. System enableSignaledAbortError. ] forkAt: Processor lowestPriority. ] category: GemStoneError number: 6009 subtype: nil. System enableSignaledAbortError. "This thread is needed to handle the SigAbort exception, when the primary thread is blocked on an accept. Assuming default 60 second STN_GEM_ABORT_TIMEOUT, wake up at 30 second intervals." [ [ true ] whileTrue: [ (Delay forSeconds: 30) wait ]. ] forkAt: Processor lowestPriority. service := SeasideHTTPService onPort: 50081 acceptInForeground: true multiThreading: false. * ^2 GsFile gciLogServer: 'Hyper Server started on port ', 50081 printString. service start. "does not return, unless there's an error" 1: [1031] undefined symbol 2: [1031] undefined symbol Now executing the following command saved from "iferr 1": where Stack is not active topaz 1> [268 sz:0 cls: 68097 Boolean] true topaz 1>
$ script test.log
$ exitを入力します．
Transcript clear.
x := 10.
box := Array new:x.
1 to:x do:[:v | box at:v put: (1 to: 100) atRandom].
box do:[:v |Transcript show:v; show:Character space. ].
Transcript cr.
c := 1.
counter := 1.
[box size = counter] whileFalse:[
counter := 1.
box := box shuffle.
2 to: box size do:[:i |
((box at: i -1) < (box at: i) )
ifTrue:[ counter := counter + 1]
].
c := c + 1.
].
box do:[:v |Transcript show:v; show:Character space. ].
Transcript cr;show:'loop counter='; show:c; cr.
Transcript cr; show:'Hello World'.
// file name -> test.m
#import<foundation/foundation.h>
int main(void){
NSLog(@"Hello World");
return 0;
}
"Workspaceに記述し，do it"
$ gcc -framework Foundation test.m
NSNumber *number = [NSNumber numberWithFloat: 1.0];
'文字列です'
@"文字列です"
:=
=
."ピリオド"
; //セミコロン
'Ringo no Tane' size. "文字列の長さを求める"
[@"Ringo no Tane" length]; //文字列の長さを求める
; "セミコロン"
"カスケードなし" Transcript cr. Transcript show:'Hello'. "カスケードあり" Transcript cr; show:'Hello'.
true "真，Trueクラスのインスタンス" false "偽，Falseクラスのインスタンス" nil "不定"
YES //真を表す定数 0でない値 NO //偽を表す定数 0 nil //nullのオブジェクトを示す．nilはid型の空ポインタ．値は0．
1 > 0 ifTrue:[ Transcript show:'Ha Ha Ha!!'; cr. ].Objective-C
if(1 > 0){
printf("Ha ha Ha!\n");
}
i := 0. [i<4] whileTrue:[ Transcript cr;show:'hoge'. i := i + 1. ].
int i = 0;
while(i<4){
printf("hoge\n");
}
1 to: by:1 10 do:[:v | Transcript cr;show:v ].
int i;
for(i=1; i<11; i=i+1){
printf("%d",i);
}
SmalltalkのイテレータとObjective-C高速列挙#(1 2 3) inject:0 into:[:v1 v2 | v1 + v2 ].
foldl (+) 0 [1, 2, 3]Schemeでは
(fold + 0 '(1 2 3))
array := Array with: 1 with: 2 with:3. x := array first. xs := array allButFirst. xs inject:x into:[:v1 :v2 | v1 + v2 ].
gosh> (define array '(1 2 3)) gosh> (fold + (car array) (cdr array)) 6
array := Array with:-10 with:2 with:100. array inject: Float infinity negated into:[:v1 :v2 | v1 max: v2 ].この場合は，マイナス無限大を初期値にする．
array := Array with:1 with:2 with:3. array fold:[:v1 :v2 | v1 + v2 ].
SequenceableCollection>>fold: | size nextValue | (size := self size) = 0 ifTrue: [^self emptyCollectionError]. nextValue := self at: 1. 2 to: size do: [:i | nextValue := binaryBlock value: nextValue value: (self at: i)]. ^nextValue
array := Array with:-10 with:2 with:100. array fold:[:v1 :v2 | v1 max: v2 ].
#() inject: 0 into:[:v1 :v2 | v1 + v2 ] "0が，かえってくる"
gosh> (fold + 0 '()) 0
quickSort := [:array | | x xs left right | array isEmpty ifTrue:[ array ] ifFalse:[ x := array first. xs := array allButFirst. left := xs select:[:v | v < x]. right := xs select:[:v | v >= x]. (quickSort copy fixTemps value: left),(Array with:x), (quickSort copy fixTemps value:right )]]. quickSort copy fixTemps value: #(30 10 20 40 80 60) .
quickSort := [:array |
| x xs left right |
array isEmpty ifTrue:[ array ] ifFalse:[
x := array first.
xs := array allButFirst.
left := xs select:[:v | v < x].
right := xs select:[:v | v >= x].
(quickSort value: left ),{x}, (quickSort value:right )]].
quickSort value: #(30 10 20 40 80 60).
ここでのポイントは，ブロック内リターンを使わないこと．
BlockClosure>>whileTrue: aBlock "Ordinarily compiled in-line, and therefore not overridable. This is in case the message is sent to other than a literal block. Evaluate the argument, aBlock, as long as the value of the receiver is true." ^ [self value] whileTrue: [aBlock value]
#import <Foundation/Foundation.h>
@interface NSObject (MyTest)
- (id) methodA;
@end
@implementation NSObject (MyTest)
- (id)methodA
{
NSLog(@"NSObject");
}
@end
@interface TestA:NSObject
- (id) methodA;
- (id) methodB;
- (id) methodC;
@end
@implementation TestA
- (id) methodA
{
NSLog(@"class A");
}
- (id) methodB
{
[self methodA];
}
- (id) methodC
{
[super methodA];
}
@end
@interface TestB : TestA
- (id) methodA;
@end
@implementation TestB
- (id) methodA
{
NSLog(@"class B");
}
@end
int main(void){
SAutoreleasePool *pool = [[NSAutoreleasePool alloc] init];
TestB *objB = [[TestB alloc] init ];
//selfの確認
[objB methodB];
//superの確認
[objB methodC];
return 0;
}
#import <Foundation/Foundation.h>
@interface TestA:NSObject
{
}
- (id) methodA;
- (id) methodB;
- (id) methodC;
@end
@implementation TestA
- (id) methodA
{
NSLog(@"class A");
}
- (id) methodB
{
[self methodA];
}
- (id) methodC
{
[super methodA];
}
@end
@interface TestB : TestA
{
}
- (id) methodA;
@end
@implementation TestB
- (id) methodA
{
NSLog(@"class B");
}
@end
int main(void){
TestB *objB = [[TestB alloc] init ];
//selfの確認
[objB methodB];
//superの確認
[objB methodC];
return 0;
}
詳解 Objective-C 2.0の本が発売されています．
作者はもちろん荻原さん．
SQLを勉強し直す．
そのため，MySQLをインストールする．
参考にしたサイト
log.metatype - http://log.metatype.jp/?p=26
SQLを勉強するなら，やはり手を動かして勉強したほうがいいと思ったので，とりあえず参考書を購入した．
選んだのは，オライリーの初めてのSQL．
タイトルは初めてのと書かれているが，実際は初心者本ではないと思う．
原本のタイトルはLearning SQLで，何故「初めて」がついたのか不思議です．
Linux等をCUIでの操作について勉強したい人におすすめの本．
管理者になる人の はじめてのUNIX
学部生の講義のアシスタントする際にいただいた本なのですが，読んでみると内容がしっかりしていて，パスワードの決め方なども書かれているので，初心者の人にはおすすめ（僕を含めて）．
コマンド集を買う前に，これを読んでみてはいかがでしょうか．
SmalltalkはWikipediaによるとLOGO,Lispの影響を受けているらしいので,Lispを勉強することに.
Lispというと関数型言語ですが,関数型ってたくさん種類があるので大変.
僕程度の人間が短期間でマスターできると思いませんので,本選びは重要です.
Common Lispなら
薄くて,重要なのだけそうなので買っちゃいました.
今読んでいますが,かなり面白いですw
そういえば,関数型言語で有名な本と言えば・・・
ですが,量が多いのでさすが今は読んでいる時間がありません.
もうちょっとスキルアップしたら読みます.
>(+ 1 2)
>3
なんかいいw 2/22/2007
先日，本屋でこんな本を発見．
即買ってしまいました．
木下さんの本はいつか全て買いたいと思っていますが，特にこの本はプログラミングがぜんぜんできない僕にはよさそうです．
いよいよObjective-Cの世界へいけそうかな？
Potential - りんごの種 by blogger: Rubyの本
以前こんな記事も書きましたが，追加です．
たのしいRuby
こちらは入門書として，かなりいいです．
手放せない本ですね．
Potential: オブジェクト指向入門 第2版 方法論・実践 いよいよ発売へを書いたついでに・・・．
最近，オブジェクト指向の本について話題を見かけますが，僕はそのような本を読みましたが，読むより手を動かしながらオブジェクト指向をなんとなく理解しました．
用語というのは知らない人間にとっては魔法の言葉であって，経験こそが一番理解へ道だと思います．
Squeak SmalltalkやRubyと講義でJavaをふれながら，雰囲気はわかったと思います．
実際，しっかりと「オブジェクト指向は○○だ」とか，「開発プロセスと○○だから」ということは知りませんが，僕はまずはそれでいいと思うのですが，どうでしょう．
平凡な学生が考える幼稚な考えかもしれませんが・・・．
これこそが本当の入門かもしれない．
最近，わけあってJavaScriptを勉強している．
といっても，あまり時間がないので，しっかりと勉強できているわけではない．
Web APを作るとき，ときどきお世話になっていたが，まじめに本を読んでみると実に変わった言語である．
ただ，いろいろとできるので，侮ってはいけない．
オブジェクトのような，関数のような．
僕程度のプログラミングレベルだと，オライリーの「はじめてのJavaScript」でも十分だとは，思うけど，やはりサイ本（オライリーのJavaScript）が欲しい．
ちなみに，はじめてのJavaScriptはコサイで，JavaScriptはサイの表紙になっている．
ソフトバンクオンラインショップをご利用いただき、ありがとうございます。
お客さまのお申し込みについて、下記の通りご連絡いたします。
ご予約お申し込み分の在庫が確保できましたので、下記URLより本申し込みのお手続きをお願いいたします。
なお、ご予約お申し込み商品の本申し込みにつきましては、本メールでのご案内から10日間とさせていただいております。
10日間を経過した場合は、ご予約お申し込みはお取り消しとさせていただきますので、ご了承ください。
■■■■■■■■■■■ 審査完了のご連絡 ■■■■■■■■■■■
iPhone4ご予約のお客様へ
ソフトバンクオンラインショップをご利用いただき、ありがとうございます。
お申し込みいただきました内容で審査が完了しましたので、ご連絡させていた
だきます。
───────────────────────────────────
■商品お届け予定日 6月25日(金)
sudo port selfupdate
sudo port upgrade outdated
#import <Foundation/Foundation.h>
#import <stdio.h>
int main(void)
{
NSAutoreleasePool *pool = [[NSAutoreleasePool alloc]init];
NSObject *obj = [[NSObject alloc] init];
printf("init: %d\n",[obj retainCount]);
[obj retain];
printf("retain: %d\n",[obj retainCount]);
[obj retain];
printf("retain: %d\n",[obj retainCount]);
[obj release];
printf("release: %d\n",[obj retainCount]);
[obj release];
printf("release: %d\n",[obj retainCount]);
[obj release];
/* 実行するとエラーになるはずなのだが・・・ */
printf("release: %d\n",[obj retainCount]);
[pool drain];
return 0;
}
init: 1 retain: 2 retain: 3 release: 2 release: 1 release: 1
port search rlwrap
$ rlwrap gosh
#import <Foundation/Foundation.h>
int main(void){
int prefixNumber = 0;
int i,j,temp;
NSAutoreleasePool *pool = [[NSAutoreleasePool alloc] init];
NSString *addressString = [NSString string];
//NSString *subnetString = @"255.255.255.0";
NSString *subnetString = @"255.255.255.240";
//NSString *subnetString = @"128.0.0.0";
//NSString *subnetString = @"255.248.0.0";
NSArray *subnetStringItems = [subnetString componentsSeparatedByString:@"."];
for(i = 0; i < 4; i++){
temp = [[subnetStringItems objectAtIndex:i] intValue];
for(j=0;j<8;j++){
prefixNumber += (temp & 1);
temp >>= 1;
}
}
NSLog(@"prefixNumber=%d",prefixNumber);
for(i = 0; i < 4; i++){
if(prefixNumber >= 8){
addressString = [addressString stringByAppendingString: @"255"];
prefixNumber = prefixNumber - 8;
}else if(prefixNumber > 0){
temp = 0;
temp = 255 - ((1 << (8-prefixNumber)) - 1);
addressString = [addressString stringByAppendingString: [ NSString stringWithFormat : @"%d", temp ]];
prefixNumber = 0;
}else{
addressString = [addressString stringByAppendingString: @"0"];
}
if(i<3){
addressString = [addressString stringByAppendingString: @"."];
}
}
NSLog(@"addressString=%@",addressString);
[pool drain];
return 0;
}
sudo port install ghc
initialize "self initialize" | app | app := self registerAsApplication:'sas'. app preferenceAt: #useSessionCookie put:true. app preferenceAt: #sessionExpirySeconds put: 3600. ^application
initialize "SASFComponent initialize" |app| app := WAAdmin register: (self asApplicationAt: 'sas'). app preferenceAt: #useCookies put: true. app cache expiryPolicy configuration at: #cacheTimeout put: 3600.
renderContentOn:html
self session returnResponse: (WAResponse new
contentType: 'text/xml';
nextPutAll: self makeSVG;
yourself)
renderContentOn: html
self requestContext respond: [:response |
response
initializeOn: self makeSVG ;
contentType: 'text/xml']
self requestContext
self session returnResponse: