prototype

prototype-based programming on Haskell.

prototype-based programming on Haskell

You can download source codes by git.

git clone git://github.com/YoshikuniJujo/prototype.git prototype

Example code

module Main where

import Control.Prototype

main :: IO ()
main = flip evalProt initProtEnv $ do
  ( dog, setName, sit ) <- package "dog" $ do
      dog <- clone object
      name    <- makeMember "name"
      setName <- makeMember "setName"
      sit <- makeMember "sit"
      setMethod dog setName $ \this [ n ] -> do
          setMember this name n
          return [ ]
      setMethod dog sit $ \this _ -> do
          n <- member this name
          liftProt $ putStrLn $ fromPrimStr n ++ " sitting."
          return [ ]
      return ( dog, setName, sit )
  myDog <- clone dog
  method myDog setName [ primStr "John" ]
  method myDog sit [ ]
  return ()

Another sample

module Main where

import MyToolkit

main :: IO ()
main = runToolKit $ do
  ( textView, setText, setContentView ) <- importMyToolkit
  myTV <- clone textView
  method myTV setText [ primStr "Hello, world!" ]
  method myTV setContentView [ ]
  return ()