|
@@ -230,12 +230,6 @@ require: aModuleString
|
|
^require value: aModuleString
|
|
^require value: aModuleString
|
|
!
|
|
!
|
|
|
|
|
|
-withBasePath: aBaseRelativePath
|
|
|
|
- "return a file path which is relative to the basePath."
|
|
|
|
- ^ path join: self basePath with: aBaseRelativePath
|
|
|
|
-!
|
|
|
|
-
|
|
|
|
-
|
|
|
|
validateBasePath
|
|
validateBasePath
|
|
"The basePath must be an existing directory. "
|
|
"The basePath must be an existing directory. "
|
|
fs stat: self basePath then: [ :err :stat | err
|
|
fs stat: self basePath then: [ :err :stat | err
|
|
@@ -243,6 +237,11 @@ validateBasePath
|
|
ifNotNil: [ console warn: 'Warning: path at --base-path parameter ' , self basePath , ' does not exist.' ]].
|
|
ifNotNil: [ console warn: 'Warning: path at --base-path parameter ' , self basePath , ' does not exist.' ]].
|
|
!
|
|
!
|
|
|
|
|
|
|
|
+withBasePath: aBaseRelativePath
|
|
|
|
+ "return a file path which is relative to the basePath."
|
|
|
|
+ ^ path join: self basePath with: aBaseRelativePath
|
|
|
|
+!
|
|
|
|
+
|
|
writeData: data toFileNamed: aFilename
|
|
writeData: data toFileNamed: aFilename
|
|
console log: aFilename
|
|
console log: aFilename
|
|
! !
|
|
! !
|