Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, TACL
46958 Tandem Computers Incorporated F–3
?SECTION dns^ssgetv ROUTINE
==
== Jacket routine for #SSGETV:
==
== dns^ssgetv <buffer-variable> <map-variable> <value-variable>
==
== Always gets the first occurrence of the structured token.
==
#FRAME
#PUSH l^buffer^symbol
#PUSH l^token^symbol
#PUSH l^value^symbol
#PUSH l^status
SINK [#ARGUMENT/VALUE l^buffer^symbol/ VARIABLE]
SINK [#ARGUMENT/VALUE l^token^symbol/ VARIABLE]
SINK [#ARGUMENT/VALUE l^value^symbol/ VARIABLE]
#SETMANY l^status , [#SSGETV /INDEX 1/
[l^buffer^symbol]
[l^token^symbol]
[l^value^symbol]]
[#IF [l^status] |THEN|
dns^spierr SSGETV l^status
]
#UNFRAME
?SECTION dns^ssinit ROUTINE
==
== Jacket routine for #SSINIT:
==
== dns^ssinit <buffer-variable> <command-number> <object-type>
==
#FRAME
#PUSH l^buf^symbol
#PUSH l^cmd
#PUSH l^obj
#PUSH l^status
SINK [#ARGUMENT /VALUE l^buf^symbol/ VARIABLE]
SINK [#ARGUMENT /VALUE l^cmd/ NUMBER]
SINK [#ARGUMENT /VALUE l^obj/ NUMBER]