1. Java / Говнокод #25697

    +2

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    super(
            new TkWithHeaders(
                new TkVersioned(
                    new TkMeasured(
                        new TkFlash(
                            new TkAppFallback(
                                new TkAppAuth(
                                    new TkForward(
                                        new TkFork(
                                            new FkHost(
                                                "relay.jare.io",
                                                new TkFallback(
                                                    new TkRelay(base),
                                                    req -> new Opt.Single<>(
                                                        new RsWithType(
                                                            new RsWithBody(
                                                                new RsWithStatus(req.code()),
                                                                new Sprintf(

    Код вполне рабочего проекта

    Запостил: Ray_Mints, 04 Июля 2019

    Комментарии (26) RSS

    • ava Steve_Brown 04.07.2019 10:04 # −1

      как бы fluent interface
      Ответить

      • ava TEH3OPHblu_nemyx 04.07.2019 18:02 # 0

        Это fluent interface наоборот. Так делали ещё во времена «Turbo Vision».

        В принципе, с помощью обёрток можно переделать «fluent interface наоборот» во «fluent interface».
        Ответить

    • ava KaBauHblu_nemyx 04.07.2019 12:46 # 0

      Хуясе багор.
      Ответить

      • ava codershitter 29.09.2019 17:24 # 0

        Мне бы женщину - белую, белую
        Ну а впрочем какая разница
        Я прижал бы ее с силой к дереву
        И в задницу, в задницу, в задницу

        Владимир Маяковский
        Ответить

    • ava 3oJIoTou_xyu 04.07.2019 12:47 # +2 

      do
  do
    do
      do
        do
          do
            do
              do
                do
                  do
                    do
                      do
                        do
                          do
                            do
                              do
                                do
                                  do
                                    do
                                      do
                                        do
                                          do
                                            do
                                              do
                                                do
                                                  do
                                                    do
                                                      local hui = petux
                                                    end
                                                  end
                                                end
                                              end
                                            end
                                          end
                                        end
                                      end
                                    end
                                  end
                                end
                              end
                            end
                          end
                        end
                      end
                    end
                  end
                end
              end
            end
          end
        end
      end
    end
  end
end
      Ответить

    • ava guest8 04.07.2019 14:21 # −999

      показать все, что скрытоvanished
      Ответить

    • ava TEH3OPHblu_nemyx 04.07.2019 16:26 # +1 

      procedure TTutorApp.InitMenuBar;
var
  R: TRect;
begin
  GetExtent(R);
  R.B.Y := R.A.Y + 1;
  MenuBar := New(PMenuBar, Init(R, NewMenu(
    NewSubMenu('~F~ile', hcNoContext, NewMenu(
      StdFileMenuItems(nil)),
    NewSubMenu('~E~dit', hcNoContext, NewMenu(
      StdEditMenuItems(
      NewLine(
      NewItem('~S~how clipboard', '', kbNoKey, cmClipShow, hcNoContext,
      nil)))),
    NewSubMenu('~O~rders', hcNoContext, NewMenu(
      NewItem('~N~ew', 'F9', kbF9, cmOrderNew, hcNoContext,
      NewItem('~S~ave', '', kbNoKey, cmOrderSave, hcNoContext,
      NewLine(
      NewItem('Next', 'PgDn', kbPgDn, cmOrderNext, hcNoContext,
      NewItem('Prev', 'PgUp', kbPgUp, cmOrderPrev, hcNoContext,
      nil)))))),
    NewSubMenu('O~p~tions', hcNoContext, NewMenu(
      NewItem('~T~oggle video', '', kbNoKey, cmOptionsVideo, hcNoContext,
      NewItem('~S~ave desktop', '', kbNoKey, cmOptionsSave, hcNoContext,
      NewItem('~L~oad desktop', '', kbNoKey, cmOptionsLoad, hcNoContext,
      nil)))),
    NewSubMenu('~W~indow', hcNoContext, NewMenu(
      NewItem('Orders', '', kbNoKey, cmOrderWin, hcNoContext,
      NewItem('Stock items', '', kbNoKey, cmStockWin, hcNoContext,
      NewItem('Suppliers', '', kbNoKey, cmSupplierWin, hcNoContext,
      NewLine(
      StdWindowMenuItems(nil)))))),
    NewSubMenu('~H~elp', hcNoContext, NewMenu(
      NewItem('~A~bout...', '', kbNoKey, cmAbout, hcNoContext,
      nil)),
    nil))))))
  )));
end;
      Ответить

      • ava guest8 04.07.2019 18:11 # −999

        показать все, что скрытоvanished
        Ответить

        • ava TEH3OPHblu_nemyx 04.07.2019 18:20 # +1

          Декларативный — это когда он лежит в ресурсах (например, для «Windows» в RC-файле). А тут мы последовательно создаём кирпичики и приклеиваем их друг к другу.
          Ответить

          • ava guest8 04.07.2019 19:19 # −999

            показать все, что скрытоvanished
            Ответить

            • ava TEH3OPHblu_nemyx 04.07.2019 19:46 # 0

              RC (resource compiler) — чисто декларативный язык. На нём можно только перечислить ресурсы.

              А тут мы последовательно нанизываем один объект на другой. Можем даже клонировать объекты, чтобы использовать их позже. Можем в процессе сборки меню производить вычисления в чисто императивном стиле, производить побочные эффекты.
              Ответить

              • ava BOKCEJIbHblu_nemyx 04.07.2019 20:12 # 0

                В 'J' гуй декларативный, но лежит всегда в том же исходнике в строковом литерале. Хотя описание формы можно положить в отдельный файл, там будет что-то типа:
                pc parentControl; pn "Заголовок";

cc doPizdato button; cn "Сделать пиздато"
                А загрузить можно так:
                wd fread 'file'
wd 'pshow'
                Правда я ни разу не видел чтоб так делали.
                Ответить

            • ava TEH3OPHblu_nemyx 04.07.2019 20:49 # 0

              Хотя я, кажется, понимаю, о чём ты. Данный фрагмент внешне похож на декларативный, хотя и написан на императивном языке (тут вызовы конструкторов и методов, передача указателей).
              Ответить

      • ava bormand 04.07.2019 18:56 # +1

        О да, эти тильдочки для хоткеев...
        Ответить

    • ava guest8 04.07.2019 17:21 # −999

      показать все, что скрытоvanished
      Ответить

    • ava Desktop 04.07.2019 19:13 # 0

      Бля, да это же SwiftUI за надцать лет до SwiftUI
      Ответить

    • ava MAKAKA 16.06.2020 22:26 # 0

      говно
      Ответить

    Добавить комментарий