(* alphanumcmp - compares by alphanum algorithm *)
(* (C) 2007 Andre Bogus
based on the improved java version by Andre Bogus
which in turn is based on the original by Dave Koelle
Distributed under same license as original

This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or any later version.

This library 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
Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
*)
let len = String.length;;

let isnum s i = let c = String.get s i in c >= '0' && c <= '9';;

let chunk s f t = (f < len s) && (t < len s)
       && (isnum s f) = (isnum s t);;

let chunkto s f =
       let rec to_ s f e = if chunk s f e then to_ s f (e + 1) else e in       to_ s f f;;

let alphanumcmp a b =
       let rec chunkcmp a ai b bi = let al, bl = len a, len b in
               if ai >= al || bi >= bl then compare al bl else
               let ae, be = chunkto a ai, chunkto b bi in
               let sa, sb = String.sub a ai (ae-ai), String.sub b bi (be-bi) in
               let cmp = if isnum a ai && isnum b bi then
                       compare (int_of_string sa) (int_of_string sb) else compare sa sb in
               if cmp = 0 then chunkcmp a ae b be else cmp
       in chunkcmp a 0 b 0;;

let names = [ "1000X Radonius Maximus"; "10X Radonius"; "200X Radonius"; "20X Radonius"; "20X Radonius Prime"; "30X Radonius"; "40X Radonius"; "Allegia 50 Clasteron"; "Allegia 500 Clasteron"; "Allegia 51 Clasteron"; "Allegia 51B Clasteron"; "Allegia 52 Clasteron"; "Allegia 60 Clasteron"; "Alpha 100"; "Alpha 2"; "Alpha 200"; "Alpha 2A";  "Alpha 2A-8000"; "Alpha 2A-900"; "Callisto Morphamax"; "Callisto Morphamax 500"; "Callisto Morphamax 5000"; "Callisto Morphamax 600"; "Callisto Morphamax 700"; "Callisto Morphamax 7000"; "Callisto Morphamax 7000 SE";"Callisto Morphamax 7000 SE2"; "QRS-60 Intrinsia Machine"; "QRS-60F Intrinsia Machine"; "QRS-62 Intrinsia Machine"; "QRS-62F Intrinsia Machine"; "Xiph Xlater 10000"; "Xiph Xlater 2000"; "Xiph Xlater 300"; "Xiph Xlater 40"; "Xiph Xlater 5"; "Xiph Xlater 50"; "Xiph Xlater 500"; "Xiph Xlater 5000"; "Xiph Xlater 58" ];;

let print s = print_string s; print_string "\n" in
List.iter print (List.sort alphanumcmp names);;