Skip to content
This repository has been archived by the owner on Jul 27, 2020. It is now read-only.

Commit

Permalink
still don't know what objects exactly are, but those aren't.
Browse files Browse the repository at this point in the history
  • Loading branch information
GeneralGuy4872 committed Oct 7, 2019
1 parent 9e4ad6f commit c0c0df0
Showing 1 changed file with 11 additions and 7 deletions.
18 changes: 11 additions & 7 deletions src/modules/IWannaFly/Main.pm
Original file line number Diff line number Diff line change
Expand Up @@ -6,6 +6,10 @@ use warnings;
use IWannaFly::Struct;
use IWannaFly'Macro;
use IWannaFly'Null;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT;

<!--keep track of what's where in local modules
with :: for directories and ' for files-->

Expand Down Expand Up @@ -50,7 +54,7 @@ with :: for directories and ' for files-->
# ♯bar is a bitfield or boolean
# ‽$bar is the refaddr function
#
# all these extra sigils except ‰ and ‽ are processed to $ by
# all these extra sigils except ‽ are processed to $ by
# Filter::Simple in IWannaFly::Macro. they mearly provide
# disambiguation of special scalars/fields while inspecting code.
# since THEY ARE ALL INTERCHANGEABLE WITH EACHOTHER AND $, their usage
Expand Down Expand Up @@ -89,17 +93,18 @@ with :: for directories and ' for files-->
<!--This is a comment. comments are comments-->

sub MAX($$) {return ($_[0] ≥ $_[1] ? $_[0] : $_[1])}
bless MAX, NIL;
push(@EXPORT,'MAX');

sub MIN($$) {return ($_[0] ≤ $_[1] ? $_[0] : $_[1])}
bless MIN, NIL;
push(@EXPORT,'MIN');

sub SGN($) {$_ <=> 0}
bless SGN, NIL;
push(@EXPORT,'SGN');

sub INTVL($$$) {return MIN( MAX( $_[0],$_[1] ) ,$_[2] )}
bless INTVL, NIL;
push(@EXPORT,'INTVL');

<!-- MOVE THIS
sub DLLIST_NOCIRC_PUSH(€€) {
my (€HEAD,€PUSHY) = @_;
€PUSHY->prev = €HEAD->prev;
Expand Down Expand Up @@ -134,5 +139,4 @@ sub DLLIST_NOCIRC_FREE(€€) {
}
free(€DEAD);
}


-->

0 comments on commit c0c0df0

Please sign in to comment.