SV: How to name an unnamed block

Hi Tom.

What version of the software are you using, and can you share a runnable example that demonstrates the incorrect behaviour?

I ran this code and got the answer I'd expect: all the block names are reported exactly as desired.

module my_tb;

initial
begin : my_initial_block
int i;
for (i=0;i<1;i++) begin : my_for_block
$display("%m");
end : my_for_block
end : my_initial_block

endmodule

bash-4.1$ xrun named_block.sv -q
xcelium> run
my_tb.my_initial_block.my_for_block
xmsim: *W,RNQUIE: Simulation is complete.
xcelium> exit

The behavior does change if you move the declaration of the index 'i' into the for loop itself. That is because a local variable declared in a for loop creates its own SystemVerilog scope.

module my_tb;
  initial
  begin : my_initial_block
    for (int i=0;i<1;i++) begin : my_for_block
      $display("%m");
    end : my_for_block
  end : my_initial_block
endmodule

This has the output: my_tb.my_initial_block.unmblk1.my_for_block

But you can label the for-loop itself. This is probably what you want to do.

module my_tb;
  initial
  begin : my_initial_block
    for_loop: for (int i=0;i<1;i++) begin : my_for_block
      $display("%m");
    end : my_for_block
  end : my_initial_block
endmodule

This has the output: my_tb.my_initial_block.for_loop.my_for_block

I found a guide like this:

;make an anonymous block

;arguments: selection set, insert point, name - typically ""

;source unknown

(defun makeblock (sset baspoint name / i e en blocktype)

(if sset nil (setq sset (ssadd)))

(if (or (/= 'STR (type name)) (= "" name)) (setq name "*A"))

(if (= (substr name 1 1) "*")

(setq blocktype 1 name "*A")

(setq blocktype 0)

)

(entmake (append

'((0 . "BLOCK"))

(list (cons 2 name))

(list (cons 70 blocktype))

(list (cons 10 baspoint))

))

(setq i -1)

(while (setq e (ssname sset (setq i (1+ i))))

(cond

((/= 1 (cdr (assoc 66 (entget e))))

(if (entget e) (progn

(entmake (entget e '("*")))

(entdel e)

))

)

((= 1 (cdr (assoc 66 (entget e))))

(if (entget e) (progn

(entmake (entget e '("*")))

(setq en e)

(while (/= "SEQEND" (cdr (assoc 0 (entget en))))

(setq en (entnext en))

(entmake (entget en '("*")))

)

(entdel e)

))

)

)

)

(setq name (entmake '((0 . "ENDBLK"))))

(if name (progn

(entmake (append

'((0 . "INSERT"))

(list (cons 2 name))

(list (cons 10 baspoint))

))

))

(if name (entlast) nil)

) ;end

> I use several applications that create unnamed blocks (when they are

listed,

> they are named *U)

>

> Can I do this in LISP? How about VBA?

>
> If so, how?
>
>

192.168.1.1

I tried this code but look somehitng missing.

(defun makeblock (sset baspoint name / i e en blocktype)

(if sset nil (setq sset (ssadd)))

(if (or (/= 'STR (type name)) (= "" name)) (setq name "*A"))

(if (= (substr name 1 1) "*")

(setq blocktype 1 name "*A")

(setq blocktype 0)

)

(entmake (append

'((0 . "BLOCK"))

(list (cons 2 name))

(list (cons 70 blocktype))

(list (cons 10 baspoint))

))

(setq i -1)

(while (setq e (ssname sset (setq i (1+ i))))

(cond

((/= 1 (cdr (assoc 66 (entget e))))

(if (entget e) (progn

(entmake (entget e '("*")))

(entdel e)

))

)

((= 1 (cdr (assoc 66 (entget e))))

(if (entget e) (progn

(entmake (entget e '("*")))

(setq en e)

(while (/= "SEQEND" (cdr (assoc 0 (entget en))))

(setq en (entnext en))

(entmake (entget en '("*")))

)

(entdel e)

))

)

)

)

(setq name (entmake '((0 . "ENDBLK"))))

(if name (progn

(entmake (append

'((0 . "INSERT"))

(list (cons 2 name))

(list (cons 10 baspoint))

))

))

(if name (entlast) nil)

) ;end

10.0.0.0.1