Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/parser/diderot.lex
ViewVC logotype

Diff of /branches/vis15/src/compiler/parser/diderot.lex

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

revision 3465, Sun Nov 29 20:04:16 2015 UTC revision 3466, Sun Nov 29 20:08:22 2015 UTC
# Line 62  Line 62 
62    
63    (* scan a number from a hexidecimal string *)    (* scan a number from a hexidecimal string *)
64      val fromHexString = valOf o (StringCvt.scanString (IntInf.scan StringCvt.HEX))      val fromHexString = valOf o (StringCvt.scanString (IntInf.scan StringCvt.HEX))
 (* FIXME: the above code doesn't work in SML/NJ; here is a work around *)  
 fun fromHexString s = let  
       val SOME(n, _) = IntInf.scan StringCvt.HEX Substring.getc  
             (Substring.triml 2 (Substring.full s))  
       in  
         n  
       end  
65    
66    (* eof : unit -> lex_result *)    (* eof : unit -> lex_result *)
67    (* ml-ulex requires this as well *)    (* ml-ulex requires this as well *)

Legend:
Removed from v.3465  
changed lines
  Added in v.3466

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