Untitled
unknown
tcl
9 months ago
906 B
9
Indexable
proc rebuild_project {fpga version git_sha timestamp} {
    global myScript
    global myProject
    # Wrap the whole process in a catch block
    if {[catch {
        project close
        # Heartbeat
        puts "\n$myScript: Rebuilding ($myProject)...\n"
        set proj_exts [list ise xise gise]
        foreach ext $proj_exts {
            set proj_name "${myProject}.$ext"
            if {[file exists $proj_name]} {
                file delete $proj_name
            }
        }
        project new $myProject
        puts "Created Project $myProject: FPGA: $fpga and Version#: $version"
        
        set_project_props $fpga $version $git_sha $timestamp
        add_source_files
        create_libraries
        puts "$myScript: project rebuild completed."
        run_process
    } err]} {
        # Handle the error and exit
        puts "Error encountered: $err"
        exit 1
    }
}Editor is loading...
Leave a Comment