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

long_281

问cimatron 后处理文件是用什么语言编写的,
LINEAR MOTION: FAST:
, Y1 Q# ~0 _$ b+ g! C# ]  u' W      FlagSpin = NO ;
9 C2 r) g/ f1 t4 F) q) u( k# O      IF_SET (SPIN_SPEED) FlagSpin = YES ; END_IF ;
9 r. C& y( |; a& F      IF_SET (SPIN_DIR)   FlagSpin = YES ; END_IF ;
      IF_SET (FlagSpin _EQ_ YES)
         SET_ON SPIN_SPEED SPIN_DIR ;
8 {$ c/ [3 O. }( i
+ r! M" H4 _4 U$ x********************************************************
* define private variables:
1 X4 G# ^9 J/ q& q) z; ^" R1 T) l; hFORMAT (SEQUENCING)  Seq SubSeq count first deg id K ;
; m- ]2 m' C' E5 w8 x  i9 [FORMAT (COORDINATES) Xold Yold Zold DXcenter DYcenter DZcenter ;
5 m9 u" @. _4 ?& uFORMAT (COORDINATES) Zinit Clear Depth CNTRL_X  CNTRL_Y  CNTRL_Z  KNOT_ ;
8 }) x! n  O; AFORMAT (COORDINATES) Xhome Yhome Zhome Time maxz minz radout timeso ;
FORMAT (COORDINATES) XfirstOrigin YfirstOrigin ZfirstOrigin ;
FORMAT (USER_1)      CurrSubNum ;
3 d& J9 p+ x4 q; d# vFORMAT (coordinates) ORIGOLDI ORIGOLDJ ORIGOLDK offset Tol ;
) o2 N0 w  }( W% X
) t; }* ~, M1 M; `* define private flags:
FORMAT (USER_2)      FlagSub FlagSeq FlagSpin;
) k0 G! h; i& T, T+ }% gFORMAT (USER_2)      FirstOriginChange FlagError Flagrotmac  ;
2 G: ~  [4 e7 B- O; _0 s
$ i1 e. u# J; T; l4 A  m* define private constants:
& g4 ]( m! e0 \8 k9 p5 U( m# F( ~FORMAT (USER_2)      YES NO ;

FORMAT (TOOL) D R L ;
7 `# R7 @$ [4 F3 z4 Z3 z: z, Y: e*文件命名时使用的TP或刀具字符赋值变量(代码中仅用tl）
9 X' y9 Q2 }& T$ P( x6 o! j9 iFORMAT (CHARACTER) tp tl pm ;
; p2 |/ K! V0 E********************************************************
INTERACTION (CHARACTER)    "SEQUENCING<Y/N>"         NumYN       = "N"  ;
INTERACTION (SEQUENCING)   "SEQUENC-START"           SeqStart    = 1   ;
INTERACTION (SEQUENCING)   "SEQUENC-INCR."           SeqIncr     = 1   ;
INTERACTION (CHARACTER)   "JT/A/Sim/B/Fanuc/C/"      CONTTYPE    = "C"  ;
INTERACTION (CHARACTER)      "R-OUTPUT<Y/N>"         RADOUTPUT   = "N"  ;

' _! l9 W5 M! {1 y/ b" dINTERACTION (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........" ;
INTERACTION (CHARACTER)        "Z/SN<A/B>"              Zplain   = "A"  ;
INTERACTION (COORDINATES)      "DW-Z"                   ZO       = "0"  ;
+ [. b" T! l/ |7 [********************************************************
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 l" I. b: Q% EMODAL      CUTCOM_ON  CUTCOM_OFF ;
+ p3 D( s* H" ?5 t' _. |MODAL      CYC_DEPTH CYC_PECK CYC_DWELL CYC_RETR CYC_CLEAR Depth Clear NURBS_MOV;
+ K0 ?4 Y5 B7 c6 j      
% R* a2 J% }' L- ~$ z, dIDENTICAL  X_CURPOS X_ENDPT ;
* }% Q& h* H# oIDENTICAL  Y_CURPOS Y_ENDPT ;
4 W! O) y. Y! Q
+ |* ?1 z$ F" A) }/ s5 l********************************************************
NEW_LINE_IS $ ;
      IF_SET (FlagSeq _EQ_ NO)
         OUTPUT \J ;
      ELSE
% Y6 m9 W0 K8 M! o. g0 s         IF_SET (FlagSub _EQ_ NO)
  n$ j- R* q$ e, L6 Z" I) m9 c            OUTPUT \J "N" Seq ;
( K* ]( @  _5 {6 l5 E: W4 S* h/ w            Seq = Seq + SeqIncr ;
         ELSE
) ~- b) B+ F( \/ U1 d            OUTPUT \J "N" SubSeq ;
            SubSeq = SubSeq + SeqIncr ;
         END_IF ;
      END_IF ;

********************************************************
% ?2 j6 C& M$ g) P* L  
BEGINNING OF TAPE:
" N3 G8 W% O8 s  K' s9 q# F# Y      YES              = 1 ;
      NO               = 0 ;
" t- c1 g' N8 a( Y) a$ x      Seq              = SeqStart ;