initial commit for open source NoC IP

flow/syn/tcl_scripts/assert.tcl

@@ -0,0 +1,53 @@
+proc assert {cond {msg ""}} {
+    if {![uplevel 1 expr $cond]} {
+        return -code error "$msg\n  assertion failed: $cond"
+    }
+}
+
+proc assert_is_file { fpath } {
+    global ours
+    if {![file isfile $fpath]} {
+        error "Error: file ($fpath) not found"
+#         if {$ours(tcl_check_only) == "false"} {
+#             uplevel suspend
+#         } else {
+#             error ""
+#         }
+    }
+}
+
+proc assert_is_dir { dpath } {
+    global ours
+    if {![file isdirectory $dpath]} {
+        error "Error: dir ($dpath) not found"
+#         if {$ours(tcl_check_only) == "false"} {
+#             uplevel suspend
+#         } else {
+#             error ""
+#         }
+    }
+}
+
+proc assert_exist { dpath } {
+    global ours
+    if {![file exists $dpath]} {
+        error "Error: dir ($dpath) not found"
+#         if {$ours(tcl_check_only) == "false"} {
+#             uplevel suspend
+#         } else {
+#             error ""
+#         }
+    }
+}
+
+proc assert_is_file_list { ls_fpath } {
+    foreach fpath $ls_fpath {
+        assert_is_file $fpath
+    }
+}
+
+proc assert_is_dir_list { ls_dpath } {
+    foreach dpath $ls_dpath {
+        assert_is_dir $dpath
+    }
+}