Vm-dev November 2019

vm-dev@lists.squeakfoundation.org

19 participants
178 discussions

Start a nNew thread

VM Maker: FileAttributesPlugin.oscog-AlistairGrant.35.mcz
by commits＠source.squeak.org 29 Nov '19

29 Nov '19

1 0

VM Maker: FileAttributesPlugin.oscog-AlistairGrant.38.mcz
by commits＠source.squeak.org 29 Nov '19

29 Nov '19

Eliot Miranda uploaded a new version of FileAttributesPlugin to project VM Maker: http://source.squeak.org/VMMaker/FileAttributesPlugin.oscog-AlistairGrant.3… ==================== Summary ==================== Name: FileAttributesPlugin.oscog-AlistairGrant.38 Author: AlistairGrant Time: 2 October 2018, 8:40:30.106841 am UUID: f0fcdb0f-e642-4f87-8a9f-d35ffa0d05ff Ancestors: FileAttributesPlugin.oscog-eem.37 FileAttributesPlugin 2.0.0: Fixes UTF8 on Windows Restructure FileAttributesPlugin to move platform specific functionality out to separate files. This is required as Windows requires the "wide" versions of posix functions to be used, e.g. access() vs. _waccess(), while other seem to require the Windows native functions, e.g. iterating over directories, and interleaving #ifdef _WIN32 was becoming unwieldy. =============== Diff against FileAttributesPlugin.oscog-eem.37 =============== 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"'. - # include "sqUnixCharConv.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 #endif'. cg addHeaderFile: '<unistd.h> /* AKG 2018 - ', self moduleName, '.c translated from class ', self name, ' */'! 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 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 memcpy: byteArrayPtr _: aCString _: len. - byteArrayOop at: 0 put: newByteArray. - ^0! 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 changed: ----- 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>>faConvertUnixToLongSqueakTime: (in category 'private - posix') ----- - faConvertUnixToLongSqueakTime: unixTime - "Convert the supplied Unix (UTC) time to Squeak time. - - Squeak time has an epoch of 1901 and uses local time - i.e. timezone + daylight savings - - Answer an sqLong which is guaranteed to be 64 bits on all platforms." - - | squeakTime | - - <returnTypeC: #'sqLong'> - <var: 'unixTime' type: #'time_t'> - <var: 'squeakTime' type: #'sqLong'> - - self cppIf: #_WIN32 defined ifTrue: - [squeakTime := 0] - ifFalse: [ - squeakTime := unixTime. - self cppIf: (self defined: #HAVE_TM_GMTOFF) ifTrue: - [ squeakTime := squeakTime + (self cCode: 'localtime(&unixTime)->tm_gmtoff')] - ifFalse: [ self cppIf: (self defined: #HAVE_TIMEZONE) ifTrue: - [ squeakTime := squeakTime + (self cCode: '(daylight*60*60) - timezone')] - ifFalse: [ self cPreprocessorDirective: '#error: cannot determine timezone correction']]. - "Squeak epoch is Jan 1, 1901. Unix epoch is Jan 1, 1970: 17 leap years - and 52 non-leap years later than Squeak." - squeakTime := squeakTime + - (self cCode: '(52*365UL + 17*366UL) * 24*60*60UL' - inSmalltalk: [((52*365) + (17*366)) * 24*60*60]) ]. - ^squeakTime - - - ! 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." - <inline: #never> - <option: #_WIN32> - | winAttrs status | - <var: 'pathString' type: #'char *'> - <var: 'creationDate' type: #'sqLong *'> - <var: 'winAttrs' type: #'WIN32_FILE_ATTRIBUTE_DATA'> - - "Get the file attributes" - status := self winFileAttributesFor: pathString length: pathLength to: (self addressOf: winAttrs). - status = 0 ifFalse: [^status]. - - "Set the creationDate" - status := self winFileCreationTimeFor: (self addressOf: winAttrs) to: creationDate. - status = 0 ifFalse: [^status]. - - ^0! Item was removed: - ----- Method: FileAttributesPlugin>>fileLastAccessTimeFor:length:to: (in category 'private - windows') ----- - fileLastAccessTimeFor: pathString length: pathLength to: creationDate - "Get the creationDate for the supplied file." - <inline: #never> - <option: #_WIN32> - | winAttrs status | - <var: 'pathString' type: #'char *'> - <var: 'creationDate' type: #'sqLong *'> - <var: 'winAttrs' type: #'WIN32_FILE_ATTRIBUTE_DATA'> - - "Get the file attributes" - status := self winFileAttributesFor: pathString length: pathLength to: (self addressOf: winAttrs). - status = 0 ifFalse: [^status]. - - "Set the creationDate" - status := self winFileLastAccessTimeFor: (self addressOf: winAttrs) to: creationDate. - status = 0 ifFalse: [^status]. - - ^0! Item was removed: - ----- Method: FileAttributesPlugin>>fileLastWriteTimeFor:length:to: (in category 'private - windows') ----- - fileLastWriteTimeFor: pathString length: pathLength to: creationDate - "Get the creationDate for the supplied file." - <inline: #never> - <option: #_WIN32> - | winAttrs status | - <var: 'pathString' type: #'char *'> - <var: 'creationDate' type: #'sqLong *'> - <var: 'winAttrs' type: #'WIN32_FILE_ATTRIBUTE_DATA'> - - "Get the file attributes" - status := self winFileAttributesFor: pathString length: pathLength to: (self addressOf: winAttrs). - status = 0 ifFalse: [^status]. - - "Set the creationDate" - status := self winFileLastWriteTimeFor: (self addressOf: winAttrs) to: creationDate. - status = 0 ifFalse: [^status]. - - ^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: 'cPathName' type: #'char *'> <var: 'attributeArray' type: #'sqInt *'> + <var: 'statBuf' type: #'faStatStruct'> - <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]. 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: [ 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]. - ^self unsupportedOperation! Item was added: + ----- Method: FileAttributesPlugin>>noMoreData (in category 'errors / status') ----- + noMoreData + <inline: #always> + ^1! Item was removed: - ----- Method: FileAttributesPlugin>>openDirectoryStream:ptr: (in category 'private - directory') ----- - openDirectoryStream: cPathName ptr: osdirPtr - "Open a new directory stream. Answer a pointer to the directory stream or NULL." - - | len dir | - <var: 'osdirPtr' type: #'osdir **'> - <var: 'dir' type: #'osdir *'> - <var: 'cPathName' type: 'char *'> - <returnTypeC: #'int'> - - len := self strlen: cPathName. - "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: cPathName length: len) - ifTrue: - [ - dir := self cCode: '(osdir *) malloc(sizeof(osdir))'. - dir = nil ifTrue: [^self cantAllocateMemory]. - self memcpy: dir path _: cPathName _: 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>>posixFileTimesFrom:to: (in category 'private - posix') ----- posixFileTimesFrom: statBufPointer to: attributeArray "Populate attributeArray with the file times from statBufPointer" | attributeDate | + <var: 'statBufPointer' type: #'faStatStruct *'> - <var: 'statBufPointer' type: #'struct stat *'> <var: 'attributeDate' type: #'sqLong'> self cppIf: #_WIN32 defined ifTrue: [] ifFalse: [ + attributeDate := self faConvertUnixToLongSqueakTime: (self cCode: 'statBufPointer->st_atime'). - attributeDate := self faConvertUnixToLongSqueakTime: statBufPointer st_atime. interpreterProxy storePointer: 8 ofObject: attributeArray withValue: (interpreterProxy signed64BitIntegerFor: attributeDate). + attributeDate := self faConvertUnixToLongSqueakTime: (self cCode: 'statBufPointer->st_mtime'). - attributeDate := self faConvertUnixToLongSqueakTime: statBufPointer st_mtime. interpreterProxy storePointer: 9 ofObject: attributeArray withValue: (interpreterProxy signed64BitIntegerFor: attributeDate). + attributeDate := self faConvertUnixToLongSqueakTime: (self cCode: 'statBufPointer->st_ctime'). - attributeDate := self faConvertUnixToLongSqueakTime: statBufPointer st_ctime. interpreterProxy storePointer: 10 ofObject: attributeArray withValue: (interpreterProxy signed64BitIntegerFor: attributeDate); storePointer: 11 ofObject: attributeArray withValue: interpreterProxy nilObject ]. ^0! Item was changed: ----- Method: FileAttributesPlugin>>primitiveChangeMode (in category 'file primitives') ----- primitiveChangeMode "Set the mode of the supplied file using chmod()." | fileNameOop newMode cString status | <export: true> <var: 'newMode' type: #'sqInt'> <var: 'cString' declareC: 'char cString[PATH_MAX+1]'> fileNameOop := interpreterProxy stackObjectValue: 1. newMode := interpreterProxy stackIntegerValue: 0. (interpreterProxy failed or: [(interpreterProxy isBytes: fileNameOop) not]) ifTrue: [^interpreterProxy primitiveFailFor: PrimErrBadArgument]. - self squeakPath: fileNameOop toUnix: cString maxLen: #PATH_MAX. - interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailForOSError: interpreterProxy primitiveFailureCode]. self cppIf: #HAVE_CHMOD ifTrue: [ + self squeakPath: fileNameOop toPlatform: cString maxLen: #PATH_MAX. + interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailForOSError: interpreterProxy primitiveFailureCode]. status := self ch: cString mod: 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 cString status | <export: true> + <var: 'cString' declareC: 'char cString[FA_PATH_MAX]'> - <var: 'newMode' type: #'sqInt'> - <var: 'cString' declareC: 'char cString[PATH_MAX+1]'> fileNameOop := interpreterProxy stackObjectValue: 2. ownerId := interpreterProxy stackIntegerValue: 1. groupId := interpreterProxy stackIntegerValue: 0. (interpreterProxy failed or: [(interpreterProxy isBytes: fileNameOop) not]) ifTrue: [^interpreterProxy primitiveFailFor: PrimErrBadArgument]. - self squeakPath: fileNameOop toUnix: cString maxLen: #PATH_MAX. - interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailForOSError: interpreterProxy primitiveFailureCode]. self cppIf: #HAVE_CHOWN ifTrue: [ + self squeakPath: fileNameOop toPlatform: cString maxLen: #FA_PATH_MAX. + interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailForOSError: interpreterProxy primitiveFailureCode]. + status := self chown: cString _: ownerId _: groupId. - status := self ch: cString o: ownerId wn: 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 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 attributeDate status | <export: true> + <var: 'faPath' type: #'fapath *'> - <var: 'statBuf' type: #'struct stat'> - <var: 'cPathName' declareC: 'char cPathName[PATH_MAX+1]'> - <var: 'attributeDate' type: #'sqLong'> 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))'. + faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory]. + self faSetStPathOop: faPath _: fileName. - self squeakPath: fileName toUnix: cPathName maxLen: #PATH_MAX. interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailureCode]. - resultOop := 0. + resultOop := self faFileAttribute: faPath _: attributeNumber. + interpreterProxy failed ifTrue: + [^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: [ "Access Time" - self cppIf: #_WIN32 defined ifTrue: [ - status := self fileLastAccessTimeFor: cPathName - length: cPathName strlen - to: (self addressOf: attributeDate put: [:val| attributeDate := val]). - status ~= 0 ifTrue: - [^interpreterProxy primitiveFailForOSError: status]. - resultOop := interpreterProxy signed64BitIntegerFor: attributeDate ] - ifFalse: [ - attributeDate := self faConvertUnixToLongSqueakTime: statBuf st_atime. - resultOop := interpreterProxy signed64BitIntegerFor: attributeDate]]. - attributeNumber = 10 ifTrue: [ "Modified Time" - self cppIf: #_WIN32 defined ifTrue: [ - status := self fileLastWriteTimeFor: cPathName - length: cPathName strlen - to: (self addressOf: attributeDate put: [:val| attributeDate := val]). - status ~= 0 ifTrue: - [^interpreterProxy primitiveFailForOSError: status]. - resultOop := interpreterProxy signed64BitIntegerFor: attributeDate ] - ifFalse: [ - attributeDate := self faConvertUnixToLongSqueakTime: statBuf st_mtime. - resultOop := interpreterProxy signed64BitIntegerFor: attributeDate]]. - attributeNumber = 11 ifTrue: [ "Change Time" - self cppIf: #_WIN32 defined ifTrue: - [resultOop := interpreterProxy nilObject] - ifFalse: [ - attributeDate := self faConvertUnixToLongSqueakTime: statBuf st_ctime. - resultOop := interpreterProxy signed64BitIntegerFor: attributeDate]]. - ] - ifFalse: [attributeNumber = 12 ifTrue: [ "Creation Time" - self cppIf: #_WIN32 defined ifTrue: [ - status := self fileCreationTimeFor: cPathName - length: cPathName strlen - to: (self addressOf: attributeDate put: [:val| attributeDate := val]). - status ~= 0 ifTrue: - [^interpreterProxy primitiveFailForOSError: status]. - resultOop := interpreterProxy signed64BitIntegerFor: attributeDate ] - 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, #isSymlink" - [ - status := self isSymlink: cPathName boolean: (self addressOf: resultOop put: [:val| resultOop := val]). - status ~= 0 ifTrue: - [^interpreterProxy primitiveFailForOSError: status]. - ]]]. resultOop = 0 ifTrue: ["It shouldn't be possible to get here" interpreterProxy primitiveFailForOSError: self unexpectedError] 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+1]'> 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))'. + faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory]. + self faSet: faPath StPathOop: fileName. - self squeakPath: fileName toUnix: cPathName maxLen: #PATH_MAX. interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailureCode]. + status := self fileToAttributeArray: faPath - status := self fileToAttributeArray: cPathName mask: attributeMask array: (self addressOf: attributeArray put: [:val| attributeArray := val]). status ~= 0 ifTrue: [interpreterProxy primitiveFailForOSError: status] 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 | - | fileNameOop accessFlag cString | <export: true> <var: 'accessFlag' type: #'sqInt'> + <var: 'faPath'type: #'fapath *'> - <var: 'cString' declareC: 'char cString[PATH_MAX+1]'> fileNameOop := interpreterProxy stackObjectValue: 0. (interpreterProxy isBytes: fileNameOop) ifFalse: [^interpreterProxy primitiveFailFor: PrimErrBadArgument]. + + faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'. + faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory]. + self faSetStPathOop: faPath _: fileNameOop. - self squeakPath: fileNameOop toUnix: cString maxLen: #PATH_MAX. interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailureCode]. + + ^interpreterProxy methodReturnValue: (self faExists: faPath). + ! - accessFlag := (self acc: cString ess: (self fileOKFlag)). - interpreterProxy pop: 2 thenPush: (accessFlag = 0 - ifTrue: [interpreterProxy trueObject] - ifFalse: [interpreterProxy falseObject])! 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 cPathName | <export: true> + <var: 'faPath' type: #'fapath *'> - <var: 'dir' type: #'osdir *'> - <var: 'cPathName' declareC: 'char cPathName[PATH_MAX+1]'> dirName := interpreterProxy stackObjectValue: 0. (interpreterProxy isBytes: dirName) ifFalse: [^interpreterProxy primitiveFailFor: PrimErrBadArgument]. + faPath := self cCode: '(fapath *) calloc(1, sizeof(fapath))'. + faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory]. + self faSet: faPath StDirOop: dirName. + + (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: + [^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; + pop: 2 thenPush: resultOop.! - self squeakPath: dirName toUnix: cPathName maxLen: #PATH_MAX. - interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailureCode]. - status := self openDirectoryStream: cPathName 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))'. + faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory]. + self faSetPlatPathOop: faPath _: fileName. + interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailureCode]. + + resultOop := interpreterProxy + instantiateClass: interpreterProxy classByteArray + indexableSize: (self faGetStPathLen: faPath). + resultOop ifNil: + [^interpreterProxy primitiveFailFor: PrimErrNoMemory]. + byteArrayPtr := interpreterProxy arrayValueOf: resultOop. + self memcpy:byteArrayPtr _: (self faGetStPath: faPath) _: (self faGetStPathLen: 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 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: + [^interpreterProxy primitiveFailForOSError: status]. + resultArray := self processDirectory: faPath. + interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailureCode]. - entryName := self unixPathToOop: ent d_name. - "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 memcpy: dirStream path_file _: ent d_name _: 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 | - | dirPointerOop dirStream | <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]. + ^interpreterProxy primitiveFailForOSError: self unexpectedError. + "self rewinddir: dirStream dp." + "interpreterProxy pop: 2 thenPush: dirPointerOop"! - 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))'. + faPath = nil ifTrue: [^interpreterProxy primitiveFailForOSError: self cantAllocateMemory]. + self faSetStPathOop: faPath _: fileName. + interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailureCode]. + + resultOop := interpreterProxy + instantiateClass: interpreterProxy classByteArray + indexableSize: (self faGetPlatPathByteCount: faPath). + resultOop ifNil: + [^interpreterProxy primitiveFailFor: PrimErrNoMemory]. + byteArrayPtr := interpreterProxy arrayValueOf: resultOop. + self memcpy:byteArrayPtr _: (self faGetPlatPath: faPath) _: (self faGetPlatPathByteCount: 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 cString status | <export: true> - <var: 'newMode' type: #'sqInt'> <var: 'cString' declareC: 'char cString[PATH_MAX+1]'> fileNameOop := interpreterProxy stackObjectValue: 2. ownerId := interpreterProxy stackIntegerValue: 1. groupId := interpreterProxy stackIntegerValue: 0. (interpreterProxy failed or: [(interpreterProxy isBytes: fileNameOop) not]) ifTrue: [^interpreterProxy primitiveFailFor: PrimErrBadArgument]. + self squeakPath: fileNameOop toPlatform: cString maxLen: #PATH_MAX. - self squeakPath: fileNameOop toUnix: cString maxLen: #PATH_MAX. interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailForOSError: interpreterProxy primitiveFailureCode]. self cppIf: #HAVE_CHOWN ifTrue: [ status := self lch: cString o: ownerId wn: groupId. 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 + + | status entryName attributeArray resultArray | + + <var: 'faPath' type: #'fapath *'> + + status := self faChar: (self faGetStFile: faPath) + ToByteArray: (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]. - fileNameOop at: 0 put: interpreterProxy nilObject. - ^0! Item was added: + ----- Method: FileAttributesPlugin>>squeakPath:toPlatform:maxLen: (in category 'private') ----- + squeakPath: pathOop toPlatform: cPathString maxLen: maxLength + "Convert the supplied path string oop to a unix c path string. + Parameter checking is done in the main primitive, so pathOop is assumed to be valid. + pathOop is supplied as a precomposed UTF8 string. + cPathString must be encoded using the host OS conventions, e.g. decomposed UTF8 on MacOS. + Signal primitive failure on error." + + | status uxName | + <var: 'cPathString' type: 'char *'> + <var: 'uxName' declareC: 'char uxName[FA_PATH_MAX]'> + + (maxLength >= (self cCode: 'FA_PATH_MAX' inSmalltalk: [4096])) ifTrue: + [^interpreterProxy primitiveFailForOSError: self invalidArguments]. + self cppIf: #_WIN32 ifTrue: [ + status := self pathOop: pathOop toBuffer: cPathString maxLen: maxLength. + status ~= 0 ifTrue: + [^interpreterProxy primitiveFailForOSError: status]] + ifFalse: [ + status := self pathOop: pathOop toBuffer: uxName maxLen: #PATH_MAX. + status ~= 0 ifTrue: + [^interpreterProxy primitiveFailForOSError: status]. + status := self sq2uxPath: uxName _: (self strlen: uxName) _: cPathString _: maxLength _: 1. + status = 0 ifTrue: + [^interpreterProxy primitiveFailForOSError: self invalidArguments]. ]. + ^0! Item was removed: - ----- Method: FileAttributesPlugin>>squeakPath:toUnix:maxLen: (in category 'private - posix') ----- - squeakPath: pathOop toUnix: cPathString maxLen: maxLength - "Convert the supplied path string oop to a unix c path string. - Parameter checking is done in the main primitive, so pathOop is assumed to be valid. - pathOop is supplied as a precomposed UTF8 string. - cPathString must be encoded using the host OS conventions, e.g. decomposed UTF8 on MacOS. - Signal primitive failure on error." - - | status uxName | - <var: 'cPathString' type: 'char *'> - <var: 'uxName' declareC: 'char uxName[PATH_MAX+1]'> - - (maxLength > (self cCode: 'PATH_MAX+1' inSmalltalk: [4097])) ifTrue: - [^interpreterProxy primitiveFailForOSError: self invalidArguments]. - self cppIf: #_WIN32 ifTrue: [ - status := self pathOop: pathOop toBuffer: cPathString maxLen: maxLength. - status ~= 0 ifTrue: - [^interpreterProxy primitiveFailForOSError: status]] - ifFalse: [ - status := self pathOop: pathOop toBuffer: uxName maxLen: #PATH_MAX. - status ~= 0 ifTrue: - [^interpreterProxy primitiveFailForOSError: status]. - status := self sq2: uxName u: (self strlen: uxName) x: cPathString Pa: maxLength th: 1. - status = 0 ifTrue: - [^interpreterProxy primitiveFailForOSError: self invalidArguments]. ]. - ^0! 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 | + <var: 'faPath' type: #'fapath *'> + <var: 'statBufPointer' type: #'faStatStruct *'> - <var: 'cPathName' type: #'char *'> - <var: 'statBufPointer' type: #'struct stat *'> + sizeIfFile := (self cCode: 'S_ISDIR(statBufPointer->st_mode)') = 0 + ifTrue: [self cCode: 'statBufPointer->st_size'] - sizeIfFile := (self S_ISDIR: statBufPointer st_mode) = 0 - ifTrue: [statBufPointer st_size] ifFalse: [0]. interpreterProxy storePointer: 0 ofObject: attributeArray withValue: fileNameOop; storePointer: 1 ofObject: attributeArray + withValue: (interpreterProxy positive64BitIntegerFor: (self cCode: 'statBufPointer->st_mode')); - withValue: (interpreterProxy positiveMachineIntegerFor: statBufPointer st_mode); storePointer: 2 ofObject: attributeArray + withValue: (interpreterProxy positive64BitIntegerFor: (self cCode: 'statBufPointer->st_ino')); - withValue: (interpreterProxy positive64BitIntegerFor: statBufPointer st_ino); storePointer: 3 ofObject: attributeArray + withValue: (interpreterProxy positive64BitIntegerFor: (self cCode: 'statBufPointer->st_dev')); - withValue: (interpreterProxy positive64BitIntegerFor: statBufPointer st_dev); storePointer: 4 ofObject: attributeArray + withValue: (interpreterProxy positive64BitIntegerFor: (self cCode: 'statBufPointer->st_nlink')); - withValue: (interpreterProxy positive64BitIntegerFor: statBufPointer st_nlink); storePointer: 5 ofObject: attributeArray + withValue: (interpreterProxy positive64BitIntegerFor: (self cCode: 'statBufPointer->st_uid')); - withValue: (interpreterProxy positiveMachineIntegerFor: statBufPointer st_uid); storePointer: 6 ofObject: attributeArray + withValue: (interpreterProxy positive64BitIntegerFor: (self cCode: 'statBufPointer->st_gid')); - withValue: (interpreterProxy positiveMachineIntegerFor: statBufPointer st_gid); storePointer: 7 ofObject: attributeArray withValue: (interpreterProxy positive64BitIntegerFor: sizeIfFile). self cppIf: #_WIN32 defined + ifTrue: [ status := self winFileTimesFor: faPath to: attributeArray ] - ifTrue: [ status := self winFileTimesFor: cPathName to: attributeArray ] ifFalse: [ status := self posixFileTimesFrom: statBufPointer to: attributeArray ]. ^status ! 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>>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 changed: + ----- Method: FileAttributesPlugin>>unexpectedError (in category 'errors / status') ----- - ----- Method: FileAttributesPlugin>>unexpectedError (in category 'errors') ----- unexpectedError "This is normally used where a catch-all is placed, but not expected to be used" <inline: #always> ^-14! Item was removed: - ----- Method: FileAttributesPlugin>>unixPathToOop: (in category 'private - posix') ----- - unixPathToOop: cPathString - "Convert the supplied cPathString to a ByteArray. - cPathString is encoded using the host OS conventions, e.g. decomposed UTF8 on MacOS." - - | pathOop status uxName | - <var: 'cPathString' type: #'char *'> - <var: 'uxName' declareC: 'char uxName[PATH_MAX+1]'> - - (self strlen: cPathString) > (self cCode: 'PATH_MAX+1' inSmalltalk: [4097]) ifTrue: - [^interpreterProxy primitiveFailForOSError: self stringTooLong]. - pathOop := 0. - self cppIf: #_WIN32 ifTrue: - [status := self byteArrayFromCString: cPathString to: (self addressOf: pathOop put: [:val| pathOop := val]).] - ifFalse: [ - status := self ux2: cPathString s: (self strlen: cPathString) q: uxName Pa: #PATH_MAX th: 1. - status = 0 ifTrue: - [^interpreterProxy primitiveFailForOSError: self invalidArguments]. - status := self byteArrayFromCString: uxName to: (self addressOf: pathOop put: [:val| pathOop := val]). ]. - status ~= 0 ifTrue: - [^interpreterProxy primitiveFailForOSError: status]. - ^pathOop - ! Item was changed: + ----- Method: FileAttributesPlugin>>unsupportedOperation (in category 'errors / status') ----- - ----- Method: FileAttributesPlugin>>unsupportedOperation (in category 'errors') ----- 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.0'! - ^'1.4.0'! Item was removed: - ----- Method: FileAttributesPlugin>>winFileAttributesFor:length:to: (in category 'private - windows') ----- - winFileAttributesFor: pathString length: pathLength to: winAttrs - "Populate the supplied Win32 file attribute structure" - - <option: #_WIN32> - - | win32Path | - <var: 'pathString' type: #'char *'> - <var: 'winAttrs' type: #'WIN32_FILE_ATTRIBUTE_DATA *'> - <var: 'win32Path' type: #'WCHAR *'> - - self touch: winAttrs. - "convert the supplied path name into a wide string" - self ALLOC_: win32Path WIN32_: pathString PATH: pathLength. - "Populate the supplied winAttrs structure" - (self cCode: 'GetFileAttributesExW(win32Path, GetFileExInfoStandard, winAttrs)') = 0 ifTrue: - [^self getAttributesFailed]. - ^0! Item was changed: ----- Method: FileAttributesPlugin>>winFileTimesFor:to: (in category 'private - windows') ----- + winFileTimesFor: faPath to: attributeArray - winFileTimesFor: cPathName to: attributeArray <inline: #never> <option: #_WIN32> | winAttrs attributeDate status | + <var: 'faPath' type: #'fapath *'> - <var: 'cPathName' type: #'char *'> <var: 'attributeDate' type: #'sqLong'> <var: 'winAttrs' type: #'WIN32_FILE_ATTRIBUTE_DATA'> "Get the file attributes" + status := self cCode: 'GetFileAttributesExW(faGetPlatPath2(faPath), GetFileExInfoStandard, &winAttrs)'. + status = 0 ifTrue: [^self getAttributesFailed]. - status := self winFileAttributesFor: cPathName - length: cPathName strlen - to: (self addressOf: winAttrs put: [ :val | winAttrs := val ]). - status = 0 ifFalse: [^status]. "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" - "Set the accessDate" 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 !

1 0

VM Maker: FileAttributesPlugin.oscog-AlistairGrant.39.mcz
by commits＠source.squeak.org 29 Nov '19

29 Nov '19

1 0

Erlang/OTP/Pony-style concurrency in Smalltalk
by Shaping 29 Nov '19

29 Nov '19

Hi all. I was reading about the RoarVM, recently. The project seems to be at a standstill. Why, as in the RoarVM, would someone try to build a Smalltalk VM supporting concurrency, and not also resolve to use a strict actor model in which each process has its own, usually small heap that is very quickly and simply GCed? If I understand correctly, RoarVM still had one big heap for all processes. With one heap per process, many times no GC happens at all: the process finishes and the heap is discarded. This finer-grained memory-management dynamic gets us closer to deterministic latencies, which are needed in simulations (and almost anything graphical you want to render smoothly). The idea with the actor model (and the OTP-style work-stealing that accompanies it) is not only to use very continuously all cores in all CPUs in all machine-nodes on the network, all of the time (until the program exits or goes idle), but also to make using the usual synchronization devices (semaphores, mutexes, monitors, and the like) unnecessary. This is where all the complexity is and where the time and effort go when coding and debugging concurrent apps. No one wants to use these devices if he needn’t. The actor model is an elegant way to solve the concurrent-programming problem, which mostly reduces to advancing program state with only asynchronous messaging, while causing no blocking and no idle cores if there is still work left to do. The actor model works if you are willing to build a proper state-machine for your app (I have some ideas for a GUI to help in this respect) and the asynchronous messaging is fast. It is very fast in Pony (https://www.ponylang.io/). (Smalltalk images linked by WS connections won’t be fast enough.) I'm learning to use Pony these days. It's a good tool, and it's improving at a good pace with an enthusiastic community. It's statically compiled; so it's not speeding development/experimentation as much as it is the resulting program. However, Pony vastly reduces the amount of concurrency-related debugging you would otherwise do if you did not, after a successful compile, have a provably non-deadlocking/non-data racing program. This is the new thing that Pony gives you, and it's great. But I want a dynamic development environment and very efficient Erlang/OTP/Pony-style concurrency. How do we get that? Why wasn't this the path chosen by the RoarVM developers? What is happening in OpenSmalltalk VM regarding such concurrency? I'm considering using Pony somehow in a 5-pane browser (but that’s some work), dumping compiler errors to the Transcript. I'm not fond of editing text files (scrolling/searching) even when the process is very graceful. That’s too 20th-century. VS Code is a very nice tool with great extensions, but it does not replace what happens in a Smalltalk browser. Please share your thoughts on what is happening or what could be done to create Erlang/OTP/Pony-style concurrency in Smalltalk. Cheers, Shaping

1 0

VM Maker: FileAttributesPlugin.oscog-AlistairGrant.30.mcz
by commits＠source.squeak.org 29 Nov '19

29 Nov '19

Eliot Miranda uploaded a new version of FileAttributesPlugin to project VM Maker: http://source.squeak.org/VMMaker/FileAttributesPlugin.oscog-AlistairGrant.3… ==================== Summary ==================== Name: FileAttributesPlugin.oscog-AlistairGrant.30 Author: AlistairGrant Time: 16 June 2018, 11:06:08.147633 pm UUID: 943fc170-d5c4-4cfd-846c-c3c937a110b5 Ancestors: FileAttributesPlugin.oscog-AlistairGrant.29 FileAttributesPlugin 1.3.1: clean up type declarations - Use #var:type: instead of #var:declareC: - Use symbols for types instead of strings =============== 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: '<limits.h>'. cg addHeaderFile: '<sys/types.h>'. cg addHeaderFile: '<dirent.h> #ifdef _WIN32 #include <windows.h> #include <winbase.h> #define FAIL() { return -1; } #include "sqWin32File.h" + #else + #include "sqMemoryAccess.h" + extern sqLong convertToLongSqueakTime(time_t unixTime); #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, ' */'! 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 *'> - <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 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 *'> - <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>>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' type: 'char *'> - <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>>fileCreationTimeFor:length:to: (in category 'private - windows') ----- fileCreationTimeFor: pathString length: pathLength to: creationDate + "Get the creationDate for the supplied file." + <inline: #never> - "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> + | winAttrs status | + <var: 'pathString' type: #'char *'> + <var: 'creationDate' type: #'sqLong *'> + <var: 'winAttrs' type: #'WIN32_FILE_ATTRIBUTE_DATA'> - | 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]. + "Get the file attributes" + status := self winFileAttributesFor: pathString length: pathLength to: (self addressOf: winAttrs). + status = 0 ifFalse: [^status]. - self cCode: ' - tm.tm_year = sysTime.wYear - 1900; - tm.tm_mon = sysTime.wMonth - 1; - tm.tm_mday = sysTime.wDay; + "Set the creationDate" + status := self winFileCreationTimeFor: (self addressOf: winAttrs) to: creationDate. + status = 0 ifFalse: [^status]. - 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 added: + ----- Method: FileAttributesPlugin>>fileLastAccessTimeFor:length:to: (in category 'private - windows') ----- + fileLastAccessTimeFor: pathString length: pathLength to: creationDate + "Get the creationDate for the supplied file." + <inline: #never> + <option: #_WIN32> + | winAttrs status | + <var: 'pathString' type: #'char *'> + <var: 'creationDate' type: #'sqLong *'> + <var: 'winAttrs' type: #'WIN32_FILE_ATTRIBUTE_DATA'> + + "Get the file attributes" + status := self winFileAttributesFor: pathString length: pathLength to: (self addressOf: winAttrs). + status = 0 ifFalse: [^status]. + + "Set the creationDate" + status := self winFileLastAccessTimeFor: (self addressOf: winAttrs) to: creationDate. + status = 0 ifFalse: [^status]. + + ^0! Item was added: + ----- Method: FileAttributesPlugin>>fileLastWriteTimeFor:length:to: (in category 'private - windows') ----- + fileLastWriteTimeFor: pathString length: pathLength to: creationDate + "Get the creationDate for the supplied file." + <inline: #never> + <option: #_WIN32> + | winAttrs status | + <var: 'pathString' type: #'char *'> + <var: 'creationDate' type: #'sqLong *'> + <var: 'winAttrs' type: #'WIN32_FILE_ATTRIBUTE_DATA'> + + "Get the file attributes" + status := self winFileAttributesFor: pathString length: pathLength to: (self addressOf: winAttrs). + status = 0 ifFalse: [^status]. + + "Set the creationDate" + status := self winFileLastWriteTimeFor: (self addressOf: winAttrs) to: creationDate. + status = 0 ifFalse: [^status]. + + ^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 | + <returnTypeC: #'int'> + <var: 'cPathName' type: #'char *'> + <var: 'attributeArray' type: #'sqInt *'> + <var: 'statBuf' type: #'struct stat'> - <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]. status := useLstat ifFalse: [ self putStatFor: cPathName intoBuffer: (self addressOf: statBuf) targetName: (self addressOf: fileNameOop) ] ifTrue: [ self putLStatFor: cPathName intoBuffer: (self addressOf: statBuf) targetName: (self addressOf: fileNameOop) ]. status ~= 0 ifTrue: [^status]. 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 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: [ 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>>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'> - <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 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 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' type: #'char *'> + <var: 'dir' type: #'osdir *'> + <returnTypeC: #'int'> - <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 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: #'struct stat *'> + <var: 'attributeDate' type: #'sqLong'> + + self cppIf: #_WIN32 defined ifTrue: [] ifFalse: [ + attributeDate := self convertToLongSqueakTime: statBufPointer st_atime. + interpreterProxy + storePointer: 8 + ofObject: attributeArray + withValue: (interpreterProxy signed64BitIntegerFor: attributeDate). + attributeDate := self convertToLongSqueakTime: statBufPointer st_mtime. + interpreterProxy + storePointer: 9 + ofObject: attributeArray + withValue: (interpreterProxy signed64BitIntegerFor: attributeDate). + attributeDate := self convertToLongSqueakTime: statBufPointer st_ctime. + 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 dirStream result | <export: true> + <var: 'dirStream' type: #'osdir *'> - <var: 'dirStream' type: 'osdir *'> dirPointerOop := interpreterProxy stackValue: 0. 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! 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 attributeDate status | - | fileName attributeNumber resultOop fileNameOop statBuf cPathName sizeIfFile mode creationDate status | <export: true> + <var: 'statBuf' type: #'struct stat'> - <var: 'statBuf' type: 'struct stat'> <var: 'cPathName' declareC: 'char cPathName[PATH_MAX]'> + <var: 'attributeDate' type: #'sqLong'> - <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]. 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]. "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: [ "Access Time" + self cppIf: #_WIN32 defined ifTrue: [ + status := self fileLastAccessTimeFor: cPathName + length: cPathName strlen + to: (self addressOf: attributeDate put: [:val| attributeDate := val]). + status ~= 0 ifTrue: + [^interpreterProxy primitiveFailForOSError: status]. + resultOop := interpreterProxy signed64BitIntegerFor: attributeDate ] + ifFalse: [ + attributeDate := self convertToLongSqueakTime: statBuf st_atime. + resultOop := interpreterProxy signed64BitIntegerFor: attributeDate]]. + attributeNumber = 10 ifTrue: [ "Modified Time" + self cppIf: #_WIN32 defined ifTrue: [ + status := self fileLastWriteTimeFor: cPathName + length: cPathName strlen + to: (self addressOf: attributeDate put: [:val| attributeDate := val]). + status ~= 0 ifTrue: + [^interpreterProxy primitiveFailForOSError: status]. + resultOop := interpreterProxy signed64BitIntegerFor: attributeDate ] + ifFalse: [ + attributeDate := self convertToLongSqueakTime: statBuf st_mtime. + resultOop := interpreterProxy signed64BitIntegerFor: attributeDate]]. + attributeNumber = 11 ifTrue: [ "Change Time" + self cppIf: #_WIN32 defined ifTrue: + [resultOop := interpreterProxy nilObject] + ifFalse: [ + attributeDate := self convertToLongSqueakTime: statBuf st_ctime. + resultOop := interpreterProxy signed64BitIntegerFor: attributeDate]]. - 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: [ "Creation Time" - ifFalse: [attributeNumber = 12 ifTrue: - [ self cppIf: #_WIN32 defined ifTrue: [ status := self fileCreationTimeFor: cPathName length: cPathName strlen + to: (self addressOf: attributeDate put: [:val| attributeDate := val]). - to: (self addressOf: creationDate put: [:val| creationDate := val]). status ~= 0 ifTrue: [^interpreterProxy primitiveFailForOSError: status]. + resultOop := interpreterProxy signed64BitIntegerFor: attributeDate ] - 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, #isSymlink" - ifFalse: "attributeNumber = 16" [ status := self isSymlink: cPathName boolean: (self addressOf: resultOop put: [:val| resultOop := val]). status ~= 0 ifTrue: [^interpreterProxy primitiveFailForOSError: status]. ]]]. resultOop = 0 ifTrue: ["It shouldn't be possible to get here" interpreterProxy primitiveFail] ifFalse: [interpreterProxy pop: 3 thenPush: resultOop]! 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'> - <var: 'accessFlag' type: 'sqInt'> pathString := interpreterProxy stackObjectValue: 0. (interpreterProxy is: pathString KindOf: 'String') ifFalse: [^interpreterProxy primitiveFailFor: PrimErrBadArgument]. 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>>primitiveOpendir (in category 'file primitives') ----- primitiveOpendir "self primOpendir: '/etc'" | dirName dir dirOop status | <export: true> + <var: 'dir' type: #'osdir *'> - <var: 'dir' type: 'osdir *'> dirName := interpreterProxy stackObjectValue: 0. (interpreterProxy is: dirName KindOf: 'String') ifFalse: [^interpreterProxy primitiveFailFor: PrimErrBadArgument]. 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>>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." | dirPointerOop dirStream ent entryName attributeArray resultArray haveEntry entry_len status | <export: true> + <var: 'ent' type: #'struct dirent *'> + <var: 'dirStream' type: #'osdir *'> - <var: 'ent' type: 'struct dirent *'> - <var: 'dirStream' type: 'osdir *'> <var: 'haveEntry' type: #int> dirPointerOop := interpreterProxy stackValue: 0. dirStream := self pointerFrom: dirPointerOop. dirStream ifNil: [^interpreterProxy primitiveFailFor: PrimErrBadArgument]. 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 := self byteArrayFromCString: ent d_name to: (self addressOf: entryName put: [:val| entryName := val]). status ~= 0 ifTrue: [^interpreterProxy primitiveFailForOSError: 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. 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 dirStream | <export: true> + <var: 'dirStream' type: #'osdir *'> - <var: 'dirStream' declareC: 'osdir *dirStream'> dirPointerOop := interpreterProxy stackValue: 0. dirStream := self pointerFrom: dirPointerOop. dirStream ifNil: [^interpreterProxy primitiveFailFor: PrimErrBadArgument]. self rewinddir: dirStream dp. interpreterProxy pop: 2 thenPush: 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 | + <returnTypeC: #'sqInt'> + <var: 'cPathName' type: #'char *'> + <var: 'statBufPointer' type: #'struct stat *'> - <returnTypeC: 'sqInt'> - <var: 'cPathName' type: 'char *'> - <var: 'statBufPointer' type: 'struct stat *'> <var: 'cLinkName' declareC: 'char cLinkName[PATH_MAX]'> + <var: 'fileNameOop' type: #'sqInt *'> - <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 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 *'> - <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: cPathName toArray: attributeArray from: statBufPointer fileName: fileNameOop "Answer a file entry array from the supplied statBufPointer" + | sizeIfFile status | + <var: 'cPathName' type: #'char *'> + <var: 'statBufPointer' type: #'struct stat *'> - | 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]. interpreterProxy storePointer: 0 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). + - 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: cPathName 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>>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 st: (interpreterProxy arrayValueOf: newString) rn: aCString cpy: len. "(char *)strncpy()" ^ newString ! Item was changed: ----- Method: FileAttributesPlugin>>versionString (in category 'version string') ----- versionString "Answer a string containing the version string for this plugin." <inline: #always> + ^'1.3.1'! - ^'1.2.6'! Item was added: + ----- Method: FileAttributesPlugin>>winFileAttributesFor:length:to: (in category 'private - windows') ----- + winFileAttributesFor: pathString length: pathLength to: winAttrs + "Populate the supplied Win32 file attribute structure" + + <option: #_WIN32> + + | win32Path | + <var: 'pathString' type: #'char *'> + <var: 'winAttrs' type: #'WIN32_FILE_ATTRIBUTE_DATA *'> + <var: 'win32Path' type: #'WCHAR *'> + + self touch: winAttrs. + "convert the supplied path name into a wide string" + self ALLOC_: win32Path WIN32_: pathString PATH: pathLength. + "Populate the supplied winAttrs structure" + (self cCode: 'GetFileAttributesExW(win32Path, GetFileExInfoStandard, winAttrs)') = 0 ifTrue: + [^self getAttributesFailed]. + ^0! 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: cPathName to: attributeArray + <inline: #never> + <option: #_WIN32> + + | winAttrs attributeDate status | + <var: 'cPathName' type: #'char *'> + <var: 'attributeDate' type: #'sqLong'> + <var: 'winAttrs' type: #'WIN32_FILE_ATTRIBUTE_DATA'> + + "Get the file attributes" + status := self winFileAttributesFor: cPathName + length: cPathName strlen + to: (self addressOf: winAttrs put: [ :val | winAttrs := val ]). + status = 0 ifFalse: [^status]. + + "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 accessDate" + 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 + !

1 0

VM Maker: FileAttributesPlugin.oscog-AlistairGrant.32.mcz
by commits＠source.squeak.org 29 Nov '19

29 Nov '19

1 0

VM Maker: FileAttributesPlugin.oscog-eem.34.mcz
by commits＠source.squeak.org 29 Nov '19

29 Nov '19

Eliot Miranda uploaded a new version of FileAttributesPlugin to project VM Maker: http://source.squeak.org/VMMaker/FileAttributesPlugin.oscog-eem.34.mcz ==================== Summary ==================== Name: FileAttributesPlugin.oscog-eem.34 Author: eem Time: 24 August 2018, 4:13:24.242983 pm UUID: de01e830-af87-405c-8b59-a19cd9af0c05 Ancestors: FileAttributesPlugin.oscog-eem.33 Work around a bug in 64-bit Cygwin that causes PATH_MAX not to be defined. =============== Diff against FileAttributesPlugin.oscog-eem.33 =============== 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> + #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 - #ifdef _WIN32 - #include <windows.h> - #include <winbase.h> - #define FAIL() { return -1; } - #include "sqWin32File.h" #else + # include "sqUnixCharConv.h" - #include "sqUnixCharConv.h" #endif typedef struct dirptrstruct { + DIR *dp; - DIR *dp; int path_len; + char *path_file; + char path[PATH_MAX+4]; + } osdir;'. - 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, ' */'!

1 0

VM Maker: FileAttributesPlugin.oscog-eem.33.mcz
by commits＠source.squeak.org 29 Nov '19

29 Nov '19

Eliot Miranda uploaded a new version of FileAttributesPlugin to project VM Maker: http://source.squeak.org/VMMaker/FileAttributesPlugin.oscog-eem.33.mcz ==================== Summary ==================== Name: FileAttributesPlugin.oscog-eem.33 Author: eem Time: 24 August 2018, 1:08:38.677155 pm UUID: fbd87485-1e80-4038-a90a-b2ead62ae916 Ancestors: FileAttributesPlugin.oscog-AlistairGrant.32 Provide some class side methods for testing the plugin. =============== Diff against FileAttributesPlugin.oscog-AlistairGrant.32 =============== 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!

1 0

VM Maker: FileAttributesPlugin.oscog-AlistairGrant.36.mcz
by commits＠source.squeak.org 29 Nov '19

29 Nov '19

1 0

VM Maker: FileAttributesPlugin.oscog-eem.37.mcz
by commits＠source.squeak.org 29 Nov '19

29 Nov '19

Eliot Miranda uploaded a new version of FileAttributesPlugin to project VM Maker: http://source.squeak.org/VMMaker/FileAttributesPlugin.oscog-eem.37.mcz ==================== Summary ==================== Name: FileAttributesPlugin.oscog-eem.37 Author: eem Time: 20 September 2018, 4:48:56.754659 pm UUID: 8a9411e4-e8c4-4562-b282-57c8056ad629 Ancestors: FileAttributesPlugin.oscog-AlistairGrant.36 Refactor mem:cp:y: => memcpy:_:_:, st:rn:cpy: => strncpy:_:_: =============== Diff against FileAttributesPlugin.oscog-AlistairGrant.36 =============== 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]. newByteArray := interpreterProxy instantiateClass: interpreterProxy classByteArray indexableSize: len. newByteArray ifNil: [^interpreterProxy primitiveFailFor: PrimErrNoMemory]. byteArrayPtr := interpreterProxy arrayValueOf: newByteArray. + self memcpy: byteArrayPtr _: aCString _: len. - self mem: byteArrayPtr cp: aCString y: len. byteArrayOop at: 0 put: newByteArray. ^0! Item was changed: ----- Method: FileAttributesPlugin>>openDirectoryStream:ptr: (in category 'private - directory') ----- openDirectoryStream: cPathName ptr: osdirPtr "Open a new directory stream. Answer a pointer to the directory stream or NULL." | len dir | <var: 'osdirPtr' type: #'osdir **'> <var: 'dir' type: #'osdir *'> <var: 'cPathName' type: 'char *'> <returnTypeC: #'int'> len := self strlen: cPathName. "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: cPathName length: len) ifTrue: [ dir := self cCode: '(osdir *) malloc(sizeof(osdir))'. dir = nil ifTrue: [^self cantAllocateMemory]. + self memcpy: dir path _: cPathName _: len. - self mem: dir path cp: cPathName 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'> 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>>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 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. dirStream := self pointerFrom: dirPointerOop. dirStream ifNil: [^interpreterProxy primitiveFailFor: PrimErrBadArgument]. 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]. entryName := self unixPathToOop: ent d_name. "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 memcpy: dirStream path_file _: ent d_name _: entry_len. - 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>>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 strncpy: (interpreterProxy arrayValueOf: newString) + _: aCString + _: len. "(char *)strncpy()" - self st: (interpreterProxy arrayValueOf: newString) - rn: aCString - cpy: len. "(char *)strncpy()" ^ newString !

1 0

← Newer
1
2
3
4
5
6
7
8
...
18
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev November 2019