#!/bin/sh

# Flip-file shell script version 1 by Ben Collver
# Roughly based on FLIP.BAS.
#
# <gopher://tilde.pink/0/~bencollver/log/
# 2025-07-14-occ-freebasic-qbasic-and-wm-tweaks/flip.bas>

cardfile="FLIP.DAT"
exported="flip.tsv"

# maximum number of cards
mx=30

# maximum line length (80 - 9 - 3)
il=68

# current card number
card=1

# number of last card in file
last=0

# flag for deleted card
delmsg="' CARD DELETED '"

type mktemp >/dev/null 2>&1
if [ $? -eq 127 ]
then
   mktemp()
   {
       o=0
       s=$(date +%s)
       while [ $o -lt 100 ]
       do
           t=$(echo $(($o + $s)) | md5sum | cut -c 1-6)
           f="/tmp/tmp.$t"
           if [ ! -f "$f" ]
           then
               break
           fi
           o=$(($o+1))
       done
       if [ -f "$f" ]
       then
           exit 127
           return 127
       else
           touch "$f"
           echo "$f"
       fi
       return 0
   }
fi

# session data file
f=$(mktemp)

# helper script file
helper=$(mktemp)

# output from dialog command
RESULT=$(mktemp)

# remove tempfiles on exit
trap "rm -f $f $helper $RESULT" 0

export DIALOGOPTS="--no-mouse --title Flip-file"

echo "form_item_readonly_color = (WHITE,BLUE,ON)" >flip.rc

append_record()
{
   infile=$1

   awk -F "\n" -v OFS="\t" -v ORS="\r\n" -v RS="\xFF" '{
print $1, $2, $3, $4, $5, $6, $7
   }' $infile >>$f

   return
}

add_card()
{
   limit=$((mx - 1))
   if [ $last -eq $limit ]
   then
       dialog --backtitle "$backtitle" \
           --msgbox "File full. Save cards." 0 0
       return
   fi

   card=$((last + 1))
   last=$((last + 1))
   backtitle=$(get_backtitle)
   dialog --backtitle "$backtitle" \
       --no-cancel                 \
       --ok-label "Back"           \
       --form "Add a card" 0 -1 7  \
       Name:   1 1 "" 1 10 60 $il  \
       Street: 2 1 "" 2 10 60 $il  \
       Town:   3 1 "" 3 10 60 $il  \
       County: 4 1 "" 4 10 60 $il  \
       Code:   5 1 "" 5 10 60 $il  \
       Phone:  6 1 "" 6 10 60 $il  \
       Info:   7 1 "" 7 10 60 $il  \
       2>$RESULT
   EXITCODE=$?

   case $EXITCODE in
   255) exit                  ;;
     0) append_record $RESULT ;;
    -1) error_exit $RESULT    ;;
   esac

   return
}

browse()
{
   while :
   do
       backtitle=$(get_backtitle)
       cat >$helper <<__EOF__
DIALOGRC=flip.rc dialog                     \\
   --backtitle "$backtitle"                \\
   --extra-button                          \\
   --help-button                           \\
   --ok-label Previous                     \\
   --extra-label Next                      \\
   --cancel-label Search                   \\
   --help-label Back                       \\
   --form "Browse & search" 0 -1 7         \\
__EOF__
       view_card_fields $card -60 $helper
       echo "    2>$RESULT" >>$helper
       sh $helper
       EXITCODE=$?

       case $EXITCODE in
       255) exit                                      ;;
         3) [ $card -lt $last ] && card=$((card + 1)) ;;
         2) break                                     ;;
         1) search                                    ;;
         0) [ $card -gt 1 ]     && card=$((card - 1)) ;;
        -1) error_exit $RESULT                        ;;
       esac
   done
   return
}

del_card()
{
   update=$(mktemp)
   backtitle=$(get_backtitle)
   while :
   do
       cat >$helper <<__EOF__
DIALOGRC=flip.rc dialog           \\
   --backtitle "$backtitle"      \\
   --cancel-label Back           \\
   --ok-label Delete             \\
   --form "Remove a card" 0 -1 7 \\
__EOF__
       view_card_fields $card -60 $helper
       echo "    2>$RESULT" >>$helper
       sh $helper
       EXITCODE=$?

       case $EXITCODE in
       255) exit               ;;
         1) break              ;;
        -1) error_exit $RESULT ;;
       esac

       awk -F "\t" -v RS="\r\n" -v OFS="\t" -v ORS="\r\n" \
           -v card=$card -v delmsg="$delmsg" '
NR != 1 + card {print $0}
NR == 1 + card {print $1, $2, $3, $4, $5, $6, delmsg}
' $f >$update

       cat $update >$f
   done

   rm -f $update
   return
}

edit_card()
{
   backtitle=$(get_backtitle)
   cat >$helper <<__EOF__
dialog --backtitle "$backtitle" \\
   --no-cancel                 \\
   --ok-label Back             \\
   --form "Edit a card" 0 -1 7 \\
__EOF__
   view_card_fields $card 60 $helper
   echo "    2>$RESULT" >>$helper
   sh $helper
   EXITCODE=$?

   case $EXITCODE in
   255) exit                  ;;
     0) update_record $RESULT ;;
    -1) error_exit $RESULT    ;;
   esac

   return
}

error_exit() {
   RESULT="$1"
   printf "Error: "
   cat $RESULT
   exit
}

find_record()
{
   infile=$1
   outfile=$(mktemp)
   pos=0
   backtitle=$(get_backtitle)

   term=$(awk -v OFS="\t" '{
   if (length($0) > 0) {
       print NR, $0
       exit
   }
}' $infile)

   while :
   do
       awk -F "\t" -v RS="\r\n" -v pos=$pos -v term="$term" '
BEGIN {
   OFS = FS
   found = 0
   nextpos = 0
   num = split(term, fields, /\t/)
   if (num == 2) {
       field = fields[1]
       value = fields[2]
   } else {
       field = 1
       value = ""
   }
}

{
   result = 0
   if (length(value) > 0) {
       if (value == $field) {
           result = 1
       }
   }
   if (result == 1) {
       found++
       if (nextpos == 0 && NR - 1 > pos) {
           nextpos = NR - 1
       }
       lastpos = NR - 1
   }
}

END {
   if (nextpos == lastpos) {
      islast = 1
   } else {
      islast = 0
   }
   print nextpos, found, islast, value
}' $f >$outfile

       pos=$(cat $outfile    | cut -f 1)
       found=$(cat $outfile  | cut -f 2)
       islast=$(cat $outfile | cut -f 3)
       value=$(cat $outfile  | cut -f 4)
       if [ $found -eq 0 ]
       then
           dialog --backtitle "$backtitle" \
               --msgbox "Didn't find: $value" 0 0
           break
       else
           card=$pos
           backtitle=$(get_backtitle)
           cat >$helper <<__EOF__
DIALOGRC=flip.rc dialog                   \\
   --backtitle "$backtitle"              \\
   --ok-label Next                       \\
   --cancel-label Back                   \\
   --form "Searching for $value " 0 -1 7 \\
__EOF__
           view_card_fields $card -60 $helper
           echo "    2>$RESULT" >>$helper
           sh $helper
           EXITCODE=$?

           case $EXITCODE in
           255) exit               ;;
             1) break              ;;
             0)
                if [ $islast -eq 1 ]
                then
                    msg="Search over\nFound: $found times"
                    dialog --backtitle "$backtitle" \
                        --msgbox "$msg" 0 0
                    break
                fi
                ;;
            -1) error_exit $RESULT ;;
           esac
       fi
   done
   rm -f $outfile
   return
}

get_backtitle()
{
   if [ $last -eq 0 ]
   then
       echo "No cards in file"
   elif [ $last -gt 0 ]
   then
       if [ $card -lt $((mx + 1)) ]
       then
           echo "$last cards on card $card "
       else
           echo "$last cards"
       fi
   fi
   return
}

load()
{
   last=$(awk -v RS="\r\n" 'NR == 1 {print $1}' $cardfile)
   card=1

   printf "Name\tStreet\tTown\tCounty\tCode\tPhone\tInfo\r\n" >$f

   awk -F "\t" -v RS="\r\n" -v OFS="\t" -v ORS="\r\n" '
NR > 1 {
   name=$0
   getline street
   getline town
   getline county
   getline code
   getline phone
   getline info
   print name, street, town, county, code, phone, info
}' $cardfile >>$f

   return
}

save()
{
   # write count of not-deleted records

   awk -F "\t" -v RS="\r\n" -v ORS="\r\n" -v delmsg="$delmsg" '
NR > 1 {
   if ($7 != delmsg) {
       notdel++
   }
}
END {
   print notdel
}' $f >$cardfile

   # write lines for not-deleted records

   awk -F "\t" -v RS="\r\n" -v OFS="\r\n" -v ORS="\r\n" \
   -v delmsg="$delmsg" '
NR > 1 {
   if ($7 != delmsg) {
       print $1, $2, $3, $4, $5, $6, $7
   }
}' $f >>$cardfile

   cat $f >$exported

   echo "Cards saved. You are no longer in Flip-file."
   exit 0
}

search()
{
   backtitle=$(get_backtitle)
   dialog --backtitle "$backtitle" \
       --no-cancel                 \
       --ok-label "Search"         \
       --form "Search" 0 -1 7      \
       Name:   1 1 "" 1 10 60 $il  \
       Street: 2 1 "" 2 10 60 $il  \
       Town:   3 1 "" 3 10 60 $il  \
       County: 4 1 "" 4 10 60 $il  \
       Code:   5 1 "" 5 10 60 $il  \
       Phone:  6 1 "" 6 10 60 $il  \
       Info:   7 1 "" 7 10 60 $il  \
       2>$RESULT
   EXITCODE=$?

   case $EXITCODE in
   255) exit                ;;
     0)
        find_record $RESULT
        break
        ;;
    -1) error_exit $RESULT  ;;
   esac

   return
}

update_record()
{
   infile=$1
   record=$(mktemp)
   update=$(mktemp)

   awk -F "\n" -v OFS="\t" -v RS="\xFF" '{
print $1, $2, $3, $4, $5, $6, $7
}' $infile >$record

   rec=$(cat $record)

   awk -F "\t" -v RS="\r\n" -v ORS="\r\n" -v card=$card \
       -v rec="$rec" '
NR != 1 + card {print $0}
NR == 1 + card {print rec}
' $f >$update

   cat $update >$f
   rm -f $record $update
   return
}

view_card_fields()
{
   pos="$1"
   len="$2"
   out="$3"

   awk -F "\t" -v RS="\r\n" -v ORS="\r\n" -v card=$pos \
       -v len=$len -v il=$il '
NR == 1 {
   for (i = 1; i <= NF; i++) {
       name[i] = toupper(substr($i, 1, 1)) substr($i, 2) ":"
   }
}
NR == 1 + card {
   for (i = 1; i <= NF; i++) {
       q = "\"" $i "\""
       printf "%-7s %d 1 %-9s %d 10 %d %d \\\n",
           name[i], i, q, i, len, il
   }
}' $f >>$out

   return
}

# ==================================================================

main() {
   printf "Name\tStreet\tTown\tCounty\tCode\tPhone\tInfo\r\n" >$f
   while :
   do
       backtitle=$(get_backtitle)
       dialog --backtitle "$backtitle"             \
           --no-cancel                             \
           --menu "Would you like to:" 0 0 7       \
           ADD    "Add a card"                     \
           REMOVE "Remove a card"                  \
           ALTER  "Alter a card (edit/update)"     \
           BROWSE "Flip cards (browse/search)"     \
           LOAD   "Load cards"                     \
           SAVE   "File these cards (save & quit)" \
           2>$RESULT
       EXITCODE=$?

       case $EXITCODE in
       255) exit               ;;
        -1) error_exit $RESULT ;;
       esac

       OUTPUT=$(cat $RESULT)

       if [ "$OUTPUT" != "ADD" -a "$OUTPUT" != "LOAD" ]
       then
           if [ $last -eq 0 ]
           then
               dialog --backtitle "$backtitle" \
                   --msgbox "No cards in file" 0 0
               continue
           fi
       fi

       case "$OUTPUT" in
       REMOVE) del_card  ;;
       ADD)    add_card  ;;
       ALTER)  edit_card ;;
       BROWSE) browse    ;;
       LOAD)   load      ;;
       SAVE)   save      ;;
       esac
   done
   exit 0
}

main

You are viewing proxied material from tilde.pink. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.