X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=Ada95%2Fsamples%2Fncurses2-getopt.ads;h=09d997cf816c4ddadd1e7e43b3456041d92022b4;hp=0bd6952a7bb9244211644fe358612d510220efcb;hb=f259fb41d8f08b7e042eb928b839b59c8e39098c;hpb=46722468f47c2b77b3987729b4bcf2321cccfd01 diff --git a/Ada95/samples/ncurses2-getopt.ads b/Ada95/samples/ncurses2-getopt.ads index 0bd6952a..09d997cf 100644 --- a/Ada95/samples/ncurses2-getopt.ads +++ b/Ada95/samples/ncurses2-getopt.ads @@ -7,7 +7,8 @@ -- B O D Y -- -- -- ------------------------------------------------------------------------------ --- Copyright (c) 2000 Free Software Foundation, Inc. -- +-- Copyright 2020 Thomas E. Dickey -- +-- Copyright 2000,2006 Free Software Foundation, Inc. -- -- -- -- Permission is hereby granted, free of charge, to any person obtaining a -- -- copy of this software and associated documentation files (the -- @@ -35,7 +36,8 @@ ------------------------------------------------------------------------------ -- Author: Eugene V. Melaragno 2000 -- Version Control --- $Revision: 1.1 $ +-- $Revision: 1.3 $ +-- $Date: 2020/02/02 23:34:34 $ -- Binding Version 01.00 ------------------------------------------------------------------------------ package ncurses2.getopt is @@ -45,7 +47,6 @@ package ncurses2.getopt is type stringfunc is access function (n : Positive) return String; - procedure Qgetopt (retval : out Integer; argc : Integer; argv : stringfunc; @@ -56,4 +57,5 @@ package ncurses2.getopt is Optarg : out stringa -- a garbage collector would be useful here. ); + end ncurses2.getopt;