source: Deliverables/D4.1/Util.ml @ 130

Last change on this file since 130 was 130, checked in by mulligan, 10 years ago

Commit again? Not sure what happened. All Parser files were already
under SVN control.

File size: 266 bytes
RevLine 
[128]1let ($) f x = f x
[130]2;;
[128]3
[130]4let (<*>) f g x = f (g x)
5;;
6
[128]7let char_list_of_string s =
8  let str_length = String.length s in
9  let rec aux s l buff =
10    if l = str_length then
11      buff
12    else
13      aux s (l + 1) ((String.get s l)::buff)
14  in
15    List.rev $ aux s 0 []
Note: See TracBrowser for help on using the repository browser.