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

long_281

问cimatron 后处理文件是用什么语言编写的,
+ J2 `* j% b" _, `LINEAR MOTION: FAST:
      FlagSpin = NO ;
      IF_SET (SPIN_SPEED) FlagSpin = YES ; END_IF ;
! W# f" r- x4 p0 l: b. O+ a      IF_SET (SPIN_DIR)   FlagSpin = YES ; END_IF ;
( X0 M, i/ H8 a* X  T3 H0 h- ^      IF_SET (FlagSpin _EQ_ YES)
         SET_ON SPIN_SPEED SPIN_DIR ;

********************************************************
+ w. w9 O$ T& v* Z7 f* define private variables:
; ?4 G& p2 O9 [4 W3 B4 ZFORMAT (SEQUENCING)  Seq SubSeq count first deg id K ;
( d; b- Q' e% G  ]FORMAT (COORDINATES) Xold Yold Zold DXcenter DYcenter DZcenter ;
+ U. r3 q' H# e  mFORMAT (COORDINATES) Zinit Clear Depth CNTRL_X  CNTRL_Y  CNTRL_Z  KNOT_ ;
( t; p9 |! b; K7 e' ?5 |FORMAT (COORDINATES) Xhome Yhome Zhome Time maxz minz radout timeso ;
/ e& q7 l, v7 ^! W' b9 uFORMAT (COORDINATES) XfirstOrigin YfirstOrigin ZfirstOrigin ;
4 R* C, _' U* [2 L4 GFORMAT (USER_1)      CurrSubNum ;
FORMAT (coordinates) ORIGOLDI ORIGOLDJ ORIGOLDK offset Tol ;
4 J; U" g7 r4 X. K  m6 g
* define private flags:
6 m( O5 l/ G4 S7 y/ `$ s6 P5 u$ oFORMAT (USER_2)      FlagSub FlagSeq FlagSpin;
4 O; x( K; W4 f5 ZFORMAT (USER_2)      FirstOriginChange FlagError Flagrotmac  ;

* define private constants:
FORMAT (USER_2)      YES NO ;

2 @. n2 x0 Z& ~- b. ?FORMAT (TOOL) D R L ;
*文件命名时使用的TP或刀具字符赋值变量(代码中仅用tl）
8 n1 \+ x7 e: K8 t$ bFORMAT (CHARACTER) tp tl pm ;
********************************************************
, Y: d5 b' v$ h2 pINTERACTION (CHARACTER)    "SEQUENCING<Y/N>"         NumYN       = "N"  ;
, c7 s; G  i, o. mINTERACTION (SEQUENCING)   "SEQUENC-START"           SeqStart    = 1   ;
INTERACTION (SEQUENCING)   "SEQUENC-INCR."           SeqIncr     = 1   ;
; }2 \, f9 c; N+ O3 T! g7 pINTERACTION (CHARACTER)   "JT/A/Sim/B/Fanuc/C/"      CONTTYPE    = "C"  ;
INTERACTION (CHARACTER)      "R-OUTPUT<Y/N>"         RADOUTPUT   = "N"  ;
: x% b3 W) O6 A3 Y1 D* I
INTERACTION (CHARACTER)       "X-Y/SN<A/B>"             XOY      = "A"  ;
& F4 N  J' h5 MINTERACTION (COORDINATES)      "DW-X"                   XO       = "0"  ;
' v# g1 C" X; P9 m6 J$ }) DINTERACTION (COORDINATES)      "DW-Y"                   YO       = "0"  ;
INTERACTION (CHARACTER)        "Tel"                    Tel      = "135........" ;
INTERACTION (CHARACTER)        "Z/SN<A/B>"              Zplain   = "A"  ;
# k1 \! K- c% h$ hINTERACTION (COORDINATES)      "DW-Z"                   ZO       = "0"  ;
" ^8 J1 t1 }7 D********************************************************
NON_MODAL  ALL_VAR;
3 D( Z' L; _: ]MODAL      X_CURPOS Y_CURPOS Z_CURPOS ;
MODAL      LIN_MOV CIRC_MOV MCH_FEED SPIN_SPEED SPIN_DIR MCH_COOL MCH_DWELL;
2 `2 |; n7 }# s* p$ Q+ UMODAL      CUTCOM_ON  CUTCOM_OFF ;
- ?8 c. x# h' O4 e* ^. H+ BMODAL      CYC_DEPTH CYC_PECK CYC_DWELL CYC_RETR CYC_CLEAR Depth Clear NURBS_MOV;
; U/ B/ o! o& ?9 s      
9 ~- H( @3 d$ p/ OIDENTICAL  X_CURPOS X_ENDPT ;
IDENTICAL  Y_CURPOS Y_ENDPT ;
& I. v8 V! B: p5 f) C+ y! v
$ S6 s8 J, t% k7 M1 G********************************************************
; x1 R" d9 {5 K4 F! G6 ~, jNEW_LINE_IS $ ;
( H5 Q8 A8 w2 |; B. f      IF_SET (FlagSeq _EQ_ NO)
$ t0 Y. p+ o: N         OUTPUT \J ;
' X5 x' x& w# {6 A1 R6 K  G' K      ELSE
" }# v: k0 t1 M* s& \         IF_SET (FlagSub _EQ_ NO)
3 v2 X: Y/ Q* S6 b% V            OUTPUT \J "N" Seq ;
8 x$ A% \1 p& r7 S5 ~- I            Seq = Seq + SeqIncr ;
+ H' C7 z3 E, O1 \- x         ELSE
            OUTPUT \J "N" SubSeq ;
$ n8 e& U# d! t            SubSeq = SubSeq + SeqIncr ;
         END_IF ;
  ]6 V) M  d& \: g. N      END_IF ;
: Q$ {3 Y: ]5 t# x- N3 g, o
; N( j9 E9 }' ?$ i& S0 c+ \) N********************************************************
  
BEGINNING OF TAPE:
      YES              = 1 ;
) w! A/ a8 D# E8 ?: T6 C8 J0 y      NO               = 0 ;
      Seq              = SeqStart ;