🚀 go-pugleaf

Dnia 15 May 2007 15:33:42 -0700
pawellt@gazeta.pl napisał(a):


> Poza tym sama kwestia obiektowosci. W Scheme masz cos w stylu:
> 
> (define samochod-class
>   (make-standard-class
>    'superclass #t
>    'slots '(frame parts size)
>    'method-names '()))
> 
> Chociażby kwestia definicji klas w Dylanie:
> 
> define class <kolor-okna> (<okno>)
> end class;
> 
> ... i już masz definicje klasy "kolor-okna" dziedziczącą po klasie
> "okno".
> Chcesz to samo z atrybutuami (slotami) - wystarczy:
> 
> define class <kolor-okna> (<okno>)
>   slot typ_koloru;
>   slot kod_koloru;
> end class;
> 
> Chcesz dodać do powyzszego metode, wystarczy:
> 
> define method hello-world() => ();
>   puts("Hello, world!");
> end method;
> 
No to może przykład w Camlu:

open Printf

class pojazd model =
  object
    val model = model; (* Nie zmienny po utworzeniu... *)
    val mutable predkosc = 0; (* Musi być zainicjalizowane *)

    method gaz n = 
      predkosc <- n;
      printf "%s ma prędkość %d\n" model predkosc;

    method stop =
      predkosc <- 0;
      printf "%s zatrzymany\n" model
  end;;

(* Wykorzystanie *)
let rower = new pojazd "Rower";;
rower#gaz 5;;
rower#stop;;

(* Klasa dziedzicząca *)
class samochod model =
  object
  inherit pojazd ("Samochód " ^ model)

  method swiatla w = 
  	if w = true then 
		printf "Światła włączone\n"
	else	printf "Światła wyłączone\n";

  end;;

let volvo = new samochod "Volvo";;
volvo#swiatla true;
volvo#stop;;


> Albo wygodne funkcje/metody w stylu:
> 
> define method rozmiar_buta(osoba :: <string>)
>   if (osoba = "Jasio")
>     14;
>   else
>     11;
>   end if;
> end method;
> 
let rozmiarButa osoba =
  if osoba = "Jasio" then
    14
  else
    11;;

print_int (rozmiarButa "Jasio")


W sumie program wyświetli:
Rower ma prędkość 5
Rower zatrzymany
Światła włączone
Samochód Volvo zatrzymany
14

IMHO czystszy w obiektowości i od Dylana i od Lispa. ;)

-- 
Tomasz bla Fortuna
jid: bla(at)af.gliwice.pl 
pgp: 0x90746E79 @ pgp.mit.edu