cimatron 后处理文件是用什么语言编写的

long_281

问cimatron 后处理文件是用什么语言编写的,
LINEAR MOTION: FAST:
      FlagSpin = NO ;
% \3 K) \! o, \0 e      IF_SET (SPIN_SPEED) FlagSpin = YES ; END_IF ;
) z# u) p. {# ^( }* J/ n) X      IF_SET (SPIN_DIR)   FlagSpin = YES ; END_IF ;
/ D0 O/ n3 v# J/ B# ^* p% l8 D$ u      IF_SET (FlagSpin _EQ_ YES)
         SET_ON SPIN_SPEED SPIN_DIR ;

********************************************************
* define private variables:
8 |& _6 e' a$ S7 C9 Q; ]FORMAT (SEQUENCING)  Seq SubSeq count first deg id K ;
FORMAT (COORDINATES) Xold Yold Zold DXcenter DYcenter DZcenter ;
! O  l. o. V' F2 ^1 B+ G# P( ?FORMAT (COORDINATES) Zinit Clear Depth CNTRL_X  CNTRL_Y  CNTRL_Z  KNOT_ ;
8 s1 ]4 [* ^  l7 a  {! a0 ]FORMAT (COORDINATES) Xhome Yhome Zhome Time maxz minz radout timeso ;
FORMAT (COORDINATES) XfirstOrigin YfirstOrigin ZfirstOrigin ;
FORMAT (USER_1)      CurrSubNum ;
& E, ^7 \0 K8 |$ ^3 a0 tFORMAT (coordinates) ORIGOLDI ORIGOLDJ ORIGOLDK offset Tol ;

* define private flags:
FORMAT (USER_2)      FlagSub FlagSeq FlagSpin;
FORMAT (USER_2)      FirstOriginChange FlagError Flagrotmac  ;

4 r  R) e' ~9 I8 |( z! J+ R) O* define private constants:
FORMAT (USER_2)      YES NO ;
* F7 r6 t% ~* a8 h! e$ }) N
FORMAT (TOOL) D R L ;
*文件命名时使用的TP或刀具字符赋值变量(代码中仅用tl）
FORMAT (CHARACTER) tp tl pm ;
********************************************************
INTERACTION (CHARACTER)    "SEQUENCING<Y/N>"         NumYN       = "N"  ;
( {+ \7 {% O1 Z% z6 t* Z( EINTERACTION (SEQUENCING)   "SEQUENC-START"           SeqStart    = 1   ;
( p; j# _5 ^6 V2 \' y9 `, T' {* lINTERACTION (SEQUENCING)   "SEQUENC-INCR."           SeqIncr     = 1   ;
0 u5 ]! g$ g5 x2 t- ~$ k1 J# k9 gINTERACTION (CHARACTER)   "JT/A/Sim/B/Fanuc/C/"      CONTTYPE    = "C"  ;
+ I1 A  Y% e* }. _; A! b# |3 x( HINTERACTION (CHARACTER)      "R-OUTPUT<Y/N>"         RADOUTPUT   = "N"  ;

/ T/ Q. K4 ^5 m5 f$ LINTERACTION (CHARACTER)       "X-Y/SN<A/B>"             XOY      = "A"  ;
INTERACTION (COORDINATES)      "DW-X"                   XO       = "0"  ;
8 w( f; k3 b" r: v- HINTERACTION (COORDINATES)      "DW-Y"                   YO       = "0"  ;
INTERACTION (CHARACTER)        "Tel"                    Tel      = "135........" ;
INTERACTION (CHARACTER)        "Z/SN<A/B>"              Zplain   = "A"  ;
INTERACTION (COORDINATES)      "DW-Z"                   ZO       = "0"  ;
- E* ]/ A1 \; t********************************************************
, U2 n" P6 f# mNON_MODAL  ALL_VAR;
MODAL      X_CURPOS Y_CURPOS Z_CURPOS ;
MODAL      LIN_MOV CIRC_MOV MCH_FEED SPIN_SPEED SPIN_DIR MCH_COOL MCH_DWELL;
: }9 W, E5 r; b0 M( a: WMODAL      CUTCOM_ON  CUTCOM_OFF ;
MODAL      CYC_DEPTH CYC_PECK CYC_DWELL CYC_RETR CYC_CLEAR Depth Clear NURBS_MOV;
      
7 W) y# s! m: R% SIDENTICAL  X_CURPOS X_ENDPT ;
. J$ {% f4 v& u3 r5 gIDENTICAL  Y_CURPOS Y_ENDPT ;

********************************************************
NEW_LINE_IS $ ;
4 B7 I5 I& {% f3 R  M" \* ]      IF_SET (FlagSeq _EQ_ NO)
* m& p9 u) a% `1 j" e& z0 X         OUTPUT \J ;
% b$ x% \- M# `+ e- X      ELSE
         IF_SET (FlagSub _EQ_ NO)
7 s" A' x* _, L0 H8 L3 g" W            OUTPUT \J "N" Seq ;
4 T" u4 f0 M% k0 h4 V: {            Seq = Seq + SeqIncr ;
         ELSE
0 Q* f* o+ p* L6 p4 K: j* R: y            OUTPUT \J "N" SubSeq ;
6 u5 h/ `8 ]/ u. c4 E* y            SubSeq = SubSeq + SeqIncr ;
6 d- |! W* g) [% F8 `         END_IF ;
+ q  r$ s1 M& w( N      END_IF ;

. |$ U2 Y, W% S" V& S! Q/ h********************************************************
7 p+ a9 c! R( {3 P" `& W  d  
BEGINNING OF TAPE:
      YES              = 1 ;
      NO               = 0 ;
3 T  `2 N3 y3 p      Seq              = SeqStart ;