mirror of https://github.com/efabless/caravel.git
62 lines
2.1 KiB
Tcl
Executable File
62 lines
2.1 KiB
Tcl
Executable File
# SPDX-FileCopyrightText: 2020 Efabless Corporation
|
|
#
|
|
# Licensed under the Apache License, Version 2.0 (the "License");
|
|
# you may not use this file except in compliance with the License.
|
|
# You may obtain a copy of the License at
|
|
#
|
|
# http://www.apache.org/licenses/LICENSE-2.0
|
|
#
|
|
# Unless required by applicable law or agreed to in writing, software
|
|
# distributed under the License is distributed on an "AS IS" BASIS,
|
|
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
# See the License for the specific language governing permissions and
|
|
# limitations under the License.
|
|
# SPDX-License-Identifier: Apache-2.0
|
|
|
|
gds read $::env(DESIGN_IN_DRC).gds
|
|
set fout [open ./tmp/$::env(DESIGN_IN_DRC).drc w]
|
|
set oscale [cif scale out]
|
|
set cell_name $::env(DESIGN_IN_DRC)
|
|
magic::suspendall
|
|
puts stdout "\[INFO\]: Loading $::env(DESIGN_IN_DRC)\n"
|
|
flush stdout
|
|
load $::env(DESIGN_IN_DRC)
|
|
select top cell
|
|
drc euclidean on
|
|
drc style drc(full)
|
|
drc check
|
|
set drcresult [drc listall why]
|
|
set count 0
|
|
puts $fout "$::env(DESIGN_IN_DRC)"
|
|
puts $fout "----------------------------------------"
|
|
foreach {errtype coordlist} $drcresult {
|
|
puts $fout $errtype
|
|
puts $fout "----------------------------------------"
|
|
foreach coord $coordlist {
|
|
set bllx [expr {$oscale * [lindex $coord 0]}]
|
|
set blly [expr {$oscale * [lindex $coord 1]}]
|
|
set burx [expr {$oscale * [lindex $coord 2]}]
|
|
set bury [expr {$oscale * [lindex $coord 3]}]
|
|
set coords [format " %.3f %.3f %.3f %.3f" $bllx $blly $burx $bury]
|
|
puts $fout "$coords"
|
|
set count [expr {$count + 1} ]
|
|
}
|
|
puts $fout "----------------------------------------"
|
|
}
|
|
|
|
puts $fout "\[INFO\]: COUNT: $count"
|
|
puts $fout "\[INFO\]: Should be divided by 3 or 4"
|
|
|
|
puts $fout ""
|
|
close $fout
|
|
|
|
puts stdout "\[INFO\]: COUNT: $count"
|
|
puts stdout "\[INFO\]: Should be divided by 3 or 4"
|
|
puts stdout "\[INFO\]: DRC Checking DONE (./tmp/$::env(DESIGN_IN_DRC).drc)"
|
|
flush stdout
|
|
|
|
puts stdout "\[INFO\]: Saving mag view with DRC errors(./tmp/$::env(DESIGN_IN_DRC).drc.mag)"
|
|
# WARNING: changes the name of the cell; keep as last step
|
|
save ./tmp/$::env(DESIGN_IN_DRC).drc.drc.mag
|
|
puts stdout "\[INFO\]: Saved"
|