Как все начиналось

[vak]

Угадайте, что за код. Эту функцию наверняка знают все без исключения современные программисты.

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)
    $)
$)

Comments

[archaicos.livejournal.com]

BCPL printf()?

[vak]

Ага. :)
Причем это полный ее текст, без сокращений.
Где-то в районе 1967 года.

[dz.livejournal.com]

Надо же. Паскалевский синтаксис. Как он превратился в сишный - ума не приложу. Учитывая то, что паскалевский парсится сильно проще.

[spamsink]

Анахронизм детектед.

[vak]

Сижу, кумекаю как из BCPL компилятор B сделать.

[vak]

На самом деле не паскалевский совсем. И легко превращается в B.

[fenikso.livejournal.com]

printf :)

[vak]

Именно.

[b0p0h0k.livejournal.com]

Не подглядывая в предыдущии комментарии, две догадки:
1. Изречения из Упанишад
2. printf(3)

[b0p0h0k.livejournal.com]

Цикаво, а в чём большая разница между LET и AND кроме очевидной?

[vak]

Функции, объявления которых сцеплены по AND, могут ссылаться друг на друга. Тан называемые 'одновременные' описания.

[b0p0h0k.livejournal.com]

Да?
А как насчёт переменных?

LET t = VEC 20
AND i, k = 0, n

[vak]

В этом месте AND не имеет большого смысла. Сделано для симметрии с объявлением функций.

[cottidianus.livejournal.com]

Ага, я скачал BCPL Reference Manual[1], интерпретатор BCPL[2]. Открыл, почитал, думал над истоками С и UNIX, получил море удовольствия. Спасибо, пишите ещё.

[1] http://cm.bell-labs.com/who/dmr/bcpl.html
[2] http://www.cl.cam.ac.uk/~mr10/BCPL.html

$( $) синтакс кстати олдскульный. В новой библиотеке в интерпретаторе я видел уже { }

И у меня такое чувство, что этот пост касается меня. :)

[hogzie.livejournal.com]

Подозреваю, что на бумаге было всегда {}, но на телетайпе они отсутствовали и заменялись $( и )$.

:)

[vak]

Более канонический дистрибутив BCPL есть здесь:
http://www.nordier.com/software/bcplkit.html
http://www.nordier.com/software/distfiles/bcplkit-0.9.6.tar.xz

Изначально были $( и $), фигурные скобки появились позже. Вообще, удивительно красивый транслятор.