David RENÉ / hayamiki

model.anubis 745 Bytes
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 
/*
 * Created by PyramIDE.
 * User: フランスのトトロ aka (David RENÉ) 
 * Date: 13/02/2016
 * Time: 11:01
 * © Calexium 
 */

read system/string.anubis

read hayamiki_lib/types/hayamiki.anubis

public define String
  format_attributes
  (
    List(HK_Model_Attr)  attributes
  )=
  join(" ",map((HK_Model_Attr attr) |->
    if attr is
    {
      unique        then "UNIQUE",    
      indexed       then "INDEXED",                     // by default, a column is not indexed
      default(str)  then "DEFAULT "+str,             // default value (used in case of creation of a NON NULL column
                                // in a table which already contains some rows)
      not_null      then "NOT NULL"
    }, attributes)).