Про динамическую типизацию

[thedeemon]

Поразжигал немного в комментах у ребе Б. рознь к социальной группе "ленивые авторы языков". Чтобы не излагать свою позицию каждый раз заново, сохраню сюда.

Знаете, некоторые печальные даты надолго остаются в памяти людей: 11 сентября, 17 августа, 1917-й год, 1941-й. К ним стоит добавить 1995-й - год появления JavaScript, PHP, Ruby, ну и Java тоже. Кому-то захотелось по-быстрому добавить динамизма в веб-странички, и он за пару недель наговнякал интерпретатор, встроив его в браузер Netscape. Кому-то захотелось оживить свою домашнюю страничку, добавить счетчик посетителей, еще что-то, и он на коленке сделал такой вот изменятель страничек на стороне сервера. О больших проектах тогда никто не думал, personal home page назывался тот изменятель. А когда делаешь интерпретатор, проще всего сделать его на динамической типизации. Это банально очень просто. О системе типов вообще можно не задумываться, не говоря уже об их выводе. К сожалению, на фоне тогдашнего мейнстрима (Си, ранние плюсы, что там еще было?) эти скриптовые языки выглядели очень выигрышно, писать мелкие куски кода на них было намного проще. Что такое нормальная система типов тогда мало кто знал: хаскель был еще в пеленках, ML'и традиционно не выходили из университетов. Так что люди эти скрипты подхватили, стали добавлять все новые функции. Менять систему типов стало поздно. В итоге выросло то, что выросло. С тех пор одна масса людей занята тем, чтобы делать все более сложные интерпретаторы, которые бы не так тормозили, другая масса придумывает 121-й способ добавить в JS типы, а третья на динамических языках пишет и плачет в бложиках о том, как грустно им делается. И проблема не только и не столько в скорости, сколько в maintainability кода и усилиях на необходимые тестирование и отладку при росте проектов.

Единственная реальная причина появления динамически типизированных языков - лень и недальновидность авторов. Эволюционно динамические языки - тупиковая ветвь, хоть они и обречены рождаться вновь и вновь просто потому что их делать проще, а делать языки люди любят. Сегодняшняя популярность некоторых из них - случайность, исторический казус, следствие контраста между этими языками и мейнстримом начала 90-х. То, что много идиотов используют идиотские языки, говорит лишь о том, что идиотов много. Сегодня, когда есть языки с нормальной статической системой типов, никаких реальных преимуществ у динамической больше нет. Только я имею в виду действительно нормальные статически типизированные языки - как минимум с параметрическим и ad hoc полиморфизмами, с выводом типов. Не Си с джавой. Хаскель, окамл, скала - такого уровня. У этих конкретных языков могут быть свои проблемы, часто инфраструктурные, но речь сейчас не о них, речь о динамической vs. статической типизации в целом.

Comments

[levgem.livejournal.com]

А как здесь добавить роутинг запроса по урлу и отдачу кастомного хедера?

[dmzlj.livejournal.com]

путём использования API. Например


с помощью API.

ну вот, например, ответ на вопрос N1:

module Main where

import Control.Monad
import Happstack.Server (nullConf, simpleHTTP, ok, dir)

main :: IO ()
main = simpleHTTP nullConf $ msum [ dir "hello"    $ ok "Hello, World!"
                                  , dir "goodbye"  $ ok "Goodbye, World!"
                                  ]

и на второй вопрос --- код грязноват и я его не компилировал.
но точно setHeader устанавливает header.

module Main where

import Control.Monad
import Happstack.Server (nullConf, simpleHTTP, ok, dir)

main :: IO ()
main = simpleHTTP nullConf $ msum [ dir "hello"    $ ok "Hello, World!"
                                  , dir "goodbye"  $ ok $ setHeader "Content-type" "text/plain $ "Goodbye, World!"
                                  ]

есть и более навороченные способы роутинга, равно как и фреймворк не один

[levgem.livejournal.com]

Ага, Т.е. setHeader — это метод, вызываемый на спрятанном this и выставляющий хедер.

Ясно.

А можно попросить монаду отдать состояние? Сделать что-то типа:

$ ok $ if getHeader "Content-Type" == nil then set Header "Content-Type" "text/plain" $

Как это будет выглядеть?

[dmzlj.livejournal.com]

а могу я постить куски из своего проекта, а не пытаться писать приложение с нуля? потому что с нуля фигня получается --- надо как-то вот брать, вникать и писать.

если кусок из приложения, где уже много всего наворочено, то примерно так:

listEntity :: AppRoot -> String -> MyServerPartT Response 
listEntity r w = 
    methodM [GET, POST] >> do
        decodeBody reqPolicy
        auth r w
        AppState { dbCtx = ctx } <- ask
        withData $ handle ctx w
    where handle ctx t (TestGet p) =
            do
                rs <- liftIO $ doSelectFromTable ctx t (filtParams ctx t p)
                case rs of
                    Right x  -> do -- liftIO $ putStrLn x
                                   qq <- xsltIf (Just "test.xsl") x
                                   -- liftIO $ putStrLn qq 
                                   ok $ contentTypeHtml $ toResponse qq 
                    Left _ -> do liftIO $ errorM appLog dbError
                                 badRequest $ contentTypeXml $ toResponse dbError

тут много чего делается, в частности кука проверяется, запрос разбирается, пермиссии чекаются и т.п. Хидеры выставляются в contentTypeHtml и contentTypeXml -- это просто setHeader "Content-type" "text/xml" и т.п.

[andybil.livejournal.com]

Rkulf d rjvvtynt ybxtuj yt gjyznyj? z tuj yt xbnf.

[dmzlj.livejournal.com]

спасибо, что поделились.