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/cm/main/cm-boot.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/main/cm-boot.sml

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

revision 736, Thu Nov 23 01:39:05 2000 UTC revision 737, Fri Nov 24 08:43:56 2000 UTC
# Line 24  Line 24 
24        structure F = OS.FileSys        structure F = OS.FileSys
25        structure DG = DependencyGraph        structure DG = DependencyGraph
26        structure GG = GroupGraph        structure GG = GroupGraph
27          structure IM = IntMap
28    
29        val os = SMLofNJ.SysInfo.getOSKind ()        val os = SMLofNJ.SysInfo.getOSKind ()
30        val my_archos =        val my_archos =
# Line 34  Line 35 
35                              val os = os)                              val os = os)
36    
37        val emptydyn = E.dynamicPart E.emptyEnv        val emptydyn = E.dynamicPart E.emptyEnv
38        val system_values = ref (SrcPathMap.empty: E.dynenv SrcPathMap.map)        val system_values =
39              ref (SrcPathMap.empty: E.dynenv IntMap.map SrcPathMap.map)
40    
41        structure StabModmap = StabModmapFn ()        structure StabModmap = StabModmapFn ()
42    
# Line 463  Line 465 
465                fun readpidmap s = let                fun readpidmap s = let
466                    fun loop m = let                    fun loop m = let
467                        fun enter (d, pids) = let                        fun enter (d, pids) = let
468                            fun enter1 (hexp, e) =                            fun enter1 (spec, pm) = let
469                                case GenericVC.PersStamps.fromHex hexp of                                val fromHex = GenericVC.PersStamps.fromHex
470                                    SOME p => (DE.bind (p, DE.look de p, e)                            in
471                                               handle DE.Unbound => e)                                case String.tokens (fn c => c = #":") spec of
472                                  | NONE => e                                    [pos, hexp] =>
473                                      (case (fromHex hexp, Int.fromString pos) of
474                                           (SOME p, SOME i) =>
475                                           (IM.insert (pm, i,
476                                                       DE.bind (p, DE.look de p,
477                                                                emptydyn))
478                                            handle DE.Unbound => pm)
479                                         | _ => pm)
480                                    | _ => pm
481                              end
482                        in                        in
483                            SrcPathMap.insert (m, SrcPath.decode penv d,                            SrcPathMap.insert (m, SrcPath.decode penv d,
484                                               foldl enter1 emptydyn pids)                                               foldl enter1 IM.empty pids)
485                        end                        end
486                    in                    in
487                        case TextIO.inputLine s of                        case TextIO.inputLine s of
# Line 479  Line 490 
490                                         d :: pids => loop (enter (d, pids))                                         d :: pids => loop (enter (d, pids))
491                                       | _ => loop m)                                       | _ => loop m)
492                    end                    end
493                      val m = loop SrcPathMap.empty
494                in                in
495                    system_values := loop SrcPathMap.empty                    system_values := m
496                end                end
497    
498                val _ =                val _ =

Legend:
Removed from v.736  
changed lines
  Added in v.737

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