22 Mar
2023
22 Mar
'23
2:05 p.m.
I have been playing around with AI as well and asked chatGPT to write code for a simple
database in OpenVMS Ada. Heres what it gave me.
******* ChatGPT *******
Here's an example of how to create a simple database in OpenVMS Ada using indexed
files:
with ada.text_io, ada.integer_text_io, ada.direct_io;
procedure simple_database is
type record_type is record
name : string(1..20);
age : integer;
end record_type;
type record_array_type is array(1..100) of record_type;
file_type : file of record_type;
record_array : record_array_type;
procedure write_record(i : integer) is
begin
ada.text_io.put("Enter name: ");
ada.text_io.get_line(record_array(i).name);
ada.text_io.put("Enter age: ");
ada.integer_text_io.get(record_array(i).age);
ada.direct_io.write(file_type, record_array(i));
end write_record;
procedure read_record(i : integer) is
record : record_type;
begin
ada.direct_io.read(file_type, record);
record_array(i) := record;
end read_record;
begin
ada.direct_io.create(file_type, "mydb.dat");
for i in 1..100 loop
write_record(i);
end loop;
ada.direct_io.close(file_type);
ada.direct_io.open(file_type, "mydb.dat");
for i in 1..100 loop
read_record(i);
end loop;
ada.direct_io.close(file_type);
for i in 1..100 loop
ada.text_io.put_line(record_array(i).name & " " &
record_array(i).age'img);
end loop;
end simple_database;
This example creates a file called "mydb.dat" and writes 100 records to it, each
containing a name and an age. It then reads the records back into an array and prints them
to the console. Note that this example uses direct I/O to read and write to the file, but
you could also use sequential I/O if you prefer. Additionally, you may need to modify the
code to include error handling or other features depending on your specific requirements.
****** End ChatGPT ******
Pretty slick
Brian.
On Wednesday, March 22, 2023 at 04:48:03 AM EDT, Supratim Sanyal
<supratim(a)riseup.net> wrote:
I asked Bard to “Write a song about digital equipment corporation’s DECnet network”. The
AI is surprising, the ending surreal.
(Verse 1)Digital Equipment Corporation,DECnet was your creation.A suite of network
protocols,To connect your computers.
(Chorus)DECnet, DECnet,It was the best network around.DECnet, DECnet,It connected us all.
(Verse 2)You could connect your PDP-11s,To your VAX/VMS machines.You could share files and
printers,And communicate with ease.
(Chorus)DECnet, DECnet,It was the best network around.DECnet, DECnet,It connected us all.
(Bridge)But then the internet came along,And DECnet fell out of favor.But it will always
be remembered,As the network that connected us all.
(Chorus)DECnet, DECnet,It was the best network around.DECnet, DECnet,It connected us all.
_______________________________________________
HECnet mailing list -- hecnet(a)lists.dfupdate.se
To unsubscribe send an email to hecnet-leave(a)lists.dfupdate.se
