1. HongboZhang
  2. software system

Commits

HongboZhang  committed 1dc6310

alpha release

  • Participants
  • Parent commits f47257f
  • Branches master

Comments (0)

Files changed (14)

File DSL_util.ml

View file
     
     let machine = sprintf "spec%02d" !machine_id in
     let () = incr machine_id in    
-    let _,_,m = Hashtbl.find roles other in 
+    let _,_,m = Hashtbl.find roles other in
+    let m = string_of_inet_addr(gethostbyname m).h_addr_list.(0) in
     let args = [|"ssh"; machine; dchat; role; m^":"^ client_port|] in 
     let (fid,pid) = create_and_redir ("ssh",args,role^".log",role^".err.log") in
     let () = prerr_endlinef "%s" (Array.fold_left (fun x y -> x ^ " " ^ y) "" args) in

File README

View file
 
 then you will see a link to DSL_util.byte
 
-         DSL_util.byte < leader_sce.ml
+         ./DSL_util.byte < leader_sce.ml
          or type line by line to check
+         leader_sce.ml is a very *complex* scenario, it will generate more than
+         3000 messages.
+         you can write your own simple scene.
+
+         (alice bob marry) 1000 interval 0.00
+         means the three guys will take turns to speak, with interval 0.00
+         (so concurrency happens here), and do it 1000 times
+         
+         the log is in the same directory, after it finished,
+         i.e,
+         alice.log, alice.err.log
+         bob.log, bob.err.log
 
 Config:
         Check config.in to set up
-
+        pennid is your id (hongboz, for example)
+        client_port is fixed (try to use your pennid+10000 to avoid conflict)
 
 
 

File _build/DSL_util.byte

Binary file modified.

File _build/DSL_util.cmi

Binary file modified.

File _build/DSL_util.cmo

Binary file modified.

File _build/DSL_util.ml

View file
     
     let machine = sprintf "spec%02d" !machine_id in
     let () = incr machine_id in    
-    let _,_,m = Hashtbl.find roles other in 
+    let _,_,m = Hashtbl.find roles other in
+    let m = string_of_inet_addr(gethostbyname m).h_addr_list.(0) in
     let args = [|"ssh"; machine; dchat; role; m^":"^ client_port|] in 
     let (fid,pid) = create_and_redir ("ssh",args,role^".log",role^".err.log") in
     let () = prerr_endlinef "%s" (Array.fold_left (fun x y -> x ^ " " ^ y) "" args) in

File _build/_digests

View file
 "Rule: ocaml dependencies ml (%=util )": "p7����$����V\152b��"
-"Resource: /mnt/castor/seas_home/h/hongboz/html/hongbo_zhang_files/dsl/DSL_util.ml": "N\016K\014\n\t�\152�_��\146l�<"
+"Resource: /mnt/castor/seas_home/h/hongboz/html/hongbo_zhang_files/dsl/DSL_util.ml": "d D�\t�\157x\157\151�x�rE"
 "Resource: /mnt/castor/seas_home/h/hongboz/html/hongbo_zhang_files/dsl/util.ml": "A�P��\151\140�\005\004gG��2?"
 "Rule: ocaml: ml -> cmo & cmi (%=util )": "�|#C�2�Q��-8E\148;"
-"Rule: ocaml: ml -> cmo & cmi (%=DSL_util )": "�\130�W�\031\150y7�\143���sj"
-"Rule: ocaml: cmo* -> byte (%=DSL_util )": "4Cr\000;}\028wP�S\003,R\133R"
-"Rule: ocaml dependencies ml (%=DSL_util )": "^�5�(�z\148\006��I�5q�"
+"Rule: ocaml: ml -> cmo & cmi (%=DSL_util )": "�\146\1541�x\016\154\025\031�\139�\151\030="
+"Rule: ocaml dependencies ml (%=DSL_util )": "4���<l\141�Cg�N\132��?"
+"Rule: ocaml: cmo* -> byte (%=DSL_util )": "�\148���\r�\012�m]R�\004uv"

File _build/_log

View file
 # Target: DSL_util.cmo, tags: { byte, compile, extension:cmo, extension:ml, file:DSL_util.cmo, file:DSL_util.ml, implem, ocaml, quiet }
 /home1/h/hongboz/SourceCode/godi-rocketboost-20110811/ocaml/bin/ocamlc.opt -c -I +camlp4 -pp camlp4of -o DSL_util.cmo DSL_util.ml # cached
 # Target: DSL_util.byte, tags: { byte, dont_link_with, extension:byte, file:DSL_util.byte, link, ocaml, program, quiet }
-/home1/h/hongboz/SourceCode/godi-rocketboost-20110811/ocaml/bin/ocamlc.opt -I +camlp4 dynlink.cma camlp4lib.cma str.cma unix.cma util.cmo DSL_util.cmo -o DSL_util.byte
+/home1/h/hongboz/SourceCode/godi-rocketboost-20110811/ocaml/bin/ocamlc.opt -I +camlp4 dynlink.cma camlp4lib.cma str.cma unix.cma util.cmo DSL_util.cmo -o DSL_util.byte # cached
 # Compilation successful.