swh:1:cnt:4b7424fc013d5af1a8f695e7e2c50142643f337f;origin=https://github.com/darcyfdu/findlicense;anchor=swh:1:rev:888cfb21a7378408032f60d06ee5598d3228dbc5;path=/extractcode.bat
Show source
@echo OFF
@rem Copyright (c) 2015 nexB Inc. http://www.nexb.com/ - All rights reserved.
@rem
@rem A minimal shell wrapper to the CLI entry point
set SCANCODE_ROOT_DIR=%~dp0
set SCANCODE_CMD_LINE_ARGS=
set SCANCODE_CONFIGURED_PYTHON=%SCANCODE_ROOT_DIR%\bin\python.exe
@rem Collect all command line arguments in a variable
:collectarg
if ""%1""=="""" goto continue
call set SCANCODE_CMD_LINE_ARGS=%SCANCODE_CMD_LINE_ARGS% %1
shift
goto collectarg
:continue
if not exist "%SCANCODE_CONFIGURED_PYTHON%" goto configure
goto scancode
:configure
echo * Configuring ScanCode for first use...
set CONFIGURE_QUIET=1
call "%SCANCODE_ROOT_DIR%\configure" etc/conf
if %errorlevel% neq 0 (
exit /b %errorlevel%
)
:scancode
"%SCANCODE_ROOT_DIR%\bin\extractcode" %SCANCODE_CMD_LINE_ARGS%
:EOS
swh:1:cnt:2c9538b1775e2d9e5fbc7301d8bb66feb6b8e554;origin=https://github.com/mirbeta/MirClient;anchor=swh:1:rev:3dbba7d20f647e2716a1cacacdfe233e1695c33f;path=/Components/cnvcl/Source/ToCHT.bat
Show source
@ECHO CnPack Component Package
@ECHO CHT Resource Files will be Copied to overwrite CHS Files
@PAUSE
copy .\Lang\1028\CnGraphConsts.pas .\Graphics\CnGraphConsts.pas /Y
copy .\Lang\1028\CnLangConsts.pas .\MultiLang\CnLangConsts.pas /Y
copy .\Lang\1028\CnNetConsts.pas .\NetComm\CnNetConsts.pas /Y
copy .\Lang\1028\CnAAFontDialog.dfm .\Graphics\CnAAFontDialog.dfm /Y
copy .\Lang\1028\CnCompAboutFrm.dfm .\Common\CnCompAboutFrm.dfm /Y
copy .\Lang\1028\CnFoxmailMsgFrm.dfm .\ObjRep\CnFoxmailMsgFrm.dfm /Y
copy .\Lang\1028\CnProgressFrm.dfm .\ObjRep\CnProgressFrm.dfm /Y
copy .\Lang\1028\CnRS232Dialog.dfm .\NetComm\CnRS232Dialog.dfm /Y
copy .\Lang\1028\CnCompConsts.pas .\NonVisual\CnCompConsts.pas /Y
copy .\Lang\1028\CnConsts.pas .\Common\CnConsts.pas /Y
copy .\Lang\1028\CnDockGlobal.pas .\NonVisual\CnDockGlobal.pas /Y
copy .\Lang\1028\CnDBConsts.pas .\DbReport\CnDBConsts.pas /Y
@ECHO CnPack Component Package: CHT Resource Files Copied.
@PAUSE
swh:1:cnt:b9d321a1f4fac8cd81194e62dfc531f181b86fa2;origin=https://github.com/mainframed/DC30_Workshop;anchor=swh:1:rev:3475c8877c0ac9382ffce64e7427cdb51640081a;path=/rexx/DEBRUIJN.rex
Show source
/* REXX */
/* Simplistic De Brujin pattern generator in REXX */
/* SYNTAX: BRUJIN <pattern length> */
/* Author: davide girardi */
/* https://github.com/davidegirardi */
parse arg len
/* Alphabets */
if len = '' then do
say "Missing argument length usage: DEBRUIJN <number>"
exit
end
UPPERCASE = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
LOWERCASE = "abcdefghijklmnopqrstuvwxyz"
ALLDIGITS = "1234567890"
x = debruijn(len)
say x
exit
debruijn:
pattern = ""
do u=1 to length(UPPERCASE)
do l=1 to length(LOWERCASE)
do d=1 to length(ALLDIGITS)
if length(pattern) < len then
do
ucase = substr(UPPERCASE, u, 1)
lower = substr(LOWERCASE, l, 1)
digit = substr(ALLDIGITS, d, 1)
pattern = pattern || ucase || lower || digit
end
end
end
end
return substr(pattern, 1, len)