// mudlib: Basis
// date:   1992/09/25
// author: Truilkan

/*
  $Locker:  $

  $Source: /usr/local/mud/libs/basis/adm/obj/simul_efun/RCS/pronouns.c,v $
  $Revision: 1.3 $
  $Author: garnett $
  $Date: 92/10/04 06:53:07 $
  $State: Exp $

  $Log:	pronouns.c,v $
 * Revision 1.3  92/10/04  06:53:07  garnett
 * added ppossessive
 * 
 * Revision 1.2  92/09/27  22:25:31  garnett
 * fixed objective case for male (to be him and not his)
 * 
 * Revision 1.1  92/09/25  07:51:46  garnett
 * Initial revision
 * 
*/
 
//  Watcher added the possibility of passing an object argument rather
//  than the string form (06/28/93)
 

string possessive(mixed gender) {
	string ret;

	if(objectp(gender))  
		gender = (string)gender->query("gender");
 
	switch (gender) {
		case "male" :
			ret = "his";
			break;
		case "female" :
			ret = "her";
			break;
		case "neuter" :
			ret = "its";
			break;
		case "neutral" :
		default :
			ret = "hir";
			break;
	}
	return ret;
}

string ppossessive(mixed gender) {
	string ret;

	if(objectp(gender))
		gender = (string)gender->query("gender");
 
	switch (gender) {
		case "male" :
			ret = "his";
			break;
		case "female" :
			ret = "hers";
			break;
		case "neuter" :
			ret = "its";
			break;
		case "neutral" :
		default :
			ret = "hirs";
			break;
	}
	return ret;
}

string subjective(mixed gender) {
	string ret;
 
	if(objectp(gender))
		gender = (string)gender->query("gender");

	switch (gender) {
		case "male" :
			ret = "he";
			break;
		case "female" :
			ret = "she";
			break;
		case "neuter" :
			ret = "it";
			break;
		case "neutral" :
		default :
			ret = "sie";
			break;
	}
	return ret;
}

string objective(mixed gender) {
	string ret;
 
	if(objectp(gender)) 
		gender = (string)gender->query("gender");

	switch (gender) {
		case "male" :
			ret = "him";
			break;
		case "female" :
			ret = "her";
			break;
		case "neuter" :
			ret = "it";
			break;
		case "neutral" :
		default :
			ret = "hir";
			break;
	}
	return ret;
}