JupyterLab + GnuCOBOL 開発環境の構築
 | ➕ |  |
GnuCOBOL (以前は OpenCOBOL、GNU Cobol と呼ばれていた) は、 COBOL プログラミング言語のフリーソフトウェアとしての実装である。 GnuCOBOL は、ネイティブ C コンパイラを使用する C 言語へのトランスコンパイラである。
GnuCOBOL | Wikiwand より
インストール
$ sudo apt install gnucobol
Reading package lists... Done Building dependency tree... Done Reading state information... Done The following additional packages will be installed: libcob5 libcob5-dev libgmp-dev libgmpxx4ldbl libncurses-dev libncurses5-dev Suggested packages: gmp-doc libgmp10-doc libmpfr-dev ncurses-doc The following NEW packages will be installed: gnucobol libcob5 libcob5-dev libgmp-dev libgmpxx4ldbl libncurses-dev libncurses5-dev 0 upgraded, 7 newly installed, 0 to remove and 0 not upgraded. Need to get 1,597 kB/2,370 kB of archives. After this operation, 7,094 kB of additional disk space will be used. Do you want to continue? [Y/n] y Get:2 http://raspbian.raspberrypi.org/raspbian bullseye/main armhf libgmp-dev armhf 2:6.2.1+dfsg-1+deb11u1 [583 kB] Get:1 http://raspbian.raspberrypi.org/raspbian bullseye/main armhf libcob5-dev armhf 4.0~early~20200606-3+b2 [177 kB] Get:3 http://raspbian.raspberrypi.org/raspbian bullseye/main armhf gnucobol armhf 4.0~early~20200606-3+b2 [837 kB] Fetched 1,158 kB in 8s (145 kB/s) debconf: delaying package configuration, since apt-utils is not installed Selecting previously unselected package libcob5:armhf. (Reading database ... 75057 files and directories currently installed.) Preparing to unpack .../0-libcob5_4.0~early~20200606-3+b2_armhf.deb ... Unpacking libcob5:armhf (4.0~early~20200606-3+b2) ... Selecting previously unselected package libcob5-dev:armhf. Preparing to unpack .../1-libcob5-dev_4.0~early~20200606-3+b2_armhf.deb ... Unpacking libcob5-dev:armhf (4.0~early~20200606-3+b2) ... Selecting previously unselected package libgmpxx4ldbl:armhf. Preparing to unpack .../2-libgmpxx4ldbl_2%3a6.2.1+dfsg-1+deb11u1_armhf.deb ... Unpacking libgmpxx4ldbl:armhf (2:6.2.1+dfsg-1+deb11u1) ... Selecting previously unselected package libgmp-dev:armhf. Preparing to unpack .../3-libgmp-dev_2%3a6.2.1+dfsg-1+deb11u1_armhf.deb ... Unpacking libgmp-dev:armhf (2:6.2.1+dfsg-1+deb11u1) ... Selecting previously unselected package libncurses-dev:armhf. Preparing to unpack .../4-libncurses-dev_6.2+20201114-2_armhf.deb ... Unpacking libncurses-dev:armhf (6.2+20201114-2) ... Selecting previously unselected package libncurses5-dev:armhf. Preparing to unpack .../5-libncurses5-dev_6.2+20201114-2_armhf.deb ... Unpacking libncurses5-dev:armhf (6.2+20201114-2) ... Selecting previously unselected package gnucobol. Preparing to unpack .../6-gnucobol_4.0~early~20200606-3+b2_armhf.deb ... Unpacking gnucobol (4.0~early~20200606-3+b2) ... Setting up libncurses-dev:armhf (6.2+20201114-2) ... Setting up libcob5:armhf (4.0~early~20200606-3+b2) ... Setting up libcob5-dev:armhf (4.0~early~20200606-3+b2) ... Setting up libgmpxx4ldbl:armhf (2:6.2.1+dfsg-1+deb11u1) ... Setting up libncurses5-dev:armhf (6.2+20201114-2) ... Setting up libgmp-dev:armhf (2:6.2.1+dfsg-1+deb11u1) ... Setting up gnucobol (4.0~early~20200606-3+b2) ... Processing triggers for man-db (2.9.4-2) ... Processing triggers for libc-bin (2.31-13+rpt2+rpi1+deb11u3) ...
コードを書いてみる🤔
- main.cbl
000001* プログラム名 はるおわ〜るど🤤 000002* プログラムID HARUO-WORLD01 000003* バージョン 0.0.1 000004* 作成日 作成者 000005* 2022/09/01 Tomoyan 000006* 更新日 更新者 更新概要 000007* YYYY/MM/DD XXXXXXXX XXXXXXXXXX 000008 000009 IDENTIFICATION DIVISION. 000010 PROGRAM-ID. HARUO-WORLD01. 000011 ENVIRONMENT DIVISION. 000012 CONFIGURATION SECTION. 000013 INPUT-OUTPUT SECTION. 000014 DATA DIVISION. 000015 FILE SECTION. 000016 WORKING-STORAGE SECTION. 000017 01 OUTPUT-MESSAGE PIC X(30). 000018 01 RND PIC 99V9(3). 000019* Unicode 内部表現 UTF-16 1文字 4Byte🤔 000020 01 EMOJI PIC X(44) 000021 VALUE "✔😅😊🤔🤤😁😃👅👅👅😍😱". 000022 01 WK-INDEX PIC 9(2). 000023 01 CUR-DATE PIC X(21). 000024 PROCEDURE DIVISION. 000025 MAIN. 000026 MOVE "Welcome to Haruo World!" TO OUTPUT-MESSAGE. 000027 000028 DISPLAY EMOJI UPON CONSOLE 000029 PERFORM VARYING WK-INDEX FROM 1 BY 1 UNTIL WK-INDEX > 11 000030 PERFORM SHOW-RND-MESSAGE 000031 END-PERFORM. 000032 000033 STOP RUN. 000034 000035 SHOW-RND-MESSAGE SECTION. 000036 MOVE FUNCTION CURRENT-DATE TO CUR-DATE 000037 COMPUTE RND = FUNCTION RANDOM( 000038 RND + FUNCTION NUMVAL( 000039 CUR-DATE(15:2))) * 10 + 1 000040 DISPLAY 000041* CUR-DATE(15:2)" ["RND"] " 000042 "["WK-INDEX"] " FUNCTION TRIM(OUTPUT-MESSAGE) 000043 EMOJI(4 * (RND - 1) + 1:4) UPON CONSOLE 000044 END-DISPLAY 000045 EXIT.
コンパイルと実行🤤
$ ll
total 4 -rw-r--r-- 1 dietpi dietpi 1887 Sep 2 06:25 main.cbl
COBOL のソースコードを実行ファイルとしてコンパイルする🤔
$ cobc -x main.cbl
コンパイルされた結果の実行ファイル main には実行可能属性が設定されている🤔
$ ll
total 20 -rwxr-xr-x 1 dietpi dietpi 13952 Sep 2 14:18 main -rw-r--r-- 1 dietpi dietpi 1887 Sep 2 06:25 main.cbl
実行ファイル main を実行します…🤔
ようこそ、はるおの世界へ！😍はるおわ〜るど！意味が分かりません😅💦
$ ./main
😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!👅 [02] Welcome to Haruo World!😃 [03] Welcome to Haruo World!👅 [04] Welcome to Haruo World!😍 [05] Welcome to Haruo World!👅 [06] Welcome to Haruo World!😍 [07] Welcome to Haruo World!😊 [08] Welcome to Haruo World!👅 [09] Welcome to Haruo World!😍 [10] Welcome to Haruo World!😊 [11] Welcome to Haruo World!😊
COBOL 言語で絵文字ランダムコンソール出力＼＼\たのし〜ぃ😆/／／
$ ./main
😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😅 [02] Welcome to Haruo World!🤤 [03] Welcome to Haruo World!😁 [04] Welcome to Haruo World!👅 [05] Welcome to Haruo World!👅 [06] Welcome to Haruo World!👅 [07] Welcome to Haruo World!👅 [08] Welcome to Haruo World!👅 [09] Welcome to Haruo World!👅 [10] Welcome to Haruo World!👅 [11] Welcome to Haruo World!👅 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😅 [02] Welcome to Haruo World!😍 [03] Welcome to Haruo World!😊 [04] Welcome to Haruo World!👅 [05] Welcome to Haruo World!😁 [06] Welcome to Haruo World!👅 [07] Welcome to Haruo World!🤤 [08] Welcome to Haruo World!👅 [09] Welcome to Haruo World!😊 [10] Welcome to Haruo World!👅 [11] Welcome to Haruo World!😁 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😃 [02] Welcome to Haruo World!👅 [03] Welcome to Haruo World!😁 [04] Welcome to Haruo World!👅 [05] Welcome to Haruo World!🤤 [06] Welcome to Haruo World!🤤 [07] Welcome to Haruo World!🤤 [08] Welcome to Haruo World!🤤 [09] Welcome to Haruo World!🤤 [10] Welcome to Haruo World!🤤 [11] Welcome to Haruo World!👅 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😃 [02] Welcome to Haruo World!😃 [03] Welcome to Haruo World!😃 [04] Welcome to Haruo World!😃 [05] Welcome to Haruo World!😃 [06] Welcome to Haruo World!😃 [07] Welcome to Haruo World!😁 [08] Welcome to Haruo World!😃 [09] Welcome to Haruo World!😁 [10] Welcome to Haruo World!😃 [11] Welcome to Haruo World!😁 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!👅 [02] Welcome to Haruo World!😊 [03] Welcome to Haruo World!🤔 [04] Welcome to Haruo World!😃 [05] Welcome to Haruo World!😊 [06] Welcome to Haruo World!🤔 [07] Welcome to Haruo World!😁 [08] Welcome to Haruo World!😊 [09] Welcome to Haruo World!😃 [10] Welcome to Haruo World!😃 [11] Welcome to Haruo World!😃 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😍 [02] Welcome to Haruo World!😁 [03] Welcome to Haruo World!😊 [04] Welcome to Haruo World!😅 [05] Welcome to Haruo World!😊 [06] Welcome to Haruo World!😍 [07] Welcome to Haruo World!🤔 [08] Welcome to Haruo World!👅 [09] Welcome to Haruo World!😃 [10] Welcome to Haruo World!👅 [11] Welcome to Haruo World!🤔 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!🤤 [02] Welcome to Haruo World!👅 [03] Welcome to Haruo World!👅 [04] Welcome to Haruo World!🤤 [05] Welcome to Haruo World!👅 [06] Welcome to Haruo World!👅 [07] Welcome to Haruo World!👅 [08] Welcome to Haruo World!👅 [09] Welcome to Haruo World!👅 [10] Welcome to Haruo World!👅 [11] Welcome to Haruo World!👅 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!🤤 [02] Welcome to Haruo World!🤤 [03] Welcome to Haruo World!🤤 [04] Welcome to Haruo World!👅 [05] Welcome to Haruo World!🤔 [06] Welcome to Haruo World!🤤 [07] Welcome to Haruo World!👅 [08] Welcome to Haruo World!👅 [09] Welcome to Haruo World!👅 [10] Welcome to Haruo World!👅 [11] Welcome to Haruo World!👅 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!👅 [02] Welcome to Haruo World!😊 [03] Welcome to Haruo World!😍 [04] Welcome to Haruo World!👅 [05] Welcome to Haruo World!😍 [06] Welcome to Haruo World!👅 [07] Welcome to Haruo World!👅 [08] Welcome to Haruo World!👅 [09] Welcome to Haruo World!👅 [10] Welcome to Haruo World!👅 [11] Welcome to Haruo World!👅 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😍 [02] Welcome to Haruo World!🤤 [03] Welcome to Haruo World!🤔 [04] Welcome to Haruo World!🤤 [05] Welcome to Haruo World!😃 [06] Welcome to Haruo World!👅 [07] Welcome to Haruo World!😍 [08] Welcome to Haruo World!🤔 [09] Welcome to Haruo World!🤔 [10] Welcome to Haruo World!😃 [11] Welcome to Haruo World!👅 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😍 [02] Welcome to Haruo World!😁 [03] Welcome to Haruo World!👅 [04] Welcome to Haruo World!😁 [05] Welcome to Haruo World!😃 [06] Welcome to Haruo World!😁 [07] Welcome to Haruo World!😃 [08] Welcome to Haruo World!😁 [09] Welcome to Haruo World!😁 [10] Welcome to Haruo World!😁 [11] Welcome to Haruo World!😁 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😍 [02] Welcome to Haruo World!😍 [03] Welcome to Haruo World!😍 [04] Welcome to Haruo World!😍 [05] Welcome to Haruo World!🤤 [06] Welcome to Haruo World!🤔 [07] Welcome to Haruo World!🤤 [08] Welcome to Haruo World!🤔 [09] Welcome to Haruo World!🤔 [10] Welcome to Haruo World!🤔 [11] Welcome to Haruo World!🤔 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😍 [02] Welcome to Haruo World!😃 [03] Welcome to Haruo World!😊 [04] Welcome to Haruo World!😊 [05] Welcome to Haruo World!😅 [06] Welcome to Haruo World!😊 [07] Welcome to Haruo World!😅 [08] Welcome to Haruo World!😊 [09] Welcome to Haruo World!😍 [10] Welcome to Haruo World!🤔 [11] Welcome to Haruo World!👅 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😊 [02] Welcome to Haruo World!🤤 [03] Welcome to Haruo World!😊 [04] Welcome to Haruo World!🤤 [05] Welcome to Haruo World!😊 [06] Welcome to Haruo World!👅 [07] Welcome to Haruo World!🤤 [08] Welcome to Haruo World!😁 [09] Welcome to Haruo World!🤤 [10] Welcome to Haruo World!😁 [11] Welcome to Haruo World!🤤 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😃 [02] Welcome to Haruo World!👅 [03] Welcome to Haruo World!😅 [04] Welcome to Haruo World!🤤 [05] Welcome to Haruo World!👅 [06] Welcome to Haruo World!👅 [07] Welcome to Haruo World!🤤 [08] Welcome to Haruo World!👅 [09] Welcome to Haruo World!👅 [10] Welcome to Haruo World!🤤 [11] Welcome to Haruo World!👅 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!👅 [02] Welcome to Haruo World!😊 [03] Welcome to Haruo World!😍 [04] Welcome to Haruo World!🤤 [05] Welcome to Haruo World!😊 [06] Welcome to Haruo World!😍 [07] Welcome to Haruo World!👅 [08] Welcome to Haruo World!😊 [09] Welcome to Haruo World!👅 [10] Welcome to Haruo World!🤤 [11] Welcome to Haruo World!😃 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😍 [02] Welcome to Haruo World!🤤 [03] Welcome to Haruo World!🤔 [04] Welcome to Haruo World!👅 [05] Welcome to Haruo World!😃 [06] Welcome to Haruo World!😁 [07] Welcome to Haruo World!😁 [08] Welcome to Haruo World!😁 [09] Welcome to Haruo World!😁 [10] Welcome to Haruo World!😁 [11] Welcome to Haruo World!😁 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😊 [02] Welcome to Haruo World!👅 [03] Welcome to Haruo World!🤔 [04] Welcome to Haruo World!😃 [05] Welcome to Haruo World!😊 [06] Welcome to Haruo World!👅 [07] Welcome to Haruo World!🤤 [08] Welcome to Haruo World!🤔 [09] Welcome to Haruo World!😁 [10] Welcome to Haruo World!😊 [11] Welcome to Haruo World!😃 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😊 [02] Welcome to Haruo World!🤤 [03] Welcome to Haruo World!😍 [04] Welcome to Haruo World!😃 [05] Welcome to Haruo World!👅 [06] Welcome to Haruo World!😍 [07] Welcome to Haruo World!😍 [08] Welcome to Haruo World!😍 [09] Welcome to Haruo World!😍 [10] Welcome to Haruo World!😍 [11] Welcome to Haruo World!😍 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😃 [02] Welcome to Haruo World!😊 [03] Welcome to Haruo World!👅 [04] Welcome to Haruo World!👅 [05] Welcome to Haruo World!😃 [06] Welcome to Haruo World!😅 [07] Welcome to Haruo World!👅 [08] Welcome to Haruo World!👅 [09] Welcome to Haruo World!😃 [10] Welcome to Haruo World!👅 [11] Welcome to Haruo World!😍 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!🤤 [02] Welcome to Haruo World!👅 [03] Welcome to Haruo World!😁 [04] Welcome to Haruo World!😅 [05] Welcome to Haruo World!😃 [06] Welcome to Haruo World!🤤 [07] Welcome to Haruo World!😅 [08] Welcome to Haruo World!😍 [09] Welcome to Haruo World!👅 [10] Welcome to Haruo World!👅 [11] Welcome to Haruo World!👅 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😊 [02] Welcome to Haruo World!👅 [03] Welcome to Haruo World!🤤 [04] Welcome to Haruo World!😍 [05] Welcome to Haruo World!😊 [06] Welcome to Haruo World!😃 [07] Welcome to Haruo World!😃 [08] Welcome to Haruo World!😃 [09] Welcome to Haruo World!😃 [10] Welcome to Haruo World!😃 [11] Welcome to Haruo World!🤤 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!👅 [02] Welcome to Haruo World!👅 [03] Welcome to Haruo World!👅 [04] Welcome to Haruo World!😅 [05] Welcome to Haruo World!🤤 [06] Welcome to Haruo World!😁 [07] Welcome to Haruo World!👅 [08] Welcome to Haruo World!👅 [09] Welcome to Haruo World!👅 [10] Welcome to Haruo World!👅 [11] Welcome to Haruo World!👅
やっぱくだらないかも…😅
