/[marvin]/marvin/src/libnn/Env.ml
ViewVC logotype

Diff of /marvin/src/libnn/Env.ml

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

revision 1.3 by matthieu, Tue Jul 8 16:29:11 2003 UTC revision 1.4 by matthieu, Tue Jul 8 17:03:54 2003 UTC
# Line 44  object Line 44  object
44    method setVerbosity : int-> unit    method setVerbosity : int-> unit
45  end  end
46    
47  class environmentImpl: singleton =  class environmentImpl: environment =
48  object  object
49    val mutable _verbosity = 0    val mutable _verbosity = 0
50    val mutable _channel = stderr    val mutable _channel = stderr
# Line 54  end Line 54  end
54    
55  let env : environment option ref = ref None  let env : environment option ref = ref None
56    
57  let getInstance () : environment =  let getEnv() : environment =
58       match !env with       match !env with
59           None ->           None ->
60             let result = new environmentImpl             let result = new environmentImpl

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26