Stages [1032842]

< > BotCompany Repo | #1032842 // Stages

JavaX fragment (include) [tags: use-pretranspiled]

// goes well with the stage {} macro (see tok_stages)
srecord Stages(new L</*Stage*/Runnable> stages) is Steppable, Runnable {
  replace Stage with Runnable.
  int iStage;
  Stage stage;
  
  public bool step() {
    // What is this funny syntax
    ret iStage <= l(stages)
      && trueBecause(callF(stage = _get(stages, iStage++)));
  }
  
  Stage stage(Stage stage) {
    stages.add(stage);
    ret stage;
  }
  
  Stage stage(S name, Stage stage) {
    ret stage(runnableWithCustomToString(name, stage));
  }
  
  run { stepAll(this); }
  
  int indexOfStage(Stage stage) {
    ret stages.indexOf(stage);
  }
  
  void stepUntilStage(Stage stage) {
    int index = indexOfStage(stage);
    while (iStage <= index && step()) {}
  }
}

Travelled to 3 computer(s): bhatertpkbcr, mowyntqkapby, mqqgnosmbjvj

Snippet ID:

#1032842

Snippet name:

Stages

Eternal ID of this version:

#1032842/10

Text MD5:

f01ccff7d838023d297953e45d2a3f35

Transpilation MD5:

201c8738c9262e2dea14f89a2746fd73

Author:

stefan

Category:

javax

Type:

JavaX fragment (include)

Public (visible to everyone):

Yes

Archived (hidden from active list):

Created/modified:

2022-08-06 18:40:03

Source code size:

767 bytes / 32 lines

Pitched / IR pitched:

No / No

Views / Downloads:

388 / 592

Version history:

9 change(s)

Referenced in:

[show references]

1	// goes well with the stage {} macro (see tok_stages)
2	srecord Stages(new L</Stage/Runnable> stages) is Steppable, Runnable {
3	replace Stage with Runnable.
4	int iStage;
5	Stage stage;
6
7	public bool step() {
8	// What is this funny syntax
9	ret iStage <= l(stages)
10	&& trueBecause(callF(stage = _get(stages, iStage++)));
11	}
12
13	Stage stage(Stage stage) {
14	stages.add(stage);
15	ret stage;
16	}
17
18	Stage stage(S name, Stage stage) {
19	ret stage(runnableWithCustomToString(name, stage));
20	}
21
22	run { stepAll(this); }
23
24	int indexOfStage(Stage stage) {
25	ret stages.indexOf(stage);
26	}
27
28	void stepUntilStage(Stage stage) {
29	int index = indexOfStage(stage);
30	while (iStage <= index && step()) {}
31	}
32	}