1 files changed, 92 insertions, 0 deletions
diff --git a/src/utilfuns/roman.cpp b/src/utilfuns/roman.cpp
new file mode 100644
index 0000000..d436b19
--- /dev/null
+++ b/src/utilfuns/roman.cpp
@@ -0,0 +1,92 @@
+/******************************************************************************
+ *
+ *  roman.cpp -	
+ *
+ * $Id: roman.cpp 2980 2013-09-14 21:51:47Z scribe $
+ *
+ * Copyright 2002-2013 CrossWire Bible Society (http://www.crosswire.org)
+ *	CrossWire Bible Society
+ *	P. O. Box 2528
+ *	Tempe, AZ  85280-2528
+ *
+ * This program is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License as published by the
+ * Free Software Foundation version 2.
+ *
+ * This program is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * General Public License for more details.
+ *
+ */
+
+#include <stdlib.h>
+#include <string.h>
+#include <roman.h>
+
+
+SWORD_NAMESPACE_START
+
+
+char isroman (const char *str, int maxchars) {
+	char *ch = (char*)str;
+	for (; *ch && (!maxchars || (ch-str) <= maxchars); ch++)
+		if (!strchr("IVXLCDMivxlcdm ", *ch))
+			return 0;
+	return 1;
+}
+
+int from_rom(const char* str) {
+	int i, n = strlen(str);
+	short * num= (short *) calloc(n, sizeof(short));
+	for (i = 0; str[i]; i++) {
+		switch(str[i]) {
+		case 'i':
+		case 'I':
+			num[i] = 1;
+			break;
+		case 'v':
+		case 'V':
+			num[i] = 5;
+			break;
+		case 'x':
+		case 'X':
+			num[i] = 10;
+			break;
+		case 'l':
+		case 'L':
+			num[i] = 50;
+			break;
+		case 'c':
+		case 'C':
+			num[i] = 100;
+			break;
+		case 'd':
+		case 'D':
+			num[i] = 500;
+			break;
+		case 'm':
+		case 'M':
+			num[i] = 1000;
+			break;
+		default:
+			num[i] = 0;
+		}
+	}
+	for (i = 1; str[i]; i++) {
+		if (num[i] > num[i-1])  {
+			num[i] -= num[i-1];
+			num[i-1] = 0;
+		}
+	}
+	n = 0;
+	for (i = 0; str[i]; i++) {
+		n += num[i];
+	}
+     free(num);
+	return n;
+}
+
+
+SWORD_NAMESPACE_END
+