36 lines
1.5 KiB
Mathematica
36 lines
1.5 KiB
Mathematica
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; ;
|
|
; Copyright 2001, 2007 Fidelity Information Services, Inc ;
|
|
; ;
|
|
; This source code contains the intellectual property ;
|
|
; of its copyright holder(s), and is made available ;
|
|
; under a license. If you do not know the terms of ;
|
|
; the license, please stop and do not read further. ;
|
|
; ;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
genout ;output the results
|
|
o outfile:newv u outfile
|
|
n knt
|
|
s knt=0
|
|
w "/****************************************************************",!
|
|
w " *",$c(9),$c(9),$c(9),$c(9),$c(9),$c(9),$c(9),$c(9),"*",!
|
|
w " *",$c(9),"Copyright 2001, ",$Zdate($H,"YEAR")," Fidelity Information Services, Inc",$c(9),"*",!
|
|
w " *",$c(9),$c(9),$c(9),$c(9),$c(9),$c(9),$c(9),$c(9),"*",!
|
|
w " *",$c(9),"This source code contains the intellectual property",$c(9),"*",!
|
|
w " *",$c(9),"of its copyright holder(s), and is made available",$c(9),"*",!
|
|
w " *",$c(9),"under a license. If you do not know the terms of",$c(9),"*",!
|
|
w " *",$c(9),"the license, please stop and do not read further.",$c(9),"*",!
|
|
w " *",$c(9),$c(9),$c(9),$c(9),$c(9),$c(9),$c(9),$c(9),"*",!
|
|
w " ****************************************************************/",!!
|
|
f i="mdef.h","vxi.h","vxt.h","xfer_enum.h" w "#include """,i,"""",!
|
|
w "LITDEF short ttt[",ttt,"] = {",!
|
|
f i=0:1:ttt-2 d prnt
|
|
w ttt(ttt-1),"};",!
|
|
c outfile
|
|
q
|
|
prnt i knt=0 w !,"/*",$j(i,5)," */",$c(9)
|
|
w ttt(i),","
|
|
s knt=knt+1
|
|
i knt>7!(ttt(i)="VXT_END") s knt=0
|
|
q
|