diff --git a/model/fields.anubis b/model/fields.anubis index 82d1a41..758aba7 100644 --- a/model/fields.anubis +++ b/model/fields.anubis @@ -261,45 +261,3 @@ public define JsonValue }, json_object("_HK_FIELD", members). - - define Maybe(HK_Model_Field) - get_field - ( - Message hk_model_field_message, - String type - )= - if type = "p_key" then success(p_key) - else if type = "boolean_field" then success(boolean_field) - else if type = "date_field" then success(date_field(get_dt_attribute(hk_model_field_message))) - else if type = "time_field" then success(time_field(get_dt_attribute(hk_model_field_message))) - else if type = "datetime_field" then success(datetime_field(get_dt_attribute(hk_model_field_message))) - else if type = "foreign_key" then - if find_string(hk_model_field_message, "table_name") is {failure then failure, success(table_name) then - if find_message(hk_model_field_message, "app_name") is {failure then failure, success(msg_app_name) then - if from_Message(msg_app_name) is {failure then failure, success(app_name) then - success(foreign_key(app_name, table_name)) - }}} - else if type = "integer_field" then success(integer_field) - else if type = "float_field" then success(float_field) - else if type = "char_field" then - if find_int32(hk_model_field_message, "size") is {failure then failure, success(w32_size) then - success(char_field(to_Int(w32_size)))} - else if type = "password_field" then - if find_int32(hk_model_field_message, "size") is {failure then failure, success(w32_size) then - success(password_field(to_Int(w32_size)))} - else if type = "text_field" then success(text_field(get_text_attribute(hk_model_field_message))) - else failure - . - - public define Maybe(HK_Model_Field) - from_Message - ( - Message hk_model_field_message - )= - if *hk_model_field_message.what = _HK_FIELD then - if find_string(hk_model_field_message, "type") is {failure then failure, success(type) then - get_field(hk_model_field_message, type) - } - else - failure - . -- libgit2 0.21.4