Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/ml-nlffi-lib/internals/zstring.sml
ViewVC logotype

Diff of /sml/trunk/src/ml-nlffi-lib/internals/zstring.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1077, Tue Feb 19 15:48:50 2002 UTC revision 1078, Tue Feb 19 21:26:48 2002 UTC
# Line 13  Line 13 
13          fun set' (p, w) = Set.uchar' (Ptr.|*! p, w)          fun set' (p, w) = Set.uchar' (Ptr.|*! p, w)
14          fun nxt' p = Ptr.|+! S.uchar (p, 1)          fun nxt' p = Ptr.|+! S.uchar (p, 1)
15      in      in
16          type 'c zstring = (uchar, 'c) ptr          type 'c zstring = (uchar, 'c) obj ptr
17          type 'c zstring' = (uchar, 'c) ptr'          type 'c zstring' = (uchar, 'c) obj ptr'
18    
19          fun length' p = let          fun length' p = let
20              fun loop (n, p) = if get' p = 0w0 then n else loop (n + 1, nxt' p)              fun loop (n, p) = if get' p = 0w0 then n else loop (n + 1, nxt' p)

Legend:
Removed from v.1077  
changed lines
  Added in v.1078

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0