diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-01-26 10:42:04 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-01-26 10:42:04 +0100 |
| commit | ebd34478e30a770aa741cf345f08278090770ded (patch) | |
| tree | a7c7f6dd56455799bb7e32780d5f809be7a4beb6 /gcc/ada/g-regist.ads | |
| parent | d0709b6aeec6b00e71011502fa311751fc138147 (diff) | |
| download | gcc-ebd34478e30a770aa741cf345f08278090770ded.zip gcc-ebd34478e30a770aa741cf345f08278090770ded.tar.gz gcc-ebd34478e30a770aa741cf345f08278090770ded.tar.bz2 | |
[multiple changes]
2010-01-26 Robert Dewar <dewar@adacore.com>
* s-commun.ads, s-osprim-mingw.adb, s-stchop-vxworks.adb, sem_aggr.adb,
s-vxwext.adb, sem_ch10.adb, sem_eval.adb, sem_prag.adb: Minor
reformatting.
2010-01-26 Vasiliy Fofanov <fofanov@adacore.com>
* g-regist.adb, g-regist.ads (For_Every_Key): New generic procedure
that allows to iterate over all subkeys of a key.
2010-01-26 Ed Falis <falis@adacore.com>
* sysdep.c: enable NFS for VxWorks MILS
* env.c: enable __gnat_environ for VxWorks MILS
* gcc-interface/Makefile.in: Add VxWorks MILS target pairs.
From-SVN: r156233
Diffstat (limited to 'gcc/ada/g-regist.ads')
| -rw-r--r-- | gcc/ada/g-regist.ads | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/gcc/ada/g-regist.ads b/gcc/ada/g-regist.ads index d7488a9..52dc6aa 100644 --- a/gcc/ada/g-regist.ads +++ b/gcc/ada/g-regist.ads @@ -110,6 +110,19 @@ package GNAT.Registry is generic with procedure Action + (Index : Positive; + Key : HKEY; + Key_Name : String; + Quit : in out Boolean); + procedure For_Every_Key (From_Key : HKEY; Recursive : Boolean := False); + -- Iterates over all the keys registered under From_Key, recursively if + -- Recursive is set to True. Index will be set to 1 for the first key and + -- will be incremented by one in each iteration. The current key of an + -- iteration is set in Key, and its name - in Key_Name. Quit can be set + -- to True to stop iteration; its initial value is False. + + generic + with procedure Action (Index : Positive; Sub_Key : String; Value : String; @@ -126,6 +139,9 @@ package GNAT.Registry is -- with this case. Furthermore, if Expand is set to True and the Sub_Key -- is a REG_EXPAND_SZ the returned value will have the %name% variables -- replaced by the corresponding environment variable value. + -- + -- This iterator can be used in conjunction with For_Every_Key in + -- order to analyze all subkeys and values of a given registry key. private |