oop - How to implement interface in Ada? -

-

dont know oop pattern called how can same pattern in ada? example code:

interface vehicle{     string function start(); }  class tractor implements vehicle{     string function start(){         return "tractor starting";     } } class car implements vehicle{     string function start(){         return "car  starting";     } }  class testvehicle{     function testvehicle(vehicle vehicle){         print( vehicle.start() );     } } new testvehicle(new tractor); new testvehicle(new car);

my failed attempt in ada: how fix properly?

with ada.text_io;  procedure main     package packagevehicle       type vehicle interface;       function start(self : vehicle) return string abstract;    end packagevehicle;     type tractor new packagevehicle.vehicle null record;    overriding -- optional    function start(self : tractor) return string    begin       return "tractor starting!";    end start;    type car new packagevehicle.vehicle null record;    overriding -- optional    function start(self : car) return string    begin       return "car starting!";    end start;      procedure testvehicle(vehicle : packagevehicle.vehicle)    begin       ada.text_io.put_line( "testing vehicle" );       ada.text_io.put_line( start(vehicle) );    end;     tractor0 : tractor;    car0 : car;  begin     ada.text_io.put_line( testvehicle(tractor0) );    ada.text_io.put_line( testvehicle(car0) );  end main;

compiler says: builder results warning: declaration of "testvehicle" late builder results warning: spec should appear after declaration of "vehicle"

the key thing aware of "all user-defined primitive subprograms of interface type shall abstract subprograms or null procedures." (ref) i.e. can't define subprogram takes interface parameter (yes, know different java.) why you're getting error on testvehicles declaration.

essentially, have define type implements interface(s), work type.

the ada rationale chapter on interfaces discusses in detail.

here's working example based on question--i renamed things , fixed couple errors getting lost amongst error messages seeing :-) note addition of type 'concrete_vehicles' instantiates vehicle interface.

with ada.text_io; use ada.text_io;  procedure interface_test     package package_vehicle        type vehicle interface;        function start(self : vehicle) return string abstract;    end package_vehicle;      type concrete_vehicles abstract new package_vehicle.vehicle null record;      type tractor new concrete_vehicles null record;     overriding -- optional    function start(self : tractor) return string    begin       return "tractor starting!";    end start;     type car new concrete_vehicles null record;    overriding -- optional    function start(self : car) return string    begin       return "car starting!";    end start;      procedure testvehicle(vehicle : concrete_vehicles'class)    begin       ada.text_io.put_line( "testing vehicle" );       ada.text_io.put_line( start(vehicle) );    end;     tractor0 : tractor;    car0 : car;  begin    testvehicle(tractor0);   testvehicle(car0);  end interface_test;

compiling , running:

[22] marc say: gnatmake interface_test.adb gcc -c interface_test.adb gnatbind -x interface_test.ali gnatlink interface_test.ali [23] marc say: ./interface_test testing vehicle tractor starting! testing vehicle car starting!

Comments

Post a Comment

Popular posts from this blog

Perl - how to grep a block of text from a file -

-
it can in xml or text format. how in general grep block of text in perl? <track type="ws"> <range> <rangestart>0</rangestart> <rangeend>146.912</rangeend> <locationindex>0</locationindex> <propertyindex>0</propertyindex> </range> </track> <track type="ps" id="1"> <range> <rangestart>0</rangestart> <rangeend>146.912</rangeend> <locationindex>1</locationindex> <propertyindex>1</propertyindex> </range> </track> i want grep type="ps" , till </range> . one solution open file, read line line , match block. open(fh, "file.txt"); foreach $line (<fh>) { if ($line =~ m/type="cc"(.*?)<\/range>/) { print $1; } } but there more optimal solution without reading file line l
Read more

delphi - How to remove all the grips on a coolbar if I have several coolbands? -

-
Image
if set mycoolbar.fixedorder true,only grip on first band hidden. well,if use delphi 7 create vcl forms application,then put coolbar on , create 3 coolbans hold other controls,only grip , top coolbands can hidden setting mycoolbar.fixedorder:=true. i've uploaded picture make things clear. you got fixedorder property wrong. fixed property not allow bands rearranged if set true . setting property of coolbar true keep user changing bands order @ runtime, user can still move , resize bands. can give advice can do, actual solution problem, well, have wait answer. my advice use 3 coolbars in row , setting "fixedorder" property true , bandborderstyle bsnone . way grip hidden on of them. about property, it's not bug of ide, actual preference of property.
Read more

javascript - Animating array of divs; only the final element is modified -

-
this baffling me @ moment. i'm experienced programmer looking throw bit of surprise fiancee on countdown page our wedding. desired effect simulated confetti falling behind main page. setup follows: i have array of divs in javascript. each div absolutely positioned on page. have interval set updates every 50 or milliseconds. on each tick, run loop on array of divs, , calculations , update positions. problem problem having, however, though can see divs created, stored array, , modified (in case, each has slight randomized rotation) during initialization phase, once tick update position starts, div stored in whatever last slot of array gets position updated. tried hard-coding each div index testing purposes, strictly last element update position. upon printing current "left" , "top" style values each div before , after calculations shows value has been changed, no visible change noticeable. here's basic code: javascript var container;
Read more