Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, TACL

F–2 46958 Tandem Computers Incorporated

?SECTION dns^ssputv ROUTINE

== Jacket routine for #SSPUTV:

== dns^ssputv <buffer-variable> <map-variable> <value-variable>

#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]

#SET l^status [#SSPUTV [l^buffer^symbol] [l^token^symbol]

[l^value^symbol]]

[#IF [l^status] |THEN|

[dns^spierr SSPUTV l^status]

]

#UNFRAME

?SECTION dns^ssput ROUTINE

== Jacket routine for #SSPUT:

== dns^ssputv <buffer-variable> <token-code> <value-variable>