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

long_281

问cimatron 后处理文件是用什么语言编写的,
% i5 k4 r  P$ |  i9 J$ g" x0 h5 NLINEAR MOTION: FAST:
      FlagSpin = NO ;
      IF_SET (SPIN_SPEED) FlagSpin = YES ; END_IF ;
' t6 f0 q( {3 U3 d0 [* g) K1 Y, \      IF_SET (SPIN_DIR)   FlagSpin = YES ; END_IF ;
7 E  A: c8 y; O9 e6 c( l" s4 C$ C      IF_SET (FlagSpin _EQ_ YES)
         SET_ON SPIN_SPEED SPIN_DIR ;
& j7 C9 ^" T( f2 `1 n% f
  j$ Z" I4 w& s/ Z* l0 x********************************************************
* define private variables:
FORMAT (SEQUENCING)  Seq SubSeq count first deg id K ;
FORMAT (COORDINATES) Xold Yold Zold DXcenter DYcenter DZcenter ;
8 [% k' S) Z. U+ v; V+ u7 OFORMAT (COORDINATES) Zinit Clear Depth CNTRL_X  CNTRL_Y  CNTRL_Z  KNOT_ ;
0 U/ q% B: ~8 O) `! _* WFORMAT (COORDINATES) Xhome Yhome Zhome Time maxz minz radout timeso ;
FORMAT (COORDINATES) XfirstOrigin YfirstOrigin ZfirstOrigin ;
FORMAT (USER_1)      CurrSubNum ;
, i7 Y+ [( q2 f* Z6 SFORMAT (coordinates) ORIGOLDI ORIGOLDJ ORIGOLDK offset Tol ;

* define private flags:
FORMAT (USER_2)      FlagSub FlagSeq FlagSpin;
0 C9 p9 R# z* c8 w( K3 Z7 rFORMAT (USER_2)      FirstOriginChange FlagError Flagrotmac  ;

0 F  ]3 c. z! ]! a+ G  ?! e1 c* define private constants:
FORMAT (USER_2)      YES NO ;
+ d% d0 m) t& ]3 G4 K
FORMAT (TOOL) D R L ;
. p8 ]  |- `  y& k1 J*文件命名时使用的TP或刀具字符赋值变量(代码中仅用tl）
4 [/ l$ c% V. ~7 V* ?% f9 JFORMAT (CHARACTER) tp tl pm ;
5 [1 x/ u6 B. V: n2 y********************************************************
# p4 `2 _5 [; J5 m; T& K# V( H, p" kINTERACTION (CHARACTER)    "SEQUENCING<Y/N>"         NumYN       = "N"  ;
- ^( r3 @$ ^' N- }INTERACTION (SEQUENCING)   "SEQUENC-START"           SeqStart    = 1   ;
+ M0 h) P1 k& B* W; q( w' l4 YINTERACTION (SEQUENCING)   "SEQUENC-INCR."           SeqIncr     = 1   ;
7 L5 i8 c% y8 S; h, T$ SINTERACTION (CHARACTER)   "JT/A/Sim/B/Fanuc/C/"      CONTTYPE    = "C"  ;
/ H2 a) |8 J! Z/ HINTERACTION (CHARACTER)      "R-OUTPUT<Y/N>"         RADOUTPUT   = "N"  ;
/ E' r( O) x% x4 a
INTERACTION (CHARACTER)       "X-Y/SN<A/B>"             XOY      = "A"  ;
- `( F4 I" S% o2 X7 h* XINTERACTION (COORDINATES)      "DW-X"                   XO       = "0"  ;
INTERACTION (COORDINATES)      "DW-Y"                   YO       = "0"  ;
* s* Z8 r8 K! G8 D' q2 |INTERACTION (CHARACTER)        "Tel"                    Tel      = "135........" ;
3 X4 U& V1 w3 \/ |& KINTERACTION (CHARACTER)        "Z/SN<A/B>"              Zplain   = "A"  ;
5 ^  o3 k  N" N, c$ _0 mINTERACTION (COORDINATES)      "DW-Z"                   ZO       = "0"  ;
********************************************************
, ~2 b  S, j- jNON_MODAL  ALL_VAR;
MODAL      X_CURPOS Y_CURPOS Z_CURPOS ;
# _0 N( B' H7 y* o0 UMODAL      LIN_MOV CIRC_MOV MCH_FEED SPIN_SPEED SPIN_DIR MCH_COOL MCH_DWELL;
4 W7 x& v+ O7 v2 ]: A: U! x* SMODAL      CUTCOM_ON  CUTCOM_OFF ;
  }5 A. z8 P8 u. ~& oMODAL      CYC_DEPTH CYC_PECK CYC_DWELL CYC_RETR CYC_CLEAR Depth Clear NURBS_MOV;
      
IDENTICAL  X_CURPOS X_ENDPT ;
IDENTICAL  Y_CURPOS Y_ENDPT ;
: P# [3 P$ B5 l
********************************************************
NEW_LINE_IS $ ;
4 I1 k- Q! D: Q      IF_SET (FlagSeq _EQ_ NO)
  O" |$ A: k8 v: ^7 b: A6 }/ s3 n         OUTPUT \J ;
% A5 y5 r& O4 ~      ELSE
         IF_SET (FlagSub _EQ_ NO)
            OUTPUT \J "N" Seq ;
- a7 R* \+ O: A2 y            Seq = Seq + SeqIncr ;
         ELSE
! n4 K! {! i! M& Y! O            OUTPUT \J "N" SubSeq ;
            SubSeq = SubSeq + SeqIncr ;
         END_IF ;
      END_IF ;

********************************************************
: Y) S5 \% o3 G9 j* B% s2 B* y  
BEGINNING OF TAPE:
5 ]9 l. x; d% e      YES              = 1 ;
      NO               = 0 ;
      Seq              = SeqStart ;