Aspect oriented programming: Difference between revisions

m
m (→‎{{header|Wren}}: Minor tidy)
 
(9 intermediate revisions by 3 users not shown)
Line 23:
=={{header|6502 Assembly}}==
The easiest way to do this is by putting every related function into the same file. One important thing to remember is that in 6502 (and most other assembly languages for that matter, unless linkers are involved), the order in which your code is placed implies its memory location. This is not the case in other languages, not even in [[C]].
<langsyntaxhighlight lang="6502asm">;Basic_Functions.asm
SwapXY:
pha
Line 39:
NewLine: ;the above function will be stored in memory above this one.
lda #13
jmp $FFD2 ;PrintChar on Commodore 64</langsyntaxhighlight>
 
This is somewhat relevant because it lets you abuse fallthrough. If you have a special case of a particular function that you use often, you can easily make that special case its own function by having it load those specific parameters and then "falling through" into the function you're actually running. This helps to reduce call/return penalties while keeping your relevant pieces of code together. Unfortunately, you can only do this once per function, for obvious reasons.
 
<langsyntaxhighlight lang="6502asm">NewLine:
LDA #10 ;linefeed
;the PrintChar function is literally below this line, both in a source code sense and a memory layout sense.
Line 50:
;input: A = the ascii code you wish to print to the screen.
;
; unimplemented because it's dependent on the video hardware but you get the idea</langsyntaxhighlight>
 
=={{header|Ada}}==
Line 56:
 
Example parent package specification:
<langsyntaxhighlight Adalang="ada">package parent is
function Add2 (X : in Integer) return Integer;
end parent;</langsyntaxhighlight>
Example parent package body:
<langsyntaxhighlight Adalang="ada">package body parent is
 
function Add2 (X : in Integer) return Integer is
Line 67:
end Add2;
 
end parent;</langsyntaxhighlight>
Example child package specification:
<langsyntaxhighlight Adalang="ada">package parent.child is
function Add2 (X : in Integer) return Integer;
end parent.child;</langsyntaxhighlight>
Example child package specification:
<langsyntaxhighlight Adalang="ada">with Ada.Text_IO; use Ada.Text_IO;
 
package body parent.child is
Line 83:
end Add2;
 
end parent.child;</langsyntaxhighlight>
The following program demonstrates calling both the Add2 function from the parent package and calling the Add2 function from the child package. The child package has visibility to the public portion of the parent package and can therefore call the parent's Add2 function directly.
<langsyntaxhighlight Adalang="ada">with parent.child;
with Ada.Text_IO; use Ada.Text_IO;
 
Line 99:
Result := parent.child.Add2 (Num);
Put_Line ("Result : " & Result'Image);
end Main;</langsyntaxhighlight>
{{output}}
<pre>
Line 118:
When a new feature introduces code scattered throughout the program, we can relate all the code together using a define and ifdefs.
 
<syntaxhighlight lang="c">
<lang c>
#define MY_NEW_FEATURE_ENABLED
 
Line 132:
close_my_new_feature();
#endif
</syntaxhighlight>
</lang>
 
As well as allowing us to enable or disable the feature at compile time, this also provides a way to find all the relevant code easily, by searching for the variable name.
Line 142:
An alternative macro method can be used in C, which is shorter for one-liners.
 
<syntaxhighlight lang="c">
<lang c>
/* Enable logging: */
/* #define LOG(x) printf("%s\n",x); */
Line 153:
 
...
</syntaxhighlight>
</lang>
 
===Using function pointers===
Line 161:
Here is a typical layout:
 
<langsyntaxhighlight lang="c">struct object {
struct object_operations *ops;
int member;
Line 168:
struct object_operations {
void (*frob_member)(struct object *obj, int how);
};</langsyntaxhighlight>
 
In this example, an object is constructed as an instance of <code>struct object</code> and the <code>ops</code> field is filled in with a pointer to an operations table of type <code>struct object_operations</code>. The object is usually dynamically allocated, but the operations table is often statically allocated, and the function pointers are statically initialized.
Line 174:
A call to the <code>frob_member</code> method, if coded by hand without the help of any macros or wrapper functions, would look like this:
 
<langsyntaxhighlight lang="c">pobj->frob_member(pobj, 42);</langsyntaxhighlight>
 
This representation opens the door to various possibilities. To gain control over all of the calls to an object, all we have to do is replace its <code>ops</code> pointer with a pointer to another operations structure of the same type, but with different function pointers.
Line 191:
 
[http://eprints.bbk.ac.uk/20835/1/csci2017.pdf An Aspect-Oriented Framework for F#]
 
=={{header|FreeBASIC}}==
FreeBASIC does not have any specific support for AOP.
 
=={{header|Go}}==
Line 201 ⟶ 204:
 
In as much as I am unable to see the differences between functional programming and aspect oriented programming (they are just that stealthy, from my point of view), I'll have to say that J is as aspect oriented as the capabilities of the programmer.
 
For example, the phrase <code>([echo)</code> prints a value to the screen but is otherwise an identity function. (We could replace <code>echo</code> with an arbitrarily elaborate logging statement if we wished.) And, we can insert this statement into the middle of an expression to gain insight into its progress.
 
Thus, <syntaxhighlight lang="text"> <-/p:i.5 NB. a mysterious expression
┌─┐
│8│
└─┘
<-/p:([echo)i.5 NB. show the right argument to p:
0 1 2 3 4
┌─┐
│8│
└─┘
<-/([echo)p:i.5 NB. show the right argument to -/
2 3 5 7 11
┌─┐
│8│
└─┘
<(-([echo))/p:i.5 NB. show the right arguments to -
11
_4
9
_6
┌─┐
│8│
└─┘
<(-~([echo))~/p:i.5 NB. show the left arguments to -
7
5
3
2
┌─┐
│8│
└─┘
<-&([echo)/p:i.5 NB. show both the right and left arguments to -
11
7
_4
5
9
3
_6
2
┌─┐
│8│
└─┘
<([echo)-/p:i.5 NB. show the right argument to <
8
┌─┐
│8│
└─┘</syntaxhighlight>
 
Or, generally speaking, J provides us with the ability to wrap arbitrary statements with information gathering statements while allowing the original expression to proceed. (And, if we enable debugging, this information gathering can examine the surrounding context, gathering and reporting information on the calling environment, inspecting the local symbol table, the names of routines, the defining script(s), etc.)
 
=={{header|Java}}==
 
Java has an aspect oriented programming library called [https://www.eclipse.org/aspectj/ AspectJ]. Aspects can create entry and exit intercepts on normal methods. In aspect language, features are called cross-cutting concerns.
 
=={{header|JavaScript}}==
Line 212 ⟶ 267:
=={{header|Julia}}==
Several of Julia's graphics frameworks use the idea of a backend for graphics, where the graphics module wraps and extends a lower level graphics framework. The use of one module to wrap another captures most of the ways in which aspect programming seems to be used. As an example, here we add logging to a module. Users of the Adder module can simply import the LogAspectAdder module instead of the Adder module to add logging to the functions of the Adder class.
<langsyntaxhighlight lang="julia">module Adder
exports add2
 
Line 234 ⟶ 289:
end
end
</syntaxhighlight>
</lang>
 
=={{header|Kotlin}}==
Line 249 ⟶ 304:
 
=={{header|Perl}}==
The CPAN module <code>Aspect<[https:/code>/metacpan.org/pod/Aspect Aspect] brings features of AOP to Perl. From the documention:
 
The Perl Aspect module tries to closely follow the terminology of the basic Java AspectJ project wherever possible and reasonable.
Line 270 ⟶ 325:
 
Actually, there is one way to instrument (specific) calls without modifying the existing code. Suppose you have somelib.e, containing:
<!--<langsyntaxhighlight Phixlang="phix">(phixonline)-->
<span style="color: #008080;">global</span> <span style="color: #008080;">procedure</span> <span style="color: #000000;">saysomething</span><span style="color: #0000FF;">()</span>
<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"something\n"</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>
<!--</langsyntaxhighlight>-->
Then write wraplib.e as follows:
<!--<langsyntaxhighlight Phixlang="phix">-->
<span style="color: #008080;">without</span> <span style="color: #008080;">js</span>
<span style="color: #008080;">include</span> <span style="color: #000000;">somelib</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span> <span style="color: #008080;">as</span> <span style="color: #000000;">somelib</span>
Line 284 ⟶ 339:
<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"thingwrap\n"</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>
<!--</langsyntaxhighlight>-->
And replace all (existing) "include somelib.e" with "include wraplib.e". Hopefully there will be (and usually there is) only one.
 
Line 292 ⟶ 347:
 
Personally, while I might begrudgingly accept that sort of thing for the occasional quick 'n dirty, or a temporary debug aid, I am strongly opposed to it being permanent, and instead strongly believe '''code should do what it says it does''', no more and no less. For easy toggling, my own code tends to be littered with things like:
<!--<langsyntaxhighlight Phixlang="phix">(phixonline)-->
<span style="color: #008080;">global</span> <span style="color: #008080;">constant</span> <span style="color: #000000;">NEWFEATURE</span> <span style="color: #0000FF;">=</span> <span style="color: #004600;">true</span>
<span style="color: #0000FF;">...</span>
<span style="color: #008080;">if</span> <span style="color: #000000;">NEWFEATURE</span> <span style="color: #008080;">then</span> <span style="color: #0000FF;">...</span>
<!--</langsyntaxhighlight>-->
I also actually favour explicit shims, almost exactly what the task is asking for a way to avoid doing, such as
<!--<langsyntaxhighlight Phixlang="phix">(phixonline)-->
<span style="color: #008080;">function</span> <span style="color: #000000;">my_length</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">return</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
<!--</langsyntaxhighlight>-->
and manually edit every single call, again so that any future (/temporary) changes are quick, easy & obvious.<br>
Also note the latter is compatible with p2js, whereas namespaces are not.
 
=={{header|Prolog}}==
Phil Hargett [https://github.com/hargettp/aop/ AOP library] introduces an aspect-like framework for Prolog.
 
AOP for Prolog is also introduced on [https://bigzaphod.github.io/Whirl/dma/docs/aspects/aspects-man.html this web page].
 
=={{header|Python}}==
Line 323 ⟶ 383:
 
For example:
<langsyntaxhighlight lang="tcl">oo::class create InterceptAspect {
filter <methodCalled>
method <methodCalled> args {
Line 342 ⟶ 402:
puts ">>[xmpl calculate 2 3 5]<<"
oo::objdefine xmpl mixin InterceptAspect
puts ">>[xmpl calculate 2 3 5]<<"</langsyntaxhighlight>
{{out}}
>>22<<
Line 358 ⟶ 418:
Notice also that a client can still import the ''wrapped'' class via the ''wrapper'' module which enables it to call ''unwrapped'' methods without the need to import the ''wrapped'' module as well. To expand the Julia example a little:
 
<langsyntaxhighlight ecmascriptlang="wren">/* adder.wren */
 
class Adder {
Line 364 ⟶ 424:
 
static mul2(x) { x * 2 }
}</langsyntaxhighlight>
 
<langsyntaxhighlight ecmascriptlang="wren">/* logAspectAdder.wren */
 
import "./adder" for Adder
 
var Start = System.clock // initialize timer for logging
Line 382 ⟶ 442:
return Adder.add2(x)
}
}</langsyntaxhighlight>
 
<langsyntaxhighlight ecmascriptlang="wren">/* adderClient.wren */
 
import "./logAspectAdder" for LogAspectAdder, Adder
 
var a = LogAspectAdder.add2(3)
var m = Adder.mul2(4)
System.print("3 + 2 = %(a)") // logged
System.print("4 * 2 = %(m)") // not logged</langsyntaxhighlight>
 
{{out}}
Line 403 ⟶ 463:
{{omit from|360 Assembly}}
{{omit from|6502 Assembly}}
{{omit from|68000 Assembly}}
{{omit from|8051 Assembly}}
{{omit from|8080 Assembly}}
{{omit from|8086 Assembly}}
{{omit from|68000 Assembly}}
{{omit from|AArch64 Assembly}}
{{omit from|ARM Assembly}}
9,476

edits