Re: Help needed for ada package


<strictly_mk@xxxxxxxxxxx> wrote in message
news:1122305318.728942.304120@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> To anyone interested,
>
> I very urgently need this ada 95 package written for me and I am
> willing to pay anyone for their time. Here is the specification;
>
> The is supposed to be a basic database to monitor a group of made up
> citizens and their badness rating.
>
> generic
> type ID is (<>); --some discrete type to be put here
> package POP is
> --update database
> type Rating is new Integer range 0..255;
> procedure Rate (Citizen : in ID;
> Badness : in Rating);
> procedure Associate (Citizen_1, Citizen_2 : in ID);
> --query the database
> function Most_Dangerous return ID;
> function Next_Member return ID;
> function More_In_Group return Boolean;
> --administrative
> procedure reset;
> end POP;
>

Sorry I don't have enough time to write the whole thing write now, but
here's a start (maybe someone else will step in to fill in another routine):

with Ada.Unchecked_Deallocation;
package body POP is

type
RO0O is record lll1 : ID; ll1l : Rating; end record; type
ROO0 is array( positive range <> ) of
RO0O; type R0OO is access all ROO0;

procedure RO00 is new Ada.Unchecked_Deallocation( ROO0, R0OO );

R00O : R0OO; R0O0 : Natural := 0;

procedure Associate (Citizen_1, Citizen_2 : in ID) is
begin
null;
end Associate;

function More_In_Group return Boolean is
begin
return More_In_Group;
end More_In_Group;

function Most_Dangerous return ID is
begin
return Most_Dangerous;
end Most_Dangerous;

function Next_Member return ID is
begin
return Next_Member;
end Next_Member;

procedure Rate
(Citizen : in ID; Badness : in Rating) is begin
if R0O0 = 0 then R00O := new ROO0( 1 .. 100 ); end if;
if R0O0 + 1 > R00O.all'length then
declare R000 : R0OO; begin R000 := new
ROO0( 1 .. R0O0 + 100 ); R000.all( 1 .. R0O0 ) :=
R00O.all( 1 .. R0O0 ); RO00( R00O ); R00O :=
R000; end; end if; R0O0 := R0O0 + 1;
R00O( R0O0 ).lll1 := citizen; R00O( R0O0 ).ll1l := badness; end
Rate;

procedure reset is
begin
null;
end reset;

end POP;

Steve
(The Duck)


>
> You cannot change this specification in any way other than to insert
> the appropriate type for ID;
> As you can see this is supposed to be a database package, it should not
> however do any input or output to the screent as the GUI is being
> designed by someone else.
>
> Rate is supposed to enter a citizen with his/her ID (integer) and their
> badness (integer) into the database.
> Associate is used to tell the database two citizens are associated to
> be in the same group.
> Most_Dangerous is supposed to return the citizen with the highest
> badness rating. This function can do anything if the database is empty.
> Next_Member reports a previously unreported member of the group to
> which the most dangerous citizen belongs. This function can do anything
> if the there are no more unreported members.
> More_In_Group which is true exactly when there are unreported members
> of the group to which the most recently reported most dangerous citizen
> belongs. This function can do anything if there is no previous call to
> Most_Dangerous.
> The procedure rest resets the database to its original state.
>
> There will be no more than 1 million citizens entered. Updates should
> be optimised at the expense of queries. Do not worry too much about
> error handling.
>
> The program is supposed to be compiled on gnat. I require both the code
> and a compiled file.
>
> Again, if anyone is interested I'm willing to pay for your services.
>


.

Relevant Pages

  • Help needed for ada package
    ... I very urgently need this ada 95 package written for me and I am ... The is supposed to be a basic database to monitor a group of made up ... Associate is used to tell the database two citizens are associated to ... if anyone is interested I'm willing to pay for your services. ...
    (comp.lang.ada)
  • Re: Ping Howard
    ... staff to go out and do the collecting, and if this database is as goosed as ... Also transit reading' of ID, monitoring passing motorists, pedestrians who ... address, which will work for honest citizens whose chip was misread, but not ...
    (uk.business.agriculture)
  • Re: [Full-Disclosure] [SHATTER Team Security Alert] Multiple vulnerabilities in Oracle Database Serv
    ... Multiple vulnerabilities in Oracle Database Server ... > and Esteban Martinez Fayo of Application Security, ... > DBMS_REPCAT package ...
    (Full-Disclosure)
  • Re: perl MySQL using DBI - security issue
    ... Not sure if it's the best way, but the way I do it is to have that data stored in a config file that is owned by a dummy user and only readable by that user. ... All programs that need the database then have to be setuid that dummy user and then use the database package, 'drop' privs and then exit if privs can be regained. ... Allowing people to use these your DB-based code as libraries now requires you to vett the code since your users can't setuid their scripts to the dummy user. ...
    (comp.lang.perl.misc)
  • Re: Setting table links with runtime installation.
    ... allow the end user to locate the BE data file is incomplete. ... distribute a single file instead of a split database. ... >>> the same folder. ... when I use the packaging wizard to package ...
    (microsoft.public.access.devtoolkits)