Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
cduce
cduce
Commits
47a1c26d
Commit
47a1c26d
authored
Oct 05, 2007
by
Pietro Abate
Browse files
[r2002-12-02 16:56:43 by cvscast] Empty log message
Original author: cvscast Date: 2002-12-02 16:59:09+00:00
parent
ff3a9aac
Changes
1
Hide whitespace changes
Inline
Side-by-side
driver/webiface.ml
View file @
47a1c26d
...
...
@@ -147,6 +147,11 @@ let cut p w s =
match
s
.
[
i
]
with
|
'\n'
->
p
'\n'
;
aux
(
i
+
1
)
0
|
'\r'
->
aux
(
i
+
1
)
0
|
'
<
'
->
let
rec
tag
i
=
p
s
.
[
i
];
if
(
s
.
[
i
]
=
'
>
'
)
then
aux
(
i
+
1
)
x
else
tag
(
i
+
1
)
in
tag
i
|
c
->
let
x
=
if
x
=
w
then
(
p
'\\'
;
p
'\n'
;
p
'
:
'
;
2
)
else
(
x
+
1
)
in
p
c
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment