root/DB/DBModelNaming.lua

--------------------------------------------------------------------------------
-- Title:               DBModelNaming.lua
-- Description:         Like a square peg in a round hole
-- Author:              Raphaël Szwarc http://alt.textdrive.com/lua/
-- Creation Date:       February 1, 2005
-- Legal:               Copyright (C) 2005 Raphaël Szwarc
--------------------------------------------------------------------------------

-- import dependencies
local LUObject = require( "LUObject" )
local LUString = require( "LUString" )

-- define the class
local super = LUObject
local self = super()

-- class variable(s)
local _singulars = nil

function self:singulars()
        if self._singulars == nil then
                self._singulars =
                {
                        { "([^aeiouy])ies$", "%1y" },   -- cities -> city
                        { "(qu)ies$", "%1y" },           
                        
                        { "(x)es$", "%1" },             -- boxes -> box
                        { "(ch)es$", "%1" },            -- watches -> watch
                        { "(ss)es$", "%1" },            -- glasses -> glass
                        
                        { "oes$", "o" },                -- tomatoes -> tomato
                        
                        { "([lr])ves$", "%1f" },
                        { "([^f])ves$", "%1fe" },
                        
                        { "([ti])a$", "%1um" },
                        
                        { "men$", "man" },
                        { "status$", "status" },
                        { "children$", "child" },
                        
                        { "s$", "" },
                }
        end
        
        return self._singulars
end

function self:singular( aPlural )
        if aPlural ~= nil then
                for _, aRule in ipairs( self:singulars() ) do
                        local aPattern = aRule[ 1 ]
                        local aSubstitution = aRule[ 2 ]
                        local aSingular, aCount = aPlural:gsub( aPattern, aSubstitution )
                        
                        if aCount ~= 0 then
                                return aSingular
                        end
                end
        end
        
        return aPlural
end

function self:idName()
        return "id"
end

function self:idSuffix()
        return LUString:capitalize( self:idName() )
end

function self:dbName( aName )
        if aName ~= nil then
                aName = LUString:methodNameComponents( aName ):join( "_" ):lower()
        end
        
        return aName
end

return self