From a71f4ec540ed75310ac1077d93aacf1d60bf308d Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Thu, 13 Nov 2014 20:16:16 +0100
Subject: Move conjugate_verb_to_be next to cString.plural.

---
 lib/cString.ml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'lib/cString.ml')

diff --git a/lib/cString.ml b/lib/cString.ml
index 5c857077a6..13ec4e9b70 100644
--- a/lib/cString.ml
+++ b/lib/cString.ml
@@ -22,6 +22,7 @@ sig
   val string_index_from : string -> int -> string -> int
   val string_contains : where:string -> what:string -> bool
   val plural : int -> string -> string
+  val conjugate_verb_to_be : int -> string
   val ordinal : int -> string
   val split : char -> string -> string list
   val is_sub : string -> string -> int -> bool
@@ -131,6 +132,8 @@ let is_sub p s off =
 
 let plural n s = if n<>1 then s^"s" else s
 
+let conjugate_verb_to_be n = if n<>1 then "are" else "is"
+
 let ordinal n =
   let s = match n mod 10 with 1 -> "st" | 2 -> "nd" | 3 -> "rd" | _ -> "th" in
   string_of_int n ^ s
-- 
cgit v1.2.3