From: Prashanth Mundkur <prashanth.mundkur@citrix.com>
Date: Tue, 16 Jun 2009 00:18:20 +0000 (-0700)
Subject: Avoid putting full path of generator into generated files.
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=bd64201fc6987f8a326ae9018865209d90871274;p=xenclient%2Ftoolstack.git

Avoid putting full path of generator into generated files.
---

diff --git a/gen/json_conv/codegen.ml b/gen/json_conv/codegen.ml
index 25b844f..b13dcf9 100644
--- a/gen/json_conv/codegen.ml
+++ b/gen/json_conv/codegen.ml
@@ -430,7 +430,9 @@ let generate_from_def ff is_and (tname, trep) =
 
 let generate_header ff ifn =
 	let md = Filename.basename (Filename.chop_extension ifn) in
-	let call = String.concat " " (Array.to_list Sys.argv) in
+	let argv = Array.to_list Sys.argv in
+	let argv = (Filename.basename (List.hd argv)) :: (List.tl argv) in
+	let call = String.concat " " argv in
 	fprintf ff "(* This file has been auto-generated using \"%s\". *)@\n@\n" call;
 	fprintf ff "open %s@\n@\n" (String.capitalize md)
 
diff --git a/gen/rpc/codegen.ml b/gen/rpc/codegen.ml
index 2d8efc9..2f22588 100644
--- a/gen/rpc/codegen.ml
+++ b/gen/rpc/codegen.ml
@@ -336,7 +336,9 @@ module Client = struct
 end
 
 let generate_header ff =
-	let call = String.concat " " (Array.to_list Sys.argv) in
+	let argv = Array.to_list Sys.argv in
+	let argv = (Filename.basename (List.hd argv)) :: (List.tl argv) in
+	let call = String.concat " " argv in
         fprintf ff "(* This file has been auto-generated using \"%s\". *)@\n@\n" call
 
 let generate_opens ff spec =
diff --git a/gen/rpc/syntax_json_conv.ml b/gen/rpc/syntax_json_conv.ml
index e5306e3..b773801 100644
--- a/gen/rpc/syntax_json_conv.ml
+++ b/gen/rpc/syntax_json_conv.ml
@@ -1,4 +1,4 @@
-(* This file has been auto-generated using "/home/prashanth/xenclient/build/repo/xenclient-toolstack/gen/json_conv/gen_json_conv -i syntax.ml -o syntax_json_conv.ml". *)
+(* This file has been auto-generated using "gen_json_conv -i syntax.ml -o syntax_json_conv.ml". *)
 
 open Syntax