home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / progrmng / exmpldrw.sit / For THINK Pascal 3.0 / ExampleDraw.Script next >
Encoding:
Text File  |  1990-07-02  |  1.9 KB  |  62 lines  |  [TEXT/MACv]
  1. {    Prompt for the the input and output directories    }
  2.  
  3. {$SETC InputFolder = '$Select ExampleDraw source folder.'}
  4. {$SETC OutputFolder = '$Select converted sources folder.'}
  5. {$SETC DiffFolder = (OutputFolder)'THINK Diffs:'}
  6.  
  7. {$DIFFS DiffFolder}
  8.  
  9. {    These are the standard USES clause changes, copied from "MacApp.Script"    }
  10.  
  11.     {     Unit dependencies: any unit that USES the first unit in each $DEPEND directive
  12.         must also USE the subsequent units. }
  13.     
  14.     {$DEPEND ULoMem SysEqu Devices}
  15.     {$DEPEND UMacAppUtilities Traps ULoMem}
  16.     {$DEPEND UViewCoords UMacAppUtilities}
  17.     {$DEPEND UMemory UPatch}
  18.     {$DEPEND UMacApp UObject UViewCoords UMemory UFailure UMenuSetup UList}
  19.     {$DEPEND UInspector UObject UList}
  20.     {$DEPEND UDialog UList UAssociation UMacApp UTEView}
  21.     {$DEPEND UPrinting PrintTraps}
  22.     
  23.     {    Additional USES requirements        }
  24.     
  25.     {$USES UDialog UList UAssociation}
  26.     {$USES UInspector UObject UList}
  27.     {$USES UFailure UMacAppUtilities UDebug}
  28.     
  29.     {    Any uses of these units should be removed    }
  30.     {$NOUSES UFailure UMacApp}
  31.     {$NOUSES UMacApp UInspector}
  32.     
  33.     {    Remove USES of the standard Mac interfaces which are built in to THINK Pascal.    }
  34.     
  35.     {$NOUSES * Controls Desk Devices Dialogs DiskInit Errors Events Files Fonts Lists Memory Menus}
  36.     {$NOUSES * OSEvents OSUtils Packages Quickdraw Resources Scrap SCSI SegLoad TextEdit ToolUtils}
  37.     {$NOUSES * Types Windows}
  38.     
  39.     {$NOUSES * MemTypes Quickdraw OSIntf ToolIntf PackIntf}
  40.     
  41. {    Tell the converter where to place the converted sources    }
  42. {$OUTPUT OutputFolder}
  43.  
  44. {    Default to the specified input folder for unqualified file names    }
  45. {$DIR InputFolder}
  46.  
  47. {    Look for includes in the specified input folder    }
  48. {$INCLUDES InputFolder}
  49.  
  50.  
  51. {    Fix up uses    }
  52. {$NOUSES UShapeViewHelper UShapeCommands}
  53. {$NOUSES UShapeCommands UShapePaletteView UShapeView}
  54. {$NOUSES UShapePaletteView UShapeView}
  55.  
  56. {    Process the source files from the input folder    }
  57. {$INPUT InputFolder}
  58.  
  59. {    Process the special units    }
  60. {$INPUT (OutputFolder)'SpecialUnits:'}
  61.  
  62.