Paste: mixin/tuple inheritance

! Copyright (C) 2010 James R. Mack.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors classes generic io kernel nested-comments
prettyprint sequences tools.test ;
IN: test

MIXIN: crud-list
MIXIN: crud-create
MIXIN: crud-read
MIXIN: crud-update
MIXIN: crud-delete

TUPLE: 4eyes-crud ;
TUPLE: 4eyes-locs < 4eyes-crud ;
TUPLE: locs-create < 4eyes-locs ;
TUPLE: locs-read < 4eyes-locs ;
TUPLE: locs-update < 4eyes-locs ;
TUPLE: locs-delete < 4eyes-locs ;
TUPLE: locs- < 4eyes-locs ; 

INSTANCE: locs-create crud-create
INSTANCE: locs-read crud-read
INSTANCE: locs-update crud-update
INSTANCE: locs-delete crud-delete
INSTANCE: 4eyes-locs crud-list
INSTANCE: locs- crud-list

GENERIC: content ( tpl -- str )

M: crud-create content ( tpl -- str )  class name>> " create" append ;
M: crud-read content ( tpl -- str )  class name>> " read" append ;
M: crud-update content ( tpl -- str )  class name>> " update" append ;
M: crud-delete content ( tpl -- str )  class name>> " delete" append ;
M: crud-list content ( tpl -- str ) class name>> " list" append ;