home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PSTSCRPT / DVIPS54.ZIP / DVIPS / VMS / MAKETEXP.COM < prev    next >
Encoding:
Text File  |  1990-11-25  |  3.1 KB  |  117 lines
  1. !!/bin/sh
  2. !
  3. !   This script file makes a new TeX PK font, because one wasn't
  4. !   found.  Parameters are:
  5. !
  6. !   name dpi bdpi magnification [mode]
  7. !
  8. !   `name' is the name of the font, such as `cmr10'.  `dpi' is
  9. !   the resolution the font is needed at.  `bdpi' is the base
  10. !   resolution, useful for figuring out the mode to make the font
  11. !   in.  `magnification' is a string to pass to MF as the
  12. !   magnification.  `mode', if supplied, is the mode to use.
  13. !
  14. !   Note that this file must execute Metafont, and then gftopk,
  15. !   and place the result in the correct location for the PostScript
  16. !   driver to find it subsequently.  If this doesn't work, it will
  17. !   be evident because MF will be invoked over and over again.
  18. !
  19. !   Of course, it needs to be set up for your site.
  20. !
  21. ! TEMPDIR needs to be unique for each process because of the possibility
  22. ! of simultaneous processes running this script.
  23. $ PID = f$getjpi ("","PID")
  24. $ TEMPDIR := d11:[SCRATCH.'PID]
  25. $ TEMPDIRNAME := d11:[scratch]'PID.dir.1
  26. $ NAME := P1
  27. $ DPI  = f$integer(P2)
  28. $ BDPI = f$integer(P3)
  29. $ MAG  = f$edit(P4,"LOWERCASE")
  30. $ MODE = P5
  31. $ if MODE .EQS. "" then 
  32. $   if BDPI .EQ. 300 
  33. $   then
  34. $      MODE := "imagen"
  35. $      goto GotMode
  36. $   endif
  37. $   if BDPI .EQ. 400 
  38. $   then
  39. $      MODE := "nexthi"
  40. $      goto GotMode
  41. $   endif
  42. $   if BDPI .EQ. 100 
  43. $   then
  44. $      MODE := "nextscreen"
  45. $      goto GotMode
  46. $   endif
  47. $   if BDPI .EQ. 635 
  48. $   then
  49. $      MODE := "linolo"
  50. $      goto GotMode
  51. $   endif
  52. $   if BDPI .EQ. 1270
  53. $    then
  54. $      MODE := "linohi"
  55. $      goto GotMode
  56. $   endif
  57. $   if BDPI .EQ. 2540
  58. $    then
  59. $      MODE := "linosuper"
  60. $      goto GotMode
  61. $   endif
  62. $   write sys$output "I don't know the mode for ",BDPI
  63. $   write sys$output "Have your system admin update MakeTeXPK"
  64. $   exit 1
  65. $ GotMode:
  66. $ 
  67. $ GFNAME = f$fao("!AS.!ASgf",'NAME,f$string(DPI))
  68. $ PKNAME = f$fao("!AS.!ASpk",'NAME,f$string(DPI))
  69. $ 
  70. $ pkfilename = f$fao("tex_pk:!AS",PKNAME)
  71. $ pkfile = f$search (pkfilename)
  72. $ if pkfile .EQS. "" 
  73. $ then
  74. $!    Clean up on normal or abnormal exit
  75. $     on control_y then goto ControlY
  76. $     on error then goto ControlY
  77. $     on severe_error then goto ControlY
  78. $ 
  79. $     create/dir 'TEMPDIR
  80. $     OLDDIR = f$environment("DEFAULT")
  81. $     set def 'TEMPDIR
  82. $     command = f$fao ("mf ""\mode:=!AS; mag:=!AS; batchmode; input !AS""",MODE,MAG,'NAME)
  83. $     write sys$output command
  84. $     command
  85. $
  86. $     gffile = f$search (gfname)
  87. $     if gffile .EQS. ""
  88. $     then
  89. $         write sys$output "Metafont failed for some reason on ",gfname
  90. $         goto ControlY
  91. $     endif
  92. $  
  93. $     gftopk 'gfname 
  94. $
  95. $     copy 'pkname tex_pk:'pkname
  96. $     set prot=(o:r,g:r,w:r) tex_pk:'pkname
  97. $     goto GoodExit
  98. $ else
  99. $     write sys$output "tex_pk:",PKNAME," already exists!"
  100. $     exit 
  101. $ endif
  102. $
  103. $
  104. $ GoodExit:
  105. $   set default 'olddir
  106. $   delete 'tempdir*.*.*
  107. $   set prot=w:rewd 'tempdirname
  108. $   delete 'tempdirname
  109. $   exit 
  110. $
  111. $ ControlY:
  112. $   set default 'olddir
  113. $   delete 'tempdir*.*.*
  114. $   set prot=w:rewd 'tempdirname
  115. $   delete 'tempdirname
  116. $   exit 1
  117.