diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1998-06-23 16:47:02 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1998-06-23 16:47:02 +0000 |
| commit | af85f7c394f650348ee4ca5b34eb8e99619bc11c (patch) | |
| tree | ea3bdeebf91c21c7f2de8fa1ab13b0037289a888 /byterun/str.c | |
| parent | e16a54aa2ffffadbeaa14cca3e17d456cf9b184a (diff) | |
Portage Cray T3E
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1996 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/str.c')
| -rw-r--r-- | byterun/str.c | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/byterun/str.c b/byterun/str.c index e2061b9b0..04f1aaf79 100644 --- a/byterun/str.c +++ b/byterun/str.c @@ -92,10 +92,18 @@ value fill_string(value s, value offset, value len, value init) /* ML */ return Val_unit; } -static unsigned char printable_chars_ascii[] = /* 0x20-0x7E */ - "\000\000\000\000\377\377\377\377\377\377\377\377\377\377\377\177\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"; -static unsigned char printable_chars_iso[] = /* 0x20-0x7E 0xA1-0xFF */ - "\000\000\000\000\377\377\377\377\377\377\377\377\377\377\377\177\000\000\000\000\376\377\377\377\377\377\377\377\377\377\377\377"; +static unsigned char printable_chars_ascii[] = { /* 0x20-0x7E */ + 0, 0, 0, 0, 0xFF, 0xFF, 0xFF, 0xFF, + 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0x7F, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0 +}; +static unsigned char printable_chars_iso[] = { /* 0x20-0x7E 0xA1-0xFF */ + 0, 0, 0, 0, 0xFF, 0xFF, 0xFF, 0xFF, + 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0x7F, + 0, 0, 0, 0, 0xFE, 0xFF, 0xFF, 0xFF, + 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF +}; value is_printable(value chr) /* ML */ { |