fsb2-dsk.sh

#!/bin/bash

# fsb2-dsk.sh

# This file is part of fsb2
# http://programandala.net/en.program.fsb2.html

# Last modified: 201703281618

# ===============================================================
# Author and license

# Copyright (C) 2016,2017 Marcos Cruz (programandala.net)

# You may do whatever you want with this work, so long as you
# retain the copyright notice(s) and this license in all
# redistributed copies and derived works. There is no warranty.

# ===============================================================
# Description

# This program converts a Forth source file from the FSB format to a
# ZX Spectrum phony DSK disk image (suitable for +3DOS), The disk
# image will contain the source file directly on the sectors, without
# file system, to be directly accessed by a Forth system.  This is the
# format used by the library disk of Solo Forth
# (http://programandala.net/en.program.solo_forth.html).

# ===============================================================
# Requirements

# fsb2:
#   <http://programandala.net/en.program.fsb2.html>

# ===============================================================
# Usage (after installation)

#   fsb2-dsk filename

# ===============================================================
# History

# 2016-08-14: Start.
#
# 2017-02-27: Don't assume the extension of the source filename
# is "fsb" anymore. Don't reuse it as secondary extension of the
# blocks file. Update the messages.
#
# 2017-03-03: Update the error message about maximum capacitiy.
#
# 2017-03-28: Update the error message about maximum capacitiy.

# ===============================================================
# Error checking

if [[ "$#" -ne 1 && "$#" -ne 2 ]] ; then
  echo "Convert a Forth source file from FSB format"
  echo "to a block disk in a DSK disk image."
  echo 'Usage:'
  echo "  ${0##*/} sourcefile"
  exit 1
fi

if [ ! -e "$1"  ] ; then
  echo "Error: <$1> does not exist"
  exit 1
fi

if [ ! -f "$1"  ] ; then
  echo "Error: <$1> is not a regular file"
  exit 1
fi

if [ ! -r "$1"  ] ; then
  echo "Error: <$1> can not be read"
  exit 1
fi

if [ ! -s "$1"  ] ; then
  echo "Error: <$1> is empty"
  exit 1
fi

# ===============================================================
# Main

# Convert the .fsb file to .fb:
fsb2 $1

# Filenames:
basefilename=${1%.*}
blocksfile=$basefilename.fb

# Get the size of the file:
du_size=$(du -sk $blocksfile)

# Extract the size from the left of the string:
file_size=${du_size%%[^0-9]*}

#echo "File size=($file_size)"
#echo "$blocksfile is $file_size Kib"

if [ $file_size -gt "719" ]
then
  echo "Error:"
  echo "The size of $blocksfile is $file_size KiB."
  echo "The maximum capacity usable for blocks on a DSK disk image"
  echo "is 719 KiB because the first sector is used by the DOS."
  exit 64
fi

# Create the disk image:
fb2dsk $blocksfile

# Remove the temporary file:
rm -f $blocksfile

# vim:tw=64:ts=2:sts=2:et: