Eliot Miranda uploaded a new version of FileAttributesPlugin to project VM Maker:
http://source.squeak.org/VMMaker/FileAttributesPlugin.oscog-akg.45.mcz
==================== Summary ====================
Name: FileAttributesPlugin.oscog-akg.45
Author: akg
Time: 5 November 2018, 3:16:37.404603 pm
UUID: b0e1cf62-47e3-4a3b-b95c-b639d96c615f
Ancestors: FileAttributesPlugin.oscog-eem.44
Handle numeric return codes from primOpenDir: in the simulator.
=============== Diff against FileAttributesPlugin.oscog-akg.43 ===============
Item was removed:
- ----- Method: FileAttributesPlugin class>>shouldBeTranslated (in category 'translation') -----
- shouldBeTranslated
- ^true!
Item was changed:
----- Method: FileAttributesPluginSimulator>>faOpenDirectory: (in category 'simulation') -----
faOpenDirectory: faPath
"Simulate the the call by actually calling the primitive and discarding the stat information (which will be retrieved again later in the simulation)."
| result status |
result := self primOpendir: faPath first.
+ result ifNil:
+ [status := self noMoreData]
+ ifNotNil:
+ [result isInteger ifTrue:
+ [status := result]
+ ifFalse:
+ [faPath
+ at: 2 put: (result at: 1);
+ at: 3 put: (result at: 3).
+ status := 0 ]].
- result ifNotNil: [
- faPath
- at: 2 put: (result at: 1);
- at: 3 put: (result at: 3).
- status := 0 ]
- ifNil: [status := self noMoreData].
^status
!
1
0
Eliot Miranda uploaded a new version of FileAttributesPlugin to project VM Maker:
http://source.squeak.org/VMMaker/FileAttributesPlugin.oscog-akg.43.mcz
==================== Summary ====================
Name: FileAttributesPlugin.oscog-akg.43
Author: akg
Time: 24 October 2018, 7:58:57.494882 am
UUID: 858c0600-cb54-485c-a61f-0f504638709f
Ancestors: FileAttributesPlugin.oscog-akg.42
FileAttributesPlugin 2.0.5
More VM simulator fixes:
- #faCloseDirectory: handles invalid parameters better
- signal errors back to the simulated image rather than raising an error in the simulator
=============== Diff against FileAttributesPlugin.oscog-akg.42 ===============
Item was changed:
----- Method: FileAttributesPlugin>>versionString (in category 'version string') -----
versionString
"Answer a string containing the version string for this plugin."
<inline: #always>
+ ^'2.0.5'!
- ^'2.0.4'!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>byteStringFromOop: (in category 'simulation support') -----
+ byteStringFromOop: anOop
+ "Answer a copy of the supplied ByteString Oop"
+
+ | sz array ptr |
+
+ sz := interpreterProxy stSizeOf: anOop.
+ ptr := interpreterProxy arrayValueOf: anOop.
+ array := ByteString new: sz.
+ self strncpy: array _: ptr _: sz.
+ ^array!
Item was changed:
----- Method: FileAttributesPluginSimulator>>classOf: (in category 'simulation support') -----
classOf: anOop
| clsOop |
anOop = interpreterProxy nilObject ifTrue: [^UndefinedObject].
clsOop := interpreterProxy fetchClassOf: anOop.
clsOop = interpreterProxy classArray ifTrue: [^Array].
clsOop = interpreterProxy classByteArray ifTrue: [^ByteArray].
+ clsOop = interpreterProxy classString ifTrue: [^ByteString].
self error: 'unknown class'!
Item was changed:
----- Method: FileAttributesPluginSimulator>>faCloseDirectory: (in category 'simulation') -----
faCloseDirectory: faPath
"Simulate the the call by actually calling the primitive and discarding the stat information (which will be retrieved again later in the simulation)."
| result status |
result := self primClosedir: (self faPathPtr: faPath).
+ result isNumber ifFalse:
+ [faPath at: 3 put: nil.
- result ifNotNil: [
- faPath at: 3 put: nil.
status := 0 ]
+ ifTrue:
+ [status := result < 0
+ ifTrue: [result]
+ ifFalse: [self unableToCloseDir]].
- ifNil: [status := self unexpectedError].
^status
!
Item was changed:
----- Method: FileAttributesPluginSimulator>>fromOop: (in category 'simulation support') -----
fromOop: anOop
| cls |
cls := self classOf: anOop.
cls = UndefinedObject ifTrue: [^nil].
cls = Array ifTrue: [^self arrayFromOop: anOop].
cls = ByteArray ifTrue: [^self byteArrayFromOop: anOop].
+ cls = ByteString ifTrue: [^self byteStringFromOop: anOop].
self error: 'Unknown class'.!
Item was changed:
----- Method: FileAttributesPluginSimulator>>signalError:for: (in category 'primitives') -----
signalError: error for: aByteArray
"In the simulation, just return the error code"
+ error ifNil: [ ^interpreterProxy primitiveFail ].
+ error isSymbol ifTrue: [ ^interpreterProxy primitiveFailFor:
+ ((SmalltalkImage current specialObjectsArray at: 52) indexOf: error) ].
- error ifNil: [ ^self primitiveFailed ].
- error isSymbol ifTrue: [ ^self primitiveFailed: error ].
error isPrimitiveError ifFalse: [
"We shouldn't ever get here"
^self primitiveFailed. ].
^error errorCode.
!
1
0
Eliot Miranda uploaded a new version of FileAttributesPlugin to project VM Maker:
http://source.squeak.org/VMMaker/FileAttributesPlugin.oscog-akg.42.mcz
==================== Summary ====================
Name: FileAttributesPlugin.oscog-akg.42
Author: akg
Time: 22 October 2018, 9:30:16.185912 pm
UUID: 5efde3da-1231-4285-879c-6ad23a0456f5
Ancestors: FileAttributesPlugin.oscog-AlistairGrant.41
FileAttributesPlugin 2.0.4
Extends support for running in the VM simulator.
This is still a work-in-progress:
- calling #primitiveFailForOSError: causes the simulator to fail.
- FilePlugin has more unicode fixes required.
- #memcpy:_:_: doesn't handle ByteArray's as a destination
=============== Diff against FileAttributesPlugin.oscog-AlistairGrant.28 ===============
Item was changed:
----- Method: FileAttributesPlugin class>>declareCVarsIn: (in category 'translation') -----
declareCVarsIn: cg
self declareC: #('sCLPfn' 'sCOFfn')
as: #'void *'
in: cg.
"Assume the security plugin can be loaded until proven otherwise"
cg var: 'hasSecurityPlugin' declareC: 'int hasSecurityPlugin = 1'.
+ cg addHeaderFile: '<errno.h>'.
cg addHeaderFile: '<limits.h>'.
cg addHeaderFile: '<sys/types.h>'.
+ cg addHeaderFile: '<unistd.h>'.
cg addHeaderFile: '<dirent.h>
+ #if _WIN32 || _WIN64
+ # include <windows.h>
+ # include <winbase.h>
+ # define FAIL() { return -1; }
+ # include "sqWin32File.h"
+ # if !!defined(PATH_MAX) /* work around bug in 64-bit cygwin; sigh :-( */
+ # define PATH_MAX 4096
+ # endif
+ # define HAVE_CHMOD 0
+ # define HAVE_CHOWN 0
+ #else
+ #define HAVE_CHMOD 1
+ #define HAVE_CHOWN 1
+ #endif'.
+ cg addHeaderFile: '"faCommon.h"'.
- #ifdef _WIN32
- #include <windows.h>
- #include <winbase.h>
- #define FAIL() { return -1; }
- #include "sqWin32File.h"
- #endif
- typedef struct dirptrstruct {
- DIR *dp;
- int path_len;
- char *path_file;
- char path[PATH_MAX+4];
- } osdir;'.
cg addHeaderFile: '<sys/stat.h>
+ #if !!defined(HAVE_LSTAT) && !!defined(_WIN32) && !!defined(_WIN64)
+ # define HAVE_LSTAT 1
- #if !!defined(HAVE_LSTAT) && !!defined(_WIN32)
- #define HAVE_LSTAT 1
#endif'.
cg addHeaderFile: '<unistd.h>
+ /* AKG 2018 - ', self moduleName, '.c translated from class ', self name, ' */'!
- /* AKG 2017 - ', self moduleName, '.c translated from class ', self name, ' */'!
Item was added:
+ ----- Method: FileAttributesPlugin class>>moduleName (in category 'translation') -----
+ moduleName
+
+ ^ 'FileAttributesPlugin'!
Item was added:
+ ----- Method: FileAttributesPlugin class>>primFileAttributeOf:number: (in category 'testing') -----
+ primFileAttributeOf: pathString number: attributeNumber
+ "Answer a single file attribute.
+ pathString is the path to the file
+ attributeNumber identifies which attribute to return:
+ 1 - 12: stat(): name, mode, ino, dev, nlink, uid, gid, size, accessDate, modifiedDate, changeDate, creationDate
+ 13 - 15: access(): R_OK, W_OK, X_OK
+ 16: isSymlink
+ On error, fail with an error code containing the appropriate OS error code."
+
+ "(1 to: 16) collect: [:i| self primFileAttributeOf: '.' number: i]"
+ "(1 to: 16) collect: [:i| self primFileAttributeOf: 'THIS HAS A GOOD CHANCE OF FAILING' number: i]"
+
+ <primitive: 'primitiveFileAttribute' module: 'FileAttributesPlugin' error: ec>
+ ^self primitiveFailed!
Item was added:
+ ----- Method: FileAttributesPlugin class>>primFileAttributes:attributeNumber: (in category 'testing') -----
+ primFileAttributes: pathString attributeNumber: attributeNumber
+ "Answer a single file attribute.
+ primFileAttributes: aString attributeNumber: attributeNumber
+ pathString is the path to the file
+ attributeNumber identifies which attribute to return:
+ 1 - 12: stat(): name, mode, ino, dev, nlink, uid, gid, size, accessDate, modifiedDate, changeDate, creationDate
+ 13 - 15: access(): R_OK, W_OK, X_OK
+ 16: isSymlink
+ On error, fail with an error code containing the appropriate OS error code."
+
+ "(1 to: 16) collect: [:i| self installedFileAttributeFor: '.' numbered: i]"
+ "(1 to: 16) collect: [:i| self installedFileAttributeFor: 'THIS HAS A GOOD CHANCE OF FAILING' numbered: i]"
+
+ <primitive: 'primitiveFileAttribute' module: 'FileAttributesPlugin' error: ec>
+ ^self primitiveFailed!
Item was added:
+ ----- Method: FileAttributesPlugin class>>shouldBeTranslated (in category 'translation') -----
+ shouldBeTranslated
+ ^true!
Item was added:
+ ----- Method: FileAttributesPlugin class>>simulatorClass (in category 'simulation') -----
+ simulatorClass
+ ^FileAttributesPluginSimulator!
Item was removed:
- ----- Method: FileAttributesPlugin>>accessAttributesForFilename:into:startingAt: (in category 'private - file') -----
- accessAttributesForFilename: cPathName into: attributeArray startingAt: offset
- "Call access() for each access type (R, W, X) on the c string cPathName, storing the results in the st array attributeArray."
-
- | index boolean |
- <var: 'cPathName' type: 'char *'>
- index := offset.
- ((self acc: cPathName ess: self fileReadableFlag) = 0)
- ifTrue: [boolean := interpreterProxy trueObject]
- ifFalse: [boolean := interpreterProxy falseObject].
- interpreterProxy
- storePointer: index
- ofObject: attributeArray
- withValue: boolean.
- index := index + 1.
- boolean := ((self acc: cPathName ess: self fileWriteableFlag) = 0)
- ifTrue: [interpreterProxy trueObject]
- ifFalse: [interpreterProxy falseObject].
- interpreterProxy
- storePointer: index
- ofObject: attributeArray
- withValue: boolean.
- index := index + 1.
- boolean := ((self acc: cPathName ess: self fileExecutableFlag) = 0)
- ifTrue: [interpreterProxy trueObject]
- ifFalse: [interpreterProxy falseObject].
- interpreterProxy
- storePointer: index
- ofObject: attributeArray
- withValue: boolean.
- !
Item was changed:
----- Method: FileAttributesPlugin>>addressObjectFor: (in category 'private - directory') -----
addressObjectFor: aMachineAddress
"Answer an ExternalAddress object which represents aMachineAddress"
| addressOop addressOopArrayPointer addressUnion idx |
+ <var: 'aMachineAddress' type: #'void *'>
+ <var: 'addressUnion' type: 'union {void *address; unsigned char bytes[sizeof(void *)];}'>
+ <var: 'addressOopArrayPointer' type: #'unsigned char *'>
+ self touch: addressUnion.
- <var: 'aMachineAddress' type: 'void *'>
- <var: 'addressUnion' declareC: 'union {void *address; unsigned char bytes[sizeof(void *)];} addressUnion'>
- <var: 'addressOopArrayPointer' declareC: 'unsigned char *addressOopArrayPointer'>
addressOop := interpreterProxy
instantiateClass: interpreterProxy classByteArray
indexableSize: self sizeOfPointer.
addressOop ifNil:
[^interpreterProxy primitiveFailFor: PrimErrNoMemory].
addressOopArrayPointer := interpreterProxy arrayValueOf: addressOop.
self cCode: 'addressUnion.address = aMachineAddress'.
idx := 0.
[idx < self sizeOfPointer] whileTrue:
[self cCode: 'addressOopArrayPointer[idx] = addressUnion.bytes[idx]'.
idx := idx + 1].
^ addressOop
!
Item was removed:
- ----- Method: FileAttributesPlugin>>byteArrayFromCString:to: (in category 'private') -----
- byteArrayFromCString: aCString to: byteArrayOop
- "Answer a new ByteArray copied from a null-terminated C string.
- Caution: This may invoke the garbage collector."
-
- | len newByteArray byteArrayPtr |
- <var: 'aCString' type: 'const char *'>
- <var: 'byteArrayPtr' type: 'unsigned char *'>
- <var: 'byteArrayOop' type: 'sqInt *'>
- len := self strlen: aCString.
- "We never return strings longer than PATH_MAX"
- len > #PATH_MAX ifTrue: [^self stringTooLong].
- newByteArray := interpreterProxy
- instantiateClass: interpreterProxy classByteArray
- indexableSize: len.
- newByteArray ifNil:
- [^interpreterProxy primitiveFailFor: PrimErrNoMemory].
- byteArrayPtr := interpreterProxy arrayValueOf: newByteArray.
- self mem: byteArrayPtr cp: aCString y: len.
- byteArrayOop at: 0 put: newByteArray.
- ^0!
Item was changed:
----- Method: FileAttributesPlugin>>canOpenDirectoryStreamFor:length: (in category 'private - directory') -----
canOpenDirectoryStreamFor: aPathCString length: length
"Answer non-zero if security permits the directory to be listed."
"FIXME: This function has not been tested. -dtl"
+ <var: 'aPathCString' type: #'char *'>
- <var: 'aPathCString' type: 'char *'>
"If the security plugin can be loaded, use it to check .
If not, assume it's ok"
"The hasSecurityPlugin flag is set to 1 by default"
(hasSecurityPlugin = 0) ifTrue: [^ true].
sCLPfn ~= 0
ifTrue:
[^ self cCode: ' ((int (*) (char *, int)) sCLPfn)(aPathCString, length)'
inSmalltalk: [true]]
ifFalse:
[hasSecurityPlugin := 0. "Reset the flag so we do not try again next time"
^ true]
!
Item was changed:
----- Method: FileAttributesPlugin>>canStatFilePath:length: (in category 'private - file') -----
canStatFilePath: aPathCString length: length
"Answer non-zero if security permits the a stat() call on the file path. Allow a
stat() call only on files which we are permitted to open."
"FIXME: This function has not been tested. -dtl"
+ <var: 'aPathCString' type: #'char *'>
- <var: 'aPathCString' type: 'char *'>
"If the security plugin can be loaded, use it to check .
If not, assume it's ok"
"The hasSecurityPlugin flag is set to 1 by default"
(hasSecurityPlugin = 0) ifTrue: [^ true].
sCOFfn ~= 0
ifTrue:
[^ self cCode: ' ((int (*) (char *, int, int)) sCOFfn)(aPathCString, length, 0)'
inSmalltalk: [true]]
ifFalse:
[hasSecurityPlugin := 0. "Reset the flag so we do not try again next time"
^ true]
!
Item was changed:
+ ----- Method: FileAttributesPlugin>>cantAllocateMemory (in category 'errors / status') -----
- ----- Method: FileAttributesPlugin>>cantAllocateMemory (in category 'errors') -----
cantAllocateMemory
<inline: #always>
^-10!
Item was changed:
+ ----- Method: FileAttributesPlugin>>cantOpenDir (in category 'errors / status') -----
- ----- Method: FileAttributesPlugin>>cantOpenDir (in category 'errors') -----
cantOpenDir
<inline: #always>
^-9!
Item was changed:
+ ----- Method: FileAttributesPlugin>>cantReadlink (in category 'errors / status') -----
- ----- Method: FileAttributesPlugin>>cantReadlink (in category 'errors') -----
cantReadlink
<inline: #always>
^-8!
Item was changed:
+ ----- Method: FileAttributesPlugin>>cantStatPath (in category 'errors / status') -----
- ----- Method: FileAttributesPlugin>>cantStatPath (in category 'errors') -----
cantStatPath
"SecurityPlugin determined that the requested path cannot be accessed."
<inline: #always>
^-3!
Item was removed:
- ----- Method: FileAttributesPlugin>>checkAccess:mode:to: (in category 'private - file') -----
- checkAccess: pathString mode: mode to: flag
- "Check access to pathString."
-
- | cString len sPtr |
- <export: true>
- <var: 'cString' declareC: 'char cString[PATH_MAX]'>
- <var: 'sPtr' declareC: 'char *sPtr'>
- <var: 'flag' type: 'sqInt *'>
- len := interpreterProxy stSizeOf: pathString.
- "Note: The static sized string buffer is faster than using a Smalltalk allocated
- string as the buffer, and is unlikely to fail in practice. In the event that
- the buffer turns out to be too small, write an error message to stdout before
- failing."
- len >= #PATH_MAX ifTrue: [^self stringTooLong].
- "Copy pathString to the new string"
- sPtr := interpreterProxy arrayValueOf: pathString.
- ((self canStatFilePath: sPtr length: len) = 0) ifTrue: [^self cantStatPath].
- self mem: cString cp: sPtr y: len.
- cString at: len put: 0.
- flag at: 0 put: (self acc: cString ess: mode).
- ^0
- !
Item was added:
+ ----- Method: FileAttributesPlugin>>convertWinToSqueakTime: (in category 'private - windows') -----
+ convertWinToSqueakTime: st
+ "Convert the supplied Windows SYSTEMTIME to Squeak time"
+ <option: #_WIN32>
+
+ | dy secs nDaysPerMonth |
+
+ <returnTypeC: #'sqLong'>
+ <var: 'st' type: #'SYSTEMTIME'>
+ <var: 'dy' type: #'sqLong'>
+ <var: 'secs' type: #'sqLong'>
+ <var: 'nDaysPerMonth' declareC: 'static sqLong nDaysPerMonth[14] = {
+ 0, 0, 31, 59, 90, 120, 151,
+ 181, 212, 243, 273, 304, 334, 365 }'>
+ self touch: nDaysPerMonth.
+
+ "Squeak epoch is Jan 1, 1901"
+ "compute delta year"
+ dy := (self cCode: 'st.wYear') - 1901.
+ secs := (dy * 365 * 24 * 60 * 60) "base seconds"
+ + ((dy bitShift: -2) * 24 * 60 * 60). "seconds of leap years"
+ "check if month > 2 and current year is a leap year"
+ [ (self cCode: 'st.wMonth') > 2 and: [ (dy bitAnd: 16r0003) = 16r0003 ]] ifTrue: [
+ "add one day"
+ secs := secs + (24 * 60 * 60) ].
+ "add the days from the beginning of the year"
+ secs := secs + (self cCode: '(nDaysPerMonth[st.wMonth] + st.wDay - 1) * 24 * 60 * 60').
+ "add the hours, minutes, and seconds"
+ secs := secs + (self cCode: 'st.wSecond + 60*(st.wMinute + 60*st.wHour)').
+ ^secs
+ !
Item was changed:
+ ----- Method: FileAttributesPlugin>>corruptValue (in category 'errors / status') -----
- ----- Method: FileAttributesPlugin>>corruptValue (in category 'errors') -----
corruptValue
<inline: #always>
^-7!
Item was removed:
- ----- Method: FileAttributesPlugin>>fileCreationTimeFor:length:to: (in category 'private - windows') -----
- fileCreationTimeFor: pathString length: pathLength to: creationDate
- "Get the creationDate for the supplied file.
- Linux kernel 4.11 should have statx(), so hopefully there will be a cross-platform
- solution soon. Just dump the c-code and hope to remove it soon."
- <option: #_WIN32>
- | tm winAttrs win32Path sysTime |
- <var: 'pathString' type: 'char *'>
- <var: 'creationDate' type: 'time_t *'>
- <var: 'tm' type: 'struct tm'>
- <var: 'winAttrs' type: 'WIN32_FILE_ATTRIBUTE_DATA'>
- <var: 'win32Path' type: 'WCHAR *'>
- <var: 'sysTime' type: 'SYSTEMTIME'>
- self touch: winAttrs.
- self touch: sysTime.
- self me: (self addressOf: tm) ms: 0 et: tm sizeof.
- "convert the supplied path name into a wide string"
- self ALLOC_: win32Path WIN32_: pathString PATH: pathLength.
- (self cCode: 'GetFileAttributesExW(win32Path, 0, &winAttrs)') = 0 ifTrue:
- [^self getAttributesFailed].
- (self cCode: 'FileTimeToSystemTime(&winAttrs.ftCreationTime, &sysTime)') = 0 ifTrue:
- [^self timeConversionFailed].
-
- self cCode: '
- tm.tm_year = sysTime.wYear - 1900;
- tm.tm_mon = sysTime.wMonth - 1;
- tm.tm_mday = sysTime.wDay;
-
- tm.tm_hour = sysTime.wHour;
- tm.tm_min = sysTime.wMinute;
- tm.tm_sec = sysTime.wSecond;
- tm.tm_isdst = 0;
- *creationDate = mktime(&tm)'.
-
- ^0!
Item was changed:
----- Method: FileAttributesPlugin>>fileToAttributeArray:mask:array: (in category 'private - file') -----
+ fileToAttributeArray: faPath mask: attributeMask array: attributeArray
- fileToAttributeArray: cPathName mask: attributeMask array: attributeArray
"Answer a file attribute array from pathNameOop."
| getStats useLstat getAccess statArray accessArray combinedArray status fileNameOop statBuf |
+ <returnTypeC: #'int'>
+ <var: 'faPath' type: #'fapath *'>
+ <var: 'attributeArray' type: #'sqInt *'>
+ <var: 'statBuf' type: #'faStatStruct'>
- <returnTypeC: 'int'>
- <var: 'cPathName' type: 'char *'>
- <var: 'attributeArray' type: 'sqInt *'>
- <var: 'statBuf' type: 'struct stat'>
"Determine which attributes to retrieve"
getStats := attributeMask anyMask: 1.
getAccess := attributeMask anyMask: 2.
(getStats or: [getAccess]) ifFalse:
["No information has been requested, which doesn't make sense"
^self invalidArguments].
getStats ifTrue:
[
useLstat := attributeMask anyMask: 4.
statArray := interpreterProxy instantiateClass: interpreterProxy classArray indexableSize: 12.
statArray ifNil:
[^interpreterProxy primitiveFailFor: PrimErrNoMemory].
+ self cCode: '' inSmalltalk: [
+ statBuf := ValueHolder new. "ByteArray new: 1024"
+ fileNameOop := ValueHolder new].
status := useLstat ifFalse:
+ [ self faStat: faPath _: (self addressOf: statBuf ) _: (self addressOf: fileNameOop) ]
- [ self putStatFor: cPathName
- intoBuffer: (self addressOf: statBuf)
- targetName: (self addressOf: fileNameOop) ]
ifTrue:
+ [ self faLinkStat: faPath _: (self addressOf: statBuf ) _: (self addressOf: fileNameOop) ].
- [ self putLStatFor: cPathName
- intoBuffer: (self addressOf: statBuf)
- targetName: (self addressOf: fileNameOop) ].
status ~= 0 ifTrue: [^status].
+ status := self statArrayFor: faPath toArray: statArray from: (self addressOf: statBuf) fileName: fileNameOop.
- status := self statArrayFor: cPathName toArray: statArray from: (self addressOf: statBuf) fileName: fileNameOop.
status ~= 0 ifTrue: [^status].
"Set attributeArray in case only stat() attributes have been requested"
attributeArray at: 0 put: statArray
].
getAccess ifTrue:
[
accessArray := interpreterProxy instantiateClass: interpreterProxy classArray indexableSize: 3.
accessArray ifNil:
[^interpreterProxy primitiveFailFor: PrimErrNoMemory].
+ self faAccessAttributes: faPath _: accessArray _: 0.
- self accessAttributesForFilename: cPathName into: accessArray startingAt: 0.
"Set attributeArray in case only access() attributes have been requested"
attributeArray at: 0 put: accessArray
].
+ (getStats and: [getAccess]) ifTrue:
- [getStats and: [getAccess]] ifTrue:
[
combinedArray := interpreterProxy instantiateClass: interpreterProxy classArray indexableSize: 2.
combinedArray ifNil:
[^interpreterProxy primitiveFailFor: PrimErrNoMemory].
attributeArray at: 0 put: combinedArray.
interpreterProxy
storePointer: 0 ofObject: combinedArray withValue: statArray;
storePointer: 1 ofObject: combinedArray withValue: accessArray
].
^0!
Item was changed:
+ ----- Method: FileAttributesPlugin>>getAttributesFailed (in category 'errors / status') -----
- ----- Method: FileAttributesPlugin>>getAttributesFailed (in category 'errors') -----
getAttributesFailed
<inline: #always>
^-4!
Item was changed:
+ ----- Method: FileAttributesPlugin>>invalidArguments (in category 'errors / status') -----
- ----- Method: FileAttributesPlugin>>invalidArguments (in category 'errors') -----
invalidArguments
<inline: #always>
^-6!
Item was changed:
+ ----- Method: FileAttributesPlugin>>invalidRequest (in category 'errors / status') -----
- ----- Method: FileAttributesPlugin>>invalidRequest (in category 'errors') -----
invalidRequest
<inline: #always>
^-11!
Item was removed:
- ----- Method: FileAttributesPlugin>>isSymlink:boolean: (in category 'private - file') -----
- isSymlink: cPathName boolean: resultOop
- "Set resultOop to a boolean indicating whether cPathName is a symbolic link.
- Answer status (0 = success)"
-
- | status statBuf |
- <var: 'cPathName' type: 'char *'>
- <var: 'resultOop' type: 'sqInt *'>
- <var: 'statBuf' type: 'struct stat'>
- self touch: statBuf.
- self cppIf: #HAVE_LSTAT == 1 ifTrue:
- [status := self lst: cPathName at: (self addressOf: statBuf).
- status ~= 0 ifTrue: [^self cantStatPath].
- (self S_ISLNK: statBuf st_mode) = 0
- ifFalse: [resultOop at: 0 put: interpreterProxy trueObject]
- ifTrue: [resultOop at: 0 put: interpreterProxy falseObject]].
- ^0!
Item was added:
+ ----- Method: FileAttributesPlugin>>noMoreData (in category 'errors / status') -----
+ noMoreData
+ <inline: #always>
+ ^1!
Item was removed:
- ----- Method: FileAttributesPlugin>>offsetStatBufTimesForWIN32: (in category 'private - windows') -----
- offsetStatBufTimesForWIN32: statBufPointer
- "Adjust the statBuffer to UTC, see https://msdn.microsoft.com/en-us/library/windows/desktop/ms725481(v=vs.85).…"
- <option: #_WIN32>
- <var: 'statBufPointer' type: 'struct stat *'>
- | status dtzi offset |
- <var: 'offset' type: 'long'>
- <var: 'dtzi' type: 'TIME_ZONE_INFORMATION'>
- status := self GetTimeZoneInformation: (self addressOf: dtzi).
- offset := (self cCode: 'dtzi.Bias' inSmalltalk: [0]) * 60.
- "Adjust for DST if required"
- status = 2 ifTrue: [offset := offset - 3600].
- self cCode: 'statBufPointer->st_atime += offset'.
- self cCode: 'statBufPointer->st_mtime += offset'.
- self cCode: 'statBufPointer->st_ctime += offset'.!
Item was removed:
- ----- Method: FileAttributesPlugin>>oopFromTimeT: (in category 'private') -----
- oopFromTimeT: posixSeconds
- "Answer an object representation of the provided time (time_t).
- The size of time_t is platform dependent, so check the size and convert appropriately."
-
- <var: 'posixSeconds' type: 'time_t'>
-
- ^(self sizeof: #time_t) = 4 ifTrue:
- [interpreterProxy signed32BitIntegerFor: posixSeconds]
- ifFalse:
- [interpreterProxy signed64BitIntegerFor: posixSeconds].
- !
Item was removed:
- ----- Method: FileAttributesPlugin>>openDirectoryStream:ptr: (in category 'private - directory') -----
- openDirectoryStream: pathOOP ptr: osdirPtr
- "Open a new directory stream. Answer a pointer to the directory stream or NULL."
-
- | sPtr len dir |
- <var: 'osdirPtr' type: 'osdir **'>
- <var: 'sPtr' declareC: 'char *sPtr'>
- <var: 'dir' type: 'osdir *'>
- <returnTypeC: 'int'>
- sPtr := interpreterProxy arrayValueOf: pathOOP.
- len := interpreterProxy sizeOfSTArrayFromCPrimitive: sPtr.
- "The path buffer needs room for a trailing slash and the file name, so subtracting 2 is conservative"
- len > (#PATH_MAX - 2) ifTrue: [^self stringTooLong].
- (self canOpenDirectoryStreamFor: sPtr length: len)
- ifTrue:
- [
- dir := self cCode: '(osdir *) malloc(sizeof(osdir))'.
- dir = nil ifTrue: [^self cantAllocateMemory].
- self mem: dir path cp: sPtr y: len.
- "Ensure path has a trailing slash"
- self cCode: 'if (dir->path[len-1] !!= ''/'') {
- dir->path[len++] = ''/'';
- }'.
- self cCode: 'dir->path_file = dir->path + len'.
- self cCode: 'dir->path_file[0] = ''\0'''.
- self cCode: 'dir->path_len = len'.
- self cCode: 'dir->dp = opendir(dir->path)'.
- dir dp ifNil:
- [self free: dir.
- ^self cantOpenDir].
- osdirPtr at: 0 put: dir.
- ^0
- ].
- "If we get here, we can't open the directory"
- ^self cantOpenDir
- !
Item was changed:
----- Method: FileAttributesPlugin>>pathOop:toBuffer:maxLen: (in category 'private - file') -----
pathOop: pathNameOop toBuffer: cPathName maxLen: maxLen
"Copy the supplied path name string object to the supplied c string buffer"
| len sPtr |
+ <var: 'cPathName' type: #'char *'>
+ <var: 'sPtr' type: #'char *'>
+ <returnTypeC: #'int'>
- <var: 'cPathName' type: 'char *'>
- <var: 'sPtr' type: 'char *'>
- <returnTypeC: 'int'>
len := interpreterProxy stSizeOf: pathNameOop.
(len >= maxLen) ifTrue: [^self stringTooLong].
"Copy pathName to the new string"
sPtr := interpreterProxy arrayValueOf: pathNameOop.
((self canStatFilePath: sPtr length: len) = 0) ifTrue: [^self cantStatPath].
+ self memcpy: cPathName _: sPtr _: len.
- self mem: cPathName cp: sPtr y: len.
cPathName at: len put: 0.
^0.
!
Item was changed:
----- Method: FileAttributesPlugin>>pointerFrom: (in category 'private - directory') -----
pointerFrom: directoryPointerBytes
"Answer the machine address contained in anExternalAddressOop."
| ptr addressUnion idx |
+ <returnTypeC: #'void *'>
+ <var: 'ptr' type: #'unsigned char *'>
- <returnTypeC: 'void *'>
- <var: 'ptr' type: 'unsigned char *'>
<var: 'addressUnion' type: 'union {void *address; unsigned char bytes[sizeof(void *)];}'>
((interpreterProxy is: directoryPointerBytes KindOf: 'ByteArray') and:
[(interpreterProxy stSizeOf: directoryPointerBytes) = self sizeOfPointer])
ifFalse: [^ nil].
ptr := interpreterProxy arrayValueOf: directoryPointerBytes.
idx := 0.
[idx < self sizeOfPointer] whileTrue:
[self cCode: 'addressUnion.bytes[idx] = ptr[idx]'.
idx := idx + 1].
^ self cCode: 'addressUnion.address' inSmalltalk: [addressUnion]
!
Item was added:
+ ----- Method: FileAttributesPlugin>>posixFileTimesFrom:to: (in category 'private - posix') -----
+ posixFileTimesFrom: statBufPointer to: attributeArray
+ "Populate attributeArray with the file times from statBufPointer"
+
+ | attributeDate |
+
+ <var: 'statBufPointer' type: #'faStatStruct *'>
+ <var: 'attributeDate' type: #'sqLong'>
+
+ self cppIf: #_WIN32 defined ifTrue: [] ifFalse: [
+ attributeDate := self faConvertUnixToLongSqueakTime: (self
+ cCode: 'statBufPointer->st_atime'
+ inSmalltalk: [statBufPointer contents at: 9]).
+ interpreterProxy
+ storePointer: 8
+ ofObject: attributeArray
+ withValue: (interpreterProxy signed64BitIntegerFor: attributeDate).
+ attributeDate := self faConvertUnixToLongSqueakTime: (self
+ cCode: 'statBufPointer->st_mtime'
+ inSmalltalk: [statBufPointer contents at: 10]).
+ interpreterProxy
+ storePointer: 9
+ ofObject: attributeArray
+ withValue: (interpreterProxy signed64BitIntegerFor: attributeDate).
+ attributeDate := self faConvertUnixToLongSqueakTime: (self
+ cCode: 'statBufPointer->st_ctime'
+ inSmalltalk: [statBufPointer contents at: 11]).
+ interpreterProxy
+ storePointer: 10
+ ofObject: attributeArray
+ withValue: (interpreterProxy signed64BitIntegerFor: attributeDate);
+ storePointer: 11
+ ofObject: attributeArray
+ withValue: interpreterProxy nilObject ].
+ ^0!
Item was added:
+ ----- Method: FileAttributesPlugin>>primitiveChangeMode (in category 'file primitives') -----
+ primitiveChangeMode
+ "Set the mode of the supplied file using chmod()."
+
+ | fileNameOop newMode status faPath |
+ <export: true>
+ <var: 'newMode' type: #'sqInt'>
+ <var: 'faPath' type: #'fapath *'>
+
+ fileNameOop := interpreterProxy stackObjectValue: 1.
+ newMode := interpreterProxy stackIntegerValue: 0.
+ (interpreterProxy failed
+ or: [(interpreterProxy isBytes: fileNameOop) not]) ifTrue:
+ [^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ self cppIf: #HAVE_CHMOD ifTrue: [
+ faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'
+ inSmalltalk: [self simulatedFaPath].
+ faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory].
+ self faSetStPathOop: faPath _: fileNameOop.
+ interpreterProxy failed ifTrue: [
+ self free: faPath.
+ ^interpreterProxy primitiveFailureCode].
+
+ status := self chmod: (self faGetPlatPath: faPath) _: newMode.
+ self free: faPath.
+ status ~= 0 ifTrue: [
+ ^interpreterProxy primitiveFailForOSError: (self cCode: 'errno')].
+ ^interpreterProxy methodReturnValue: interpreterProxy nilObject.
+ ].
+ ^interpreterProxy primitiveFailForOSError: self unsupportedOperation.
+ !
Item was added:
+ ----- Method: FileAttributesPlugin>>primitiveChangeOwner (in category 'file primitives') -----
+ primitiveChangeOwner
+ "Set the owner of the supplied file using chown()."
+
+ | fileNameOop ownerId groupId faPath status |
+ <export: true>
+ <var: 'faPath' type: #'fapath *'>
+
+ fileNameOop := interpreterProxy stackObjectValue: 2.
+ ownerId := interpreterProxy stackIntegerValue: 1.
+ groupId := interpreterProxy stackIntegerValue: 0.
+ (interpreterProxy failed
+ or: [(interpreterProxy isBytes: fileNameOop) not]) ifTrue:
+ [^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ self cppIf: #HAVE_CHOWN ifTrue: [
+ faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'
+ inSmalltalk: [self simulatedFaPath].
+ faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory].
+ self faSetStPathOop: faPath _: fileNameOop.
+ interpreterProxy failed ifTrue: [
+ self free: faPath.
+ ^interpreterProxy primitiveFailureCode].
+
+ status := self chown: (self faGetPlatPath: faPath) _: ownerId _: groupId.
+ self free: faPath.
+ status ~= 0 ifTrue: [
+ ^interpreterProxy primitiveFailForOSError: (self cCode: 'errno')].
+ ^interpreterProxy methodReturnValue: interpreterProxy nilObject.
+ ].
+ ^interpreterProxy primitiveFailForOSError: self unsupportedOperation.
+ !
Item was changed:
----- Method: FileAttributesPlugin>>primitiveClosedir (in category 'file primitives') -----
primitiveClosedir
"Close the directory stream for dirPointerOop. Answer dirPointerOop on success.
Raise PrimErrBadArgument if the parameter is not a ByteArray length size(void *).
If closedir() returns an error raise PrimitiveOSError."
+ | dirPointerOop faPath result |
- | dirPointerOop dirStream result |
<export: true>
+ <var: 'fapath' type: #'faPath *'>
+
- <var: 'dirStream' type: 'osdir *'>
dirPointerOop := interpreterProxy stackValue: 0.
+ faPath := self pointerFrom: dirPointerOop.
+ faPath ifNil:
- dirStream := self pointerFrom: dirPointerOop.
- dirStream ifNil:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+
+ result := self faCloseDirectory: faPath.
- result := self closedir: dirStream dp.
result = 0 ifFalse:
+ [^interpreterProxy primitiveFailForOSError: result].
+ self free: faPath.
- [^interpreterProxy primitiveFailForOSError: self unableToCloseDir].
- self free: dirStream.
interpreterProxy pop: 2 thenPush: dirPointerOop!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveFileAttribute (in category 'file primitives') -----
primitiveFileAttribute
"Answer a single file attribute.
primFileAttributes: aString attributeNumber: attributeNumber
aString is the path to the file
attributeNumber identifies which attribute to return:
1 - 12: stat(): name, mode, ino, dev, nlink, uid, gid, size, accessDate, modifiedDate, changeDate, creationDate
13 - 15: access(): R_OK, W_OK, X_OK
16: isSymlink
On error, answer a single element array containing the appropriate error code."
+ | fileName attributeNumber resultOop faPath |
- | fileName attributeNumber resultOop fileNameOop statBuf cPathName sizeIfFile mode creationDate status |
<export: true>
+ <var: 'faPath' type: #'fapath *'>
- <var: 'statBuf' type: 'struct stat'>
- <var: 'cPathName' declareC: 'char cPathName[PATH_MAX]'>
- <var: 'creationDate' type: 'time_t'>
fileName := interpreterProxy stackObjectValue: 1.
attributeNumber := interpreterProxy stackIntegerValue: 0.
(interpreterProxy failed
+ or: [(attributeNumber between: 1 and: 16) not
+ or: [(interpreterProxy isBytes: fileName) not]]) ifTrue:
+ [^interpreterProxy primitiveFailFor: PrimErrBadArgument].
- or: [(attributeNumber between: 1 and: 16) not
- or: [(interpreterProxy is: fileName KindOf: 'String') not]]) ifTrue:
- [^interpreterProxy primitiveFailFor: PrimErrBadArgument].
- status := self pathOop: fileName toBuffer: cPathName maxLen: #PATH_MAX.
- status ~= 0 ifTrue:
- [^interpreterProxy primitiveFailForOSError: status].
- resultOop := 0.
+ faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'
+ inSmalltalk: [self simulatedFaPath].
+ faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory].
+ self faSetStPathOop: faPath _: fileName.
+ interpreterProxy failed ifTrue: [
+ self free: faPath.
+ ^interpreterProxy primitiveFailureCode].
- attributeNumber < 12 ifTrue:
- "Get requested stat entry"
- [
- status := self
- putStatFor: cPathName
- intoBuffer: (self addressOf: statBuf)
- targetName: (self addressOf: fileNameOop).
- status ~= 0 ifTrue:
- [^interpreterProxy primitiveFailForOSError: status].
- "In C, this would naturally be a switch statement,
- but I don't know to mix in the smalltalk code"
- attributeNumber = 1 ifTrue: [resultOop := fileNameOop].
- attributeNumber = 2 ifTrue:
- [resultOop := interpreterProxy positiveMachineIntegerFor: statBuf st_mode].
- attributeNumber = 3 ifTrue:
- [resultOop := interpreterProxy positive64BitIntegerFor: statBuf st_ino].
- attributeNumber = 4 ifTrue:
- [resultOop := interpreterProxy positive64BitIntegerFor: statBuf st_dev].
- attributeNumber = 5 ifTrue:
- [resultOop := interpreterProxy positive64BitIntegerFor: statBuf st_nlink].
- attributeNumber = 6 ifTrue:
- [resultOop := interpreterProxy positiveMachineIntegerFor: statBuf st_uid].
- attributeNumber = 7 ifTrue:
- [resultOop := interpreterProxy positiveMachineIntegerFor: statBuf st_gid].
- attributeNumber = 8 ifTrue:
- [
- sizeIfFile := ((self S_ISDIR: statBuf st_mode) = 0)
- ifTrue: [statBuf st_size]
- ifFalse: [0].
- resultOop := interpreterProxy positiveMachineIntegerFor: sizeIfFile
- ].
- attributeNumber = 9 ifTrue:
- [resultOop := self oopFromTimeT: statBuf st_atime].
- attributeNumber = 10 ifTrue:
- [resultOop := self oopFromTimeT: statBuf st_mtime].
- attributeNumber = 11 ifTrue:
- [resultOop := self oopFromTimeT: statBuf st_ctime].
- ]
- ifFalse: [attributeNumber = 12 ifTrue:
- [
- self cppIf: #_WIN32 defined ifTrue: [
- status := self fileCreationTimeFor: cPathName
- length: cPathName strlen
- to: (self addressOf: creationDate put: [:val| creationDate := val]).
- status ~= 0 ifTrue:
- [^interpreterProxy primitiveFailForOSError: status].
- resultOop := self oopFromTimeT: creationDate ]
- ifFalse: [
- resultOop := interpreterProxy nilObject ]
- ]
- ifFalse: [attributeNumber < 16 ifTrue:
- "Get requested access entry"
- [
- attributeNumber = 13 ifTrue: [mode := self fileReadableFlag].
- attributeNumber = 14 ifTrue: [mode := self fileWriteableFlag].
- attributeNumber = 15 ifTrue: [mode := self fileExecutableFlag].
- resultOop := ((self acc: cPathName ess: mode) = 0)
- ifTrue: [interpreterProxy trueObject]
- ifFalse: [interpreterProxy falseObject].
- ]
- ifFalse: "attributeNumber = 16"
- [
- status := self isSymlink: cPathName boolean: (self addressOf: resultOop put: [:val| resultOop := val]).
- status ~= 0 ifTrue:
- [^interpreterProxy primitiveFailForOSError: status].
- ]]].
+ resultOop := self faFileAttribute: faPath _: attributeNumber.
+ self free: faPath.
+ interpreterProxy failed ifTrue: [
+ ^interpreterProxy primitiveFailureCode].
+
resultOop = 0
ifTrue: ["It shouldn't be possible to get here"
+ interpreterProxy primitiveFailForOSError: self unexpectedError]
+ ifFalse: [interpreterProxy methodReturnValue: resultOop]!
- interpreterProxy primitiveFail]
- ifFalse: [interpreterProxy pop: 3 thenPush: resultOop]!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveFileAttributes (in category 'file primitives') -----
primitiveFileAttributes
"Answer an array of file attributes.
primFileAttributes: aString mask: attributeMask
aString is the path to the file
attributeMask indicates which attributes to retrieve:
bit 0 - get stat() attributes
bit 1 - get access() attributes
bit 2 - use lstat() instead of stat()
On error answer the appropriate error code (Integer)"
+ | fileName attributeMask attributeArray faPath status |
- | fileName attributeMask attributeArray cPathName status |
<export: true>
+ <var: 'faPath' type: #'fapath *'>
+
- <var: 'cPathName' declareC: 'char cPathName[PATH_MAX]'>
fileName := interpreterProxy stackObjectValue: 1.
attributeMask := interpreterProxy stackIntegerValue: 0.
(interpreterProxy failed
+ or: [(interpreterProxy isBytes: fileName) not]) ifTrue:
- or: [(interpreterProxy is: fileName KindOf: 'String') not]) ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
- status := self pathOop: fileName toBuffer: cPathName maxLen: #PATH_MAX.
- status ~= 0 ifTrue:
- [^interpreterProxy primitiveFailForOSError: status].
+ faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'
+ inSmalltalk: [self simulatedFaPath].
+ faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory].
+ self faSetStPathOop: faPath _: fileName.
+ interpreterProxy failed ifTrue: [
+ self free: faPath.
+ ^interpreterProxy primitiveFailureCode].
+
+ status := self fileToAttributeArray: faPath
- status := self fileToAttributeArray: cPathName
mask: attributeMask
array: (self addressOf: attributeArray put: [:val| attributeArray := val]).
+ self free: faPath.
status ~= 0
ifTrue: [interpreterProxy primitiveFailForOSError: status]
+ ifFalse: [interpreterProxy methodReturnValue: attributeArray]!
- ifFalse: [interpreterProxy pop: 3 thenPush: attributeArray]!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveFileExists (in category 'file primitives') -----
primitiveFileExists
"Check for existence of a file with a call to access()."
+ | fileNameOop faPath resultOop |
- | pathString status accessFlag |
<export: true>
+ <var: 'faPath'type: #'fapath *'>
+
+ fileNameOop := interpreterProxy stackObjectValue: 0.
+ (interpreterProxy isBytes: fileNameOop) ifFalse:
- <var: 'accessFlag' type: 'sqInt'>
- pathString := interpreterProxy stackObjectValue: 0.
- (interpreterProxy is: pathString KindOf: 'String') ifFalse:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+
+ faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'
+ inSmalltalk: [self simulatedFaPath].
+ faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory].
+ self faSetStPathOop: faPath _: fileNameOop.
+ interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailureCode].
+
+ resultOop := self faExists: faPath.
+ self free: faPath.
+ ^interpreterProxy methodReturnValue: resultOop.
+ !
- status := self checkAccess: pathString mode: self fileOKFlag to: (self addressOf: accessFlag).
- status = 0 ifFalse: [^interpreterProxy primitiveFailForOSError: status].
- interpreterProxy pop: 2 thenPush: (accessFlag = 0
- ifTrue: [interpreterProxy trueObject]
- ifFalse: [interpreterProxy falseObject])!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveFileMasks (in category 'file primitives') -----
primitiveFileMasks
"Answer an array of well known file masks"
| masks |
<export: true>
masks := interpreterProxy instantiateClass: (interpreterProxy classArray) indexableSize: 8.
masks ifNil: [^interpreterProxy primitiveFailFor: PrimErrNoMemory].
interpreterProxy
storePointer: 0
ofObject: masks
+ withValue: (interpreterProxy positive32BitIntegerFor: (self cCode: [#S_IFMT] inSmalltalk: [16rF000])).
- withValue: (interpreterProxy positiveMachineIntegerFor: #'S_IFMT').
self cppIf: #_WIN32 defined not
+ ifTrue: [
+ interpreterProxy
- ifTrue:
- [interpreterProxy
storePointer: 1
ofObject: masks
+ withValue: (interpreterProxy positive32BitIntegerFor: (self cCode: [#S_IFSOCK] inSmalltalk: [16rC000])).
- withValue: (interpreterProxy positiveMachineIntegerFor: #'S_IFSOCK').
interpreterProxy
storePointer: 2
ofObject: masks
+ withValue: (interpreterProxy positive32BitIntegerFor: (self cCode: [#S_IFLNK] inSmalltalk: [16rA000]))].
- withValue: (interpreterProxy positiveMachineIntegerFor: #'S_IFLNK')].
interpreterProxy
storePointer: 3
ofObject: masks
+ withValue: (interpreterProxy positive32BitIntegerFor: (self cCode: [#S_IFREG] inSmalltalk: [16r8000])).
- withValue: (interpreterProxy positiveMachineIntegerFor: #'S_IFREG').
interpreterProxy
storePointer: 4
ofObject: masks
+ withValue: (interpreterProxy positive32BitIntegerFor: (self cCode: [#S_IFBLK] inSmalltalk: [16r6000])).
- withValue: (interpreterProxy positiveMachineIntegerFor: #'S_IFBLK').
interpreterProxy
storePointer: 5
ofObject: masks
+ withValue: (interpreterProxy positive32BitIntegerFor: (self cCode: [#S_IFDIR] inSmalltalk: [16r4000])).
- withValue: (interpreterProxy positiveMachineIntegerFor: #'S_IFDIR').
interpreterProxy
storePointer: 6
ofObject: masks
+ withValue: (interpreterProxy positive32BitIntegerFor: (self cCode: [#S_IFCHR] inSmalltalk: [16r2000])).
- withValue: (interpreterProxy positiveMachineIntegerFor: #'S_IFCHR').
interpreterProxy
storePointer: 7
ofObject: masks
+ withValue: (interpreterProxy positive32BitIntegerFor: (self cCode: [#S_IFIFO] inSmalltalk: [16r1000])).
- withValue: (interpreterProxy positiveMachineIntegerFor: #'S_IFIFO').
interpreterProxy pop: 1 thenPush: masks!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveLogicalDrives (in category 'file primitives') -----
primitiveLogicalDrives
"Answer the logical drive mask on windows"
+ | mask |
<export: true>
<var: 'mask' type: #'unsigned int'>
self cppIf: #_WIN32 defined
ifTrue:
+ [
- [| mask |
mask := self GetLogicalDrives.
mask ~= 0 ifTrue:
[^interpreterProxy pop: 1 thenPush: (interpreterProxy positive32BitIntegerFor: mask)]].
interpreterProxy primitiveFail!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveOpendir (in category 'file primitives') -----
primitiveOpendir
"self primOpendir: '/etc'"
+ | dirName faPath dirOop status resultOop |
- | dirName dir dirOop status |
<export: true>
+ <var: 'faPath' type: #'fapath *'>
+
- <var: 'dir' type: 'osdir *'>
dirName := interpreterProxy stackObjectValue: 0.
+ (interpreterProxy isBytes: dirName) ifFalse:
- (interpreterProxy is: dirName KindOf: 'String') ifFalse:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+
+ faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'
+ inSmalltalk: [self simulatedFaPath].
+ faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory].
+ self faSetStDirOop: faPath _: dirName.
+ interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailureCode].
+
+ (self canOpenDirectoryStreamFor: (self faGetStPath: faPath) length: (self faGetStPathLen: faPath)) ifFalse: [
+ self free: faPath.
+ ^interpreterProxy primitiveFailForOSError: self cantOpenDir].
+
+ status := self faOpenDirectory: faPath.
+ status = self noMoreData ifTrue: [
+ self free: faPath.
+ ^interpreterProxy pop: 2 thenPush: interpreterProxy nilObject].
+ status < 0 ifTrue: [
+ self free: faPath.
+ ^interpreterProxy primitiveFailForOSError: status].
+ resultOop := self processDirectory: faPath.
+ interpreterProxy failed ifTrue: [
+ self free: faPath.
+ ^interpreterProxy primitiveFailureCode ].
+
+ self remapOop: resultOop in:
+ [ dirOop := self addressObjectFor: faPath ].
+ ^interpreterProxy
+ storePointer: 2 ofObject: resultOop withValue: dirOop;
+ methodReturnValue: resultOop.!
- status := self openDirectoryStream: dirName ptr: (self addressOf: dir).
- status ~= 0 ifTrue: [^interpreterProxy primitiveFailForOSError: status].
- dirOop := self addressObjectFor: dir.
- interpreterProxy pop: 2 thenPush: dirOop!
Item was changed:
----- Method: FileAttributesPlugin>>primitivePathMax (in category 'file primitives') -----
primitivePathMax
"Answer the value of PATH_MAX for the current VM"
<export: true>
+ ^interpreterProxy pop: 1 thenPush: (interpreterProxy integerObjectOf: #FA_PATH_MAX)!
- ^interpreterProxy pop: 1 thenPush: (interpreterProxy integerObjectOf: #PATH_MAX)!
Item was added:
+ ----- Method: FileAttributesPlugin>>primitivePlatToStPath (in category 'file primitives') -----
+ primitivePlatToStPath
+ "Convert the supplied file name (platform encoded) to the St UTF8 encoded byte array"
+
+ | fileName faPath resultOop byteArrayPtr |
+ <export: true>
+ <var: 'faPath' type: #'fapath *'>
+ <var: 'byteArrayPtr' type: #'unsigned char *'>
+
+ fileName := interpreterProxy stackObjectValue: 0.
+ (interpreterProxy failed
+ or: [(interpreterProxy isBytes: fileName) not]) ifTrue:
+ [^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+
+ faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'
+ inSmalltalk: [self simulatedFaPath].
+ faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory].
+ self faSetPlatPathOop: faPath _: fileName.
+ interpreterProxy failed ifTrue: [
+ self free: faPath.
+ ^interpreterProxy primitiveFailureCode].
+
+ resultOop := interpreterProxy
+ instantiateClass: interpreterProxy classByteArray
+ indexableSize: (self faGetStPathLen: faPath).
+ resultOop ifNil: [
+ self free: faPath.
+ ^interpreterProxy primitiveFailFor: PrimErrNoMemory].
+ byteArrayPtr := interpreterProxy arrayValueOf: resultOop.
+ self memcpy: byteArrayPtr _: (self faGetStPath: faPath) _: (self faGetStPathLen: faPath).
+ self free: faPath.
+
+ ^interpreterProxy methodReturnValue: resultOop.
+ !
Item was changed:
----- Method: FileAttributesPlugin>>primitiveReaddir (in category 'file primitives') -----
primitiveReaddir
"Get the next entry in the directory stream. Answer the name of the entry, or
+ nil for the end of the directory stream.
+ Arguments:
+ - directoryPointer (ByteArray)"
- nil for the end of the directory stream."
+ | dirPointerOop faPath resultArray status |
- | dirPointerOop dirStream ent entryName attributeArray resultArray haveEntry entry_len status |
<export: true>
+ <var: 'faPath' type: #'fapath *'>
- <var: 'ent' type: 'struct dirent *'>
- <var: 'dirStream' type: 'osdir *'>
- <var: 'haveEntry' type: #int>
dirPointerOop := interpreterProxy stackValue: 0.
+ faPath := self pointerFrom: dirPointerOop.
+ faPath ifNil:
- dirStream := self pointerFrom: dirPointerOop.
- dirStream ifNil:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+
+ status := self faReadDirectory: faPath.
+ status = self noMoreData ifTrue:
- haveEntry := 0.
- [ent := self readdir: dirStream dp.
- self cCode: 'if (ent == NULL ||
- ((!! (ent->d_name[0] == ''.'' && strlen(ent->d_name) == 1)) && strcmp(ent->d_name, "..")))
- haveEntry = 1'.
- haveEntry = 0] whileTrue.
- ent ifNil: "This is the normal case for the end of a directory stream,
- although it may indicate other error conditions for which errno would be updated.
- Assume the normal case here."
[^interpreterProxy pop: 2 thenPush: interpreterProxy nilObject].
+ status < 0 ifTrue:
- status := self byteArrayFromCString: ent d_name to: (self addressOf: entryName put: [:val| entryName := val]).
- status ~= 0 ifTrue:
[^interpreterProxy primitiveFailForOSError: status].
+ resultArray := self processDirectory: faPath.
+ interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailureCode].
- "Build the path name (append the entry name to the path name)"
- entry_len := self strlen: ent d_name.
- [dirStream path_len + entry_len > (#PATH_MAX - 1)] ifTrue:
- [^interpreterProxy primitiveFailForOSError: self stringTooLong].
- self mem: dirStream path_file cp: ent d_name y: entry_len.
- dirStream path_file at: entry_len put: 0.
-
- status := self fileToAttributeArray: dirStream path mask: 1 array: (self addressOf: attributeArray put: [:val| attributeArray := val]).
- "If the stat() fails, still return the filename, just no attributes"
- status ~= 0 ifTrue: [attributeArray := interpreterProxy nilObject].
-
- self remapOop: #(entryName attributeArray)
- in: [resultArray := interpreterProxy instantiateClass: interpreterProxy classArray indexableSize: 2].
- resultArray ifNil:
- [^interpreterProxy primitiveFailFor: PrimErrNoMemory].
interpreterProxy
- storePointer: 0 ofObject: resultArray withValue: entryName;
- storePointer: 1 ofObject: resultArray withValue: attributeArray;
pop: 2 thenPush: resultArray!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveRewinddir (in category 'file primitives') -----
primitiveRewinddir
"Set directoryStream to first entry. Answer dirPointerOop."
+ | dirPointerOop faPath status resultOop |
- | dirPointerOop dirStream |
<export: true>
+ <var: 'faPath' type: #'fapath *'>
- <var: 'dirStream' declareC: 'osdir *dirStream'>
dirPointerOop := interpreterProxy stackValue: 0.
+ faPath := self pointerFrom: dirPointerOop.
+ faPath ifNil:
- dirStream := self pointerFrom: dirPointerOop.
- dirStream ifNil:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+
+ status := self faRewindDirectory: faPath.
+ status < 0 ifTrue: [^interpreterProxy primitiveFailForOSError: status].
+ resultOop := self processDirectory: faPath.
+ interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailureCode ].
+ ^interpreterProxy methodReturnValue: resultOop.!
- self rewinddir: dirStream dp.
- interpreterProxy pop: 2 thenPush: dirPointerOop!
Item was added:
+ ----- Method: FileAttributesPlugin>>primitiveStToPlatPath (in category 'file primitives') -----
+ primitiveStToPlatPath
+ "Convert the supplied file name (UTF8 encoded) to the platform encoded byte array"
+
+ | fileName faPath resultOop byteArrayPtr |
+ <export: true>
+ <var: 'faPath' type: #'fapath *'>
+ <var: 'byteArrayPtr' type: #'unsigned char *'>
+
+ fileName := interpreterProxy stackObjectValue: 0.
+ (interpreterProxy failed
+ or: [(interpreterProxy isBytes: fileName) not]) ifTrue:
+ [^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+
+ faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'
+ inSmalltalk: [self simulatedFaPath].
+ faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory].
+ self faSetStPathOop: faPath _: fileName.
+ interpreterProxy failed ifTrue: [
+ self free: faPath.
+ ^interpreterProxy primitiveFailureCode].
+
+ resultOop := interpreterProxy
+ instantiateClass: interpreterProxy classByteArray
+ indexableSize: (self faGetPlatPathByteCount: faPath).
+ resultOop ifNil: [
+ self free: faPath.
+ ^interpreterProxy primitiveFailFor: PrimErrNoMemory].
+ byteArrayPtr := interpreterProxy arrayValueOf: resultOop.
+ self memcpy: byteArrayPtr _: (self faGetPlatPath: faPath) _: (self faGetPlatPathByteCount: faPath).
+ self free: faPath.
+
+ ^interpreterProxy methodReturnValue: resultOop.
+ !
Item was added:
+ ----- Method: FileAttributesPlugin>>primitiveSymlinkChangeOwner (in category 'file primitives') -----
+ primitiveSymlinkChangeOwner
+ "Set the owner of the supplied file using chown()."
+
+ | fileNameOop ownerId groupId faPath status |
+ <export: true>
+ <var: 'faPath' type: #'fapath *'>
+
+ fileNameOop := interpreterProxy stackObjectValue: 2.
+ ownerId := interpreterProxy stackIntegerValue: 1.
+ groupId := interpreterProxy stackIntegerValue: 0.
+ (interpreterProxy failed
+ or: [(interpreterProxy isBytes: fileNameOop) not]) ifTrue:
+ [^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ self cppIf: #HAVE_CHOWN ifTrue: [
+ faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'
+ inSmalltalk: [self simulatedFaPath].
+ faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory].
+ self faSetStPathOop: faPath _: fileNameOop.
+ interpreterProxy failed ifTrue: [
+ self free: faPath.
+ ^interpreterProxy primitiveFailureCode].
+
+ status := self lchown: (self faGetPlatPath: faPath) _: ownerId _: groupId.
+ self free: faPath.
+ status ~= 0 ifTrue:
+ [^interpreterProxy primitiveFailForOSError: (self cCode: 'errno')].
+ ^interpreterProxy methodReturnValue: interpreterProxy nilObject.
+ ].
+ ^interpreterProxy primitiveFailForOSError: self unsupportedOperation.
+ !
Item was added:
+ ----- Method: FileAttributesPlugin>>processDirectory: (in category 'private') -----
+ processDirectory: faPath
+ "The supplied faPath contains the full path to the current entry while iterating over a directory.
+ Convert the file name to an object, get the attributes and answer the resulting array."
+
+ | status entryName attributeArray resultArray |
+ <var: 'faPath' type: #'fapath *'>
+
+ status := self faCharToByteArray: (self faGetStFile: faPath)
+ _: (self addressOf: entryName put: [:val | entryName := val]).
+ status ~= 0 ifTrue:
+ [ ^interpreterProxy primitiveFailForOSError: status].
+
+ status := self fileToAttributeArray: faPath mask: 1 array: (self addressOf: attributeArray put: [:val| attributeArray := val]).
+ "If the stat() fails, still return the filename, just no attributes"
+ status ~= 0 ifTrue: [attributeArray := interpreterProxy nilObject].
+
+ "resultArray: entryName, attributeArray, dirPtrOop"
+ self remapOop: #(entryName attributeArray)
+ in: [resultArray := interpreterProxy instantiateClass: interpreterProxy classArray indexableSize: 3].
+ resultArray ifNil:
+ [^interpreterProxy primitiveFailFor: PrimErrNoMemory].
+ interpreterProxy
+ storePointer: 0 ofObject: resultArray withValue: entryName;
+ storePointer: 1 ofObject: resultArray withValue: attributeArray.
+ ^resultArray!
Item was removed:
- ----- Method: FileAttributesPlugin>>putLStatFor:intoBuffer:targetName: (in category 'private - file') -----
- putLStatFor: cPathName intoBuffer: statBufPointer targetName: fileNameOop
- "Call stat() on cPathName, storing the results in
- the buffer at statBufPointer."
-
- | cLinkName len status |
- <returnTypeC: 'sqInt'>
- <var: 'cPathName' type: 'char *'>
- <var: 'statBufPointer' type: 'struct stat *'>
- <var: 'cLinkName' declareC: 'char cLinkName[PATH_MAX]'>
- <var: 'fileNameOop' type: 'sqInt *'>
-
- self cppIf: #HAVE_LSTAT = 1 ifTrue: [
- status := self lst: cPathName at: statBufPointer.
- status ~= 0 ifTrue: [^self cantStatPath].
- (self S_ISLNK: statBufPointer st_mode) = 0
- ifFalse: [
- len := self readLink: cPathName into: cLinkName maxLength: #PATH_MAX.
- len < 0 ifTrue: [^len].
- status := self byteArrayFromCString: cLinkName to: fileNameOop]
- ifTrue:
- [fileNameOop at: 0 put: interpreterProxy nilObject].
- ] ifFalse: [ "#HAVE_LSTAT = 1"
- status := self invalidRequest.
- ].
- ^status
- !
Item was removed:
- ----- Method: FileAttributesPlugin>>putStatFor:intoBuffer:targetName: (in category 'private - file') -----
- putStatFor: cPathName intoBuffer: statBufPointer targetName: fileNameOop
- "Call stat() on cPathName, storing the results in
- the buffer at statBufPointer."
-
- | status |
- <var: 'cPathName' type: 'char *'>
- <var: 'statBufPointer' type: 'struct stat *'>
- <var: 'fileNameOop' type: 'sqInt *'>
-
- status := self st: cPathName at: statBufPointer.
- status ~= 0 ifTrue: [^self cantStatPath].
- self cppIf: #_WIN32 defined
- ifTrue: [self offsetStatBufTimesForWIN32: statBufPointer].
- fileNameOop at: 0 put: interpreterProxy nilObject.
- ^0!
Item was changed:
----- Method: FileAttributesPlugin>>readLink:into:maxLength: (in category 'private - file') -----
readLink: cPathName into: cLinkPtr maxLength: maxLength
"Get the target filename of the supplied symbolic link."
| len |
+ <var: 'cPathName' type: #'char *'>
+ <var: 'cLinkPtr' type: #'char *'>
+ <var: 'maxLength' type: #'size_t'>
- <var: 'cPathName' type: 'char *'>
- <var: 'cLinkPtr' type: 'char *'>
- <var: 'maxLength' type: 'size_t'>
<var: 'len' type: #sqInt> "len must be signed so that -1 can be communicated as an error."
len := self cppIf: #_WIN32 defined
ifTrue: [-1]
ifFalse: [self read: cPathName li: cLinkPtr nk: maxLength].
len < 0 ifTrue:
[self cppIf: #'INDEBUG' defined ifTrue:
[self cCode: 'fprintf(stderr, "FileAttributesPlugin: unable to readlink(): %d, errno=%d\n", len, errno)'].
^self cantReadlink].
cLinkPtr at: len put: 0.
^len!
Item was changed:
----- Method: FileAttributesPlugin>>statArrayFor:toArray:from:fileName: (in category 'private - file') -----
+ statArrayFor: faPath toArray: attributeArray from: statBufPointer fileName: fileNameOop
- statArrayFor: cPathName toArray: attributeArray from: statBufPointer fileName: fileNameOop
"Answer a file entry array from the supplied statBufPointer"
+ | sizeIfFile status isDir |
+ <var: 'faPath' type: #'fapath *'>
+ <var: 'statBufPointer' type: #'faStatStruct *'>
- | sizeIfFile creationDate status |
- <var: 'cPathName' type: 'char *'>
- <var: 'statBufPointer' type: 'struct stat *'>
- <var: 'creationDate' type: 'time_t'>
+ isDir := self
+ cCode: 'S_ISDIR(statBufPointer->st_mode)'
+ inSmalltalk: [
+ ((statBufPointer contents at: 2) bitAnd: self s_IFMT) = self s_IFDIR
+ ifTrue: [1]
+ ifFalse: [0]].
+ sizeIfFile := isDir = 0
+ ifTrue: [self cCode: 'statBufPointer->st_size'
+ inSmalltalk: [self
+ cCode: 'statBufPointer->st_size'
+ inSmalltalk: [statBufPointer contents at: 8]]]
- sizeIfFile := (self S_ISDIR: statBufPointer st_mode) = 0
- ifTrue: [statBufPointer st_size]
ifFalse: [0].
interpreterProxy
storePointer: 0
ofObject: attributeArray
+ withValue: (self cCode: 'fileNameOop' inSmalltalk: [self toOop: fileNameOop contents]);
- withValue: fileNameOop;
storePointer: 1
ofObject: attributeArray
+ withValue: (interpreterProxy positive64BitIntegerFor: (self
+ cCode: 'statBufPointer->st_mode'
+ inSmalltalk: [statBufPointer contents at: 2]));
- withValue: (interpreterProxy positiveMachineIntegerFor: statBufPointer st_mode);
storePointer: 2
ofObject: attributeArray
+ withValue: (interpreterProxy positive64BitIntegerFor: (self
+ cCode: 'statBufPointer->st_ino'
+ inSmalltalk: [statBufPointer contents at: 3]));
- withValue: (interpreterProxy positive64BitIntegerFor: statBufPointer st_ino);
storePointer: 3
ofObject: attributeArray
+ withValue: (interpreterProxy positive64BitIntegerFor: (self
+ cCode: 'statBufPointer->st_dev'
+ inSmalltalk: [statBufPointer contents at: 4]));
- withValue: (interpreterProxy positive64BitIntegerFor: statBufPointer st_dev);
storePointer: 4
ofObject: attributeArray
+ withValue: (interpreterProxy positive64BitIntegerFor: (self
+ cCode: 'statBufPointer->st_nlink'
+ inSmalltalk: [statBufPointer contents at: 5]));
- withValue: (interpreterProxy positive64BitIntegerFor: statBufPointer st_nlink);
storePointer: 5
ofObject: attributeArray
+ withValue: (interpreterProxy positive64BitIntegerFor: (self
+ cCode: 'statBufPointer->st_uid'
+ inSmalltalk: [statBufPointer contents at: 6]));
- withValue: (interpreterProxy positiveMachineIntegerFor: statBufPointer st_uid);
storePointer: 6
ofObject: attributeArray
+ withValue: (interpreterProxy positive64BitIntegerFor: (self
+ cCode: 'statBufPointer->st_gid'
+ inSmalltalk: [statBufPointer contents at: 7]));
- withValue: (interpreterProxy positiveMachineIntegerFor: statBufPointer st_gid);
storePointer: 7
ofObject: attributeArray
+ withValue: (interpreterProxy positive64BitIntegerFor: sizeIfFile).
+
- withValue: (interpreterProxy positive64BitIntegerFor: sizeIfFile);
- storePointer: 8
- ofObject: attributeArray
- withValue: (self oopFromTimeT: statBufPointer st_atime);
- storePointer: 9
- ofObject: attributeArray
- withValue: (self oopFromTimeT: statBufPointer st_mtime);
- storePointer: 10
- ofObject: attributeArray
- withValue: (self oopFromTimeT: statBufPointer st_ctime).
self cppIf: #_WIN32 defined
+ ifTrue: [ status := self winFileTimesFor: faPath to: attributeArray ]
+ ifFalse: [ status := self posixFileTimesFrom: statBufPointer to: attributeArray ].
+
+ ^status
+ !
- ifTrue:
- [status := self fileCreationTimeFor: cPathName
- length: cPathName strlen
- to: (self addressOf: creationDate put: [:val| creationDate := val]).
- interpreterProxy
- storePointer: 11
- ofObject: attributeArray
- withValue: (status = 0
- ifTrue: [self oopFromTimeT: creationDate]
- ifFalse: [interpreterProxy nilObject])]
- ifFalse:
- [interpreterProxy
- storePointer: 11
- ofObject: attributeArray
- withValue: interpreterProxy nilObject].
- ^0!
Item was changed:
+ ----- Method: FileAttributesPlugin>>statFailed (in category 'errors / status') -----
- ----- Method: FileAttributesPlugin>>statFailed (in category 'errors') -----
statFailed
"A call to stat() failed"
<inline: #always>
^-2!
Item was changed:
----- Method: FileAttributesPlugin>>stringFromCString: (in category 'private') -----
stringFromCString: aCString
"Answer a new String copied from a null-terminated C string.
Caution: This may invoke the garbage collector."
| len newString |
+ <var: 'aCString' type: #'const char *'>
- <var: 'aCString' type: 'const char *'>
len := self strlen: aCString.
newString := interpreterProxy
instantiateClass: interpreterProxy classString
indexableSize: len.
newString ifNil: [^interpreterProxy primitiveFailFor: PrimErrNoMemory].
+ self strncpy: (interpreterProxy arrayValueOf: newString)
+ _: aCString
+ _: len. "(char *)strncpy()"
- self st: (interpreterProxy arrayValueOf: newString)
- rn: aCString
- cpy: len. "(char *)strncpy()"
^ newString
!
Item was changed:
+ ----- Method: FileAttributesPlugin>>stringTooLong (in category 'errors / status') -----
- ----- Method: FileAttributesPlugin>>stringTooLong (in category 'errors') -----
stringTooLong
"String too long. A file path name was longer than PATH_MAX"
<inline: #always>
^-1!
Item was changed:
+ ----- Method: FileAttributesPlugin>>timeConversionFailed (in category 'errors / status') -----
- ----- Method: FileAttributesPlugin>>timeConversionFailed (in category 'errors') -----
timeConversionFailed
<inline: #always>
^-5!
Item was changed:
+ ----- Method: FileAttributesPlugin>>unableToCloseDir (in category 'errors / status') -----
- ----- Method: FileAttributesPlugin>>unableToCloseDir (in category 'errors') -----
unableToCloseDir
"The call to closedir() failed"
<inline: #always>
^-12!
Item was added:
+ ----- Method: FileAttributesPlugin>>unexpectedError (in category 'errors / status') -----
+ unexpectedError
+ "This is normally used where a catch-all is placed, but not expected to be used"
+ <inline: #always>
+ ^-14!
Item was added:
+ ----- Method: FileAttributesPlugin>>unsupportedOperation (in category 'errors / status') -----
+ unsupportedOperation
+ "The requested operation is not supported on the current platform"
+ <inline: #always>
+ ^-13!
Item was changed:
----- Method: FileAttributesPlugin>>versionString (in category 'version string') -----
versionString
"Answer a string containing the version string for this plugin."
<inline: #always>
+ ^'2.0.4'!
- ^'1.2.6'!
Item was added:
+ ----- Method: FileAttributesPlugin>>winFileCreationTimeFor:to: (in category 'private - windows') -----
+ winFileCreationTimeFor: winAttrs to: creationDate
+ "Set the file creation time from the supplied attributes."
+ <option: #_WIN32>
+
+ | sysTime fileTime |
+
+ <var: 'winAttrs' type: #'WIN32_FILE_ATTRIBUTE_DATA *'>
+ <var: 'creationDate' type: #'sqLong *'>
+ <var: 'fileTime' type: #'FILETIME'>
+ <var: 'sysTime' type: #'SYSTEMTIME'>
+
+ self touch: sysTime.
+ self touch: fileTime.
+
+ (self cCode: 'FileTimeToLocalFileTime(&winAttrs->ftCreationTime, &fileTime)') = 0 ifTrue:
+ [^self timeConversionFailed].
+ (self cCode: 'FileTimeToSystemTime(&fileTime, &sysTime)') = 0 ifTrue:
+ [^self timeConversionFailed].
+ self cCode: '*creationDate = convertWinToSqueakTime(sysTime)'.
+
+ ^0!
Item was added:
+ ----- Method: FileAttributesPlugin>>winFileLastAccessTimeFor:to: (in category 'private - windows') -----
+ winFileLastAccessTimeFor: winAttrs to: accessDate
+ "Set the file creation time from the supplied attributes."
+ <option: #_WIN32>
+
+ | sysTime fileTime |
+
+ <var: 'winAttrs' type: #'WIN32_FILE_ATTRIBUTE_DATA *'>
+ <var: 'accessDate' type: #'sqLong *'>
+ <var: 'fileTime' type: #'FILETIME'>
+ <var: 'sysTime' type: #'SYSTEMTIME'>
+
+ self touch: sysTime.
+ self touch: fileTime.
+
+ (self cCode: 'FileTimeToLocalFileTime(&winAttrs->ftLastAccessTime, &fileTime)') = 0 ifTrue:
+ [^self timeConversionFailed].
+ (self cCode: 'FileTimeToSystemTime(&fileTime, &sysTime)') = 0 ifTrue:
+ [^self timeConversionFailed].
+ self cCode: '*accessDate = convertWinToSqueakTime(sysTime)'.
+
+ ^0!
Item was added:
+ ----- Method: FileAttributesPlugin>>winFileLastWriteTimeFor:to: (in category 'private - windows') -----
+ winFileLastWriteTimeFor: winAttrs to: writeDate
+ "Set the file write time from the supplied attributes."
+ <option: #_WIN32>
+
+ | sysTime fileTime |
+
+ <var: 'winAttrs' type: #'WIN32_FILE_ATTRIBUTE_DATA *'>
+ <var: 'writeDate' type: #'sqLong *'>
+ <var: 'fileTime' type: #'FILETIME'>
+ <var: 'sysTime' type: #'SYSTEMTIME'>
+
+ self touch: sysTime.
+ self touch: fileTime.
+
+ (self cCode: 'FileTimeToLocalFileTime(&winAttrs->ftLastWriteTime, &fileTime)') = 0 ifTrue:
+ [^self timeConversionFailed].
+ (self cCode: 'FileTimeToSystemTime(&fileTime, &sysTime)') = 0 ifTrue:
+ [^self timeConversionFailed].
+ self cCode: '*writeDate = convertWinToSqueakTime(sysTime)'.
+
+ ^0!
Item was added:
+ ----- Method: FileAttributesPlugin>>winFileTimesFor:to: (in category 'private - windows') -----
+ winFileTimesFor: faPath to: attributeArray
+ <inline: #never>
+ <option: #_WIN32>
+
+ | winAttrs attributeDate status |
+ <var: 'faPath' type: #'fapath *'>
+ <var: 'attributeDate' type: #'sqLong'>
+ <var: 'winAttrs' type: #'WIN32_FILE_ATTRIBUTE_DATA'>
+
+ "Get the file attributes"
+ status := self cCode: 'GetFileAttributesExW(faGetPlatPath(faPath), GetFileExInfoStandard, &winAttrs)'.
+ status = 0 ifTrue: [^self getAttributesFailed].
+
+ "Set the accessDate"
+ status := self winFileLastAccessTimeFor: (self addressOf: winAttrs) to: (self addressOf: attributeDate).
+ status = 0 ifFalse: [^status].
+ interpreterProxy
+ storePointer: 8
+ ofObject: attributeArray
+ withValue: (interpreterProxy signed64BitIntegerFor: attributeDate).
+
+ "Set the modifiedDate"
+ status := self winFileLastWriteTimeFor: (self addressOf: winAttrs) to: (self addressOf: attributeDate).
+ status = 0 ifFalse: [^status].
+ interpreterProxy
+ storePointer: 9
+ ofObject: attributeArray
+ withValue: (interpreterProxy signed64BitIntegerFor: attributeDate).
+
+ "Set the changeDate"
+ interpreterProxy
+ storePointer: 10
+ ofObject: attributeArray
+ withValue: interpreterProxy nilObject.
+
+ "Set the creationDate"
+ status := self winFileCreationTimeFor: (self addressOf: winAttrs) to: (self addressOf: attributeDate).
+ status = 0 ifFalse: [^status].
+ interpreterProxy
+ storePointer: 11
+ ofObject: attributeArray
+ withValue: (interpreterProxy signed64BitIntegerFor: attributeDate).
+
+ ^0
+ !
Item was added:
+ FileAttributesPlugin subclass: #FileAttributesPluginSimulator
+ instanceVariableNames: 'maxPathLen'
+ classVariableNames: 'FA_PATH_MAX HAVE_CHMOD HAVE_CHOWN HAVE_LSTAT PATH_MAX S_IFBLK S_IFCHR S_IFDIR S_IFIFO S_IFLNK S_IFMT S_IFREG S_IFSOCK'
+ poolDictionaries: ''
+ category: 'FileAttributesPlugin'!
+
+ !FileAttributesPluginSimulator commentStamp: 'akg 10/19/2018 16:12' prior: 0!
+ FileAttributesPluginSimulator provides support functions to allow the FilePluginsAttribute to run in the VM simulator.
+
+ faPath is opaque to the VM, but normally stores:
+
+ 1. The file path being interagated in the format provided by the image (precomposed UTF8).
+ 2. The file path in platform specific format, e.g. wide strings for Windows, decomposed UTF8 for Mac.
+ 3. Platform specific directory iteration information when required, e.g. primOpendir.
+
+ The simulator stores an Array with:
+
+ 1. The input path in precomposed UTF8.
+ 2. The file name when iterating over directories.
+ 3. The input path with platform specific encoding
+ 4. The file name when iterating over directories with platform specific encoding
+ 5. The pointer to the real faPath used by the plugin.
+
+ The third and fourth entries (platform specific encoding) are only valid in specific cases, e.g. primitivePlatToStPath and primitiveStToPlatPath.
+
+
+ Instance Variables
+ !
Item was added:
+ ----- Method: FileAttributesPluginSimulator class>>shouldBeTranslated (in category 'translation') -----
+ shouldBeTranslated
+ "This class should not be translated"
+ ^false!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>addressObjectFor: (in category 'simulation support') -----
+ addressObjectFor: aByteArray
+ "The simulation passes around ByteArrays in place of malloc'd memory.
+ Copy the supplied ByteArray to the simulations memory and answer the address."
+
+ ^self toOop: aByteArray!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>arrayFromOop: (in category 'simulation support') -----
+ arrayFromOop: anOop
+ "Answer a copy of the supplied array Oop"
+
+ | sz array |
+
+ sz := interpreterProxy stSizeOf: anOop.
+ array := Array new: sz.
+ 1 to: sz do: [ :i |
+ array at: i put: (self fromOop: (interpreterProxy fetchPointer: i-1 ofObject: anOop))].
+ ^array!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>byteArrayFromOop: (in category 'simulation support') -----
+ byteArrayFromOop: anOop
+ "Answer a copy of the supplied byte array Oop"
+
+ | sz array ptr |
+
+ sz := interpreterProxy stSizeOf: anOop.
+ ptr := interpreterProxy arrayValueOf: anOop.
+ array := ByteArray new: sz.
+ 1 to: sz do: [ :i |
+ array at: i put: (interpreterProxy byteAt: ptr+i-1)].
+ ^array!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>chmod:_: (in category 'simulation') -----
+ chmod: pathByteArray _: newMode
+ "Set the mode of pathByateArray to anInteger (as defined by chmod())"
+
+ | status |
+
+ status := self primFile: pathByteArray posixPermissions: newMode.
+ "The real primitive answers nil on success, convert to C integer status"
+ ^status ifNil: [0]!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>chown:_:_: (in category 'simulation') -----
+ chown: pathByteArray _: uidInteger _: gidInteger
+ "Set the owner and group of path by numeric id."
+
+ | status |
+
+ status := self primFile: pathByteArray uid: uidInteger gid: gidInteger.
+ "The real primitive answers nil on success, convert to C integer status"
+ ^status ifNil: [0]!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>classOf: (in category 'simulation support') -----
+ classOf: anOop
+
+ | clsOop |
+
+ anOop = interpreterProxy nilObject ifTrue: [^UndefinedObject].
+ clsOop := interpreterProxy fetchClassOf: anOop.
+ clsOop = interpreterProxy classArray ifTrue: [^Array].
+ clsOop = interpreterProxy classByteArray ifTrue: [^ByteArray].
+ self error: 'unknown class'!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faAccessAttributes:_:_: (in category 'simulation') -----
+ faAccessAttributes: faPath _: accessArray _: offset
+ "Set the access attributes in the supplied array (size 3) at the supplied offset.
+ Simulated by calling primFileAttributes:mask:."
+
+ | access |
+
+ access := self primFileAttributes: (self faGetStPath: faPath) mask: 2r10.
+ interpreterProxy
+ storePointer: offset+0
+ ofObject: accessArray
+ withValue: (self toOop: (access at: 1));
+ storePointer: offset+1
+ ofObject: accessArray
+ withValue: (self toOop: (access at: 2));
+ storePointer: offset+2
+ ofObject: accessArray
+ withValue: (self toOop: (access at: 3)).
+ !
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faCharToByteArray:_: (in category 'simulation') -----
+ faCharToByteArray: filePtr _: byteArrayPtr
+ "Copy the supplied file name to the simulation and set the pointer"
+
+ byteArrayPtr at: 0 put: (self toOop: filePtr).
+ ^0!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faCloseDirectory: (in category 'simulation') -----
+ faCloseDirectory: faPath
+ "Simulate the the call by actually calling the primitive and discarding the stat information (which will be retrieved again later in the simulation)."
+
+ | result status |
+
+ result := self primClosedir: (self faPathPtr: faPath).
+ result ifNotNil: [
+ faPath at: 3 put: nil.
+ status := 0 ]
+ ifNil: [status := self unexpectedError].
+ ^status
+ !
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faConvertUnixToLongSqueakTime: (in category 'simulation') -----
+ faConvertUnixToLongSqueakTime: anInteger
+ "In the simulation the primitive returns the value already converted, so this is a no-op"
+
+ ^anInteger!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faExists: (in category 'simulation') -----
+ faExists: faPath
+ "Simulate the the call by actually calling the primitive."
+
+ ^(self primExists: faPath first)
+ ifTrue: [interpreterProxy trueObject]
+ ifFalse: [interpreterProxy falseObject].
+ !
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faFileAttribute:_: (in category 'simulation') -----
+ faFileAttribute: faPath _: attributeNumber
+ "Simulate the the call by actually calling the primitive."
+
+ ^self toOop: (self primFileAttribute: faPath first number: attributeNumber)!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faGetPlatPath: (in category 'simulation') -----
+ faGetPlatPath: faPath
+ "Answer the Plat format of the path.
+ Horrible kludge: Within the simulation: if the platform encoding hasn't been set we're about to call the real primitive, which means that actually the St form is required."
+
+ | path |
+
+ path := (faPath at: 3) ifNil:
+ [faPath
+ at: 4 put: nil;
+ at: 3 put: (self primToPlatformPath: (self faGetStPath: faPath))].
+ (faPath at: 4) ifNotNil: [
+ path := path, (faPath at: 4)].
+ ^path!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faGetPlatPathByteCount: (in category 'simulation') -----
+ faGetPlatPathByteCount: faPath
+ "Answer the number of bytes in the platform specific encoding"
+
+ ^(self faGetPlatPath: faPath) size!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faGetStFile: (in category 'simulation') -----
+ faGetStFile: faPath
+ "Answer the basename of the path.
+ The simulated faPath contains the basename as the second entry in the Array."
+
+ ^faPath at: 2!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faGetStPath: (in category 'simulation') -----
+ faGetStPath: faPath
+ "Answer the St format of the path."
+
+ | path |
+
+ path := faPath first.
+ faPath second ifNotNil: [
+ path := path, faPath second].
+ ^path!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faGetStPathLen: (in category 'simulation') -----
+ faGetStPathLen: faPath
+ "Answer the length of the path."
+
+ ^faPath first size
+ !
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faOpenDirectory: (in category 'simulation') -----
+ faOpenDirectory: faPath
+ "Simulate the the call by actually calling the primitive and discarding the stat information (which will be retrieved again later in the simulation)."
+
+ | result status |
+
+ result := self primOpendir: faPath first.
+ result ifNotNil: [
+ faPath
+ at: 2 put: (result at: 1);
+ at: 3 put: (result at: 3).
+ status := 0 ]
+ ifNil: [status := self noMoreData].
+ ^status
+ !
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faPathPtr: (in category 'simulation') -----
+ faPathPtr: faPathSimulation
+ "Given the simulation faPath, answer the ByteArray pointing to the actual faPath"
+
+ ^faPathSimulation at: 3!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faReadDirectory: (in category 'simulation') -----
+ faReadDirectory: faPath
+ "Simulate the the call by actually calling the primitive and discarding the stat information (which will be retrieved again later in the simulation)."
+
+ | result status |
+
+ result := self primReaddir: (self faPathPtr: faPath).
+ result ifNotNil: [
+ faPath at: 2 put: (result at: 1).
+ status := 0 ]
+ ifNil: [status := self noMoreData].
+ ^status
+ !
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faSetPlatPathOop:_: (in category 'simulation') -----
+ faSetPlatPathOop: faPath _: fileNameOop
+ "Simulate setting the platform encoded file name in the supplied faPath."
+
+ | fileNameBytes len path stPath |
+
+ fileNameBytes := interpreterProxy arrayValueOf: fileNameOop.
+ len := self strlen: fileNameBytes.
+ path := ByteArray new: len.
+ self strncpy: path _: fileNameBytes _: len.
+ self simFaPathPlatPath: faPath set: path.
+ stPath := self primFromPlatformPath: path.
+ self simFaPathStPath: faPath set: stPath!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faSetStDirOop:_: (in category 'simulation') -----
+ faSetStDirOop: faPath _: dirOop
+ "Simulate setting the dir name in the supplied faPath."
+
+ self faSetStPathOop: faPath _: dirOop.
+ faPath first last = FileDirectory pathNameDelimiter asciiValue ifFalse:
+ [faPath at: 1 put: (faPath first copyWith: FileDirectory pathNameDelimiter asciiValue)].
+ faPath at: 2 put: nil.!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faSetStPathOop:_: (in category 'simulation') -----
+ faSetStPathOop: faPath _: fileNameOop
+ "Simulate setting the file name in the supplied faPath.
+ The simulated faPath is simply the file name as a C string (null-terminated)."
+
+ | fileNameBytes len path |
+
+ fileNameBytes := interpreterProxy arrayValueOf: fileNameOop.
+ self assert: faPath class == Array.
+ len := self strlen: fileNameBytes.
+ path := ByteArray new: len.
+ self strncpy: path _: fileNameBytes _: len.
+ faPath
+ at: 1 put: path;
+ at: 2 put: nil.!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faStat:_:_: (in category 'simulation') -----
+ faStat: faPath _: statBuf _: fileNameOop
+ "Simulate the call to faStat().
+ The simulator uses a dictionary with keys named after the stat structure members."
+
+ | path primArray |
+
+ path := self faGetStPath: faPath.
+ primArray := self primFileAttributes: path mask: 1.
+ primArray isNumber ifTrue: [^primArray].
+ "First entry is fileName: **TODO**"
+ statBuf contents: primArray.
+ ^0!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>fromOop: (in category 'simulation support') -----
+ fromOop: anOop
+
+ | cls |
+
+ cls := self classOf: anOop.
+ cls = UndefinedObject ifTrue: [^nil].
+ cls = Array ifTrue: [^self arrayFromOop: anOop].
+ cls = ByteArray ifTrue: [^self byteArrayFromOop: anOop].
+ self error: 'Unknown class'.!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>initialize (in category 'initialize-release') -----
+ initialize
+ "Initialise the receiver for the current platform"
+
+ | masks |
+
+ masks := self primFileMasks.
+ S_IFMT := masks at: 1.
+ S_IFSOCK := masks at: 2.
+ S_IFLNK := masks at: 3.
+ S_IFREG := masks at: 4.
+ S_IFBLK := masks at: 5.
+ S_IFDIR := masks at: 6.
+ S_IFCHR := masks at: 7.
+ S_IFIFO := masks at: 8.
+
+ "Simulation has only been tested on Unix"
+ HAVE_LSTAT := true.
+ HAVE_CHMOD := true.
+ HAVE_CHOWN := true.
+ PATH_MAX := FA_PATH_MAX := self primPathMax.!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>lchown:_:_: (in category 'simulation') -----
+ lchown: pathByteArray _: uidInteger _: gidInteger
+ "Set the symlink owner and group of path by numeric id."
+
+ | status |
+
+ status := self primFile: pathByteArray symlinkUid: uidInteger gid: gidInteger.
+ "The real primitive answers nil on success, convert to C integer status"
+ ^status ifNil: [0]!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>maxPathLen (in category 'simulation support') -----
+ maxPathLen
+ "Answer the maximum supported path length for the current platform"
+
+ ^maxPathLen ifNil: [maxPathLen := self primPathMax]!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>pointerFrom: (in category 'simulation support') -----
+ pointerFrom: arrayOop
+ "For the simulation, convert the supplied address to a ByteArray"
+
+ ^self fromOop: arrayOop!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>primClosedir: (in category 'primitives') -----
+ primClosedir: directoryPointerBytes
+ "Close the directory stream associated with directoryPointerBytes.
+ Caution: do not call this twice on the same externalAddress."
+
+ "self primClosedir: (self primOpendir: '/etc')"
+ "self primClosedir: (self primOpendir: '/no/such/directory')"
+
+ <primitive: 'primitiveClosedir' module: 'FileAttributesPlugin' error: error>
+ ^self signalError: error for: 'primClosedir'!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>primExists: (in category 'primitives') -----
+ primExists: aByteArray
+ "Answer a boolean indicating whether the supplied file exists."
+
+ <primitive: 'primitiveFileExists' module: 'FileAttributesPlugin' error: error>
+ ^self signalError: error for: aByteArray.
+ !
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>primFile:posixPermissions: (in category 'primitives') -----
+ primFile: pathByteArray posixPermissions: anInteger
+ "Set the mode of pathByateArray to anInteger (as defined by chmod())"
+
+ <primitive: 'primitiveChangeMode' module: 'FileAttributesPlugin' error: error>
+ ^self signalError: error for: pathByteArray!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>primFile:symlinkUid:gid: (in category 'primitives') -----
+ primFile: pathByteArray symlinkUid: uidInteger gid: gidInteger
+ "Set the owner and group of path by numeric id."
+
+ <primitive: 'primitiveSymlinkChangeOwner' module: 'FileAttributesPlugin' error: error>
+ ^self signalError: error for: pathByteArray!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>primFile:uid:gid: (in category 'primitives') -----
+ primFile: pathByteArray uid: uidInteger gid: gidInteger
+ "Set the owner and group of path by numeric id."
+
+ <primitive: 'primitiveChangeOwner' module: 'FileAttributesPlugin' error: error>
+ ^self signalError: error for: pathByteArray!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>primFileAttribute:number: (in category 'primitives') -----
+ primFileAttribute: aByteArray number: attributeNumber
+ "Answer a single attribute for the supplied file.
+ For backward compatibility (on Unix) with FileReference if the file doesn't exist, and the specified path is a (broken) symbolic link, answer the requested attribute for the symbolic link.
+
+ stat() information:
+
+ 1: name
+ 2: mode
+ 3: ino
+ 4: dev
+ 5: nlink
+ 6: uid
+ 7: gid
+ 8: size
+ 9: accessDate
+ 10: modifiedDate
+ 11: changeDate
+ 12: creationDate
+
+ access() information
+
+ 13: is readable
+ 14: is writeable
+ 15: is executable
+
+ symbolic link information
+
+ 16: is symbolic link
+ "
+ <primitive: 'primitiveFileAttribute' module: 'FileAttributesPlugin' error: error>
+ "FilePlugin>>primitiveDirectoryEntry would return the symbolic link attributes if the symbolic link was broken. This was due to the incorrect implementation of attempting to retrieve symbolic link information.
+ If the old behaviour is required, the logic is:
+
+ (error isPrimitiveError and: [attributeNumber ~= 16 and: [error errorCode = self cantStatPath and: [
+ self platformSupportsSymbolicLinksEgUnix]]]) ifTrue:
+ [DiskSymlinkDirectoryEntry fileSystem: DiskStore currentFileSystem path: aString asPath]"
+ error isPrimitiveError ifTrue: [
+ (attributeNumber = 16 and: [ error errorCode = self unsupportedOperation ]) ifTrue:
+ "If symlinks aren't supported, answer false"
+ [ ^false ]].
+ ^self signalError: error for: aByteArray
+ !
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>primFileAttributes:mask: (in category 'primitives') -----
+ primFileAttributes: aByteArray mask: attributeMask
+ "Answer an array of attributes for the supplied file. The size and contents of the array are determined by the attributeMask:
+
+ Bit 0: stat() information
+ Bit 1: access() information
+ Bit 2: use lstat() (instead of stat())
+
+ On error, answer an error code (Integer).
+
+ stat() information:
+
+ 1: name
+ 2: mode
+ 3: ino
+ 4: dev
+ 5: nlink
+ 6: uid
+ 7: gid
+ 8: size
+ 9: accessDate
+ 10: modifiedDate
+ 11: creationDate
+
+ access() information
+
+ 1: is readable
+ 2: is writeable
+ 3: is executable
+ "
+ <primitive: 'primitiveFileAttributes' module: 'FileAttributesPlugin' error: error>
+ ^self signalError: error for: aByteArray
+ !
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>primFileMasks (in category 'primitives') -----
+ primFileMasks
+ "Answer an array of well known masks:
+
+ 1: S_IFMT
+ 2: S_IFSOCK
+ 3: S_IFLNK
+ 4: S_IFREG
+ 5: S_IFBLK
+ 6: S_IFDIR
+ 7: S_IFCHR
+ 8: S_IFIFO
+
+ For more information, see: http://man7.org/linux/man-pages/man2/stat.2.html
+ "
+ <primitive: 'primitiveFileMasks' module: 'FileAttributesPlugin' error: error>
+ ^self signalError: error for: 'primFileMasks'!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>primFromPlatformPath: (in category 'primitives') -----
+ primFromPlatformPath: aByteArray
+ "Convert the supplied platform encoded string to the native (UTF8) equivalent"
+
+ <primitive: 'primitivePlatToStPath' module: 'FileAttributesPlugin' error: error>
+ ^self signalError: error for: 'primToPlatformPath:'!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>primOpendir: (in category 'primitives') -----
+ primOpendir: pathString
+ "Answer an ExternalAddress for a directory stream on pathString, or nil if
+ the directory cannot be opened"
+
+ "self primOpendir: '/etc'"
+ "self primOpendir: '.'"
+ "self primOpendir: '/no/such/directory'"
+
+ <primitive: 'primitiveOpendir' module: 'FileAttributesPlugin' error: error>
+ ^self signalError: error for: pathString!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>primPathMax (in category 'primitives') -----
+ primPathMax
+ "Answer the VMs FA_PATH_MAX value"
+
+ <primitive: 'primitivePathMax' module: 'FileAttributesPlugin' error: error>
+ ^self signalError: error for: 'primPathMax'!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>primReaddir: (in category 'primitives') -----
+ primReaddir: directoryPointerBytes
+ "Read the next directory entry from the directory stream associated with
+ directoryPointerBytes. Answer the name of the entry, ornil for end of directory stream."
+
+ "self primReaddir: (self primOpendir: '/etc')"
+ "self primReaddir: (self primOpendir: '/no/such/directory')"
+
+ <primitive: 'primitiveReaddir' module: 'FileAttributesPlugin' error: error>
+ ^self signalError: error for: 'primReaddir:'!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>primToPlatformPath: (in category 'primitives') -----
+ primToPlatformPath: aByteArray
+ "Convert the supplied UTF8 encoded string to the platform encoded equivalent"
+
+ <primitive: 'primitiveStToPlatPath' module: 'FileAttributesPlugin' error: error>
+ ^self signalError: error for: 'primToPlatformPath:'!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>primitivePathMax (in category 'simulation') -----
+ primitivePathMax
+ "Answer the value of FA_PATH_MAX for the current VM.
+ It doesn't make sense to simulate this, just call the primitive"
+
+ ^self primPathMax!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>s_IFDIR (in category 'simulation support') -----
+ s_IFDIR
+
+ ^S_IFDIR!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>s_IFMT (in category 'simulation support') -----
+ s_IFMT
+
+ ^S_IFMT!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>signalError:for: (in category 'primitives') -----
+ signalError: error for: aByteArray
+ "In the simulation, just return the error code"
+
+ error ifNil: [ ^self primitiveFailed ].
+ error isSymbol ifTrue: [ ^self primitiveFailed: error ].
+ error isPrimitiveError ifFalse: [
+ "We shouldn't ever get here"
+ ^self primitiveFailed. ].
+
+ ^error errorCode.
+ !
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>simFaPathPlatDir: (in category 'faPath simulation') -----
+ simFaPathPlatDir: faPath
+ "Answer the directory name"
+
+ ^faPath at: 3!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>simFaPathPlatFIleName: (in category 'faPath simulation') -----
+ simFaPathPlatFIleName: faPath
+ "Answer the file name, nil if not present"
+
+ ^faPath at: 4!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>simFaPathPlatPath: (in category 'faPath simulation') -----
+ simFaPathPlatPath: faPath
+ "Answer the full path name, i.e. combine the directory and file name (if present)"
+
+ | path |
+
+ path := faPath at: 3.
+ (faPath at: 4) ifNotNil:
+ [path := path, (faPath at: 4)].
+ ^path!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>simFaPathPlatPath:set: (in category 'faPath simulation') -----
+ simFaPathPlatPath: faPath set: pathName
+ "Set the full path name"
+
+ faPath
+ at: 3 put: pathName;
+ at: 4 put: nil.
+ ^pathName!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>simFaPathPtr: (in category 'faPath simulation') -----
+ simFaPathPtr: faPath
+ "Answer the address of the actual faPath buffer"
+
+ ^faPath at: 5!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>simFaPathStDir: (in category 'faPath simulation') -----
+ simFaPathStDir: faPath
+ "Answer the directory name"
+
+ ^faPath at: 1!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>simFaPathStFIleName: (in category 'faPath simulation') -----
+ simFaPathStFIleName: faPath
+ "Answer the file name, nil if not present"
+
+ ^faPath at: 2!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>simFaPathStPath: (in category 'faPath simulation') -----
+ simFaPathStPath: faPath
+ "Answer the full path name, i.e. combine the directory and file name (if present)"
+
+ | path |
+
+ path := faPath at: 1.
+ (faPath at: 2) ifNotNil:
+ [path := path, (faPath at: 2)].
+ ^path!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>simFaPathStPath:set: (in category 'faPath simulation') -----
+ simFaPathStPath: faPath set: path
+ "Set the full path name"
+
+ faPath
+ at: 1 put: path;
+ at: 2 put: nil.
+ ^path!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>simulatedFaPath (in category 'simulation support') -----
+ simulatedFaPath
+ "Answer the simulated faPath.
+ See class comments for details."
+
+ ^Array new: 5.!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>toOop: (in category 'simulation support') -----
+ toOop: anObject
+ "Convert the supplied simulation object to an object in the simulated image (oop).
+ Use a horrible series of class comparisons to keep it all local for now"
+
+ | resultOop resultBytes |
+
+ anObject class == Array ifTrue: [
+ resultOop := interpreterProxy
+ instantiateClass: (interpreterProxy classArray)
+ indexableSize: anObject size.
+ 1 to: anObject size do: [ :i |
+ interpreterProxy
+ storePointer: i-1
+ ofObject: resultOop
+ withValue: (self toOop: (anObject at: i))].
+ ^resultOop].
+ anObject class == ByteArray ifTrue: [
+ resultOop := interpreterProxy
+ instantiateClass: (interpreterProxy classByteArray)
+ indexableSize: anObject size.
+ resultBytes := interpreterProxy arrayValueOf: resultOop.
+ 1 to: anObject size do: [ :i |
+ interpreterProxy byteAt: resultBytes+i-1 put: (anObject at: i)].
+ ^resultOop].
+ (anObject isKindOf: Boolean) ifTrue: [
+ ^anObject
+ ifTrue: [interpreterProxy trueObject]
+ ifFalse: [interpreterProxy falseObject].
+ ].
+ anObject isInteger ifTrue: [
+ (anObject between: -2147483648 and: 2147483648) ifTrue:
+ [^interpreterProxy signed32BitIntegerFor: anObject].
+ ^anObject > 0
+ ifTrue: [interpreterProxy positive64BitIntegerFor: anObject]
+ ifFalse: [interpreterProxy signed64BitIntegerFor: anObject]].
+ anObject == nil ifTrue:
+ [^interpreterProxy nilObject].
+ self error: 'unknown object type'.!
1
0
Eliot Miranda uploaded a new version of FileAttributesPlugin to project VM Maker:
http://source.squeak.org/VMMaker/FileAttributesPlugin-nice.15.mcz
==================== Summary ====================
Name: FileAttributesPlugin-nice.15
Author: nice
Time: 27 August 2017, 10:36:29.077771 pm
UUID: c966771e-2a05-469c-b059-ad136f1cd4f0
Ancestors: FileAttributesPlugin-nice.14
Simplify sizeOfPointer and make simulation 64-bits friendly.
Use #var:type: rather than #var:declareC: when possible (to avoid repeating var name)
=============== Diff against FileAttributesPlugin-AlistairGrant.12 ===============
Item was changed:
----- Method: FileAttributesPlugin>>byteArrayFromCString:to: (in category 'private') -----
byteArrayFromCString: aCString to: byteArrayOop
"Answer a new ByteArray copied from a null-terminated C string.
Caution: This may invoke the garbage collector."
| len newByteArray byteArrayPtr |
<var: 'aCString' type: 'const char *'>
<var: 'byteArrayPtr' type: 'unsigned char *'>
<var: 'byteArrayOop' type: 'sqInt *'>
len := self strlen: aCString.
"We never return strings longer than PATH_MAX"
len > (self cCode: 'PATH_MAX') ifTrue: [^self stringTooLong].
newByteArray := interpreterProxy
instantiateClass: interpreterProxy classByteArray
indexableSize: len.
byteArrayPtr := interpreterProxy arrayValueOf: newByteArray.
+ self mem: byteArrayPtr cp: aCString y: len.
- self cCode: 'memcpy(byteArrayPtr, aCString, len)'.
self cCode: '*byteArrayOop = newByteArray'.
^0.!
Item was changed:
----- Method: FileAttributesPlugin>>checkAccess:mode:to: (in category 'private - file') -----
checkAccess: pathString mode: mode to: flag
"Check access to pathString."
| cString len sPtr |
<export: true>
<var: 'cString' declareC: 'char cString[PATH_MAX]'>
<var: 'sPtr' declareC: 'char *sPtr'>
<var: 'flag' type: 'sqInt *'>
len := interpreterProxy stSizeOf: pathString.
"Note: The static sized string buffer is faster than using a Smalltalk allocated
string as the buffer, and is unlikely to fail in practice. In the event that
the buffer turns out to be too small, write an error message to stdout before
failing."
(len >= (self cCode: 'PATH_MAX')) ifTrue: [^self stringTooLong].
"Copy pathString to the new string"
sPtr := interpreterProxy arrayValueOf: pathString.
((self canStatFilePath: sPtr length: len) = 0) ifTrue: [^self cantStatPath].
+ self mem: cString cp: sPtr y: len.
- self cCode: 'memcpy(cString, sPtr, len)'.
cString at: len put: 0.
self cCode: '*flag = access(cString, mode)'.
^0
!
Item was changed:
----- Method: FileAttributesPlugin>>fileToAttributeArray:mask:array: (in category 'private - file') -----
fileToAttributeArray: cPathName mask: attributeMask array: attributeArray
"Answer a file attribute array from pathNameOop."
| getStats useLstat getAccess statArray accessArray combinedArray status fileNameOop statBuf statBufPointer |
<returnTypeC: 'int'>
<var: 'cPathName' type: 'char *'>
<var: 'attributeArray' type: 'sqInt *'>
<var: 'statBuf' type: 'struct stat'>
+ <var: 'statBufPointer' type: 'struct stat *'>
- <var: 'statBufPointer' declareC: 'struct stat *statBufPointer= &statBuf'>
+ statBufPointer := self addressOf: statBuf.
"Determine which attributes to retrieve"
getStats := (attributeMask bitAnd: 1) = 1.
getAccess := (attributeMask bitAnd: 2) = 2.
[getStats or: [getAccess]] ifFalse:
["No information has been requested, which doesn't make sense"
^self invalidArguments].
getStats ifTrue:
[
useLstat := (attributeMask bitAnd: 4) = 4.
statArray := interpreterProxy instantiateClass: (interpreterProxy classArray) indexableSize: 12.
useLstat ifFalse:
[ status := self putStatFor: cPathName
intoBuffer: statBufPointer
+ targetName: (self addressOf: fileNameOop) ]
- targetName: (self cCode: '&fileNameOop') ]
ifTrue:
[ status := self putLStatFor: cPathName
intoBuffer: statBufPointer
+ targetName: (self addressOf: fileNameOop) ].
- targetName: (self cCode: '&fileNameOop') ].
status ~= 0 ifTrue: [^status].
status := self statArrayFor: cPathName toArray: statArray from: statBufPointer fileName: fileNameOop.
status ~= 0 ifTrue: [^status].
"Set attributeArray in case only stat() attributes have been requested"
self cCode: '*attributeArray = statArray'.
].
getAccess ifTrue:
[
accessArray := interpreterProxy instantiateClass: (interpreterProxy classArray) indexableSize: 3.
self accessAttributesForFilename: cPathName into: accessArray startingAt: 0.
"Set attributeArray in case only access() attributes have been requested"
self cCode: '*attributeArray = accessArray'.
].
[getStats and: [getAccess]] ifTrue:
[
combinedArray := interpreterProxy instantiateClass: (interpreterProxy classArray) indexableSize: 2.
self cCode: '*attributeArray = combinedArray'.
interpreterProxy
storePointer: 0
ofObject: combinedArray
withValue: statArray.
interpreterProxy
storePointer: 1
ofObject: combinedArray
withValue: accessArray.
].
^0!
Item was changed:
----- Method: FileAttributesPlugin>>isSymlink:boolean: (in category 'private - file') -----
isSymlink: cPathName boolean: resultOop
"Set resultOop to a boolean indicating whether cPathName is a symbolic link.
Answer status (0 = success)"
| status statBuf |
<var: 'cPathName' type: 'char *'>
<var: 'resultOop' type: 'sqInt *'>
<var: 'statBuf' type: 'struct stat'>
+
+ self cPreprocessorDirective: '#if (HAVE_LSTAT == 1)'.
+ status := self cCode: 'lstat(cPathName, &statBuf)'.
+ (status ~= 0) ifTrue: [^self cantStatPath].
+ ((self cCode: 'S_ISLNK(statBuf.st_mode)') = 0)
+ ifFalse: [self cCode: '*resultOop = interpreterProxy->trueObject()']
+ ifTrue: [self cCode: '*resultOop = interpreterProxy->falseObject()'].
+ self cPreprocessorDirective: '#endif'. "HAVE_LSTAT == 1"
- self isDefinedTrueExpression: 'HAVE_LSTAT == 1'
- inSmalltalk: []
- comment: ''
- ifTrue: [
- status := self cCode: 'lstat(cPathName, &statBuf)'.
- (status ~= 0) ifTrue: [^self cantStatPath].
- ((self cCode: 'S_ISLNK(statBuf.st_mode)') = 0)
- ifFalse: [self cCode: '*resultOop = interpreterProxy->trueObject()']
- ifTrue: [self cCode: '*resultOop = interpreterProxy->falseObject()'].
- ]
- ifFalse: [].
^0
!
Item was changed:
----- Method: FileAttributesPlugin>>pathOop:toBuffer:maxLen: (in category 'private - file') -----
pathOop: pathNameOop toBuffer: cPathName maxLen: maxLen
"Copy the supplied path name string object to the supplied c string buffer"
| len sPtr |
<var: 'cPathName' type: 'char *'>
+ <var: 'sPtr' type: 'char *'>
- <var: 'sPtr' declareC: 'char *sPtr'>
<returnTypeC: 'int'>
len := interpreterProxy stSizeOf: pathNameOop.
(len >= maxLen) ifTrue: [^self stringTooLong].
"Copy pathName to the new string"
sPtr := interpreterProxy arrayValueOf: pathNameOop.
((self canStatFilePath: sPtr length: len) = 0) ifTrue: [^self cantStatPath].
+ self mem: cPathName cp: sPtr y: len.
- self cCode: 'memcpy(cPathName, sPtr, len)'.
cPathName at: len put: 0.
^0.
!
Item was changed:
----- Method: FileAttributesPlugin>>pointerFrom: (in category 'private - directory') -----
pointerFrom: directoryPointerBytes
"Answer the machine address contained in anExternalAddressOop."
| ptr addressUnion idx |
<returnTypeC: 'void *'>
+ <var: 'ptr' type: 'unsigned char *'>
+ <var: 'addressUnion' type: 'union {void *address; unsigned char bytes[sizeof(void *)];}'>
- <var: 'ptr' declareC: 'unsigned char *ptr'>
- <var: 'addressUnion' declareC: 'union {void *address; unsigned char bytes[sizeof(void *)];} addressUnion'>
((interpreterProxy isBytes: directoryPointerBytes) and:
[(interpreterProxy stSizeOf: directoryPointerBytes) = self sizeOfPointer])
ifFalse: [^ nil].
ptr := interpreterProxy arrayValueOf: directoryPointerBytes.
idx := 0.
[idx < self sizeOfPointer] whileTrue:
[self cCode: 'addressUnion.bytes[idx] = ptr[idx]'.
idx := idx + 1].
^ self cCode: 'addressUnion.address' inSmalltalk: [addressUnion]
!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveClosedir (in category 'file primitives') -----
primitiveClosedir
"Close the directory stream for dirPointerOop. Answer dirPointerOop on success."
| dirPointerOop dirStream result |
<export: true>
+ <var: 'dirStream' type: 'osdir *'>
- <var: 'dirStream' declareC: 'osdir *dirStream'>
dirPointerOop := interpreterProxy stackObjectValue: 0.
(dirPointerOop = interpreterProxy nilObject) ifTrue:
[^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
(interpreterProxy is: dirPointerOop KindOf: 'ByteArray') ifFalse:
+ [self cCode: 'fprintf(stderr, "primitiveClosedir: invalid argument, expected a ByteArray\n")'.
- [self cCode: 'fprintf(stderr, "primitiveClosedir: invalid argument, expected an ByteArray\n")'.
^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
dirStream := self pointerFrom: dirPointerOop.
(dirStream = nil) ifTrue: [^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self corruptValue)].
result := self cCode: 'closedir(dirStream->dp)'.
(result = 0) ifFalse:
[self perror: 'closedir'.
^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self corruptValue)].
self cCode: 'free(dirStream)'.
interpreterProxy pop: 2; push: dirPointerOop.
!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveFileAttribute (in category 'file primitives') -----
primitiveFileAttribute
"Answer a single file attribute.
primFileAttributes: aString attributeNumber: attributeNumber
aString is the path to the file
attributeNumber identifies which attribute to return:
1 - 12: stat(): name, mode, ino, dev, nlink, uid, gid, size, accessDate, modifiedDate, changeDate, creationDate
13 - 15: access(): R_OK, W_OK, X_OK
16: isSymlink
On error, answer a single element array containing the appropriate error code."
+ | fileName attributeNumber resultOop fileNameOop statBuf cPathName sizeIfFile mode creationDate status |
- | fileName attributeNumber resultOop fileNameOop cPathName statBuf statBufPointer sizeIfFile mode creationDate status |
<export: true>
+ <var: 'statBuf' type: 'struct stat'>
- <var: 'statBuf' declareC: 'struct stat statBuf'>
- <var: 'statBufPointer' declareC: 'struct stat *statBufPointer= &statBuf'>
<var: 'cPathName' declareC: 'char cPathName[PATH_MAX]'>
<var: 'creationDate' type: 'time_t'>
fileName := interpreterProxy stackObjectValue: 1.
attributeNumber := interpreterProxy stackIntegerValue: 0.
(attributeNumber < 1 or: [attributeNumber > 16]) ifTrue:
[^interpreterProxy pop: 3; push: (self wrappedErrorCode: self invalidArguments)].
(interpreterProxy is: fileName KindOf: 'String') ifFalse:
[^interpreterProxy pop: 3; push: (self wrappedErrorCode: self invalidArguments)].
status := self pathOop: fileName toBuffer: cPathName maxLen: (self cCode: 'PATH_MAX').
[status ~= 0] ifTrue:
[^interpreterProxy pop: 3; push: (self wrappedErrorCode: status)].
resultOop := 0.
attributeNumber < 12 ifTrue:
"Get requested stat entry"
[
status := self
putStatFor: cPathName
+ intoBuffer: (self addressOf: statBuf)
+ targetName: (self addressOf: fileNameOop).
- intoBuffer: statBufPointer
- targetName: (self cCode: '&fileNameOop').
(status ~= 0) ifTrue:
[^interpreterProxy pop: 3; push: (self wrappedErrorCode: status)].
"In C, this would naturally be a switch statement,
but I don't know to mix in the smalltalk code"
attributeNumber = 1 ifTrue: [resultOop := fileNameOop].
attributeNumber = 2 ifTrue:
[resultOop := (self smallOrLargeIntegerObjectFor:
(self cCode: 'statBuf.st_mode'))].
attributeNumber = 3 ifTrue:
[resultOop := (interpreterProxy positive64BitIntegerFor:
(self cCode: 'statBuf.st_ino'))].
attributeNumber = 4 ifTrue:
[resultOop := (interpreterProxy positive64BitIntegerFor:
(self cCode: 'statBuf.st_dev'))].
attributeNumber = 5 ifTrue:
[resultOop := (interpreterProxy positive64BitIntegerFor:
(self cCode: 'statBuf.st_nlink'))].
attributeNumber = 6 ifTrue:
[resultOop := (self smallOrLargeIntegerObjectFor:
(self cCode: 'statBuf.st_uid'))].
attributeNumber = 7 ifTrue:
[resultOop := (self smallOrLargeIntegerObjectFor:
(self cCode: 'statBuf.st_gid'))].
attributeNumber = 8 ifTrue:
[
((self cCode: 'S_ISDIR(statBuf.st_mode)') = 0)
ifTrue:
[sizeIfFile := self cCode: 'statBuf.st_size']
ifFalse:
[sizeIfFile := 0].
resultOop := self smallOrLargeIntegerObjectFor: sizeIfFile
].
attributeNumber = 9 ifTrue:
[resultOop := self oopFromTimeT: (self cCode: 'statBuf.st_atime')].
attributeNumber = 10 ifTrue:
[resultOop := self oopFromTimeT: (self cCode: 'statBuf.st_mtime')].
attributeNumber = 11 ifTrue:
[resultOop := self oopFromTimeT: (self cCode: 'statBuf.st_ctime')].
]
ifFalse: [attributeNumber = 12 ifTrue:
[
status := self fileCreationTimeFor: cPathName
length: cPathName strlen
+ to: (self addressOf: creationDate).
- to: (self cCode: '&creationDate').
status ~= 0 ifTrue:
[^interpreterProxy pop: 3; push: (self wrappedErrorCode: status)].
resultOop := self oopFromTimeT: creationDate.
]
ifFalse: [attributeNumber < 16 ifTrue:
"Get requested access entry"
[
attributeNumber = 13 ifTrue: [mode := self fileReadableFlag].
attributeNumber = 14 ifTrue: [mode := self fileWriteableFlag].
attributeNumber = 15 ifTrue: [mode := self fileExecutableFlag].
((self cCode: 'access(cPathName, mode)') = 0)
ifTrue: [resultOop := interpreterProxy trueObject]
ifFalse: [resultOop := interpreterProxy falseObject].
]
ifFalse: "attributeNumber = 16"
[
+ status := self isSymlink: cPathName boolean: (self addressOf: resultOop).
- status := self isSymlink: cPathName boolean: (self cCode: '&resultOop').
(status ~= 0) ifTrue:
[^interpreterProxy pop: 3; push: (self wrappedErrorCode: status)].
]]].
(resultOop = 0)
ifTrue: ["It shouldn't be possible to get here"
^ interpreterProxy primitiveFail]
ifFalse: [interpreterProxy pop: 3; push: resultOop]
!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveFileAttributes (in category 'file primitives') -----
primitiveFileAttributes
"Answer an array of file attributes.
primFileAttributes: aString mask: attributeMask
aString is the path to the file
attributeMask indicates which attributes to retrieve:
bit 0 - get stat() attributes
bit 1 - get access() attributes
bit 2 - use lstat() instead of stat()
On error answer the appropriate error code (Integer)"
| fileName attributeMask attributeArray cPathName status |
<export: true>
<var: 'cPathName' declareC: 'char cPathName[PATH_MAX]'>
fileName := interpreterProxy stackObjectValue: 1.
attributeMask := interpreterProxy stackIntegerValue: 0.
(interpreterProxy is: fileName KindOf: 'String') ifFalse:
[^interpreterProxy pop: 3; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
status := self pathOop: fileName toBuffer: cPathName maxLen: (self cCode: 'PATH_MAX').
status ~= 0 ifTrue:
[^interpreterProxy pop: 3; push: (interpreterProxy signed32BitIntegerFor: status)].
+ status := self fileToAttributeArray: cPathName mask: attributeMask array: (self addressOf: attributeArray).
- status := self fileToAttributeArray: cPathName mask: attributeMask array: (self cCode: '&attributeArray').
status ~= 0
ifTrue: [interpreterProxy pop: 3; push: (interpreterProxy signed32BitIntegerFor: status)]
ifFalse: [interpreterProxy pop: 3; push: attributeArray]
!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveFileExists (in category 'file primitives') -----
primitiveFileExists
"Check for existence of a file with a call to access()."
| pathString status accessFlag |
<export: true>
<var: 'accessFlag' type: 'sqInt'>
pathString := interpreterProxy stackObjectValue: 0.
(interpreterProxy is: pathString KindOf: 'String') ifFalse:
[^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
+ status := self checkAccess: pathString mode: self fileOKFlag to: (self addressOf: accessFlag).
- status := self checkAccess: pathString mode: self fileOKFlag to: (self cCode: '&accessFlag').
[status = 0] ifFalse: [^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: status)].
accessFlag = 0
ifTrue: [interpreterProxy pop: 2; push: interpreterProxy trueObject]
ifFalse: [interpreterProxy pop: 2; push: interpreterProxy falseObject]
!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveFileMasks (in category 'file primitives') -----
primitiveFileMasks
"Answer an array of well known file masks"
| masks |
<export: true>
masks := interpreterProxy instantiateClass: (interpreterProxy classArray) indexableSize: 8.
interpreterProxy
storePointer: 0
ofObject: masks
withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFMT')).
+ self cPreprocessorDirective: '#if !!defined(WIN32)'.
- self isDefinedTrueExpression: 'defined(WIN32)'
- inSmalltalk: []
- comment: 'windows doesn''t have SOCK or SYMLINK file types'
- ifTrue: []
- ifFalse: [
- interpreterProxy
- storePointer: 1
- ofObject: masks
- withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFSOCK')).
- interpreterProxy
- storePointer: 2
- ofObject: masks
- withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFLNK')).
- ].
interpreterProxy
+ storePointer: 1
+ ofObject: masks
+ withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFSOCK')).
+ interpreterProxy
+ storePointer: 2
+ ofObject: masks
+ withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFLNK')).
+ self cPreprocessorDirective: '#endif'.
+ interpreterProxy
storePointer: 3
ofObject: masks
withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFREG')).
interpreterProxy
storePointer: 4
ofObject: masks
withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFBLK')).
interpreterProxy
storePointer: 5
ofObject: masks
withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFDIR')).
interpreterProxy
storePointer: 6
ofObject: masks
withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFCHR')).
interpreterProxy
storePointer: 7
ofObject: masks
withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFIFO')).
interpreterProxy pop: 1 thenPush: masks!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveLogicalDrives (in category 'file primitives') -----
primitiveLogicalDrives
"Answer the logical drive mask on windows"
| mask |
<export: true>
+ <var: 'mask' type: #'unsigned int'>
+ self cPreprocessorDirective: '#if defined(WIN32)'.
+ mask := self cCode: 'GetLogicalDrives()'.
+ [mask ~= 0] ifTrue:
+ [^interpreterProxy pop: 1 thenPush: (interpreterProxy positive32BitIntegerFor: mask)].
+ self cPreprocessorDirective: '#endif'.
- self isDefinedTrueExpression: 'defined(WIN32)'
- inSmalltalk: []
- comment: 'Answer the logical drive mask on windows'
- ifTrue: [
- mask := self cCode: 'GetLogicalDrives()'.
- [mask ~= 0] ifTrue:
- [^interpreterProxy pop: 1 thenPush: (interpreterProxy positive32BitIntegerFor: mask)]
- ]
- ifFalse: [].
^interpreterProxy primitiveFail.!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveOpendir (in category 'file primitives') -----
primitiveOpendir
"self primOpendir: '/etc'"
+ | dirName dir dirOop status dirOopArrayPointer |
- | dirName dir dirOop status |
<export: true>
<var: 'dir' type: 'osdir *'>
+ <var: 'dirOopArrayPointer' type: 'unsigned char *'>
- <var: 'dirOopArrayPointer' declareC: 'unsigned char *dirOopArrayPointer'>
dirName := interpreterProxy stackObjectValue: 0.
(interpreterProxy is: dirName KindOf: 'String') ifFalse:
[self cCode: 'fprintf(stderr, "primitiveOpendir: invalid argument, expected a String\n")'.
^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
+ status := self openDirectoryStream: dirName ptr: (self addressOf: dir).
- status := self openDirectoryStream: dirName ptr: (self cCode: '&dir').
status ~= 0 ifTrue: [^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: status)].
dirOop := self addressObjectFor: dir.
interpreterProxy pop: 2; push: dirOop
!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveReaddir (in category 'file primitives') -----
primitiveReaddir
"Get the next entry in the directory stream. Answer the name of the entry, or
error for end of directory stream."
| dirPointerOop dirStream ent entryName attributeArray resultArray haveEntry entry_len status |
<export: true>
+ <var: 'ent' type: 'struct dirent *'>
+ <var: 'dirStream' type: 'osdir *'>
+ <var: 'haveEntry' type: #int>
- <var: 'ent' declareC: 'struct dirent *ent'>
- <var: 'dirStream' declareC: 'osdir *dirStream'>
- <var: 'haveEntry' declareC: 'int haveEntry'>
dirPointerOop := interpreterProxy stackObjectValue: 0.
(interpreterProxy is: dirPointerOop KindOf: 'ByteArray') ifFalse:
[self cCode: 'fprintf(stderr, "primitiveReaddir: invalid argument, expected an ByteArray\n")'.
^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
dirStream := self pointerFrom: dirPointerOop.
(dirStream = nil) ifTrue: [^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
haveEntry := 0.
self cCode: 'do {'.
ent := self cCode: 'readdir(dirStream->dp)'.
self cCode: 'if (ent == NULL ||
((!! (ent->d_name[0] == ''.'' && strlen(ent->d_name) == 1)) && strcmp(ent->d_name, "..")))
haveEntry = 1;
} while (haveEntry == 0)'.
(ent = nil) ifTrue: ["This is the normal case for the end of a directory stream,
although it may indicate other error conditions for which errno would be updated.
Assume the normal case here."
^interpreterProxy pop: 2; push: interpreterProxy nilObject].
+ status := self byteArrayFromCString: (self cCode: 'ent->d_name') to: (self addressOf: entryName).
- status := self byteArrayFromCString: (self cCode: 'ent->d_name') to: (self cCode: '&entryName').
[status ~= 0] ifTrue:
[^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: status)].
"Build the path name (append the entry name to the path name)"
entry_len := self cCode: 'strlen(ent->d_name)'.
[(self cCode: 'dirStream->path_len') + entry_len > (self cCode: 'PATH_MAX-1')] ifTrue:
[^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self stringTooLong)].
self cCode: 'memcpy(dirStream->path_file, ent->d_name, entry_len)'.
self cCode: 'dirStream->path_file[entry_len] = ''\0'''.
+ status := self fileToAttributeArray: (self cCode: 'dirStream->path') mask: 1 array: (self addressOf: attributeArray).
- status := self fileToAttributeArray: (self cCode: 'dirStream->path') mask: 1 array: (self cCode: '&attributeArray').
"If the stat() fails, still return the filename, just no attributes"
status ~= 0 ifTrue: [attributeArray := interpreterProxy nilObject].
resultArray := interpreterProxy instantiateClass: (interpreterProxy classArray) indexableSize: 2.
interpreterProxy
storePointer: 0
ofObject: resultArray
withValue: entryName.
interpreterProxy
storePointer: 1
ofObject: resultArray
withValue: attributeArray.
interpreterProxy pop: 2; push: resultArray
!
Item was changed:
----- Method: FileAttributesPlugin>>putLStatFor:intoBuffer:targetName: (in category 'private - file') -----
putLStatFor: cPathName intoBuffer: statBufPointer targetName: fileNameOop
"Call stat() on cPathName, storing the results in
the buffer at statBufPointer."
+ | cLinkName cLinkPtr len status |
+ <returnTypeC: 'sqInt'>
- | result cLinkName cLinkPtr len status |
<var: 'cPathName' type: 'char *'>
<var: 'statBufPointer' type: 'struct stat *'>
<var: 'cLinkName' declareC: 'char cLinkName[PATH_MAX]'>
+ <var: 'cLinkPtr' type: 'char *'>
- <var: 'cLinkPtr' declareC: 'char *cLinkPtr = (char *) &cLinkName'>
<var: 'fileNameOop' type: 'sqInt *'>
+ cLinkPtr := self cCode: '(char *) &cLinkName'.
+ self cPreprocessorDirective: '#if HAVE_LSTAT == 1'.
+ status := self cCode: 'lstat(cPathName, statBufPointer)'.
+ (status ~= 0) ifTrue: [^self cantStatPath].
+ "status := 0."
+ ((self cCode: 'S_ISLNK(statBufPointer->st_mode)') = 0)
+ ifFalse: [
+ len := self readLink: cPathName into: cLinkPtr maxLength: (self cCode: 'PATH_MAX').
+ len < 0 ifTrue: [^len].
+ status := self byteArrayFromCString: cLinkPtr to: fileNameOop]
+ ifTrue:
+ [self cCode: '*fileNameOop = interpreterProxy->nilObject()'].
+ self cPreprocessorDirective: '#else'.
+ status := self invalidRequest.
+ self cPreprocessorDirective: '#endif'.
+ ^status
- self isDefinedTrueExpression: 'HAVE_LSTAT == 1'
- inSmalltalk: []
- comment: 'Platforms which do not have lstat() should #define HAVE_LSTAT 0'
- ifTrue: [
- result := self cCode: 'lstat(cPathName, statBufPointer)'.
- (result ~= 0) ifTrue: [^self cantStatPath].
- ((self cCode: 'S_ISLNK(statBufPointer->st_mode)') = 0)
- ifFalse: [
- len := self readLink: cPathName into: cLinkPtr maxLength: (self cCode: 'PATH_MAX').
- len < 0 ifTrue: [^len].
- status := self byteArrayFromCString: cLinkPtr to: fileNameOop.
- [status ~= 0] ifTrue: [^status]]
- ifTrue:
- [self cCode: '*fileNameOop = interpreterProxy->nilObject()'].
- ]
- ifFalse:
- [^self invalidRequest].
- ^0
!
Item was changed:
----- Method: FileAttributesPlugin>>putStatFor:intoBuffer:targetName: (in category 'private - file') -----
putStatFor: cPathName intoBuffer: statBufPointer targetName: fileNameOop
"Call stat() on cPathName, storing the results in
the buffer at statBufPointer."
+ | status |
- | result status |
<var: 'cPathName' type: 'char *'>
<var: 'statBufPointer' type: 'struct stat *'>
<var: 'fileNameOop' type: 'sqInt *'>
+ self cPreprocessorDirective: '#ifdef WIN32
- self cCode: '#ifdef WIN32
TIME_ZONE_INFORMATION dtzi;
#endif'.
+ status :=self cCode: 'stat(cPathName, statBufPointer)'.
+ (status ~= 0) ifTrue: [^self cantStatPath].
+ self cPreprocessorDirective: '#if defined(WIN32)'.
+ status := self cCode: 'GetTimeZoneInformation(&dtzi)'.
+ [status = 2] ifTrue: [
+ self cCode: 'statBufPointer->st_atime -= 3600'.
+ self cCode: 'statBufPointer->st_mtime -= 3600'.
+ self cCode: 'statBufPointer->st_ctime -= 3600'.
+ ].
+ self cPreprocessorDirective: '#endif'.
- result :=self cCode: 'stat(cPathName, statBufPointer)'.
- (result ~= 0) ifTrue: [^self cantStatPath].
- self isDefinedTrueExpression: 'defined(WIN32)'
- inSmalltalk: []
- comment: 'The windows version of stat() looks like it doesn''t handle dst properly. Adjust for DST. Remove this code if ever switching to cygwin stat().'
- ifTrue: [
- status := self cCode: 'GetTimeZoneInformation(&dtzi)'.
- [status = 2] ifTrue: [
- self cCode: 'statBufPointer->st_atime -= 3600'.
- self cCode: 'statBufPointer->st_mtime -= 3600'.
- self cCode: 'statBufPointer->st_ctime -= 3600'.
- ].
- ]
- ifFalse: [].
self cCode: '*fileNameOop = interpreterProxy->nilObject()'.
^0
!
Item was changed:
----- Method: FileAttributesPlugin>>readLink:into:maxLength: (in category 'private - file') -----
readLink: cPathName into: cLinkPtr maxLength: maxLength
"Get the target filename of the supplied symbolic link."
| len |
<returnTypeC: 'size_t'>
<var: 'cPathName' type: 'char *'>
<var: 'cLinkPtr' type: 'char *'>
<var: 'maxLength' type: 'size_t'>
<var: 'len' type: 'size_t'>
+ self cPreprocessorDirective: '#if defined(WIN32)'.
+ len := -1.
+ self cPreprocessorDirective: '#else'.
+ len := self cCode: 'readlink(cPathName, cLinkPtr, maxLength)'.
+ self cPreprocessorDirective: '#endif'.
- self isDefinedTrueExpression: 'defined(WIN32)'
- inSmalltalk: []
- comment: 'This should never be called on WIN32, just indicate failure'
- ifTrue: [len := -1]
- ifFalse: [len := self cCode: 'readlink(cPathName, cLinkPtr, maxLength)'].
len < 0 ifTrue:
[self cCode: 'fprintf(stderr, "FileAttributesPlugin: unable to readlink(): %d\n", len)'.
^self cantReadlink].
cLinkPtr at: len put: 0.
^len.!
Item was changed:
----- Method: FileAttributesPlugin>>sizeOfPointer (in category 'private - directory') -----
sizeOfPointer
"Size of a C pointer on this machine"
+ <inline: true>
+ ^self sizeof: #'void *'!
-
- ^ self cCode: 'sizeof(void *)' inSmalltalk: [4]
- !
Item was changed:
----- Method: FileAttributesPlugin>>statArrayFor:toArray:from:fileName: (in category 'private - file') -----
statArrayFor: cPathName toArray: attributeArray from: statBufPointer fileName: fileNameOop
"Answer a file entry array from the supplied statBufPointer"
| index sizeIfFile creationDate status |
<var: 'cPathName' type: 'char *'>
<var: 'statBufPointer' type: 'struct stat *'>
<var: 'creationDate' type: 'time_t'>
((self cCode: 'S_ISDIR(statBufPointer->st_mode)') = 0)
ifTrue:
[sizeIfFile := self cCode: 'statBufPointer->st_size']
ifFalse:
[sizeIfFile := 0].
index := 0.
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: fileNameOop.
index := index + 1. "1"
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (self smallOrLargeIntegerObjectFor:
(self cCode: 'statBufPointer->st_mode' inSmalltalk: [0])).
index := index + 1. "2"
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (interpreterProxy positive64BitIntegerFor:
(self cCode: 'statBufPointer->st_ino' inSmalltalk: [0])).
index := index + 1. "3"
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (interpreterProxy positive64BitIntegerFor:
(self cCode: 'statBufPointer->st_dev' inSmalltalk: [0])).
index := index + 1. "4"
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (interpreterProxy positive64BitIntegerFor:
(self cCode: 'statBufPointer->st_nlink' inSmalltalk: [0])).
index := index + 1. "5"
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (self smallOrLargeIntegerObjectFor:
(self cCode: 'statBufPointer->st_uid' inSmalltalk: [0])).
index := index + 1. "6"
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (self smallOrLargeIntegerObjectFor:
(self cCode: 'statBufPointer->st_gid' inSmalltalk: [0])).
index := index + 1. "7"
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (self smallOrLargeIntegerObjectFor: sizeIfFile).
index := index + 1. "8"
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (self oopFromTimeT: (self cCode: 'statBufPointer->st_atime')).
index := index + 1. "9"
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (self oopFromTimeT: (self cCode: 'statBufPointer->st_mtime')).
index := index + 1. "10"
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (self oopFromTimeT: (self cCode: 'statBufPointer->st_ctime')).
index := index + 1. "11"
+ self cPreprocessorDirective: '#if defined(WIN32)'.
+ status := self fileCreationTimeFor: cPathName
+ length: cPathName strlen
+ to: (self cCode: '&creationDate').
- self isDefinedTrueExpression: 'defined(WIN32)'
- inSmalltalk: []
- comment: 'windows supports creation date'
- ifTrue:
- [
- status := self fileCreationTimeFor: cPathName
- length: cPathName strlen
- to: (self cCode: '&creationDate').
status = 0 ifTrue:
[
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (self oopFromTimeT: creationDate).
]
ifFalse:
[
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (interpreterProxy nilObject).
+ ].
+ self cPreprocessorDirective: '#else'.
+ interpreterProxy
+ storePointer: index
+ ofObject: attributeArray
+ withValue: (interpreterProxy nilObject).
+ self cPreprocessorDirective: '#endif'.
- ]
- ]
- ifFalse:
- [
- interpreterProxy
- storePointer: index
- ofObject: attributeArray
- withValue: (interpreterProxy nilObject).
- ].
-
^0!
1
0
29 Nov '19
Eliot Miranda uploaded a new version of FileAttributesPlugin to project VM Maker:
http://source.squeak.org/VMMaker/FileAttributesPlugin-AlistairGrant.12.mcz
==================== Summary ====================
Name: FileAttributesPlugin-AlistairGrant.12
Author: AlistairGrant
Time: 25 July 2017, 6:08:04.058747 pm
UUID: 4f4a6801-af1c-4227-beb4-2a7c1b763349
Ancestors: FileAttributesPlugin-AlistairGrant.11
FileAttributesPlugin V1.0.0
==================== Snapshot ====================
SystemOrganization addCategory: #FileAttributesPlugin!
InterpreterPlugin subclass: #FileAttributesPlugin
instanceVariableNames: 'hasSecurityPlugin smallIntegerMaxVal'
classVariableNames: ''
poolDictionaries: ''
category: 'FileAttributesPlugin'!
!FileAttributesPlugin commentStamp: 'AlistairGrant 5/14/2017 11:37' prior: 0!
FileAttributesPlugin defines the named primitives used by the FileAttributes.
For information on stat(), see http://man7.org/linux/man-pages/man2/stat.2.html
For information on access(), see http://man7.org/linux/man-pages/man2/access.2.html
For information on design considerations, see FileAttributes class comments.
Public interface:
- primitiveFileExists - answer a boolean indicating whether the supplied path name string exists
- primitiveFileAttributes - answer an array containing stat() and/or access() information for the supplied path name string
- primitiveFileMasks - answer an array of stat.st_mode masks
Return codes:
0 - Internal success. This should never be returned by the public primitives
1 - String too long. A file path name was longer than PATH_MAX.
2 - stat() call failed.
!
----- Method: FileAttributesPlugin class>>declareCVarsIn: (in category 'translation') -----
declareCVarsIn: cg
cg addHeaderFile: '<sys/types.h>'.
cg addHeaderFile: '<dirent.h>
#ifdef WIN32
#include <windows.h>
#include <winbase.h>
#define FAIL() { return -1; }
#include "sqWin32File.h"
#endif
typedef struct dirptrstruct {
DIR *dp;
int path_len;
char *path_file;
char path[PATH_MAX+4];
} osdir;'.
cg addHeaderFile: '<sys/stat.h>
#if !!defined(HAVE_LSTAT) && !!defined(WIN32)
#define HAVE_LSTAT 1
#endif'.
cg addHeaderFile: '<unistd.h>
/* AKG 2017 - ', self moduleName, '.c translated from class ', self name, ' */'.
"Assume the security plugin can be loaded until proven otherwise"
cg var: 'hasSecurityPlugin' declareC: 'int hasSecurityPlugin= 1'.
"The maximum value of a SmallInteger is encoded here so that the plugin can
be regenerated and rebuilt correctly even if the Smalltalk word size or object
format changes. -dtl"
cg var: 'smallIntegerMaxVal' declareC: 'int smallIntegerMaxVal= ', SmallInteger maxVal asString.
"Window creationDate declarations"
!
----- Method: FileAttributesPlugin class>>installedModuleVersionString (in category 'testing') -----
installedModuleVersionString
"Answer the version string for the plugin which is actually running in the VM"
"self installedModuleVersionString"
<primitive: 'primitiveVersionString' module: 'FileAttributesPlugin'>
^ nil
!
----- Method: FileAttributesPlugin class>>versionString (in category 'testing') -----
versionString
"Answer version string for this class. If the installed module is up to date, it
will match this version string."
"self versionString"
^ self new versionString
!
----- Method: FileAttributesPlugin>>accessAttributesForFilename:into:startingAt: (in category 'private - file') -----
accessAttributesForFilename: cPathName into: attributeArray startingAt: offset
"Call access() for each access type (R, W, X) on the c string cPathName, storing the results in the st array attributeArray."
| index boolean |
<var: 'cPathName' type: 'char *'>
index := offset.
((self cCode: 'access(cPathName, R_OK)') = 0)
ifTrue: [boolean := interpreterProxy trueObject]
ifFalse: [boolean := interpreterProxy falseObject].
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: boolean.
index := index + 1.
((self cCode: 'access(cPathName, W_OK)') = 0)
ifTrue: [boolean := interpreterProxy trueObject]
ifFalse: [boolean := interpreterProxy falseObject].
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: boolean.
index := index + 1.
((self cCode: 'access(cPathName, X_OK)') = 0)
ifTrue: [boolean := interpreterProxy trueObject]
ifFalse: [boolean := interpreterProxy falseObject].
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: boolean.
!
----- Method: FileAttributesPlugin>>addressObjectFor: (in category 'private - directory') -----
addressObjectFor: aMachineAddress
"Answer an ExternalAddress object which represents aMachineAddress"
| addressOop addressOopArrayPointer addressUnion idx |
<var: 'aMachineAddress' type: 'void *'>
<var: 'addressUnion' declareC: 'union {void *address; unsigned char bytes[sizeof(void *)];} addressUnion'>
<var: 'addressOopArrayPointer' declareC: 'unsigned char *addressOopArrayPointer'>
addressOop := interpreterProxy
instantiateClass: interpreterProxy classByteArray
indexableSize: self sizeOfPointer.
addressOopArrayPointer := interpreterProxy arrayValueOf: addressOop.
self cCode: 'addressUnion.address = aMachineAddress'.
idx := 0.
[idx < self sizeOfPointer] whileTrue:
[self cCode: 'addressOopArrayPointer[idx] = addressUnion.bytes[idx]'.
idx := idx + 1].
^ addressOop
!
----- Method: FileAttributesPlugin>>byteArrayFromCString:to: (in category 'private') -----
byteArrayFromCString: aCString to: byteArrayOop
"Answer a new ByteArray copied from a null-terminated C string.
Caution: This may invoke the garbage collector."
| len newByteArray byteArrayPtr |
<var: 'aCString' type: 'const char *'>
<var: 'byteArrayPtr' type: 'unsigned char *'>
<var: 'byteArrayOop' type: 'sqInt *'>
len := self strlen: aCString.
"We never return strings longer than PATH_MAX"
len > (self cCode: 'PATH_MAX') ifTrue: [^self stringTooLong].
newByteArray := interpreterProxy
instantiateClass: interpreterProxy classByteArray
indexableSize: len.
byteArrayPtr := interpreterProxy arrayValueOf: newByteArray.
self cCode: 'memcpy(byteArrayPtr, aCString, len)'.
self cCode: '*byteArrayOop = newByteArray'.
^0.!
----- Method: FileAttributesPlugin>>canOpenDirectoryStreamFor:length: (in category 'private - directory') -----
canOpenDirectoryStreamFor: aPathCString length: length
"Answer non-zero if security permits the directory to be listed."
"FIXME: This function has not been tested. -dtl"
| sCLPfn |
<var: 'aPathCString' type: 'char *'>
<var: 'sCLPfn' type: 'void *'>
"If the security plugin can be loaded, use it to check .
If not, assume it's ok"
"The hasSecurityPlugin flag is set to 1 by default"
(hasSecurityPlugin = 0) ifTrue: [^ true].
sCLPfn := interpreterProxy ioLoadFunction: 'secCanListPathOfSize' From: 'SecurityPlugin'.
sCLPfn ~= 0
ifTrue:
[^ self cCode: ' ((int (*) (char *, int)) sCLPfn)(aPathCString, length)'
inSmalltalk: [true]]
ifFalse:
[hasSecurityPlugin := 0. "Reset the flag so we do not try again next time"
^ true]
!
----- Method: FileAttributesPlugin>>canStatFilePath:length: (in category 'private - file') -----
canStatFilePath: aPathCString length: length
"Answer non-zero if security permits the a stat() call on the file path. Allow a
stat() call only on files which we are permitted to open."
"FIXME: This function has not been tested. -dtl"
| sCOFfn |
<var: 'aPathCString' type: 'char *'>
<var: 'sCOFfn' type: 'void *'>
"If the security plugin can be loaded, use it to check .
If not, assume it's ok"
"The hasSecurityPlugin flag is set to 1 by default"
(hasSecurityPlugin = 0) ifTrue: [^ true].
sCOFfn := interpreterProxy ioLoadFunction: 'secCanOpenFileOfSizeWritable' From: 'SecurityPlugin'.
sCOFfn ~= 0
ifTrue:
[^ self cCode: ' ((int (*) (char *, int, int)) sCOFfn)(aPathCString, length, 0)'
inSmalltalk: [true]]
ifFalse:
[hasSecurityPlugin := 0. "Reset the flag so we do not try again next time"
^ true]
!
----- Method: FileAttributesPlugin>>cantAllocateMemory (in category 'errors') -----
cantAllocateMemory
^-10!
----- Method: FileAttributesPlugin>>cantOpenDir (in category 'errors') -----
cantOpenDir
^-9!
----- Method: FileAttributesPlugin>>cantReadlink (in category 'errors') -----
cantReadlink
^-8!
----- Method: FileAttributesPlugin>>cantStatPath (in category 'errors') -----
cantStatPath
"SecurityPlugin determined that the requested path cannot be accessed."
^-3!
----- Method: FileAttributesPlugin>>checkAccess:mode:to: (in category 'private - file') -----
checkAccess: pathString mode: mode to: flag
"Check access to pathString."
| cString len sPtr |
<export: true>
<var: 'cString' declareC: 'char cString[PATH_MAX]'>
<var: 'sPtr' declareC: 'char *sPtr'>
<var: 'flag' type: 'sqInt *'>
len := interpreterProxy stSizeOf: pathString.
"Note: The static sized string buffer is faster than using a Smalltalk allocated
string as the buffer, and is unlikely to fail in practice. In the event that
the buffer turns out to be too small, write an error message to stdout before
failing."
(len >= (self cCode: 'PATH_MAX')) ifTrue: [^self stringTooLong].
"Copy pathString to the new string"
sPtr := interpreterProxy arrayValueOf: pathString.
((self canStatFilePath: sPtr length: len) = 0) ifTrue: [^self cantStatPath].
self cCode: 'memcpy(cString, sPtr, len)'.
cString at: len put: 0.
self cCode: '*flag = access(cString, mode)'.
^0
!
----- Method: FileAttributesPlugin>>corruptValue (in category 'errors') -----
corruptValue
^-7!
----- Method: FileAttributesPlugin>>fileCreationTimeFor:length:to: (in category 'private - windows') -----
fileCreationTimeFor: pathString length: pathLength to: creationDate
"Get the creationDate for the supplied file.
Linux kernel 4.11 should have statx(), so hopefully there will be a cross-platform
solution soon. Just dump the c-code and hope to remove it soon."
| tm |
<var: 'pathString' type: 'char *'>
<var: 'creationDate' type: 'time_t *'>
<var: 'tm' type: 'struct tm'>
self cCode: '
#ifdef WIN32
WIN32_FILE_ATTRIBUTE_DATA winAttrs;
WCHAR *win32Path;
SYSTEMTIME sysTime;
#endif
memset(&tm, 0, sizeof(tm));
#ifdef WIN32
/* convert the supplied path name into a wide string */
ALLOC_WIN32_PATH(win32Path, pathString, pathLength)'.
[(self cCode: 'GetFileAttributesExW(win32Path, 0, &winAttrs)') = 0] ifTrue:
[^self getAttributesFailed].
[(self cCode: 'FileTimeToSystemTime(&winAttrs.ftCreationTime, &sysTime)') = 0] ifTrue:
[^self timeConversionFailed].
self cCode: '
tm.tm_year = sysTime.wYear - 1900;
tm.tm_mon = sysTime.wMonth - 1;
tm.tm_mday = sysTime.wDay;
tm.tm_hour = sysTime.wHour;
tm.tm_min = sysTime.wMinute;
tm.tm_sec = sysTime.wSecond;
tm.tm_isdst = 0;
#endif
*creationDate = mktime(&tm)'.
^0.
!
----- Method: FileAttributesPlugin>>fileExecutableFlag (in category 'private - file') -----
fileExecutableFlag
^ self cCode: 'X_OK' inSmalltalk: [1]!
----- Method: FileAttributesPlugin>>fileOKFlag (in category 'private - file') -----
fileOKFlag
^ self cCode: 'F_OK' inSmalltalk: [0]!
----- Method: FileAttributesPlugin>>fileReadableFlag (in category 'private - file') -----
fileReadableFlag
^ self cCode: 'R_OK' inSmalltalk: [4]!
----- Method: FileAttributesPlugin>>fileToAttributeArray:mask:array: (in category 'private - file') -----
fileToAttributeArray: cPathName mask: attributeMask array: attributeArray
"Answer a file attribute array from pathNameOop."
| getStats useLstat getAccess statArray accessArray combinedArray status fileNameOop statBuf statBufPointer |
<returnTypeC: 'int'>
<var: 'cPathName' type: 'char *'>
<var: 'attributeArray' type: 'sqInt *'>
<var: 'statBuf' type: 'struct stat'>
<var: 'statBufPointer' declareC: 'struct stat *statBufPointer= &statBuf'>
"Determine which attributes to retrieve"
getStats := (attributeMask bitAnd: 1) = 1.
getAccess := (attributeMask bitAnd: 2) = 2.
[getStats or: [getAccess]] ifFalse:
["No information has been requested, which doesn't make sense"
^self invalidArguments].
getStats ifTrue:
[
useLstat := (attributeMask bitAnd: 4) = 4.
statArray := interpreterProxy instantiateClass: (interpreterProxy classArray) indexableSize: 12.
useLstat ifFalse:
[ status := self putStatFor: cPathName
intoBuffer: statBufPointer
targetName: (self cCode: '&fileNameOop') ]
ifTrue:
[ status := self putLStatFor: cPathName
intoBuffer: statBufPointer
targetName: (self cCode: '&fileNameOop') ].
status ~= 0 ifTrue: [^status].
status := self statArrayFor: cPathName toArray: statArray from: statBufPointer fileName: fileNameOop.
status ~= 0 ifTrue: [^status].
"Set attributeArray in case only stat() attributes have been requested"
self cCode: '*attributeArray = statArray'.
].
getAccess ifTrue:
[
accessArray := interpreterProxy instantiateClass: (interpreterProxy classArray) indexableSize: 3.
self accessAttributesForFilename: cPathName into: accessArray startingAt: 0.
"Set attributeArray in case only access() attributes have been requested"
self cCode: '*attributeArray = accessArray'.
].
[getStats and: [getAccess]] ifTrue:
[
combinedArray := interpreterProxy instantiateClass: (interpreterProxy classArray) indexableSize: 2.
self cCode: '*attributeArray = combinedArray'.
interpreterProxy
storePointer: 0
ofObject: combinedArray
withValue: statArray.
interpreterProxy
storePointer: 1
ofObject: combinedArray
withValue: accessArray.
].
^0!
----- Method: FileAttributesPlugin>>fileWriteableFlag (in category 'private - file') -----
fileWriteableFlag
^ self cCode: 'W_OK' inSmalltalk: [2]!
----- Method: FileAttributesPlugin>>getAttributesFailed (in category 'errors') -----
getAttributesFailed
^-4!
----- Method: FileAttributesPlugin>>invalidArguments (in category 'errors') -----
invalidArguments
^-6!
----- Method: FileAttributesPlugin>>invalidRequest (in category 'errors') -----
invalidRequest
^-11!
----- Method: FileAttributesPlugin>>isSymlink:boolean: (in category 'private - file') -----
isSymlink: cPathName boolean: resultOop
"Set resultOop to a boolean indicating whether cPathName is a symbolic link.
Answer status (0 = success)"
| status statBuf |
<var: 'cPathName' type: 'char *'>
<var: 'resultOop' type: 'sqInt *'>
<var: 'statBuf' type: 'struct stat'>
self isDefinedTrueExpression: 'HAVE_LSTAT == 1'
inSmalltalk: []
comment: ''
ifTrue: [
status := self cCode: 'lstat(cPathName, &statBuf)'.
(status ~= 0) ifTrue: [^self cantStatPath].
((self cCode: 'S_ISLNK(statBuf.st_mode)') = 0)
ifFalse: [self cCode: '*resultOop = interpreterProxy->trueObject()']
ifTrue: [self cCode: '*resultOop = interpreterProxy->falseObject()'].
]
ifFalse: [].
^0
!
----- Method: FileAttributesPlugin>>oopFromTimeT: (in category 'private') -----
oopFromTimeT: posixSeconds
"Answer an object representation of the provided time (time_t).
The size of time_t is platform dependent, so check the size and convert appropriately."
<var: 'posixSeconds' type: 'time_t'>
[(self cCode: 'sizeof(time_t)') = 4] ifTrue:
[^interpreterProxy signed32BitIntegerFor: posixSeconds].
"Must be 64 bit number"
^interpreterProxy signed64BitIntegerFor: posixSeconds.
!
----- Method: FileAttributesPlugin>>openDirectoryStream:ptr: (in category 'private - directory') -----
openDirectoryStream: pathOOP ptr: osdirPtr
"Open a new directory stream. Answer a pointer to the directory stream or NULL."
| sPtr len dir |
<var: 'osdirPtr' type: 'osdir **'>
<var: 'sPtr' declareC: 'char *sPtr'>
<var: 'dir' type: 'osdir *'>
<returnTypeC: 'int'>
sPtr := interpreterProxy arrayValueOf: pathOOP.
len := interpreterProxy sizeOfSTArrayFromCPrimitive: sPtr.
"The path buffer needs room for a trailing slash and the file name, so subtracting 2 is conservative"
len > (self cCode: 'PATH_MAX-2') ifTrue: [^self stringTooLong].
(self canOpenDirectoryStreamFor: sPtr length: len)
ifTrue:
[
dir := self cCode: '(osdir *) malloc(sizeof(osdir))'.
dir = nil ifTrue: [^self cantAllocateMemory].
self cCode: 'memcpy(dir->path, sPtr, len)'.
"Ensure path has a trailing slash"
self cCode: 'if (dir->path[len-1] !!= ''/'') {
dir->path[len++] = ''/'';
}'.
self cCode: 'dir->path_file = dir->path + len'.
self cCode: 'dir->path_file[0] = ''\0'''.
self cCode: 'dir->path_len = len'.
self cCode: 'dir->dp = opendir(dir->path)'.
(self cCode: 'dir->dp') = nil ifTrue:
[dir free.
^self cantOpenDir].
self cCode: '*osdirPtr = dir'.
^0
].
"If we get here, we can't open the directory"
^self cantOpenDir
!
----- Method: FileAttributesPlugin>>pathOop:toBuffer:maxLen: (in category 'private - file') -----
pathOop: pathNameOop toBuffer: cPathName maxLen: maxLen
"Copy the supplied path name string object to the supplied c string buffer"
| len sPtr |
<var: 'cPathName' type: 'char *'>
<var: 'sPtr' declareC: 'char *sPtr'>
<returnTypeC: 'int'>
len := interpreterProxy stSizeOf: pathNameOop.
(len >= maxLen) ifTrue: [^self stringTooLong].
"Copy pathName to the new string"
sPtr := interpreterProxy arrayValueOf: pathNameOop.
((self canStatFilePath: sPtr length: len) = 0) ifTrue: [^self cantStatPath].
self cCode: 'memcpy(cPathName, sPtr, len)'.
cPathName at: len put: 0.
^0.
!
----- Method: FileAttributesPlugin>>pointerFrom: (in category 'private - directory') -----
pointerFrom: directoryPointerBytes
"Answer the machine address contained in anExternalAddressOop."
| ptr addressUnion idx |
<returnTypeC: 'void *'>
<var: 'ptr' declareC: 'unsigned char *ptr'>
<var: 'addressUnion' declareC: 'union {void *address; unsigned char bytes[sizeof(void *)];} addressUnion'>
((interpreterProxy isBytes: directoryPointerBytes) and:
[(interpreterProxy stSizeOf: directoryPointerBytes) = self sizeOfPointer])
ifFalse: [^ nil].
ptr := interpreterProxy arrayValueOf: directoryPointerBytes.
idx := 0.
[idx < self sizeOfPointer] whileTrue:
[self cCode: 'addressUnion.bytes[idx] = ptr[idx]'.
idx := idx + 1].
^ self cCode: 'addressUnion.address' inSmalltalk: [addressUnion]
!
----- Method: FileAttributesPlugin>>primitiveClosedir (in category 'file primitives') -----
primitiveClosedir
"Close the directory stream for dirPointerOop. Answer dirPointerOop on success."
| dirPointerOop dirStream result |
<export: true>
<var: 'dirStream' declareC: 'osdir *dirStream'>
dirPointerOop := interpreterProxy stackObjectValue: 0.
(dirPointerOop = interpreterProxy nilObject) ifTrue:
[^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
(interpreterProxy is: dirPointerOop KindOf: 'ByteArray') ifFalse:
[self cCode: 'fprintf(stderr, "primitiveClosedir: invalid argument, expected an ByteArray\n")'.
^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
dirStream := self pointerFrom: dirPointerOop.
(dirStream = nil) ifTrue: [^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self corruptValue)].
result := self cCode: 'closedir(dirStream->dp)'.
(result = 0) ifFalse:
[self perror: 'closedir'.
^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self corruptValue)].
self cCode: 'free(dirStream)'.
interpreterProxy pop: 2; push: dirPointerOop.
!
----- Method: FileAttributesPlugin>>primitiveFileAttribute (in category 'file primitives') -----
primitiveFileAttribute
"Answer a single file attribute.
primFileAttributes: aString attributeNumber: attributeNumber
aString is the path to the file
attributeNumber identifies which attribute to return:
1 - 12: stat(): name, mode, ino, dev, nlink, uid, gid, size, accessDate, modifiedDate, changeDate, creationDate
13 - 15: access(): R_OK, W_OK, X_OK
16: isSymlink
On error, answer a single element array containing the appropriate error code."
| fileName attributeNumber resultOop fileNameOop cPathName statBuf statBufPointer sizeIfFile mode creationDate status |
<export: true>
<var: 'statBuf' declareC: 'struct stat statBuf'>
<var: 'statBufPointer' declareC: 'struct stat *statBufPointer= &statBuf'>
<var: 'cPathName' declareC: 'char cPathName[PATH_MAX]'>
<var: 'creationDate' type: 'time_t'>
fileName := interpreterProxy stackObjectValue: 1.
attributeNumber := interpreterProxy stackIntegerValue: 0.
(attributeNumber < 1 or: [attributeNumber > 16]) ifTrue:
[^interpreterProxy pop: 3; push: (self wrappedErrorCode: self invalidArguments)].
(interpreterProxy is: fileName KindOf: 'String') ifFalse:
[^interpreterProxy pop: 3; push: (self wrappedErrorCode: self invalidArguments)].
status := self pathOop: fileName toBuffer: cPathName maxLen: (self cCode: 'PATH_MAX').
[status ~= 0] ifTrue:
[^interpreterProxy pop: 3; push: (self wrappedErrorCode: status)].
resultOop := 0.
attributeNumber < 12 ifTrue:
"Get requested stat entry"
[
status := self
putStatFor: cPathName
intoBuffer: statBufPointer
targetName: (self cCode: '&fileNameOop').
(status ~= 0) ifTrue:
[^interpreterProxy pop: 3; push: (self wrappedErrorCode: status)].
"In C, this would naturally be a switch statement,
but I don't know to mix in the smalltalk code"
attributeNumber = 1 ifTrue: [resultOop := fileNameOop].
attributeNumber = 2 ifTrue:
[resultOop := (self smallOrLargeIntegerObjectFor:
(self cCode: 'statBuf.st_mode'))].
attributeNumber = 3 ifTrue:
[resultOop := (interpreterProxy positive64BitIntegerFor:
(self cCode: 'statBuf.st_ino'))].
attributeNumber = 4 ifTrue:
[resultOop := (interpreterProxy positive64BitIntegerFor:
(self cCode: 'statBuf.st_dev'))].
attributeNumber = 5 ifTrue:
[resultOop := (interpreterProxy positive64BitIntegerFor:
(self cCode: 'statBuf.st_nlink'))].
attributeNumber = 6 ifTrue:
[resultOop := (self smallOrLargeIntegerObjectFor:
(self cCode: 'statBuf.st_uid'))].
attributeNumber = 7 ifTrue:
[resultOop := (self smallOrLargeIntegerObjectFor:
(self cCode: 'statBuf.st_gid'))].
attributeNumber = 8 ifTrue:
[
((self cCode: 'S_ISDIR(statBuf.st_mode)') = 0)
ifTrue:
[sizeIfFile := self cCode: 'statBuf.st_size']
ifFalse:
[sizeIfFile := 0].
resultOop := self smallOrLargeIntegerObjectFor: sizeIfFile
].
attributeNumber = 9 ifTrue:
[resultOop := self oopFromTimeT: (self cCode: 'statBuf.st_atime')].
attributeNumber = 10 ifTrue:
[resultOop := self oopFromTimeT: (self cCode: 'statBuf.st_mtime')].
attributeNumber = 11 ifTrue:
[resultOop := self oopFromTimeT: (self cCode: 'statBuf.st_ctime')].
]
ifFalse: [attributeNumber = 12 ifTrue:
[
status := self fileCreationTimeFor: cPathName
length: cPathName strlen
to: (self cCode: '&creationDate').
status ~= 0 ifTrue:
[^interpreterProxy pop: 3; push: (self wrappedErrorCode: status)].
resultOop := self oopFromTimeT: creationDate.
]
ifFalse: [attributeNumber < 16 ifTrue:
"Get requested access entry"
[
attributeNumber = 13 ifTrue: [mode := self fileReadableFlag].
attributeNumber = 14 ifTrue: [mode := self fileWriteableFlag].
attributeNumber = 15 ifTrue: [mode := self fileExecutableFlag].
((self cCode: 'access(cPathName, mode)') = 0)
ifTrue: [resultOop := interpreterProxy trueObject]
ifFalse: [resultOop := interpreterProxy falseObject].
]
ifFalse: "attributeNumber = 16"
[
status := self isSymlink: cPathName boolean: (self cCode: '&resultOop').
(status ~= 0) ifTrue:
[^interpreterProxy pop: 3; push: (self wrappedErrorCode: status)].
]]].
(resultOop = 0)
ifTrue: ["It shouldn't be possible to get here"
^ interpreterProxy primitiveFail]
ifFalse: [interpreterProxy pop: 3; push: resultOop]
!
----- Method: FileAttributesPlugin>>primitiveFileAttributes (in category 'file primitives') -----
primitiveFileAttributes
"Answer an array of file attributes.
primFileAttributes: aString mask: attributeMask
aString is the path to the file
attributeMask indicates which attributes to retrieve:
bit 0 - get stat() attributes
bit 1 - get access() attributes
bit 2 - use lstat() instead of stat()
On error answer the appropriate error code (Integer)"
| fileName attributeMask attributeArray cPathName status |
<export: true>
<var: 'cPathName' declareC: 'char cPathName[PATH_MAX]'>
fileName := interpreterProxy stackObjectValue: 1.
attributeMask := interpreterProxy stackIntegerValue: 0.
(interpreterProxy is: fileName KindOf: 'String') ifFalse:
[^interpreterProxy pop: 3; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
status := self pathOop: fileName toBuffer: cPathName maxLen: (self cCode: 'PATH_MAX').
status ~= 0 ifTrue:
[^interpreterProxy pop: 3; push: (interpreterProxy signed32BitIntegerFor: status)].
status := self fileToAttributeArray: cPathName mask: attributeMask array: (self cCode: '&attributeArray').
status ~= 0
ifTrue: [interpreterProxy pop: 3; push: (interpreterProxy signed32BitIntegerFor: status)]
ifFalse: [interpreterProxy pop: 3; push: attributeArray]
!
----- Method: FileAttributesPlugin>>primitiveFileExists (in category 'file primitives') -----
primitiveFileExists
"Check for existence of a file with a call to access()."
| pathString status accessFlag |
<export: true>
<var: 'accessFlag' type: 'sqInt'>
pathString := interpreterProxy stackObjectValue: 0.
(interpreterProxy is: pathString KindOf: 'String') ifFalse:
[^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
status := self checkAccess: pathString mode: self fileOKFlag to: (self cCode: '&accessFlag').
[status = 0] ifFalse: [^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: status)].
accessFlag = 0
ifTrue: [interpreterProxy pop: 2; push: interpreterProxy trueObject]
ifFalse: [interpreterProxy pop: 2; push: interpreterProxy falseObject]
!
----- Method: FileAttributesPlugin>>primitiveFileMasks (in category 'file primitives') -----
primitiveFileMasks
"Answer an array of well known file masks"
| masks |
<export: true>
masks := interpreterProxy instantiateClass: (interpreterProxy classArray) indexableSize: 8.
interpreterProxy
storePointer: 0
ofObject: masks
withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFMT')).
self isDefinedTrueExpression: 'defined(WIN32)'
inSmalltalk: []
comment: 'windows doesn''t have SOCK or SYMLINK file types'
ifTrue: []
ifFalse: [
interpreterProxy
storePointer: 1
ofObject: masks
withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFSOCK')).
interpreterProxy
storePointer: 2
ofObject: masks
withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFLNK')).
].
interpreterProxy
storePointer: 3
ofObject: masks
withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFREG')).
interpreterProxy
storePointer: 4
ofObject: masks
withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFBLK')).
interpreterProxy
storePointer: 5
ofObject: masks
withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFDIR')).
interpreterProxy
storePointer: 6
ofObject: masks
withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFCHR')).
interpreterProxy
storePointer: 7
ofObject: masks
withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFIFO')).
interpreterProxy pop: 1 thenPush: masks!
----- Method: FileAttributesPlugin>>primitiveLogicalDrives (in category 'file primitives') -----
primitiveLogicalDrives
"Answer the logical drive mask on windows"
| mask |
<export: true>
self isDefinedTrueExpression: 'defined(WIN32)'
inSmalltalk: []
comment: 'Answer the logical drive mask on windows'
ifTrue: [
mask := self cCode: 'GetLogicalDrives()'.
[mask ~= 0] ifTrue:
[^interpreterProxy pop: 1 thenPush: (interpreterProxy positive32BitIntegerFor: mask)]
]
ifFalse: [].
^interpreterProxy primitiveFail.!
----- Method: FileAttributesPlugin>>primitiveOpendir (in category 'file primitives') -----
primitiveOpendir
"self primOpendir: '/etc'"
| dirName dir dirOop status |
<export: true>
<var: 'dir' type: 'osdir *'>
<var: 'dirOopArrayPointer' declareC: 'unsigned char *dirOopArrayPointer'>
dirName := interpreterProxy stackObjectValue: 0.
(interpreterProxy is: dirName KindOf: 'String') ifFalse:
[self cCode: 'fprintf(stderr, "primitiveOpendir: invalid argument, expected a String\n")'.
^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
status := self openDirectoryStream: dirName ptr: (self cCode: '&dir').
status ~= 0 ifTrue: [^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: status)].
dirOop := self addressObjectFor: dir.
interpreterProxy pop: 2; push: dirOop
!
----- Method: FileAttributesPlugin>>primitivePathMax (in category 'file primitives') -----
primitivePathMax
"Answer the value of PATH_MAX for the current VM"
<export: true>
^interpreterProxy pop: 1 thenPush: (self smallOrLargeIntegerObjectFor: (self cCode: 'PATH_MAX')).!
----- Method: FileAttributesPlugin>>primitiveReaddir (in category 'file primitives') -----
primitiveReaddir
"Get the next entry in the directory stream. Answer the name of the entry, or
error for end of directory stream."
| dirPointerOop dirStream ent entryName attributeArray resultArray haveEntry entry_len status |
<export: true>
<var: 'ent' declareC: 'struct dirent *ent'>
<var: 'dirStream' declareC: 'osdir *dirStream'>
<var: 'haveEntry' declareC: 'int haveEntry'>
dirPointerOop := interpreterProxy stackObjectValue: 0.
(interpreterProxy is: dirPointerOop KindOf: 'ByteArray') ifFalse:
[self cCode: 'fprintf(stderr, "primitiveReaddir: invalid argument, expected an ByteArray\n")'.
^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
dirStream := self pointerFrom: dirPointerOop.
(dirStream = nil) ifTrue: [^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
haveEntry := 0.
self cCode: 'do {'.
ent := self cCode: 'readdir(dirStream->dp)'.
self cCode: 'if (ent == NULL ||
((!! (ent->d_name[0] == ''.'' && strlen(ent->d_name) == 1)) && strcmp(ent->d_name, "..")))
haveEntry = 1;
} while (haveEntry == 0)'.
(ent = nil) ifTrue: ["This is the normal case for the end of a directory stream,
although it may indicate other error conditions for which errno would be updated.
Assume the normal case here."
^interpreterProxy pop: 2; push: interpreterProxy nilObject].
status := self byteArrayFromCString: (self cCode: 'ent->d_name') to: (self cCode: '&entryName').
[status ~= 0] ifTrue:
[^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: status)].
"Build the path name (append the entry name to the path name)"
entry_len := self cCode: 'strlen(ent->d_name)'.
[(self cCode: 'dirStream->path_len') + entry_len > (self cCode: 'PATH_MAX-1')] ifTrue:
[^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self stringTooLong)].
self cCode: 'memcpy(dirStream->path_file, ent->d_name, entry_len)'.
self cCode: 'dirStream->path_file[entry_len] = ''\0'''.
status := self fileToAttributeArray: (self cCode: 'dirStream->path') mask: 1 array: (self cCode: '&attributeArray').
"If the stat() fails, still return the filename, just no attributes"
status ~= 0 ifTrue: [attributeArray := interpreterProxy nilObject].
resultArray := interpreterProxy instantiateClass: (interpreterProxy classArray) indexableSize: 2.
interpreterProxy
storePointer: 0
ofObject: resultArray
withValue: entryName.
interpreterProxy
storePointer: 1
ofObject: resultArray
withValue: attributeArray.
interpreterProxy pop: 2; push: resultArray
!
----- Method: FileAttributesPlugin>>primitiveRewinddir (in category 'file primitives') -----
primitiveRewinddir
"Set directoryStream to first entry. Answer dirPointerOop."
| dirPointerOop dirStream |
<export: true>
<var: 'dirStream' declareC: 'osdir *dirStream'>
dirPointerOop := interpreterProxy stackObjectValue: 0.
(interpreterProxy is: dirPointerOop KindOf: 'ByteArray') ifFalse:
[self cCode: 'fprintf(stderr, "primitiveRewindir: invalid argument, expected an ByteArray\n")'.
^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
dirStream := self pointerFrom: dirPointerOop.
(dirStream = nil) ifTrue: [^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
self cCode: 'rewinddir(dirStream->dp)'.
interpreterProxy pop: 2; push: dirPointerOop
!
----- Method: FileAttributesPlugin>>primitiveVersionString (in category 'file primitives') -----
primitiveVersionString
"Answer a string containing the version string for this plugin."
<export: true>
interpreterProxy pop: 1 thenPush: (self stringFromCString: self versionString)
!
----- Method: FileAttributesPlugin>>putLStatFor:intoBuffer:targetName: (in category 'private - file') -----
putLStatFor: cPathName intoBuffer: statBufPointer targetName: fileNameOop
"Call stat() on cPathName, storing the results in
the buffer at statBufPointer."
| result cLinkName cLinkPtr len status |
<var: 'cPathName' type: 'char *'>
<var: 'statBufPointer' type: 'struct stat *'>
<var: 'cLinkName' declareC: 'char cLinkName[PATH_MAX]'>
<var: 'cLinkPtr' declareC: 'char *cLinkPtr = (char *) &cLinkName'>
<var: 'fileNameOop' type: 'sqInt *'>
self isDefinedTrueExpression: 'HAVE_LSTAT == 1'
inSmalltalk: []
comment: 'Platforms which do not have lstat() should #define HAVE_LSTAT 0'
ifTrue: [
result := self cCode: 'lstat(cPathName, statBufPointer)'.
(result ~= 0) ifTrue: [^self cantStatPath].
((self cCode: 'S_ISLNK(statBufPointer->st_mode)') = 0)
ifFalse: [
len := self readLink: cPathName into: cLinkPtr maxLength: (self cCode: 'PATH_MAX').
len < 0 ifTrue: [^len].
status := self byteArrayFromCString: cLinkPtr to: fileNameOop.
[status ~= 0] ifTrue: [^status]]
ifTrue:
[self cCode: '*fileNameOop = interpreterProxy->nilObject()'].
]
ifFalse:
[^self invalidRequest].
^0
!
----- Method: FileAttributesPlugin>>putStatFor:intoBuffer:targetName: (in category 'private - file') -----
putStatFor: cPathName intoBuffer: statBufPointer targetName: fileNameOop
"Call stat() on cPathName, storing the results in
the buffer at statBufPointer."
| result status |
<var: 'cPathName' type: 'char *'>
<var: 'statBufPointer' type: 'struct stat *'>
<var: 'fileNameOop' type: 'sqInt *'>
self cCode: '#ifdef WIN32
TIME_ZONE_INFORMATION dtzi;
#endif'.
result :=self cCode: 'stat(cPathName, statBufPointer)'.
(result ~= 0) ifTrue: [^self cantStatPath].
self isDefinedTrueExpression: 'defined(WIN32)'
inSmalltalk: []
comment: 'The windows version of stat() looks like it doesn''t handle dst properly. Adjust for DST. Remove this code if ever switching to cygwin stat().'
ifTrue: [
status := self cCode: 'GetTimeZoneInformation(&dtzi)'.
[status = 2] ifTrue: [
self cCode: 'statBufPointer->st_atime -= 3600'.
self cCode: 'statBufPointer->st_mtime -= 3600'.
self cCode: 'statBufPointer->st_ctime -= 3600'.
].
]
ifFalse: [].
self cCode: '*fileNameOop = interpreterProxy->nilObject()'.
^0
!
----- Method: FileAttributesPlugin>>readLink:into:maxLength: (in category 'private - file') -----
readLink: cPathName into: cLinkPtr maxLength: maxLength
"Get the target filename of the supplied symbolic link."
| len |
<returnTypeC: 'size_t'>
<var: 'cPathName' type: 'char *'>
<var: 'cLinkPtr' type: 'char *'>
<var: 'maxLength' type: 'size_t'>
<var: 'len' type: 'size_t'>
self isDefinedTrueExpression: 'defined(WIN32)'
inSmalltalk: []
comment: 'This should never be called on WIN32, just indicate failure'
ifTrue: [len := -1]
ifFalse: [len := self cCode: 'readlink(cPathName, cLinkPtr, maxLength)'].
len < 0 ifTrue:
[self cCode: 'fprintf(stderr, "FileAttributesPlugin: unable to readlink(): %d\n", len)'.
^self cantReadlink].
cLinkPtr at: len put: 0.
^len.!
----- Method: FileAttributesPlugin>>sizeOfPointer (in category 'private - directory') -----
sizeOfPointer
"Size of a C pointer on this machine"
^ self cCode: 'sizeof(void *)' inSmalltalk: [4]
!
----- Method: FileAttributesPlugin>>smallOrLargeIntegerObjectFor: (in category 'private') -----
smallOrLargeIntegerObjectFor: aPositiveInteger
"Answer an Integer object for aPositiveInteger. If the value is too large
to fit in an SmallInteger, then answer a LargePositiveInteger. Note that
smallIntegerMaxVal is a class variable with an initialization value determined
when this class is translated to C code; see my #declareCVarsIn: class method."
(aPositiveInteger > smallIntegerMaxVal)
ifTrue: [^ interpreterProxy integerObjectOf: aPositiveInteger]
ifFalse: [^ interpreterProxy positive32BitIntegerFor: aPositiveInteger]
!
----- Method: FileAttributesPlugin>>statArrayFor:toArray:from:fileName: (in category 'private - file') -----
statArrayFor: cPathName toArray: attributeArray from: statBufPointer fileName: fileNameOop
"Answer a file entry array from the supplied statBufPointer"
| index sizeIfFile creationDate status |
<var: 'cPathName' type: 'char *'>
<var: 'statBufPointer' type: 'struct stat *'>
<var: 'creationDate' type: 'time_t'>
((self cCode: 'S_ISDIR(statBufPointer->st_mode)') = 0)
ifTrue:
[sizeIfFile := self cCode: 'statBufPointer->st_size']
ifFalse:
[sizeIfFile := 0].
index := 0.
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: fileNameOop.
index := index + 1. "1"
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (self smallOrLargeIntegerObjectFor:
(self cCode: 'statBufPointer->st_mode' inSmalltalk: [0])).
index := index + 1. "2"
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (interpreterProxy positive64BitIntegerFor:
(self cCode: 'statBufPointer->st_ino' inSmalltalk: [0])).
index := index + 1. "3"
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (interpreterProxy positive64BitIntegerFor:
(self cCode: 'statBufPointer->st_dev' inSmalltalk: [0])).
index := index + 1. "4"
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (interpreterProxy positive64BitIntegerFor:
(self cCode: 'statBufPointer->st_nlink' inSmalltalk: [0])).
index := index + 1. "5"
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (self smallOrLargeIntegerObjectFor:
(self cCode: 'statBufPointer->st_uid' inSmalltalk: [0])).
index := index + 1. "6"
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (self smallOrLargeIntegerObjectFor:
(self cCode: 'statBufPointer->st_gid' inSmalltalk: [0])).
index := index + 1. "7"
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (self smallOrLargeIntegerObjectFor: sizeIfFile).
index := index + 1. "8"
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (self oopFromTimeT: (self cCode: 'statBufPointer->st_atime')).
index := index + 1. "9"
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (self oopFromTimeT: (self cCode: 'statBufPointer->st_mtime')).
index := index + 1. "10"
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (self oopFromTimeT: (self cCode: 'statBufPointer->st_ctime')).
index := index + 1. "11"
self isDefinedTrueExpression: 'defined(WIN32)'
inSmalltalk: []
comment: 'windows supports creation date'
ifTrue:
[
status := self fileCreationTimeFor: cPathName
length: cPathName strlen
to: (self cCode: '&creationDate').
status = 0 ifTrue:
[
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (self oopFromTimeT: creationDate).
]
ifFalse:
[
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (interpreterProxy nilObject).
]
]
ifFalse:
[
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: (interpreterProxy nilObject).
].
^0!
----- Method: FileAttributesPlugin>>statFailed (in category 'errors') -----
statFailed
"A call to stat() failed"
^-2!
----- Method: FileAttributesPlugin>>stringFromCString: (in category 'private') -----
stringFromCString: aCString
"Answer a new String copied from a null-terminated C string.
Caution: This may invoke the garbage collector."
| len newString |
<var: 'aCString' type: 'const char *'>
len := self strlen: aCString.
newString := interpreterProxy
instantiateClass: interpreterProxy classString
indexableSize: len.
self st: (interpreterProxy arrayValueOf: newString)
rn: aCString
cpy: len. "(char *)strncpy()"
^ newString
!
----- Method: FileAttributesPlugin>>stringTooLong (in category 'errors') -----
stringTooLong
"String too long. A file path name was longer than PATH_MAX"
^-1!
----- Method: FileAttributesPlugin>>timeConversionFailed (in category 'errors') -----
timeConversionFailed
^-5!
----- Method: FileAttributesPlugin>>versionString (in category 'version string') -----
versionString
"Answer a string containing the version string for this plugin."
| version |
<returnTypeC: 'char *'>
<var: 'version' declareC: 'static char version[]= "1.0.0"'>
^ self cCode: 'version' inSmalltalk: ['1.0.0']!
----- Method: FileAttributesPlugin>>wrappedErrorCode: (in category 'private') -----
wrappedErrorCode: aNumber
"Answer a single element Array containing the supplied error code."
| newArray |
newArray := interpreterProxy
instantiateClass: interpreterProxy classArray
indexableSize: 1.
interpreterProxy
storePointer: 0
ofObject: newArray
withValue: (interpreterProxy signed32BitIntegerFor: aNumber).
^newArray!
1
0
29 Nov '19
Eliot Miranda uploaded a new version of FileAttributesPlugin to project VM Maker:
http://source.squeak.org/VMMaker/FileAttributesPlugin.oscog-AlistairGrant.2…
==================== Summary ====================
Name: FileAttributesPlugin.oscog-AlistairGrant.28
Author: AlistairGrant
Time: 21 February 2018, 9:46:27.211606 am
UUID: fb804aff-1cbd-4ffa-b48a-e3d665d10673
Ancestors: FileAttributesPlugin.oscog-AlistairGrant.27
1.2.6: Clean up Windows specific code, return nil for creationTime on Unix
- Use the option: pragma to make Windows specific methods only compile on Windows.
- Return nil instead of -1 for file creationTime on Unix
=============== Diff against FileAttributesPlugin-nice.15 ===============
Item was changed:
InterpreterPlugin subclass: #FileAttributesPlugin
+ instanceVariableNames: 'hasSecurityPlugin sCOFfn sCLPfn'
- instanceVariableNames: 'hasSecurityPlugin smallIntegerMaxVal'
classVariableNames: ''
poolDictionaries: ''
category: 'FileAttributesPlugin'!
+ !FileAttributesPlugin commentStamp: 'AlistairGrant 9/3/2017 08:09' prior: 0!
- !FileAttributesPlugin commentStamp: 'AlistairGrant 5/14/2017 11:37' prior: 0!
FileAttributesPlugin defines the named primitives used by the FileAttributes.
For information on stat(), see http://man7.org/linux/man-pages/man2/stat.2.html
For information on access(), see http://man7.org/linux/man-pages/man2/access.2.html
For information on design considerations, see FileAttributes class comments.
Public interface:
+ The set of primitives available to the image are located in the 'file primitives' protocol.
- - primitiveFileExists - answer a boolean indicating whether the supplied path name string exists
- - primitiveFileAttributes - answer an array containing stat() and/or access() information for the supplied path name string
- - primitiveFileMasks - answer an array of stat.st_mode masks
Return codes:
+ Methods called within FileAttributesPlugin will return 0 on success, or one of the codes contained in the 'errors' protocol on failure.
+
+ Public primitives should never return 0. See each primitive for the success return types. Failure codes are returned as an integer, or integer wrapped in an array (see FileAttributes class comments for further discussion).
- 0 - Internal success. This should never be returned by the public primitives
- 1 - String too long. A file path name was longer than PATH_MAX.
- 2 - stat() call failed.
!
Item was changed:
----- Method: FileAttributesPlugin class>>declareCVarsIn: (in category 'translation') -----
declareCVarsIn: cg
+ self declareC: #('sCLPfn' 'sCOFfn')
+ as: #'void *'
+ in: cg.
+ "Assume the security plugin can be loaded until proven otherwise"
+ cg var: 'hasSecurityPlugin' declareC: 'int hasSecurityPlugin = 1'.
+
+ cg addHeaderFile: '<limits.h>'.
cg addHeaderFile: '<sys/types.h>'.
cg addHeaderFile: '<dirent.h>
+ #ifdef _WIN32
- #ifdef WIN32
#include <windows.h>
#include <winbase.h>
#define FAIL() { return -1; }
#include "sqWin32File.h"
#endif
typedef struct dirptrstruct {
DIR *dp;
int path_len;
char *path_file;
char path[PATH_MAX+4];
} osdir;'.
cg addHeaderFile: '<sys/stat.h>
+ #if !!defined(HAVE_LSTAT) && !!defined(_WIN32)
- #if !!defined(HAVE_LSTAT) && !!defined(WIN32)
#define HAVE_LSTAT 1
#endif'.
cg addHeaderFile: '<unistd.h>
+ /* AKG 2017 - ', self moduleName, '.c translated from class ', self name, ' */'!
- /* AKG 2017 - ', self moduleName, '.c translated from class ', self name, ' */'.
- "Assume the security plugin can be loaded until proven otherwise"
- cg var: 'hasSecurityPlugin' declareC: 'int hasSecurityPlugin= 1'.
- "The maximum value of a SmallInteger is encoded here so that the plugin can
- be regenerated and rebuilt correctly even if the Smalltalk word size or object
- format changes. -dtl"
- cg var: 'smallIntegerMaxVal' declareC: 'int smallIntegerMaxVal= ', SmallInteger maxVal asString.
- "Window creationDate declarations"
- !
Item was added:
+ ----- Method: FileAttributesPlugin class>>isStructType: (in category 'translation') -----
+ isStructType: typeName
+ ^#('struct stat' 'struct dirent' 'osdir') includes: typeName!
Item was changed:
----- Method: FileAttributesPlugin>>accessAttributesForFilename:into:startingAt: (in category 'private - file') -----
accessAttributesForFilename: cPathName into: attributeArray startingAt: offset
"Call access() for each access type (R, W, X) on the c string cPathName, storing the results in the st array attributeArray."
| index boolean |
<var: 'cPathName' type: 'char *'>
index := offset.
+ ((self acc: cPathName ess: self fileReadableFlag) = 0)
- ((self cCode: 'access(cPathName, R_OK)') = 0)
ifTrue: [boolean := interpreterProxy trueObject]
ifFalse: [boolean := interpreterProxy falseObject].
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: boolean.
index := index + 1.
+ boolean := ((self acc: cPathName ess: self fileWriteableFlag) = 0)
+ ifTrue: [interpreterProxy trueObject]
+ ifFalse: [interpreterProxy falseObject].
- ((self cCode: 'access(cPathName, W_OK)') = 0)
- ifTrue: [boolean := interpreterProxy trueObject]
- ifFalse: [boolean := interpreterProxy falseObject].
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: boolean.
index := index + 1.
+ boolean := ((self acc: cPathName ess: self fileExecutableFlag) = 0)
+ ifTrue: [interpreterProxy trueObject]
+ ifFalse: [interpreterProxy falseObject].
- ((self cCode: 'access(cPathName, X_OK)') = 0)
- ifTrue: [boolean := interpreterProxy trueObject]
- ifFalse: [boolean := interpreterProxy falseObject].
interpreterProxy
storePointer: index
ofObject: attributeArray
withValue: boolean.
!
Item was changed:
----- Method: FileAttributesPlugin>>addressObjectFor: (in category 'private - directory') -----
addressObjectFor: aMachineAddress
"Answer an ExternalAddress object which represents aMachineAddress"
| addressOop addressOopArrayPointer addressUnion idx |
<var: 'aMachineAddress' type: 'void *'>
<var: 'addressUnion' declareC: 'union {void *address; unsigned char bytes[sizeof(void *)];} addressUnion'>
<var: 'addressOopArrayPointer' declareC: 'unsigned char *addressOopArrayPointer'>
addressOop := interpreterProxy
instantiateClass: interpreterProxy classByteArray
indexableSize: self sizeOfPointer.
+ addressOop ifNil:
+ [^interpreterProxy primitiveFailFor: PrimErrNoMemory].
addressOopArrayPointer := interpreterProxy arrayValueOf: addressOop.
self cCode: 'addressUnion.address = aMachineAddress'.
idx := 0.
[idx < self sizeOfPointer] whileTrue:
[self cCode: 'addressOopArrayPointer[idx] = addressUnion.bytes[idx]'.
idx := idx + 1].
^ addressOop
!
Item was changed:
----- Method: FileAttributesPlugin>>byteArrayFromCString:to: (in category 'private') -----
byteArrayFromCString: aCString to: byteArrayOop
"Answer a new ByteArray copied from a null-terminated C string.
Caution: This may invoke the garbage collector."
| len newByteArray byteArrayPtr |
<var: 'aCString' type: 'const char *'>
<var: 'byteArrayPtr' type: 'unsigned char *'>
<var: 'byteArrayOop' type: 'sqInt *'>
len := self strlen: aCString.
"We never return strings longer than PATH_MAX"
+ len > #PATH_MAX ifTrue: [^self stringTooLong].
- len > (self cCode: 'PATH_MAX') ifTrue: [^self stringTooLong].
newByteArray := interpreterProxy
instantiateClass: interpreterProxy classByteArray
indexableSize: len.
+ newByteArray ifNil:
+ [^interpreterProxy primitiveFailFor: PrimErrNoMemory].
byteArrayPtr := interpreterProxy arrayValueOf: newByteArray.
self mem: byteArrayPtr cp: aCString y: len.
+ byteArrayOop at: 0 put: newByteArray.
+ ^0!
- self cCode: '*byteArrayOop = newByteArray'.
- ^0.!
Item was changed:
----- Method: FileAttributesPlugin>>canOpenDirectoryStreamFor:length: (in category 'private - directory') -----
canOpenDirectoryStreamFor: aPathCString length: length
"Answer non-zero if security permits the directory to be listed."
"FIXME: This function has not been tested. -dtl"
- | sCLPfn |
<var: 'aPathCString' type: 'char *'>
- <var: 'sCLPfn' type: 'void *'>
"If the security plugin can be loaded, use it to check .
If not, assume it's ok"
"The hasSecurityPlugin flag is set to 1 by default"
(hasSecurityPlugin = 0) ifTrue: [^ true].
- sCLPfn := interpreterProxy ioLoadFunction: 'secCanListPathOfSize' From: 'SecurityPlugin'.
sCLPfn ~= 0
ifTrue:
[^ self cCode: ' ((int (*) (char *, int)) sCLPfn)(aPathCString, length)'
inSmalltalk: [true]]
ifFalse:
[hasSecurityPlugin := 0. "Reset the flag so we do not try again next time"
^ true]
!
Item was changed:
----- Method: FileAttributesPlugin>>canStatFilePath:length: (in category 'private - file') -----
canStatFilePath: aPathCString length: length
"Answer non-zero if security permits the a stat() call on the file path. Allow a
stat() call only on files which we are permitted to open."
"FIXME: This function has not been tested. -dtl"
- | sCOFfn |
<var: 'aPathCString' type: 'char *'>
- <var: 'sCOFfn' type: 'void *'>
"If the security plugin can be loaded, use it to check .
If not, assume it's ok"
"The hasSecurityPlugin flag is set to 1 by default"
(hasSecurityPlugin = 0) ifTrue: [^ true].
- sCOFfn := interpreterProxy ioLoadFunction: 'secCanOpenFileOfSizeWritable' From: 'SecurityPlugin'.
sCOFfn ~= 0
ifTrue:
[^ self cCode: ' ((int (*) (char *, int, int)) sCOFfn)(aPathCString, length, 0)'
inSmalltalk: [true]]
ifFalse:
[hasSecurityPlugin := 0. "Reset the flag so we do not try again next time"
^ true]
!
Item was changed:
----- Method: FileAttributesPlugin>>cantAllocateMemory (in category 'errors') -----
cantAllocateMemory
+ <inline: #always>
-
^-10!
Item was changed:
----- Method: FileAttributesPlugin>>cantOpenDir (in category 'errors') -----
cantOpenDir
+ <inline: #always>
-
^-9!
Item was changed:
----- Method: FileAttributesPlugin>>cantReadlink (in category 'errors') -----
cantReadlink
+ <inline: #always>
-
^-8!
Item was changed:
----- Method: FileAttributesPlugin>>cantStatPath (in category 'errors') -----
cantStatPath
"SecurityPlugin determined that the requested path cannot be accessed."
+ <inline: #always>
^-3!
Item was changed:
----- Method: FileAttributesPlugin>>checkAccess:mode:to: (in category 'private - file') -----
checkAccess: pathString mode: mode to: flag
"Check access to pathString."
| cString len sPtr |
<export: true>
<var: 'cString' declareC: 'char cString[PATH_MAX]'>
<var: 'sPtr' declareC: 'char *sPtr'>
<var: 'flag' type: 'sqInt *'>
len := interpreterProxy stSizeOf: pathString.
"Note: The static sized string buffer is faster than using a Smalltalk allocated
string as the buffer, and is unlikely to fail in practice. In the event that
the buffer turns out to be too small, write an error message to stdout before
failing."
+ len >= #PATH_MAX ifTrue: [^self stringTooLong].
- (len >= (self cCode: 'PATH_MAX')) ifTrue: [^self stringTooLong].
"Copy pathString to the new string"
sPtr := interpreterProxy arrayValueOf: pathString.
((self canStatFilePath: sPtr length: len) = 0) ifTrue: [^self cantStatPath].
self mem: cString cp: sPtr y: len.
cString at: len put: 0.
+ flag at: 0 put: (self acc: cString ess: mode).
- self cCode: '*flag = access(cString, mode)'.
^0
!
Item was changed:
----- Method: FileAttributesPlugin>>corruptValue (in category 'errors') -----
corruptValue
+ <inline: #always>
-
^-7!
Item was changed:
----- Method: FileAttributesPlugin>>fileCreationTimeFor:length:to: (in category 'private - windows') -----
fileCreationTimeFor: pathString length: pathLength to: creationDate
"Get the creationDate for the supplied file.
Linux kernel 4.11 should have statx(), so hopefully there will be a cross-platform
solution soon. Just dump the c-code and hope to remove it soon."
+ <option: #_WIN32>
+ | tm winAttrs win32Path sysTime |
-
- | tm |
<var: 'pathString' type: 'char *'>
<var: 'creationDate' type: 'time_t *'>
<var: 'tm' type: 'struct tm'>
+ <var: 'winAttrs' type: 'WIN32_FILE_ATTRIBUTE_DATA'>
+ <var: 'win32Path' type: 'WCHAR *'>
+ <var: 'sysTime' type: 'SYSTEMTIME'>
+ self touch: winAttrs.
+ self touch: sysTime.
+ self me: (self addressOf: tm) ms: 0 et: tm sizeof.
+ "convert the supplied path name into a wide string"
+ self ALLOC_: win32Path WIN32_: pathString PATH: pathLength.
+ (self cCode: 'GetFileAttributesExW(win32Path, 0, &winAttrs)') = 0 ifTrue:
+ [^self getAttributesFailed].
+ (self cCode: 'FileTimeToSystemTime(&winAttrs.ftCreationTime, &sysTime)') = 0 ifTrue:
+ [^self timeConversionFailed].
self cCode: '
+ tm.tm_year = sysTime.wYear - 1900;
+ tm.tm_mon = sysTime.wMonth - 1;
+ tm.tm_mday = sysTime.wDay;
- #ifdef WIN32
- WIN32_FILE_ATTRIBUTE_DATA winAttrs;
- WCHAR *win32Path;
- SYSTEMTIME sysTime;
- #endif
+ tm.tm_hour = sysTime.wHour;
+ tm.tm_min = sysTime.wMinute;
+ tm.tm_sec = sysTime.wSecond;
+ tm.tm_isdst = 0;
+ *creationDate = mktime(&tm)'.
- memset(&tm, 0, sizeof(tm));
+ ^0!
- #ifdef WIN32
- /* convert the supplied path name into a wide string */
- ALLOC_WIN32_PATH(win32Path, pathString, pathLength)'.
-
- [(self cCode: 'GetFileAttributesExW(win32Path, 0, &winAttrs)') = 0] ifTrue:
- [^self getAttributesFailed].
-
- [(self cCode: 'FileTimeToSystemTime(&winAttrs.ftCreationTime, &sysTime)') = 0] ifTrue:
- [^self timeConversionFailed].
-
- self cCode: '
- tm.tm_year = sysTime.wYear - 1900;
- tm.tm_mon = sysTime.wMonth - 1;
- tm.tm_mday = sysTime.wDay;
-
- tm.tm_hour = sysTime.wHour;
- tm.tm_min = sysTime.wMinute;
- tm.tm_sec = sysTime.wSecond;
- tm.tm_isdst = 0;
- #endif
-
- *creationDate = mktime(&tm)'.
-
- ^0.
- !
Item was changed:
----- Method: FileAttributesPlugin>>fileExecutableFlag (in category 'private - file') -----
fileExecutableFlag
+ <inline: #always>
+ ^ self cCode: [#X_OK] inSmalltalk: [1]!
-
- ^ self cCode: 'X_OK' inSmalltalk: [1]!
Item was changed:
----- Method: FileAttributesPlugin>>fileOKFlag (in category 'private - file') -----
fileOKFlag
+ <inline: #always>
+ ^ self cCode: [#F_OK] inSmalltalk: [0]!
-
- ^ self cCode: 'F_OK' inSmalltalk: [0]!
Item was changed:
----- Method: FileAttributesPlugin>>fileReadableFlag (in category 'private - file') -----
fileReadableFlag
+ <inline: #always>
+ ^ self cCode: [#R_OK] inSmalltalk: [4]!
-
- ^ self cCode: 'R_OK' inSmalltalk: [4]!
Item was changed:
----- Method: FileAttributesPlugin>>fileToAttributeArray:mask:array: (in category 'private - file') -----
fileToAttributeArray: cPathName mask: attributeMask array: attributeArray
"Answer a file attribute array from pathNameOop."
+ | getStats useLstat getAccess statArray accessArray combinedArray status fileNameOop statBuf |
- | getStats useLstat getAccess statArray accessArray combinedArray status fileNameOop statBuf statBufPointer |
<returnTypeC: 'int'>
<var: 'cPathName' type: 'char *'>
<var: 'attributeArray' type: 'sqInt *'>
<var: 'statBuf' type: 'struct stat'>
- <var: 'statBufPointer' type: 'struct stat *'>
- statBufPointer := self addressOf: statBuf.
"Determine which attributes to retrieve"
+ getStats := attributeMask anyMask: 1.
+ getAccess := attributeMask anyMask: 2.
+ (getStats or: [getAccess]) ifFalse:
- getStats := (attributeMask bitAnd: 1) = 1.
- getAccess := (attributeMask bitAnd: 2) = 2.
- [getStats or: [getAccess]] ifFalse:
["No information has been requested, which doesn't make sense"
^self invalidArguments].
getStats ifTrue:
[
+ useLstat := attributeMask anyMask: 4.
+ statArray := interpreterProxy instantiateClass: interpreterProxy classArray indexableSize: 12.
+ statArray ifNil:
+ [^interpreterProxy primitiveFailFor: PrimErrNoMemory].
+ status := useLstat ifFalse:
+ [ self putStatFor: cPathName
+ intoBuffer: (self addressOf: statBuf)
- useLstat := (attributeMask bitAnd: 4) = 4.
- statArray := interpreterProxy instantiateClass: (interpreterProxy classArray) indexableSize: 12.
- useLstat ifFalse:
- [ status := self putStatFor: cPathName
- intoBuffer: statBufPointer
targetName: (self addressOf: fileNameOop) ]
+ ifTrue:
+ [ self putLStatFor: cPathName
+ intoBuffer: (self addressOf: statBuf)
- ifTrue:
- [ status := self putLStatFor: cPathName
- intoBuffer: statBufPointer
targetName: (self addressOf: fileNameOop) ].
status ~= 0 ifTrue: [^status].
+ status := self statArrayFor: cPathName toArray: statArray from: (self addressOf: statBuf) fileName: fileNameOop.
- status := self statArrayFor: cPathName toArray: statArray from: statBufPointer fileName: fileNameOop.
status ~= 0 ifTrue: [^status].
"Set attributeArray in case only stat() attributes have been requested"
+ attributeArray at: 0 put: statArray
- self cCode: '*attributeArray = statArray'.
].
getAccess ifTrue:
[
+ accessArray := interpreterProxy instantiateClass: interpreterProxy classArray indexableSize: 3.
+ accessArray ifNil:
+ [^interpreterProxy primitiveFailFor: PrimErrNoMemory].
- accessArray := interpreterProxy instantiateClass: (interpreterProxy classArray) indexableSize: 3.
self accessAttributesForFilename: cPathName into: accessArray startingAt: 0.
"Set attributeArray in case only access() attributes have been requested"
+ attributeArray at: 0 put: accessArray
- self cCode: '*attributeArray = accessArray'.
].
[getStats and: [getAccess]] ifTrue:
[
+ combinedArray := interpreterProxy instantiateClass: interpreterProxy classArray indexableSize: 2.
+ combinedArray ifNil:
+ [^interpreterProxy primitiveFailFor: PrimErrNoMemory].
+ attributeArray at: 0 put: combinedArray.
- combinedArray := interpreterProxy instantiateClass: (interpreterProxy classArray) indexableSize: 2.
- self cCode: '*attributeArray = combinedArray'.
interpreterProxy
+ storePointer: 0 ofObject: combinedArray withValue: statArray;
+ storePointer: 1 ofObject: combinedArray withValue: accessArray
- storePointer: 0
- ofObject: combinedArray
- withValue: statArray.
- interpreterProxy
- storePointer: 1
- ofObject: combinedArray
- withValue: accessArray.
].
^0!
Item was changed:
----- Method: FileAttributesPlugin>>fileWriteableFlag (in category 'private - file') -----
fileWriteableFlag
+ <inline: #always>
+ ^ self cCode: [#W_OK] inSmalltalk: [2]!
-
- ^ self cCode: 'W_OK' inSmalltalk: [2]!
Item was changed:
----- Method: FileAttributesPlugin>>getAttributesFailed (in category 'errors') -----
getAttributesFailed
+ <inline: #always>
-
^-4!
Item was added:
+ ----- Method: FileAttributesPlugin>>initialiseModule (in category 'initialize-release') -----
+ initialiseModule
+ <export: true>
+
+ sCOFfn := interpreterProxy ioLoadFunction: 'secCanOpenFileOfSizeWritable' From: 'SecurityPlugin'.
+ sCLPfn := interpreterProxy ioLoadFunction: 'secCanListPathOfSize' From: 'SecurityPlugin'.
+ ^true!
Item was changed:
----- Method: FileAttributesPlugin>>invalidArguments (in category 'errors') -----
invalidArguments
+ <inline: #always>
-
^-6!
Item was changed:
----- Method: FileAttributesPlugin>>invalidRequest (in category 'errors') -----
invalidRequest
+ <inline: #always>
-
^-11!
Item was changed:
----- Method: FileAttributesPlugin>>isSymlink:boolean: (in category 'private - file') -----
isSymlink: cPathName boolean: resultOop
"Set resultOop to a boolean indicating whether cPathName is a symbolic link.
Answer status (0 = success)"
| status statBuf |
<var: 'cPathName' type: 'char *'>
<var: 'resultOop' type: 'sqInt *'>
<var: 'statBuf' type: 'struct stat'>
+ self touch: statBuf.
+ self cppIf: #HAVE_LSTAT == 1 ifTrue:
+ [status := self lst: cPathName at: (self addressOf: statBuf).
+ status ~= 0 ifTrue: [^self cantStatPath].
+ (self S_ISLNK: statBuf st_mode) = 0
+ ifFalse: [resultOop at: 0 put: interpreterProxy trueObject]
+ ifTrue: [resultOop at: 0 put: interpreterProxy falseObject]].
+ ^0!
-
- self cPreprocessorDirective: '#if (HAVE_LSTAT == 1)'.
- status := self cCode: 'lstat(cPathName, &statBuf)'.
- (status ~= 0) ifTrue: [^self cantStatPath].
- ((self cCode: 'S_ISLNK(statBuf.st_mode)') = 0)
- ifFalse: [self cCode: '*resultOop = interpreterProxy->trueObject()']
- ifTrue: [self cCode: '*resultOop = interpreterProxy->falseObject()'].
- self cPreprocessorDirective: '#endif'. "HAVE_LSTAT == 1"
- ^0
- !
Item was added:
+ ----- Method: FileAttributesPlugin>>offsetStatBufTimesForWIN32: (in category 'private - windows') -----
+ offsetStatBufTimesForWIN32: statBufPointer
+ "Adjust the statBuffer to UTC, see https://msdn.microsoft.com/en-us/library/windows/desktop/ms725481(v=vs.85).…"
+ <option: #_WIN32>
+ <var: 'statBufPointer' type: 'struct stat *'>
+ | status dtzi offset |
+ <var: 'offset' type: 'long'>
+ <var: 'dtzi' type: 'TIME_ZONE_INFORMATION'>
+ status := self GetTimeZoneInformation: (self addressOf: dtzi).
+ offset := (self cCode: 'dtzi.Bias' inSmalltalk: [0]) * 60.
+ "Adjust for DST if required"
+ status = 2 ifTrue: [offset := offset - 3600].
+ self cCode: 'statBufPointer->st_atime += offset'.
+ self cCode: 'statBufPointer->st_mtime += offset'.
+ self cCode: 'statBufPointer->st_ctime += offset'.!
Item was changed:
----- Method: FileAttributesPlugin>>oopFromTimeT: (in category 'private') -----
oopFromTimeT: posixSeconds
"Answer an object representation of the provided time (time_t).
The size of time_t is platform dependent, so check the size and convert appropriately."
<var: 'posixSeconds' type: 'time_t'>
+ ^(self sizeof: #time_t) = 4 ifTrue:
+ [interpreterProxy signed32BitIntegerFor: posixSeconds]
+ ifFalse:
+ [interpreterProxy signed64BitIntegerFor: posixSeconds].
- [(self cCode: 'sizeof(time_t)') = 4] ifTrue:
- [^interpreterProxy signed32BitIntegerFor: posixSeconds].
- "Must be 64 bit number"
- ^interpreterProxy signed64BitIntegerFor: posixSeconds.
!
Item was changed:
----- Method: FileAttributesPlugin>>openDirectoryStream:ptr: (in category 'private - directory') -----
openDirectoryStream: pathOOP ptr: osdirPtr
"Open a new directory stream. Answer a pointer to the directory stream or NULL."
| sPtr len dir |
<var: 'osdirPtr' type: 'osdir **'>
<var: 'sPtr' declareC: 'char *sPtr'>
<var: 'dir' type: 'osdir *'>
<returnTypeC: 'int'>
sPtr := interpreterProxy arrayValueOf: pathOOP.
len := interpreterProxy sizeOfSTArrayFromCPrimitive: sPtr.
"The path buffer needs room for a trailing slash and the file name, so subtracting 2 is conservative"
+ len > (#PATH_MAX - 2) ifTrue: [^self stringTooLong].
- len > (self cCode: 'PATH_MAX-2') ifTrue: [^self stringTooLong].
(self canOpenDirectoryStreamFor: sPtr length: len)
ifTrue:
[
dir := self cCode: '(osdir *) malloc(sizeof(osdir))'.
dir = nil ifTrue: [^self cantAllocateMemory].
+ self mem: dir path cp: sPtr y: len.
- self cCode: 'memcpy(dir->path, sPtr, len)'.
"Ensure path has a trailing slash"
self cCode: 'if (dir->path[len-1] !!= ''/'') {
dir->path[len++] = ''/'';
}'.
self cCode: 'dir->path_file = dir->path + len'.
self cCode: 'dir->path_file[0] = ''\0'''.
self cCode: 'dir->path_len = len'.
self cCode: 'dir->dp = opendir(dir->path)'.
+ dir dp ifNil:
+ [self free: dir.
- (self cCode: 'dir->dp') = nil ifTrue:
- [dir free.
^self cantOpenDir].
+ osdirPtr at: 0 put: dir.
- self cCode: '*osdirPtr = dir'.
^0
].
"If we get here, we can't open the directory"
^self cantOpenDir
!
Item was changed:
----- Method: FileAttributesPlugin>>pointerFrom: (in category 'private - directory') -----
pointerFrom: directoryPointerBytes
"Answer the machine address contained in anExternalAddressOop."
| ptr addressUnion idx |
<returnTypeC: 'void *'>
<var: 'ptr' type: 'unsigned char *'>
<var: 'addressUnion' type: 'union {void *address; unsigned char bytes[sizeof(void *)];}'>
+ ((interpreterProxy is: directoryPointerBytes KindOf: 'ByteArray') and:
- ((interpreterProxy isBytes: directoryPointerBytes) and:
[(interpreterProxy stSizeOf: directoryPointerBytes) = self sizeOfPointer])
ifFalse: [^ nil].
ptr := interpreterProxy arrayValueOf: directoryPointerBytes.
idx := 0.
[idx < self sizeOfPointer] whileTrue:
[self cCode: 'addressUnion.bytes[idx] = ptr[idx]'.
idx := idx + 1].
^ self cCode: 'addressUnion.address' inSmalltalk: [addressUnion]
!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveClosedir (in category 'file primitives') -----
primitiveClosedir
+ "Close the directory stream for dirPointerOop. Answer dirPointerOop on success.
+ Raise PrimErrBadArgument if the parameter is not a ByteArray length size(void *).
+ If closedir() returns an error raise PrimitiveOSError."
- "Close the directory stream for dirPointerOop. Answer dirPointerOop on success."
| dirPointerOop dirStream result |
<export: true>
<var: 'dirStream' type: 'osdir *'>
+ dirPointerOop := interpreterProxy stackValue: 0.
- dirPointerOop := interpreterProxy stackObjectValue: 0.
- (dirPointerOop = interpreterProxy nilObject) ifTrue:
- [^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
- (interpreterProxy is: dirPointerOop KindOf: 'ByteArray') ifFalse:
- [self cCode: 'fprintf(stderr, "primitiveClosedir: invalid argument, expected a ByteArray\n")'.
- ^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
dirStream := self pointerFrom: dirPointerOop.
+ dirStream ifNil:
+ [^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ result := self closedir: dirStream dp.
+ result = 0 ifFalse:
+ [^interpreterProxy primitiveFailForOSError: self unableToCloseDir].
+ self free: dirStream.
+ interpreterProxy pop: 2 thenPush: dirPointerOop!
- (dirStream = nil) ifTrue: [^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self corruptValue)].
- result := self cCode: 'closedir(dirStream->dp)'.
- (result = 0) ifFalse:
- [self perror: 'closedir'.
- ^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self corruptValue)].
- self cCode: 'free(dirStream)'.
- interpreterProxy pop: 2; push: dirPointerOop.
- !
Item was changed:
----- Method: FileAttributesPlugin>>primitiveFileAttribute (in category 'file primitives') -----
primitiveFileAttribute
"Answer a single file attribute.
primFileAttributes: aString attributeNumber: attributeNumber
aString is the path to the file
attributeNumber identifies which attribute to return:
1 - 12: stat(): name, mode, ino, dev, nlink, uid, gid, size, accessDate, modifiedDate, changeDate, creationDate
13 - 15: access(): R_OK, W_OK, X_OK
16: isSymlink
On error, answer a single element array containing the appropriate error code."
| fileName attributeNumber resultOop fileNameOop statBuf cPathName sizeIfFile mode creationDate status |
<export: true>
<var: 'statBuf' type: 'struct stat'>
<var: 'cPathName' declareC: 'char cPathName[PATH_MAX]'>
<var: 'creationDate' type: 'time_t'>
fileName := interpreterProxy stackObjectValue: 1.
attributeNumber := interpreterProxy stackIntegerValue: 0.
+ (interpreterProxy failed
+ or: [(attributeNumber between: 1 and: 16) not
+ or: [(interpreterProxy is: fileName KindOf: 'String') not]]) ifTrue:
+ [^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ status := self pathOop: fileName toBuffer: cPathName maxLen: #PATH_MAX.
+ status ~= 0 ifTrue:
+ [^interpreterProxy primitiveFailForOSError: status].
- (attributeNumber < 1 or: [attributeNumber > 16]) ifTrue:
- [^interpreterProxy pop: 3; push: (self wrappedErrorCode: self invalidArguments)].
- (interpreterProxy is: fileName KindOf: 'String') ifFalse:
- [^interpreterProxy pop: 3; push: (self wrappedErrorCode: self invalidArguments)].
- status := self pathOop: fileName toBuffer: cPathName maxLen: (self cCode: 'PATH_MAX').
- [status ~= 0] ifTrue:
- [^interpreterProxy pop: 3; push: (self wrappedErrorCode: status)].
resultOop := 0.
attributeNumber < 12 ifTrue:
"Get requested stat entry"
[
status := self
putStatFor: cPathName
intoBuffer: (self addressOf: statBuf)
targetName: (self addressOf: fileNameOop).
+ status ~= 0 ifTrue:
+ [^interpreterProxy primitiveFailForOSError: status].
- (status ~= 0) ifTrue:
- [^interpreterProxy pop: 3; push: (self wrappedErrorCode: status)].
"In C, this would naturally be a switch statement,
but I don't know to mix in the smalltalk code"
attributeNumber = 1 ifTrue: [resultOop := fileNameOop].
attributeNumber = 2 ifTrue:
+ [resultOop := interpreterProxy positiveMachineIntegerFor: statBuf st_mode].
- [resultOop := (self smallOrLargeIntegerObjectFor:
- (self cCode: 'statBuf.st_mode'))].
attributeNumber = 3 ifTrue:
+ [resultOop := interpreterProxy positive64BitIntegerFor: statBuf st_ino].
- [resultOop := (interpreterProxy positive64BitIntegerFor:
- (self cCode: 'statBuf.st_ino'))].
attributeNumber = 4 ifTrue:
+ [resultOop := interpreterProxy positive64BitIntegerFor: statBuf st_dev].
- [resultOop := (interpreterProxy positive64BitIntegerFor:
- (self cCode: 'statBuf.st_dev'))].
attributeNumber = 5 ifTrue:
+ [resultOop := interpreterProxy positive64BitIntegerFor: statBuf st_nlink].
- [resultOop := (interpreterProxy positive64BitIntegerFor:
- (self cCode: 'statBuf.st_nlink'))].
attributeNumber = 6 ifTrue:
+ [resultOop := interpreterProxy positiveMachineIntegerFor: statBuf st_uid].
- [resultOop := (self smallOrLargeIntegerObjectFor:
- (self cCode: 'statBuf.st_uid'))].
attributeNumber = 7 ifTrue:
+ [resultOop := interpreterProxy positiveMachineIntegerFor: statBuf st_gid].
- [resultOop := (self smallOrLargeIntegerObjectFor:
- (self cCode: 'statBuf.st_gid'))].
attributeNumber = 8 ifTrue:
[
+ sizeIfFile := ((self S_ISDIR: statBuf st_mode) = 0)
+ ifTrue: [statBuf st_size]
+ ifFalse: [0].
+ resultOop := interpreterProxy positiveMachineIntegerFor: sizeIfFile
- ((self cCode: 'S_ISDIR(statBuf.st_mode)') = 0)
- ifTrue:
- [sizeIfFile := self cCode: 'statBuf.st_size']
- ifFalse:
- [sizeIfFile := 0].
- resultOop := self smallOrLargeIntegerObjectFor: sizeIfFile
].
attributeNumber = 9 ifTrue:
+ [resultOop := self oopFromTimeT: statBuf st_atime].
- [resultOop := self oopFromTimeT: (self cCode: 'statBuf.st_atime')].
attributeNumber = 10 ifTrue:
+ [resultOop := self oopFromTimeT: statBuf st_mtime].
- [resultOop := self oopFromTimeT: (self cCode: 'statBuf.st_mtime')].
attributeNumber = 11 ifTrue:
+ [resultOop := self oopFromTimeT: statBuf st_ctime].
- [resultOop := self oopFromTimeT: (self cCode: 'statBuf.st_ctime')].
]
ifFalse: [attributeNumber = 12 ifTrue:
[
+ self cppIf: #_WIN32 defined ifTrue: [
+ status := self fileCreationTimeFor: cPathName
+ length: cPathName strlen
+ to: (self addressOf: creationDate put: [:val| creationDate := val]).
+ status ~= 0 ifTrue:
+ [^interpreterProxy primitiveFailForOSError: status].
+ resultOop := self oopFromTimeT: creationDate ]
+ ifFalse: [
+ resultOop := interpreterProxy nilObject ]
- status := self fileCreationTimeFor: cPathName
- length: cPathName strlen
- to: (self addressOf: creationDate).
- status ~= 0 ifTrue:
- [^interpreterProxy pop: 3; push: (self wrappedErrorCode: status)].
- resultOop := self oopFromTimeT: creationDate.
]
ifFalse: [attributeNumber < 16 ifTrue:
"Get requested access entry"
[
attributeNumber = 13 ifTrue: [mode := self fileReadableFlag].
attributeNumber = 14 ifTrue: [mode := self fileWriteableFlag].
attributeNumber = 15 ifTrue: [mode := self fileExecutableFlag].
+ resultOop := ((self acc: cPathName ess: mode) = 0)
+ ifTrue: [interpreterProxy trueObject]
+ ifFalse: [interpreterProxy falseObject].
- ((self cCode: 'access(cPathName, mode)') = 0)
- ifTrue: [resultOop := interpreterProxy trueObject]
- ifFalse: [resultOop := interpreterProxy falseObject].
]
ifFalse: "attributeNumber = 16"
[
+ status := self isSymlink: cPathName boolean: (self addressOf: resultOop put: [:val| resultOop := val]).
+ status ~= 0 ifTrue:
+ [^interpreterProxy primitiveFailForOSError: status].
- status := self isSymlink: cPathName boolean: (self addressOf: resultOop).
- (status ~= 0) ifTrue:
- [^interpreterProxy pop: 3; push: (self wrappedErrorCode: status)].
]]].
+ resultOop = 0
- (resultOop = 0)
ifTrue: ["It shouldn't be possible to get here"
+ interpreterProxy primitiveFail]
+ ifFalse: [interpreterProxy pop: 3 thenPush: resultOop]!
- ^ interpreterProxy primitiveFail]
- ifFalse: [interpreterProxy pop: 3; push: resultOop]
- !
Item was changed:
----- Method: FileAttributesPlugin>>primitiveFileAttributes (in category 'file primitives') -----
primitiveFileAttributes
"Answer an array of file attributes.
primFileAttributes: aString mask: attributeMask
aString is the path to the file
attributeMask indicates which attributes to retrieve:
bit 0 - get stat() attributes
bit 1 - get access() attributes
bit 2 - use lstat() instead of stat()
On error answer the appropriate error code (Integer)"
| fileName attributeMask attributeArray cPathName status |
<export: true>
<var: 'cPathName' declareC: 'char cPathName[PATH_MAX]'>
fileName := interpreterProxy stackObjectValue: 1.
attributeMask := interpreterProxy stackIntegerValue: 0.
+ (interpreterProxy failed
+ or: [(interpreterProxy is: fileName KindOf: 'String') not]) ifTrue:
+ [^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ status := self pathOop: fileName toBuffer: cPathName maxLen: #PATH_MAX.
- (interpreterProxy is: fileName KindOf: 'String') ifFalse:
- [^interpreterProxy pop: 3; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
- status := self pathOop: fileName toBuffer: cPathName maxLen: (self cCode: 'PATH_MAX').
status ~= 0 ifTrue:
+ [^interpreterProxy primitiveFailForOSError: status].
- [^interpreterProxy pop: 3; push: (interpreterProxy signed32BitIntegerFor: status)].
+ status := self fileToAttributeArray: cPathName
+ mask: attributeMask
+ array: (self addressOf: attributeArray put: [:val| attributeArray := val]).
- status := self fileToAttributeArray: cPathName mask: attributeMask array: (self addressOf: attributeArray).
status ~= 0
+ ifTrue: [interpreterProxy primitiveFailForOSError: status]
+ ifFalse: [interpreterProxy pop: 3 thenPush: attributeArray]!
- ifTrue: [interpreterProxy pop: 3; push: (interpreterProxy signed32BitIntegerFor: status)]
- ifFalse: [interpreterProxy pop: 3; push: attributeArray]
- !
Item was changed:
----- Method: FileAttributesPlugin>>primitiveFileExists (in category 'file primitives') -----
primitiveFileExists
"Check for existence of a file with a call to access()."
| pathString status accessFlag |
<export: true>
<var: 'accessFlag' type: 'sqInt'>
pathString := interpreterProxy stackObjectValue: 0.
(interpreterProxy is: pathString KindOf: 'String') ifFalse:
+ [^interpreterProxy primitiveFailFor: PrimErrBadArgument].
- [^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
status := self checkAccess: pathString mode: self fileOKFlag to: (self addressOf: accessFlag).
+ status = 0 ifFalse: [^interpreterProxy primitiveFailForOSError: status].
+ interpreterProxy pop: 2 thenPush: (accessFlag = 0
+ ifTrue: [interpreterProxy trueObject]
+ ifFalse: [interpreterProxy falseObject])!
- [status = 0] ifFalse: [^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: status)].
- accessFlag = 0
- ifTrue: [interpreterProxy pop: 2; push: interpreterProxy trueObject]
- ifFalse: [interpreterProxy pop: 2; push: interpreterProxy falseObject]
- !
Item was changed:
----- Method: FileAttributesPlugin>>primitiveFileMasks (in category 'file primitives') -----
primitiveFileMasks
"Answer an array of well known file masks"
| masks |
<export: true>
masks := interpreterProxy instantiateClass: (interpreterProxy classArray) indexableSize: 8.
+ masks ifNil: [^interpreterProxy primitiveFailFor: PrimErrNoMemory].
interpreterProxy
storePointer: 0
ofObject: masks
+ withValue: (interpreterProxy positiveMachineIntegerFor: #'S_IFMT').
+ self cppIf: #_WIN32 defined not
+ ifTrue:
+ [interpreterProxy
+ storePointer: 1
+ ofObject: masks
+ withValue: (interpreterProxy positiveMachineIntegerFor: #'S_IFSOCK').
+ interpreterProxy
+ storePointer: 2
+ ofObject: masks
+ withValue: (interpreterProxy positiveMachineIntegerFor: #'S_IFLNK')].
- withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFMT')).
- self cPreprocessorDirective: '#if !!defined(WIN32)'.
interpreterProxy
- storePointer: 1
- ofObject: masks
- withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFSOCK')).
- interpreterProxy
- storePointer: 2
- ofObject: masks
- withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFLNK')).
- self cPreprocessorDirective: '#endif'.
- interpreterProxy
storePointer: 3
ofObject: masks
+ withValue: (interpreterProxy positiveMachineIntegerFor: #'S_IFREG').
- withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFREG')).
interpreterProxy
storePointer: 4
ofObject: masks
+ withValue: (interpreterProxy positiveMachineIntegerFor: #'S_IFBLK').
- withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFBLK')).
interpreterProxy
storePointer: 5
ofObject: masks
+ withValue: (interpreterProxy positiveMachineIntegerFor: #'S_IFDIR').
- withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFDIR')).
interpreterProxy
storePointer: 6
ofObject: masks
+ withValue: (interpreterProxy positiveMachineIntegerFor: #'S_IFCHR').
- withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFCHR')).
interpreterProxy
storePointer: 7
ofObject: masks
+ withValue: (interpreterProxy positiveMachineIntegerFor: #'S_IFIFO').
- withValue: (self smallOrLargeIntegerObjectFor: (self cCode: 'S_IFIFO')).
interpreterProxy pop: 1 thenPush: masks!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveLogicalDrives (in category 'file primitives') -----
primitiveLogicalDrives
"Answer the logical drive mask on windows"
- | mask |
<export: true>
<var: 'mask' type: #'unsigned int'>
+ self cppIf: #_WIN32 defined
+ ifTrue:
+ [| mask |
+ mask := self GetLogicalDrives.
+ mask ~= 0 ifTrue:
+ [^interpreterProxy pop: 1 thenPush: (interpreterProxy positive32BitIntegerFor: mask)]].
+ interpreterProxy primitiveFail!
- self cPreprocessorDirective: '#if defined(WIN32)'.
- mask := self cCode: 'GetLogicalDrives()'.
- [mask ~= 0] ifTrue:
- [^interpreterProxy pop: 1 thenPush: (interpreterProxy positive32BitIntegerFor: mask)].
- self cPreprocessorDirective: '#endif'.
- ^interpreterProxy primitiveFail.!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveOpendir (in category 'file primitives') -----
primitiveOpendir
"self primOpendir: '/etc'"
+ | dirName dir dirOop status |
- | dirName dir dirOop status dirOopArrayPointer |
<export: true>
<var: 'dir' type: 'osdir *'>
- <var: 'dirOopArrayPointer' type: 'unsigned char *'>
dirName := interpreterProxy stackObjectValue: 0.
(interpreterProxy is: dirName KindOf: 'String') ifFalse:
+ [^interpreterProxy primitiveFailFor: PrimErrBadArgument].
- [self cCode: 'fprintf(stderr, "primitiveOpendir: invalid argument, expected a String\n")'.
- ^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
status := self openDirectoryStream: dirName ptr: (self addressOf: dir).
+ status ~= 0 ifTrue: [^interpreterProxy primitiveFailForOSError: status].
- status ~= 0 ifTrue: [^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: status)].
dirOop := self addressObjectFor: dir.
+ interpreterProxy pop: 2 thenPush: dirOop!
- interpreterProxy pop: 2; push: dirOop
- !
Item was changed:
----- Method: FileAttributesPlugin>>primitivePathMax (in category 'file primitives') -----
primitivePathMax
"Answer the value of PATH_MAX for the current VM"
<export: true>
+ ^interpreterProxy pop: 1 thenPush: (interpreterProxy integerObjectOf: #PATH_MAX)!
- ^interpreterProxy pop: 1 thenPush: (self smallOrLargeIntegerObjectFor: (self cCode: 'PATH_MAX')).!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveReaddir (in category 'file primitives') -----
primitiveReaddir
"Get the next entry in the directory stream. Answer the name of the entry, or
+ nil for the end of the directory stream."
- error for end of directory stream."
| dirPointerOop dirStream ent entryName attributeArray resultArray haveEntry entry_len status |
<export: true>
<var: 'ent' type: 'struct dirent *'>
<var: 'dirStream' type: 'osdir *'>
<var: 'haveEntry' type: #int>
+ dirPointerOop := interpreterProxy stackValue: 0.
- dirPointerOop := interpreterProxy stackObjectValue: 0.
- (interpreterProxy is: dirPointerOop KindOf: 'ByteArray') ifFalse:
- [self cCode: 'fprintf(stderr, "primitiveReaddir: invalid argument, expected an ByteArray\n")'.
- ^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
dirStream := self pointerFrom: dirPointerOop.
+ dirStream ifNil:
+ [^interpreterProxy primitiveFailFor: PrimErrBadArgument].
- (dirStream = nil) ifTrue: [^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
haveEntry := 0.
+ [ent := self readdir: dirStream dp.
+ self cCode: 'if (ent == NULL ||
- self cCode: 'do {'.
- ent := self cCode: 'readdir(dirStream->dp)'.
- self cCode: 'if (ent == NULL ||
((!! (ent->d_name[0] == ''.'' && strlen(ent->d_name) == 1)) && strcmp(ent->d_name, "..")))
+ haveEntry = 1'.
+ haveEntry = 0] whileTrue.
+ ent ifNil: "This is the normal case for the end of a directory stream,
+ although it may indicate other error conditions for which errno would be updated.
+ Assume the normal case here."
+ [^interpreterProxy pop: 2 thenPush: interpreterProxy nilObject].
+ status := self byteArrayFromCString: ent d_name to: (self addressOf: entryName put: [:val| entryName := val]).
+ status ~= 0 ifTrue:
+ [^interpreterProxy primitiveFailForOSError: status].
- haveEntry = 1;
- } while (haveEntry == 0)'.
- (ent = nil) ifTrue: ["This is the normal case for the end of a directory stream,
- although it may indicate other error conditions for which errno would be updated.
- Assume the normal case here."
- ^interpreterProxy pop: 2; push: interpreterProxy nilObject].
- status := self byteArrayFromCString: (self cCode: 'ent->d_name') to: (self addressOf: entryName).
- [status ~= 0] ifTrue:
- [^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: status)].
"Build the path name (append the entry name to the path name)"
+ entry_len := self strlen: ent d_name.
+ [dirStream path_len + entry_len > (#PATH_MAX - 1)] ifTrue:
+ [^interpreterProxy primitiveFailForOSError: self stringTooLong].
+ self mem: dirStream path_file cp: ent d_name y: entry_len.
+ dirStream path_file at: entry_len put: 0.
- entry_len := self cCode: 'strlen(ent->d_name)'.
- [(self cCode: 'dirStream->path_len') + entry_len > (self cCode: 'PATH_MAX-1')] ifTrue:
- [^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self stringTooLong)].
- self cCode: 'memcpy(dirStream->path_file, ent->d_name, entry_len)'.
- self cCode: 'dirStream->path_file[entry_len] = ''\0'''.
+ status := self fileToAttributeArray: dirStream path mask: 1 array: (self addressOf: attributeArray put: [:val| attributeArray := val]).
- status := self fileToAttributeArray: (self cCode: 'dirStream->path') mask: 1 array: (self addressOf: attributeArray).
"If the stat() fails, still return the filename, just no attributes"
status ~= 0 ifTrue: [attributeArray := interpreterProxy nilObject].
+ self remapOop: #(entryName attributeArray)
+ in: [resultArray := interpreterProxy instantiateClass: interpreterProxy classArray indexableSize: 2].
+ resultArray ifNil:
+ [^interpreterProxy primitiveFailFor: PrimErrNoMemory].
- resultArray := interpreterProxy instantiateClass: (interpreterProxy classArray) indexableSize: 2.
interpreterProxy
+ storePointer: 0 ofObject: resultArray withValue: entryName;
+ storePointer: 1 ofObject: resultArray withValue: attributeArray;
+ pop: 2 thenPush: resultArray!
- storePointer: 0
- ofObject: resultArray
- withValue: entryName.
- interpreterProxy
- storePointer: 1
- ofObject: resultArray
- withValue: attributeArray.
-
- interpreterProxy pop: 2; push: resultArray
- !
Item was changed:
----- Method: FileAttributesPlugin>>primitiveRewinddir (in category 'file primitives') -----
primitiveRewinddir
"Set directoryStream to first entry. Answer dirPointerOop."
| dirPointerOop dirStream |
<export: true>
<var: 'dirStream' declareC: 'osdir *dirStream'>
+ dirPointerOop := interpreterProxy stackValue: 0.
- dirPointerOop := interpreterProxy stackObjectValue: 0.
- (interpreterProxy is: dirPointerOop KindOf: 'ByteArray') ifFalse:
- [self cCode: 'fprintf(stderr, "primitiveRewindir: invalid argument, expected an ByteArray\n")'.
- ^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
dirStream := self pointerFrom: dirPointerOop.
+ dirStream ifNil:
+ [^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ self rewinddir: dirStream dp.
+ interpreterProxy pop: 2 thenPush: dirPointerOop!
- (dirStream = nil) ifTrue: [^interpreterProxy pop: 2; push: (interpreterProxy signed32BitIntegerFor: self invalidArguments)].
- self cCode: 'rewinddir(dirStream->dp)'.
- interpreterProxy pop: 2; push: dirPointerOop
- !
Item was changed:
----- Method: FileAttributesPlugin>>putLStatFor:intoBuffer:targetName: (in category 'private - file') -----
putLStatFor: cPathName intoBuffer: statBufPointer targetName: fileNameOop
"Call stat() on cPathName, storing the results in
the buffer at statBufPointer."
+ | cLinkName len status |
- | cLinkName cLinkPtr len status |
<returnTypeC: 'sqInt'>
<var: 'cPathName' type: 'char *'>
<var: 'statBufPointer' type: 'struct stat *'>
<var: 'cLinkName' declareC: 'char cLinkName[PATH_MAX]'>
- <var: 'cLinkPtr' type: 'char *'>
<var: 'fileNameOop' type: 'sqInt *'>
+ self cppIf: #HAVE_LSTAT = 1 ifTrue: [
+ status := self lst: cPathName at: statBufPointer.
+ status ~= 0 ifTrue: [^self cantStatPath].
+ (self S_ISLNK: statBufPointer st_mode) = 0
+ ifFalse: [
+ len := self readLink: cPathName into: cLinkName maxLength: #PATH_MAX.
+ len < 0 ifTrue: [^len].
+ status := self byteArrayFromCString: cLinkName to: fileNameOop]
+ ifTrue:
+ [fileNameOop at: 0 put: interpreterProxy nilObject].
+ ] ifFalse: [ "#HAVE_LSTAT = 1"
+ status := self invalidRequest.
+ ].
- cLinkPtr := self cCode: '(char *) &cLinkName'.
- self cPreprocessorDirective: '#if HAVE_LSTAT == 1'.
- status := self cCode: 'lstat(cPathName, statBufPointer)'.
- (status ~= 0) ifTrue: [^self cantStatPath].
- "status := 0."
- ((self cCode: 'S_ISLNK(statBufPointer->st_mode)') = 0)
- ifFalse: [
- len := self readLink: cPathName into: cLinkPtr maxLength: (self cCode: 'PATH_MAX').
- len < 0 ifTrue: [^len].
- status := self byteArrayFromCString: cLinkPtr to: fileNameOop]
- ifTrue:
- [self cCode: '*fileNameOop = interpreterProxy->nilObject()'].
- self cPreprocessorDirective: '#else'.
- status := self invalidRequest.
- self cPreprocessorDirective: '#endif'.
^status
!
Item was changed:
----- Method: FileAttributesPlugin>>putStatFor:intoBuffer:targetName: (in category 'private - file') -----
putStatFor: cPathName intoBuffer: statBufPointer targetName: fileNameOop
"Call stat() on cPathName, storing the results in
the buffer at statBufPointer."
| status |
<var: 'cPathName' type: 'char *'>
<var: 'statBufPointer' type: 'struct stat *'>
<var: 'fileNameOop' type: 'sqInt *'>
+
+ status := self st: cPathName at: statBufPointer.
+ status ~= 0 ifTrue: [^self cantStatPath].
+ self cppIf: #_WIN32 defined
+ ifTrue: [self offsetStatBufTimesForWIN32: statBufPointer].
+ fileNameOop at: 0 put: interpreterProxy nilObject.
+ ^0!
- self cPreprocessorDirective: '#ifdef WIN32
- TIME_ZONE_INFORMATION dtzi;
- #endif'.
- status :=self cCode: 'stat(cPathName, statBufPointer)'.
- (status ~= 0) ifTrue: [^self cantStatPath].
- self cPreprocessorDirective: '#if defined(WIN32)'.
- status := self cCode: 'GetTimeZoneInformation(&dtzi)'.
- [status = 2] ifTrue: [
- self cCode: 'statBufPointer->st_atime -= 3600'.
- self cCode: 'statBufPointer->st_mtime -= 3600'.
- self cCode: 'statBufPointer->st_ctime -= 3600'.
- ].
- self cPreprocessorDirective: '#endif'.
- self cCode: '*fileNameOop = interpreterProxy->nilObject()'.
- ^0
- !
Item was changed:
----- Method: FileAttributesPlugin>>readLink:into:maxLength: (in category 'private - file') -----
readLink: cPathName into: cLinkPtr maxLength: maxLength
"Get the target filename of the supplied symbolic link."
| len |
- <returnTypeC: 'size_t'>
<var: 'cPathName' type: 'char *'>
<var: 'cLinkPtr' type: 'char *'>
<var: 'maxLength' type: 'size_t'>
+ <var: 'len' type: #sqInt> "len must be signed so that -1 can be communicated as an error."
- <var: 'len' type: 'size_t'>
+ len := self cppIf: #_WIN32 defined
+ ifTrue: [-1]
+ ifFalse: [self read: cPathName li: cLinkPtr nk: maxLength].
- self cPreprocessorDirective: '#if defined(WIN32)'.
- len := -1.
- self cPreprocessorDirective: '#else'.
- len := self cCode: 'readlink(cPathName, cLinkPtr, maxLength)'.
- self cPreprocessorDirective: '#endif'.
len < 0 ifTrue:
+ [self cppIf: #'INDEBUG' defined ifTrue:
+ [self cCode: 'fprintf(stderr, "FileAttributesPlugin: unable to readlink(): %d, errno=%d\n", len, errno)'].
- [self cCode: 'fprintf(stderr, "FileAttributesPlugin: unable to readlink(): %d\n", len)'.
^self cantReadlink].
cLinkPtr at: len put: 0.
+ ^len!
- ^len.!
Item was changed:
----- Method: FileAttributesPlugin>>sizeOfPointer (in category 'private - directory') -----
sizeOfPointer
"Size of a C pointer on this machine"
+ <inline: #always>
- <inline: true>
^self sizeof: #'void *'!
Item was removed:
- ----- Method: FileAttributesPlugin>>smallOrLargeIntegerObjectFor: (in category 'private') -----
- smallOrLargeIntegerObjectFor: aPositiveInteger
- "Answer an Integer object for aPositiveInteger. If the value is too large
- to fit in an SmallInteger, then answer a LargePositiveInteger. Note that
- smallIntegerMaxVal is a class variable with an initialization value determined
- when this class is translated to C code; see my #declareCVarsIn: class method."
-
- (aPositiveInteger > smallIntegerMaxVal)
- ifTrue: [^ interpreterProxy integerObjectOf: aPositiveInteger]
- ifFalse: [^ interpreterProxy positive32BitIntegerFor: aPositiveInteger]
- !
Item was changed:
----- Method: FileAttributesPlugin>>statArrayFor:toArray:from:fileName: (in category 'private - file') -----
statArrayFor: cPathName toArray: attributeArray from: statBufPointer fileName: fileNameOop
"Answer a file entry array from the supplied statBufPointer"
+ | sizeIfFile creationDate status |
- | index sizeIfFile creationDate status |
<var: 'cPathName' type: 'char *'>
<var: 'statBufPointer' type: 'struct stat *'>
<var: 'creationDate' type: 'time_t'>
+ sizeIfFile := (self S_ISDIR: statBufPointer st_mode) = 0
+ ifTrue: [statBufPointer st_size]
+ ifFalse: [0].
- ((self cCode: 'S_ISDIR(statBufPointer->st_mode)') = 0)
- ifTrue:
- [sizeIfFile := self cCode: 'statBufPointer->st_size']
- ifFalse:
- [sizeIfFile := 0].
-
- index := 0.
interpreterProxy
+ storePointer: 0
- storePointer: index
- ofObject: attributeArray
- withValue: fileNameOop.
- index := index + 1. "1"
- interpreterProxy
- storePointer: index
- ofObject: attributeArray
- withValue: (self smallOrLargeIntegerObjectFor:
- (self cCode: 'statBufPointer->st_mode' inSmalltalk: [0])).
- index := index + 1. "2"
- interpreterProxy
- storePointer: index
- ofObject: attributeArray
- withValue: (interpreterProxy positive64BitIntegerFor:
- (self cCode: 'statBufPointer->st_ino' inSmalltalk: [0])).
- index := index + 1. "3"
- interpreterProxy
- storePointer: index
- ofObject: attributeArray
- withValue: (interpreterProxy positive64BitIntegerFor:
- (self cCode: 'statBufPointer->st_dev' inSmalltalk: [0])).
- index := index + 1. "4"
- interpreterProxy
- storePointer: index
- ofObject: attributeArray
- withValue: (interpreterProxy positive64BitIntegerFor:
- (self cCode: 'statBufPointer->st_nlink' inSmalltalk: [0])).
- index := index + 1. "5"
- interpreterProxy
- storePointer: index
- ofObject: attributeArray
- withValue: (self smallOrLargeIntegerObjectFor:
- (self cCode: 'statBufPointer->st_uid' inSmalltalk: [0])).
- index := index + 1. "6"
- interpreterProxy
- storePointer: index
- ofObject: attributeArray
- withValue: (self smallOrLargeIntegerObjectFor:
- (self cCode: 'statBufPointer->st_gid' inSmalltalk: [0])).
- index := index + 1. "7"
- interpreterProxy
- storePointer: index
- ofObject: attributeArray
- withValue: (self smallOrLargeIntegerObjectFor: sizeIfFile).
- index := index + 1. "8"
- interpreterProxy
- storePointer: index
- ofObject: attributeArray
- withValue: (self oopFromTimeT: (self cCode: 'statBufPointer->st_atime')).
- index := index + 1. "9"
- interpreterProxy
- storePointer: index
- ofObject: attributeArray
- withValue: (self oopFromTimeT: (self cCode: 'statBufPointer->st_mtime')).
- index := index + 1. "10"
- interpreterProxy
- storePointer: index
- ofObject: attributeArray
- withValue: (self oopFromTimeT: (self cCode: 'statBufPointer->st_ctime')).
- index := index + 1. "11"
- self cPreprocessorDirective: '#if defined(WIN32)'.
- status := self fileCreationTimeFor: cPathName
- length: cPathName strlen
- to: (self cCode: '&creationDate').
- status = 0 ifTrue:
- [
- interpreterProxy
- storePointer: index
- ofObject: attributeArray
- withValue: (self oopFromTimeT: creationDate).
- ]
- ifFalse:
- [
- interpreterProxy
- storePointer: index
- ofObject: attributeArray
- withValue: (interpreterProxy nilObject).
- ].
- self cPreprocessorDirective: '#else'.
- interpreterProxy
- storePointer: index
ofObject: attributeArray
+ withValue: fileNameOop;
+ storePointer: 1
+ ofObject: attributeArray
+ withValue: (interpreterProxy positiveMachineIntegerFor: statBufPointer st_mode);
+ storePointer: 2
+ ofObject: attributeArray
+ withValue: (interpreterProxy positive64BitIntegerFor: statBufPointer st_ino);
+ storePointer: 3
+ ofObject: attributeArray
+ withValue: (interpreterProxy positive64BitIntegerFor: statBufPointer st_dev);
+ storePointer: 4
+ ofObject: attributeArray
+ withValue: (interpreterProxy positive64BitIntegerFor: statBufPointer st_nlink);
+ storePointer: 5
+ ofObject: attributeArray
+ withValue: (interpreterProxy positiveMachineIntegerFor: statBufPointer st_uid);
+ storePointer: 6
+ ofObject: attributeArray
+ withValue: (interpreterProxy positiveMachineIntegerFor: statBufPointer st_gid);
+ storePointer: 7
+ ofObject: attributeArray
+ withValue: (interpreterProxy positive64BitIntegerFor: sizeIfFile);
+ storePointer: 8
+ ofObject: attributeArray
+ withValue: (self oopFromTimeT: statBufPointer st_atime);
+ storePointer: 9
+ ofObject: attributeArray
+ withValue: (self oopFromTimeT: statBufPointer st_mtime);
+ storePointer: 10
+ ofObject: attributeArray
+ withValue: (self oopFromTimeT: statBufPointer st_ctime).
+ self cppIf: #_WIN32 defined
+ ifTrue:
+ [status := self fileCreationTimeFor: cPathName
+ length: cPathName strlen
+ to: (self addressOf: creationDate put: [:val| creationDate := val]).
+ interpreterProxy
+ storePointer: 11
+ ofObject: attributeArray
+ withValue: (status = 0
+ ifTrue: [self oopFromTimeT: creationDate]
+ ifFalse: [interpreterProxy nilObject])]
+ ifFalse:
+ [interpreterProxy
+ storePointer: 11
+ ofObject: attributeArray
+ withValue: interpreterProxy nilObject].
- withValue: (interpreterProxy nilObject).
- self cPreprocessorDirective: '#endif'.
^0!
Item was changed:
----- Method: FileAttributesPlugin>>statFailed (in category 'errors') -----
statFailed
"A call to stat() failed"
+ <inline: #always>
^-2!
Item was changed:
----- Method: FileAttributesPlugin>>stringFromCString: (in category 'private') -----
stringFromCString: aCString
"Answer a new String copied from a null-terminated C string.
Caution: This may invoke the garbage collector."
| len newString |
<var: 'aCString' type: 'const char *'>
len := self strlen: aCString.
newString := interpreterProxy
instantiateClass: interpreterProxy classString
indexableSize: len.
+ newString ifNil: [^interpreterProxy primitiveFailFor: PrimErrNoMemory].
self st: (interpreterProxy arrayValueOf: newString)
rn: aCString
cpy: len. "(char *)strncpy()"
^ newString
!
Item was changed:
----- Method: FileAttributesPlugin>>stringTooLong (in category 'errors') -----
stringTooLong
"String too long. A file path name was longer than PATH_MAX"
+ <inline: #always>
^-1!
Item was changed:
----- Method: FileAttributesPlugin>>timeConversionFailed (in category 'errors') -----
timeConversionFailed
+ <inline: #always>
-
^-5!
Item was added:
+ ----- Method: FileAttributesPlugin>>unableToCloseDir (in category 'errors') -----
+ unableToCloseDir
+ "The call to closedir() failed"
+ <inline: #always>
+ ^-12!
Item was changed:
----- Method: FileAttributesPlugin>>versionString (in category 'version string') -----
versionString
"Answer a string containing the version string for this plugin."
+ <inline: #always>
+ ^'1.2.6'!
-
- | version |
- <returnTypeC: 'char *'>
- <var: 'version' declareC: 'static char version[]= "1.0.0"'>
- ^ self cCode: 'version' inSmalltalk: ['1.0.0']!
Item was removed:
- ----- Method: FileAttributesPlugin>>wrappedErrorCode: (in category 'private') -----
- wrappedErrorCode: aNumber
- "Answer a single element Array containing the supplied error code."
-
- | newArray |
- newArray := interpreterProxy
- instantiateClass: interpreterProxy classArray
- indexableSize: 1.
- interpreterProxy
- storePointer: 0
- ofObject: newArray
- withValue: (interpreterProxy signed32BitIntegerFor: aNumber).
- ^newArray!
1
0
Eliot Miranda uploaded a new version of FileAttributesPlugin to project VM Maker:
http://source.squeak.org/VMMaker/FileAttributesPlugin.oscog-akg.49.mcz
==================== Summary ====================
Name: FileAttributesPlugin.oscog-akg.49
Author: akg
Time: 21 December 2018, 7:21:36.923596 pm
UUID: 00b4eed5-b2a8-454a-90b7-c3662d7c5423
Ancestors: FileAttributesPlugin.oscog-akg.48
FileAttributesPlugin 2.0.8
Get the plugin simulator working again.
Until the first call to #primitiveFailForOSError:, at which point the simulator fails. Still on the ToDo list...
=============== Diff against FileAttributesPlugin.oscog-akg.48 ===============
Item was changed:
VMStructType subclass: #FAPathPtr
+ instanceVariableNames: 'sessionId faPath plugin'
- instanceVariableNames: 'sessionId faPath'
classVariableNames: ''
poolDictionaries: ''
category: 'FileAttributesPlugin'!
+
+ !FAPathPtr commentStamp: 'akg 12/21/2018 11:42' prior: 0!
+ FAPathPtr simulates the FAPathPtr structure. See platforms/Cross/plugins/FileAttributesPlugin/faCommon.h for details.
+
+ Instance Variables
+ faPath: <Array>
+ plugin: <FileAttributesPlugin>
+ sessionId: <Integer>
+
+ faPath
+ - The simulated fapath, currently an Array.
+
+ plugin
+ - The owning FileAttributesPlugin. In case access to the interpreterProxy is required later on.
+
+ sessionId
+ - As supplied by the VM.
+ !
Item was added:
+ ----- Method: FAPathPtr class>>fromArray:plugin: (in category 'instance creation') -----
+ fromArray: anArray plugin: aFileAttributesPluginSimulator
+
+ ^self new
+ sessionId: anArray first;
+ faPath: anArray second;
+ plugin: aFileAttributesPluginSimulator;
+ yourself!
Item was added:
+ ----- Method: FAPathPtr class>>plugin: (in category 'instance creation') -----
+ plugin: aFileAttributesPlugin
+
+ ^self new
+ plugin: aFileAttributesPlugin;
+ yourself!
Item was added:
+ ----- Method: FAPathPtr>>plugin (in category 'accessing') -----
+ plugin
+
+ ^ plugin!
Item was added:
+ ----- Method: FAPathPtr>>plugin: (in category 'accessing') -----
+ plugin: anObject
+
+ ^ plugin := anObject.!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveChangeMode (in category 'file primitives') -----
primitiveChangeMode
"Set the mode of the supplied file using chmod()."
| fileNameOop newMode status faPath |
<export: true>
<var: 'newMode' type: #'sqInt'>
<var: 'faPath' type: #'fapath'>
fileNameOop := interpreterProxy stackObjectValue: 1.
newMode := interpreterProxy stackIntegerValue: 0.
(interpreterProxy failed
or: [(interpreterProxy isBytes: fileNameOop) not]) ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
self cppIf: #HAVE_CHMOD ifTrue: [
+ self cCode: '' inSmalltalk: [faPath := self simulatedFaPath].
self faSetStPathOop: (self addressOf: faPath) _: fileNameOop.
interpreterProxy failed ifTrue:
[^interpreterProxy primitiveFailureCode].
status := self chmod: (self faGetPlatPath: (self addressOf: faPath)) _: newMode.
status ~= 0 ifTrue:
[^interpreterProxy primitiveFailForOSError: (self cCode: 'errno')].
^interpreterProxy methodReturnValue: interpreterProxy nilObject.
].
^interpreterProxy primitiveFailForOSError: self unsupportedOperation.
!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveChangeOwner (in category 'file primitives') -----
primitiveChangeOwner
"Set the owner of the supplied file using chown()."
| fileNameOop ownerId groupId faPath status |
<export: true>
<var: 'faPath' type: #'fapath'>
fileNameOop := interpreterProxy stackObjectValue: 2.
ownerId := interpreterProxy stackIntegerValue: 1.
groupId := interpreterProxy stackIntegerValue: 0.
(interpreterProxy failed
or: [(interpreterProxy isBytes: fileNameOop) not]) ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
self cppIf: #HAVE_CHOWN ifTrue: [
+ self cCode: '' inSmalltalk: [faPath := self simulatedFaPath].
self faSetStPathOop: (self addressOf: faPath) _: fileNameOop.
interpreterProxy failed ifTrue:
[^interpreterProxy primitiveFailureCode].
status := self chown: (self faGetPlatPath: (self addressOf: faPath)) _: ownerId _: groupId.
status ~= 0 ifTrue:
[^interpreterProxy primitiveFailForOSError: (self cCode: 'errno')].
^interpreterProxy methodReturnValue: interpreterProxy nilObject.
].
^interpreterProxy primitiveFailForOSError: self unsupportedOperation.
!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveClosedir (in category 'file primitives') -----
primitiveClosedir
"Close the directory stream for dirPointerOop. Answer dirPointerOop on success.
Raise PrimErrBadArgument if the parameter is not a ByteArray length size(void *).
If closedir() returns an error raise PrimitiveOSError."
| dirPointerOop faPathPtr faPath result |
<export: true>
<var: 'faPath' type: #'fapath *'>
<var: 'faPathPtr' type: #'FAPathPtr *'>
dirPointerOop := interpreterProxy stackValue: 0.
faPathPtr := self structFromObject: dirPointerOop
+ size: (self cCode: 'sizeof(FAPathPtr)' inSmalltalk: [self sizeOfFaPathPtr]).
- size: (self cCode: 'sizeof(FAPathPtr)').
faPathPtr = 0 ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ self cCode: '' inSmalltalk: [faPathPtr := FAPathPtr fromArray: faPathPtr plugin: self].
(self faValidateSessionId: faPathPtr sessionId) ifFalse:
[^interpreterProxy primitiveFailForOSError: self badSessionId].
faPath := faPathPtr faPath.
result := self faCloseDirectory: faPath.
+ self faInvalidateSessionId: (self cCode: '&faPathPtr->sessionId' inSmalltalk: [faPathPtr]).
- self faInvalidateSessionId: (self addressOf: faPathPtr sessionId).
result = 0 ifFalse:
[^interpreterProxy primitiveFailForOSError: result].
self free: faPath.
interpreterProxy methodReturnValue: dirPointerOop!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveFileAttribute (in category 'file primitives') -----
primitiveFileAttribute
"Answer a single file attribute.
primFileAttributes: aString attributeNumber: attributeNumber
aString is the path to the file
attributeNumber identifies which attribute to return:
1 - 12: stat(): name, mode, ino, dev, nlink, uid, gid, size, accessDate, modifiedDate, changeDate, creationDate
13 - 15: access(): R_OK, W_OK, X_OK
16: isSymlink
On error, answer a single element array containing the appropriate error code."
| fileName attributeNumber resultOop faPath |
<export: true>
<var: 'faPath' type: #'fapath'>
fileName := interpreterProxy stackObjectValue: 1.
attributeNumber := interpreterProxy stackIntegerValue: 0.
(interpreterProxy failed
or: [(attributeNumber between: 1 and: 16) not
or: [(interpreterProxy isBytes: fileName) not]]) ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ self cCode: '' inSmalltalk: [faPath := self simulatedFaPath].
self faSetStPathOop: (self addressOf: faPath) _: fileName.
interpreterProxy failed ifTrue:
[^interpreterProxy primitiveFailureCode].
resultOop := self faFileAttribute: (self addressOf: faPath) _: attributeNumber.
interpreterProxy failed ifTrue:
[^interpreterProxy primitiveFailureCode].
resultOop = 0
ifTrue: ["It shouldn't be possible to get here"
interpreterProxy primitiveFailForOSError: self unexpectedError]
ifFalse: [interpreterProxy methodReturnValue: resultOop]!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveFileAttributes (in category 'file primitives') -----
primitiveFileAttributes
"Answer an array of file attributes.
primFileAttributes: aString mask: attributeMask
aString is the path to the file
attributeMask indicates which attributes to retrieve:
bit 0 - get stat() attributes
bit 1 - get access() attributes
bit 2 - use lstat() instead of stat()
On error answer the appropriate error code (Integer)"
| fileName attributeMask faPath status resultOop |
<export: true>
<var: 'faPath' type: #'fapath'>
fileName := interpreterProxy stackObjectValue: 1.
attributeMask := interpreterProxy stackIntegerValue: 0.
(interpreterProxy failed
or: [(interpreterProxy isBytes: fileName) not]) ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ self cCode: '' inSmalltalk: [faPath := self simulatedFaPath].
self faSetStPathOop: (self addressOf: faPath) _: fileName.
interpreterProxy failed ifTrue:
[^interpreterProxy primitiveFailureCode].
status := self attributeArray: (self addressOf: resultOop put: [ :val | resultOop := val])
for: (self addressOf: faPath)
mask: attributeMask.
status ~= 0 ifTrue:
[^interpreterProxy primitiveFailForOSError: status].
^interpreterProxy methodReturnValue: resultOop!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveFileExists (in category 'file primitives') -----
primitiveFileExists
"Check for existence of a file with a call to access()."
| fileNameOop faPath resultOop |
<export: true>
<var: 'faPath'type: #'fapath'>
+ self cCode: '' inSmalltalk: [faPath := self simulatedFaPath].
fileNameOop := interpreterProxy stackObjectValue: 0.
(interpreterProxy isBytes: fileNameOop) ifFalse:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
self faSetStPathOop: (self addressOf: faPath) _: fileNameOop.
interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailureCode].
resultOop := self faExists: (self addressOf: faPath).
^interpreterProxy methodReturnValue: resultOop.
!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveOpendir (in category 'file primitives') -----
primitiveOpendir
"Open the supplied directory and answer the first entry and directory pointer.
If the directory is empty, answer nil as the first entry.
If the directory can't be opened, answer an error (cantOpenDir)"
"self primOpendir: '/etc'"
| dirName faPath faPathPtr dirOop status resultOop |
<export: true>
<var: 'faPath' type: #'fapath *'>
<var: 'faPathPtr' type: #'FAPathPtr'>
-
"Process the parameters"
dirName := interpreterProxy stackObjectValue: 0.
(interpreterProxy isBytes: dirName) ifFalse:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
"Allocate and initialise faPath"
faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'
inSmalltalk: [self simulatedFaPath].
faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory].
self faSetStDirOop: faPath _: dirName.
interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailureCode].
(self canOpenDirectoryStreamFor: (self faGetStPath: faPath) length: (self faGetStPathLen: faPath)) ifFalse: [
self free: faPath.
^interpreterProxy primitiveFailForOSError: self cantOpenDir].
"Open the directory and process the first entry"
status := self faOpenDirectory: faPath.
status = self noMoreData ifTrue: [
self free: faPath.
^interpreterProxy methodReturnValue: interpreterProxy nilObject].
status < 0 ifTrue: [
self free: faPath.
^interpreterProxy primitiveFailForOSError: status].
resultOop := self processDirectory: faPath.
interpreterProxy failed ifTrue: [
self free: faPath.
^interpreterProxy primitiveFailureCode ].
"Set the faPathPtr"
+ self cCode: '' inSmalltalk: [faPathPtr := FAPathPtr plugin: self].
+ self faInitSessionId: (self cCode: '&faPathPtr.sessionId' inSmalltalk: [faPathPtr]).
- self faInitSessionId: (self addressOf: faPathPtr sessionId).
faPathPtr faPath: faPath.
self remapOop: resultOop in:
[ dirOop := self objectFromStruct: (self addressOf: faPathPtr) size: self sizeOfFaPathPtr ].
^interpreterProxy
storePointer: 2 ofObject: resultOop withValue: dirOop;
methodReturnValue: resultOop.!
Item was changed:
----- Method: FileAttributesPlugin>>primitivePlatToStPath (in category 'file primitives') -----
primitivePlatToStPath
"Convert the supplied file name (platform encoded) to the St UTF8 encoded byte array"
| fileName faPath resultOop byteArrayPtr |
<export: true>
<var: 'faPath' type: #'fapath'>
<var: 'byteArrayPtr' type: #'unsigned char *'>
fileName := interpreterProxy stackObjectValue: 0.
(interpreterProxy failed
or: [(interpreterProxy isBytes: fileName) not]) ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ self cCode: '' inSmalltalk: [faPath := self simulatedFaPath].
self faSetPlatPathOop: (self addressOf: faPath) _: fileName.
interpreterProxy failed ifTrue:
[^interpreterProxy primitiveFailureCode].
resultOop := interpreterProxy
instantiateClass: interpreterProxy classByteArray
indexableSize: (self faGetStPathLen: (self addressOf: faPath)).
resultOop ifNil: [^interpreterProxy primitiveFailFor: PrimErrNoMemory].
byteArrayPtr := interpreterProxy arrayValueOf: resultOop.
self memcpy: byteArrayPtr
_: (self faGetStPath: (self addressOf: faPath))
_: (self faGetStPathLen: (self addressOf: faPath)).
^interpreterProxy methodReturnValue: resultOop.
!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveReaddir (in category 'file primitives') -----
primitiveReaddir
"Get the next entry in the directory stream. Answer the name of the entry, or
nil for the end of the directory stream.
Arguments:
- directoryPointer (ByteArray)"
| dirPointerOop faPathPtr faPath resultArray status |
<export: true>
<var: 'faPath' type: #'fapath *'>
<var: 'faPathPtr' type: #'FAPathPtr *'>
-
dirPointerOop := interpreterProxy stackValue: 0.
faPathPtr := self structFromObject: dirPointerOop
+ size: (self cCode: 'sizeof(FAPathPtr)' inSmalltalk: [self sizeOfFaPathPtr]).
- size: (self cCode: 'sizeof(FAPathPtr)').
faPathPtr = 0 ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ self cCode: '' inSmalltalk: [faPathPtr := FAPathPtr fromArray: faPathPtr plugin: self].
(self faValidateSessionId: faPathPtr sessionId) ifFalse:
[^interpreterProxy primitiveFailForOSError: self badSessionId].
faPath := faPathPtr faPath.
status := self faReadDirectory: faPath.
status = self noMoreData ifTrue:
[^interpreterProxy methodReturnValue: interpreterProxy nilObject].
status < 0 ifTrue:
[^interpreterProxy primitiveFailForOSError: status].
resultArray := self processDirectory: faPath.
"no need to check the status of #processDirectory: as it will have flagged an error with interpreterProxy"
^interpreterProxy methodReturnValue: resultArray.
!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveRewinddir (in category 'file primitives') -----
primitiveRewinddir
"Set directoryStream to first entry. Answer dirPointerOop."
| dirPointerOop faPathPtr faPath status resultOop |
<export: true>
<var: 'faPath' type: #'fapath *'>
<var: 'faPathPtr' type: #'FAPathPtr *'>
dirPointerOop := interpreterProxy stackValue: 0.
faPathPtr := self structFromObject: dirPointerOop
+ size: (self cCode: 'sizeof(FAPathPtr)' inSmalltalk: [self sizeOfFaPathPtr]).
- size: (self cCode: 'sizeof(FAPathPtr)').
faPathPtr = 0 ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ self cCode: '' inSmalltalk: [faPathPtr := FAPathPtr fromArray: faPathPtr plugin: self].
(self faValidateSessionId: faPathPtr sessionId) ifFalse:
[^interpreterProxy primitiveFailForOSError: self badSessionId].
faPath := faPathPtr faPath.
status := self faRewindDirectory: faPath.
status < 0 ifTrue:
[^interpreterProxy primitiveFailForOSError: status].
resultOop := self processDirectory: faPath.
"no need to check the status of #processDirectory: as it will have flagged an error with interpreterProxy"
^interpreterProxy methodReturnValue: resultOop.!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveStToPlatPath (in category 'file primitives') -----
primitiveStToPlatPath
"Convert the supplied file name (UTF8 encoded) to the platform encoded byte array"
| fileName faPath resultOop byteArrayPtr |
<export: true>
<var: 'faPath' type: #'fapath'>
<var: 'byteArrayPtr' type: #'unsigned char *'>
fileName := interpreterProxy stackObjectValue: 0.
(interpreterProxy failed
or: [(interpreterProxy isBytes: fileName) not]) ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ self cCode: '' inSmalltalk: [faPath := self simulatedFaPath].
self faSetStPathOop: (self addressOf: faPath) _: fileName.
interpreterProxy failed ifTrue:
[^interpreterProxy primitiveFailureCode].
resultOop := interpreterProxy
instantiateClass: interpreterProxy classByteArray
indexableSize: (self faGetPlatPathByteCount: (self addressOf: faPath)).
resultOop ifNil: [^interpreterProxy primitiveFailFor: PrimErrNoMemory].
byteArrayPtr := interpreterProxy arrayValueOf: resultOop.
self memcpy: byteArrayPtr
_: (self faGetPlatPath: (self addressOf: faPath))
_: (self faGetPlatPathByteCount: (self addressOf: faPath)).
^interpreterProxy methodReturnValue: resultOop.
!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveSymlinkChangeOwner (in category 'file primitives') -----
primitiveSymlinkChangeOwner
"Set the owner of the supplied file using chown()."
| fileNameOop ownerId groupId faPath status |
<export: true>
<var: 'faPath' type: #'fapath'>
fileNameOop := interpreterProxy stackObjectValue: 2.
ownerId := interpreterProxy stackIntegerValue: 1.
groupId := interpreterProxy stackIntegerValue: 0.
(interpreterProxy failed
or: [(interpreterProxy isBytes: fileNameOop) not]) ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
self cppIf: #HAVE_CHOWN ifTrue: [
+ self cCode: '' inSmalltalk: [faPath := self simulatedFaPath].
self faSetStPathOop: (self addressOf: faPath) _: fileNameOop.
interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailureCode].
status := self lchown: (self faGetPlatPath: (self addressOf: faPath)) _: ownerId _: groupId.
status ~= 0 ifTrue:
[^interpreterProxy primitiveFailForOSError: (self cCode: 'errno')].
^interpreterProxy methodReturnValue: interpreterProxy nilObject.
].
^interpreterProxy primitiveFailForOSError: self unsupportedOperation.
!
Item was changed:
----- Method: FileAttributesPlugin>>versionString (in category 'version string') -----
versionString
"Answer a string containing the version string for this plugin."
<inline: #always>
+ ^'2.0.8'!
- ^'2.0.7.1'!
Item was changed:
----- Method: FileAttributesPluginSimulator>>faFileAttribute:_: (in category 'simulation') -----
faFileAttribute: faPath _: attributeNumber
"Simulate the the call by actually calling the primitive."
+ | result |
+
+ result := self primFileAttribute: (self faGetStPath: faPath) number: attributeNumber.
+ result isNumber ifTrue: [interpreterProxy primitiveFailForOSError: result].
+ ^self toOop: result!
- ^self toOop: (self primFileAttribute: (self faGetStPath: faPath) number: attributeNumber)!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faFileStatAttributes:_:_: (in category 'simulation') -----
+ faFileStatAttributes: faPath _: getLinkStats _: attributeArray
+ "Simulate the call to faFileStatAttributes().
+ The simulator uses a dictionary with keys named after the stat structure members."
+
+ | path primArray mask |
+
+ path := self faGetStPath: faPath.
+ mask := getLinkStats
+ ifTrue: [5] "lstat()"
+ ifFalse: [1]. "stat()"
+ primArray := self primFileAttributes: path mask: 1.
+ primArray isNumber ifTrue: [^primArray].
+ primArray doWithIndex: [ :entry :index |
+ interpreterProxy
+ storePointer: index - 1
+ ofObject: attributeArray
+ withValue: (self toOop: entry)].
+ ^0!
Item was changed:
----- Method: FileAttributesPluginSimulator>>faInitSessionId: (in category 'simulation') -----
faInitSessionId: faPathPtr
+ "Set the session id in the supplied pointer"
- "Set the session id in the supplied pointer (a 2 element array in the simulation)"
+ faPathPtr sessionId: interpreterProxy getThisSessionID.
- faPathPtr at: 1 put: interpreterProxy getThisSessionID.
^self faSuccess!
Item was changed:
----- Method: FileAttributesPluginSimulator>>faInvalidateSessionId: (in category 'simulation') -----
faInvalidateSessionId: faPathPtr
"Clear the session ID in the faPathPtr, marking it invalid"
+ faPathPtr sessionId: nil.
- faPathPtr at: 1 put: nil.
^self faSuccess!
Item was changed:
----- Method: FileAttributesPluginSimulator>>toOop: (in category 'simulation support') -----
toOop: anObject
"Convert the supplied simulation object to an object in the simulated image (oop).
Use a horrible series of class comparisons to keep it all local for now"
| resultOop resultBytes |
anObject class == Array ifTrue: [
resultOop := interpreterProxy
+ instantiateClass: interpreterProxy classArray
- instantiateClass: (interpreterProxy classArray)
indexableSize: anObject size.
1 to: anObject size do: [ :i |
interpreterProxy
storePointer: i-1
ofObject: resultOop
withValue: (self toOop: (anObject at: i))].
^resultOop].
anObject class == ByteArray ifTrue: [
resultOop := interpreterProxy
+ instantiateClass: interpreterProxy classByteArray
- instantiateClass: (interpreterProxy classByteArray)
indexableSize: anObject size.
resultBytes := interpreterProxy arrayValueOf: resultOop.
1 to: anObject size do: [ :i |
interpreterProxy byteAt: resultBytes+i-1 put: (anObject at: i)].
^resultOop].
(anObject isKindOf: Boolean) ifTrue: [
^anObject
ifTrue: [interpreterProxy trueObject]
ifFalse: [interpreterProxy falseObject].
].
anObject isInteger ifTrue: [
(anObject between: -2147483648 and: 2147483648) ifTrue:
[^interpreterProxy signed32BitIntegerFor: anObject].
^anObject > 0
ifTrue: [interpreterProxy positive64BitIntegerFor: anObject]
ifFalse: [interpreterProxy signed64BitIntegerFor: anObject]].
anObject == nil ifTrue:
[^interpreterProxy nilObject].
+ anObject class == FAPathPtr ifTrue: [
+ resultOop := interpreterProxy
+ instantiateClass: interpreterProxy classArray
+ indexableSize: 2.
+ interpreterProxy
+ storePointer: 0
+ ofObject: resultOop
+ withValue: (self toOop: anObject sessionId).
+ interpreterProxy
+ storePointer: 1
+ ofObject: resultOop
+ withValue: (self toOop: anObject faPath).
+ ^resultOop].
self error: 'unknown object type'.!
1
0
Eliot Miranda uploaded a new version of FileAttributesPlugin to project VM Maker:
http://source.squeak.org/VMMaker/FileAttributesPlugin.oscog-akg.48.mcz
==================== Summary ====================
Name: FileAttributesPlugin.oscog-akg.48
Author: akg
Time: 20 December 2018, 7:50:35.778942 am
UUID: a0562f0c-0958-460c-805b-634eb9dfcdbd
Ancestors: FileAttributesPlugin.oscog-akg.47
FileAttributesPlugin
Add FAPathPtr (subclass of VMStructType) to model the C type of the same name.
This is used to hold the pointer to the fapath while iterating over directories, with a session id to ensure that a stale pointer is never used.
=============== Diff against FileAttributesPlugin.oscog-akg.47 ===============
Item was added:
+ VMStructType subclass: #FAPathPtr
+ instanceVariableNames: 'sessionId faPath'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'FileAttributesPlugin'!
Item was added:
+ ----- Method: FAPathPtr class>>instVarNamesAndTypesForTranslationDo: (in category 'translation') -----
+ instVarNamesAndTypesForTranslationDo: aBinaryBlock
+ "Define a CallbackContext, the argument to sendInvokeCallbackContext:
+ self typedef"
+
+ self instVarNames do:
+ [:ivn|
+ aBinaryBlock
+ value: ivn
+ value: (ivn caseOf: {
+ ['sessionId'] -> [#'int'].
+ ['faPath'] -> [#'fapath *']}
+ otherwise: [#'void *'])]!
Item was added:
+ ----- Method: FAPathPtr>>faPath (in category 'accessing') -----
+ faPath
+
+ ^ faPath!
Item was added:
+ ----- Method: FAPathPtr>>faPath: (in category 'accessing') -----
+ faPath: anObject
+
+ ^ faPath := anObject.!
Item was added:
+ ----- Method: FAPathPtr>>sessionId (in category 'accessing') -----
+ sessionId
+
+ ^ sessionId!
Item was added:
+ ----- Method: FAPathPtr>>sessionId: (in category 'accessing') -----
+ sessionId: anObject
+
+ ^ sessionId := anObject.!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveClosedir (in category 'file primitives') -----
primitiveClosedir
"Close the directory stream for dirPointerOop. Answer dirPointerOop on success.
Raise PrimErrBadArgument if the parameter is not a ByteArray length size(void *).
If closedir() returns an error raise PrimitiveOSError."
| dirPointerOop faPathPtr faPath result |
<export: true>
<var: 'faPath' type: #'fapath *'>
+ <var: 'faPathPtr' type: #'FAPathPtr *'>
- <var: 'faPathPtr' type: #'fapathptr *'>
dirPointerOop := interpreterProxy stackValue: 0.
faPathPtr := self structFromObject: dirPointerOop
+ size: (self cCode: 'sizeof(FAPathPtr)').
- size: (self cCode: 'sizeof(fapathptr)').
faPathPtr = 0 ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ (self faValidateSessionId: faPathPtr sessionId) ifFalse:
+ [^interpreterProxy primitiveFailForOSError: self badSessionId].
+ faPath := faPathPtr faPath.
- (self faValidateSessionId: (self cCode: 'faPathPtr->sessionId' inSmalltalk: [faPathPtr first])) ifFalse:
- [^interpreterProxy primitiveFailFor: PrimErrBadArgument].
- faPath := self cCode: 'faPathPtr->faPath' inSmalltalk: [faPathPtr second].
result := self faCloseDirectory: faPath.
+ self faInvalidateSessionId: (self addressOf: faPathPtr sessionId).
- self faInvalidateSessionId: (self cCode: '&faPathPtr->sessionId' inSmalltalk: [faPathPtr]).
result = 0 ifFalse:
[^interpreterProxy primitiveFailForOSError: result].
self free: faPath.
interpreterProxy methodReturnValue: dirPointerOop!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveOpendir (in category 'file primitives') -----
primitiveOpendir
"Open the supplied directory and answer the first entry and directory pointer.
If the directory is empty, answer nil as the first entry.
If the directory can't be opened, answer an error (cantOpenDir)"
"self primOpendir: '/etc'"
| dirName faPath faPathPtr dirOop status resultOop |
<export: true>
<var: 'faPath' type: #'fapath *'>
+ <var: 'faPathPtr' type: #'FAPathPtr'>
- <var: 'faPathPtr' type: #'fapathptr'>
"Process the parameters"
dirName := interpreterProxy stackObjectValue: 0.
(interpreterProxy isBytes: dirName) ifFalse:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
"Allocate and initialise faPath"
faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'
inSmalltalk: [self simulatedFaPath].
faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory].
self faSetStDirOop: faPath _: dirName.
interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailureCode].
(self canOpenDirectoryStreamFor: (self faGetStPath: faPath) length: (self faGetStPathLen: faPath)) ifFalse: [
self free: faPath.
^interpreterProxy primitiveFailForOSError: self cantOpenDir].
"Open the directory and process the first entry"
status := self faOpenDirectory: faPath.
status = self noMoreData ifTrue: [
self free: faPath.
^interpreterProxy methodReturnValue: interpreterProxy nilObject].
status < 0 ifTrue: [
self free: faPath.
^interpreterProxy primitiveFailForOSError: status].
resultOop := self processDirectory: faPath.
interpreterProxy failed ifTrue: [
self free: faPath.
^interpreterProxy primitiveFailureCode ].
"Set the faPathPtr"
+ self faInitSessionId: (self addressOf: faPathPtr sessionId).
+ faPathPtr faPath: faPath.
- self faInitSessionId: (self cCode: '&faPathPtr.sessionId' inSmalltalk: [faPathPtr := Array new: 2]).
- self cCode: 'faPathPtr.faPath = faPath'
- inSmalltalk: [faPathPtr at: 2 put: faPath].
self remapOop: resultOop in:
[ dirOop := self objectFromStruct: (self addressOf: faPathPtr) size: self sizeOfFaPathPtr ].
^interpreterProxy
storePointer: 2 ofObject: resultOop withValue: dirOop;
methodReturnValue: resultOop.!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveReaddir (in category 'file primitives') -----
primitiveReaddir
"Get the next entry in the directory stream. Answer the name of the entry, or
nil for the end of the directory stream.
Arguments:
- directoryPointer (ByteArray)"
| dirPointerOop faPathPtr faPath resultArray status |
<export: true>
<var: 'faPath' type: #'fapath *'>
+ <var: 'faPathPtr' type: #'FAPathPtr *'>
- <var: 'faPathPtr' type: #'fapathptr *'>
dirPointerOop := interpreterProxy stackValue: 0.
faPathPtr := self structFromObject: dirPointerOop
+ size: (self cCode: 'sizeof(FAPathPtr)').
- size: (self cCode: 'sizeof(fapathptr)').
faPathPtr = 0 ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ (self faValidateSessionId: faPathPtr sessionId) ifFalse:
- (self faValidateSessionId: (self cCode: 'faPathPtr->sessionId' inSmalltalk: [faPathPtr first])) ifFalse:
[^interpreterProxy primitiveFailForOSError: self badSessionId].
+ faPath := faPathPtr faPath.
- faPath := self cCode: 'faPathPtr->faPath' inSmalltalk: [faPathPtr second].
status := self faReadDirectory: faPath.
status = self noMoreData ifTrue:
[^interpreterProxy methodReturnValue: interpreterProxy nilObject].
status < 0 ifTrue:
[^interpreterProxy primitiveFailForOSError: status].
resultArray := self processDirectory: faPath.
"no need to check the status of #processDirectory: as it will have flagged an error with interpreterProxy"
^interpreterProxy methodReturnValue: resultArray.
!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveRewinddir (in category 'file primitives') -----
primitiveRewinddir
"Set directoryStream to first entry. Answer dirPointerOop."
| dirPointerOop faPathPtr faPath status resultOop |
<export: true>
<var: 'faPath' type: #'fapath *'>
+ <var: 'faPathPtr' type: #'FAPathPtr *'>
- <var: 'faPathPtr' type: #'fapathptr *'>
dirPointerOop := interpreterProxy stackValue: 0.
faPathPtr := self structFromObject: dirPointerOop
+ size: (self cCode: 'sizeof(FAPathPtr)').
- size: (self cCode: 'sizeof(fapathptr)').
faPathPtr = 0 ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ (self faValidateSessionId: faPathPtr sessionId) ifFalse:
+ [^interpreterProxy primitiveFailForOSError: self badSessionId].
+ faPath := faPathPtr faPath.
- (self faValidateSessionId: (self cCode: 'faPathPtr->sessionId' inSmalltalk: [faPathPtr first])) ifFalse:
- [^interpreterProxy primitiveFailFor: PrimErrBadArgument].
- faPath := self cCode: 'faPathPtr->faPath' inSmalltalk: [faPathPtr second].
status := self faRewindDirectory: faPath.
status < 0 ifTrue:
[^interpreterProxy primitiveFailForOSError: status].
resultOop := self processDirectory: faPath.
"no need to check the status of #processDirectory: as it will have flagged an error with interpreterProxy"
^interpreterProxy methodReturnValue: resultOop.!
Item was changed:
----- Method: FileAttributesPlugin>>sizeOfFaPathPtr (in category 'private') -----
sizeOfFaPathPtr
"Answer the size of fapathptr.
The simulation uses a two element array."
+ ^self cCode: 'sizeof(FAPathPtr)'
- ^self cCode: 'sizeof(fapathptr)'
inSmalltalk: [2].!
Item was changed:
----- Method: FileAttributesPlugin>>versionString (in category 'version string') -----
versionString
"Answer a string containing the version string for this plugin."
<inline: #always>
+ ^'2.0.7.1'!
- ^'2.0.7'!
1
0
Eliot Miranda uploaded a new version of FileAttributesPlugin to project VM Maker:
http://source.squeak.org/VMMaker/FileAttributesPlugin.oscog-akg.47.mcz
==================== Summary ====================
Name: FileAttributesPlugin.oscog-akg.47
Author: akg
Time: 19 December 2018, 8:21:00.365149 am
UUID: 352a23fa-7521-49aa-8801-e32b80394b9d
Ancestors: FileAttributesPlugin.oscog-akg.46
FileAttributesPlugin 2.0.7
Move some allocations from the heap to the stack.
These allocations where never used outside the context of the allocating routine, so can be on the stack instead.
=============== Diff against FileAttributesPlugin.oscog-akg.46 ===============
Item was changed:
+ ----- Method: FileAttributesPlugin>>attributeArray:for:mask: (in category 'private') -----
- ----- Method: FileAttributesPlugin>>attributeArray:for:mask: (in category 'file primitives') -----
attributeArray: attributeArrayPtr for: faPath mask: attributeMask
"Create the attributes array for the specified file (faPath) and set attributeArrayPtr.
Which attributes are retrieved are specified in attributeMask.
On error, set the error in interpreterProxy and answer the appropriate status (some callers check the status, others interpreterProxy)"
| status getAccess getStats getLinkStats attributeArray accessArray resultOop |
<var: 'faPath' type: #'fapath *'>
<var: 'attributeArrayPtr' type: #'sqInt *'>
"Determine which attributes to retrieve"
getStats := attributeMask anyMask: 1.
getAccess := attributeMask anyMask: 2.
(getStats or: [getAccess]) ifFalse:
["No information has been requested, which doesn't make sense"
interpreterProxy primitiveFailForOSError: self invalidArguments.
^self invalidArguments].
getLinkStats := attributeMask anyMask: 4.
getStats ifTrue:
[ attributeArray := interpreterProxy instantiateClass: interpreterProxy classArray indexableSize: 13.
attributeArray ifNil:
[interpreterProxy primitiveFailFor: PrimErrNoMemory.
^self interpreterError].
self remapOop: attributeArray in:
[status := self faFileStatAttributes: faPath _: getLinkStats _: attributeArray].
status ~= 0 ifTrue:
[^status].
"Set resultOop in case only stat attributes have been requested"
resultOop := attributeArray ].
getAccess ifTrue:
[self remapOop: attributeArray in:
[accessArray := interpreterProxy instantiateClass: interpreterProxy classArray indexableSize: 3].
accessArray ifNil:
[interpreterProxy primitiveFailFor: PrimErrNoMemory.
self interpreterError].
self faAccessAttributes: faPath _: accessArray _: 0.
interpreterProxy failed ifTrue:
[^self interpreterError].
"Set resultOop in case only access attributes have been requested"
resultOop := accessArray ].
(getStats and: [getAccess]) ifTrue:
[self remapOop: #(attributeArray accessArray) in:
[resultOop := interpreterProxy instantiateClass: interpreterProxy classArray indexableSize: 2].
resultOop ifNil:
[interpreterProxy primitiveFailFor: PrimErrNoMemory.
self interpreterError].
interpreterProxy
storePointer: 0 ofObject: resultOop withValue: attributeArray;
storePointer: 1 ofObject: resultOop withValue: accessArray
].
attributeArrayPtr at: 0 put: resultOop.
^self faSuccess!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveChangeMode (in category 'file primitives') -----
primitiveChangeMode
"Set the mode of the supplied file using chmod()."
| fileNameOop newMode status faPath |
<export: true>
<var: 'newMode' type: #'sqInt'>
+ <var: 'faPath' type: #'fapath'>
- <var: 'faPath' type: #'fapath *'>
fileNameOop := interpreterProxy stackObjectValue: 1.
newMode := interpreterProxy stackIntegerValue: 0.
(interpreterProxy failed
or: [(interpreterProxy isBytes: fileNameOop) not]) ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
self cppIf: #HAVE_CHMOD ifTrue: [
+ self faSetStPathOop: (self addressOf: faPath) _: fileNameOop.
+ interpreterProxy failed ifTrue:
+ [^interpreterProxy primitiveFailureCode].
- faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'
- inSmalltalk: [self simulatedFaPath].
- faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory].
- self faSetStPathOop: faPath _: fileNameOop.
- interpreterProxy failed ifTrue: [
- self free: faPath.
- ^interpreterProxy primitiveFailureCode].
+ status := self chmod: (self faGetPlatPath: (self addressOf: faPath)) _: newMode.
+ status ~= 0 ifTrue:
+ [^interpreterProxy primitiveFailForOSError: (self cCode: 'errno')].
- status := self chmod: (self faGetPlatPath: faPath) _: newMode.
- self free: faPath.
- status ~= 0 ifTrue: [
- ^interpreterProxy primitiveFailForOSError: (self cCode: 'errno')].
^interpreterProxy methodReturnValue: interpreterProxy nilObject.
].
^interpreterProxy primitiveFailForOSError: self unsupportedOperation.
!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveChangeOwner (in category 'file primitives') -----
primitiveChangeOwner
"Set the owner of the supplied file using chown()."
| fileNameOop ownerId groupId faPath status |
<export: true>
+ <var: 'faPath' type: #'fapath'>
- <var: 'faPath' type: #'fapath *'>
fileNameOop := interpreterProxy stackObjectValue: 2.
ownerId := interpreterProxy stackIntegerValue: 1.
groupId := interpreterProxy stackIntegerValue: 0.
(interpreterProxy failed
or: [(interpreterProxy isBytes: fileNameOop) not]) ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
self cppIf: #HAVE_CHOWN ifTrue: [
+ self faSetStPathOop: (self addressOf: faPath) _: fileNameOop.
+ interpreterProxy failed ifTrue:
+ [^interpreterProxy primitiveFailureCode].
- faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'
- inSmalltalk: [self simulatedFaPath].
- faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory].
- self faSetStPathOop: faPath _: fileNameOop.
- interpreterProxy failed ifTrue: [
- self free: faPath.
- ^interpreterProxy primitiveFailureCode].
+ status := self chown: (self faGetPlatPath: (self addressOf: faPath)) _: ownerId _: groupId.
+ status ~= 0 ifTrue:
+ [^interpreterProxy primitiveFailForOSError: (self cCode: 'errno')].
- status := self chown: (self faGetPlatPath: faPath) _: ownerId _: groupId.
- self free: faPath.
- status ~= 0 ifTrue: [
- ^interpreterProxy primitiveFailForOSError: (self cCode: 'errno')].
^interpreterProxy methodReturnValue: interpreterProxy nilObject.
].
^interpreterProxy primitiveFailForOSError: self unsupportedOperation.
!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveClosedir (in category 'file primitives') -----
primitiveClosedir
"Close the directory stream for dirPointerOop. Answer dirPointerOop on success.
Raise PrimErrBadArgument if the parameter is not a ByteArray length size(void *).
If closedir() returns an error raise PrimitiveOSError."
| dirPointerOop faPathPtr faPath result |
<export: true>
<var: 'faPath' type: #'fapath *'>
<var: 'faPathPtr' type: #'fapathptr *'>
dirPointerOop := interpreterProxy stackValue: 0.
+ faPathPtr := self structFromObject: dirPointerOop
+ size: (self cCode: 'sizeof(fapathptr)').
- faPathPtr := self cCode: '(fapathptr *)structFromObjectsize(dirPointerOop, sizeof(fapathptr))'
- inSmalltalk: [self structFromObject: dirPointerOop size: self sizeOfFaPathPtr].
faPathPtr = 0 ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
(self faValidateSessionId: (self cCode: 'faPathPtr->sessionId' inSmalltalk: [faPathPtr first])) ifFalse:
+ [^interpreterProxy primitiveFailFor: PrimErrBadArgument].
- [self free: faPathPtr.
- ^interpreterProxy primitiveFailFor: PrimErrBadArgument].
faPath := self cCode: 'faPathPtr->faPath' inSmalltalk: [faPathPtr second].
result := self faCloseDirectory: faPath.
self faInvalidateSessionId: (self cCode: '&faPathPtr->sessionId' inSmalltalk: [faPathPtr]).
result = 0 ifFalse:
[^interpreterProxy primitiveFailForOSError: result].
- self free: faPathPtr.
self free: faPath.
+ interpreterProxy methodReturnValue: dirPointerOop!
- interpreterProxy pop: 2 thenPush: dirPointerOop!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveFileAttribute (in category 'file primitives') -----
primitiveFileAttribute
"Answer a single file attribute.
primFileAttributes: aString attributeNumber: attributeNumber
aString is the path to the file
attributeNumber identifies which attribute to return:
1 - 12: stat(): name, mode, ino, dev, nlink, uid, gid, size, accessDate, modifiedDate, changeDate, creationDate
13 - 15: access(): R_OK, W_OK, X_OK
16: isSymlink
On error, answer a single element array containing the appropriate error code."
| fileName attributeNumber resultOop faPath |
<export: true>
+ <var: 'faPath' type: #'fapath'>
- <var: 'faPath' type: #'fapath *'>
fileName := interpreterProxy stackObjectValue: 1.
attributeNumber := interpreterProxy stackIntegerValue: 0.
(interpreterProxy failed
or: [(attributeNumber between: 1 and: 16) not
or: [(interpreterProxy isBytes: fileName) not]]) ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ self faSetStPathOop: (self addressOf: faPath) _: fileName.
+ interpreterProxy failed ifTrue:
+ [^interpreterProxy primitiveFailureCode].
- faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'
- inSmalltalk: [self simulatedFaPath].
- faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory].
- self faSetStPathOop: faPath _: fileName.
- interpreterProxy failed ifTrue: [
- self free: faPath.
- ^interpreterProxy primitiveFailureCode].
+ resultOop := self faFileAttribute: (self addressOf: faPath) _: attributeNumber.
+ interpreterProxy failed ifTrue:
+ [^interpreterProxy primitiveFailureCode].
- resultOop := self faFileAttribute: faPath _: attributeNumber.
- self free: faPath.
- interpreterProxy failed ifTrue: [
- ^interpreterProxy primitiveFailureCode].
resultOop = 0
ifTrue: ["It shouldn't be possible to get here"
interpreterProxy primitiveFailForOSError: self unexpectedError]
ifFalse: [interpreterProxy methodReturnValue: resultOop]!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveFileAttributes (in category 'file primitives') -----
primitiveFileAttributes
"Answer an array of file attributes.
primFileAttributes: aString mask: attributeMask
aString is the path to the file
attributeMask indicates which attributes to retrieve:
bit 0 - get stat() attributes
bit 1 - get access() attributes
bit 2 - use lstat() instead of stat()
On error answer the appropriate error code (Integer)"
| fileName attributeMask faPath status resultOop |
<export: true>
+ <var: 'faPath' type: #'fapath'>
- <var: 'faPath' type: #'fapath *'>
fileName := interpreterProxy stackObjectValue: 1.
attributeMask := interpreterProxy stackIntegerValue: 0.
(interpreterProxy failed
or: [(interpreterProxy isBytes: fileName) not]) ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ self faSetStPathOop: (self addressOf: faPath) _: fileName.
+ interpreterProxy failed ifTrue:
+ [^interpreterProxy primitiveFailureCode].
- faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'
- inSmalltalk: [self simulatedFaPath].
- faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory].
- self faSetStPathOop: faPath _: fileName.
- interpreterProxy failed ifTrue: [
- self free: faPath.
- ^interpreterProxy primitiveFailureCode].
+ status := self attributeArray: (self addressOf: resultOop put: [ :val | resultOop := val])
+ for: (self addressOf: faPath)
+ mask: attributeMask.
- status := self attributeArray: (self addressOf: resultOop put: [ :val | resultOop := val]) for: faPath mask: attributeMask.
- self free: faPath.
status ~= 0 ifTrue:
[^interpreterProxy primitiveFailForOSError: status].
^interpreterProxy methodReturnValue: resultOop!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveFileExists (in category 'file primitives') -----
primitiveFileExists
"Check for existence of a file with a call to access()."
| fileNameOop faPath resultOop |
<export: true>
+ <var: 'faPath'type: #'fapath'>
- <var: 'faPath'type: #'fapath *'>
fileNameOop := interpreterProxy stackObjectValue: 0.
(interpreterProxy isBytes: fileNameOop) ifFalse:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ self faSetStPathOop: (self addressOf: faPath) _: fileNameOop.
- faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'
- inSmalltalk: [self simulatedFaPath].
- faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory].
- self faSetStPathOop: faPath _: fileNameOop.
interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailureCode].
+ resultOop := self faExists: (self addressOf: faPath).
- resultOop := self faExists: faPath.
- self free: faPath.
^interpreterProxy methodReturnValue: resultOop.
!
Item was changed:
----- Method: FileAttributesPlugin>>primitivePlatToStPath (in category 'file primitives') -----
primitivePlatToStPath
"Convert the supplied file name (platform encoded) to the St UTF8 encoded byte array"
| fileName faPath resultOop byteArrayPtr |
<export: true>
+ <var: 'faPath' type: #'fapath'>
- <var: 'faPath' type: #'fapath *'>
<var: 'byteArrayPtr' type: #'unsigned char *'>
fileName := interpreterProxy stackObjectValue: 0.
(interpreterProxy failed
or: [(interpreterProxy isBytes: fileName) not]) ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ self faSetPlatPathOop: (self addressOf: faPath) _: fileName.
+ interpreterProxy failed ifTrue:
+ [^interpreterProxy primitiveFailureCode].
- faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'
- inSmalltalk: [self simulatedFaPath].
- faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory].
- self faSetPlatPathOop: faPath _: fileName.
- interpreterProxy failed ifTrue: [
- self free: faPath.
- ^interpreterProxy primitiveFailureCode].
resultOop := interpreterProxy
instantiateClass: interpreterProxy classByteArray
+ indexableSize: (self faGetStPathLen: (self addressOf: faPath)).
+ resultOop ifNil: [^interpreterProxy primitiveFailFor: PrimErrNoMemory].
- indexableSize: (self faGetStPathLen: faPath).
- resultOop ifNil: [
- self free: faPath.
- ^interpreterProxy primitiveFailFor: PrimErrNoMemory].
byteArrayPtr := interpreterProxy arrayValueOf: resultOop.
+ self memcpy: byteArrayPtr
+ _: (self faGetStPath: (self addressOf: faPath))
+ _: (self faGetStPathLen: (self addressOf: faPath)).
- self memcpy: byteArrayPtr _: (self faGetStPath: faPath) _: (self faGetStPathLen: faPath).
- self free: faPath.
^interpreterProxy methodReturnValue: resultOop.
!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveReaddir (in category 'file primitives') -----
primitiveReaddir
"Get the next entry in the directory stream. Answer the name of the entry, or
nil for the end of the directory stream.
Arguments:
- directoryPointer (ByteArray)"
| dirPointerOop faPathPtr faPath resultArray status |
<export: true>
<var: 'faPath' type: #'fapath *'>
<var: 'faPathPtr' type: #'fapathptr *'>
dirPointerOop := interpreterProxy stackValue: 0.
+ faPathPtr := self structFromObject: dirPointerOop
+ size: (self cCode: 'sizeof(fapathptr)').
- faPathPtr := self cCode: '(fapathptr *)structFromObjectsize(dirPointerOop, sizeof(fapathptr))'
- inSmalltalk: [self structFromObject: dirPointerOop size: self sizeOfFaPathPtr].
faPathPtr = 0 ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
(self faValidateSessionId: (self cCode: 'faPathPtr->sessionId' inSmalltalk: [faPathPtr first])) ifFalse:
+ [^interpreterProxy primitiveFailForOSError: self badSessionId].
- [self free: faPathPtr.
- ^interpreterProxy primitiveFailForOSError: self badSessionId].
faPath := self cCode: 'faPathPtr->faPath' inSmalltalk: [faPathPtr second].
status := self faReadDirectory: faPath.
status = self noMoreData ifTrue:
+ [^interpreterProxy methodReturnValue: interpreterProxy nilObject].
- [self free: faPathPtr.
- ^interpreterProxy pop: 2 thenPush: interpreterProxy nilObject].
status < 0 ifTrue:
+ [^interpreterProxy primitiveFailForOSError: status].
- [self free: faPathPtr.
- ^interpreterProxy primitiveFailForOSError: status].
resultArray := self processDirectory: faPath.
+ "no need to check the status of #processDirectory: as it will have flagged an error with interpreterProxy"
- self free: faPathPtr.
- interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailureCode].
-
^interpreterProxy methodReturnValue: resultArray.
!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveRewinddir (in category 'file primitives') -----
primitiveRewinddir
"Set directoryStream to first entry. Answer dirPointerOop."
| dirPointerOop faPathPtr faPath status resultOop |
<export: true>
<var: 'faPath' type: #'fapath *'>
<var: 'faPathPtr' type: #'fapathptr *'>
dirPointerOop := interpreterProxy stackValue: 0.
+ faPathPtr := self structFromObject: dirPointerOop
+ size: (self cCode: 'sizeof(fapathptr)').
- faPathPtr := self cCode: '(fapathptr *)structFromObjectsize(dirPointerOop, sizeof(fapathptr))'
- inSmalltalk: [self structFromObject: dirPointerOop size: self sizeOfFaPathPtr].
faPathPtr = 0 ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
(self faValidateSessionId: (self cCode: 'faPathPtr->sessionId' inSmalltalk: [faPathPtr first])) ifFalse:
+ [^interpreterProxy primitiveFailFor: PrimErrBadArgument].
- [self free: faPathPtr.
- ^interpreterProxy primitiveFailFor: PrimErrBadArgument].
faPath := self cCode: 'faPathPtr->faPath' inSmalltalk: [faPathPtr second].
status := self faRewindDirectory: faPath.
status < 0 ifTrue:
+ [^interpreterProxy primitiveFailForOSError: status].
- [self free: faPathPtr.
- ^interpreterProxy primitiveFailForOSError: status].
resultOop := self processDirectory: faPath.
+ "no need to check the status of #processDirectory: as it will have flagged an error with interpreterProxy"
- self free: faPathPtr.
- interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailureCode ].
^interpreterProxy methodReturnValue: resultOop.!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveStToPlatPath (in category 'file primitives') -----
primitiveStToPlatPath
"Convert the supplied file name (UTF8 encoded) to the platform encoded byte array"
| fileName faPath resultOop byteArrayPtr |
<export: true>
+ <var: 'faPath' type: #'fapath'>
- <var: 'faPath' type: #'fapath *'>
<var: 'byteArrayPtr' type: #'unsigned char *'>
fileName := interpreterProxy stackObjectValue: 0.
(interpreterProxy failed
or: [(interpreterProxy isBytes: fileName) not]) ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ self faSetStPathOop: (self addressOf: faPath) _: fileName.
+ interpreterProxy failed ifTrue:
+ [^interpreterProxy primitiveFailureCode].
- faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'
- inSmalltalk: [self simulatedFaPath].
- faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory].
- self faSetStPathOop: faPath _: fileName.
- interpreterProxy failed ifTrue: [
- self free: faPath.
- ^interpreterProxy primitiveFailureCode].
resultOop := interpreterProxy
instantiateClass: interpreterProxy classByteArray
+ indexableSize: (self faGetPlatPathByteCount: (self addressOf: faPath)).
+ resultOop ifNil: [^interpreterProxy primitiveFailFor: PrimErrNoMemory].
- indexableSize: (self faGetPlatPathByteCount: faPath).
- resultOop ifNil: [
- self free: faPath.
- ^interpreterProxy primitiveFailFor: PrimErrNoMemory].
byteArrayPtr := interpreterProxy arrayValueOf: resultOop.
+ self memcpy: byteArrayPtr
+ _: (self faGetPlatPath: (self addressOf: faPath))
+ _: (self faGetPlatPathByteCount: (self addressOf: faPath)).
- self memcpy: byteArrayPtr _: (self faGetPlatPath: faPath) _: (self faGetPlatPathByteCount: faPath).
- self free: faPath.
^interpreterProxy methodReturnValue: resultOop.
!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveSymlinkChangeOwner (in category 'file primitives') -----
primitiveSymlinkChangeOwner
"Set the owner of the supplied file using chown()."
| fileNameOop ownerId groupId faPath status |
<export: true>
+ <var: 'faPath' type: #'fapath'>
- <var: 'faPath' type: #'fapath *'>
fileNameOop := interpreterProxy stackObjectValue: 2.
ownerId := interpreterProxy stackIntegerValue: 1.
groupId := interpreterProxy stackIntegerValue: 0.
(interpreterProxy failed
or: [(interpreterProxy isBytes: fileNameOop) not]) ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
self cppIf: #HAVE_CHOWN ifTrue: [
+ self faSetStPathOop: (self addressOf: faPath) _: fileNameOop.
+ interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailureCode].
- faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'
- inSmalltalk: [self simulatedFaPath].
- faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory].
- self faSetStPathOop: faPath _: fileNameOop.
- interpreterProxy failed ifTrue: [
- self free: faPath.
- ^interpreterProxy primitiveFailureCode].
+ status := self lchown: (self faGetPlatPath: (self addressOf: faPath)) _: ownerId _: groupId.
- status := self lchown: (self faGetPlatPath: faPath) _: ownerId _: groupId.
- self free: faPath.
status ~= 0 ifTrue:
[^interpreterProxy primitiveFailForOSError: (self cCode: 'errno')].
^interpreterProxy methodReturnValue: interpreterProxy nilObject.
].
^interpreterProxy primitiveFailForOSError: self unsupportedOperation.
!
Item was changed:
----- Method: FileAttributesPlugin>>structFromObject:size: (in category 'private - directory') -----
structFromObject: anObject size: structSize
"Allocate memory of the requiested size and copy the contents of anObject in to it.
anObject is expected to be bytes, e.g. ByteArray or String.
+ The structure is allocated on the stack using alloca(), thus this method must always be inlined so that the memory is valid in the calling method."
- The sender is responsible for freeing the memory."
| buffer |
+ <inline: #always>
<returnTypeC: #'void *'>
<var: 'buffer' type: #'void *'>
- buffer := 0.
(interpreterProxy stSizeOf: anObject) = structSize ifFalse:
[interpreterProxy primitiveFailFor: PrimErrBadArgument.
+ ^0].
+ buffer := self alloca: structSize.
- ^buffer].
- buffer := self malloc: structSize.
buffer = 0 ifTrue:
+ [interpreterProxy primitiveFailFor: PrimErrNoCMemory]
+ ifFalse:
+ [self memcpy: buffer
- [interpreterProxy primitiveFailFor: PrimErrNoCMemory.
- ^buffer].
- self memcpy: buffer
_: (interpreterProxy arrayValueOf: anObject)
+ _: structSize].
- _: structSize.
^buffer!
Item was changed:
----- Method: FileAttributesPlugin>>versionString (in category 'version string') -----
versionString
"Answer a string containing the version string for this plugin."
<inline: #always>
+ ^'2.0.7'!
- ^'2.0.6'!
1
0
Eliot Miranda uploaded a new version of FileAttributesPlugin to project VM Maker:
http://source.squeak.org/VMMaker/FileAttributesPlugin.oscog-akg.46.mcz
==================== Summary ====================
Name: FileAttributesPlugin.oscog-akg.46
Author: akg
Time: 14 December 2018, 3:58:12.347186 pm
UUID: 0f7242c3-9c0f-4b8b-a95f-444ce5873dcd
Ancestors: FileAttributesPlugin.oscog-akg.45
FileAttributesPlugin 2.0.6
- Handle VM restart mid directory iteration
- Handle long file names on Windows
=============== Diff against FileAttributesPlugin.oscog-akg.45 ===============
Item was added:
+ ----- Method: FileAttributesPlugin>>attributeArray:for:mask: (in category 'file primitives') -----
+ attributeArray: attributeArrayPtr for: faPath mask: attributeMask
+ "Create the attributes array for the specified file (faPath) and set attributeArrayPtr.
+ Which attributes are retrieved are specified in attributeMask.
+ On error, set the error in interpreterProxy and answer the appropriate status (some callers check the status, others interpreterProxy)"
+
+ | status getAccess getStats getLinkStats attributeArray accessArray resultOop |
+ <var: 'faPath' type: #'fapath *'>
+ <var: 'attributeArrayPtr' type: #'sqInt *'>
+
+ "Determine which attributes to retrieve"
+ getStats := attributeMask anyMask: 1.
+ getAccess := attributeMask anyMask: 2.
+ (getStats or: [getAccess]) ifFalse:
+ ["No information has been requested, which doesn't make sense"
+ interpreterProxy primitiveFailForOSError: self invalidArguments.
+ ^self invalidArguments].
+ getLinkStats := attributeMask anyMask: 4.
+
+ getStats ifTrue:
+ [ attributeArray := interpreterProxy instantiateClass: interpreterProxy classArray indexableSize: 13.
+ attributeArray ifNil:
+ [interpreterProxy primitiveFailFor: PrimErrNoMemory.
+ ^self interpreterError].
+ self remapOop: attributeArray in:
+ [status := self faFileStatAttributes: faPath _: getLinkStats _: attributeArray].
+ status ~= 0 ifTrue:
+ [^status].
+ "Set resultOop in case only stat attributes have been requested"
+ resultOop := attributeArray ].
+
+ getAccess ifTrue:
+ [self remapOop: attributeArray in:
+ [accessArray := interpreterProxy instantiateClass: interpreterProxy classArray indexableSize: 3].
+ accessArray ifNil:
+ [interpreterProxy primitiveFailFor: PrimErrNoMemory.
+ self interpreterError].
+ self faAccessAttributes: faPath _: accessArray _: 0.
+ interpreterProxy failed ifTrue:
+ [^self interpreterError].
+ "Set resultOop in case only access attributes have been requested"
+ resultOop := accessArray ].
+
+ (getStats and: [getAccess]) ifTrue:
+ [self remapOop: #(attributeArray accessArray) in:
+ [resultOop := interpreterProxy instantiateClass: interpreterProxy classArray indexableSize: 2].
+ resultOop ifNil:
+ [interpreterProxy primitiveFailFor: PrimErrNoMemory.
+ self interpreterError].
+ interpreterProxy
+ storePointer: 0 ofObject: resultOop withValue: attributeArray;
+ storePointer: 1 ofObject: resultOop withValue: accessArray
+ ].
+
+ attributeArrayPtr at: 0 put: resultOop.
+ ^self faSuccess!
Item was added:
+ ----- Method: FileAttributesPlugin>>badSessionId (in category 'errors / status') -----
+ badSessionId
+ "The supplied session Id doesn't match the current VM session Id"
+
+ ^-17!
Item was added:
+ ----- Method: FileAttributesPlugin>>faSuccess (in category 'errors / status') -----
+ faSuccess
+
+ ^0!
Item was removed:
- ----- Method: FileAttributesPlugin>>fileToAttributeArray:mask:array: (in category 'private - file') -----
- fileToAttributeArray: faPath mask: attributeMask array: attributeArray
- "Answer a file attribute array from pathNameOop."
-
- | getStats useLstat getAccess statArray accessArray combinedArray status fileNameOop statBuf |
- <returnTypeC: #'int'>
- <var: 'faPath' type: #'fapath *'>
- <var: 'attributeArray' type: #'sqInt *'>
- <var: 'statBuf' type: #'faStatStruct'>
-
- "Determine which attributes to retrieve"
- getStats := attributeMask anyMask: 1.
- getAccess := attributeMask anyMask: 2.
- (getStats or: [getAccess]) ifFalse:
- ["No information has been requested, which doesn't make sense"
- ^self invalidArguments].
- getStats ifTrue:
- [
- useLstat := attributeMask anyMask: 4.
- statArray := interpreterProxy instantiateClass: interpreterProxy classArray indexableSize: 12.
- statArray ifNil:
- [^interpreterProxy primitiveFailFor: PrimErrNoMemory].
- self cCode: '' inSmalltalk: [
- statBuf := ValueHolder new. "ByteArray new: 1024"
- fileNameOop := ValueHolder new].
- status := useLstat ifFalse:
- [ self faStat: faPath _: (self addressOf: statBuf ) _: (self addressOf: fileNameOop) ]
- ifTrue:
- [ self faLinkStat: faPath _: (self addressOf: statBuf ) _: (self addressOf: fileNameOop) ].
- status ~= 0 ifTrue: [^status].
- status := self statArrayFor: faPath toArray: statArray from: (self addressOf: statBuf) fileName: fileNameOop.
- status ~= 0 ifTrue: [^status].
- "Set attributeArray in case only stat() attributes have been requested"
- attributeArray at: 0 put: statArray
- ].
- getAccess ifTrue:
- [
- accessArray := interpreterProxy instantiateClass: interpreterProxy classArray indexableSize: 3.
- accessArray ifNil:
- [^interpreterProxy primitiveFailFor: PrimErrNoMemory].
- self faAccessAttributes: faPath _: accessArray _: 0.
- "Set attributeArray in case only access() attributes have been requested"
- attributeArray at: 0 put: accessArray
- ].
- (getStats and: [getAccess]) ifTrue:
- [
- combinedArray := interpreterProxy instantiateClass: interpreterProxy classArray indexableSize: 2.
- combinedArray ifNil:
- [^interpreterProxy primitiveFailFor: PrimErrNoMemory].
- attributeArray at: 0 put: combinedArray.
- interpreterProxy
- storePointer: 0 ofObject: combinedArray withValue: statArray;
- storePointer: 1 ofObject: combinedArray withValue: accessArray
- ].
-
- ^0!
Item was added:
+ ----- Method: FileAttributesPlugin>>interpreterError (in category 'errors / status') -----
+ interpreterError
+ "The actual error code is stored by the interpreterProxy"
+ <inline: #always>
+ ^-15!
Item was added:
+ ----- Method: FileAttributesPlugin>>objectFromStruct:size: (in category 'private - directory') -----
+ objectFromStruct: aMachineAddress size: structSize
+ "Answer a ByteArray object which copies the structure at aMachineAddress"
+
+ | addressOop addressOopArrayPointer |
+ <var: 'aMachineAddress' type: #'void *'>
+ <var: 'addressOopArrayPointer' type: #'unsigned char *'>
+
+ addressOop := interpreterProxy
+ instantiateClass: interpreterProxy classByteArray
+ indexableSize: structSize.
+ addressOop ifNil:
+ [^interpreterProxy primitiveFailFor: PrimErrNoMemory].
+ addressOopArrayPointer := interpreterProxy arrayValueOf: addressOop.
+ self memcpy: addressOopArrayPointer _: aMachineAddress _: structSize.
+ ^ addressOop
+ !
Item was removed:
- ----- Method: FileAttributesPlugin>>posixFileTimesFrom:to: (in category 'private - posix') -----
- posixFileTimesFrom: statBufPointer to: attributeArray
- "Populate attributeArray with the file times from statBufPointer"
-
- | attributeDate |
-
- <var: 'statBufPointer' type: #'faStatStruct *'>
- <var: 'attributeDate' type: #'sqLong'>
-
- self cppIf: #_WIN32 defined ifTrue: [] ifFalse: [
- attributeDate := self faConvertUnixToLongSqueakTime: (self
- cCode: 'statBufPointer->st_atime'
- inSmalltalk: [statBufPointer contents at: 9]).
- interpreterProxy
- storePointer: 8
- ofObject: attributeArray
- withValue: (interpreterProxy signed64BitIntegerFor: attributeDate).
- attributeDate := self faConvertUnixToLongSqueakTime: (self
- cCode: 'statBufPointer->st_mtime'
- inSmalltalk: [statBufPointer contents at: 10]).
- interpreterProxy
- storePointer: 9
- ofObject: attributeArray
- withValue: (interpreterProxy signed64BitIntegerFor: attributeDate).
- attributeDate := self faConvertUnixToLongSqueakTime: (self
- cCode: 'statBufPointer->st_ctime'
- inSmalltalk: [statBufPointer contents at: 11]).
- interpreterProxy
- storePointer: 10
- ofObject: attributeArray
- withValue: (interpreterProxy signed64BitIntegerFor: attributeDate);
- storePointer: 11
- ofObject: attributeArray
- withValue: interpreterProxy nilObject ].
- ^0!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveClosedir (in category 'file primitives') -----
primitiveClosedir
"Close the directory stream for dirPointerOop. Answer dirPointerOop on success.
Raise PrimErrBadArgument if the parameter is not a ByteArray length size(void *).
If closedir() returns an error raise PrimitiveOSError."
+ | dirPointerOop faPathPtr faPath result |
- | dirPointerOop faPath result |
<export: true>
+ <var: 'faPath' type: #'fapath *'>
+ <var: 'faPathPtr' type: #'fapathptr *'>
- <var: 'fapath' type: #'faPath *'>
dirPointerOop := interpreterProxy stackValue: 0.
+ faPathPtr := self cCode: '(fapathptr *)structFromObjectsize(dirPointerOop, sizeof(fapathptr))'
+ inSmalltalk: [self structFromObject: dirPointerOop size: self sizeOfFaPathPtr].
+ faPathPtr = 0 ifTrue:
- faPath := self pointerFrom: dirPointerOop.
- faPath ifNil:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ (self faValidateSessionId: (self cCode: 'faPathPtr->sessionId' inSmalltalk: [faPathPtr first])) ifFalse:
+ [self free: faPathPtr.
+ ^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ faPath := self cCode: 'faPathPtr->faPath' inSmalltalk: [faPathPtr second].
result := self faCloseDirectory: faPath.
+ self faInvalidateSessionId: (self cCode: '&faPathPtr->sessionId' inSmalltalk: [faPathPtr]).
result = 0 ifFalse:
[^interpreterProxy primitiveFailForOSError: result].
+ self free: faPathPtr.
self free: faPath.
interpreterProxy pop: 2 thenPush: dirPointerOop!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveFileAttribute (in category 'file primitives') -----
primitiveFileAttribute
"Answer a single file attribute.
primFileAttributes: aString attributeNumber: attributeNumber
aString is the path to the file
attributeNumber identifies which attribute to return:
1 - 12: stat(): name, mode, ino, dev, nlink, uid, gid, size, accessDate, modifiedDate, changeDate, creationDate
13 - 15: access(): R_OK, W_OK, X_OK
16: isSymlink
On error, answer a single element array containing the appropriate error code."
| fileName attributeNumber resultOop faPath |
<export: true>
<var: 'faPath' type: #'fapath *'>
fileName := interpreterProxy stackObjectValue: 1.
attributeNumber := interpreterProxy stackIntegerValue: 0.
(interpreterProxy failed
or: [(attributeNumber between: 1 and: 16) not
or: [(interpreterProxy isBytes: fileName) not]]) ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'
inSmalltalk: [self simulatedFaPath].
faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory].
self faSetStPathOop: faPath _: fileName.
interpreterProxy failed ifTrue: [
self free: faPath.
^interpreterProxy primitiveFailureCode].
resultOop := self faFileAttribute: faPath _: attributeNumber.
self free: faPath.
interpreterProxy failed ifTrue: [
^interpreterProxy primitiveFailureCode].
resultOop = 0
ifTrue: ["It shouldn't be possible to get here"
interpreterProxy primitiveFailForOSError: self unexpectedError]
ifFalse: [interpreterProxy methodReturnValue: resultOop]!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveFileAttributes (in category 'file primitives') -----
primitiveFileAttributes
"Answer an array of file attributes.
primFileAttributes: aString mask: attributeMask
aString is the path to the file
attributeMask indicates which attributes to retrieve:
bit 0 - get stat() attributes
bit 1 - get access() attributes
bit 2 - use lstat() instead of stat()
On error answer the appropriate error code (Integer)"
+ | fileName attributeMask faPath status resultOop |
- | fileName attributeMask attributeArray faPath status |
<export: true>
<var: 'faPath' type: #'fapath *'>
fileName := interpreterProxy stackObjectValue: 1.
attributeMask := interpreterProxy stackIntegerValue: 0.
(interpreterProxy failed
or: [(interpreterProxy isBytes: fileName) not]) ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'
inSmalltalk: [self simulatedFaPath].
faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory].
self faSetStPathOop: faPath _: fileName.
interpreterProxy failed ifTrue: [
self free: faPath.
^interpreterProxy primitiveFailureCode].
+ status := self attributeArray: (self addressOf: resultOop put: [ :val | resultOop := val]) for: faPath mask: attributeMask.
- status := self fileToAttributeArray: faPath
- mask: attributeMask
- array: (self addressOf: attributeArray put: [:val| attributeArray := val]).
self free: faPath.
+ status ~= 0 ifTrue:
+ [^interpreterProxy primitiveFailForOSError: status].
+ ^interpreterProxy methodReturnValue: resultOop!
- status ~= 0
- ifTrue: [interpreterProxy primitiveFailForOSError: status]
- ifFalse: [interpreterProxy methodReturnValue: attributeArray]!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveOpendir (in category 'file primitives') -----
primitiveOpendir
+ "Open the supplied directory and answer the first entry and directory pointer.
+ If the directory is empty, answer nil as the first entry.
+ If the directory can't be opened, answer an error (cantOpenDir)"
-
"self primOpendir: '/etc'"
+ | dirName faPath faPathPtr dirOop status resultOop |
- | dirName faPath dirOop status resultOop |
<export: true>
<var: 'faPath' type: #'fapath *'>
+ <var: 'faPathPtr' type: #'fapathptr'>
+ "Process the parameters"
dirName := interpreterProxy stackObjectValue: 0.
(interpreterProxy isBytes: dirName) ifFalse:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ "Allocate and initialise faPath"
faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'
inSmalltalk: [self simulatedFaPath].
faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory].
self faSetStDirOop: faPath _: dirName.
interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailureCode].
(self canOpenDirectoryStreamFor: (self faGetStPath: faPath) length: (self faGetStPathLen: faPath)) ifFalse: [
self free: faPath.
^interpreterProxy primitiveFailForOSError: self cantOpenDir].
+ "Open the directory and process the first entry"
status := self faOpenDirectory: faPath.
status = self noMoreData ifTrue: [
self free: faPath.
+ ^interpreterProxy methodReturnValue: interpreterProxy nilObject].
- ^interpreterProxy pop: 2 thenPush: interpreterProxy nilObject].
status < 0 ifTrue: [
self free: faPath.
^interpreterProxy primitiveFailForOSError: status].
resultOop := self processDirectory: faPath.
interpreterProxy failed ifTrue: [
self free: faPath.
^interpreterProxy primitiveFailureCode ].
+ "Set the faPathPtr"
+ self faInitSessionId: (self cCode: '&faPathPtr.sessionId' inSmalltalk: [faPathPtr := Array new: 2]).
+ self cCode: 'faPathPtr.faPath = faPath'
+ inSmalltalk: [faPathPtr at: 2 put: faPath].
self remapOop: resultOop in:
+ [ dirOop := self objectFromStruct: (self addressOf: faPathPtr) size: self sizeOfFaPathPtr ].
+
- [ dirOop := self addressObjectFor: faPath ].
^interpreterProxy
storePointer: 2 ofObject: resultOop withValue: dirOop;
methodReturnValue: resultOop.!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveReaddir (in category 'file primitives') -----
primitiveReaddir
"Get the next entry in the directory stream. Answer the name of the entry, or
nil for the end of the directory stream.
Arguments:
- directoryPointer (ByteArray)"
+ | dirPointerOop faPathPtr faPath resultArray status |
- | dirPointerOop faPath resultArray status |
<export: true>
<var: 'faPath' type: #'fapath *'>
+ <var: 'faPathPtr' type: #'fapathptr *'>
dirPointerOop := interpreterProxy stackValue: 0.
+ faPathPtr := self cCode: '(fapathptr *)structFromObjectsize(dirPointerOop, sizeof(fapathptr))'
+ inSmalltalk: [self structFromObject: dirPointerOop size: self sizeOfFaPathPtr].
+ faPathPtr = 0 ifTrue:
- faPath := self pointerFrom: dirPointerOop.
- faPath ifNil:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ (self faValidateSessionId: (self cCode: 'faPathPtr->sessionId' inSmalltalk: [faPathPtr first])) ifFalse:
+ [self free: faPathPtr.
+ ^interpreterProxy primitiveFailForOSError: self badSessionId].
+ faPath := self cCode: 'faPathPtr->faPath' inSmalltalk: [faPathPtr second].
status := self faReadDirectory: faPath.
status = self noMoreData ifTrue:
+ [self free: faPathPtr.
+ ^interpreterProxy pop: 2 thenPush: interpreterProxy nilObject].
- [^interpreterProxy pop: 2 thenPush: interpreterProxy nilObject].
status < 0 ifTrue:
+ [self free: faPathPtr.
+ ^interpreterProxy primitiveFailForOSError: status].
- [^interpreterProxy primitiveFailForOSError: status].
resultArray := self processDirectory: faPath.
+ self free: faPathPtr.
interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailureCode].
+ ^interpreterProxy methodReturnValue: resultArray.
+ !
- interpreterProxy
- pop: 2 thenPush: resultArray!
Item was changed:
----- Method: FileAttributesPlugin>>primitiveRewinddir (in category 'file primitives') -----
primitiveRewinddir
"Set directoryStream to first entry. Answer dirPointerOop."
+ | dirPointerOop faPathPtr faPath status resultOop |
- | dirPointerOop faPath status resultOop |
<export: true>
<var: 'faPath' type: #'fapath *'>
+ <var: 'faPathPtr' type: #'fapathptr *'>
+
dirPointerOop := interpreterProxy stackValue: 0.
+ faPathPtr := self cCode: '(fapathptr *)structFromObjectsize(dirPointerOop, sizeof(fapathptr))'
+ inSmalltalk: [self structFromObject: dirPointerOop size: self sizeOfFaPathPtr].
+ faPathPtr = 0 ifTrue:
- faPath := self pointerFrom: dirPointerOop.
- faPath ifNil:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ (self faValidateSessionId: (self cCode: 'faPathPtr->sessionId' inSmalltalk: [faPathPtr first])) ifFalse:
+ [self free: faPathPtr.
+ ^interpreterProxy primitiveFailFor: PrimErrBadArgument].
+ faPath := self cCode: 'faPathPtr->faPath' inSmalltalk: [faPathPtr second].
status := self faRewindDirectory: faPath.
+ status < 0 ifTrue:
+ [self free: faPathPtr.
+ ^interpreterProxy primitiveFailForOSError: status].
- status < 0 ifTrue: [^interpreterProxy primitiveFailForOSError: status].
resultOop := self processDirectory: faPath.
+ self free: faPathPtr.
interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailureCode ].
^interpreterProxy methodReturnValue: resultOop.!
Item was changed:
----- Method: FileAttributesPlugin>>processDirectory: (in category 'private') -----
processDirectory: faPath
"The supplied faPath contains the full path to the current entry while iterating over a directory.
Convert the file name to an object, get the attributes and answer the resulting array."
| status entryName attributeArray resultArray |
<var: 'faPath' type: #'fapath *'>
status := self faCharToByteArray: (self faGetStFile: faPath)
_: (self addressOf: entryName put: [:val | entryName := val]).
status ~= 0 ifTrue:
[ ^interpreterProxy primitiveFailForOSError: status].
+ status := self attributeArray: (self addressOf: attributeArray put: [ :val | attributeArray := val ]) for: faPath mask: 1.
- status := self fileToAttributeArray: faPath mask: 1 array: (self addressOf: attributeArray put: [:val| attributeArray := val]).
"If the stat() fails, still return the filename, just no attributes"
+ status ~= 0 ifTrue:
+ [status = self cantStatPath ifTrue:
+ [attributeArray := interpreterProxy nilObject]
+ ifFalse:
+ [^interpreterProxy primitiveFailForOSError: status]].
- status ~= 0 ifTrue: [attributeArray := interpreterProxy nilObject].
"resultArray: entryName, attributeArray, dirPtrOop"
self remapOop: #(entryName attributeArray)
in: [resultArray := interpreterProxy instantiateClass: interpreterProxy classArray indexableSize: 3].
resultArray ifNil:
[^interpreterProxy primitiveFailFor: PrimErrNoMemory].
interpreterProxy
storePointer: 0 ofObject: resultArray withValue: entryName;
storePointer: 1 ofObject: resultArray withValue: attributeArray.
^resultArray!
Item was added:
+ ----- Method: FileAttributesPlugin>>sizeOfFaPath (in category 'private') -----
+ sizeOfFaPath
+ "Answer the size of fapath"
+
+ ^self cCode: 'sizeof(fapath)'
+ inSmalltalk: [6].!
Item was added:
+ ----- Method: FileAttributesPlugin>>sizeOfFaPathPtr (in category 'private') -----
+ sizeOfFaPathPtr
+ "Answer the size of fapathptr.
+ The simulation uses a two element array."
+
+ ^self cCode: 'sizeof(fapathptr)'
+ inSmalltalk: [2].!
Item was removed:
- ----- Method: FileAttributesPlugin>>statArrayFor:toArray:from:fileName: (in category 'private - file') -----
- statArrayFor: faPath toArray: attributeArray from: statBufPointer fileName: fileNameOop
- "Answer a file entry array from the supplied statBufPointer"
-
- | sizeIfFile status isDir |
- <var: 'faPath' type: #'fapath *'>
- <var: 'statBufPointer' type: #'faStatStruct *'>
-
- isDir := self
- cCode: 'S_ISDIR(statBufPointer->st_mode)'
- inSmalltalk: [
- ((statBufPointer contents at: 2) bitAnd: self s_IFMT) = self s_IFDIR
- ifTrue: [1]
- ifFalse: [0]].
- sizeIfFile := isDir = 0
- ifTrue: [self cCode: 'statBufPointer->st_size'
- inSmalltalk: [self
- cCode: 'statBufPointer->st_size'
- inSmalltalk: [statBufPointer contents at: 8]]]
- ifFalse: [0].
- interpreterProxy
- storePointer: 0
- ofObject: attributeArray
- withValue: (self cCode: 'fileNameOop' inSmalltalk: [self toOop: fileNameOop contents]);
- storePointer: 1
- ofObject: attributeArray
- withValue: (interpreterProxy positive64BitIntegerFor: (self
- cCode: 'statBufPointer->st_mode'
- inSmalltalk: [statBufPointer contents at: 2]));
- storePointer: 2
- ofObject: attributeArray
- withValue: (interpreterProxy positive64BitIntegerFor: (self
- cCode: 'statBufPointer->st_ino'
- inSmalltalk: [statBufPointer contents at: 3]));
- storePointer: 3
- ofObject: attributeArray
- withValue: (interpreterProxy positive64BitIntegerFor: (self
- cCode: 'statBufPointer->st_dev'
- inSmalltalk: [statBufPointer contents at: 4]));
- storePointer: 4
- ofObject: attributeArray
- withValue: (interpreterProxy positive64BitIntegerFor: (self
- cCode: 'statBufPointer->st_nlink'
- inSmalltalk: [statBufPointer contents at: 5]));
- storePointer: 5
- ofObject: attributeArray
- withValue: (interpreterProxy positive64BitIntegerFor: (self
- cCode: 'statBufPointer->st_uid'
- inSmalltalk: [statBufPointer contents at: 6]));
- storePointer: 6
- ofObject: attributeArray
- withValue: (interpreterProxy positive64BitIntegerFor: (self
- cCode: 'statBufPointer->st_gid'
- inSmalltalk: [statBufPointer contents at: 7]));
- storePointer: 7
- ofObject: attributeArray
- withValue: (interpreterProxy positive64BitIntegerFor: sizeIfFile).
-
- self cppIf: #_WIN32 defined
- ifTrue: [ status := self winFileTimesFor: faPath to: attributeArray ]
- ifFalse: [ status := self posixFileTimesFrom: statBufPointer to: attributeArray ].
-
- ^status
- !
Item was added:
+ ----- Method: FileAttributesPlugin>>structFromObject:size: (in category 'private - directory') -----
+ structFromObject: anObject size: structSize
+ "Allocate memory of the requiested size and copy the contents of anObject in to it.
+ anObject is expected to be bytes, e.g. ByteArray or String.
+ The sender is responsible for freeing the memory."
+
+ | buffer |
+ <returnTypeC: #'void *'>
+ <var: 'buffer' type: #'void *'>
+
+ buffer := 0.
+ (interpreterProxy stSizeOf: anObject) = structSize ifFalse:
+ [interpreterProxy primitiveFailFor: PrimErrBadArgument.
+ ^buffer].
+ buffer := self malloc: structSize.
+ buffer = 0 ifTrue:
+ [interpreterProxy primitiveFailFor: PrimErrNoCMemory.
+ ^buffer].
+ self memcpy: buffer
+ _: (interpreterProxy arrayValueOf: anObject)
+ _: structSize.
+ ^buffer!
Item was changed:
----- Method: FileAttributesPlugin>>versionString (in category 'version string') -----
versionString
"Answer a string containing the version string for this plugin."
<inline: #always>
+ ^'2.0.6'!
- ^'2.0.5'!
Item was removed:
- ----- Method: FileAttributesPlugin>>winFileCreationTimeFor:to: (in category 'private - windows') -----
- winFileCreationTimeFor: winAttrs to: creationDate
- "Set the file creation time from the supplied attributes."
- <option: #_WIN32>
-
- | sysTime fileTime |
-
- <var: 'winAttrs' type: #'WIN32_FILE_ATTRIBUTE_DATA *'>
- <var: 'creationDate' type: #'sqLong *'>
- <var: 'fileTime' type: #'FILETIME'>
- <var: 'sysTime' type: #'SYSTEMTIME'>
-
- self touch: sysTime.
- self touch: fileTime.
-
- (self cCode: 'FileTimeToLocalFileTime(&winAttrs->ftCreationTime, &fileTime)') = 0 ifTrue:
- [^self timeConversionFailed].
- (self cCode: 'FileTimeToSystemTime(&fileTime, &sysTime)') = 0 ifTrue:
- [^self timeConversionFailed].
- self cCode: '*creationDate = convertWinToSqueakTime(sysTime)'.
-
- ^0!
Item was removed:
- ----- Method: FileAttributesPlugin>>winFileLastAccessTimeFor:to: (in category 'private - windows') -----
- winFileLastAccessTimeFor: winAttrs to: accessDate
- "Set the file creation time from the supplied attributes."
- <option: #_WIN32>
-
- | sysTime fileTime |
-
- <var: 'winAttrs' type: #'WIN32_FILE_ATTRIBUTE_DATA *'>
- <var: 'accessDate' type: #'sqLong *'>
- <var: 'fileTime' type: #'FILETIME'>
- <var: 'sysTime' type: #'SYSTEMTIME'>
-
- self touch: sysTime.
- self touch: fileTime.
-
- (self cCode: 'FileTimeToLocalFileTime(&winAttrs->ftLastAccessTime, &fileTime)') = 0 ifTrue:
- [^self timeConversionFailed].
- (self cCode: 'FileTimeToSystemTime(&fileTime, &sysTime)') = 0 ifTrue:
- [^self timeConversionFailed].
- self cCode: '*accessDate = convertWinToSqueakTime(sysTime)'.
-
- ^0!
Item was removed:
- ----- Method: FileAttributesPlugin>>winFileLastWriteTimeFor:to: (in category 'private - windows') -----
- winFileLastWriteTimeFor: winAttrs to: writeDate
- "Set the file write time from the supplied attributes."
- <option: #_WIN32>
-
- | sysTime fileTime |
-
- <var: 'winAttrs' type: #'WIN32_FILE_ATTRIBUTE_DATA *'>
- <var: 'writeDate' type: #'sqLong *'>
- <var: 'fileTime' type: #'FILETIME'>
- <var: 'sysTime' type: #'SYSTEMTIME'>
-
- self touch: sysTime.
- self touch: fileTime.
-
- (self cCode: 'FileTimeToLocalFileTime(&winAttrs->ftLastWriteTime, &fileTime)') = 0 ifTrue:
- [^self timeConversionFailed].
- (self cCode: 'FileTimeToSystemTime(&fileTime, &sysTime)') = 0 ifTrue:
- [^self timeConversionFailed].
- self cCode: '*writeDate = convertWinToSqueakTime(sysTime)'.
-
- ^0!
Item was removed:
- ----- Method: FileAttributesPlugin>>winFileTimesFor:to: (in category 'private - windows') -----
- winFileTimesFor: faPath to: attributeArray
- <inline: #never>
- <option: #_WIN32>
-
- | winAttrs attributeDate status |
- <var: 'faPath' type: #'fapath *'>
- <var: 'attributeDate' type: #'sqLong'>
- <var: 'winAttrs' type: #'WIN32_FILE_ATTRIBUTE_DATA'>
-
- "Get the file attributes"
- status := self cCode: 'GetFileAttributesExW(faGetPlatPath(faPath), GetFileExInfoStandard, &winAttrs)'.
- status = 0 ifTrue: [^self getAttributesFailed].
-
- "Set the accessDate"
- status := self winFileLastAccessTimeFor: (self addressOf: winAttrs) to: (self addressOf: attributeDate).
- status = 0 ifFalse: [^status].
- interpreterProxy
- storePointer: 8
- ofObject: attributeArray
- withValue: (interpreterProxy signed64BitIntegerFor: attributeDate).
-
- "Set the modifiedDate"
- status := self winFileLastWriteTimeFor: (self addressOf: winAttrs) to: (self addressOf: attributeDate).
- status = 0 ifFalse: [^status].
- interpreterProxy
- storePointer: 9
- ofObject: attributeArray
- withValue: (interpreterProxy signed64BitIntegerFor: attributeDate).
-
- "Set the changeDate"
- interpreterProxy
- storePointer: 10
- ofObject: attributeArray
- withValue: interpreterProxy nilObject.
-
- "Set the creationDate"
- status := self winFileCreationTimeFor: (self addressOf: winAttrs) to: (self addressOf: attributeDate).
- status = 0 ifFalse: [^status].
- interpreterProxy
- storePointer: 11
- ofObject: attributeArray
- withValue: (interpreterProxy signed64BitIntegerFor: attributeDate).
-
- ^0
- !
Item was changed:
FileAttributesPlugin subclass: #FileAttributesPluginSimulator
instanceVariableNames: 'maxPathLen'
classVariableNames: 'FA_PATH_MAX HAVE_CHMOD HAVE_CHOWN HAVE_LSTAT PATH_MAX S_IFBLK S_IFCHR S_IFDIR S_IFIFO S_IFLNK S_IFMT S_IFREG S_IFSOCK'
poolDictionaries: ''
category: 'FileAttributesPlugin'!
+ !FileAttributesPluginSimulator commentStamp: 'akg 11/28/2018 22:14' prior: 0!
- !FileAttributesPluginSimulator commentStamp: 'akg 10/19/2018 16:12' prior: 0!
FileAttributesPluginSimulator provides support functions to allow the FilePluginsAttribute to run in the VM simulator.
faPath is opaque to the VM, but normally stores:
1. The file path being interagated in the format provided by the image (precomposed UTF8).
2. The file path in platform specific format, e.g. wide strings for Windows, decomposed UTF8 for Mac.
3. Platform specific directory iteration information when required, e.g. primOpendir.
The simulator stores an Array with:
+ 1. The session ID
+ 2. The input path in precomposed UTF8.
+ 3. The file name when iterating over directories.
+ 4. The input path with platform specific encoding
+ 5. The file name when iterating over directories with platform specific encoding
+ 6. The pointer to the real faPath used by the plugin.
- 1. The input path in precomposed UTF8.
- 2. The file name when iterating over directories.
- 3. The input path with platform specific encoding
- 4. The file name when iterating over directories with platform specific encoding
- 5. The pointer to the real faPath used by the plugin.
The third and fourth entries (platform specific encoding) are only valid in specific cases, e.g. primitivePlatToStPath and primitiveStToPlatPath.
Instance Variables
!
Item was changed:
----- Method: FileAttributesPluginSimulator>>classOf: (in category 'simulation support') -----
classOf: anOop
| clsOop |
anOop = interpreterProxy nilObject ifTrue: [^UndefinedObject].
clsOop := interpreterProxy fetchClassOf: anOop.
clsOop = interpreterProxy classArray ifTrue: [^Array].
clsOop = interpreterProxy classByteArray ifTrue: [^ByteArray].
clsOop = interpreterProxy classString ifTrue: [^ByteString].
+ clsOop = interpreterProxy classLargePositiveInteger ifTrue: [^LargePositiveInteger].
+ clsOop = interpreterProxy classSmallInteger ifTrue: [^SmallInteger].
self error: 'unknown class'!
Item was changed:
----- Method: FileAttributesPluginSimulator>>faCloseDirectory: (in category 'simulation') -----
faCloseDirectory: faPath
"Simulate the the call by actually calling the primitive and discarding the stat information (which will be retrieved again later in the simulation)."
| result status |
result := self primClosedir: (self faPathPtr: faPath).
result isNumber ifFalse:
+ [faPath at: 6 put: nil.
- [faPath at: 3 put: nil.
status := 0 ]
ifTrue:
[status := result < 0
ifTrue: [result]
ifFalse: [self unableToCloseDir]].
^status
!
Item was changed:
----- Method: FileAttributesPluginSimulator>>faExists: (in category 'simulation') -----
faExists: faPath
"Simulate the the call by actually calling the primitive."
+ ^(self primExists: (self faGetStPath: faPath))
- ^(self primExists: faPath first)
ifTrue: [interpreterProxy trueObject]
ifFalse: [interpreterProxy falseObject].
!
Item was changed:
----- Method: FileAttributesPluginSimulator>>faFileAttribute:_: (in category 'simulation') -----
faFileAttribute: faPath _: attributeNumber
"Simulate the the call by actually calling the primitive."
+ ^self toOop: (self primFileAttribute: (self faGetStPath: faPath) number: attributeNumber)!
- ^self toOop: (self primFileAttribute: faPath first number: attributeNumber)!
Item was changed:
----- Method: FileAttributesPluginSimulator>>faGetPlatPath: (in category 'simulation') -----
faGetPlatPath: faPath
"Answer the Plat format of the path.
+ In the simulation, actually answer the St format, this is required as the real primitive will eventually be called, which requires the St format."
- Horrible kludge: Within the simulation: if the platform encoding hasn't been set we're about to call the real primitive, which means that actually the St form is required."
+ ^self faGetStPath: faPath!
- | path |
-
- path := (faPath at: 3) ifNil:
- [faPath
- at: 4 put: nil;
- at: 3 put: (self primToPlatformPath: (self faGetStPath: faPath))].
- (faPath at: 4) ifNotNil: [
- path := path, (faPath at: 4)].
- ^path!
Item was changed:
----- Method: FileAttributesPluginSimulator>>faGetPlatPathByteCount: (in category 'simulation') -----
faGetPlatPathByteCount: faPath
"Answer the number of bytes in the platform specific encoding"
+
-
^(self faGetPlatPath: faPath) size!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faGetPlatformPath: (in category 'simulation') -----
+ faGetPlatformPath: faPath
+ "Answer the Platform format of the path.
+ This isn't normally used within the simulation as the simulation ultimately calls the actual primitive, which requires the St format of the path."
+
+ | path |
+
+ path := (faPath at: 4) ifNil:
+ [faPath
+ at: 5 put: nil;
+ at: 4 put: (self primToPlatformPath: (self faGetStPath: faPath))].
+ (faPath at: 5) ifNotNil: [
+ path := path, (faPath at: 5)].
+ ^path!
Item was changed:
----- Method: FileAttributesPluginSimulator>>faGetStFile: (in category 'simulation') -----
faGetStFile: faPath
"Answer the basename of the path.
+ The simulated faPath contains the basename as the third entry in the Array."
- The simulated faPath contains the basename as the second entry in the Array."
+ ^faPath at: 3!
- ^faPath at: 2!
Item was changed:
----- Method: FileAttributesPluginSimulator>>faGetStPath: (in category 'simulation') -----
faGetStPath: faPath
"Answer the St format of the path."
| path |
+ path := faPath second.
+ faPath third ifNotNil: [
+ path := path, faPath third].
- path := faPath first.
- faPath second ifNotNil: [
- path := path, faPath second].
^path!
Item was changed:
----- Method: FileAttributesPluginSimulator>>faGetStPathLen: (in category 'simulation') -----
faGetStPathLen: faPath
"Answer the length of the path."
+ ^(self faGetStPath: faPath) size
- ^faPath first size
!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faInitSessionId: (in category 'simulation') -----
+ faInitSessionId: faPathPtr
+ "Set the session id in the supplied pointer (a 2 element array in the simulation)"
+
+ faPathPtr at: 1 put: interpreterProxy getThisSessionID.
+ ^self faSuccess!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faInvalidateSessionId: (in category 'simulation') -----
+ faInvalidateSessionId: faPathPtr
+ "Clear the session ID in the faPathPtr, marking it invalid"
+
+ faPathPtr at: 1 put: nil.
+ ^self faSuccess!
Item was changed:
----- Method: FileAttributesPluginSimulator>>faOpenDirectory: (in category 'simulation') -----
faOpenDirectory: faPath
"Simulate the the call by actually calling the primitive and discarding the stat information (which will be retrieved again later in the simulation)."
| result status |
+ result := self primOpendir: (self faGetStPath: faPath).
+ result ifNotNil: [
+ faPath
+ at: 3 put: (result at: 1);
+ at: 6 put: (result at: 3).
+ status := 0 ]
+ ifNil: [status := self noMoreData].
- result := self primOpendir: faPath first.
- result ifNil:
- [status := self noMoreData]
- ifNotNil:
- [result isInteger ifTrue:
- [status := result]
- ifFalse:
- [faPath
- at: 2 put: (result at: 1);
- at: 3 put: (result at: 3).
- status := 0 ]].
^status
!
Item was changed:
----- Method: FileAttributesPluginSimulator>>faPathPtr: (in category 'simulation') -----
+ faPathPtr: faPath
- faPathPtr: faPathSimulation
"Given the simulation faPath, answer the ByteArray pointing to the actual faPath"
+ ^faPath at: 6!
- ^faPathSimulation at: 3!
Item was changed:
----- Method: FileAttributesPluginSimulator>>faReadDirectory: (in category 'simulation') -----
faReadDirectory: faPath
"Simulate the the call by actually calling the primitive and discarding the stat information (which will be retrieved again later in the simulation)."
| result status |
result := self primReaddir: (self faPathPtr: faPath).
result ifNotNil: [
+ faPath at: 3 put: (result at: 1).
- faPath at: 2 put: (result at: 1).
status := 0 ]
ifNil: [status := self noMoreData].
^status
!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faSessionId: (in category 'simulation') -----
+ faSessionId: faPath
+ "Answer the session id of the current path"
+
+ ^faPath first!
Item was changed:
----- Method: FileAttributesPluginSimulator>>faSetPlatPathOop:_: (in category 'simulation') -----
faSetPlatPathOop: faPath _: fileNameOop
"Simulate setting the platform encoded file name in the supplied faPath."
| fileNameBytes len path stPath |
fileNameBytes := interpreterProxy arrayValueOf: fileNameOop.
+ len := interpreterProxy stSizeOf: fileNameOop.
- len := self strlen: fileNameBytes.
path := ByteArray new: len.
self strncpy: path _: fileNameBytes _: len.
+ faPath
+ at: 4 put: path;
+ at: 5 put: nil.
- self simFaPathPlatPath: faPath set: path.
stPath := self primFromPlatformPath: path.
+ faPath
+ at: 2 put: stPath;
+ at: 3 put: nil.!
- self simFaPathStPath: faPath set: stPath!
Item was changed:
----- Method: FileAttributesPluginSimulator>>faSetStDirOop:_: (in category 'simulation') -----
faSetStDirOop: faPath _: dirOop
"Simulate setting the dir name in the supplied faPath."
self faSetStPathOop: faPath _: dirOop.
+ faPath second last = FileDirectory pathNameDelimiter asciiValue ifFalse:
+ [faPath at: 2 put: (faPath second copyWith: FileDirectory pathNameDelimiter asciiValue)].
+ faPath at: 3 put: nil.!
- faPath first last = FileDirectory pathNameDelimiter asciiValue ifFalse:
- [faPath at: 1 put: (faPath first copyWith: FileDirectory pathNameDelimiter asciiValue)].
- faPath at: 2 put: nil.!
Item was changed:
----- Method: FileAttributesPluginSimulator>>faSetStPathOop:_: (in category 'simulation') -----
faSetStPathOop: faPath _: fileNameOop
+ "Set the St encoded path."
- "Simulate setting the file name in the supplied faPath.
- The simulated faPath is simply the file name as a C string (null-terminated)."
| fileNameBytes len path |
fileNameBytes := interpreterProxy arrayValueOf: fileNameOop.
self assert: faPath class == Array.
+ len := interpreterProxy stSizeOf: fileNameOop.
- len := self strlen: fileNameBytes.
path := ByteArray new: len.
self strncpy: path _: fileNameBytes _: len.
faPath
+ at: 2 put: path;
+ at: 3 put: nil.!
- at: 1 put: path;
- at: 2 put: nil.!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faValidatePath: (in category 'simulation') -----
+ faValidatePath: faPath
+ "The simulation currently doesn't keep track of the sessionId."
+
+ ^(self faSessionId: faPath) = interpreterProxy getThisSessionID!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>faValidateSessionId: (in category 'simulation') -----
+ faValidateSessionId: anInteger
+ "Answer a boolean indicating whether the supplied session id matches the current one."
+
+ ^anInteger = interpreterProxy getThisSessionID!
Item was changed:
----- Method: FileAttributesPluginSimulator>>fromOop: (in category 'simulation support') -----
fromOop: anOop
| cls |
cls := self classOf: anOop.
cls = UndefinedObject ifTrue: [^nil].
cls = Array ifTrue: [^self arrayFromOop: anOop].
cls = ByteArray ifTrue: [^self byteArrayFromOop: anOop].
cls = ByteString ifTrue: [^self byteStringFromOop: anOop].
+ cls = LargePositiveInteger ifTrue: [^self largePositiveIntegerFromOop: anOop].
+ cls = SmallInteger ifTrue: [^self smallIntegerFromOop: anOop].
self error: 'Unknown class'.!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>largePositiveIntegerFromOop: (in category 'simulation support') -----
+ largePositiveIntegerFromOop: anOop
+ "Answer a copy of the supplied large positive integer Oop"
+
+ | sz array ptr |
+
+ sz := interpreterProxy stSizeOf: anOop.
+ ptr := interpreterProxy arrayValueOf: anOop.
+ array := ByteArray new: 8.
+ 1 to: sz do: [ :i |
+ array at: i put: (interpreterProxy byteAt: ptr+i-1)].
+ ^Integer
+ byte1: (array at: 1)
+ byte2: (array at: 2)
+ byte3: (array at: 3)
+ byte4: (array at: 4)
+ byte5: (array at: 5)
+ byte6: (array at: 6)
+ byte7: (array at: 7)
+ byte8: (array at: 8)
+ !
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>objectFromStruct:size: (in category 'private') -----
+ objectFromStruct: anObject size: structSize
+ "Copy the simulation path in to the simulated image"
+
+ ^self toOop: anObject!
Item was removed:
- ----- Method: FileAttributesPluginSimulator>>simFaPathPlatDir: (in category 'faPath simulation') -----
- simFaPathPlatDir: faPath
- "Answer the directory name"
-
- ^faPath at: 3!
Item was removed:
- ----- Method: FileAttributesPluginSimulator>>simFaPathPlatFIleName: (in category 'faPath simulation') -----
- simFaPathPlatFIleName: faPath
- "Answer the file name, nil if not present"
-
- ^faPath at: 4!
Item was removed:
- ----- Method: FileAttributesPluginSimulator>>simFaPathPlatPath: (in category 'faPath simulation') -----
- simFaPathPlatPath: faPath
- "Answer the full path name, i.e. combine the directory and file name (if present)"
-
- | path |
-
- path := faPath at: 3.
- (faPath at: 4) ifNotNil:
- [path := path, (faPath at: 4)].
- ^path!
Item was removed:
- ----- Method: FileAttributesPluginSimulator>>simFaPathPlatPath:set: (in category 'faPath simulation') -----
- simFaPathPlatPath: faPath set: pathName
- "Set the full path name"
-
- faPath
- at: 3 put: pathName;
- at: 4 put: nil.
- ^pathName!
Item was removed:
- ----- Method: FileAttributesPluginSimulator>>simFaPathPtr: (in category 'faPath simulation') -----
- simFaPathPtr: faPath
- "Answer the address of the actual faPath buffer"
-
- ^faPath at: 5!
Item was removed:
- ----- Method: FileAttributesPluginSimulator>>simFaPathStDir: (in category 'faPath simulation') -----
- simFaPathStDir: faPath
- "Answer the directory name"
-
- ^faPath at: 1!
Item was removed:
- ----- Method: FileAttributesPluginSimulator>>simFaPathStFIleName: (in category 'faPath simulation') -----
- simFaPathStFIleName: faPath
- "Answer the file name, nil if not present"
-
- ^faPath at: 2!
Item was removed:
- ----- Method: FileAttributesPluginSimulator>>simFaPathStPath: (in category 'faPath simulation') -----
- simFaPathStPath: faPath
- "Answer the full path name, i.e. combine the directory and file name (if present)"
-
- | path |
-
- path := faPath at: 1.
- (faPath at: 2) ifNotNil:
- [path := path, (faPath at: 2)].
- ^path!
Item was removed:
- ----- Method: FileAttributesPluginSimulator>>simFaPathStPath:set: (in category 'faPath simulation') -----
- simFaPathStPath: faPath set: path
- "Set the full path name"
-
- faPath
- at: 1 put: path;
- at: 2 put: nil.
- ^path!
Item was changed:
----- Method: FileAttributesPluginSimulator>>simulatedFaPath (in category 'simulation support') -----
simulatedFaPath
"Answer the simulated faPath.
See class comments for details."
+ ^Array new: self sizeOfFaPath.!
- ^Array new: 5.!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>smallIntegerFromOop: (in category 'simulation support') -----
+ smallIntegerFromOop: anOop
+ "Answer a copy of the supplied large positive integer Oop"
+
+ ^interpreterProxy integerValueOf: anOop!
Item was added:
+ ----- Method: FileAttributesPluginSimulator>>structFromObject:size: (in category 'private') -----
+ structFromObject: anOop size: structSize
+ "Copy the object from the simulated image to the simulator.
+ At the moment, all objects are passed in Arrays with structSize elements."
+
+ | array |
+
+ array := self fromOop: anOop.
+ array isArray ifFalse: [^0].
+ array size = structSize ifFalse: [^0].
+ ^array!
1
0