概要

昔の資料にあるBASICのプログラムを移植してみたくなり、まずはBASICの動く環境を作ってみた。

参考

https://qiita.com/yam_dev/items/76743f63a2e8911f10f7

FreeBASICのダウンロード

https://sourceforge.net/projects/fbc/files/FreeBASIC-1.10.1/Binaries-Linux/

GUIでダウンロードしたほうが良さげ

Dockerfile

# ベースイメージとしてUbuntuを使用
FROM ubuntu:latest

# 必要なパッケージのインストール
RUN apt-get update && apt-get install -y \
    tar \
    xz-utils \
    nano \
    gcc \
    libncurses5-dev \
    && rm -rf /var/lib/apt/lists/*

# FreeBASICのバイナリをコンテナにコピー
COPY FreeBASIC-1.10.1-ubuntu-22.04-x86_64.tar.xz /tmp

# FreeBASICを解凍してインストール
RUN tar -xJf /tmp/FreeBASIC-1.10.1-ubuntu-22.04-x86_64.tar.xz -C /usr/local
ENV PATH="/usr/local/FreeBASIC-1.10.1-ubuntu-22.04-x86_64/bin:${PATH}"

# ワークディレクトリの設定
WORKDIR /workspace/src

COPY system-info.bas /workspace/system-info.bas

ほとんど参考元と同じだが、src フォルダをコンテナ内と同期させて使いたいので、ワークディレクトリにしている。

単純なコンテナのビルドと起動

docker build -t basic-env .
docker run -it basic-env

dockerコマンドを打つとき、常駐してないとdocker desktopの起動を忘れがちなので注意。

動作確認

root@9c7f1229caaf:/workspace/src# ls ..
src  system-info.bas
root@9c7f1229caaf:/workspace/src# which fbc
/usr/local/FreeBASIC-1.10.1-ubuntu-22.04-x86_64/bin/fbc

参考元と同じ表示
system-info のコンパイル等々に関しては省略

フォルダ同期と停止後コンテナ即削除

src フォルダをコンテナ内外で同期させるのと、コンテナ停止したら即削除するようにする。

PS> docker run --rm -it -v $pwd/src:/workspace/src basic-env

docker-composeで書く

毎回オプションが覚えられないので、docker-composeで設定してみる。

以下のdocker-compose.ymlを作成。

# BASIC実行用の対話型コンテナを起動
version: '3'
services:
  basic-env:
    image: basic-env
    container_name: basic-env-container
    # ./srcコンテナを同期
    volumes:
      - ./src:/workspace/src
    working_dir: /workspace/src
    stdin_open: true
    tty: true
    # 実行したいコマンドを設定
    command: /bin/bash

docker-composeの起動コマンド

PS> docker-compose run --rm basic-env

テストプログラム

大学時代の教科書にあった、消去法で一次連立方程式を解くプログラムを入力してみた。

コンパイル

root@9c7f1229caaf:/workspace/src# ls  
matrix.bas
root@9c7f1229caaf:/workspace/src# fbc matrix.bas
matrix.bas(1) error 146: Only valid in -lang deprecated or fblite or qb in '100 REM renritu 1 ji houteisiki'
matrix.bas(2) error 146: Only valid in -lang deprecated or fblite or qb in '110 DIM A(10,11), X(10)'
matrix.bas(3) error 146: Only valid in -lang deprecated or fblite or qb in '120 WIDTH 80,25'
matrix.bas(4) error 146: Only valid in -lang deprecated or fblite or qb in '130 REM yomikomi to shokisettei'
matrix.bas(5) error 146: Only valid in -lang deprecated or fblite or qb in '140 READ M,N'
matrix.bas(6) error 146: Only valid in -lang deprecated or fblite or qb in '150 LET N1=N+1'
matrix.bas(7) error 146: Only valid in -lang deprecated or fblite or qb in '155 PRINT'
matrix.bas(8) error 146: Only valid in -lang deprecated or fblite or qb in '157 LPRINT'
matrix.bas(9) error 146: Only valid in -lang deprecated or fblite or qb in '160 PRINT "renritu 1 ji houteisiki"'
matrix.bas(10) error 146: Only valid in -lang deprecated or fblite or qb in '162 LPRINT "renritu 1 ji houteisiki"'
matrix.bas(10) error 133: Too many errors, exiting

FreeBASICは行番号をサポートしているはずだが、エラーになる。

を参考に -lang qb オプションを入れる

もう一度ビルド

root@9c7f1229caaf:/workspace/src# fbc -lang qb matrix.bas
root@9c7f1229caaf:/workspace/src# ls
matrix  matrix.bas
root@9c7f1229caaf:/workspace/src# ll
total 76
drwxrwxrwx 1 root root  4096 Nov 24 08:57 ./
drwxr-xr-x 1 root root  4096 Nov 22 01:18 ../
-rwxr-xr-x 1 root root 68296 Nov 24 08:57 matrix*
-rwxrwxrwx 1 root root  3493 Nov 24 08:54 matrix.bas*

ビルドできている。

実行

root@9c7f1229caaf:/workspace/src# ./matrix

renritu 1 ji houteisiki

nyuuryoku DATA
 1 -2  1 -1 
 2 -1  8 -5 
 1 -3  2 -3 

shoukyohou no jyoukyou ( 1 )
x( 1 )        x( 2 )        x( 3 )        
 1            -2             1            -1
 0             3             6            -3
 0            -1             1            -2

shoukyohou no jyoukyou ( 2 )
x( 1 )        x( 2 )        x( 3 )        
 1             0             5            -3
 0             1             2            -1
 0             0             3            -3

shoukyohou no jyoukyou ( 3 )
x( 1 )        x( 2 )        x( 3 )        
 1             0             0             2
 0             1             0             1
 0             0             1            -1

ichii na kai
     x( 1 )=  2
     x( 2 )=  1
     x( 3 )= -1

Freebasicはセミコロンでうまく整形されなかったりするが、とりあえずは動いた。