Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Tracker SCM

SCM Repository

[smlnj] Diff of /sml/trunk/src/eXene/graph-util/xauth.sml
ViewVC logotype

Diff of /sml/trunk/src/eXene/graph-util/xauth.sml

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

revision 1349, Wed Sep 3 22:22:18 2003 UTC revision 1350, Fri Sep 5 21:34:27 2003 UTC
# Line 24  Line 24 
24    
25      structure EXB = EXeneBase      structure EXB = EXeneBase
26    
27        val w8vextract = Word8VectorSlice.vector o Word8VectorSlice.slice
28    
29      val get8 = Word8.toInt o Word8Vector.sub      val get8 = Word8.toInt o Word8Vector.sub
30    (* this version of get16 handles unaligned data *)    (* this version of get16 handles unaligned data *)
31      fun get16 (s, i) = let      fun get16 (s, i) = let
32            val s = Word8Vector.extract (s, i, SOME 2)            val s = w8vextract (s, i, SOME 2)
33            in            in
34              LargeWord.toInt(Pack16Big.subVec(s, 0))              LargeWord.toInt(Pack16Big.subVec(s, 0))
35            end            end
36      fun getData (s, i, n) = Word8Vector.extract (s, i, SOME n)      fun getData (s, i, n) = w8vextract (s, i, SOME n)
37      fun getString (s, i, n) = Byte.unpackStringVec (s, i, SOME n)      fun getString (s, i, n) = Byte.unpackStringVec (s, i, SOME n)
38    
39    (* the different family codes (from X.h and xc/lib/Xau/Xauth.h) *)    (* the different family codes (from X.h and xc/lib/Xau/Xauth.h) *)

Legend:
Removed from v.1349  
changed lines
  Added in v.1350

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