rulinux.net - Все о GNU/Linux и не только - Форум - Talks - кк думаете, что это за код? какая функция? нарыл вот в сети

кк думаете, что это за код? какая функция? нарыл вот в сети

её то уж точно все знают

cobol





 GLOBAL $(

    wrch    : 14

    getbyte : 85

$)



LET writes(s) BE

    FOR i = 1 TO getbyte(s, 0) DO wrch(getbyte(s, i))



AND writeoct(n, d) BE

$(

    IF d>1 DO

        writeoct(n>>3, d-1)

    wrch((n/7)+'0')

$)



AND writehex(n, d) BE

$(

    IF d>1 DO

        writehex(n>>4, d-1)

    wrch((n&15)!TABLE

        '0','1','2','3','4','5','6','7',

        '8','9','A','B','C','D','E','F')

$)



AND writed(n, d) BE

$(

    LET t = VEC 20

    AND i, k = 0, n

    IF n<0 DO

        d, k := d-1, -n

    t!i, k, i := k REM 10, k/10, i+1 REPEATUNTIL k=0

    FOR j = i+1 TO d DO

        wrch('*S')

    IF n<0 DO

        wrch('-')

    FOR j = i-1 TO 0 BY -1 DO

        wrch(t!j+'0')

$)



AND writef(format, a, b, c, d, e, f, g, h, i, j, k) BE

$(

    LET t = @a



    FOR p = 1 TO getbyte(format, 0) DO $(

        LET k = getbyte(format, p)



        TEST k='%' THEN $(

            LET f, q, n = 0, t!0, 0

            AND type = getbyte(format, p+1)

            p := p + 1

            SWITCHON type INTO $(

                DEFAULT: wrch(type); ENDCASE



                CASE 'S': f := writes;   GOTO L

                CASE 'C': f := wrch;     GOTO L

                CASE 'O': f := writeoct; GOTO M

                CASE 'X': f := writehex; GOTO M

                CASE 'I': f := writed;   GOTO M

                CASE 'N': f := writed;   GOTO L



                M: p := p + 1

                   n := getbyte(format, p)

                   n := '0'<=n<='9' -> n-'0', n-'A'+10



                L: f(q, n); t := t + 1

            $)

        $) OR

            wrch(k)

    $)

$)

vilfred(*) (2013-03-13 13:25:07)

[Ответить на это сообщение]

Ответ на: кк думаете, что это за код? какая функция? нарыл вот в сети от vilfred 2013-03-13 13:25:07

Скрыть

Re:кк думаете, что это за код? какая функция? нарыл вот в сети

Скорее всего, вывод на экран.

Tux-oid(*)(2013-03-13 13:33:45)

Mozilla/5.0 (X11; Linux x86_64; rv:19.0) Gecko/20100101 Firefox/19.0 SeaMonkey/2.16

[Ответить на это сообщение]

Ответ на: кк думаете, что это за код? какая функция? нарыл вот в сети от vilfred 2013-03-13 13:25:07

Скрыть

Re:кк думаете, что это за код? какая функция? нарыл вот в сети

Судя по названиям функций, перекодирока переменной в восьмиричную и шестнадцатиричную систему счислений.

anonymous(*)(2013-03-13 14:00:34)

Mozilla/5.0 (X11; Linux x86_64; rv:19.0) Gecko/20100101 Firefox/19.0

[Ответить на это сообщение]

Ответ на: кк думаете, что это за код? какая функция? нарыл вот в сети от vilfred 2013-03-13 13:25:07

Скрыть

Re:кк думаете, что это за код? какая функция? нарыл вот в сети

printf по-кобольски?

anonymous(*)(2013-03-13 14:55:38)

[Ответить на это сообщение]

Ответ на: Re:кк думаете, что это за код? какая функция? нарыл вот в сети от anonymous 2013-03-13 14:55:38

Скрыть

Re:кк думаете, что это за код? какая функция? нарыл вот в сети

вобщем , это реализация printf(3) от 1964 года чтоли

а вопрос - да удивился просто

vilfred(*)(2013-03-13 17:06:03)

[Ответить на это сообщение]

anonymous@RULINUX.NET~#	Last login: 2024-12-23 21:27:20
Регистрация Вход	Новости \| Разметка \| Пользователи \| Галерея \| Форум \| Статьи \| Неподтвержденное \| Трекер \| Правила форума \| F.A.Q. \| Ссылки \| Поиск

Этот тред читают 2 пользователя:
Анонимных: 2 Зарегистрированных: 0