Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, TACL
46958 Tandem Computers Incorporated F–17
[#LOOP |DO|
dns^lookup^2
|UNTIL| [l^done]
]
==
== If we get this far, we've seen one or more names, but none of them
== match the passed <type-list>.
==
[#IF NOT l^have^response |THEN|
#OUTPUT *** [l^name] exists in the DNS Database but is not one of
the #OUTPUT types you requested
#RAISE dns_exception
]
==
== Tell the user what type of name we found.
==
#OUTPUT [#CASE [l^response:zdnstype]
|2| ALIAS
|3| ALIASTYPE
|4| COMPOSITE
|5| COMPOSITETYPE
|8| DOMAIN
|9| GROUP
|10| SS
|11| SSMANAGER
|12| SSOBJECT
|13| SSTYPE]
#UNFRAME
?SECTION dns^lookup^2 MACRO
==
== Main lookup loop for dns^lookup:
== send INFO NAME request to the name manager.
==
dns^send l^request^buf l^response^buf [l^continue]
==
== Examine each response.
==
#SET l^done^1 -1
[#LOOP |WHILE| [l^done^1] |DO|
dns^lookup^3
]
?SECTION dns^lookup^3 MACRO