Bericht_Nr.465_T ... - TUHH

BL PARSER EINGABE FUER GDA
symbol_,,",ssign
definition
st2,tement
entity
ngp _I::eYl'iord
fi 1e: GDA Fa.ge 1
10-MAR-1986 16:08:03
= -[ \symbol_,,",ssign :
check_record
definition:
.
entity)
= identifier
= "segment"
"=" expression
identifier "(" { statement}
"macro" identifier "(" [identifier {"~"
"{'I { statement}
t'}tl
;; "segment" i denti f i er
U. 11 "\ .J0
~
"macro" identifier "(" number' ")" ).
= (svmbol_.::\s'::.ign : entity) ";".
.- qt-dphi cJ:1t-i m : nongraphJ:,t-i m i ~egment_i nstance
macro_i n.::tc..nce : I~ks_metaf i 1e_t-ec
11'\. , tt
identifier} J It,n
check_record = "'$Ci-iECK"number "~" number "~" numbet-
(ti
~
nongraph~orlm =
segment_instance=
macro_instance =
gks_metaf i 1e_rec=
9p_keYI.JQt-d
11 11 tI 11 tt
crc ~
Ct-C
~ crc J 11
end 11 .
= (gp_keyword [identifierJ [par.::\m_Ii~tJ)
("transfm" [identifierJ tr'ansform_e:-:pr).
ng8_keyword [identifierJ [param_IistJ.
"drcH.J"
"ca.!l"
i denti f i er
identifier
[
":" tr.=ln=tOrr::_'~>:pr
"(" [p,:\t-am_Ii~tJ")"
J.
Eil:" tt-ansfcn-m_e::prJ.
"Gf:::St'l" number {"~" item}.
"pointII: uline" : I1vectQrll
"rotsurf
11
: "ratcur'vlC
iICu.t-V(~!f :
-11
I!("~'.ts'-!l-t
f!::u.rfacell
= IIla.belli : "attribll : IIte;-~tll
"points" : "cit-cle" .
"V