|
Last change
on this file since 130 was
130,
checked in by mulligan, 11 years ago
|
|
Commit again? Not sure what happened. All Parser files were already
under SVN control.
|
|
File size:
266 bytes
|
| Line | |
|---|
| 1 | let ($) f x = f x |
|---|
| 2 | ;; |
|---|
| 3 | |
|---|
| 4 | let (<*>) f g x = f (g x) |
|---|
| 5 | ;; |
|---|
| 6 | |
|---|
| 7 | let 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.
