home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fonts 1 / freshfonts1.bin / bbs / programs / amiga / pastex13.lha / DVIPS / dvips5519.lha / dvips / vmcms / afm2tfm.exec < prev    next >
Text File  |  1992-11-15  |  2KB  |  86 lines
  1.  
  2. *** EOOH ***
  3. Return-Path: <@Sunburn.Stanford.EDU:hafner@almaden.ibm.com>
  4. Date: Wed, 11 Nov 92 09:01:00 PST
  5. From: "James L. Hafner" <hafner@almaden.ibm.com>
  6. To: rokicki@cs.stanford.edu
  7. Subject: AFM2TFM EXEC
  8.  
  9. /* AFM2TFM exec: a front end to the AFM2TFM module for VM/CMS */
  10. /* This is version 2.0 as of 9 Nov. 1992.                     */
  11. /* Written by Jim Hafner (hafner@almaden.ibm.com).            */
  12. /*                                                            */
  13. /* Command is:                                                */
  14. /*    afm2tfm fontname options                                */
  15. /* Note: See the DVIPS manual for the correct options.        */
  16.  
  17. /* END OF HEADER (this line must be preceded by a blank line) */
  18.  
  19. /* This is part of the VM/CMS distribution of Rokicki's DVIPS program.
  20.  * Installers may need to customize this exec extensively, though we
  21.  * have tried to make it as generic as possible.
  22.  *
  23.  * You are welcome to modify this exec in any way you choose.
  24.  *
  25.  * THANKS:
  26.  *   This EXEC is based in large part on an earlier version
  27.  *   created by Alessio Guglielmi (ALESSIO@IPISNSIB.BITNET).  His
  28.  *   contribution is gratefully acknowledged.
  29.  */
  30.  
  31. Address COMMAND
  32. Parse Arg args
  33. If args="" | args="?" Then Signal show_header
  34.  
  35. /* Establish environment for afm2tfm */
  36.  
  37. call resetLibs ;
  38.  
  39. /* run the program */
  40. 'AFM2TFM' args
  41.  
  42. /* Restore old libraries */
  43.  
  44. call restoreLibs ;
  45.  
  46. Exit Rc
  47.  
  48.  
  49. Savelibs: procedure
  50.    arg library
  51.    'MAKEBUF';
  52.    tmplibs = ''
  53.    'QUERY' library '(STACK'
  54.    do i = 1 to queued()
  55.      pull Mode Eq_sign Tmptmplibs
  56.      if Tmptmplibs = 'NONE' then tmplibs = ''
  57.         else tmplibs = tmplibs Tmptmplibs
  58.    end;
  59.    'DROPBUF';
  60.    return tmplibs  ;
  61.  
  62. resetLibs:
  63.    /* get current status of library settings */
  64.    Txtlibs=Savelibs(TXTLIB)
  65.    Loadlibs=Savelibs(LOADLIB)
  66.    /* Establish environment for afm2tfm */
  67.    'GLOBAL TXTLIB IBMLIB EDCBASE'
  68.    'GLOBAL LOADLIB EDCLINK'
  69.    return ;
  70.  
  71. restoreLibs:
  72.    'GLOBAL TXTLIB' Txtlibs
  73.    'GLOBAL LOADLIB' Loadlibs
  74.    return ;
  75.  
  76. show_header:
  77.    index=1
  78.    line=Sourceline(index)
  79.    Do While Substr(line,1,2)="/*"
  80.       parse var line '/*' middle '*/'
  81.       Say middle
  82.       index=index+1
  83.       line=Sourceline(index)
  84.       End
  85.    Exit
  86.