Форум программистов, компьютерный форум, киберфорум
Наши страницы
Batch (CMD/BAT)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.95/21: Рейтинг темы: голосов - 21, средняя оценка - 4.95
greg zakharov
Покинул форум
2143 / 866 / 247
Регистрация: 07.05.2015
Сообщений: 1,718
1

Командные сценарии-гибриды

20.09.2016, 16:54. Просмотров 4249. Ответов 16
Метки нет (Все метки)

Если господа модераторы не будут против - хотелось бы, чтобы тема была среди закрепленных. Цель ветки - просвещение, суть - создание шаблонов командных сценариев, возможности которых расширяются за счет таких сторонних технологий как, скажем, NodeJS. Тема не нова и уже поднималась мной здесь, однако в виду специфики форума предыдущие версии сценариев, увы, невозможно обновить, а исследования между тем того требуют. Общая суть, полагаю, ясна. Если нет, то кратко это можно выразить в виде следующего FAQа:

Q: Что разумеется под словом "гибрид"?
A: Сценарий, сочетающий в себе командный язык Windows и и некую стороннюю технологию, при этом вызов последней осуществляется первым таким образом, что у пользователя не возникает сомнений в том, что это - всего лишь батник.

Q: Есть ли "мусор" в выводе такого сценария?
A: Главное требование любого гибрида - не выводить мусор в стандартный поток вывода командной строки, иначе говоря, весь вывод в консоль является предсказуемым и ожидаемым.

В общем, с предисловием покончили, перейдем к основе ветке - генератору шаблонов.
Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
@echo off
  setlocal enabledelayedexpansion
    set "i=0"
    for %%i in (%*) do set /a "i+=1"
    if !i! neq 1 goto:man
    
    set "map=CMD;CS;JS;HTA;LUA;PHP;PL;PS1;PY;RB;SH;TCL;VBS;WSF"
    call:toUpper %1
    for %%i in (!map!) do if /i "!$!" equ "%%i" set "#=%%i"
    if /i "!#!" equ "" goto:man
    
    set "i=0"
    for /f "tokens=1 delims=:" %%i in (
      'findstr /bn ":!#! :eof_!#!" "%~f0"'
    ) do set "arr.!i!=%%i"&set /a "i+=1"
    set /a "arr.0=arr.0+1", "arr.1=arr.1-1"
    
    3<"%~f0" (
      for /l %%i in (1, 1, !arr.1!) do (
        set /p s=<&3
        if %%i geq !arr.0! echo:!s!
        set "s="
      )
    )>source.cmd
  endlocal
exit /b
 
:toUpper
  for /f "tokens=2 delims=." %%i in (
    '2^>^&1 find /v "" .%1'
  ) do set "$=%%i"
exit /b
 
:man
  for %%i in (
    "Usage: %~n0 [extension]"
    "Where 'extension' is one of the follow:"
    "   cmd - pure cmd template"
    "   cs  - CMD\CSharp template"
    "   js  - CMD\JavaScript (MS JScript or NodeJS)"
    "   hta - CMD\HTA template"
    "   lua - CMD\Lua template"
    "   php - CMD\PHP template"
    "   pl  - CMD\Perl template"
    "   ps1 - CMD\PowerShell template"
    "   py  - CMD\Python template"
    "   rb  - CMD\Ruby template"
    "   sh  - CMD\Bash template"
    "   tcl - CMD\Tcl template"
    "   vbs - CMD\VBscript template"
    "   wsf - CMD\WSF template"
  ) do echo:%%~i
exit /b
 
:CMD
@echo off
  setlocal enabledelayedexpansion
  endlocal
exit /b
:eof_CMD
 
:CS
/* 2>nul
@echo off
  setlocal
    set "key=HKLM\SOFTWARE\Microsoft\.NETFramework"
    for /f "tokens=3" %%i in (
      '2^>nul reg query %key% /v InstallRoot'
    ) do set "root=%%i"
    if /i "%root%" equ "" echo:Could not find .NET root.
    
    for /f "delims=" %%i in (
      'dir /ad /b "%root%" ^| findstr /irc:"v[0-9.].*"'
    ) do (
      set "csc=%root%%%i\csc.exe"
      if exist "%csc%" set "csc=%csc%"
    )
    set "arg=/nologo /t:exe /out:app.exe /optimize+"
    set "arg=%arg% /debug:pdbonly "%~f0""
    %csc% %arg%
    app.exe
  endlocal
exit /b
*/
 
using System;
 
internal sealed class Program {
  static void Clear() {
    Console.CursorTop = Console.CursorTop - 1;
    Console.Write(new String(' ', Console.BufferWidth));
    Console.CursorTop = Console.CursorTop - 2;
  }
  
  static void Main() {
    Clear();
    /* place your code here */
  }
}
:eof_CS
 
:JS
0</* :
@echo off
  setlocal
    rem 2>nul node "%~f0" %*
    cscript /nologo /e:jscript "%~f0" %*
  endlocal
exit /b */0;
// place your code here
:eof_JS
 
:HTA
<!-- :
  @start mshta "%~f0"&exit /b
-->
<html>
  <head>
    <title></title>
    <meta name="author" content="" />
    <hta:application id=""
         applicationname=""
         border="thin"
         contextmenu="no"
         maximizebutton="no"
         minimizebutton="no"
         scroll="no"
         singleinstance="yes"
         sysmenu="yes"
         version="1.0" />
  </head>
  <body>
  </body>
</html>
:eof_HTA
 
:LUA
:: --[[
@echo off
  setlocal
    2>nul lua "%~f0" %*
  endlocal
exit /b
--]]
_____ ::
-- place your code here
:eof_LUA
 
:PHP
:<?php /*
@echo off
  setlocal
    2>nul php "%~f0" %*
  endlocal
exit /b
*/
echo "\r";
 
/* place your code here */
?>
:eof_PHP
 
:PL
@echo off
  setlocal
    2>nul perl -x "%~f0" %*
  endlocal
exit /b
#!perl
# place your code here
:eof_PL
 
:PS1
<# :
  @echo off
    setlocal
      powershell /noprofile /executionpolicy bypass^
      "&{[ScriptBlock]::Create((Get-Content '%~f0') -join [Char]10).Invoke(@(&{$args}%*))}"
    endlocal
  exit /b
#>
# place your code here
:eof_PS1
 
:PY
1>2# : ^
'''
@echo off
  setlocal
    2>nul python "%~f0" %*
  endlocal
exit /b
'''
# place your code here
:eof_PY
 
:RB
@echo off
  setlocal
    2>nul ruby -x "%~f0" %*
  endlocal
exit /b
#!ruby
# place your code here
:eof_RB
 
:SH
:<<EOF
@echo off
  setlocal
    2>nul bash "%~f0" %*
  ebdlocal
exit /b
EOF
# place your code here
:eof_SH
 
:TCL
::set comment {
  @echo off
    setlocal
      2>nul tclsh86t "%~f0" %*
    endlocal
  exit /b
}
# place your code here
:eof_TCL
 
:VBS
::'@cscript /nologo /e:vbscript "%~f0" %*&exit /b
' place your code here
:eof_VBS
 
:WSF
<?xml : version="1.0" encoding="utf-8"?> ^<!-- :
  @cscript /nologo "%~f0?.wsf" //job:JS //job:VBS&exit /b
-->
<package>
  <job id="JS">
    <script language="JScript"><![CDATA[
    ]]></script>
  </job>
  <job id="VBS">
    <script language="VBScript"><![CDATA[
    ]]></script>
  </job>
</package>
:eof_WSF
С момента последнего поста в сценарии произошло достаточно много изменений, например, было ускорено время создания шаблонов как таковых, во-вторых, была добавлена поддержка bash, lua, tcl и C#. Гибрид с bash тестировался в Cygwin, lua и tcl были собраны из исходников, а вот относительно C# не все так просто. Вообще, его поддержка была включена по большей части до кучи, так как в вывод временно попадает "/* 2>nul", которое, впрочем, после затирается. Если показать это на примере:
Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
C:\sandbox> hybrid.cmd cs
C:\sandbox> vim source.cmd
 
/* 2>nul
@echo off
  setlocal
    set "key=HKLM\SOFTWARE\Microsoft\.NETFramework"
    for /f "tokens=3" %%i in (
      '2^>nul reg query %key% /v InstallRoot'
    ) do set "root=%%i"
    if /i "%root%" equ "" echo:Could not find .NET root.
    
    for /f "delims=" %%i in (
      'dir /ad /b "%root%" ^| findstr /irc:"v[0-9.].*"'
    ) do (
      set "csc=%root%%%i\csc.exe"
      if exist "%csc%" set "csc=%csc%"
    )
    set "arg=/nologo /t:exe /out:app.exe /optimize+"
    set "arg=%arg% /debug:pdbonly "%~f0""
    %csc% %arg%
    app.exe
  endlocal
exit /b
*/
 
using System;
using System.IO;
 
internal sealed class Program {
  static void Clear() {
    Console.CursorTop = Console.CursorTop - 1;
    Console.Write(new String(' ', Console.BufferWidth));
    Console.CursorTop = Console.CursorTop - 2;
  }
  
  static void Main() {
    Clear();
    
    String[] files = Directory.GetFiles(@"C:\sandbox");
    foreach (String file in files) Console.WriteLine(file);
  }
}
Сохраем, и далее:
Windows Batch file
1
C:\sandbox> source.cmd
Как видим, "мусор" мелькает, но все же в итоговом выводе его нет.

Правила ветки
1. Предлагать улучшения по генератору или гибриды с другими языками (с учетом FAQа выше).
2. Рассматриваются исключительно вопросы гибридизации (опять-таки относительно FAQа).
3
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.09.2016, 16:54
Ответы с готовыми решениями:

Командные файлы
Здравствуйте товарищи программисты! У меня вопрос: Командные файлы, это файлы...

PowerShell ломает BAT-сценарии?
Непонятное случилось только что. Я нашел тут неподалеку код, который...

Командные файлы DOS
помогите сделать 1. Создайте командный файл для калькулятора и клавиатуры...

Сценарии администрирования Windows
Уважаемые, нужны идеи по разработке сценариев администрирования Windows...

Как из программы выполнять командные сценарии cmd.exe Windows (не через batch-файлы)?
В общем, вопрос в шапке. Есть способ обращаться к заранее приготовленным...

16
greg zakharov
Покинул форум
2143 / 866 / 247
Регистрация: 07.05.2015
Сообщений: 1,718
19.11.2016, 17:38  [ТС] 2
Очередной релиз, так сказать. Добавлена возможность создания гибрида VB.NET, JScript.NET, AutoIt3, Kixtart и Assembler. В случае с Assembler'ом, во-первых, генерируется не шаблон, а скорее пример гибрида CMD\Assembler с ипользованием NASM (это личное предпочтение, так что стоит это взять на карандаш), во-вторых, требуется линкер, в данном случае используется link.exe из набора MS Build Tools 2015, хотя можно воспользоваться и GCC, словом - дело личных пристрастий.
Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
@echo off
  setlocal enabledelayedexpansion
    set "i=0"
    for %%i in (%*) do set /a "i+=1"
    if !i! neq 1 goto:man
    
    set "map=ASM;AU3;CMD;CS;JS;JSN;HTA;KIX;LUA;PHP;PL;PS1;PY;RB;SH;TCL;VBN;VBS;WSF"
    call:toUpper %1
    for %%i in (!map!) do if /i "!$!" equ "%%i" set "#=%%i"
    if /i "!#!" equ "" goto:man
    
    set "i=0"
    for /f "tokens=1 delims=:" %%i in (
      'findstr /bn ":!#! :eof_!#!" "%~f0"'
    ) do set "arr.!i!=%%i"&set /a "i+=1"
    set /a "arr.0=arr.0+1", "arr.1=arr.1-1"
    
    3<"%~f0" (
      for /l %%i in (1, 1, !arr.1!) do (
        set /p s=<&3
        if %%i geq !arr.0! echo:!s!
        set "s="
      )
    )>source.cmd
  endlocal
exit /b
 
:toUpper
  for /f "tokens=2 delims=." %%i in (
    '2^>^&1 find /v "" .%1'
  ) do set "$=%%i"
exit /b
 
:man
  for %%i in (
    "Usage: %~n0 [extension]"
    ""
    "Where 'extension' is one of the follow:"
    "   asm - CMD\Assembler example (not template)"
    "   au3 - CMD\AutoIt template"
    "   cmd - pure cmd template"
    "   cs  - CMD\CSharp template"
    "   js  - CMD\JavaScript (MS JScript or NodeJS)"
    "   jsn - CMD\JScript.NET template"
    "   hta - CMD\HTA template"
    "   kix - CMD\Kixtart template"
    "   lua - CMD\Lua template"
    "   php - CMD\PHP template"
    "   pl  - CMD\Perl template"
    "   ps1 - CMD\PowerShell template"
    "   py  - CMD\Python template"
    "   rb  - CMD\Ruby template"
    "   sh  - CMD\Bash template"
    "   tcl - CMD\Tcl template"
    "   vbn - CMD\VB.NET template"
    "   vbs - CMD\VBscript template"
    "   wsf - CMD\WSF template"
    ""
    "Note that 'asm' requires NASM (tested version 2.12.02) and"
    "link.exe (included into MS toolkit of code compilation)."
    "In fact, you can also use GCC."
  ) do echo:%%~i
exit /b
 
:ASM
;@echo off
;  setlocal
;    set "obj="%~dpn0.obj""
;    set "lnk=link.exe /nologo /subsystem:console"
;    set "lnk=%lnk% %obj% /out:app.exe msvcrt.lib"
;    set "app="%~dp0app.exe""
;    nasm -fwin32 "%~f0"
;    %lnk%
;    app.exe
;    for %%i in (%obj% %app%) do (
;      if exist %%i del /f /q %%i
;    )
;  endlocal
;exit /b
global _main
extern _printf
 
section .data
   str: db 'Sample code', 0xA, 0
section .text
   _main:
      sub  esp, 4
      lea  eax, [str]
      mov  [esp], eax
      call _printf
      add  esp, 4
      ret
:eof_ASM
 
:AU3
;@echo off
;  setlocal
;    2>nul AutoIt3.exe "%~f0" %*
;  endlocal
;exit /b
; place your code here
:eof_AU3
 
:CMD
@echo off
  setlocal enabledelayedexpansion
  endlocal
exit /b
:eof_CMD
 
:CS
/* 2>nul
@echo off
  setlocal enabledelayedexpansion
    set "key=HKLM\SOFTWARE\Microsoft\.NETFramework"
    for /f "tokens=3" %%i in (
      '2^>nul reg query %key% /v InstallRoot'
    ) do set "root=%%i"
    if /i "%root%" equ "" echo:Could not find .NET root.
    for /f %%i in ('dir /ad /b "%root%v*"') do (
      set "path=%root%%%i;!path!"
    )
    for %%i in (csc.exe) do (
      if exist "%%~$PATH:i" set "csc=%%~$PATH:i"
    )
    set "arg=/nologo /t:exe /out:app.exe /optimize+"
    set "arg=%arg% /debug:pdbonly /define:CODE_ANALYSIS"
    %csc% %arg% "%~f0"
    app.exe
  endlocal
exit /b
*/
 
using System;
 
internal sealed class Program {
  static void Clear() {
    Console.CursorTop = Console.CursorTop - 1;
    Console.Write(new String(' ', Console.BufferWidth));
    Console.CursorTop = Console.CursorTop - 2;
  }
  
  static void Main() {
    Clear();
    /* place your code here */
  }
}
:eof_CS
 
:JS
0</* :
@echo off
  setlocal
    rem 2>nul node "%~f0" %*
    cscript /nologo /e:jscript "%~f0" %*
  endlocal
exit /b */0;
// place your code here
:eof_JS
 
:JSN
@set @js=0 /*
  @echo off
    set @js=
    setlocal enabledelayedexpansion
      set "key=HKLM\SOFTWARE\Microsoft\.NETFramework"
      for /f "tokens=3" %%i in (
        '2^>nul reg query %key% /v InstallRoot'
      ) do set "root=%%i"
      if /i "%root%" equ "" echo:Could not find .NET root.
      for /f %%i in ('dir /ad /b "%root%v*"') do (
        set "path=%root%%%i;!path!"
      )
      for %%i in (jsc.exe) do (
        if exist "%%~$PATH:i" set "jsc=%%~$PATH:i"
      )
      set "arg=/nologo /t:exe /out:app.exe /debug+ "%~f0""
      %jsc% %arg%
      app.exe
    endlocal
  exit /b
*/
// place your code here
:eof_JSN
 
:HTA
<!-- :
  @start mshta "%~f0"&exit /b
-->
<html>
  <head>
    <title></title>
    <meta name="author" content="" />
    <hta:application id=""
         applicationname=""
         border="thin"
         contextmenu="no"
         maximizebutton="no"
         minimizebutton="no"
         scroll="no"
         singleinstance="yes"
         sysmenu="yes"
         version="1.0" />
  </head>
  <body>
  </body>
</html>
:eof_HTA
 
:KIX
;@echo off
;  setlocal
;    2>nul Kix32.exe "%~f0" %*
;  endlocal
;exit /b
; place your code here
:eof_KIX
 
:LUA
:: --[[
@echo off
  setlocal
    2>nul lua "%~f0" %*
  endlocal
exit /b
--]]
_____ ::
-- place your code here
:eof_LUA
 
:PHP
:<?php /*
@echo off
  setlocal
    2>nul php "%~f0" %*
  endlocal
exit /b
*/
echo "\r";
 
/* place your code here */
?>
:eof_PHP
 
:PL
@echo off
  setlocal
    2>nul perl -x "%~f0" %*
  endlocal
exit /b
#!perl
# place your code here
:eof_PL
 
:PS1
<# :
  @echo off
    setlocal
      powershell /noprofile /executionpolicy bypass^
      "&{[ScriptBlock]::Create((Get-Content '%~f0') -join [Char]10).Invoke(@(&{$args}%*))}"
    endlocal
  exit /b
#>
# place your code here
:eof_PS1
 
:PY
1>2# : ^
'''
@echo off
  setlocal
    2>nul python "%~f0" %*
  endlocal
exit /b
'''
# place your code here
:eof_PY
 
:RB
@echo off
  setlocal
    2>nul ruby -x "%~f0" %*
  endlocal
exit /b
#!ruby
# place your code here
:eof_RB
 
:SH
:<<EOF
@echo off
  setlocal
    2>nul bash "%~f0" %*
  ebdlocal
exit /b
EOF
# place your code here
:eof_SH
 
:TCL
::set comment {
  @echo off
    setlocal
      2>nul tclsh86t "%~f0" %*
    endlocal
  exit /b
}
# place your code here
:eof_TCL
 
:VBN
rem^ & @echo off
rem^ &   setlocal enabledelayedexpansion
rem^ &     set "key=HKLM\SOFTWARE\Microsoft\.NETFramework"
rem^ &     for /f "tokens=3" %%i in ('2^>nul reg query %key% /v InstallRoot') do set "root=%%i"
rem^ &     if /i "%root%" equ "" echo:Could not find .NET root.
rem^ &     for /f %%i in ('dir /ad /b "%root%v*"') do set "path=%root%%%i;!path!"
rem^ &     for %%i in (vbc.exe) do if exist "%%~$PATH:i" set "vbc=%%~$PATH:i"
rem^ &     set "arg=/nologo /t:exe /out:app.exe /optimize+"
rem^ &     set "arg=%arg% /debug:pdbonly /define:CODE_ANALYSYS"
rem^ &     %vbc% %arg% "%~f0"
rem^ &     app.exe
rem^ &   endlocal
rem^ & exit /b
 
Imports System
 
Friend NotInheritable Class Program
  Private Shared Sub Clear
    Console.CursorTop = Console.CursorTop - 1
    Console.Write(New String(" ", Console.BufferWidth))
    Console.CursorTop = Console.CursorTop - 2
  End Sub
  
  Shared Sub Main
    Clear
    ' place your code here
  End Sub
End Class
:eof_VBN
 
:VBS
::'@cscript /nologo /e:vbscript "%~f0" %*&exit /b
' place your code here
:eof_VBS
 
:WSF
<?xml : version="1.0" encoding="utf-8"?> ^<!-- :
  @cscript /nologo "%~f0?.wsf" //job:JS //job:VBS&exit /b
-->
<package>
  <job id="JS">
    <script language="JScript"><![CDATA[
    ]]></script>
  </job>
  <job id="VBS">
    <script language="VBScript"><![CDATA[
    ]]></script>
  </job>
</package>
:eof_WSF
1
greg zakharov
Покинул форум
2143 / 866 / 247
Регистрация: 07.05.2015
Сообщений: 1,718
15.12.2016, 13:48  [ТС] 3
Добавлен C
Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
@echo off
  setlocal enabledelayedexpansion
    set "i=0"
    for %%i in (%*) do set /a "i+=1"
    if !i! neq 1 goto:man
    
    set "map=ASM;AU3;C;CMD;CS;JS;JSN;HTA;KIX;LUA;PHP;PL;PS1;PY;RB;SH;TCL;VBN;VBS;WSF"
    call:toUpper %1
    for %%i in (!map!) do if /i "!$!" equ "%%i" set "#=%%i"
    if /i "!#!" equ "" goto:man
    
    set "i=0"
    for /f "tokens=1 delims=:" %%i in (
      'findstr /bn ":!#! :eof_!#!" "%~f0"'
    ) do set "arr.!i!=%%i"&set /a "i+=1"
    set /a "arr.0=arr.0+1", "arr.1=arr.1-1"
    
    3<"%~f0" (
      for /l %%i in (1, 1, !arr.1!) do (
        set /p s=<&3
        if %%i geq !arr.0! echo:!s!
        set "s="
      )
    )>source.cmd
  endlocal
exit /b
 
:toUpper
  for /f "tokens=2 delims=." %%i in (
    '2^>^&1 find /v "" .%1'
  ) do set "$=%%i"
exit /b
 
:man
  for %%i in (
    "Usage: %~n0 [extension]"
    ""
    "Where 'extension' is one of the follow:"
    "   asm - CMD\Assembler example (not template)"
    "   au3 - CMD\AutoIt template"
    "   cmd - pure cmd template"
    "   c   - CMD\C template"
    "   cs  - CMD\CSharp template"
    "   js  - CMD\JavaScript (MS JScript or NodeJS)"
    "   jsn - CMD\JScript.NET template"
    "   hta - CMD\HTA template"
    "   kix - CMD\Kixtart template"
    "   lua - CMD\Lua template"
    "   php - CMD\PHP template"
    "   pl  - CMD\Perl template"
    "   ps1 - CMD\PowerShell template"
    "   py  - CMD\Python template"
    "   rb  - CMD\Ruby template"
    "   sh  - CMD\Bash template"
    "   tcl - CMD\Tcl template"
    "   vbn - CMD\VB.NET template"
    "   vbs - CMD\VBscript template"
    "   wsf - CMD\WSF template"
    ""
    "Note that 'asm' requires NASM (tested version 2.12.02) and"
    "link.exe (included into MS toolkit of code compilation)."
    "In fact, you can also use GCC."
  ) do echo:%%~i
exit /b
 
:ASM
;@echo off
;  setlocal
;    set "obj="%~dpn0.obj""
;    set "lnk=link.exe /nologo /subsystem:console"
;    set "lnk=%lnk% %obj% /out:app.exe msvcrt.lib"
;    set "app="%~dp0app.exe""
;    nasm -fwin32 "%~f0"
;    %lnk%
;    app.exe
;    for %%i in (%obj% %app%) do (
;      if exist %%i del /f /q %%i
;    )
;  endlocal
;exit /b
global _main
extern _printf
 
section .data
   str: db 'Sample code', 0xA, 0
section .text
   _main:
      sub  esp, 4
      lea  eax, [str]
      mov  [esp], eax
      call _printf
      add  esp, 4
      ret
:eof_ASM
 
:AU3
;@echo off
;  setlocal
;    2>nul AutoIt3.exe "%~f0" %*
;  endlocal
;exit /b
; place your code here
:eof_AU3
 
:C
/* 2>nul
  @echo off
    setlocal
      cl /nologo /MD /O2 /Feapp.exe /Tc "%~f0">nul
      app.exe
      del /f /q app.exe "%~dpn0.obj"
    endlocal
  exit /b
*/
 
#include <windows.h>
#include <stdio.h>
 
void StdOutClear(void) {
  COORD coord;
  SHORT width;
  PCHAR space;
  HANDLE hndl;
  CONSOLE_SCREEN_BUFFER_INFO csbi;
  
  if (INVALID_HANDLE_VALUE != (
    hndl = GetStdHandle(STD_OUTPUT_HANDLE
  ))) {
    if (GetConsoleScreenBufferInfo(hndl, &csbi)) {
      coord.X = csbi.dwCursorPosition.X;
      coord.Y = csbi.dwCursorPosition.Y - 1;
      
      if (SetConsoleCursorPosition(hndl, coord)) {
        width = csbi.dwSize.X - 1;
        space = malloc(width);
        memset(space, ' ', width);
        space[width] = '\0';
        printf("%s", space);
        
        free(space);
        
        coord.Y = csbi.dwCursorPosition.Y - 2;
        SetConsoleCursorPosition(hndl, coord);
      }
    }
  }
}
 
int main(void) {
  StdOutClear();
  // place your code here
  
  return 0;
}
:eof_C
 
:CMD
@echo off
  setlocal enabledelayedexpansion
  endlocal
exit /b
:eof_CMD
 
:CS
/* 2>nul
@echo off
  setlocal enabledelayedexpansion
    set "key=HKLM\SOFTWARE\Microsoft\.NETFramework"
    for /f "tokens=3" %%i in (
      '2^>nul reg query %key% /v InstallRoot'
    ) do set "root=%%i"
    if /i "%root%" equ "" echo:Could not find .NET root.
    for /f %%i in ('dir /ad /b "%root%v*"') do (
      set "path=%root%%%i;!path!"
    )
    for %%i in (csc.exe) do (
      if exist "%%~$PATH:i" set "csc=%%~$PATH:i"
    )
    set "arg=/nologo /t:exe /out:app.exe /optimize+"
    set "arg=%arg% /debug:pdbonly /define:CODE_ANALYSIS"
    %csc% %arg% "%~f0"
    app.exe
  endlocal
exit /b
*/
 
using System;
 
internal sealed class Program {
  static void Clear() {
    Console.CursorTop = Console.CursorTop - 1;
    Console.Write(new String(' ', Console.BufferWidth));
    Console.CursorTop = Console.CursorTop - 2;
  }
  
  static void Main() {
    Clear();
    /* place your code here */
  }
}
:eof_CS
 
:JS
0</* :
@echo off
  setlocal
    rem 2>nul node "%~f0" %*
    cscript /nologo /e:jscript "%~f0" %*
  endlocal
exit /b */0;
// place your code here
:eof_JS
 
:JSN
@set @js=0 /*
  @echo off
    set @js=
    setlocal enabledelayedexpansion
      set "key=HKLM\SOFTWARE\Microsoft\.NETFramework"
      for /f "tokens=3" %%i in (
        '2^>nul reg query %key% /v InstallRoot'
      ) do set "root=%%i"
      if /i "%root%" equ "" echo:Could not find .NET root.
      for /f %%i in ('dir /ad /b "%root%v*"') do (
        set "path=%root%%%i;!path!"
      )
      for %%i in (jsc.exe) do (
        if exist "%%~$PATH:i" set "jsc=%%~$PATH:i"
      )
      set "arg=/nologo /t:exe /out:app.exe /debug+ "%~f0""
      %jsc% %arg%
      app.exe
    endlocal
  exit /b
*/
// place your code here
:eof_JSN
 
:HTA
<!-- :
  @start mshta "%~f0"&exit /b
-->
<html>
  <head>
    <title></title>
    <meta name="author" content="" />
    <hta:application id=""
         applicationname=""
         border="thin"
         contextmenu="no"
         maximizebutton="no"
         minimizebutton="no"
         scroll="no"
         singleinstance="yes"
         sysmenu="yes"
         version="1.0" />
  </head>
  <body>
  </body>
</html>
:eof_HTA
 
:KIX
;@echo off
;  setlocal
;    2>nul Kix32.exe "%~f0" %*
;  endlocal
;exit /b
; place your code here
:eof_KIX
 
:LUA
:: --[[
@echo off
  setlocal
    2>nul lua "%~f0" %*
  endlocal
exit /b
--]]
_____ ::
-- place your code here
:eof_LUA
 
:PHP
:<?php /*
@echo off
  setlocal
    2>nul php "%~f0" %*
  endlocal
exit /b
*/
echo "\r";
 
/* place your code here */
?>
:eof_PHP
 
:PL
@echo off
  setlocal
    2>nul perl -x "%~f0" %*
  endlocal
exit /b
#!perl
# place your code here
:eof_PL
 
:PS1
<# :
  @echo off
    setlocal
      powershell /noprofile /executionpolicy bypass^
      "&{[ScriptBlock]::Create((Get-Content '%~f0') -join [Char]10).Invoke(@(&{$args}%*))}"
    endlocal
  exit /b
#>
# place your code here
:eof_PS1
 
:PY
1>2# : ^
'''
@echo off
  setlocal
    2>nul python "%~f0" %*
  endlocal
exit /b
'''
# place your code here
:eof_PY
 
:RB
@echo off
  setlocal
    2>nul ruby -x "%~f0" %*
  endlocal
exit /b
#!ruby
# place your code here
:eof_RB
 
:SH
:<<EOF
@echo off
  setlocal
    2>nul bash "%~f0" %*
  ebdlocal
exit /b
EOF
# place your code here
:eof_SH
 
:TCL
::set comment {
  @echo off
    setlocal
      2>nul tclsh86t "%~f0" %*
    endlocal
  exit /b
}
# place your code here
:eof_TCL
 
:VBN
rem^ & @echo off
rem^ &   setlocal enabledelayedexpansion
rem^ &     set "key=HKLM\SOFTWARE\Microsoft\.NETFramework"
rem^ &     for /f "tokens=3" %%i in ('2^>nul reg query %key% /v InstallRoot') do set "root=%%i"
rem^ &     if /i "%root%" equ "" echo:Could not find .NET root.
rem^ &     for /f %%i in ('dir /ad /b "%root%v*"') do set "path=%root%%%i;!path!"
rem^ &     for %%i in (vbc.exe) do if exist "%%~$PATH:i" set "vbc=%%~$PATH:i"
rem^ &     set "arg=/nologo /t:exe /out:app.exe /optimize+"
rem^ &     set "arg=%arg% /debug:pdbonly /define:CODE_ANALYSYS"
rem^ &     %vbc% %arg% "%~f0"
rem^ &     app.exe
rem^ &   endlocal
rem^ & exit /b
 
Imports System
 
Friend NotInheritable Class Program
  Private Shared Sub Clear
    Console.CursorTop = Console.CursorTop - 1
    Console.Write(New String(" ", Console.BufferWidth))
    Console.CursorTop = Console.CursorTop - 2
  End Sub
  
  Shared Sub Main
    Clear
    ' place your code here
  End Sub
End Class
:eof_VBN
 
:VBS
::'@cscript /nologo /e:vbscript "%~f0" %*&exit /b
' place your code here
:eof_VBS
 
:WSF
<?xml : version="1.0" encoding="utf-8"?> ^<!-- :
  @cscript /nologo "%~f0?.wsf" //job:JS //job:VBS&exit /b
-->
<package>
  <job id="JS">
    <script language="JScript"><![CDATA[
    ]]></script>
  </job>
  <job id="VBS">
    <script language="VBScript"><![CDATA[
    ]]></script>
  </job>
</package>
:eof_WSF
Шаблоны для Haskell, F#, Erlang, Go и прочего включать не стал по ряду причин, главная из которых - слухи о выпиливании M$ комстроки в последней версии Win 10, так что скорее всего проект либо мигрирует на "рельсы" PowerShell (которая, согласно все тем же слухам позиционируется как замена %comspec%), либо эволиционирует в нечто иное.
1
volodin661
2070 / 952 / 157
Регистрация: 10.12.2013
Сообщений: 3,177
17.12.2016, 17:33 4
Цитата Сообщение от greg zakharov Посмотреть сообщение
либо эволиционирует в нечто иное.
1) памятуя, что речь идёт о cmd, я бы заменил эволюционирует на деградирует.
2) нмв на практике предпочтительнее вызов
powershell -file myfile.ps1
или
perl myfile.pl
etc,
чем бескорыстный обман пользователя мичуринским гибридом.

Но в качестве вида спорта вполне.
0
Smitis
1629 / 338 / 40
Регистрация: 15.10.2012
Сообщений: 530
18.12.2016, 15:19 5
Цитата Сообщение от volodin661 Посмотреть сообщение
2) нмв на практике предпочтительнее вызов
powershell -file myfile.ps1
или
perl myfile.pl
etc,
чем бескорыстный обман пользователя мичуринским гибридом.
На практике PowerShell не ассоциирован с выполнением файлов ps1 (двойной клик открывает редактор), не добавлен в PATHEXT и, главное, по умолчанию запрещено выполнение не подписанных скриптов. Проще передать, например, неопытному пользователю cmd-файл для решения его проблемы, который он запустит как любую другую программу, чем объяснять ему, что нужно делать. Да и при работе на чужом компьютере проще два раза кликнуть из проводника на батник, чем выписывать в командной строке пути к файлу где-то там на флешке.
То же самое можно и о других языкам. Даже стандартные js и vbs могут быть ассоциированы с cscript (консольный) или wscript (гуевый) и, на чужом компьютере никогда заранее не знаешь с чем.

По теме.
Можно добавить гибрид cmd+InnoSetup (инсталятор, если что). Там точка с запятой в начале строки воспринимается как начало комментария, т.е. принцип тот же, что и для kixtart, autoit.
Код
iscc.exe "%~f0"
2
volodin661
2070 / 952 / 157
Регистрация: 10.12.2013
Сообщений: 3,177
18.12.2016, 18:20 6
Smitis,

а зачем ты разместил цитату моего сообщения ( #4 )
под своим, где горячо высказываешься про ассоциацию типов файлов,
неподписанные ( пишется слитно, кстати ) скрипты,
про какие-то передачи неопытному пользователю файлов с решением каких-то его проблем,
а также про многократные клики
на чужом компьютере из проводника на ватник ?
0
Smitis
1629 / 338 / 40
Регистрация: 15.10.2012
Сообщений: 530
18.12.2016, 22:31 7
Цитата Сообщение от volodin661 Посмотреть сообщение
а зачем ты разместил цитату моего сообщения ( #4 )
под своим, где горячо высказываешься про ассоциацию типов файлов,
С точностью до наоборот, Ваша цитата над моим сообщением. Кстати.
Можете считать, что это было замечание по поводу видов спорта на практике.
0
volodin661
2070 / 952 / 157
Регистрация: 10.12.2013
Сообщений: 3,177
18.12.2016, 22:34 8
Цитата Сообщение от Smitis Посмотреть сообщение
наоборот
Цитата Сообщение от Smitis Посмотреть сообщение
это было замечание
правильно, наоборот, но какое отношение это замечание имеет к моему сообщению #4 ?
0
Smitis
1629 / 338 / 40
Регистрация: 15.10.2012
Сообщений: 530
18.12.2016, 23:16 9
Цитата Сообщение от volodin661 Посмотреть сообщение
правильно, наоборот, но какое отношение это замечание имеет к моему сообщению #4 ?
Возможно, моё сообщение содержало много информации, поэтому смысл ускользает, попробуй проще.
В писали
Цитата Сообщение от volodin661 Посмотреть сообщение
2) нмв на практике предпочтительнее вызов
и дале по тексту. Так вот, на практике такой вызов не предпочтителен. Или лучше так, компромиссный вариант, далеко не всегда предпочтительный. Это я, типа, возразил на Ваш "нмв".

П.С.
Хотя, допускаю, что я просто не смог правильно перевести аббревиатуру "нмв" (на мой взгляд?), которое принципиально меняет весь смысл всего 2-го пункта вашего поста.

Добавлено через 16 минут
Ещё немного по поводу моего возражения. Допустим, есть некий пользователь со своей проблемой у которого некая система, ВСЕХ настроек которой мы не знаем. У меня есть скрипт resolve_problem.ps1, который решит проблему. Я передаю этот скрипт пользователю. Далее
- Он скопировал скрипт из форума, создал в notepad-е скрипт, сохранил по умолчанию в documents (!) и выполнил через WinR или из командной строки resolve_problem.ps1. Результат нулевой. То же, powershell -file resolve_problem.ps1. Либо скрипт не найден, либо ассоциации нет, либо прав нет, либо подписи нет.
- Если даже из проводника пользователь кликнет (дважды) по скрипту, результат по прежнему нулевой.

Однако, если это будет простой cmd, то во втором случае он выполнится, а, иногда, даже и в первом случае.
0
volodin661
2070 / 952 / 157
Регистрация: 10.12.2013
Сообщений: 3,177
19.12.2016, 17:13 10
Smitis,

я два раза дал тебе возможность отойти в сторону и избежать конфуза,
сказав что-нибудь типа 'ой, бес попутал' или 'был безобразно пьян, когда всё это писал',
но ты не внял.
В русском народном эпосе практикуется навязчивая троекратность,
вот и я даю тебе ещё одну попытку оставить в покое моё сообщение #4 и более
не подвергать его безграмотным нападкам.
0
Smitis
1629 / 338 / 40
Регистрация: 15.10.2012
Сообщений: 530
26.12.2016, 15:39 11
Цитата Сообщение от volodin661 Посмотреть сообщение
я два раза дал тебе возможность отойти в сторону и избежать конфуза,
сказав что-нибудь типа 'ой, бес попутал' или 'был безобразно пьян, когда всё это писал',
но ты не внял.
В русском народном эпосе практикуется навязчивая троекратность,
вот и я даю тебе ещё одну попытку оставить в покое моё сообщение #4 и более
не подвергать его безграмотным нападкам.
Вам надо успокоиться, никто Ваше сообщение не трогает. Не хотите понять, о чём речь - и не надо Вам напрягаться, займитесь лучше тем, что хорошо умеете - русским эпосом.

Сорри за оффтоп.
0
volodin661
2070 / 952 / 157
Регистрация: 10.12.2013
Сообщений: 3,177
20.06.2017, 08:36 12
Захарыч,
зацени как HEREDOC поставлен служить благородному делу гибридизации

Windows Batch file
1
2
3
4
5
6
7
@REM=<<'@EXIT/B';
@perl -S %0 %*
@EXIT/B
 
#LINE 7
use strict;
print "Усё уже произошло.\n";
0
greg zakharov
Покинул форум
2143 / 866 / 247
Регистрация: 07.05.2015
Сообщений: 1,718
20.06.2017, 09:14  [ТС] 13
volodin661, благодарствуй, добрый человек! Заценил - правки грядут. Если еще есть идеи, буду рад выслушать.
0
greg zakharov
Покинул форум
2143 / 866 / 247
Регистрация: 07.05.2015
Сообщений: 1,718
03.11.2017, 22:19  [ТС] 14
Наверное, в грядущем, с позволения сказать, релизе будет добавлена поддержка InnoSetup, некоторых функциональных языков и Julia. В последнем случае пример гибрида выглядит следующим образом:
Windows Batch file
1
2
3
:<#=
@julia.exe "%~f0" %*&exit /b =#
println("Testing julia...$(join(ARGS, ' '))")
В итоге:
Код
E:\tests> julia.cmd one two three
Testing julia...one two three
0
Dragokas
Эксперт WindowsАвтор FAQ
17037 / 7095 / 858
Регистрация: 25.12.2011
Сообщений: 10,914
Записей в блоге: 16
19.07.2018, 20:27 15
greg zakharov, нашел опечаточку:

Windows Batch file
1
ebdlocal
P.S. Спасибо за генератор.
Нашел ему приспособление для выгрузки исходников на GitHub через прослойку cmd-sh.
0
volodin661
2070 / 952 / 157
Регистрация: 10.12.2013
Сообщений: 3,177
21.11.2018, 09:30 16
Захарыч !!!

А про VIM-то мы забыли!

Модераторы, не трогайте ничо, pls, это самоцензурируемый текст !

Очень наглядный гыбрыд; строки с двойным двоеточием :: относятся к командам Vim,
а с двойной собакой @@ к командам bat. Всё остальное - это препарируемый текст.

text.bat

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    ::  set fenc=cp1251
    ::  /^TEXT/+1
    ::  ,$ subst/бля/ #censored# /g
    ::  /^TEXT/+1
    ::  ,$ print #
    ::  quit! 
 
    @@   call  chcp 1251 1>nul
    @@   call  vim -es -S %~f0 %~f0    
    @@   goto :eof
 
TEXT
В лесубля родилась Ёлочка и в лесу же онабля рослабля.
Зимойбля, и летомбля, стройная, зелёная, какбля.
Вызов:
Windows Batch file
1
text
Output:
Код
     13 В лесу #censored#  родилась Ёлочка и в лесу же она #censored#  росла #censored# .
     14 Зимой #censored# , и летом #censored# , стройная, зелёная, как #censored# . *
Возможности автоматизированного редактирования текста колоссальные *, но что придумать, чтобы реальная польза была, пока ниасилил.

* под спойлером такой ма-а-аленький список функций языка VimScript, остро заточенных на редактирование текста в буфере,
а кроме фунций VIM предоставляет свой командный режим и управляющие последовательности своего нормального режима,
которые тоже оформляются, как скрипт.
Кликните здесь для просмотра всего текста
String manipulation: *string-functions*
FUNCTION DESCRIPTION
nr2char() get a character by its ASCII value
char2nr() get ASCII value of a character
str2nr() convert a string to a Number
str2float() convert a string to a Float
printf() format a string according to % items
escape() escape characters in a string with a '\'
shellescape() escape a string for use with a shell command
fnameescape() escape a file name for use with a Vim command
tr() translate characters from one set to another
strtrans() translate a string to make it printable
tolower() turn a string to lowercase
toupper() turn a string to uppercase
match() position where a pattern matches in a string
matchend() position where a pattern match ends in a string
matchstr() match of a pattern in a string
matchstrpos() match and positions of a pattern in a string
matchlist() like matchstr() and also return submatches
stridx() first index of a short string in a long string
strridx() last index of a short string in a long string
strlen() length of a string in bytes
strchars() length of a string in characters
strwidth() size of string when displayed
strdisplaywidth() size of string when displayed, deals with tabs
substitute() substitute a pattern match with a string
submatch() get a specific match in ":s" and substitute()
strpart() get part of a string using byte index
strcharpart() get part of a string using char index
strgetchar() get character from a string using char index
expand() expand special keywords
iconv() convert text from one encoding to another
byteidx() byte index of a character in a string
byteidxcomp() like byteidx() but count composing characters
repeat() repeat a string multiple times
eval() evaluate a string expression
execute() execute an Ex command and get the output
List manipulation: *list-functions*
FUNCTION DESCRIPTION
get() get an item without error for wrong index
len() number of items in a List
empty() check if List is empty
insert() insert an item somewhere in a List
add() append an item to a List
extend() append a List to a List
remove() remove one or more items from a List
copy() make a shallow copy of a List
deepcopy() make a full copy of a List
filter() remove selected items from a List
map() change each List item
sort() sort a List
reverse() reverse the order of a List
uniq() remove copies of repeated adjacent items
split() split a String into a List
join() join List items into a String
range() return a List with a sequence of numbers
string() String representation of a List
call() call a function with List as arguments
index() index of a value in a List
max() maximum value in a List
min() minimum value in a List
count() count number of times a value appears in a List
repeat() repeat a List multiple times
Dictionary manipulation: *dict-functions*
FUNCTION DESCRIPTION
get() get an entry without an error for a wrong key
len() number of entries in a Dictionary
has_key() check whether a key appears in a Dictionary
empty() check if Dictionary is empty
remove() remove an entry from a Dictionary
extend() add entries from one Dictionary to another
filter() remove selected entries from a Dictionary
map() change each Dictionary entry
keys() get List of Dictionary keys
values() get List of Dictionary values
items() get List of Dictionary key-value pairs
copy() make a shallow copy of a Dictionary
deepcopy() make a full copy of a Dictionary
string() String representation of a Dictionary
max() maximum value in a Dictionary
min() minimum value in a Dictionary
count() count number of times a value appears
Floating point computation: *float-functions*
FUNCTION DESCRIPTION
float2nr() convert Float to Number
abs() absolute value (also works for Number)
round() round off
ceil() round up
floor() round down
trunc() remove value after decimal point
fmod() remainder of division
exp() exponential
log() natural logarithm (logarithm to base e)
log10() logarithm to base 10
pow() value of x to the exponent y
sqrt() square root
sin() sine
cos() cosine
tan() tangent
asin() arc sine
acos() arc cosine
atan() arc tangent
atan2() arc tangent
sinh() hyperbolic sine
cosh() hyperbolic cosine
tanh() hyperbolic tangent
isnan() check for not a number
Other computation: *bitwise-function*
FUNCTION DESCRIPTION
and() bitwise AND
invert() bitwise invert
or() bitwise OR
xor() bitwise XOR
sha256() SHA-256 hash
Variables: *var-functions*
FUNCTION DESCRIPTION
type() type of a variable
islocked() check if a variable is locked
funcref() get a Funcref for a function reference
function() get a Funcref for a function name
getbufvar() get a variable value from a specific buffer
setbufvar() set a variable in a specific buffer
getwinvar() get a variable from specific window
gettabvar() get a variable from specific tab page
gettabwinvar() get a variable from specific window & tab page
setwinvar() set a variable in a specific window
settabvar() set a variable in a specific tab page
settabwinvar() set a variable in a specific window & tab page
garbagecollect() possibly free memory
Cursor and mark position: *cursor-functions* *mark-functions*
FUNCTION DESCRIPTION
col() column number of the cursor or a mark
virtcol() screen column of the cursor or a mark
line() line number of the cursor or mark
wincol() window column number of the cursor
winline() window line number of the cursor
cursor() position the cursor at a line/column
screencol() get screen column of the cursor
screenrow() get screen row of the cursor
getcurpos() get position of the cursor
getpos() get position of cursor, mark, etc.
setpos() set position of cursor, mark, etc.
byte2line() get line number at a specific byte count
line2byte() byte count at a specific line
diff_filler() get the number of filler lines above a line
screenattr() get attribute at a screen line/row
screenchar() get character code at a screen line/row
Working with text in the current buffer: *text-functions*
FUNCTION DESCRIPTION
getline() get a line or list of lines from the buffer
setline() replace a line in the buffer
append() append line or list of lines in the buffer
indent() indent of a specific line
cindent() indent according to C indenting
lispindent() indent according to Lisp indenting
nextnonblank() find next non-blank line
prevnonblank() find previous non-blank line
search() find a match for a pattern
searchpos() find a match for a pattern
searchpair() find the other end of a start/skip/end
searchpairpos() find the other end of a start/skip/end
searchdecl() search for the declaration of a name
getcharsearch() return character search information
setcharsearch() set character search information
*system-functions* *file-functions*
System functions and manipulation of files:
FUNCTION DESCRIPTION
glob() expand wildcards
globpath() expand wildcards in a number of directories
glob2regpat() convert a glob pattern into a search pattern
findfile() find a file in a list of directories
finddir() find a directory in a list of directories
resolve() find out where a shortcut points to
fnamemodify() modify a file name
pathshorten() shorten directory names in a path
simplify() simplify a path without changing its meaning
executable() check if an executable program exists
exepath() full path of an executable program
filereadable() check if a file can be read
filewritable() check if a file can be written to
getfperm() get the permissions of a file
setfperm() set the permissions of a file
getftype() get the kind of a file
isdirectory() check if a directory exists
getfsize() get the size of a file
getcwd() get the current working directory
haslocaldir() check if current window used
tempname() get the name of a temporary file
mkdir() create a new directory
delete() delete a file
rename() rename a file
system() get the result of a shell command as a string
systemlist() get the result of a shell command as a list
hostname() name of the system
readfile() read a file into a List of lines
writefile() write a List of lines into a file
Date and Time: *date-functions* *time-functions*
FUNCTION DESCRIPTION
getftime() get last modification time of a file
localtime() get current time in seconds
strftime() convert time to a string
reltime() get the current or elapsed time accurately
reltimestr() convert reltime() result to a string
reltimefloat() convert reltime() result to a Float
*buffer-functions* *window-functions* *arg-functions*
Buffers, windows and the argument list:
FUNCTION DESCRIPTION
argc() number of entries in the argument list
argidx() current position in the argument list
arglistid() get id of the argument list
argv() get one entry from the argument list
bufexists() check if a buffer exists
buflisted() check if a buffer exists and is listed
bufloaded() check if a buffer exists and is loaded
bufname() get the name of a specific buffer
bufnr() get the buffer number of a specific buffer
tabpagebuflist() return List of buffers in a tab page
tabpagenr() get the number of a tab page
tabpagewinnr() like winnr() for a specified tab page
winnr() get the window number for the current window
bufwinid() get the window ID of a specific buffer
bufwinnr() get the window number of a specific buffer
winbufnr() get the buffer number of a specific window
getbufline() get a list of lines from the specified buffer
win_findbuf() find windows containing a buffer
win_getid() get window ID of a window
win_gotoid() go to window with ID
win_id2tabwin() get tab and window nr from window ID
win_id2win() get window nr from window ID
getbufinfo() get a list with buffer information
gettabinfo() get a list with tab page information
getwininfo() get a list with window information
getchangelist() get a list of change list entries
getjumplist() get a list of jump list entries
Command line: *command-line-functions*
FUNCTION DESCRIPTION
getcmdline() get the current command line
getcmdpos() get position of the cursor in the command line
setcmdpos() set position of the cursor in the command line
getcmdtype() return the current command-line type
getcmdwintype() return the current command-line window type
getcompletion() list of command-line completion matches
Quickfix and location lists: *quickfix-functions*
FUNCTION DESCRIPTION
getqflist() list of quickfix errors
setqflist() modify a quickfix list
getloclist() list of location list items
setloclist() modify a location list
Insert mode completion: *completion-functions*
FUNCTION DESCRIPTION
complete() set found matches
complete_add() add to found matches
complete_check() check if completion should be aborted
pumvisible() check if the popup menu is displayed
Folding: *folding-functions*
FUNCTION DESCRIPTION
foldclosed() check for a closed fold at a specific line
foldclosedend() like foldclosed() but return the last line
foldlevel() check for the fold level at a specific line
foldtext() generate the line displayed for a closed fold
foldtextresult() get the text displayed for a closed fold
Syntax and highlighting: *syntax-functions* *highlighting-functions*
FUNCTION DESCRIPTION
clearmatches() clear all matches defined by
the :match
getmatches() get all matches defined by
the :match
hlexists() check if a highlight group exists
hlID() get ID of a highlight group
synID() get syntax ID at a specific position
synIDattr() get a specific attribute of a syntax ID
synIDtrans() get translated syntax ID
synstack() get list of syntax IDs at a specific position
synconcealed() get info about concealing
diff_hlID() get highlight ID for diff mode at a position
matchadd() define a pattern to highlight (a "match")
matchaddpos() define a list of positions to highlight
matcharg() get info about
matchdelete() delete a match defined by
:match
setmatches() restore a list of matches saved by
getmatches()
Spelling: *spell-functions*
FUNCTION DESCRIPTION
spellbadword() locate badly spelled word at or after cursor
spellsuggest() return suggested spelling corrections
soundfold() return the sound-a-like equivalent of a word
History: *history-functions*
FUNCTION DESCRIPTION
histadd() add an item to a history
histdel() delete an item from a history
histget() get an item from a history
histnr() get highest index of a history list
Interactive: *interactive-functions*
browse() | put up a file requester
browsedir() | put up a directory requester
confirm() | let the user make a choice
getchar() | get a character from the user
getcharmod() | get modifiers for the last typed character
feedkeys() | put characters in the typeahead queue
input() | get a line from the user
inputlist() | let the user pick an entry from a list
inputsecret() | get a line from the user without showing it
inputdialog() | get a line from the user in a dialog
inputsave() | save and clear typeahead
inputrestore() | restore typeahead

[/TABLE]
GUI: *gui-functions*
FUNCTION DESCRIPTION
getfontname() get name of current font being used
getwinpos() position of the Vim window
getwinposx() X position of the Vim window
getwinposy() Y position of the Vim window
balloon_show() set the balloon content
balloon_split() split a message for a balloon
Vim server: *server-functions*
FUNCTION DESCRIPTION
serverlist() return the list of server names
remote_startserver() run a server
remote_send() send command characters to a Vim server
remote_expr() evaluate an expression in a Vim server
server2client() send a reply to a client of a Vim server
remote_peek() check if there is a reply from a Vim server
remote_read() read a reply from a Vim server
foreground() move the Vim window to the foreground
remote_foreground() move the Vim server window to the foreground
Window size and position: *window-size-functions*
FUNCTION DESCRIPTION
winheight() get height of a specific window
winwidth() get width of a specific window
win_screenpos() get screen position of a window
winrestcmd() return command to restore window sizes
winsaveview() get view of current window
winrestview() restore saved view of current window
Mappings: *mapping-functions*
FUNCTION DESCRIPTION
hasmapto() check if a mapping exists
mapcheck() check if a matching mapping exists
maparg() get rhs of a mapping
wildmenumode() check if the wildmode is active
Testing: *test-functions*
FUNCTION DESCRIPTION
assert_equal() assert that two expressions values are equal
assert_notequal() assert that two expressions values are not equal
assert_inrange() assert that an expression is inside a range
assert_match() assert that a pattern matches the value
assert_notmatch() assert that a pattern does not match the value
assert_false() assert that an expression is false
assert_true() assert that an expression is true
assert_exception() assert that a command throws an exception
assert_beeps() assert that a command beeps
assert_fails() assert that a command fails
assert_report() report a test failure
test_alloc_fail() make memory allocation fail
test_autochdir() enable 'autochdir' during startup
test_override() test with Vim internal overrides
test_garbagecollect_now() free memory right now
test_ignore_error() ignore a specific error message
test_null_channel() return a null Channel
test_null_dict() return a null Dict
test_null_job() return a null Job
test_null_list() return a null List
test_null_partial() return a null Partial function
test_null_string() return a null String
test_settime() set the time Vim uses internally
Inter-process communication: *channel-functions*
FUNCTION DESCRIPTION
ch_canread() check if there is something to read
ch_open() open a channel
ch_close() close a channel
ch_close_in() close the in part of a channel
ch_read() read a message from a channel
ch_readraw() read a raw message from a channel
ch_sendexpr() send a JSON message over a channel
ch_sendraw() send a raw message over a channel
ch_evalexpr() evaluates an expression over channel
ch_evalraw() evaluates a raw string over channel
ch_status() get status of a channel
ch_getbufnr() get the buffer number of a channel
ch_getjob() get the job associated with a channel
ch_info() get channel information
ch_log() write a message in the channel log file
ch_logfile() set the channel log file
ch_setoptions() set the options for a channel
json_encode() encode an expression to a JSON string
json_decode() decode a JSON string to Vim types
js_encode() encode an expression to a JSON string
js_decode() decode a JSON string to Vim types
Jobs: *job-functions*
FUNCTION DESCRIPTION
job_start() start a job
job_stop() stop a job
job_status() get the status of a job
job_getchannel() get the channel used by a job
job_info() get information about a job
job_setoptions() set options for a job
Terminal window: *terminal-functions*
FUNCTION DESCRIPTION
term_start() open a terminal window and run a job
term_list() get the list of terminal buffers
term_sendkeys() send keystrokes to a terminal
term_wait() wait for screen to be updated
term_getjob() get the job associated with a terminal
term_scrape() get row of a terminal screen
term_getline() get a line of text from a terminal
term_getattr() get the value of attribute {what}
term_getcursor() get the cursor position of a terminal
term_getscrolled() get the scroll count of a terminal
term_getaltscreen() get the alternate screen flag
term_getsize() get the size of a terminal
term_getstatus() get the status of a terminal
term_gettitle() get the title of a terminal
term_gettty() get the tty name of a terminal
term_setansicolors() set 16 ANSI colors, used for GUI
term_getansicolors() get 16 ANSI colors, used for GUI
Timers: *timer-functions*
FUNCTION DESCRIPTION
timer_start() create a timer
timer_pause() pause or unpause a timer
timer_stop() stop a timer
timer_stopall() stop all timers
timer_info() get information about timers
Various: *various-functions*
FUNCTION DESCRIPTION
mode() get current editing mode
visualmode() last visual mode used
exists() check if a variable, function, etc. exists
has() check if a feature is supported in Vim
changenr() return number of most recent change
cscope_connection() check if a cscope connection exists
did_filetype() check if a FileType autocommand was used
eventhandler() check if invoked by an event handler
getpid() get process ID of Vim
libcall() call a function in an external library
libcallnr() idem, returning a number
undofile() get the name of the undo file
undotree() return the state of the undo tree
getreg() get contents of a register
getregtype() get type of a register
setreg() set contents and type of a register
shiftwidth() effective value of 'shiftwidth'
wordcount() get byte/word/char count of buffer
taglist() get list of matching tags
tagfiles() get a list of tags files
luaeval() evaluate Lua expression
mzeval() evaluate
perleval() evaluate Perl expression (
py3eval() evaluate Python expression (
pyeval() evaluate Python expression (
pyxeval() evaluate
2
greg zakharov
Покинул форум
2143 / 866 / 247
Регистрация: 07.05.2015
Сообщений: 1,718
21.11.2018, 11:15  [ТС] 17
volodin661, за пример спасибо! Как-то не задумывался на счет Vim, больше игрался с sed, но из-за отсутствия времени пока не получается доработать уже написанное. В выходные постараюсь заняться, тем более, что среди прочего есть концепты гибрида с Nim, R, Rust и Go. Кстати, с ростом количества шаблонов падает скорость генерации гибрида, так что здесь также есть над чем подумать. В любом случае, если будут еще идеи, буду рад выслушать.
0
21.11.2018, 11:15
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.11.2018, 11:15

Гибриды SSD
насколько эфективны в работе гибридные SSD ,к примеру как этот?...

MDI - гибриды. Фреймы, вкладки. Рассказываем о своих идеях, примерах и прочих способах реализации
Давайте поговорим о гибридах. Вот три варианта: Фреймовый интерфейс ...

Командные файлы
1. Используя grep, вывести на экран из файла q2.txt все строки, где в адресе...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
17
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru