rem invoke as
rem    .\aux-udnfunc.bat xtraevt

set sub=%1

for /F %%n in (..\..\src\xspice\icm\%sub%\udnpath.lst) do (
  if not exist icm\%sub%\%%n mkdir icm\%sub%\%%n
  copy /Y ..\..\src\xspice\icm\%sub%\%%n\udnfunc.c icm\%sub%\%%n\%%n-udnfunc.c
)