sutasu ([info]sutasu) wrote,
@ 2007-10-22 00:10:00
Previous Entry  Add to memories!  Tell a Friend!  Next Entry
Use Lermontov
Перевод первого четверостишья известного произведения на язык Transact-SQL. Будем ждать выхода MS SQL Server Poetry Editon, поддерживающего такие конструкции:


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




(Post a new comment)


[info]nevmenandr
2007-10-21 08:09 pm UTC (link)
в мемориз.

(Reply to this) (Thread)


[info]sutasu
2007-10-21 08:14 pm UTC (link)
SELECT BUGAGA()
ой, что это я. Volume для is_night же все равно равен 0. :)

(Reply to this) (Parent)


Create an Account
Forgot your login or password?
Login w/ OpenID
English • Español • Deutsch • Русский…