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

long_281

问cimatron 后处理文件是用什么语言编写的,
LINEAR MOTION: FAST:
0 H! C4 g9 O; k' y) l      FlagSpin = NO ;
; o: k7 Q: Z4 j; s/ C      IF_SET (SPIN_SPEED) FlagSpin = YES ; END_IF ;
+ y( l6 L  E; B( O      IF_SET (SPIN_DIR)   FlagSpin = YES ; END_IF ;
      IF_SET (FlagSpin _EQ_ YES)
         SET_ON SPIN_SPEED SPIN_DIR ;
& J8 ^( ]8 m4 {7 |/ k9 G
********************************************************
* define private variables:
# W9 @  T' y- L! E2 }0 dFORMAT (SEQUENCING)  Seq SubSeq count first deg id K ;
FORMAT (COORDINATES) Xold Yold Zold DXcenter DYcenter DZcenter ;
6 z' a" X2 f. T/ t7 j- OFORMAT (COORDINATES) Zinit Clear Depth CNTRL_X  CNTRL_Y  CNTRL_Z  KNOT_ ;
: `, O0 {; H8 D8 Z  }% `3 Y, fFORMAT (COORDINATES) Xhome Yhome Zhome Time maxz minz radout timeso ;
FORMAT (COORDINATES) XfirstOrigin YfirstOrigin ZfirstOrigin ;
FORMAT (USER_1)      CurrSubNum ;
FORMAT (coordinates) ORIGOLDI ORIGOLDJ ORIGOLDK offset Tol ;
- b7 h5 _5 U7 Y9 n& _
* define private flags:
" {' `; G) r5 r% l4 C, nFORMAT (USER_2)      FlagSub FlagSeq FlagSpin;
FORMAT (USER_2)      FirstOriginChange FlagError Flagrotmac  ;

* define private constants:
7 ~) p: M; b4 d  n# dFORMAT (USER_2)      YES NO ;
) P$ Y3 I8 Y0 w- |
: }2 M- p  _0 G" t% w) T: _FORMAT (TOOL) D R L ;
*文件命名时使用的TP或刀具字符赋值变量(代码中仅用tl）
FORMAT (CHARACTER) tp tl pm ;
+ `: i3 z# o2 y+ _6 y# \# K********************************************************
INTERACTION (CHARACTER)    "SEQUENCING<Y/N>"         NumYN       = "N"  ;
INTERACTION (SEQUENCING)   "SEQUENC-START"           SeqStart    = 1   ;
9 x* R6 i7 Z* I% sINTERACTION (SEQUENCING)   "SEQUENC-INCR."           SeqIncr     = 1   ;
! \' T& \8 y( t0 m9 L/ i8 c& NINTERACTION (CHARACTER)   "JT/A/Sim/B/Fanuc/C/"      CONTTYPE    = "C"  ;
INTERACTION (CHARACTER)      "R-OUTPUT<Y/N>"         RADOUTPUT   = "N"  ;

INTERACTION (CHARACTER)       "X-Y/SN<A/B>"             XOY      = "A"  ;
INTERACTION (COORDINATES)      "DW-X"                   XO       = "0"  ;
INTERACTION (COORDINATES)      "DW-Y"                   YO       = "0"  ;
INTERACTION (CHARACTER)        "Tel"                    Tel      = "135........" ;
. k$ Q$ ^  }) I) K+ Y2 u* mINTERACTION (CHARACTER)        "Z/SN<A/B>"              Zplain   = "A"  ;
INTERACTION (COORDINATES)      "DW-Z"                   ZO       = "0"  ;
********************************************************
NON_MODAL  ALL_VAR;
4 w" K. P1 R9 M; r6 L1 iMODAL      X_CURPOS Y_CURPOS Z_CURPOS ;
; d9 e  k0 l2 b$ ]3 f8 TMODAL      LIN_MOV CIRC_MOV MCH_FEED SPIN_SPEED SPIN_DIR MCH_COOL MCH_DWELL;
" T4 Z4 F, q3 v2 K! S9 eMODAL      CUTCOM_ON  CUTCOM_OFF ;
MODAL      CYC_DEPTH CYC_PECK CYC_DWELL CYC_RETR CYC_CLEAR Depth Clear NURBS_MOV;
      
IDENTICAL  X_CURPOS X_ENDPT ;
. X4 G& B* N$ G) q- [* {, UIDENTICAL  Y_CURPOS Y_ENDPT ;

********************************************************
NEW_LINE_IS $ ;
5 i, r  c, R, y6 {7 J3 m2 {      IF_SET (FlagSeq _EQ_ NO)
         OUTPUT \J ;
      ELSE
! f1 `# z+ z9 p2 ^  O+ A& D         IF_SET (FlagSub _EQ_ NO)
0 j- O: Y9 o1 s; |' f            OUTPUT \J "N" Seq ;
8 j  B. \/ C- X* f. |3 E& a            Seq = Seq + SeqIncr ;
         ELSE
6 f+ C) {4 t- r2 X& N            OUTPUT \J "N" SubSeq ;
0 _0 ]0 I' C+ Z$ Y( M3 j; `) |            SubSeq = SubSeq + SeqIncr ;
         END_IF ;
      END_IF ;

% ?/ [8 Z. }- H/ W' K********************************************************
, @. R8 Q* w0 o5 E5 }1 Y3 g1 b  
9 U! r3 I, ~, ?$ L2 cBEGINNING OF TAPE:
/ o0 g, O/ P8 e* i3 U! T0 \, k      YES              = 1 ;
" o% K, \7 w9 A3 U      NO               = 0 ;
6 J) l6 M+ F& X2 a- U8 w      Seq              = SeqStart ;