[an error occurred while processing this directive]
;
string
| integer
| point
| box
| frame
| window
| display
,
varstring
] string_var =
string_exp ;
integer
] integer_var =
integer_exp ;
point
] point_var =
point_exp ;
box
] box_var =
box_exp ;
frame
] frame_var =
frame_exp ;
window
] window_var =
window_exp ;
display
] display_var =
display_exp ;
display
] display_var &=
display_exp ;
//
string_expstrcat(
string_exp ,
string_exp )
substr(
string_exp ,
integer_exp ,
integer_exp )
itos(
integer_exp )
.string
.pict
.font
.bgcolor
.fgcolor
.bdcolor
.relief
if
integer_exp then
string_exp else
string_exp endif
ImageFile(
string_exp ,
string_exp )
ImageScale(
image_exp ,
integer ,
integer )
if
integer_exp then
image_exp else
image_exp endif
.c
.r
-
integer_exp(
integer_exp )
strlen(
string_exp )
.
integer_exp.xmin
.ymin
.xmax
.ymax
if
integer_exp then
integer_exp else
integer_exp endif
+
| -
| *
| /
| %
| ==
| !=
| >
| >=
| <
| <=
| &&
| ||
{
integer_exp ,
integer_exp }
+
point_exp-
point_exp.
directionif
integer_exp then
point_exp else
point_exp endif
n
| e
| s
| w
| ne
| nw
| se
| sw
[
point_exp ,
point_exp ]
[
point_exp ,
integer_exp ,
integer_exp ]
.
integer_exp.
box
shift(
box_exp ,
integer_exp ,
integer_exp )
intersect(
box_exp ,
box_exp )
centre(
box_exp ,
box_exp )
enclose(
box_exp ,
box_exp )
reduce(
box_exp ,
box_exp )
if
integer_exp then
box_exp else
box_exp endif
,
box_exp(
box_list )
.frame
append(
frame_exp ,
integer_exp ,
box_exp )
delete(
frame_exp ,
integer_exp )
&
frame_expif
integer_exp then
frame_exp else
frame_exp endif
{
window_field_list }
.
integer_expif
integer_exp then
window_exp else
window_exp endif
,
window_fieldtype
:
{ TEXT
| TEXTBOX
| DONALD
| ARCA
}frame
:
frame_expstring
:
string_expfont
:
string_expbox
:
box_exppict
:
string_expxmin
:
integer_expymin
:
integer_expxmax
:
integer_expymax
:
integer_expbgcolour
| bgcolor
} :
string_expfgcolour
| fgcolor
} :
string_expbdcolour
| bdcolor
} :
string_expborder
:
integer_exprelief
:
string_expalignment
:
justificationsensitive
:
{ ON
| OFF
}NOADJ
| LEFT
| RIGHT
| EXPAND
| CENTRE
/
window_exp<
window_list >
append
(
display_exp ,
integer_exp ,
window_exp )
delete
(
display_exp ,
integer_exp )
if
integer_exp then
display_exp else
display_exp endif