Няшная / Говнокод #318 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
#define begin {
#define end   }

....

//==================================
// put a big character on the screen
// c is index into bitmap
void video_putchar(char x, char y, char c)  
begin 
    v7 = x;
    for (v6=0;v6<7;v6++) 
    begin
        v1 = bitmap[c][v6]; 
        v8 = y+v6;
        ...
    end
end

паскалист пишет на си

Запостил: guest guest, (Updated )

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

  • Anonymous:
    [:]|||[:]

    забыл
    #define =  :=


    да и форы чеез макросы как-то заменялись
    Ответить
  • diwert:
    Керниган и Ричи в своей книге приводят такой пример:

    ...Так, например, любители алгола могут объявить

    #define then
    #define begin {
    #define end   ;}


    и затем написать

    if (I > 0) then
       begin
               a = 1;
               b = 2
       end
    Ответить
  • guest 19.03.2009 20:09...
    Мда, человек просто не писал большие проекты...
    Легче настроить препроцессор С/С++ чем объединять код нагенерированный различными компиляторами и ассемблерами.

    Как заставить работать код на Pascal (компилятор под DOS) исполняться под Windows с применением Окошек вместо Fastwrite и Writeln и RTX вместо DOS (в смысле работа с "железом" в реальном времени)?

    Сейчас смотрю в сторону Rose (A Tool for Building
    Source-to-Source Translators) и использования стандартной библиотеки FreePascal в Delphi.
    Ответить
  • Школота не знает про sh, Стивена Борна и Algol 68.
    Ответить
      • Тебе не кажется смешным что sh сделал человек по фамилии Борн, а ksh -- человек по фамилии Корн?
        Ответить
        • Мне кажется смешным, что ты такой нищеброд. Даже учётки у тебя нет, сидишь с гостя.
          Ответить
          • тебя скоро посадят за пропаганду гомосексуализма среди несовершеннолетних
            посмотрим тогда кто будет смеяться
            Ответить
  • 'njn cfqn vj;yj c ecgt[jv bcgjkmpjdfnb zr cgev-vfisye

    Rfrjq ,fujh )))
    Ответить
  • Z ,ele gsnfwwf crjvghjvtynbhjdfnb u]jcnz8/ Gjcvjnhbv? c rfrjq ex`nrb ns ntgth ,elbi pf[jlbnm? ujdyj/
    Ответить

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

Семь раз отмерь — один отрежь, guest!

    А не использовать ли нам bbcode?


    8