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/compiler/Semant/basics/persstamps.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/Semant/basics/persstamps.sml

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

revision 568, Tue Mar 7 03:59:09 2000 UTC revision 569, Tue Mar 7 04:01:07 2000 UTC
# Line 26  Line 26 
26       in String.concat (Word8Vector.foldr f [] pid)       in String.concat (Word8Vector.foldr f [] pid)
27      end      end
28    
29      fun fromHex s = let
30          fun onebyte i = let
31              val i2 = 2 * i
32              val c1 = String.sub (s, i2)
33              val c2 = String.sub (s, i2 + 1)
34          in
35              valOf (Word8.fromString (implode [c1, c2]))
36          end
37      in
38          SOME (PS (Word8Vector.tabulate (16, onebyte)))
39      end handle _ => NONE
40    
41  end (* structure PersStamps *)  end (* structure PersStamps *)
42    
43    

Legend:
Removed from v.568  
changed lines
  Added in v.569

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