Direct Child Type in Tutorials & Snippets

ID:195023
 
May 9 2011, 9:56 pm
 
//Title: isDirectChild
//Credit to: Darkcampainger
//Contributed by: DarkCampainger

// Returns if childType is a direct child of parentType
proc/isDirectChild(childType, parentType)
    // Check if the child is derived form the parent at all
    if(!ispath(childType,parentType))
        return 0
    // Check that the types are not equivalent
    if(childType == parentType)
        return 0
    // If it's the direct descendant, there should only be one more / in its type
    return !findtext("[childType]","/",length("[parentType]")+2)

// Example output:
//   isDirectChild(/obj/item/knife, /obj/item) = 1
//   isDirectChild(/obj/item/knife/steel, /obj/item) = 0
//   isDirectChild(/obj/button, /obj/item) = 0
#1 May 20 2011, 2:57 am (Edited on May 20 2011, 3:23 am)
Here's my version:

proc/isDirectChild(child,parent)
    ASSERT(ispath(child)&&ispath(parent))   
    if((child!=parent)&&ispath(child,parent))
        var/list/types=typesof(parent)
        types-=parent
        types-=typesof(child)
        var/type
        while(types.len)
            type=types[types.len]
            if(ispath(child,type))
                return 0
            types-=typesof(type)
        return 1
    return 0

// Example output:
//   isDirectChild(/atom,/atom) = 0
//   isDirectChild(/turf,/atom) = 1
//   isDirectChild(/obj,/atom) = 0
//   isDirectChild(/obj,/atom/movable) = 1
#2 May 20 2011, 6:11 am
In response to Jemai1 (#1)
Jemai1 wrote:
//   isDirectChild(/obj,/atom/movable) = 1


Ah, good point. I hadn't considered types with altered parent_types.