From d55a2b0e48b9caf27428b0c9f97e4a3048f545ae Mon Sep 17 00:00:00 2001
From: Christopher Alfeld <calfeld@flux.utah.edu>
Date: Tue, 8 Jan 2002 20:57:51 +0000
Subject: [PATCH] vtype stuff.

---
 tbsetup/assign_wrapper.in | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/tbsetup/assign_wrapper.in b/tbsetup/assign_wrapper.in
index 1ea383f87..1cad67416 100644
--- a/tbsetup/assign_wrapper.in
+++ b/tbsetup/assign_wrapper.in
@@ -137,6 +137,7 @@ sub printdb {
 #    be inserted.
 #  fixed_nodes is indexed by virtual node name and points to physical node
 #   name.
+#  vtypes is indexed by vtype name and is a list of {weight types}.
 #
 # Delay node names:
 #  delay nodes are named tbdelayXX N > 2
@@ -258,6 +259,15 @@ foreach $lan (keys(%lans)) {
 }
 # End shark hack
 
+# Load virt types
+printdb "Loading virt_vtypes.\n";
+$result = DBQueryFatal("SELECT name,weight,members from virt_vtypes" .
+		       " where pid=\"$pid\" and eid=\"$eid\"");
+while (($name,$weight,$types) = $result->fetchrow_array) {
+    printdb "  $name $weight $types\n";
+    $vtypes{$name} = "$weight $types";
+}
+
 # Open the TOP file
 $topfile = "$eid.top";
 open(TOPFILE,"> $topfile") || do {
@@ -265,6 +275,10 @@ open(TOPFILE,"> $topfile") || do {
     exit(1);
 };
 
+# Print out vtypes
+foreach $vtype (keys(%vtypes)) {
+    print TOPFILE "make-vclass $vtype $vtypes{$vtype}\n";
+}
 
 $nodes=0;
 $delaynodes=0;
-- 
GitLab