Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, TACL
F–8 46958 Tandem Computers Incorporated
|2| #SET l^aliastype
]
==
== Get <domain>, if any.
==
[#CASE [#ARGUMENT/VALUE l^domain/ VARIABLE/SYNTAX, UNQUALIFIED/ COMMA]
|1| [#IF [#VARIABLEINFO/EXISTENCE/ [l^domain]] |THEN|
#SET l^domain [#VARIABLEINFO/VARIABLE/ [l^domain]]
]
SINK [#ARGUMENT COMMA]
|2| #SET l^domain
]
==
== Get <reftype>.
==
SINK [#ARGUMENT/VALUE l^reftype/ NUMBER]
==
== Eat comma.
==
SINK [#ARGUMENT COMMA]
==
== Get <ssobject>, if any.
==
[#CASE [#ARGUMENT/VALUE l^ssobj/ COMMA WORD]
|1| #SET l^ssobj
|2| SINK [#ARGUMENT COMMA]
]
==
== Get <ssmanager>, if any.
==
[#CASE [#ARGUMENT/VALUE l^ssmgr/ FILENAME/SYNTAX/ END]
|1| SINK [#ARGUMENT END]
|2| #SET l^ssmgr
]
==
== Initialize ADD ALIAS parameter.
==
[dns^ssnull zdns^map^add^alias l^param]
==
== Build ADD ALIAS parameter.
==