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

long_281

问cimatron 后处理文件是用什么语言编写的,
LINEAR MOTION: FAST:
      FlagSpin = NO ;
; A9 z* m; K& b3 D' e/ a. @6 {      IF_SET (SPIN_SPEED) FlagSpin = YES ; END_IF ;
* p+ d( b  R) c. p7 c3 L1 I      IF_SET (SPIN_DIR)   FlagSpin = YES ; END_IF ;
      IF_SET (FlagSpin _EQ_ YES)
6 k) e3 u1 X' X$ ?! ]2 r6 N* M         SET_ON SPIN_SPEED SPIN_DIR ;

********************************************************
$ P" H. S8 @/ P: V( ?* define private variables:
FORMAT (SEQUENCING)  Seq SubSeq count first deg id K ;
  \& D# t4 h4 G. c. ~6 ~4 tFORMAT (COORDINATES) Xold Yold Zold DXcenter DYcenter DZcenter ;
, P& A7 ^4 @: ^* \' BFORMAT (COORDINATES) Zinit Clear Depth CNTRL_X  CNTRL_Y  CNTRL_Z  KNOT_ ;
3 C% B# y1 F6 C( c3 c4 lFORMAT (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 ;
# d5 n( j9 S! R4 \, [
* define private flags:
FORMAT (USER_2)      FlagSub FlagSeq FlagSpin;
3 f. u7 j& o. _FORMAT (USER_2)      FirstOriginChange FlagError Flagrotmac  ;
+ ^. n7 q$ G0 _1 G/ B. a9 V0 \
* define private constants:
FORMAT (USER_2)      YES NO ;

! _2 B8 w+ Z2 k. iFORMAT (TOOL) D R L ;
*文件命名时使用的TP或刀具字符赋值变量(代码中仅用tl）
FORMAT (CHARACTER) tp tl pm ;
********************************************************
INTERACTION (CHARACTER)    "SEQUENCING<Y/N>"         NumYN       = "N"  ;
INTERACTION (SEQUENCING)   "SEQUENC-START"           SeqStart    = 1   ;
INTERACTION (SEQUENCING)   "SEQUENC-INCR."           SeqIncr     = 1   ;
# A9 O) D, t% P, h8 o- A3 xINTERACTION (CHARACTER)   "JT/A/Sim/B/Fanuc/C/"      CONTTYPE    = "C"  ;
, L- U" r( I* wINTERACTION (CHARACTER)      "R-OUTPUT<Y/N>"         RADOUTPUT   = "N"  ;

INTERACTION (CHARACTER)       "X-Y/SN<A/B>"             XOY      = "A"  ;
2 u7 \; j) U$ \$ U, Q! Z1 y% a# VINTERACTION (COORDINATES)      "DW-X"                   XO       = "0"  ;
INTERACTION (COORDINATES)      "DW-Y"                   YO       = "0"  ;
INTERACTION (CHARACTER)        "Tel"                    Tel      = "135........" ;
6 S+ M( f6 F% v5 Q9 _INTERACTION (CHARACTER)        "Z/SN<A/B>"              Zplain   = "A"  ;
! [6 T7 p0 _' g: |; TINTERACTION (COORDINATES)      "DW-Z"                   ZO       = "0"  ;
********************************************************
NON_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;
3 I) y$ G6 ^: \! F) tMODAL      CUTCOM_ON  CUTCOM_OFF ;
MODAL      CYC_DEPTH CYC_PECK CYC_DWELL CYC_RETR CYC_CLEAR Depth Clear NURBS_MOV;
0 H5 F+ `3 k; ^+ u      
- }+ U. C: H3 c4 HIDENTICAL  X_CURPOS X_ENDPT ;
IDENTICAL  Y_CURPOS Y_ENDPT ;

********************************************************
NEW_LINE_IS $ ;
, T( i6 C2 n* B0 U. x2 ~2 ]      IF_SET (FlagSeq _EQ_ NO)
. O7 o5 x2 ~* q, T7 q0 O         OUTPUT \J ;
      ELSE
9 `! a8 X0 v0 y2 E         IF_SET (FlagSub _EQ_ NO)
            OUTPUT \J "N" Seq ;
            Seq = Seq + SeqIncr ;
7 K/ f! t1 s# |0 _         ELSE
& d+ D0 n, e4 E4 u( A3 b; p            OUTPUT \J "N" SubSeq ;
            SubSeq = SubSeq + SeqIncr ;
         END_IF ;
! ^% o4 D& {# k; Z. P      END_IF ;

; t* Y% E& I/ S; A+ F5 x********************************************************
7 x  N1 [* _7 a4 A7 u1 D, |  
BEGINNING OF TAPE:
      YES              = 1 ;
9 j, F( u/ v$ v- F+ ?6 P/ P      NO               = 0 ;
      Seq              = SeqStart ;