Halcon获取CPU指令集和GPU相关参数脚本

1.SIMD单指令多数据流

1. SIMDExtensions := ['mmx', 'sse2', 'sse3', 'ssse3', 'sse41', 'sse42', 'avx', 'avx2', 'avx512f', 'avx512dq', 'avx512bw', 'avx512cd', 'avx512vl', 'avx512vbmi', 'avx512ifma', 'avx512vbmi2', 'avx512vpopcntdq', 'avx512bitalg', 'avx512vnni']
   
2. SystemKeys := []
   
3. SystemValues := []
   
4. for I := 0 to |SIMDExtensions| - 1 by 1
   
5.     get_system (SIMDExtensions[I] + '_supported', Information)
   
6.     SystemKeys := [SystemKeys,'    ' + SIMDExtensions[I] + ':']
   
7.     SystemValues := [SystemValues,Information]
   
8. endfor
   

复制代码

2.GPU相关（OPENGL）

1. query_available_compute_devices (DeviceIdentifiers)
   
2. SystemKeys := ['*** Compute Devices ***']
   
3. SystemValues := ['']
   
4. for I := 0 to |DeviceIdentifiers| - 1 by 1
   
5.     get_compute_device_info (DeviceIdentifiers[I], 'name', DeviceName)
   
6.     get_compute_device_info (DeviceIdentifiers[I], 'vendor', DeviceVendor)
   
7.     get_compute_device_info (DeviceIdentifiers[I], 'platform_version', DevicePlatform)
   
8.     get_compute_device_info (DeviceIdentifiers[I], 'driver_version', DeviceDriver)
   
9.     SystemKeys := [SystemKeys,'    [' + I + '] Device:']
   
10.     SystemValues := [SystemValues,DeviceVendor + ', ' + DeviceName]
    
11.     SystemKeys := [SystemKeys,'       Platform:']
    
12.     SystemValues := [SystemValues,DevicePlatform]
    
13.     SystemKeys := [SystemKeys,'       Driver:']
    
14.     SystemValues := [SystemValues,DeviceDriver]
    
15.     get_compute_device_info (DeviceIdentifiers[I], 'image_support', DeviceImage)
    
16.     SystemKeys := [SystemKeys,'       Image Support:']
    
17.     if (DeviceImage == 'true')
    
18.         get_compute_device_info (DeviceIdentifiers[I], 'image2d_max_width', DeviceImageWidth)
    
19.         get_compute_device_info (DeviceIdentifiers[I], 'image2d_max_height', DeviceImageHeight)
    
20.         SystemValues := [SystemValues,DeviceImageWidth + ' x ' + DeviceImageHeight]
    
21.     else
    
22.         SystemValues := [SystemValues,DeviceImage]
    
23.     endif
    
24.     get_compute_device_info (DeviceIdentifiers[I], 'extensions', DeviceExtensions)
    
25.     SystemKeys := [SystemKeys,'       Extensions:']
    
26.     SystemValues := [SystemValues,DeviceExtensions]
    
27. endfor
    
28. if (|DeviceIdentifiers| == 0)
    
29.     SystemKeys := [SystemKeys,'    none']
    
30.     SystemValues := [SystemValues,'']
    
31. endif
    
32. 
    
33. SystemKeys := [SystemKeys,'*** CUDA capable devices ***']
    
34. SystemValues := [SystemValues,'']
    
35. try
    
36.     get_system ('cuda_version', CUDAVersion)
    
37. catch (Exception)
    
38.     if (Exception[0] == 7708)
    
39.         CUDAVersion := 'No CUDA capable device'
    
40.     else
    
41.         throw (Exception)
    
42.     endif
    
43. endtry
    
44. SystemKeys := [SystemKeys,'    CUDA Version:']
    
45. SystemValues := [SystemValues,CUDAVersion]
    
46. try
    
47.     get_system ('cudnn_version', cuDNNVersion)
    
48. catch (Exception)
    
49.     if (Exception[0] == 7708)
    
50.         cuDNNVersion := 'No CUDA capable device'
    
51.     else
    
52.         throw (Exception)
    
53.     endif
    
54. endtry
    
55. SystemKeys := [SystemKeys,'    cuDNN Version:']
    
56. SystemValues := [SystemValues,cuDNNVersion]
    
57. try
    
58.     get_system ('cublas_version', cuBLASVersion)
    
59. catch (Exception)
    
60.     if (Exception[0] == 7708)
    
61.         cuBLASVersion := 'No CUDA capable device'
    
62.     else
    
63.         throw (Exception)
    
64.     endif
    
65. endtry
    
66. SystemKeys := [SystemKeys,'    cuBLAS Version:']
    
67. SystemValues := [SystemValues,cuBLASVersion]
    
68. get_system ('cuda_devices', CUDADevices)
    
69. if (CUDADevices == [])
    
70.     CUDADevices := 'No CUDA capable device'
    
71. endif
    
72. CUDADevices := sum(CUDADevices + ', ')
    
73. CUDADevices := CUDADevices{0:strlen(CUDADevices) - 3}
    
74. SystemKeys := [SystemKeys,'    CUDA Devices:']
    
75. SystemValues := [SystemValues,CUDADevices]
    
76. 
    
77. get_system ('opengl_hidden_surface_removal_available', OpenGL_HSRA)
    
78. get_system ('opengl_hidden_surface_removal_enable', OpenGL_HSRE)
    
79. try
    
80.     get_system ('opengl_info', OpenGL_Info)
    
81. catch (Exception)
    
82.     OpenGL_Info := 'No OpenGL information available'
    
83. endtry
    
84. tuple_regexp_replace (OpenGL_Info, '\\n$', '', OpenGL_Info)
    
85. Substrings := split(OpenGL_Info,'\n')
    
86. Substrings := split(Substrings,'=')
    
87. EvenIdx := [0:2:|Substrings| - 1]
    
88. OddIdx := [1:2:|Substrings| - 1]
    
89. SystemKeys := [SystemKeys,'*** OpenGL Information ***']
    
90. SystemValues := [SystemValues,'']
    
91. SystemKeys := [SystemKeys,'    Hidden Surface Removal:']
    
92. if (OpenGL_HSRA == 'true')
    
93.     if (OpenGL_HSRE == 'true')
    
94.         SystemValues := [SystemValues,'available, enabled']
    
95.     else
    
96.         SystemValues := [SystemValues,'available, disabled']
    
97.     endif
    
98. else
    
99.     SystemValues := [SystemValues,OpenGL_HSRA]
    
100. endif
     
101. if (|OddIdx| > 0)
     
102.     SystemKeys := [SystemKeys,'    ' + Substrings[EvenIdx] + ':']
     
103.     SystemValues := [SystemValues,Substrings[OddIdx]]
     
104. else
     
105.     SystemKeys := [SystemKeys,'    ' + 'GL_VERSION:']
     
106.     SystemValues := [SystemValues,Substrings]
     
107. endif

复制代码