BCPL (Basic Combined Programming Language) adalah bahasa pemrogramanprosedural, imperatif, dan terstruktur. Awalnya ditujukan untuk menulis kompiler untuk bahasa lain, BCPL tidak lagi digunakan secara umum. Namun pengaruhnya masih terasa karena versi BCPL yang dipreteli dan diubah secara sintaksis, disebut B, adalah bahasa yang menjadi dasar bahasa pemrograman C. BCPL memperkenalkan beberapa fitur dari banyak bahasa pemrograman modern, termasuk menggunakan tanda kurung kurawal untuk membatasi blok kode.[2] BCPL pertama kali diterapkan oleh Martin Richards dari University of Cambridge pada tahun 1967.[3]
Sebuah kompiler awal, bootstrap pada tahun 1969, dengan memulai dengan selotip kertas dari O-code dari kompiler Atlas 2 Martin Richards, menargetkan seri ICT 1900. Kedua mesin memiliki panjang-kata yang berbeda (48 vs 24 bita), pengkodean karakter yang berbeda, dan representasi string yang berbeda — dan bootstrap yang berhasil meningkatkan keyakinan dalam kepraktisan metode ini.
Pada akhir 1970, implementasi sudah ada untuk Honeywell 635 dan Honeywell 645, IBM 360, PDP-10, TX-2, CDC 6400, UNIVAC 1108, PDP-9, KDF 9 dan Atlas 2. Pada tahun 1974 dialek BCPL diimplementasikan di BBN tanpa menggunakan kode-O perantara. Implementasi awal adalah kompilator silang yang dihosting di TENEXPDP-10 BBN, dan secara langsung menargetkan PDP-11 yang digunakan dalam implementasi BBN untuk IMP generasi kedua yang digunakan di Arpanet.
Baik desain dan filosofi BCPL sangat memengaruhi B, yang pada gilirannya memengaruhi C.[4] Pemrogram pada saat itu memperdebatkan apakah penerus C pada akhirnya akan disebut "D", huruf berikutnya dalam alfabet, atau "P", huruf berikutnya dalam nama bahasa induk. Bahasa yang paling diterima sebagai penerus C adalah C++ (dengan ++ menjadi operator kenaikan C),[5] Meskipun sementara itu bahasa pemrograman D juga ada.
Pada tahun 1979, implementasi BCPL ada setidaknya untuk 25 arsitektur; bahasa ini secara bertahap tidak disukai karena C menjadi populer di sistem non-Unix.
Contoh
Jika program ini dijalankan menggunakan Cintsys versi terbaru dari Martin Richards (Desember 2018), LIBHDR, START dan WRITEF harus diubah ke huruf kecil untuk menghindari kesalahan.
Print faktorial:
GET "LIBHDR"
LET START() = VALOF $(
FOR I = 1 TO 5 DO
WRITEF("%N! = %I4*N", I, FACT(I))
RESULTIS 0
$)
AND FACT(N) = N = 0 -> 1, N * FACT(N - 1)
GET "LIBHDR"
GLOBAL $(
COUNT: 200
ALL: 201
$)
LET TRY(LD, ROW, RD) BE
TEST ROW = ALL THEN
COUNT := COUNT + 1
ELSE $(
LET POSS = ALL & ~(LD | ROW | RD)
UNTIL POSS = 0 DO $(
LET P = POSS & -POSS
POSS := POSS - P
TRY(LD + P << 1, ROW + P, RD + P >> 1)
$)
$)
LET START() = VALOF $(
ALL := 1
FOR I = 1 TO 12 DO $(
COUNT := 0
TRY(0, 0, 0)
WRITEF("%I2-QUEENS PROBLEM HAS %I5 SOLUTIONS*N", I, COUNT)
ALL := 2 * ALL + 1
$)
RESULTIS 0
$)
Martin Richards, BCPL - a tool for compiler writing and systems programming (Proceedings of the Spring Joint Computer Conference, Vol 34, pp 557–566, 1969)
