lib/scripts/isa-xterm
author wenzelm
Mon, 03 Mar 1997 18:26:33 +0100
changeset 2713 7231c1e89706
parent 2712 44a657985de1
child 2743 b001ec2b56e1
permissions -rwxr-xr-x
removed bash debug;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2713
7231c1e89706 removed bash debug;
wenzelm
parents: 2712
diff changeset
     1
#!/bin/bash -norc
2300
9af0cf87ac48 isa-xterm: Isabelle within an xterm.
wenzelm
parents:
diff changeset
     2
#
2307
508d2a233dbc *** empty log message ***
wenzelm
parents: 2300
diff changeset
     3
# $Id$
508d2a233dbc *** empty log message ***
wenzelm
parents: 2300
diff changeset
     4
#
2300
9af0cf87ac48 isa-xterm: Isabelle within an xterm.
wenzelm
parents:
diff changeset
     5
# Isabelle within an xterm.
9af0cf87ac48 isa-xterm: Isabelle within an xterm.
wenzelm
parents:
diff changeset
     6
9af0cf87ac48 isa-xterm: Isabelle within an xterm.
wenzelm
parents:
diff changeset
     7
9af0cf87ac48 isa-xterm: Isabelle within an xterm.
wenzelm
parents:
diff changeset
     8
## diagnostics
9af0cf87ac48 isa-xterm: Isabelle within an xterm.
wenzelm
parents:
diff changeset
     9
2623
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    10
PRG=$(basename $0)
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    11
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    12
function usage()
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    13
{
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    14
  echo
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    15
  echo "Usage: $PRG [OPTIONS] [--] [CMDLINE]"
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    16
  echo
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    17
  echo "  Options are:"
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    18
  echo "    -g GEOM      main window geometry (default 80x60)"
2712
44a657985de1 removed -r option;
wenzelm
parents: 2702
diff changeset
    19
  echo "    -p TEXT      pass text (options etc.) to isabelle session"
2623
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    20
  echo "    -s BOOL      symbolic font output? (default true)"
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    21
  echo
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    22
  echo "  Starts Isabelle within an xterm window. CMDLINE is passed"
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    23
  echo "  directly to the isabelle session."
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    24
  echo
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    25
  exit 1
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    26
}
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    27
2300
9af0cf87ac48 isa-xterm: Isabelle within an xterm.
wenzelm
parents:
diff changeset
    28
function fail()
9af0cf87ac48 isa-xterm: Isabelle within an xterm.
wenzelm
parents:
diff changeset
    29
{
2344
c3e1eaea4418 added -norc option;
wenzelm
parents: 2315
diff changeset
    30
  echo "$1" >&2
2300
9af0cf87ac48 isa-xterm: Isabelle within an xterm.
wenzelm
parents:
diff changeset
    31
  exit 2
9af0cf87ac48 isa-xterm: Isabelle within an xterm.
wenzelm
parents:
diff changeset
    32
}
9af0cf87ac48 isa-xterm: Isabelle within an xterm.
wenzelm
parents:
diff changeset
    33
9af0cf87ac48 isa-xterm: Isabelle within an xterm.
wenzelm
parents:
diff changeset
    34
2623
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    35
## process command line
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    36
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    37
# options
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    38
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    39
MAINGEOM="80x60"
2712
44a657985de1 removed -r option;
wenzelm
parents: 2702
diff changeset
    40
PASS=""
2623
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    41
SYMBOLS="true"
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    42
2712
44a657985de1 removed -r option;
wenzelm
parents: 2702
diff changeset
    43
while getopts "g:p:s:" OPT
2623
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    44
do
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    45
  case "$OPT" in
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    46
    g)
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    47
      MAINGEOM="$OPTARG"
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    48
      ;;
2712
44a657985de1 removed -r option;
wenzelm
parents: 2702
diff changeset
    49
    p)
44a657985de1 removed -r option;
wenzelm
parents: 2702
diff changeset
    50
      PASS="$PASS $OPTARG"
2623
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    51
      ;;
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    52
    s)
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    53
      SYMBOLS="$OPTARG"
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    54
      ;;
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    55
    \?)
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    56
      usage
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    57
      ;;
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    58
  esac
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    59
done
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    60
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    61
shift $(($OPTIND - 1))
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    62
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    63
2300
9af0cf87ac48 isa-xterm: Isabelle within an xterm.
wenzelm
parents:
diff changeset
    64
## main
9af0cf87ac48 isa-xterm: Isabelle within an xterm.
wenzelm
parents:
diff changeset
    65
2623
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    66
if [ -z "$SYMBOLS" -o "$SYMBOLS" = false ]; then
2712
44a657985de1 removed -r option;
wenzelm
parents: 2702
diff changeset
    67
  exec xterm -T Isabelle -n Isabelle -geometry "$MAINGEOM" -e $ISABELLE $PASS "$@"
2300
9af0cf87ac48 isa-xterm: Isabelle within an xterm.
wenzelm
parents:
diff changeset
    68
else
2474
9990f088d7ac minor tuning;
wenzelm
parents: 2430
diff changeset
    69
  $ISATOOL installfonts
2623
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    70
    exec xterm -T Isabelle -n Isabelle -geometry "$MAINGEOM" -fn isacr14 \
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    71
      -xrm "*fontMenu.Label: Isabelle fonts" \
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    72
      -xrm "*fontMenu*font1*Label: Large" \
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    73
      -xrm "*VT100*font1: isacb24" \
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    74
      -xrm "*fontMenu*font2*Label:" \
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    75
      -xrm "*VT100*font2:" \
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    76
      -xrm "*fontMenu*font3*Label:" \
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    77
      -xrm "*VT100*font3:" \
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    78
      -xrm "*fontMenu*font4*Label:" \
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    79
      -xrm "*VT100*font4:" \
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    80
      -xrm "*fontMenu*font5*Label:" \
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    81
      -xrm "*VT100*font5:" \
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    82
      -xrm "*fontMenu*font6*Label:" \
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    83
      -xrm "*VT100*font6:" \
2712
44a657985de1 removed -r option;
wenzelm
parents: 2702
diff changeset
    84
      -e $ISABELLE -m symbols $PASS "$@"
2623
6a7372c9ca0f improved interface options;
wenzelm
parents: 2474
diff changeset
    85
  fi
2300
9af0cf87ac48 isa-xterm: Isabelle within an xterm.
wenzelm
parents:
diff changeset
    86
fi