home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Corel / Ventura8 / Ventura / Scripts / EPSInformation.csc < prev    next >
Text File  |  1998-07-08  |  15KB  |  442 lines
  1. REM Parses an EPS File for font and colour information[CorelSCRIPT 8]
  2. REM EPSInformation.csc  March 13, 1998
  3. REM ⌐ 1998 Corel Corporation. All rights reserved.
  4.  
  5. REM This script parses an EPS file for the plate names and font names.
  6. REM For the Colours:
  7. REM        %%DocumentProcessColors: Cyan Black
  8. REM        %%DocumentCustomColors: (PANTONE 226 CV)
  9. REM For the fonts assumed to be resident on the device:
  10. REM        %%DocumentNeededResources: font Times-Roman
  11. REM For the fonts that have had the font info included:
  12. REM        %%DocumentSuppliedResources: procset wCorel6Dict
  13. REM        %%+ font AmericanaXBdCnBT
  14. REM        %%+ font Times-Roman
  15.  
  16.  
  17. #addfol "..\..\Scripts"
  18. #include "ScpConst.csi"
  19. #include "VPConst.csi"
  20.  
  21. #ADDRESBMP IntroBMP "Bitmaps\IntroBMP.bmp"
  22. #ADDRESBMP Step2BMP "Bitmaps\Step2BMP.bmp"
  23. #ADDRESBMP LastBMP "Bitmaps\LastBMP.bmp"
  24.  
  25. 'Constants for Dialog Return Values
  26. GLOBAL CONST DIALOG_RETURN_CANCEL% = 2
  27. GLOBAL CONST DIALOG_RETURN_NEXT% = 3
  28. GLOBAL CONST DIALOG_RETURN_BACK% = 4
  29. GLOBAL CONST DIALOG_RETURN_BROWSE% = 5
  30.  
  31. GLOBAL CONST LIST_SIZE% = 100
  32.  
  33. '/////FUNCTION & SUBROUTINE DECLARATIONS/////////////////////////////////////////////////
  34. DECLARE SUB RegQuery()
  35. DECLARE FUNCTION ShowIntro%()
  36. DECLARE FUNCTION GetEPSFile%()
  37. DECLARE FUNCTION GetEPSInfo%()
  38. DECLARE FUNCTION ShowFinish%()
  39. DECLARE FUNCTION SaveToFile(SaveFile$) AS BOOLEAN
  40.  
  41.  
  42. '/////GLOBAL VARIABLES & CONSTANTS////////////////////////////////////////////////////////
  43. GLOBAL VenturaRoot$                'Ventura root installation directory from registry
  44. GLOBAL EPSFile$
  45. GLOBAL EPSList$(LIST_SIZE)
  46. GLOBAL EPSIndex&
  47. EPSIndex=0
  48.  
  49.  
  50. '/////LOCAL DECLARATIONS//////////////////////////////////////////////////////////////////
  51. DIM DialogReturn%                                        
  52. DIM NextStep%
  53. MAXSTEP% = 4
  54.  
  55.  
  56. ' **************************************************************************************
  57. ' MAIN
  58. ' **************************************************************************************
  59. ON ERROR GOTO ErrorHandler
  60.  
  61. RegQuery    'get root directory where Ventura is installed
  62.  
  63. SETCURRFOLDER VenturaRoot$
  64. EPSFile$ = "*.eps"
  65.  
  66. NextStep = 1
  67. DO
  68.     SELECT CASE NextStep
  69.         CASE 1: DialogReturn = ShowIntro()            'Show Intro dialog
  70.         CASE 2: DialogReturn = GetEPSFile()        '
  71.         CASE 3: DialogReturn = GETEPSInfo()        '
  72.         CASE 4: DialogReturn = ShowFinish()        'Show finish dialog with result of search
  73.     END SELECT
  74.     NextStep = NextStep + DialogReturn
  75. LOOP UNTIL NextStep = MAXSTEP + 1
  76.  
  77. ExitScript:
  78. STOP
  79.  
  80. ErrorHandler:
  81. SELECT CASE ErrNum
  82.     CASE 800
  83.         MESSAGE "FATAL ERROR" & CHR(13) & "Script will now exit."
  84.         RESUME AT ExitScript
  85.     CASE ELSE
  86.         MESSAGE "ERROR: " & STR(ErrNum) & CHR(13) & "Script will now exit."
  87.         RESUME AT ExitScript
  88.     END SELECT
  89.  
  90.  
  91. ' **************************************************************************************
  92. ' RegQuery
  93. ' This subroutine queries the Registry to determine the root directory where Ventura is installed
  94. ' **************************************************************************************
  95. SUB RegQuery
  96. ON ERROR GOTO ErrorHandler
  97.     VentDir$ = REGISTRYQUERY(HKEY_LOCAL_MACHINE,VENTURA_REGQUERY_CONST,"ConfigDir")     'Root directory where Ventura is installed
  98.     
  99.     first% = 1
  100.     pos% = 1
  101.     DO WHILE first <> 0
  102.         first = INSTR(VentDir$, "\", first )
  103.         IF first <> 0 THEN
  104.             pos = first
  105.             first = first + 1
  106.         END IF
  107.     LOOP
  108.     VenturaRoot$ = LEFT(VentDir$, pos - 1) 'Root directory where Visual CADD is installed
  109.  
  110. EXIT SUB
  111. ErrorHandler:
  112.     MESSAGE "Error reading registry."
  113.     ErrNum = 800
  114. END SUB
  115.  
  116.  
  117.  
  118. ' **************************************************************************************
  119. ' ShowIntro
  120. ' This function displays the introduction dialog.
  121. ' 
  122. ' PARAMS: None
  123. '
  124. ' RETURNS: ShowIntro AS INTEGER - Integer indicating dialog return value(user selection)
  125. ' **************************************************************************************
  126. FUNCTION ShowIntro%
  127. BEGIN DIALOG OBJECT IntroDialog 290, 180, "EPS Information Wizard", SUB IntroDialogEventHandler
  128.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  129.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  130.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  131.     TEXT  95, 10, 185, 20, .Text2, "This wizard extracts fonts and colors used in Encapsulated Postscript (EPS) files."
  132.     IMAGE  10, 10, 75, 130, .IntroImage
  133.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  134.     TEXT  95, 40, 185, 20, .Text5, "To begin, click Next."
  135. END DIALOG
  136.  
  137.     IntroDialog.IntroImage.SetImage "#IntroBMP"
  138.     IntroDialog.IntroImage.SetStyle STYLE_IMAGE_CENTERED
  139.     IntroRet%=DIALOG(IntroDialog)
  140.     IF IntroRet% = DIALOG_RETURN_CANCEL THEN STOP            
  141.     IF IntroRet% = DIALOG_RETURN_NEXT THEN ShowIntro = 1        
  142. END FUNCTION
  143.  
  144. ' **************************************************************************************
  145. ' IntroDialogEventHandler
  146. ' This subroutine handles events for the Intro dialog.
  147. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is generating a dialog event.
  148. '        BYVAL Event% - Integer indicating the dialog event that has occurred in the dialog box
  149. ' **************************************************************************************
  150. SUB IntroDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  151.     IF Event% = EVENT_INITIALIZATION THEN         
  152.         IntroDialog.BackButton.Enable FALSE 
  153.     ENDIF
  154.     IF Event% = EVENT_MOUSE_CLICK THEN     
  155.         SELECT CASE ControlID%
  156.             CASE IntroDialog.NextButton.GetID()
  157.                 IntroDialog.CloseDialog DIALOG_RETURN_NEXT
  158.             CASE IntroDialog.CancelButton.GetID()
  159.                 IntroDialog.CloseDialog DIALOG_RETURN_CANCEL
  160.         END SELECT
  161.     ENDIF
  162. END FUNCTION
  163.  
  164.  
  165. ' **************************************************************************************
  166. ' GetEPSFile
  167. ' This function prompts the user to select an eps file.
  168. '
  169. ' RETURNS: GetEPSFile AS INTEGER - Integer indicating dialog return value(user selection)
  170. ' **************************************************************************************
  171. FUNCTION GetEPSFile%
  172. BEGIN DIALOG OBJECT EPSFileDialog 290, 180, "EPS Information Wizard", SUB EPSFileDialogEventHandler
  173.     TEXTBOX  95, 29, 185, 13, .EPSFileTextBox
  174.     PUSHBUTTON  234, 49, 46, 14, .BrowseButton, "&Browse..."
  175.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  176.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Process"
  177.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  178.     TEXT  95, 15, 175, 12, .Text2, "Which EPS file would you like to use?"
  179.     IMAGE  10, 10, 75, 130, .EPSFileImage
  180.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  181.     TEXT  95, 111, 185, 30, .Text3, "Once you have selected an EPS file, click Process to extract the font and color information. This may take several minutes."
  182. END DIALOG
  183.  
  184.     EPSFileDialog.SetStyle STYLE_INVISIBLE
  185.     EPSFileDialog.EPSFileImage.SetImage "#Step2BMP"
  186.     EPSFileDialog.EPSFileImage.SetStyle STYLE_IMAGE_CENTERED
  187.  
  188.     EPSFileDialogRet% = Dialog(EPSFileDialog)
  189.     SELECT CASE EPSFileDialogRet%
  190.         CASE DIALOG_RETURN_CANCEL    
  191.             STOP
  192.         CASE DIALOG_RETURN_NEXT        
  193.             GetEPSFile = 1
  194.         CASE DIALOG_RETURN_BACK         
  195.             GetEPSFile = -1
  196.     END SELECT
  197. END FUNCTION
  198.  
  199.  
  200. ' **************************************************************************************
  201. ' EPSFileDialogEventHandler
  202. ' This subroutine handles events for the library name dialog.
  203. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is generating a dialog event.
  204. '        BYVAL Event% - Integer indicating the dialog event that has occurred in the dialog box
  205. ' **************************************************************************************
  206. SUB EPSFileDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  207. ON ERROR RESUME NEXT
  208.     IF Event% = EVENT_INITIALIZATION THEN         
  209.         EPSFileDialog.EPSFileTextBox.SetText EPSFile$
  210.         pos% = INSTR(EPSFile$, ".")
  211.         IF pos% = 0 THEN 
  212.             EPSFileDialog.NextButton.Enable FALSE
  213.         ELSE
  214.             EPSFileDialog.NextButton.Enable TRUE
  215.         ENDIF    
  216.         EPSFileDialog.SetStyle STYLE_VISIBLE
  217.     ENDIF
  218.  
  219.     IF Event% = EVENT_CHANGE_IN_CONTENT THEN         
  220.         SELECT CASE ControlID%
  221.             CASE EPSFileDialog.EPSFileTextBox.GetID()        
  222.                 EPSFile$ = EPSFileDialog.EPSFileTextBox.GetText()        '
  223.                 pos% = INSTR(EPSFile$, ".")
  224.                 IF pos% = 0 THEN 
  225.                     EPSFileDialog.NextButton.Enable FALSE
  226.                 ELSE
  227.                     EPSFileDialog.NextButton.Enable TRUE
  228.                 ENDIF    
  229.         END SELECT
  230.     ENDIF
  231.  
  232.     IF Event% = EVENT_MOUSE_CLICK THEN         
  233.         SELECT CASE ControlID%
  234.             CASE EPSFileDialog.NextButton.GetID()        
  235.                 OPEN EPSFile$ FOR APPEND AS 1
  236.                 IF LOF(1) > 0 THEN FileExists = TRUE
  237.                 CLOSE
  238.                 IF FileExists = TRUE THEN 
  239.                     EPSFileDialog.closedialog DIALOG_RETURN_NEXT
  240.                 ELSE
  241.                     KILL EPSFile$ 
  242.                     MESSAGE "Cannot locate file:" & CHR(13) & EPSFile$ 
  243.                 ENDIF        
  244.             CASE EPSFileDialog.BackButton.GetID()        
  245.                 EPSFileDialog.closedialog DIALOG_RETURN_BACK
  246.             CASE EPSFileDialog.CancelButton.GetID()        
  247.                 EPSFileDialog.closedialog DIALOG_RETURN_CANCEL    
  248.             CASE EPSFileDialog.BrowseButton.GetID()        
  249.                 EPSFile$ = GETFILEBOX("Encapsulated Postscript File (*.eps)|*.eps", "Open File", 0, EPSFile$)
  250.                 IF EPSFile$ <> "" THEN
  251.                     EPSFileDialog.EPSFileTextBox.SetText EPSFile$
  252.                     EPSFileDialog.NextButton.Enable TRUE
  253.                 ELSE
  254.                     EPSFileDialog.EPSFileTextBox.SetText VenturaRoot$
  255.                     EPSFileDialog.NextButton.Enable FALSE
  256.                 ENDIF
  257.         END SELECT
  258.     ENDIF
  259. END SUB
  260.  
  261.  
  262. ' **************************************************************************************
  263. ' GetEPSInfo
  264. ' This function parases the specified eps file for font and color information.
  265. '
  266. ' PARAMS:
  267. '
  268. ' RETURNS: GetEPSInfo AS INTEGER - Integer indicating dialog return value(user selection)
  269. ' **************************************************************************************
  270. FUNCTION GetEPSInfo%
  271. BEGINWAITCURSOR
  272. ON ERROR GOTO ErrorHandler
  273. DIM EndFile AS BOOLEAN    
  274. NewSize& = LIST_SIZE
  275.  
  276.     FOR x%=1 TO EPSIndex&
  277.         SETEMPTY EPSList$(x%) 
  278.     NEXT x%
  279.     EPSIndex& = 0
  280.     
  281.     OPEN EPSFile$ FOR INPUT AS 1    
  282.  
  283.     seek 1, 33        'ignore first 32 bytes of binary data
  284.     Count%=0
  285.     EndFile=FALSE
  286.     DO UNTIL EndFile=TRUE
  287.         'Get first fields of each line
  288.         INPUT #1, Section$
  289.  
  290.         IF INSTR(Section$, "%%") <> 0 THEN 'Does string start with %%
  291.             'IF section field is valid (ie. one we are looking for), add it to list
  292.             ValidPColor% = INSTR(Section$, "%%DocumentProcessColors:") 'Does string contain %%DocumentProcessColors:
  293.             ValidCColor% = INSTR(Section$, "%%DocumentCustomColors:") 'Does string contain %%DocumentCustomColors:
  294.             ValidNRes% = INSTR(Section$, "%%DocumentNeededResources:") 'Does string contain %%DocumentNeededResources:
  295.             ValidSRes% = INSTR(Section$, "%%DocumentSuppliedResources:") 'Does string contain %%DocumentSuppliedResources:
  296.             ValidFont% = INSTR(Section$, "%%+ font:", 0) 'Does string contain %%+ font:
  297.             IF ValidPColor% <> 0 OR ValidCColor% <> 0 OR ValidNRes% <> 0 OR ValidSRes% <> 0 OR ValidFont% <> 0 THEN        'String is valid
  298.                 EPSIndex = EPSIndex& + 1
  299.                 IF EPSIndex& MOD 100 = 0 THEN 
  300.                     NewSize& = NewSize& + LIST_SIZE
  301.                     REDIM PRESERVE EPSList$(NewSize&)
  302.                 ENDIF
  303.                 EPSList$(EPSIndex&) = RIGHT(Section$, LEN(Section$)-2)
  304.             ENDIF
  305.             Count = Count+1
  306.         ENDIF
  307.         FileEnd% = INSTR(Section, "*", 0) OR INSTR(Section, "EOF")    'Does string contain *
  308.         IF FileEnd <>0 THEN        'File End found 
  309.             EndFile=TRUE
  310.         ENDIF
  311.     
  312.     LOOP
  313.     CLOSE(1)
  314.     GetEPSInfo=1
  315.  
  316. ENDWAITCURSOR
  317. EXIT FUNCTION
  318. ErrorHandler:
  319. SELECT CASE ErrNum
  320.     CASE 200 TO 205
  321.         MESSAGE "ERROR. Unable to open file: " & CHR(13) & EPSFile$
  322.         RESUME AT FunctionEnd
  323.     CASE ELSE
  324.         MESSAGE STR(ErrNum)
  325.         RESUME NEXT
  326.     END SELECT
  327.  
  328. FunctionEnd:
  329.  GetEPSInfo=-1    'go back to previous dialog
  330. END FUNCTION
  331.  
  332.  
  333.  
  334. ' **************************************************************************************
  335. ' ShowFinish
  336. ' This function displays the font and color information for the specified eps file.
  337. ' The user is given the option of saving the information to a text file.
  338. '
  339. ' PARAMS: None
  340. '
  341. ' RETURNS: ShowFinish AS INTEGER - Integer indicating dialog return value(user selection)
  342. ' **************************************************************************************
  343. FUNCTION ShowFinish%
  344. EPSSize%=LEN(EPSFile$)
  345. TXTSize% = LEN("EPS")
  346. TXTFile$ = LEFT(EPSFile$, EPSSize-TXTSize) & "TXT"
  347.  
  348. BEGIN DIALOG OBJECT ShowFinishDialog 290, 180, "EPS Information Wizard", SUB ShowFinishDialogEventHandler
  349.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  350.     PUSHBUTTON  181, 160, 46, 14, .FinishButton, "&Finish"
  351.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  352.     IMAGE  10, 10, 75, 130, .ShowFinishImage
  353.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  354.     TEXT  95, 10, 185, 12, .Text2, "Here is the information extracted from the file:"
  355.     PUSHBUTTON  234, 130, 46, 14, .SaveButton, "&Save"
  356.     LISTBOX  95, 39, 185, 80, .InfoListBox
  357.     TEXT  95, 125, 129, 19, .Text4, "To save the information to a text file, click Save."
  358.     TEXT  95, 23, 185, 12, .Text3, EPSFile$
  359. END DIALOG
  360.  
  361.     ShowFinishDialog.SetStyle STYLE_INVISIBLE
  362.     ShowFinishDialog.ShowFinishImage.SetImage "#LastBMP"
  363.     ShowFinishDialog.ShowFinishImage.SetStyle STYLE_IMAGE_CENTERED
  364.  
  365.     ShowFinishRet% = Dialog(ShowFinishDialog)
  366.     SELECT CASE ShowFinishRet%
  367.         CASE DIALOG_RETURN_CANCEL     
  368.             STOP
  369.         CASE DIALOG_RETURN_NEXT      
  370.             ShowFinishDialog.SetVisible FALSE
  371.             ShowFinish = 1
  372.         CASE DIALOG_RETURN_BACK     
  373.             ShowFinish = -2
  374.     END SELECT
  375. END FUNCTION
  376.  
  377. ' **************************************************************************************
  378. ' ShowFinishDialogEventHandler
  379. ' This subroutine handles events for the finish dialog.
  380. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is generating a dialog event.
  381. '        BYVAL Event% - Integer indicating the dialog event that has occurred in the dialog box
  382. ' **************************************************************************************
  383. SUB ShowFinishDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  384.     IF Event% = EVENT_INITIALIZATION THEN         
  385.         ShowFinishDialog.SetStyle STYLE_VISIBLE
  386.         ShowFinishDialog.InfoListBox.SetArray EPSList$
  387.         ShowFinishDialog.CancelButton.Enable FALSE
  388.     ENDIF
  389.  
  390.     IF Event% = EVENT_MOUSE_CLICK THEN     
  391.         SELECT CASE ControlID%
  392.             CASE ShowFinishDialog.FinishButton.GetID()
  393.                 ShowFinishDialog.CloseDialog DIALOG_RETURN_NEXT
  394.             CASE ShowFinishDialog.BackButton.GetID()
  395.                 ShowFinishDialog.CloseDialog DIALOG_RETURN_BACK
  396.             CASE ShowFinishDialog.CancelButton.GetID()
  397.                 ShowFinishDialog.CloseDialog DIALOG_RETURN_CANCEL
  398.  
  399.             CASE ShowFinishDialog.SaveButton.GetID()        
  400.                 SaveFile$ = GETFILEBOX("Text files (*.txt)|*.txt", "Save As", 1, "EPSInfo.txt", "txt", VenturaRoot$)
  401.                 IF SaveFile <> "" THEN
  402.                     SaveStatus = SaveToFile(SaveFile$)
  403.                     IF SaveStatus = TRUE THEN
  404.                         MESSAGE "Save successful"
  405.                     ELSE
  406.                         MESSAGE "Unable to save to " & CHR(13) & SaveFile$
  407.                     ENDIF
  408.                 ENDIF
  409.  
  410.         END SELECT
  411.     ENDIF
  412. END SUB
  413.  
  414.  
  415. ' **************************************************************************************
  416. ' SaveToFile
  417. ' This function saves the extracted eps information to a text file.
  418. ' 
  419. ' RETURNS: SaveToFile AS INTEGER - Integer indicating dialog return value(user selection)
  420. ' **************************************************************************************
  421. FUNCTION SaveToFile(SaveFile$) AS BOOLEAN
  422. ON ERROR GOTO ErrorHandler
  423.  
  424.     CLOSE
  425.     OPEN SaveFile$ FOR OUTPUT AS 1
  426.     PRINT #1, EPSFile$
  427.  
  428.     FOR i%=1 TO EPSIndex&
  429.         PRINT #1, EPSList(i%)
  430.     NEXT i%
  431.  
  432.     CLOSE(1)
  433.     SaveToFile = TRUE
  434.  
  435. EXIT FUNCTION
  436. ErrorHandler:
  437.     CLOSE
  438.     SaveToFile = FALSE
  439. END FUNCTION
  440.  
  441.  
  442.