Permalink
Browse files

Give the fourth sortie a new name. It's 53% done now!

  • Loading branch information...
1 parent b64e34a commit 2aa55c2647d658c1752ec62048f6bb8f52ed039f @rcaputo committed Sep 20, 2009
Showing with 410 additions and 338 deletions.
  1. +0 −12 docs/Stage.pm
  2. +11 −11 docs/Ttl/Adder.pm
  3. +5 −5 docs/Ttl/Bin.pm
  4. +15 −15 docs/Ttl/FlipFlop/D.pm
  5. +10 −10 docs/Ttl/FlipFlop/JK.pm
  6. +9 −9 docs/Ttl/FlipFlop/MasterSlave.pm
  7. +6 −6 docs/Ttl/FlipFlop/T.pm
  8. +6 −6 docs/Ttl/HexDecoder.pm
  9. +9 −9 docs/Ttl/Latch/ClockedNandRS.pm
  10. +7 −7 docs/Ttl/Latch/NandRS.pm
  11. +7 −7 docs/Ttl/Latch/NorRS.pm
  12. +5 −14 docs/Ttl/Nand.pm
  13. +3 −7 docs/Ttl/Nor.pm
  14. +6 −6 docs/Ttl/TriAnd.pm
  15. +6 −6 docs/Ttl/TriNand.pm
  16. +4 −4 docs/Ttl/Un.pm
  17. +18 −14 docs/eg-01-discrete-observer.pl
  18. +11 −7 docs/eg-02-observed-new.pl
  19. +19 −19 docs/eg-03-observer-roles.pl
  20. +10 −4 docs/eg-04-inheritance.pl
  21. +14 −8 docs/eg-05-composition.pl
  22. +10 −4 docs/eg-06-moose-roles.pl
  23. +11 −5 docs/eg-07-wheel-run.pl
  24. +13 −7 docs/eg-08-observer-trait.pl
  25. +17 −11 docs/eg-09-emitter-trait.pl
  26. +18 −13 docs/eg-10-setup.pl
  27. +14 −6 docs/eg-11-poco-postback.pl
  28. +14 −7 docs/eg-12-poco-event.pl
  29. +11 −10 docs/eg-13-irc-bot.pl
  30. +20 −16 docs/fail-ttl-counter.pl
  31. +8 −4 docs/fail-ttl-simple.pl
  32. +2 −2 docs/{ → lib/Reflex}/Handle.pm
  33. +12 −0 docs/lib/Reflex/Object.pm
  34. +2 −2 docs/{SignalChild.pm → lib/Reflex/PID.pm}
  35. +10 −10 docs/{PoeEvent.pm → lib/Reflex/POE/Event.pm}
  36. +6 −6 docs/{ → lib/Reflex/POE}/Postback.pm
  37. +2 −2 docs/{PoeSession.pm → lib/Reflex/POE/Session.pm}
  38. +2 −2 docs/{ → lib/Reflex/POE}/Wheel.pm
  39. +5 −5 docs/{WheelRun.pm → lib/Reflex/POE/Wheel/Run.pm}
  40. +20 −11 docs/{StageRole.pm → lib/Reflex/Role/Object.pm}
  41. +5 −5 docs/{UdpPeerRole.pm → lib/Reflex/Role/UdpPeer.pm}
  42. +2 −2 docs/{ → lib/Reflex}/Signal.pm
  43. +2 −2 docs/{Delay.pm → lib/Reflex/Timer.pm}
  44. +3 −3 docs/{EmitterTrait.pm → lib/Reflex/Trait/Emitter.pm}
  45. +3 −3 docs/{ObserverTrait.pm → lib/Reflex/Trait/Observer.pm}
  46. +3 −3 docs/{ → lib/Reflex}/UdpPeer.pm
  47. +14 −11 docs/requirements.otl
View
@@ -1,12 +0,0 @@
-package Stage;
-
-use Moose;
-with 'StageRole';
-
-# Composes the StageRole role into a class.
-# Does nothing of its own.
-
-no Moose;
-__PACKAGE__->meta()->make_immutable();
-
-1;
View
@@ -26,69 +26,69 @@
package Ttl::Adder;
use Moose;
-extends 'Stage';
+extends 'Reflex::Object';
use Ttl::Xor;
use Ttl::And;
use Ttl::Or;
has a => (
isa => 'Bool',
is => 'rw',
- traits => ['Emitter'],
+ traits => ['Reflex::Trait::Emitter'],
);
has b => (
isa => 'Bool',
is => 'rw',
- traits => ['Emitter'],
+ traits => ['Reflex::Trait::Emitter'],
);
has cin => (
isa => 'Bool',
is => 'rw',
- traits => ['Emitter'],
+ traits => ['Reflex::Trait::Emitter'],
);
has xor_ab => (
isa => 'Ttl::Xor',
is => 'rw',
- traits => ['Observer'],
+ traits => ['Reflex::Trait::Observer'],
);
has xor_cin => (
isa => 'Ttl::Xor',
is => 'rw',
- traits => ['Observer'],
+ traits => ['Reflex::Trait::Observer'],
);
has and_ab => (
isa => 'Ttl::And',
is => 'rw',
- traits => ['Observer'],
+ traits => ['Reflex::Trait::Observer'],
);
has and_cin => (
isa => 'Ttl::And',
is => 'rw',
- traits => ['Observer'],
+ traits => ['Reflex::Trait::Observer'],
);
has or_cout => (
isa => 'Ttl::Or',
is => 'rw',
- traits => ['Observer'],
+ traits => ['Reflex::Trait::Observer'],
);
has sum => (
isa => 'Bool',
is => 'rw',
- traits => ['Emitter'],
+ traits => ['Reflex::Trait::Emitter'],
);
has cout => (
isa => 'Bool',
is => 'rw',
- traits => ['Emitter'],
+ traits => ['Reflex::Trait::Emitter'],
);
sub on_my_a {
View
@@ -4,27 +4,27 @@
package Ttl::Bin;
use Moose;
-extends 'Stage';
-use EmitterTrait;
+extends 'Reflex::Object';
+use Reflex::Trait::Emitter;
has a => (
isa => 'Bool',
is => 'rw',
- traits => ['Emitter'],
+ traits => ['Reflex::Trait::Emitter'],
event => 'change',
);
has b => (
isa => 'Bool',
is => 'rw',
- traits => ['Emitter'],
+ traits => ['Reflex::Trait::Emitter'],
event => 'change',
);
has out => (
isa => 'Bool',
is => 'rw',
- traits => ['Emitter'],
+ traits => ['Reflex::Trait::Emitter'],
);
1;
View
@@ -7,45 +7,45 @@
package Ttl::FlipFlop::D;
use Moose;
-extends 'Stage';
+extends 'Reflex::Object';
use Ttl::TriNand;
-use ObserverTrait;
-use EmitterTrait;
+use Reflex::Trait::Observer;
+use Reflex::Trait::Emitter;
has clear => (
isa => 'Bool',
is => 'rw',
- traits => ['Emitter'],
+ traits => ['Reflex::Trait::Emitter'],
);
has clock => (
isa => 'Bool',
is => 'rw',
- traits => ['Emitter'],
+ traits => ['Reflex::Trait::Emitter'],
);
has d => (
isa => 'Bool',
is => 'rw',
- traits => ['Emitter'],
+ traits => ['Reflex::Trait::Emitter'],
);
has preset => (
isa => 'Bool',
is => 'rw',
- traits => ['Emitter'],
+ traits => ['Reflex::Trait::Emitter'],
);
has q => (
isa => 'Bool',
is => 'rw',
- traits => ['Emitter'],
+ traits => ['Reflex::Trait::Emitter'],
);
has not_q => (
isa => 'Bool',
is => 'rw',
- traits => ['Emitter'],
+ traits => ['Reflex::Trait::Emitter'],
);
sub BUILD {
@@ -132,37 +132,37 @@ sub on_tri6_out {
has tri1 => (
isa => 'Ttl::TriNand',
is => 'rw',
- traits => ['Observer'],
+ traits => ['Reflex::Trait::Observer'],
);
has tri2 => (
isa => 'Ttl::TriNand',
is => 'rw',
- traits => ['Observer'],
+ traits => ['Reflex::Trait::Observer'],
);
has tri3 => (
isa => 'Ttl::TriNand',
is => 'rw',
- traits => ['Observer'],
+ traits => ['Reflex::Trait::Observer'],
);
has tri4 => (
isa => 'Ttl::TriNand',
is => 'rw',
- traits => ['Observer'],
+ traits => ['Reflex::Trait::Observer'],
);
has tri5 => (
isa => 'Ttl::TriNand',
is => 'rw',
- traits => ['Observer'],
+ traits => ['Reflex::Trait::Observer'],
);
has tri6 => (
isa => 'Ttl::TriNand',
is => 'rw',
- traits => ['Observer'],
+ traits => ['Reflex::Trait::Observer'],
);
1;
View
@@ -20,55 +20,55 @@
package Ttl::FlipFlop::JK;
use Moose;
-extends 'Stage';
+extends 'Reflex::Object';
use Ttl::Latch::ClockedNandRS;
-use ObserverTrait;
-use EmitterTrait;
+use Reflex::Trait::Observer;
+use Reflex::Trait::Emitter;
has nand_j => (
isa => 'Ttl::Nand',
is => 'rw',
- traits => ['Observer'],
+ traits => ['Reflex::Trait::Observer'],
handles => { j => 'a' },
);
has nand_k => (
isa => 'Ttl::Nand',
is => 'rw',
- traits => ['Observer'],
+ traits => ['Reflex::Trait::Observer'],
handles => { k => 'b' },
);
has trinand_preset => (
isa => 'Ttl::TriNand',
is => 'rw',
- traits => ['Observer'],
+ traits => ['Reflex::Trait::Observer'],
handles => { preset => 'a' },
);
has trinand_clear => (
isa => 'Ttl::TriNand',
is => 'rw',
- traits => ['Observer'],
+ traits => ['Reflex::Trait::Observer'],
handles => { clear => 'c' },
);
has q => (
isa => 'Bool',
is => 'rw',
- traits => ['Emitter'],
+ traits => ['Reflex::Trait::Emitter'],
);
has not_q => (
isa => 'Bool',
is => 'rw',
- traits => ['Emitter'],
+ traits => ['Reflex::Trait::Emitter'],
);
has clock => (
isa => 'Bool',
is => 'rw',
- traits => ['Emitter'],
+ traits => ['Reflex::Trait::Emitter'],
);
sub BUILD {
@@ -14,29 +14,29 @@
package Ttl::FlipFlop::MasterSlave;
use Moose;
-extends 'Stage';
+extends 'Reflex::Object';
use Ttl::Latch::ClockedNandRS;
use Ttl::Not;
-use ObserverTrait;
-use EmitterTrait;
+use Reflex::Trait::Observer;
+use Reflex::Trait::Emitter;
has cnrs1 => (
isa => 'Ttl::Latch::ClockedNandRS',
is => 'rw',
- traits => ['Observer'],
+ traits => ['Reflex::Trait::Observer'],
handles => ['r', 's'],
);
has cnrs2 => (
isa => 'Ttl::Latch::ClockedNandRS',
is => 'rw',
- traits => ['Observer'],
+ traits => ['Reflex::Trait::Observer'],
);
has not => (
isa => 'Ttl::Not',
is => 'rw',
- traits => ['Observer'],
+ traits => ['Reflex::Trait::Observer'],
);
sub BUILD {
@@ -54,19 +54,19 @@ sub BUILD {
has clock => (
isa => 'Bool',
is => 'rw',
- traits => ['Emitter'],
+ traits => ['Reflex::Trait::Emitter'],
);
has q => (
isa => 'Bool',
is => 'rw',
- traits => ['Emitter'],
+ traits => ['Reflex::Trait::Emitter'],
);
has not_q => (
isa => 'Bool',
is => 'rw',
- traits => ['Emitter'],
+ traits => ['Reflex::Trait::Emitter'],
);
sub on_my_clock {
View
@@ -4,28 +4,28 @@
package Ttl::FlipFlop::T;
use Moose;
-extends 'Stage';
+extends 'Reflex::Object';
use Ttl::FlipFlop::D;
-use ObserverTrait;
-use EmitterTrait;
+use Reflex::Trait::Observer;
+use Reflex::Trait::Emitter;
has dff => (
isa => 'Ttl::FlipFlop::D',
is => 'rw',
- traits => ['Observer'],
+ traits => ['Reflex::Trait::Observer'],
handles => ['preset','clear','clock'],
);
has q => (
isa => 'Bool',
is => 'rw',
- traits => ['Emitter'],
+ traits => ['Reflex::Trait::Emitter'],
);
has not_q => (
isa => 'Bool',
is => 'rw',
- traits => ['Emitter'],
+ traits => ['Reflex::Trait::Emitter'],
);
sub on_dff_q {
Oops, something went wrong.

0 comments on commit 2aa55c2

Please sign in to comment.