设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › 一种批处理内的“函数”和“结构体”实现 ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 171|回复: 3

[其他] 一种批处理内的“函数”和“结构体”实现

[复制链接]
老刘1号
发表于 3 天前 | 显示全部楼层 |阅读模式
此贴是因为楼主突发奇想想用批处理写一些较大的工程。
但是苦于批处理语法比较原始，尝试对其进行一定的优化。

“函数”实现（局部变量支持，return时自动release）；
“结构体”实现：通过metadata绑定关联的变量。
附赠debug（调用栈级别）支持和性能优化。

util.bat

  2. @echo off
  3. if "%~1" neq "" (
  4.         call %* || (
  5.                 if defined _G.TRACE (
  6.                         2>con >&2 echo [!_G.TRACE!] Fatal: Call "%~nx0" failed.
  7.                 ) else (
  8.                         2>con >&2 echo [%~n0] Fatal: Call "%~nx0" failed.
  9.                 )
  10.                 2>con >&2 pause
  11.                 exit 1
  12.         )
  13. ) else (
  14.         if defined _G.TRACE (
  15.                 2>con >&2 echo [!_G.TRACE!] Fatal: Call "%~nx0" with nothing.
  16.         ) else (
  17.                 2>con >&2 echo [%~n0] Fatal: Call "%~nx0" with nothing.
  18.         )
  19.         2>con >&2 pause
  20.         exit 1
  21. )
  22. exit /b 0

  24. :UTIL_Init Main
  25.         if "%~1" == "" (
  26.                 2>con >&2 echo [%~n0] Fatal: 'Main' undefined.
  27.                 2>con >&2 pause
  28.                 exit 1
  29.         )
  30.        
  31.         if not defined _G.UTIL (
  32.                 set "_G.UTIL=%~n0"
  33.                 set "_G.MAIN=%~1"
  34.                 set "_G.TRACE=!_G.MAIN!"
  35.                 set /a "_G.LEVEL = 0
  36.                 set "_G.RET="
  37.                 set "_G.ERR="
  38.                
  39.                 set "_T.UTIL="
  40.                 if not defined _G.PACKED set "_T.UTIL=!_G.UTIL!"
  41.                
  42.                 set "<-=call !_T.UTIL! :UTIL_SetRet"
  43.                 set "->=& call !_T.UTIL! :UTIL_GetRet"
  44.                 set "|->=call !_T.UTIL! :UTIL_GetRet"
  45.                 set "??=call !_T.UTIL! :UTIL_Throw"               
  46.                 set "?|=call !_T.UTIL! :UTIL_Fatal"
  47.                 set "&=call !_T.UTIL! :UTIL_Copy"
  48.                 set "{=call !_T.UTIL! :UTIL_Invoke"
  49.                 set "}=& (if defined _G.ERR (exit /b 0))"
  50.                 set "?}=& if defined _G.ERR"
  51.                 set "?=if defined _G.ERR"
  52.                 set "-|=exit /b 0"

  54.                 if defined _G.FAST (
  55.                         set _G.SKIPTHIS=rem
  56.                         set _G.DOTHIS=
  57.                 ) else (
  58.                         set _G.SKIPTHIS=
  59.                         set _G.DOTHIS=rem
  60.                 )
  61.         ) else (
  62.                 %?|% "double initialized."
  63.         )
  64.        
  65.         %_G.SKIPTHIS% for /f "delims==" %%a in (
  66.         %_G.SKIPTHIS%         'set "_T" 2^>nul'
  67.         %_G.SKIPTHIS% ) do set "%%a="
  68. %-|%

  70. :UTIL_Invoke ModName Fn ... -> ...
  71.         %_G.SKIPTHIS% if not defined _G.UTIL (
  72.         %_G.SKIPTHIS%         2>con >&2 echo [%~n0] Fatal: UTIL not initialized.
  73.         %_G.SKIPTHIS%         2>con >&2 pause
  74.         %_G.SKIPTHIS% )
  75.        
  76.         %_G.SKIPTHIS% if "%~1" == "" %?|% "'ModName' undefined."
  77.         %_G.SKIPTHIS% if "%~2" == "" %?|% "'Fn' undefined."
  78.        
  79.         %_G.SKIPTHIS% set "_G.TRACE[!_G.LEVEL!]=!_G.TRACE!"
  80.         %_G.SKIPTHIS% set "_G.TRACE=!_G.TRACE!>(%~1)%~2"
  81.        
  82.         set /a "_G.LEVEL += 1"
  83.        
  84.         for /f "tokens=1,2,*" %%a in ('echo.%*') do (
  85.                 if defined _G.PACKED (
  86.                         if /i "%%a" == "MAIN" (
  87.                                 call :MAIN_%%b %%c
  88.                         ) else (
  89.                                 call :%%a_%%b %%c
  90.                         )
  91.                 ) else (
  92.                         if /i "%%a" == "MAIN" (
  93.                                 call !_G.MAIN! CALL_SELF :MAIN_%%b %%c
  94.                         ) else (
  95.                                 call %%a :%%a_%%b %%c
  96.                         )
  97.                 )
  98.         )
  99.        
  100.         if defined _G.NSUTIL (
  101.                 %_G.SKIPTHIS% set "_G.TRACE[!_G.LEVEL!]=!_G.TRACE!"
  102.                 %_G.SKIPTHIS% set "_G.TRACE=!_G.TRACE!>(NSUTIL)Free"
  103.                 set /a "_G.LEVEL += 1"
  104.                 set /a "_T.PrevLevel = _G.LEVEL - 1"

  106.                 for /f "delims==" %%a in (
  107.                         'set "_G.LEVEL[!_T.PrevLevel!]" 2^>nul'
  108.                 ) do (
  109.                         if defined _G.PACKED (
  110.                                 call :NSUTIL_Free "%%a"
  111.                         ) else (
  112.                                 call NSUTIL :NSUTIL_Free "%%a"
  113.                         )
  114.                         set "%%a="
  115.                 )

  117.                 for /f "delims==" %%a in (
  118.                         'set "_L[!_G.LEVEL!]" 2^>nul'
  119.                 ) do set "%%a="

  121.                 set /a "_G.LEVEL -= 1"
  122.                 %_G.SKIPTHIS% %&% "_G.TRACE[!_G.LEVEL!]" "_G.TRACE"
  123.                 %_G.SKIPTHIS% set "_G.TRACE[!_G.LEVEL!]="
  124.         )
  125.        
  126.         for /f "delims==" %%a in (
  127.                 'set "_L[!_G.LEVEL!]" 2^>nul'
  128.         ) do set "%%a="
  129.        
  130.         set /a _G.LEVEL -= 1
  131.        
  132.         %_G.SKIPTHIS% %&% "_G.TRACE[!_G.LEVEL!]" "_G.TRACE"
  133.         %_G.SKIPTHIS% set "_G.TRACE[!_G.LEVEL!]="
  134.        
  135.         %_G.SKIPTHIS% for /f "delims==" %%a in (
  136.         %_G.SKIPTHIS%         'set "_T" 2^>nul'
  137.         %_G.SKIPTHIS% ) do set "%%a="
  138. %-|%

  140. :UTIL_GetRet *Var
  141.         %_G.SKIPTHIS% if not defined _G.UTIL (
  142.         %_G.SKIPTHIS%         2>con >&2 echo [%~n0] Fatal: UTIL not initialized.
  143.         %_G.SKIPTHIS%         2>con >&2 pause
  144.         %_G.SKIPTHIS%         exit 1
  145.         %_G.SKIPTHIS% )

  147.         %_G.SKIPTHIS% if "%~1" == "" %?|% "'Var' undefined."       

  149.         if not defined _G.ERR (
  150.                 %&% "_G.RET" "%~1"
  151.         )
  152.         set "_G.RET="

  154.         %_G.SKIPTHIS% for /f "delims==" %%a in (
  155.         %_G.SKIPTHIS%         'set "_T" 2^>nul'
  156.         %_G.SKIPTHIS% ) do set "%%a="
  157. %-|%

  159. :UTIL_SetRet *Var
  160.         %_G.SKIPTHIS% if not defined _G.UTIL (
  161.         %_G.SKIPTHIS%         2>con >&2 echo [%~n0] Fatal: UTIL not initialized.
  162.         %_G.SKIPTHIS%         2>con >&2 pause
  163.         %_G.SKIPTHIS%         exit 1
  164.         %_G.SKIPTHIS% )

  166.         %_G.SKIPTHIS% if "%~1" == "" %?|% "'Var' undefined."

  168.         if defined _G.NSUTIL (
  169.                 %&% "!%~1!.Type" "_T.Type"
  170.                 if /i "!_T.Type!" == "NSMeta" (
  171.                         if defined _G.LEVEL[!_G.LEVEL!][!%~1!] (
  172.                                 set "_G.LEVEL[!_G.LEVEL!][!%~1!]="
  173.                                 set /a "_T.PrevLevel = _G.LEVEL - 1"
  174.                                 set "_G.RET=!%~1!"
  175.                                 set "_G.LEVEL[!_T.PrevLevel!][!_G.RET!]=!_G.RET!"
  176.                         ) else (
  177.                                 rem Found NS argument, just return it.
  178.                                 set "_G.RET=!%~1!"
  179.                         )
  180.                 ) else (
  181.                         set "_G.RET=!%~1!"
  182.                 )
  183.         ) else (
  184.                 set "_G.RET=!%~1!"
  185.         )


  188.         %_G.SKIPTHIS% for /f "delims==" %%a in (
  189.         %_G.SKIPTHIS%         'set "_T" 2^>nul'
  190.         %_G.SKIPTHIS% ) do set "%%a="
  191. %-|%

  193. :UTIL_Throw *Var
  194.         %_G.SKIPTHIS% if not defined _G.UTIL (
  195.         %_G.SKIPTHIS%         2>con >&2 echo [%~n0] Fatal: UTIL not initialized.
  196.         %_G.SKIPTHIS%         2>con >&2 pause
  197.         %_G.SKIPTHIS%         exit 1
  198.         %_G.SKIPTHIS% )
  199.        
  200.         %_G.SKIPTHIS% if "%~1" == "" %?|% "'Var' undefined."

  202.         %?|% TODO: Add NS logic.
  203.         set "_G.ERR=!%~1!"

  205.         %_G.SKIPTHIS% for /f "delims==" %%a in (
  206.         %_G.SKIPTHIS%         'set "_T" 2^>nul'
  207.         %_G.SKIPTHIS% ) do set "%%a="
  208. %-|%

  210. :UTIL_Copy *From *To
  211.         %_G.SKIPTHIS% if not defined _G.UTIL (
  212.         %_G.SKIPTHIS%         2>con >&2 echo [%~n0] Fatal: UTIL not initialized.
  213.         %_G.SKIPTHIS%         2>con >&2 pause
  214.         %_G.SKIPTHIS%         exit 1
  215.         %_G.SKIPTHIS% )
  216.        
  217.         %_G.SKIPTHIS% if "%~1" == "" %?|% "'From' undefined."
  218.         %_G.SKIPTHIS% if "%~2" == "" %?|% "'To' undefined."
  219.        
  220.         set "%~2=!%~1!"
  221. %-|%

  223. :UTIL_Fatal Msg
  224.         %_G.SKIPTHIS% if not defined _G.UTIL (
  225.         %_G.SKIPTHIS%         2>con >&2 echo [%~n0] Fatal: UTIL not initialized.
  226.         %_G.SKIPTHIS%         2>con >&2 pause
  227.         %_G.SKIPTHIS%         exit 1
  228.         %_G.SKIPTHIS% )
  229.        
  230.         %_G.SKIPTHIS% if "%~1" == "" %?|% "'Msg' undefined."
  231.        
  232.         2>con >&2 echo [!_G.TRACE!] Fatal: %~1
  233.         2>con >&2 pause
  234.         exit 1
  235. %-|%
复制代码



nsutil.bat

  2. @echo off
  3. if "%~1" neq "" (
  4.         call %* || (
  5.                 if defined _G.TRACE (
  6.                         2>con >&2 echo [!_G.TRACE!] Fatal: Call "%~nx0" failed.
  7.                 ) else (
  8.                         2>con >&2 echo [%~n0] Fatal: Call "%~nx0" failed.
  9.                 )
  10.                 2>con >&2 pause
  11.                 exit 1
  12.         )
  13. ) else (
  14.         if defined _G.TRACE (
  15.                 2>con >&2 echo [!_G.TRACE!] Fatal: Call "%~nx0" with nothing.
  16.         ) else (
  17.                 2>con >&2 echo [%~n0] Fatal: Call "%~nx0" with nothing.
  18.         )
  19.         2>con >&2 pause
  20.         exit 1
  21. )
  22. exit /b 0

  24. :NSUTIL_Init Main
  25.         if not defined _G.NSUTIL (
  26.                 if defined _G.PACKED (
  27.                         call :UTIL_Init "%~1"
  28.                 ) else (
  29.                         call UTIL :UTIL_Init "%~1"
  30.                 )

  32.                 set "_G.NSUTIL=%~n0"

  34.                 set /a "_G.NSP = 0"

  36.                 set "{n=!{! NSUTIL New"
  37.                 set "{c=!{! NSUTIL Clone"
  38.                 set "{g=!{! NSUTIL Get"
  39.                 set "{s=!{! NSUTIL Set"
  40.         )
  41. %-|%

  43. :NSUTIL_New *NSVar
  44.         for %%. in (_L[!_G.LEVEL!].) do (
  45.                 %_G.SKIPTHIS% if not defined _G.NSUTIL (
  46.                 %_G.SKIPTHIS%         2>con >&2 echo [%~n0] Fatal: NSUTIL not initialized.
  47.                 %_G.SKIPTHIS%         2>con >&2 pause
  48.                 %_G.SKIPTHIS%         exit 1
  49.                 %_G.SKIPTHIS% )
  50.                
  51.                 %_G.SKIPTHIS% if "%~1" == "" %?|% "'NSVar' undefined."

  53.                 set /a "_G.NSP += 1"
  54.                 set "%%.NSBody=_G.NS[!_G.NSP!]"
  55.                 set "!%%.NSBody!.Type=NSBody"
  56.                 set /a "_G.NSP += 1"
  57.                 set "%%.NSMeta=_G.NS[!_G.NSP!]"
  58.                 set "!%%.NSMeta!.Type=NSMeta"

  60.                 set "!%%.NSBody!.RefCnt=1"
  61.                 set "!%%.NSMeta!.Target=!%%.NSBody!"
  62.                
  63.                 set /a "%%.PrevLv = _G.LEVEL - 1"
  64.                 set "_G.LEVEL[!%%.PrevLv!][!%%.NSMeta!]=!%%.NSMeta!"
  65.                
  66.                 set "%~1=!%%.NSMeta!"
  67.         )
  68. %-|%

  70. :NSUTIL_IsNSMeta *NS -> Bool
  71.         for %%. in (_L[!_G.LEVEL!].) do (
  72.                 %_G.SKIPTHIS% if not defined _G.NSUTIL (
  73.                 %_G.SKIPTHIS%         2>con >&2 echo [%~n0] Fatal: NSUTIL not initialized.
  74.                 %_G.SKIPTHIS%         2>con >&2 pause
  75.                 %_G.SKIPTHIS%         exit 1
  76.                 %_G.SKIPTHIS% )

  78.                 %_G.SKIPTHIS% if "%~1" == "" %?|% "'NS' undefined."

  80.                 %&% "!%~1!.Type" "%%.Type"
  81.                 if /i "!%%.Type!" == "NSMeta" (
  82.                         set "%%.Res=1"
  83.                 ) else (
  84.                         set "%%.Res=0"
  85.                 )
  86.                 %<-% "%%.Res"
  87.         )
  88. %-|%

  90. :NSUTIL_IsNSBody *NS -> Bool
  91.         for %%. in (_L[!_G.LEVEL!].) do (
  92.                 %_G.SKIPTHIS% if not defined _G.NSUTIL (
  93.                 %_G.SKIPTHIS%         2>con >&2 echo [%~n0] Fatal: NSUTIL not initialized.
  94.                 %_G.SKIPTHIS%         2>con >&2 pause
  95.                 %_G.SKIPTHIS%         exit 1
  96.                 %_G.SKIPTHIS% )

  98.                 %_G.SKIPTHIS% if "%~1" == "" %?|% "'NS' undefined."

  100.                 %&% "!%~1!.Type" "%%.Type"
  101.                 if /i "!%%.Type!" == "NSBody" (
  102.                         set "%%.Res=1"
  103.                 ) else (
  104.                         set "%%.Res=0"
  105.                 )
  106.                 %<-% "%%.Res"
  107.         )
  108. %-|%

  110. :NSUTIL_IsValidNS *NS -> Bool
  111.         for %%. in (_L[!_G.LEVEL!].) do (
  112.                 %_G.SKIPTHIS% if not defined _G.NSUTIL (
  113.                 %_G.SKIPTHIS%         2>con >&2 echo [%~n0] Fatal: NSUTIL not initialized.
  114.                 %_G.SKIPTHIS%         2>con >&2 pause
  115.                 %_G.SKIPTHIS%         exit 1
  116.                 %_G.SKIPTHIS% )

  118.                 %_G.SKIPTHIS% if "%~1" == "" %?|% "'NS' undefined."

  120.                 %{% NSUTIL IsNSMeta "%~1" %}% %->% %%.Res
  121.                 if not "!%%.Res!" == "1" (
  122.                         %<-% %%.Res
  123.                         %-|%
  124.                 )
  125.                 %{% NSUTIL IsNSBody "!%~1!.Target" %}% %->% %%.Res
  126.                 %<-% %%.Res
  127.         )
  128. %-|%

  130. :NSUTIL_AssertValidNS *NS
  131.         for %%. in (_L[!_G.LEVEL!].) do (
  132.                 %_G.DOTHIS% %-|%
  133.                 if not defined _G.NSUTIL (
  134.                         2>con >&2 echo [%~n0] Fatal: NSUTIL not initialized.
  135.                         2>con >&2 pause
  136.                         exit 1
  137.                 )

  139.                 if "%~1" == "" %?|% "'NS' undefined."
  140.                 %{% NSUTIL IsValidNS "%~1" %}% %->% %%.Res
  141.                 if not "!%%.Res!" == "1" %?|% "not a valid NS."
  142.         )
  143. %-|%

  145. :NSUTIL_AssertValidNSBody *NS
  146.         for %%. in (_L[!_G.LEVEL!].) do (
  147.                 %_G.DOTHIS% %-|%
  148.                 if not defined _G.NSUTIL (
  149.                         2>con >&2 echo [%~n0] Fatal: NSUTIL not initialized.
  150.                         2>con >&2 pause
  151.                         exit 1
  152.                 )

  154.                 if "%~1" == "" %?|% "'NS' undefined."
  155.                 %{% NSUTIL IsNSBody "%~1" %}% %->% %%.Res
  156.                 if not "!%%.Res!" == "1" %?|% "not a valid NS."
  157.         )
  158. %-|%

  160. :NSUTIL_Clone *From *To
  161.         for %%. in (_L[!_G.LEVEL!].) do (
  162.                 %_G.SKIPTHIS% if not defined _G.NSUTIL (
  163.                 %_G.SKIPTHIS%         2>con >&2 echo [%~n0] Fatal: NSUTIL not initialized.
  164.                 %_G.SKIPTHIS%         2>con >&2 pause
  165.                 %_G.SKIPTHIS%         exit 1
  166.                 %_G.SKIPTHIS% )
  167.                 %_G.SKIPTHIS% if "%~1" == "" %?|% "'From' undefined."
  168.                 %_G.SKIPTHIS% if "%~2" == "" %?|% "'To' undefined."

  170.                 %_G.SKIPTHIS% %{% NSUTIL AssertValidNS "%~1" %}%

  172.                 set /a "_G.NSP += 1"
  173.                 set "_G.NS[!_G.NSP!].Type=NSMeta"
  174.                 %&% "!%~1!.Target" "_G.NS[!_G.NSP!].Target"
  175.                 %&% "!%~1!.Target" "%%.NSBody"
  176.                 set /a "!%%.NSBody!.RefCnt += 1"

  178.                 set "%~2=_G.NS[!_G.NSP!]"

  180.                 set /a "%%.PrevLv = _G.LEVEL - 1"
  181.                 set "_G.LEVEL[!%%.PrevLv!][!%~2!]=!%~2!"
  182.         )
  183. %-|%

  185. :NSUTIL_CloneMeta *From *To
  186.         for %%. in (_L[!_G.LEVEL!].) do (
  187.                 %_G.SKIPTHIS% if not defined _G.NSUTIL (
  188.                 %_G.SKIPTHIS%         2>con >&2 echo [%~n0] Fatal: NSUTIL not initialized.
  189.                 %_G.SKIPTHIS%         2>con >&2 pause
  190.                 %_G.SKIPTHIS%         exit 1
  191.                 %_G.SKIPTHIS% )
  192.                 %_G.SKIPTHIS% if "%~1" == "" %?|% "'From' undefined."
  193.                 %_G.SKIPTHIS% if "%~2" == "" %?|% "'To' undefined."

  195.                 %_G.SKIPTHIS% %{% NSUTIL AssertValidNS "%~1" %}%

  197.                 set /a "_G.NSP += 1"
  198.                 set "_G.NS[!_G.NSP!].Type=NSMeta"
  199.                 %&% "!%~1!.Target" "_G.NS[!_G.NSP!].Target"
  200.                 %&% "!%~1!.Target" "%%.NSBody"
  201.                 set /a "!%%.NSBody!.RefCnt += 1"

  203.                 set "%~2=_G.NS[!_G.NSP!]"
  204.         )
  205. %-|%

  207. :NSUTIL_HasField *NS -> Bool
  208.         for %%. in (_L[!_G.LEVEL!].) do (
  209.                 %_G.SKIPTHIS% if not defined _G.NSUTIL (
  210.                 %_G.SKIPTHIS%         2>con >&2 echo [%~n0] Fatal: NSUTIL not initialized.
  211.                 %_G.SKIPTHIS%         2>con >&2 pause
  212.                 %_G.SKIPTHIS%         exit 1
  213.                 %_G.SKIPTHIS% )

  215.                 %_G.SKIPTHIS% if "%~1" == "" %?|% "'NS' undefined."
  216.                 %_G.SKIPTHIS% if "%~2" == "" %?|% "'Field' undefined."

  218.                 %_G.SKIPTHIS% %{% NSUTIL AssertValidNS "%~1" %}%

  220.                 %&% "!%~1!.Target" "%%.NSBody"
  221.                 if defined !%%.NSBody!.Data.Key[%~2] (
  222.                         set "%%.Res=1"
  223.                 ) else (
  224.                         set "%%.Res=0"
  225.                 )
  226.                 %<-% "%%.Res"
  227.         )
  228. %-|%

  230. :NSUTIL_Get *NS Field *Val
  231.         for %%. in (_L[!_G.LEVEL!].) do (
  232.                 %_G.SKIPTHIS% if not defined _G.NSUTIL (
  233.                 %_G.SKIPTHIS%         2>con >&2 echo [%~n0] Fatal: NSUTIL not initialized.
  234.                 %_G.SKIPTHIS%         2>con >&2 pause
  235.                 %_G.SKIPTHIS%         exit 1
  236.                 %_G.SKIPTHIS% )
  237.        
  238.                 %_G.SKIPTHIS% if "%~1" == "" %?|% "'NS' undefined."
  239.                 %_G.SKIPTHIS% if "%~2" == "" %?|% "'Field' undefined."
  240.                 %_G.SKIPTHIS% if "%~3" == "" %?|% "'Val' undefined."

  242.                 %_G.SKIPTHIS% %{% NSUTIL AssertValidNS "%~1" %}%

  244.                 %{% NSUTIL HasField "%~1" "%~2" %}% %->% %%.Res

  246.                 %&% "!%~1!.Target" "%%.NSBody"
  247.                 %&% "!%%.NSBody!.Data.Value[%~2]" "%~3"
  248.                 set "!%%.NSBody!.Data.Key[%~2]="
  249.                 set "!%%.NSBody!.Data.Value[%~2]="
  250.         )
  251. %-|%

  253. :NSUTIL_Free *NS
  254.         for %%. in (_L[!_G.LEVEL!].) do (
  255.                 %_G.SKIPTHIS% if not defined _G.NSUTIL (
  256.                 %_G.SKIPTHIS%         2>con >&2 echo [%~n0] Fatal: NSUTIL not initialized.
  257.                 %_G.SKIPTHIS%         2>con >&2 pause
  258.                 %_G.SKIPTHIS%         exit 1
  259.                 %_G.SKIPTHIS% )

  261.                 %_G.SKIPTHIS% if "%~1" == "" %?|% "'NS' undefined."

  263.                 %&% _G.RET %%.RetBackup

  265.                 %_G.SKIPTHIS% %{% NSUTIL AssertValidNS "%~1" %}%
  266.        
  267.                 %&% !%~1!.Target %%.NSBody
  268.                 set "!%~1!.Type="
  269.                 set "!%~1!.Target="

  271.                 %{% NSUTIL FreeNSBody "%%.NSBody" %}%

  273.                 %&% %%.RetBackup _G.RET
  274.         )
  275. %-|%

  277. :NSUTIL_FreeNSBody *NS
  278.         for %%. in (_L[!_G.LEVEL!].) do (
  279.                 %_G.SKIPTHIS% if not defined _G.NSUTIL (
  280.                 %_G.SKIPTHIS%         2>con >&2 echo [%~n0] Fatal: NSUTIL not initialized.
  281.                 %_G.SKIPTHIS%         2>con >&2 pause
  282.                 %_G.SKIPTHIS%         exit 1
  283.                 %_G.SKIPTHIS% )
  284.        
  285.                 %_G.SKIPTHIS% if "%~1" == "" %?|% "'NS' undefined."
  286.                
  287.                 %_G.SKIPTHIS% %{% NSUTIL AssertValidNSBody "%~1" %}%

  289.                 %&% "!%~1!.RefCnt" "%%.RefCnt"

  291.                 if !%%.RefCnt! gtr 1 (
  292.                         set /a "!%~1!.RefCnt -= 1"
  293.                 ) else (
  294.                         if !%%.RefCnt! lss 1 (
  295.                                 %?|% "double free detected."
  296.                         )

  298.                         set "!%~1!.Type="
  299.                         set "!%~1!.RefCnt="

  301.                         for /f "delims==" %%a in (
  302.                                 'set !%~1!.Data.Key 2^>nul'
  303.                         ) do (
  304.                                 %&% "!%~1!.Data.Value[!%%a!]" "%%.Var"
  305.                                 set "!%~1!.Data.Value[!%%a!]="

  307.                                 %{% NSUTIL IsNSMeta "%%.Var" %}% %->% "%%.IsMeta"
  308.                                 if "!%%.IsMeta!" == "1" (
  309.                                         %{% NSUTIL Free "%%.Var" %}%
  310.                                 )
  311.                                 set "%%a="
  312.                         )
  313.                 )
  314.         )
  315. %-|%

  317. :NSUTIL_CloneBody *NS *NewNS
  318.         for %%. in (_L[!_G.LEVEL!].) do (
  319.                 %_G.SKIPTHIS% if not defined _G.NSUTIL (
  320.                 %_G.SKIPTHIS%         2>con >&2 echo [%~n0] Fatal: NSUTIL not initialized.
  321.                 %_G.SKIPTHIS%         2>con >&2 pause
  322.                 %_G.SKIPTHIS%         exit 1
  323.                 %_G.SKIPTHIS% )
  324.        
  325.                 %_G.SKIPTHIS% if "%~1" == "" %?|% "'NS' undefined."
  326.                 %_G.SKIPTHIS% if "%~2" == "" %?|% "'NewNS' undefined."

  328.                 %_G.SKIPTHIS% %{% NSUTIL AssertValidNSBody "%~1" %}%

  330.                 set /a "_G.NSP += 1"
  331.                 set "%%.NewBody=_G.NS[!_G.NSP!]"
  332.                 set "!%%.NewBody!.Type=NSBody"
  333.                 set "!%%.NewBody!.RefCnt=1"

  335.                 for /f "delims==" %%a in (
  336.                         'set !%~1!.Data.Key 2^>nul'
  337.                 ) do (
  338.                         set "!%%.NewBody!.Data.Key[!%%a!]=!%%a!"

  340.                         %{% NSUTIL IsNSMeta "!%~1!.Data.Value[!%%a!]" %}% %->% %%.IsMeta
  341.                         if "!%%.IsMeta!" == "1" (
  342.                                 %{% NSUTIL CloneMeta "!%~1!.Data.Value[!%%a!]" "!%%.NewBody!.Data.Value[!%%a!]" %}%
  343.                         ) else (
  344.                                 %&% "!%~1!.Data.Value[!%%a!]" "!%%.NewBody!.Data.Value[!%%a!]"
  345.                         )
  346.                 )

  348.                 %&% "%%.NewBody" "%~2"
  349.         )
  350. %-|%

  352. :NSUTIL_Set *NS Field *Val
  353.         for %%. in (_L[!_G.LEVEL!].) do (
  354.                 %_G.SKIPTHIS% if not defined _G.NSUTIL (
  355.                 %_G.SKIPTHIS%         2>con >&2 echo [%~n0] Fatal: NSUTIL not initialized.
  356.                 %_G.SKIPTHIS%         2>con >&2 pause
  357.                 %_G.SKIPTHIS%         exit 1
  358.                 %_G.SKIPTHIS% )
  359.        
  360.                 %_G.SKIPTHIS% if "%~1" == "" %?|% "'NS' undefined."
  361.                 %_G.SKIPTHIS% if "%~2" == "" %?|% "'Field' undefined."
  362.                 %_G.SKIPTHIS% if "%~3" == "" %?|% "'Val' undefined."

  364.                 %_G.SKIPTHIS% %{% NSUTIL AssertValidNS "%~1" %}%

  366.                 %&% "!%~1!.Target" "%%.NSBody"

  368.                 %&% "!%%.NSBody!.RefCnt" "%%.RefCnt"
  369.                 if !%%.RefCnt! gtr 1 (
  370.                         set /a "!%%.NSBody!.RefCnt -= 1"
  371.                         %{% NSUTIL CloneBody "%%.NSBody" "%%.NewBody" %}%
  372.                         %&% "%%.NewBody" "%%.NSBody"
  373.                         %&% "%%.NewBody" "!%~1!.Target"
  374.                 )

  376.                 %{% NSUTIL HasField "%~1" "%~2" %}% %->% "%%.HasField"
  377.                 if "!%%.HasField!" == "1" (
  378.                         %&% "!%%.NSBody!.Data.Value[%~2]" %%.OldVal
  379.                         %{% NSUTIL IsValidNS "%%.OldVal" %}% %->% "%%.IsMeta"
  380.                         if "!%%.IsMeta!" == "1" (
  381.                                 %{% NSUTIL Free "%%.OldVal" %}%
  382.                         )
  383.                 )

  385.                 set "!%%.NSBody!.Data.Key[%~2]=%~2"

  387.                 %{% NSUTIL IsValidNS "%~3" %}% %->% "%%.IsNS"
  388.                 if "!%%.IsNS!" == "1" (
  389.                         %{% NSUTIL CloneMeta "%~3" "!%%.NSBody!.Data.Value[%~2]" %}%
  390.                 ) else (
  391.                         %&% "%~3" "!%%.NSBody!.Data.Value[%~2]"
  392.                 )
  393.         )
  394. %-|%

复制代码


一个使用和测试的例子.bat

  2. @echo off
  3. set _G.FAST=1
  4. if "%~1" equ "CALL_SELF" (
  5.         for /f "tokens=1,*" %%a in ('echo.%*') do (
  6.                 call %%b || %?|% "Call '%~nx0' failed."
  7.         )
  8.         %-|%
  9. )
  10. pushd "%~dp0"
  11. setlocal ENABLEDELAYEDEXPANSION
  12. if not defined _G.PACKED (
  13.         call NSUTIL :NSUTIL_Init %~n0
  14. ) else (
  15.         call :NSUTIL_Init %~n0
  16. )


  19. set _ & (set | find /C /V "") & pause<nul
  20. time <nul
  21. %{% MAIN TEST3 %}%
  22. time <nul
  23. set _ & (set | find /C /V "") & pause
  24. %-|%


  27. :MAIN_TEST
  28.         for %%. in (_L[!_G.LEVEL!].) do (
  29.                 %{n% %%.A %}%
  30.                 set %%.B=3

  32.                 set %%.B2=30
  33.                 %{s% %%.A k %%.B %}%
  34.                 %{s% %%.A k2 %%.B %}%
  35.                 %{s% %%.A k3 %%.B %}%
  36.                 %{g% %%.A k  %%.R %}%


  39.                 %{s% %%.A k2 %%.B2 %}%

  41.                 %{n% %%.o %}%
  42.                 %{s% %%.A o1 %%.o %}%

  44.                 %{s% %%.A k3 %%.o %}%

  46.                 %{s% %%.A o1 %%.B2 %}%
  47.                
  48.                 %{c% %%.A %%.B %}%
  49.                 set _ & (set | find /C /V "") & pause
  50.                
  51.                 %{s% %%.A o1 %%.o %}%
  52.                 set _ & (set | find /C /V "") & pause
  53.                
  54.                 %<-% %%.A
  55.         )
  56. %-|%


  59. :MAIN_TEST2
  60.         for %%. in (_L[!_G.LEVEL!].) do (
  61.                 %{% MAIN TEST %}% %->% %%.T
  62.                 %<-% %%.T
  63.         )
  64. %-|%

  66. :MAIN_TEST3
  67.         for %%. in (_L[!_G.LEVEL!].) do (
  68.                 %{% MAIN TEST2 %->% %%.T
  69.                 %<-% %%.T
  70.         )
  71. %-|%
复制代码


也许可以探讨一下有无更好的方法。纯娱乐。

评分

参与人数 1PB +18 技术 +1 收起 理由
523066680 + 18 + 1 hardcore, 古法编程！

查看全部评分

回复

举报

yyz219
发表于 前天 14:07 | 显示全部楼层
支持楼主 谢谢
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-4-8 04:57

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表