proc
/*
dd_text2list(text, separator)
    Split the text into a list, where separator is the delimiter between items.
    Returns the list. This is not case-sensitive.

    If the myText string is "a = b = c", and you call dd_text2list(myText, " = "), you get a list back with these items:
        a
        b
        c

    Example:

    // Get a list containing the names in this string.
    var/mytext = "George; Bernard; Shaw"
    var/separator = "; "
    var/list/names = dd_text2list(mytext, separator)
*/
    dd_text2list(text, separator)
        var/textlength      = lentext(text)
        var/separatorlength = lentext(separator)
        var/list/textList   = new /list()
        var/searchPosition  = 1
        var/findPosition    = 1
        var/buggyText
        while (1)                                                            // Loop forever.
            findPosition = findtext(text, separator, searchPosition, 0)
            buggyText = copytext(text, searchPosition, findPosition)        // Everything from searchPosition to findPosition goes into a list element.
            textList += "[buggyText]"                                       // Working around weird problem where "text" != "text" after this copytext().

            searchPosition = findPosition + separatorlength                 // Skip over separator.
            if (findPosition == 0)                                           // Didn't find anything at end of string so stop here.
                return textList
            else
                if (searchPosition > textlength)                            // Found separator at very end of string.
                    textList += ""                                          // So add empty element.
                    return textList

/*
dd_file2list(file_path, separator = "\n")
    Splits the text from the specified file into a list.
    file_path is the path to the file.
    separator is an optional delimiter between items in the file;
    it defaults to "\n", which makes each line of the file an item in the list.

    Example:

    // Read in the list of possible NPC names.
    var/list/names = dd_file2list("NPCs.txt")
*/
    dd_file2list(file_path, separator = "\n")
        var/file
        if (isfile(file_path))
            file = file_path
        else
            file = file(file_path)
        return dd_text2list(file2text(file), separator)

proc
    /**
     * Converts a string into a list, using a delimiter to determine where to separate entries.
     * @param string    The string to be listified.
     * @param delimiter The string that will serve as a separator between entries in the list.
     * @return the list form of the string.
     * IE: text2list("this is a test", " ") would return list("this", "is", "a", "test").
     */
    text2list(string, delimiter=" ")
        var/list/listified = new, last=1
        for(var/find=findtext(string, delimiter); find; find=findtext(string, delimiter, find+length(delimiter)))
            listified += copytext(string, last, find)
            last=find+length(delimiter)

        listified += copytext(string, last)

        return listified

    /**
     * Reads the contents of a file and separates it into a list, using the specified delimiter to
     * separate entries.
     * @param   file        The file object, or string referring to the file.
     * @param   delimiter   The delimiter used to separate the text.
     * @return  Returns the listified version of the file.
     * null if a bad file was given.
     */
    file2list(file, delimiter="\n")
        if(!isfile(file) || !fexists(file))
            return

        var/fileText = file2text(file)
        var/list/listified = new, last=1
        for(var/find=findtext(fileText, delimiter); find; find=findtext(fileText, delimiter, find+length(delimiter)))
            listified += copytext(fileText, last, find)
            last=find+length(delimiter)

        listified += copytext(fileText, last)

        return listified

//HUMANS//

character/human/male
character/human/female

/*
    Written By: FIREking
*/

//text2list
//takes a text argument and converts it into a list
//each line in the text file separated by a line break becomes a unique list entry

proc/text2list(t)

    if(!t || !istext(t)) CRASH("Invalid argument passed to text2settings\ntext2settings([t])")

    . = list() //return value will be a list
    var/pos //we store the position of the next line break

    if(copytext(t, -1) != "\n") t += "\n" //if the last character isn't a line break, add one

    while(t) //while there's still text left to process
        pos = findtext(t, "\n") //find next line break
        var/val = copytext(t, 1, pos) //copy text from beginning to line break
        if(val && copytext(val, 1, 3) != "//") //if text copied isn't empty
            //skips lines that start with // which allows for comments
            . += val //add it to the list
        t = copytext(t, pos + 1) //set text equal to thke rest excluding the value we added to the list and skipping the line break