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

Last change on this file since 128 was 128, checked in by mulligan, 9 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.