function prologAtom($atom = "") { if ($atom != '') { if (string::is_caps($atom[0])) { $atom = string::lowFirstChar($atom); } } $this->atom = $atom; }
/** * @return void * @param String $predicateName * @param Array $predicateValues * @desc prolog Predicate constructor */ function prologPredicate2($predicateName, $predicateValues) { //Ensure predicates do not start with a capital letter $this->predicateName = string::lowFirstChar($predicateName); $this->predicateValues = $predicateValues; }
function testStringLowerFirstChar() { $this->assertEqual(string::lowFirstChar('CHAR'), 'cHAR'); $this->assertEqual(string::lowFirstChar('char'), 'char'); $this->assertEqual(string::lowFirstChar(''), ''); }