1N/A#!/usr/sbin/dtrace -wqs
1N/A/*
1N/A * guess.d - guessing game in D (DTrace)
1N/A *
1N/A * $Id: guess.d 32 2007-09-15 05:08:49Z brendan $
1N/A *
1N/A * USAGE: guess.d
1N/A *
1N/A * SEE: http://www.brendangregg.com/guessinggame.html
1N/A *
1N/A * This is written to demonstrate this language versus the same program
1N/A * written in other languages.
1N/A *
1N/A * 11-May-2005 Brendan Gregg Created this.
1N/A */
1N/A
1N/Ainline string scorefile = "highscores_d";
1N/A
1N/Adtrace:::BEGIN
1N/A{
1N/A printf("guess.d - Guess a number between 1 and 100\n\n");
1N/A num = 1;
1N/A state = 1;
1N/A
1N/A /* Generate random number */
1N/A answer = (rand() % 100) + 1;
1N/A answer = answer > 0 ? answer : - answer;
1N/A}
1N/A
1N/Asyscall::write:entry
1N/A/state == 1 && pid == $pid/
1N/A{
1N/A state = 2;
1N/A printf("Enter guess %d: ", num);
1N/A system("read guess");
1N/A pos = 0;
1N/A}
1N/A
1N/Asyscall::read:entry
1N/A/state == 2 && ppid == $pid && arg0 == 3/
1N/A{
1N/A self->inguess = 1;
1N/A self->buf = arg1;
1N/A}
1N/A
1N/Asyscall::read:return
1N/A/self->inguess/
1N/A{
1N/A key = copyin(self->buf, arg0);
1N/A keys[pos] = *(char *)key;
1N/A self->buf = 0;
1N/A pos++;
1N/A}
1N/A
1N/Asyscall::read:return
1N/A/self->inguess && keys[pos-1] == '\n'/
1N/A{
1N/A pos -= 2;
1N/A fac = 1;
1N/A guess = fac * (keys[pos] - '0');
1N/A pos--;
1N/A fac *= 10;
1N/A guess = pos >= 0 ? guess + fac * (keys[pos] - '0') : guess;
1N/A pos--;
1N/A fac *= 10;
1N/A guess = pos >= 0 ? guess + fac * (keys[pos] - '0') : guess;
1N/A self->doneguess = 1;
1N/A}
1N/A
1N/Asyscall::read:return
1N/A/self->inguess/
1N/A{
1N/A self->inguess = 0;
1N/A}
1N/A
1N/A/* Play game */
1N/Asyscall::read:return
1N/A/self->doneguess && guess == answer/
1N/A{
1N/A printf("Correct! That took %d guesses.\n\n", num);
1N/A self->doneguess = 0;
1N/A state = 3;
1N/A printf("Please enter your name: ");
1N/A system("/usr/bin/read name");
1N/A}
1N/A
1N/Asyscall::read:return
1N/A/self->doneguess && guess != answer/
1N/A{
1N/A num++;
1N/A
1N/A printf("%s...\n", guess < answer ? "Higher" : "Lower");
1N/A
1N/A printf("Enter guess %d: ", num);
1N/A system("read line");
1N/A pos = 0;
1N/A}
1N/A
1N/Asyscall::read:entry
1N/A/state == 3 && curthread->t_procp->p_parent->p_ppid == $pid && arg0 == 0/
1N/A{
1N/A self->inname = 1;
1N/A self->buf = arg1;
1N/A}
1N/A
1N/A/* Save high score */
1N/Asyscall::read:return
1N/A/self->inname/
1N/A{
1N/A self->inname = 0;
1N/A name = stringof(copyin(self->buf, arg0 - 1));
1N/A system("echo %s %d >> %s", name, num, scorefile);
1N/A
1N/A /* Print high scores */
1N/A printf("\nPrevious high scores,\n");
1N/A system("cat %s", scorefile);
1N/A exit(0);
1N/A}