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

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

Some utility functions useful across modules moved into new file Util.
Started working on parser for Intel hex file format. Moved
physical.ml*' to Physical.ml*' for naming consistency across modules.

File size: 233 bytes
Line 
1let ($) f x = f x
2
3let char_list_of_string s =
4  let str_length = String.length s in
5  let rec aux s l buff =
6    if l = str_length then
7      buff
8    else
9      aux s (l + 1) ((String.get s l)::buff)
10  in
11    List.rev $ aux s 0 []
Note: See TracBrowser for help on using the repository browser.