ソース探検 > 01

「ソース探検/01」の編集履歴（バックアップ）一覧はこちら

ソース探検/01 - (2008/03/27 (木) 15:58:52) の１つ前との変更点

追加された行は緑色になります。

削除された行は赤色になります。

-先生:
--「それでは、今日の宿題はpauseコマンドです。Infernoがはじめてのみなさんにも簡単に読めるソースですので、忘れずにやってきてくださいね。」
-デーモソ君:
--「は～い！」
どうやら中学校ではじめての宿題となったのはpauseコマンドのようです。デーモソ君は無事に宿題をこなすことができるでしょうか。
お家に帰ったデーモソ君はさっそくノートPCを開きました。
-デーモソ君:
--「まずはソースがどこにあるかだよね。manページに書いてあるかな？えいっ」
#blockquote(){; man pause
SLEEP(1)

NAME
     sleep, pause - suspend execution for an interval

SYNOPSIS
     sleep n

     pause

DESCRIPTION
     Sleep suspends its own execution for n seconds before
     returning.

     Pause never returns, and is typically used to stop a command
     interpreter reading any more from the standard input.

SOURCE
     /appl/cmd/sleep.b
     /appl/cmd/pause.b

SEE ALSO
     sys-sleep(2)

                         Inferno Manual
}

#aa(){{{implement Pause;
#
# init program to do nothing but pause
#

include "sys.m";
include "draw.m";

Pause: module
{
	init:	fn(nil: ref Draw->Context, nil: list of string);
};

init(nil: ref Draw->Context, nil: list of string)
{
	<-chan of int;
}
}}}

-先生:
--「それでは、今日の宿題はpauseコマンドです。Infernoがはじめてのみなさんにも簡単に読めるソースですので、忘れずにやってきてくださいね。」
-デーモソ君:
--「は～い！」
どうやら中学校ではじめての宿題となったのはpauseコマンドのようです。デーモソ君は無事に宿題をこなすことができるでしょうか。
お家に帰ったデーモソ君はさっそくノートPCを開きました。
-デーモソ君:
--「まずはソースがどこにあるかだよね。manページに書いてあるかな？えいっ」
#blockquote(){; man pause
SLEEP(1)

NAME
     sleep, pause - suspend execution for an interval

SYNOPSIS
     sleep n

     pause

DESCRIPTION
     Sleep suspends its own execution for n seconds before
     returning.

     Pause never returns, and is typically used to stop a command
     interpreter reading any more from the standard input.

SOURCE
     /appl/cmd/sleep.b
     /appl/cmd/pause.b

SEE ALSO
     sys-sleep(2)

                         Inferno Manual
}

#aa(){{{implement Pause;
#
# init program to do nothing but pause
#

include "sys.m";
include "draw.m";

Pause: module
{
	init:	fn(nil: ref Draw->Context, nil: list of string);
};

init(nil: ref Draw->Context, nil: list of string)
{
	<-chan of int;
}
}}}

#blockquote(){{; disdump /dis/pause.dis
newcw     , $0, 44(fp)
recv      44(fp), 40(fp)
movp      0(mp), 44(fp)
ret       
;
}}