home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Tools - Objects / MacApp / THINK Pascal Interfaces / THINK Pascal 5 / MacApp.Script < prev    next >
Encoding:
Text File  |  1990-04-03  |  3.6 KB  |  122 lines  |  [TEXT/MACv]
  1. {    Issue an alert message.    }
  2. {$ALERT 'This conversion script should only be used on unmodified MacApp 2.0 sources.'}
  3.  
  4. {    Directories we need to prompt for...    }
  5. {$SETC MacAppInput = '$Which folder contains the MacApp sources?'}
  6. {$SETC MacAppOutput = '$Please select the THINK MacApp Folder:'}
  7. {$SETC MacAppExamples = '$Please select the “•Samples From MacApp•” folder:'}
  8.  
  9. {    directories used by the converter    }
  10. {$SETC MAPInterfaces = (MacAppInput)'Interfaces:PInterfaces:'}
  11. {$SETC MALibraries = (MacAppInput)'Libraries:'}
  12. {$SETC PrivateInterfaces = (MacAppInput)'Libraries:PrivateInterfaces:'}
  13. {$SETC Templates = (MacAppOutput)'Templates:'}
  14. {$SETC OutputDir = (MacAppOutput)'MacApp Source:'}
  15.  
  16. {    compile-time variables    }
  17.  
  18. {$SETC qPerform = FALSE}
  19. {$SETC qDebugTheDebugger = FALSE}
  20. {$SETC qHasForward = FALSE}
  21.  
  22. {    These are the standard USES clause changes.    }
  23.  
  24.     {     Unit dependencies: any unit that USES the first unit in each $DEPEND directive
  25.         must also USE the subsequent units. }
  26.     
  27.     {$DEPEND ULoMem SysEqu Devices}
  28.     {$DEPEND UMacAppUtilities Traps ULoMem}
  29.     {$DEPEND UViewCoords UMacAppUtilities}
  30.     {$DEPEND UMemory UPatch}
  31.     {$DEPEND UMacApp UObject UViewCoords UMemory UFailure UMenuSetup UList}
  32.     {$DEPEND UInspector UObject UList}
  33.     {$DEPEND UDialog UList UAssociation UMacApp UTEView}
  34.     {$DEPEND UPrinting PrintTraps}
  35.     
  36.     {    Additional USES requirements        }
  37.     
  38.     {$USES UDialog UList UAssociation}
  39.     {$USES UInspector UObject UList}
  40.     {$USES UFailure UMacAppUtilities UDebug}
  41.     
  42.     {    Any uses of these units should be removed    }
  43.     {$NOUSES UFailure UMacApp}
  44.     {$NOUSES UMacApp UInspector}
  45.     
  46.     {    Remove USES of the standard Mac interfaces which are built in to THINK Pascal.    }
  47.     
  48.     {$NOUSES * Controls Desk Devices Dialogs DiskInit Errors Events Files Fonts Lists Memory Menus}
  49.     {$NOUSES * OSEvents OSUtils Packages Quickdraw Resources Scrap SCSI SegLoad TextEdit ToolUtils}
  50.     {$NOUSES * Types Windows}
  51.     
  52.     {$NOUSES * MemTypes Quickdraw OSIntf ToolIntf PackIntf}
  53.  
  54. {    input and output directories    }
  55. {$OUTPUT OutputDir}
  56.  
  57. {    Where to find implementation include files    }
  58. {$INCLUDES (MacAppInput)'Libraries:'}
  59.  
  60. {    Where to find .Diff files.                    }
  61. {$DIFFS (MacAppOutput)'Diffs:'}
  62.  
  63. {    Turn off compatibility mode for the MacApp sources proper.    }
  64. {$PORTABLE-}
  65.  
  66. {    Two special interface files        }
  67. {$DIR MAPInterfaces}
  68. {$INPUT 'ULoMem.p'}
  69. {$INPUT 'UViewCoords.p'}
  70.  
  71. {    The MacApp sources. The files we're skipping will be converted based in templates.    }
  72. {$INPUT PrivateInterfaces}
  73. {$SKIP 'UObject.p'}
  74. {$SKIP 'UMacApp.p'}
  75. {$SKIP 'UDebug.p'}
  76. {$SKIP 'UPrinting.p'}
  77.  
  78. {    Allow multi-suffix files to be processed with $INPUT <directory>    }
  79. {$SUFFIX+}
  80. {    The template files for UMacApp et. al.    }
  81. {$INPUT    Templates}
  82.  
  83. {    Turn suffix filtering on again.    }
  84. {$SUFFIX-}
  85.  
  86. {    Turn on compatibility mode for the samples.    }
  87. {$PORTABLE+}
  88.  
  89. {    The sample programs        }
  90. {$SETC SampleDir (MacAppInput)'Examples:Cards:'}
  91. {$INCLUDES SampleDir}
  92. {$OUTPUT (MacAppExamples)'Cards:'}
  93. {$INPUT SampleDir}
  94.  
  95. {$SETC SampleDir (MacAppInput)'Examples:DemoDialogs:'}
  96. {$INCLUDES SampleDir}
  97. {$OUTPUT (MacAppExamples)'DemoDialogs:'}
  98. {$INPUT SampleDir}
  99.  
  100. {$SETC SampleDir (MacAppInput)'Examples:DemoText:'}
  101. {$INCLUDES SampleDir}
  102. {$OUTPUT (MacAppExamples)'DemoText:'}
  103. {$INPUT SampleDir}
  104.  
  105. {$SETC SampleDir (MacAppInput)'Examples:DrawShapes:'}
  106. {$INCLUDES SampleDir}
  107. {$OUTPUT (MacAppExamples)'DrawShapes:'}
  108. {$INPUT SampleDir}
  109.  
  110. {$SETC SampleDir (MacAppInput)'Examples:Nothing:'}
  111. {$INCLUDES SampleDir}
  112. {$OUTPUT (MacAppExamples)'Nothing:'}
  113. {$INPUT SampleDir}
  114.  
  115. {$SETC SampleDir (MacAppInput)'Examples:Calc:'}
  116. {$SETC SrcApp = SampleDir}
  117. {$NOUSES UCalc Printing}
  118. {$INCLUDES SampleDir}
  119. {$OUTPUT (MacAppExamples)'Calc:'}
  120. {$INPUT SampleDir}
  121.  
  122.