Ví dụ về Quartus® II Tcl: Số phiên bản gia tăng trong tập tin

Một cách để duy trì số phiên bản trong dự án của bạn là tăng một số trong tệp trong mỗi lần biên dịch. Để thực hiện tác vụ này, một lệnh phải phân tích cú pháp tệp để xác định vị trí số, gia tăng nó, sau đó ghi lại tệp bằng số mới. Nếu tệp ngắn và chứa ít nội dung khác bên cạnh số hiệu, tập lệnh có thể viết một tệp mới từ đầu mỗi khi tệp chạy. Tuy nhiên, nếu tệp là tệp thiết kế dài, việc chỉnh sửa dòng có số phiên bản sẽ thiết thực hơn thay vì viết một tệp mới từ đầu.

data_out <= 16'h41; Số phiên bản thiết kế

Biểu thức thông thường

regexp {^\s+data_out <= \d+'h([[:xdigit:]]]+); // Số phiên bản thiết kế$} \ $line khớp với version_number

Mẫu ([:xdigit:]]+) khớp với một số lục phân có ít nhất một chữ số và lưu nó trong một biến đối sánh có tên version_number.

đặt hex_value quét "AA"
$hex_value "%x" decimal_value
incr decimal_value đặt
new_hex_value decimal_value [định dạng "%X" $decimal_value]
# $new_hex_value hiện là "AB"

proc update_version_number { input_file output_file} { # Nếu không thể mở tệp đầu

    vào, hãy trả lại lỗi.
    nếu { [lần truy cập {mở $input_file} đầu vào] } { lỗi mã trả lại $input } # Nếu không thể mở tệp đầu ra, trả lại lỗi nếu { [mở tệp $output_file w} đầu ra] } { lỗi mã trả lại $output } # Đọc qua một dòng tệp đầu vào tại một thời điểm trong khi
    {-1 != [được $input line] } { {

        #
        Biểu thức thông thường này dành riêng cho dòng tập tin thiết kế ở gần đầu trang web. # Bạn phải thay đổi nó khi phù hợp với tập tin của mình.
        nếu { [regexp {^\s+data_out <= \d+'h([[:xdigit:]]]);// Số phiên bản thiết kế$} \ $line khớp với version_number] } { { Chuyển đổi số phiên bản hexadeci đầy đủ thành cơ sở mười và gia tăng nó. quét $version_number "%x" decimal_value incr decimal_value đặt new_version_number [định dạng "%X" $decimal_value] # Thay thế số phiên bản mới vào cho một regsub h${version_number} $line dòng h${new_version_number} } # Ghi dòng vào tệp mới đặt $output $line } đóng $input đóng $output   }</pre>

Trong kịch bản Tcl, bạn có thể gọi thủ tục như được hiển thị trong ví dụ sau. Ví dụ được viết với giả định rằng bạn chạy lệnh Tcl tại dấu nhắc lệnh hệ thống và cung cấp tên tệp để cập nhật dưới dạng tham số cho lệnh.

đặt file_name [lindex $quartus(args) 0] đặt output_file_name ${file_name}.updated_version_number nếu { [đánh dấu { update_version_number $file_name $output_file_name } res] } { post_message -gõ critical_warning "Không thể cập nhật số phiên bản: $res" } khác { nếu { [nén { tên tệp

    -force $output_file_name $file_name } res ] } {
        post_message -type critical_warning \ "Không thể cập nhật
            số phiên bản:  $res" }
}