Data update

This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions

View file

@ -1,4 +0,0 @@
function global:Get-DependentService
{
Get-Service | Where-Object {$_.DependentServices}
}

View file

@ -1,15 +1,34 @@
/*REXX program demonstrates the use of labels and also a CALL statement. */
blarney = -0 /*just a blarney & balderdash statement*/
signal do_add /*transfer program control to a label.*/
ttt = sinD(30) /*this REXX statement is never executed*/
/* [↓] Note the case doesn't matter. */
DO_Add: /*coming here from the SIGNAL statement*/
-- 24 Aug 2025
Main:
parse version version
say 'SCOPE FUNCTION NAMES AND LABELS'
say version
say
call Routine
say Function(3)
signal Goto
say 'This line is not exected!'
say 'calling the sub: add.2.args'
call add.2.args 1, 7 /*pass two arguments: 1 and a 7 */
say 'sum =' result /*display the result from the function.*/
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
add.2.args: procedure; parse arg x,y; return x+y /*first come, first served ···*/
add.2.args: say 'Whoa Nelly!! Has the universe run amok?' /*didactic, but never executed*/
add.2.args: return arg(1) + arg(2) /*concise, " " " */
Continue:
say 'Program ends'
exit
Routine:
say 'Routine invoked'
say 2*2
return
Function:
arg x
say 'Function invoked'
return x*x
Function:
arg x
say 'This label is not executed!'
return x*x
Goto:
say 'Goto invoked'
say 4*4
signal Continue