Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-06-18 01:29:31 +00:00
Code Issues Projects Releases Wiki Activity

Generate package with Title.Cased DA names. Fixes #124

Browse Source
This commit is contained in:
Joshua Bell 2019-02-03 12:46:42 -08:00
parent 101549d7dd
commit 30b80ac253
1 changed files with 21 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
res/package.sh
View File

@ -7,29 +7,29 @@ set -e
CADIUS="${CADIUS:-$HOME/dev/cadius/bin/release/cadius}"
DAS=$(cat desk.acc/TARGETS)
PRS=$(cat preview/TARGETS)
DA_DIRS="desk.acc preview"
PACKDIR="out/package"
FINFO="$PACKDIR/_FileInformation.txt"
IMGFILE="out/A2DeskTop.po"
VOLNAME="A2.DeskTop"
function titlecase {
echo "$@" | perl -pne 's/(^(.)|\.(.))/uc($1)/eg'
}
mkdir -p "$PACKDIR"
echo "" > "$FINFO"
# Prepare _FileInformation.txt file with extra ProDOS file entry data
# and copy renamed files into package directory.
for file in $DAS; do
ucfile=$(echo $file | tr a-z A-Z)
echo "$ucfile=Type(F1),AuxType(0640),VersionCreate(00),MinVersion(00),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)" >> "$FINFO"
cp "desk.acc/out/$file.built" "out/package/$ucfile"
done
for file in $PRS; do
ucfile=$(echo $file | tr a-z A-Z)
echo "$ucfile=Type(F1),AuxType(0640),VersionCreate(00),MinVersion(00),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)" >> "$FINFO"
cp "preview/out/$file.built" "out/package/$ucfile"
for da_dir in $DA_DIRS; do
for file in $(cat $da_dir/TARGETS); do
tcfile=$(titlecase $file)
echo "$tcfile=Type(F1),AuxType(0640),VersionCreate(00),MinVersion(00),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)" >> "$FINFO"
cp "$da_dir/out/$file.built" "out/package/$tcfile"
done
done
cat >> "$FINFO" <<EOF
@ -42,22 +42,21 @@ cp "desktop/out/DESKTOP2.built" "$PACKDIR/DeskTop2"
# Create a new disk image.
rm -f $IMGFILE
$CADIUS CREATEVOLUME $IMGFILE $VOLNAME 800KB
$CADIUS CREATEFOLDER $IMGFILE "/$VOLNAME/Desk.Acc"
$CADIUS CREATEFOLDER $IMGFILE "/$VOLNAME/Preview"
for da_dir in $DA_DIRS; do
$CADIUS CREATEFOLDER $IMGFILE "/$VOLNAME/$(titlecase $da_dir)"
done
# Add the files into the disk image.
for file in $DAS; do
ucfile=$(echo $file | tr a-z A-Z)
$CADIUS ADDFILE $IMGFILE "/$VOLNAME/Desk.Acc" $PACKDIR/$ucfile
done
for file in $PRS; do
ucfile=$(echo $file | tr a-z A-Z)
$CADIUS ADDFILE $IMGFILE "/$VOLNAME/Preview" $PACKDIR/$ucfile
for da_dir in $DA_DIRS; do
for file in $(cat $da_dir/TARGETS); do
$CADIUS ADDFILE $IMGFILE "/$VOLNAME/$(titlecase $da_dir)" "$PACKDIR/$(titlecase $file)"
done
done
for file in DeskTop.system DeskTop2; do
$CADIUS ADDFILE $IMGFILE "/$VOLNAME" $PACKDIR/$file
$CADIUS ADDFILE $IMGFILE "/$VOLNAME" "$PACKDIR/$file"
done