declaration - Ada: Access types and invalid completion with records -


i'm learning ada , using book rendez-vous ada naiditch (1995). on page 385, example given package specification file incomplete type declaration:

package restaurant_linked_list     subtype name_type string (1..20);    type restaurant_record private;     procedure add_to_list (new_entry: in restaurant_record);    procedure (new_restaurant: out restaurant_record);    procedure delete_from_list (target: in name_type);    procedure search_list (target: in name_type);    procedure output_list;     private       type ethnicity (chinese, japanese, french, korean, mexican, italian, jewish, american, german);       subtype price_type float range 0.0 .. 150.0;       type restaurant_record; -- incomplete type declaration       type restaurant_pointer access restaurant_record;       type restaurant_record -- complete type declaration         record            name: name_type;            food: ethnicity;            average_price: price_type;            next: restaurant_pointer;         end record;  end restaurant_linked_list;

however on compilation of primary unit -gnat95 switch, error message:

15:11 invalid completion of private type "restaurant_record" defined @ line 4

where line 15 line: type restaurant_record; -- incomplete type declaration.

naiditch proposed above workaround have pointer (restaurant_pointer) component of type of object can point written on page 384 in book.

so how fix above code?

thank you.

the declaration @ line 4 enough allow declare restaurant_pointer. delete line 15.


-

Comments

Post a Comment

Popular posts from this blog

php - regexp cyrillic filename not matches -

i take list of files php glob(."*.pdf") . files have cyrillic names. example: ООО «Рога и копыта» then load company names database , try find them in file names: preg_match("/$firm_name/ui", $file_name, $match); i have problem: firms if $firm_name visually similar $file_name , preg_match says there no match. mb_detect_encoding both variables return utf-8. there problem in file name, or maybe there encoding or something, can not understand, ask help. upd: $file_name='ООО «Рога и копыта»'; preg_match("/... .Рога и копыта./ui", $file_name, $match); as result, ОО «Рога и копыта» , 1 О missing
Read more

c# - OpenXML hanging while writing elements -

Image
i have program pulls data database, caches file , exports data multiple formats (excel, excel 2003, csv). i'm using openxml sdk 2.0 excel work. these export processes run in parallel (using parallel.foreach ), , amount of data can pretty large - e.g. csvs 800mb. during these larger exports, i've noticed writing of xml documents hang. instance, if have 8 exporting in parallel, @ point "pause". hang around same point: //this.writer openxmlwriter created worksheetpart. this.writer.writeelement(new cell() { cellvalue = new cellvalue(value), datatype = cellvalues.string }); when happens, pause debugger (vs2013 in case) , notice threads blocking around same portion of code - bit deeper in openxml sdk - stem call openxmlwriter.writeelement . i dug through source using justdecompile didn't find answers. appears there intermediary stream in use writing isolated storage , is, reason, blocking. underlying stream each of these filestream . here screenshot ...
Read more

sql - Select Query has unexpected multiple records (MS Access) -

i may tired, can't seem figure out happening. have 2 queries. query 1 has 10 fields. query 2 has 5 fields. fields 1 through 3 same in both queries. trying write select query , simple add field 5 query2 query1 result should query1 additional field (query2.field5). i join first 3 fields both queries , choose select records in query1 , in query2 match. don't know sql, use query designer. expect same number of records have query 1 instead have 3 times or more. can tell me doing wrong. tried reversing joins still seem same records. thanks in advance. here query: the fields in common divisionname , supplierid = vendorid , commodityname . select [part revenue exposed query p1].divisionname, [part revenue exposed query p1].commodityname, [part revenue exposed query p1].suppliername, [part revenue exposed query p1].partnumber, [part revenue exposed query p1].partdescription, [part revenue exposed query p1].bucode, ...
Read more