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

long_281

问cimatron 后处理文件是用什么语言编写的,
LINEAR MOTION: FAST:
: _+ q! g# P9 {! Y9 {      FlagSpin = NO ;
      IF_SET (SPIN_SPEED) FlagSpin = YES ; END_IF ;
$ n, I& t$ ^( ~8 C2 }, X# x- x      IF_SET (SPIN_DIR)   FlagSpin = YES ; END_IF ;
4 D5 t# c- J& \) r2 f      IF_SET (FlagSpin _EQ_ YES)
% \- g  O! f8 f' Y7 @         SET_ON SPIN_SPEED SPIN_DIR ;
; ~( V* K# k4 W
7 ^# z0 p/ V4 x; b; y3 U4 }  _********************************************************
! D6 z  L: M# m* define private variables:
FORMAT (SEQUENCING)  Seq SubSeq count first deg id K ;
% E4 K! G# B: O  bFORMAT (COORDINATES) Xold Yold Zold DXcenter DYcenter DZcenter ;
* F7 x  c9 X  j9 g& f  q7 cFORMAT (COORDINATES) Zinit Clear Depth CNTRL_X  CNTRL_Y  CNTRL_Z  KNOT_ ;
FORMAT (COORDINATES) Xhome Yhome Zhome Time maxz minz radout timeso ;
FORMAT (COORDINATES) XfirstOrigin YfirstOrigin ZfirstOrigin ;
; {2 w' Y1 X' _' q9 F; ~FORMAT (USER_1)      CurrSubNum ;
FORMAT (coordinates) ORIGOLDI ORIGOLDJ ORIGOLDK offset Tol ;

* define private flags:
' X. P' B+ @* b  }5 gFORMAT (USER_2)      FlagSub FlagSeq FlagSpin;
FORMAT (USER_2)      FirstOriginChange FlagError Flagrotmac  ;
+ u2 ]+ l. T) i
* define private constants:
FORMAT (USER_2)      YES NO ;
2 E* a/ l6 W8 c& c6 i1 e
0 l. @) r$ z+ S$ D2 dFORMAT (TOOL) D R L ;
: V# F9 |, I2 H! G- ~& R% R*文件命名时使用的TP或刀具字符赋值变量(代码中仅用tl）
; ^3 d8 I" D: AFORMAT (CHARACTER) tp tl pm ;
$ Q% T  Y- d4 }" z* W& `- ]********************************************************
/ V* u2 h* C, y. g* g0 A; W- \9 QINTERACTION (CHARACTER)    "SEQUENCING<Y/N>"         NumYN       = "N"  ;
' I8 H; u4 v! h( R0 W% A1 `  ]1 p, nINTERACTION (SEQUENCING)   "SEQUENC-START"           SeqStart    = 1   ;
INTERACTION (SEQUENCING)   "SEQUENC-INCR."           SeqIncr     = 1   ;
# T3 v8 x, g2 e( _: RINTERACTION (CHARACTER)   "JT/A/Sim/B/Fanuc/C/"      CONTTYPE    = "C"  ;
, Z' f2 H: x' t8 N2 m* vINTERACTION (CHARACTER)      "R-OUTPUT<Y/N>"         RADOUTPUT   = "N"  ;
! b  [- M5 [% f, ?- _' b# x5 T) M
: e8 k* n, _# Z. q7 o8 \INTERACTION (CHARACTER)       "X-Y/SN<A/B>"             XOY      = "A"  ;
4 t' j4 @" ], E/ Q: h, p, wINTERACTION (COORDINATES)      "DW-X"                   XO       = "0"  ;
INTERACTION (COORDINATES)      "DW-Y"                   YO       = "0"  ;
INTERACTION (CHARACTER)        "Tel"                    Tel      = "135........" ;
INTERACTION (CHARACTER)        "Z/SN<A/B>"              Zplain   = "A"  ;
3 v$ M+ u$ S# y3 f  GINTERACTION (COORDINATES)      "DW-Z"                   ZO       = "0"  ;
********************************************************
- t# ~, m3 [5 |/ R7 N" YNON_MODAL  ALL_VAR;
MODAL      X_CURPOS Y_CURPOS Z_CURPOS ;
$ Z" ?& e0 E) x' K5 r1 a6 SMODAL      LIN_MOV CIRC_MOV MCH_FEED SPIN_SPEED SPIN_DIR MCH_COOL MCH_DWELL;
MODAL      CUTCOM_ON  CUTCOM_OFF ;
MODAL      CYC_DEPTH CYC_PECK CYC_DWELL CYC_RETR CYC_CLEAR Depth Clear NURBS_MOV;
      
IDENTICAL  X_CURPOS X_ENDPT ;
IDENTICAL  Y_CURPOS Y_ENDPT ;

********************************************************
! x# I0 J: m/ X6 j$ K6 ~0 J! c- f( uNEW_LINE_IS $ ;
: N6 ?/ k" u) H/ `8 G; n+ v7 |      IF_SET (FlagSeq _EQ_ NO)
: D+ U) e( i2 z0 m         OUTPUT \J ;
      ELSE
         IF_SET (FlagSub _EQ_ NO)
            OUTPUT \J "N" Seq ;
& z& a9 Y  M5 [0 L2 Q7 y            Seq = Seq + SeqIncr ;
         ELSE
6 }) {: ]2 n3 t' P7 @6 P5 q- I            OUTPUT \J "N" SubSeq ;
            SubSeq = SubSeq + SeqIncr ;
         END_IF ;
9 O2 w. u4 k) V& z% _( h  P, R  d      END_IF ;
- W: |. w7 H/ H+ O$ `
********************************************************
4 ~' G- R! D- Y1 X- _' S  
) Q: V& F6 F0 kBEGINNING OF TAPE:
      YES              = 1 ;
# s% [! w$ r- u1 l" h      NO               = 0 ;
      Seq              = SeqStart ;