Михаил Лермонтов «Выхожу один я на дорогу...» на языке Transact-SQL

Use Lermontov
GO

//один я
ALTER TABLE characters
ADD CONSTRAINT me_1 UNIQUE (name)
GO

//Выхожу на дорогу
SELECT INTO [Дорога]
FROM Charaters
WHERE name = 'me'

GO

//Сквозь туман кремнистый путь блестит;
UPDATE Video_configuration
SET is_mist = true,
mist_opacity = 50,
texture_type_id = (SELECT texture_type_id
FROM textures
WHERE name = 'silicon way'),
texture_blinking = true

GO
// Ночь тиха.
UPDATE Audio_configuration
SET volume = 0
WHERE is_night = true

GO

//Пустыня внемлет богу,
--начинается самое интересное
CREATE ENDPOINT Desert_listening
STATE = STARTED
AS TCP ( LISTENER_PORT = 5022 )
FOR GOD_LISTENING(
AUTHENTICATION = PETER APOSTLE,
ENCRYPTION = SUPPORTED,
ROLE=DESERT)
ALTER DATABASE Lermontov SET PARTNER = 'TCP://HEAVEN.GOD.COM:5022'

GO

USE God
CREATE ENDPOINT Iddqd
STATE = STARTED
AS TCP ( LISTENER_PORT = 5022 )
FOR GOD_LISTENING(
AUTHENTICATION = PETER APOSTLE,
ENCRYPTION = SUPPORTED,
ROLE=GOD)
GO

ALTER DATABASE God SET PARTNER = 'TCP://DESERT.NOT.FOOD.COM:5022'

GO

//И звезда с звездою говорит.
Use master
ALTER DATABASE Lermontov SET ENABLE_BROKER
USE Lermontov
GO

CREATE MESSAGE TYPE
[//FirstStar/StarMessages/FirstStarSML] -- SML - Star Markup Language, а вы как думали?
VALIDATION = WELL_FORMEDSML ;
GO


CREATE MESSAGE TYPE
[//FirstStar/StarMessages/SecondStarSML]
VALIDATION = WELL_FORMED_SML ;
GO

CREATE CONTRACT
[//FirstStar/Dialogs/StarDialogContract]
(
[//FirstStar/StarMessages/FirstStarSML]
SENT BY INITIATOR,
[//FirstStar/StarMessages/SecondStarSML]
SENT BY TARGET
) ;
GO

CREATE QUEUE STARQueue ;
GO


CREATE SERVICE [//FirstStar/DialogClient]
ON QUEUE StarQueue
([//FirstStar/Dialogs/StarDialogContract];
GO

CREATE SERVICE [//SecondStar/DialogClient]
ON QUEUE StarQueue
([//FirstStar/Dialogs/StarDialogContract];
GO

DECLARE @star_dialog_handle UNIQUEIDENTIFIER ;

BEGIN DIALOG CONVERSATION @star_dialog_handle
FROM SERVICE [//FirstStar/DialogClient]
TO SERVICE '//SecondStar/DialogClient',
'a326e034-d4cf-4e8b-8d98-4d7e1926c904'
ON CONTRACT [//FirstStar/Dialogs/StarDialogContract]

Перевод Станислава Когана