|
|
@@ -0,0 +1,1232 @@
|
|
|
+Smalltalk createPackage: 'AmberCli'!
|
|
|
+Object subclass: #AmberCli
|
|
|
+ instanceVariableNames: ''
|
|
|
+ package: 'AmberCli'!
|
|
|
+!AmberCli commentStamp!
|
|
|
+I am the Amber CLI (CommandLine Interface) tool which runs on Node.js.
|
|
|
+
|
|
|
+My responsibility is to start different Amber programs like the FileServer or the Repl.
|
|
|
+Which program to start is determined by the first commandline parameters passed to the AmberCli executable.
|
|
|
+Use `help` to get a list of all available options.
|
|
|
+Any further commandline parameters are passed to the specific program.
|
|
|
+
|
|
|
+## Commands
|
|
|
+
|
|
|
+New commands can be added by creating a class side method in the `commands` protocol which takes one parameter.
|
|
|
+This parameter is an array of all commandline options + values passed on to the program.
|
|
|
+Any `camelCaseCommand` is transformed into a commandline parameter of the form `camel-case-command` and vice versa.!
|
|
|
+
|
|
|
+!AmberCli class methodsFor: 'commandline'!
|
|
|
+
|
|
|
+commandLineSwitches
|
|
|
+ "Collect all methodnames from the 'commands' protocol of the class
|
|
|
+ and select the ones with only one parameter.
|
|
|
+ Then remove the ':' at the end of the name.
|
|
|
+ Additionally all uppercase letters are made lowercase and preceded by a '-'.
|
|
|
+ Example: fallbackPage: becomes --fallback-page.
|
|
|
+ Return the Array containing the commandline switches."
|
|
|
+ | switches |
|
|
|
+ switches := ((self class methodsInProtocol: 'commands') collect: [ :each | each selector]).
|
|
|
+ switches := switches select: [ :each | each match: '^[^:]*:$'].
|
|
|
+ switches :=switches collect: [ :each |
|
|
|
+ (each allButLast replace: '([A-Z])' with: '-$1') asLowercase].
|
|
|
+ ^ switches
|
|
|
+!
|
|
|
+
|
|
|
+handleArguments: args
|
|
|
+ | selector |
|
|
|
+
|
|
|
+ selector := self selectorForCommandLineSwitch: (args first).
|
|
|
+ args remove: args first.
|
|
|
+ self perform: selector withArguments: (Array with: args)
|
|
|
+!
|
|
|
+
|
|
|
+selectorForCommandLineSwitch: aSwitch
|
|
|
+ "Add ':' at the end and replace all occurences of a lowercase letter preceded by a '-' with the Uppercase letter.
|
|
|
+ Example: fallback-page becomes fallbackPage:.
|
|
|
+ If no correct selector is found return 'help:'"
|
|
|
+ | command selector |
|
|
|
+
|
|
|
+ (self commandLineSwitches includes: aSwitch)
|
|
|
+ ifTrue: [ selector := (aSwitch replace: '-[a-z]' with: [ :each | each second asUppercase ]), ':']
|
|
|
+ ifFalse: [ selector := 'help:' ].
|
|
|
+ ^ selector
|
|
|
+! !
|
|
|
+
|
|
|
+!AmberCli class methodsFor: 'commands'!
|
|
|
+
|
|
|
+help: args
|
|
|
+ Transcript show: 'Available commands'.
|
|
|
+ self commandLineSwitches do: [ :each | console log: each ]
|
|
|
+!
|
|
|
+
|
|
|
+init: args
|
|
|
+ Initer new start
|
|
|
+!
|
|
|
+
|
|
|
+repl: args
|
|
|
+ ^ Repl new createInterface
|
|
|
+!
|
|
|
+
|
|
|
+serve: args
|
|
|
+ ^ (FileServer createServerWithArguments: args) start
|
|
|
+!
|
|
|
+
|
|
|
+tests: arguments
|
|
|
+ ^ NodeTestRunner runTestSuite
|
|
|
+!
|
|
|
+
|
|
|
+version: arguments
|
|
|
+! !
|
|
|
+
|
|
|
+!AmberCli class methodsFor: 'startup'!
|
|
|
+
|
|
|
+main
|
|
|
+ "Main entry point for Amber applications.
|
|
|
+ Parses commandline arguments and starts the according subprogram."
|
|
|
+ | args nodeMinorVersion |
|
|
|
+
|
|
|
+ Transcript show: 'Welcome to Amber version ', Smalltalk version, ' (NodeJS ', process versions node, ').'.
|
|
|
+
|
|
|
+ nodeMinorVersion := ((process version) tokenize: '.') second asNumber.
|
|
|
+ nodeMinorVersion < 8 ifTrue: [
|
|
|
+ Transcript show: 'You are currently using Node.js ', (process version).
|
|
|
+ Transcript show: 'Required is at least Node.js v0.8.x or greater.'.
|
|
|
+ ^ -1.
|
|
|
+ ].
|
|
|
+
|
|
|
+ args := process argv.
|
|
|
+ "Remove the first args which contain the path to the node executable and the script file."
|
|
|
+ args removeFrom: 1 to: 2.
|
|
|
+
|
|
|
+ (args isEmpty)
|
|
|
+ ifTrue: [self help: nil]
|
|
|
+ ifFalse: [^self handleArguments: args]
|
|
|
+! !
|
|
|
+
|
|
|
+Object subclass: #FileServer
|
|
|
+ instanceVariableNames: 'path http fs url host port basePath util username password fallbackPage'
|
|
|
+ package: 'AmberCli'!
|
|
|
+!FileServer commentStamp!
|
|
|
+I am the Amber Smalltalk FileServer.
|
|
|
+My runtime requirement is a functional Node.js executable.
|
|
|
+
|
|
|
+To start a FileServer instance on port `4000` use the following code:
|
|
|
+
|
|
|
+ FileServer new start
|
|
|
+
|
|
|
+A parameterized instance can be created with the following code:
|
|
|
+
|
|
|
+ FileServer createServerWithArguments: options
|
|
|
+
|
|
|
+Here, `options` is an array of commandline style strings each followed by a value e.g. `#('--port', '6000', '--host', '0.0.0.0')`.
|
|
|
+A list of all available parameters can be printed to the commandline by passing `--help` as parameter.
|
|
|
+See the `Options` section for further details on how options are mapped to instance methods.
|
|
|
+
|
|
|
+After startup FileServer checks if the directory layout required by Amber is present and logs a warning on absence.
|
|
|
+
|
|
|
+
|
|
|
+## Options
|
|
|
+
|
|
|
+Each option is of the form `--some-option-string` which is transformed into a selector of the format `someOptionString:`.
|
|
|
+The trailing `--` gets removed, each `-[a-z]` gets transformed into the according uppercase letter, and a `:` is appended to create a selector which takes a single argument.
|
|
|
+Afterwards, the selector gets executed on the `FileServer` instance with the value following in the options array as parameter.
|
|
|
+
|
|
|
+## Adding new commandline parameters
|
|
|
+
|
|
|
+Adding new commandline parameters to `FileServer` is as easy as adding a new single parameter method to the `accessing` protocol.!
|
|
|
+
|
|
|
+!FileServer methodsFor: 'accessing'!
|
|
|
+
|
|
|
+basePath
|
|
|
+ ^ basePath ifNil: [self class defaultBasePath]
|
|
|
+!
|
|
|
+
|
|
|
+basePath: aString
|
|
|
+ basePath := aString.
|
|
|
+ self validateBasePath.
|
|
|
+!
|
|
|
+
|
|
|
+fallbackPage
|
|
|
+ ^ fallbackPage
|
|
|
+!
|
|
|
+
|
|
|
+fallbackPage: aString
|
|
|
+ fallbackPage := aString
|
|
|
+!
|
|
|
+
|
|
|
+host
|
|
|
+ ^ host
|
|
|
+!
|
|
|
+
|
|
|
+host: hostname
|
|
|
+ host := hostname
|
|
|
+!
|
|
|
+
|
|
|
+password: aPassword
|
|
|
+ password := aPassword.
|
|
|
+!
|
|
|
+
|
|
|
+port
|
|
|
+ ^ port
|
|
|
+!
|
|
|
+
|
|
|
+port: aNumber
|
|
|
+ port := aNumber
|
|
|
+!
|
|
|
+
|
|
|
+username: aUsername
|
|
|
+ username := aUsername.
|
|
|
+! !
|
|
|
+
|
|
|
+!FileServer methodsFor: 'initialization'!
|
|
|
+
|
|
|
+checkDirectoryLayout
|
|
|
+ (fs existsSync: (self withBasePath: 'index.html')) ifFalse: [
|
|
|
+ console warn: 'Warning: project directory does not contain index.html.'.
|
|
|
+ console warn: ' You can specify the directory containing index.html with --base-path.'.
|
|
|
+ console warn: ' You can also specify a page to be served by default,'.
|
|
|
+ console warn: ' for all paths that do not map to a file, with --fallback-page.'].
|
|
|
+!
|
|
|
+
|
|
|
+initialize
|
|
|
+ super initialize.
|
|
|
+ path := self require: 'path'.
|
|
|
+ http := self require: 'http'.
|
|
|
+ fs := self require: 'fs'.
|
|
|
+ util := self require: 'util'.
|
|
|
+ url := self require: 'url'.
|
|
|
+ host := self class defaultHost.
|
|
|
+ port := self class defaultPort.
|
|
|
+ username := nil.
|
|
|
+ password := nil.
|
|
|
+ fallbackPage := nil.
|
|
|
+! !
|
|
|
+
|
|
|
+!FileServer methodsFor: 'private'!
|
|
|
+
|
|
|
+base64Decode: aString
|
|
|
+ <return (new Buffer(aString, 'base64').toString())>
|
|
|
+!
|
|
|
+
|
|
|
+isAuthenticated: aRequest
|
|
|
+ "Basic HTTP Auth: http://stackoverflow.com/a/5957629/293175
|
|
|
+ and https://gist.github.com/1686663"
|
|
|
+ | header token auth parts|
|
|
|
+
|
|
|
+ (username isNil and: [password isNil]) ifTrue: [^ true].
|
|
|
+
|
|
|
+ "get authentication header"
|
|
|
+ header := (aRequest headers at: 'authorization') ifNil:[''].
|
|
|
+ (header isEmpty)
|
|
|
+ ifTrue: [^ false]
|
|
|
+ ifFalse: [
|
|
|
+ "get authentication token"
|
|
|
+ token := (header tokenize: ' ') ifNil:[''].
|
|
|
+ "convert back from base64"
|
|
|
+ auth := self base64Decode: (token at: 2).
|
|
|
+ "split token at colon"
|
|
|
+ parts := auth tokenize: ':'.
|
|
|
+
|
|
|
+ ((username = (parts at: 1)) and: [password = (parts at: 2)])
|
|
|
+ ifTrue: [^ true]
|
|
|
+ ifFalse: [^ false]
|
|
|
+ ].
|
|
|
+!
|
|
|
+
|
|
|
+require: aModuleString
|
|
|
+ "call to the require function"
|
|
|
+ ^require value: aModuleString
|
|
|
+!
|
|
|
+
|
|
|
+validateBasePath
|
|
|
+ "The basePath must be an existing directory. "
|
|
|
+ fs stat: self basePath then: [ :err :stat | err
|
|
|
+ ifNil: [ stat isDirectory ifFalse: [ console warn: 'Warning: --base-path parameter ' , self basePath , ' is not a directory.' ]]
|
|
|
+ ifNotNil: [ console warn: 'Warning: path at --base-path parameter ' , self basePath , ' does not exist.' ]].
|
|
|
+!
|
|
|
+
|
|
|
+withBasePath: aBaseRelativePath
|
|
|
+ "return a file path which is relative to the basePath."
|
|
|
+ ^ path join: self basePath with: aBaseRelativePath
|
|
|
+!
|
|
|
+
|
|
|
+writeData: data toFileNamed: aFilename
|
|
|
+ console log: aFilename
|
|
|
+! !
|
|
|
+
|
|
|
+!FileServer methodsFor: 'request handling'!
|
|
|
+
|
|
|
+handleGETRequest: aRequest respondTo: aResponse
|
|
|
+ | uri filename |
|
|
|
+ uri := url parse: aRequest url.
|
|
|
+ filename := path join: self basePath with: uri pathname.
|
|
|
+ fs exists: filename do: [:aBoolean |
|
|
|
+ aBoolean
|
|
|
+ ifFalse: [self respondNotFoundTo: aResponse]
|
|
|
+ ifTrue: [(fs statSync: filename) isDirectory
|
|
|
+ ifTrue: [self respondDirectoryNamed: filename from: uri to: aResponse]
|
|
|
+ ifFalse: [self respondFileNamed: filename to: aResponse]]]
|
|
|
+!
|
|
|
+
|
|
|
+handleOPTIONSRequest: aRequest respondTo: aResponse
|
|
|
+ aResponse writeHead: 200 options: #{'Access-Control-Allow-Origin' -> '*'.
|
|
|
+ 'Access-Control-Allow-Methods' -> 'GET, PUT, POST, DELETE, OPTIONS'.
|
|
|
+ 'Access-Control-Allow-Headers' -> 'Content-Type, Accept'.
|
|
|
+ 'Content-Length' -> 0.
|
|
|
+ 'Access-Control-Max-Age' -> 10}.
|
|
|
+ aResponse end
|
|
|
+!
|
|
|
+
|
|
|
+handlePUTRequest: aRequest respondTo: aResponse
|
|
|
+ | file stream |
|
|
|
+ (self isAuthenticated: aRequest)
|
|
|
+ ifFalse: [self respondAuthenticationRequiredTo: aResponse. ^ nil].
|
|
|
+
|
|
|
+ file := '.', aRequest url.
|
|
|
+ stream := fs createWriteStream: file.
|
|
|
+
|
|
|
+ stream on: 'error' do: [:error |
|
|
|
+ console warn: 'Error creating WriteStream for file ', file.
|
|
|
+ console warn: ' Did you forget to create the necessary directory in your project (often /src)?'.
|
|
|
+ console warn: ' The exact error is: ', error.
|
|
|
+ self respondNotCreatedTo: aResponse].
|
|
|
+
|
|
|
+ stream on: 'close' do: [
|
|
|
+ self respondCreatedTo: aResponse].
|
|
|
+
|
|
|
+ aRequest setEncoding: 'utf8'.
|
|
|
+ aRequest on: 'data' do: [:data |
|
|
|
+ stream write: data].
|
|
|
+
|
|
|
+ aRequest on: 'end' do: [
|
|
|
+ stream writable ifTrue: [stream end]]
|
|
|
+!
|
|
|
+
|
|
|
+handleRequest: aRequest respondTo: aResponse
|
|
|
+ aRequest method = 'PUT'
|
|
|
+ ifTrue: [self handlePUTRequest: aRequest respondTo: aResponse].
|
|
|
+ aRequest method = 'GET'
|
|
|
+ ifTrue:[self handleGETRequest: aRequest respondTo: aResponse].
|
|
|
+ aRequest method = 'OPTIONS'
|
|
|
+ ifTrue:[self handleOPTIONSRequest: aRequest respondTo: aResponse]
|
|
|
+!
|
|
|
+
|
|
|
+respondAuthenticationRequiredTo: aResponse
|
|
|
+ aResponse
|
|
|
+ writeHead: 401 options: #{'WWW-Authenticate' -> 'Basic realm="Secured Developer Area"'};
|
|
|
+ write: '<html><body>Authentication needed</body></html>';
|
|
|
+ end.
|
|
|
+!
|
|
|
+
|
|
|
+respondCreatedTo: aResponse
|
|
|
+ aResponse
|
|
|
+ writeHead: 201 options: #{'Content-Type' -> 'text/plain'. 'Access-Control-Allow-Origin' -> '*'};
|
|
|
+ end.
|
|
|
+!
|
|
|
+
|
|
|
+respondDirectoryNamed: aDirname from: aUrl to: aResponse
|
|
|
+ (aUrl pathname endsWith: '/')
|
|
|
+ ifTrue: [self respondFileNamed: aDirname, 'index.html' to: aResponse]
|
|
|
+ ifFalse: [self respondRedirect: aUrl pathname, '/', (aUrl search ifNil: ['']) to: aResponse]
|
|
|
+!
|
|
|
+
|
|
|
+respondFileNamed: aFilename to: aResponse
|
|
|
+ | type filename |
|
|
|
+
|
|
|
+ filename := aFilename.
|
|
|
+
|
|
|
+ fs readFile: filename do: [:ex :file |
|
|
|
+ ex notNil
|
|
|
+ ifTrue: [
|
|
|
+ console log: filename, ' does not exist'.
|
|
|
+ self respondNotFoundTo: aResponse]
|
|
|
+ ifFalse: [
|
|
|
+ type := self class mimeTypeFor: filename.
|
|
|
+ type = 'application/javascript'
|
|
|
+ ifTrue: [ type:=type,';charset=utf-8' ].
|
|
|
+ aResponse
|
|
|
+ writeHead: 200 options: #{'Content-Type' -> type};
|
|
|
+ write: file encoding: 'binary';
|
|
|
+ end]]
|
|
|
+!
|
|
|
+
|
|
|
+respondInternalErrorTo: aResponse
|
|
|
+ aResponse
|
|
|
+ writeHead: 500 options: #{'Content-Type' -> 'text/plain'};
|
|
|
+ write: '500 Internal server error';
|
|
|
+ end
|
|
|
+!
|
|
|
+
|
|
|
+respondNotCreatedTo: aResponse
|
|
|
+ aResponse
|
|
|
+ writeHead: 400 options: #{'Content-Type' -> 'text/plain'};
|
|
|
+ write: 'File could not be created. Did you forget to create the src directory on the server?';
|
|
|
+ end.
|
|
|
+!
|
|
|
+
|
|
|
+respondNotFoundTo: aResponse
|
|
|
+ self fallbackPage isNil ifFalse: [^self respondFileNamed: self fallbackPage to: aResponse].
|
|
|
+ aResponse
|
|
|
+ writeHead: 404 options: #{'Content-Type' -> 'text/html'};
|
|
|
+ write: '<html><body><p>404 Not found</p>';
|
|
|
+ write: '<p>Did you forget to put an index.html file into the directory which is served by "bin/amber serve"? To solve this you can:<ul>';
|
|
|
+ write: '<li>create an index.html in the served directory.</li>';
|
|
|
+ write: '<li>can also specify the location of a page to be served whenever path does not resolve to a file with the "--fallback-page" option.</li>';
|
|
|
+ write: '<li>change the directory to be served with the "--base-path" option.</li>';
|
|
|
+ write: '</ul></p></body></html>';
|
|
|
+ end
|
|
|
+!
|
|
|
+
|
|
|
+respondOKTo: aResponse
|
|
|
+ aResponse
|
|
|
+ writeHead: 200 options: #{'Content-Type' -> 'text/plain'. 'Access-Control-Allow-Origin' -> '*'};
|
|
|
+ end.
|
|
|
+!
|
|
|
+
|
|
|
+respondRedirect: aString to: aResponse
|
|
|
+ aResponse
|
|
|
+ writeHead: 303 options: #{'Location' -> aString};
|
|
|
+ end.
|
|
|
+! !
|
|
|
+
|
|
|
+!FileServer methodsFor: 'starting'!
|
|
|
+
|
|
|
+start
|
|
|
+ "Checks if required directory layout is present (issue warning if not).
|
|
|
+ Afterwards start the server."
|
|
|
+ self checkDirectoryLayout.
|
|
|
+ (http createServer: [:request :response |
|
|
|
+ self handleRequest: request respondTo: response])
|
|
|
+ on: 'error' do: [:error | console log: 'Error starting server: ', error];
|
|
|
+ on: 'listening' do: [console log: 'Starting file server on http://', self host, ':', self port asString];
|
|
|
+ listen: self port host: self host.
|
|
|
+!
|
|
|
+
|
|
|
+startOn: aPort
|
|
|
+ self port: aPort.
|
|
|
+ self start
|
|
|
+! !
|
|
|
+
|
|
|
+FileServer class instanceVariableNames: 'mimeTypes'!
|
|
|
+
|
|
|
+!FileServer class methodsFor: 'accessing'!
|
|
|
+
|
|
|
+commandLineSwitches
|
|
|
+ "Collect all methodnames from the 'accessing' protocol
|
|
|
+ and select the ones with only one parameter.
|
|
|
+ Then remove the ':' at the end of the name
|
|
|
+ and add a '--' at the beginning.
|
|
|
+ Additionally all uppercase letters are made lowercase and preceded by a '-'.
|
|
|
+ Example: fallbackPage: becomes --fallback-page.
|
|
|
+ Return the Array containing the commandline switches."
|
|
|
+ | switches |
|
|
|
+ switches := ((self methodsInProtocol: 'accessing') collect: [ :each | each selector]).
|
|
|
+ switches := switches select: [ :each | each match: '^[^:]*:$'].
|
|
|
+ switches :=switches collect: [ :each |
|
|
|
+ (each allButLast replace: '([A-Z])' with: '-$1') asLowercase replace: '^([a-z])' with: '--$1' ].
|
|
|
+ ^ switches
|
|
|
+!
|
|
|
+
|
|
|
+defaultBasePath
|
|
|
+ ^ './'
|
|
|
+!
|
|
|
+
|
|
|
+defaultHost
|
|
|
+ ^ '127.0.0.1'
|
|
|
+!
|
|
|
+
|
|
|
+defaultMimeTypes
|
|
|
+ ^ #{
|
|
|
+ '%' -> 'application/x-trash'.
|
|
|
+ '323' -> 'text/h323'.
|
|
|
+ 'abw' -> 'application/x-abiword'.
|
|
|
+ 'ai' -> 'application/postscript'.
|
|
|
+ 'aif' -> 'audio/x-aiff'.
|
|
|
+ 'aifc' -> 'audio/x-aiff'.
|
|
|
+ 'aiff' -> 'audio/x-aiff'.
|
|
|
+ 'alc' -> 'chemical/x-alchemy'.
|
|
|
+ 'art' -> 'image/x-jg'.
|
|
|
+ 'asc' -> 'text/plain'.
|
|
|
+ 'asf' -> 'video/x-ms-asf'.
|
|
|
+ 'asn' -> 'chemical/x-ncbi-asn1-spec'.
|
|
|
+ 'aso' -> 'chemical/x-ncbi-asn1-binary'.
|
|
|
+ 'asx' -> 'video/x-ms-asf'.
|
|
|
+ 'au' -> 'audio/basic'.
|
|
|
+ 'avi' -> 'video/x-msvideo'.
|
|
|
+ 'b' -> 'chemical/x-molconn-Z'.
|
|
|
+ 'bak' -> 'application/x-trash'.
|
|
|
+ 'bat' -> 'application/x-msdos-program'.
|
|
|
+ 'bcpio' -> 'application/x-bcpio'.
|
|
|
+ 'bib' -> 'text/x-bibtex'.
|
|
|
+ 'bin' -> 'application/octet-stream'.
|
|
|
+ 'bmp' -> 'image/x-ms-bmp'.
|
|
|
+ 'book' -> 'application/x-maker'.
|
|
|
+ 'bsd' -> 'chemical/x-crossfire'.
|
|
|
+ 'c' -> 'text/x-csrc'.
|
|
|
+ 'c++' -> 'text/x-c++src'.
|
|
|
+ 'c3d' -> 'chemical/x-chem3d'.
|
|
|
+ 'cac' -> 'chemical/x-cache'.
|
|
|
+ 'cache' -> 'chemical/x-cache'.
|
|
|
+ 'cascii' -> 'chemical/x-cactvs-binary'.
|
|
|
+ 'cat' -> 'application/vnd.ms-pki.seccat'.
|
|
|
+ 'cbin' -> 'chemical/x-cactvs-binary'.
|
|
|
+ 'cc' -> 'text/x-c++src'.
|
|
|
+ 'cdf' -> 'application/x-cdf'.
|
|
|
+ 'cdr' -> 'image/x-coreldraw'.
|
|
|
+ 'cdt' -> 'image/x-coreldrawtemplate'.
|
|
|
+ 'cdx' -> 'chemical/x-cdx'.
|
|
|
+ 'cdy' -> 'application/vnd.cinderella'.
|
|
|
+ 'cef' -> 'chemical/x-cxf'.
|
|
|
+ 'cer' -> 'chemical/x-cerius'.
|
|
|
+ 'chm' -> 'chemical/x-chemdraw'.
|
|
|
+ 'chrt' -> 'application/x-kchart'.
|
|
|
+ 'cif' -> 'chemical/x-cif'.
|
|
|
+ 'class' -> 'application/java-vm'.
|
|
|
+ 'cls' -> 'text/x-tex'.
|
|
|
+ 'cmdf' -> 'chemical/x-cmdf'.
|
|
|
+ 'cml' -> 'chemical/x-cml'.
|
|
|
+ 'cod' -> 'application/vnd.rim.cod'.
|
|
|
+ 'com' -> 'application/x-msdos-program'.
|
|
|
+ 'cpa' -> 'chemical/x-compass'.
|
|
|
+ 'cpio' -> 'application/x-cpio'.
|
|
|
+ 'cpp' -> 'text/x-c++src'.
|
|
|
+ 'cpt' -> 'image/x-corelphotopaint'.
|
|
|
+ 'crl' -> 'application/x-pkcs7-crl'.
|
|
|
+ 'crt' -> 'application/x-x509-ca-cert'.
|
|
|
+ 'csf' -> 'chemical/x-cache-csf'.
|
|
|
+ 'csh' -> 'text/x-csh'.
|
|
|
+ 'csm' -> 'chemical/x-csml'.
|
|
|
+ 'csml' -> 'chemical/x-csml'.
|
|
|
+ 'css' -> 'text/css'.
|
|
|
+ 'csv' -> 'text/comma-separated-values'.
|
|
|
+ 'ctab' -> 'chemical/x-cactvs-binary'.
|
|
|
+ 'ctx' -> 'chemical/x-ctx'.
|
|
|
+ 'cu' -> 'application/cu-seeme'.
|
|
|
+ 'cub' -> 'chemical/x-gaussian-cube'.
|
|
|
+ 'cxf' -> 'chemical/x-cxf'.
|
|
|
+ 'cxx' -> 'text/x-c++src'.
|
|
|
+ 'dat' -> 'chemical/x-mopac-input'.
|
|
|
+ 'dcr' -> 'application/x-director'.
|
|
|
+ 'deb' -> 'application/x-debian-package'.
|
|
|
+ 'dif' -> 'video/dv'.
|
|
|
+ 'diff' -> 'text/plain'.
|
|
|
+ 'dir' -> 'application/x-director'.
|
|
|
+ 'djv' -> 'image/vnd.djvu'.
|
|
|
+ 'djvu' -> 'image/vnd.djvu'.
|
|
|
+ 'dl' -> 'video/dl'.
|
|
|
+ 'dll' -> 'application/x-msdos-program'.
|
|
|
+ 'dmg' -> 'application/x-apple-diskimage'.
|
|
|
+ 'dms' -> 'application/x-dms'.
|
|
|
+ 'doc' -> 'application/msword'.
|
|
|
+ 'dot' -> 'application/msword'.
|
|
|
+ 'dv' -> 'video/dv'.
|
|
|
+ 'dvi' -> 'application/x-dvi'.
|
|
|
+ 'dx' -> 'chemical/x-jcamp-dx'.
|
|
|
+ 'dxr' -> 'application/x-director'.
|
|
|
+ 'emb' -> 'chemical/x-embl-dl-nucleotide'.
|
|
|
+ 'embl' -> 'chemical/x-embl-dl-nucleotide'.
|
|
|
+ 'ent' -> 'chemical/x-pdb'.
|
|
|
+ 'eps' -> 'application/postscript'.
|
|
|
+ 'etx' -> 'text/x-setext'.
|
|
|
+ 'exe' -> 'application/x-msdos-program'.
|
|
|
+ 'ez' -> 'application/andrew-inset'.
|
|
|
+ 'fb' -> 'application/x-maker'.
|
|
|
+ 'fbdoc' -> 'application/x-maker'.
|
|
|
+ 'fch' -> 'chemical/x-gaussian-checkpoint'.
|
|
|
+ 'fchk' -> 'chemical/x-gaussian-checkpoint'.
|
|
|
+ 'fig' -> 'application/x-xfig'.
|
|
|
+ 'flac' -> 'application/x-flac'.
|
|
|
+ 'fli' -> 'video/fli'.
|
|
|
+ 'fm' -> 'application/x-maker'.
|
|
|
+ 'frame' -> 'application/x-maker'.
|
|
|
+ 'frm' -> 'application/x-maker'.
|
|
|
+ 'gal' -> 'chemical/x-gaussian-log'.
|
|
|
+ 'gam' -> 'chemical/x-gamess-input'.
|
|
|
+ 'gamin' -> 'chemical/x-gamess-input'.
|
|
|
+ 'gau' -> 'chemical/x-gaussian-input'.
|
|
|
+ 'gcd' -> 'text/x-pcs-gcd'.
|
|
|
+ 'gcf' -> 'application/x-graphing-calculator'.
|
|
|
+ 'gcg' -> 'chemical/x-gcg8-sequence'.
|
|
|
+ 'gen' -> 'chemical/x-genbank'.
|
|
|
+ 'gf' -> 'application/x-tex-gf'.
|
|
|
+ 'gif' -> 'image/gif'.
|
|
|
+ 'gjc' -> 'chemical/x-gaussian-input'.
|
|
|
+ 'gjf' -> 'chemical/x-gaussian-input'.
|
|
|
+ 'gl' -> 'video/gl'.
|
|
|
+ 'gnumeric' -> 'application/x-gnumeric'.
|
|
|
+ 'gpt' -> 'chemical/x-mopac-graph'.
|
|
|
+ 'gsf' -> 'application/x-font'.
|
|
|
+ 'gsm' -> 'audio/x-gsm'.
|
|
|
+ 'gtar' -> 'application/x-gtar'.
|
|
|
+ 'h' -> 'text/x-chdr'.
|
|
|
+ 'h++' -> 'text/x-c++hdr'.
|
|
|
+ 'hdf' -> 'application/x-hdf'.
|
|
|
+ 'hh' -> 'text/x-c++hdr'.
|
|
|
+ 'hin' -> 'chemical/x-hin'.
|
|
|
+ 'hpp' -> 'text/x-c++hdr'.
|
|
|
+ 'hqx' -> 'application/mac-binhex40'.
|
|
|
+ 'hs' -> 'text/x-haskell'.
|
|
|
+ 'hta' -> 'application/hta'.
|
|
|
+ 'htc' -> 'text/x-component'.
|
|
|
+ 'htm' -> 'text/html'.
|
|
|
+ 'html' -> 'text/html'.
|
|
|
+ 'hxx' -> 'text/x-c++hdr'.
|
|
|
+ 'ica' -> 'application/x-ica'.
|
|
|
+ 'ice' -> 'x-conference/x-cooltalk'.
|
|
|
+ 'ico' -> 'image/x-icon'.
|
|
|
+ 'ics' -> 'text/calendar'.
|
|
|
+ 'icz' -> 'text/calendar'.
|
|
|
+ 'ief' -> 'image/ief'.
|
|
|
+ 'iges' -> 'model/iges'.
|
|
|
+ 'igs' -> 'model/iges'.
|
|
|
+ 'iii' -> 'application/x-iphone'.
|
|
|
+ 'inp' -> 'chemical/x-gamess-input'.
|
|
|
+ 'ins' -> 'application/x-internet-signup'.
|
|
|
+ 'iso' -> 'application/x-iso9660-image'.
|
|
|
+ 'isp' -> 'application/x-internet-signup'.
|
|
|
+ 'ist' -> 'chemical/x-isostar'.
|
|
|
+ 'istr' -> 'chemical/x-isostar'.
|
|
|
+ 'jad' -> 'text/vnd.sun.j2me.app-descriptor'.
|
|
|
+ 'jar' -> 'application/java-archive'.
|
|
|
+ 'java' -> 'text/x-java'.
|
|
|
+ 'jdx' -> 'chemical/x-jcamp-dx'.
|
|
|
+ 'jmz' -> 'application/x-jmol'.
|
|
|
+ 'jng' -> 'image/x-jng'.
|
|
|
+ 'jnlp' -> 'application/x-java-jnlp-file'.
|
|
|
+ 'jpe' -> 'image/jpeg'.
|
|
|
+ 'jpeg' -> 'image/jpeg'.
|
|
|
+ 'jpg' -> 'image/jpeg'.
|
|
|
+ 'js' -> 'application/javascript'.
|
|
|
+ 'kar' -> 'audio/midi'.
|
|
|
+ 'key' -> 'application/pgp-keys'.
|
|
|
+ 'kil' -> 'application/x-killustrator'.
|
|
|
+ 'kin' -> 'chemical/x-kinemage'.
|
|
|
+ 'kpr' -> 'application/x-kpresenter'.
|
|
|
+ 'kpt' -> 'application/x-kpresenter'.
|
|
|
+ 'ksp' -> 'application/x-kspread'.
|
|
|
+ 'kwd' -> 'application/x-kword'.
|
|
|
+ 'kwt' -> 'application/x-kword'.
|
|
|
+ 'latex' -> 'application/x-latex'.
|
|
|
+ 'lha' -> 'application/x-lha'.
|
|
|
+ 'lhs' -> 'text/x-literate-haskell'.
|
|
|
+ 'lsf' -> 'video/x-la-asf'.
|
|
|
+ 'lsx' -> 'video/x-la-asf'.
|
|
|
+ 'ltx' -> 'text/x-tex'.
|
|
|
+ 'lzh' -> 'application/x-lzh'.
|
|
|
+ 'lzx' -> 'application/x-lzx'.
|
|
|
+ 'm3u' -> 'audio/x-mpegurl'.
|
|
|
+ 'm4a' -> 'audio/mpeg'.
|
|
|
+ 'maker' -> 'application/x-maker'.
|
|
|
+ 'man' -> 'application/x-troff-man'.
|
|
|
+ 'mcif' -> 'chemical/x-mmcif'.
|
|
|
+ 'mcm' -> 'chemical/x-macmolecule'.
|
|
|
+ 'mdb' -> 'application/msaccess'.
|
|
|
+ 'me' -> 'application/x-troff-me'.
|
|
|
+ 'mesh' -> 'model/mesh'.
|
|
|
+ 'mid' -> 'audio/midi'.
|
|
|
+ 'midi' -> 'audio/midi'.
|
|
|
+ 'mif' -> 'application/x-mif'.
|
|
|
+ 'mm' -> 'application/x-freemind'.
|
|
|
+ 'mmd' -> 'chemical/x-macromodel-input'.
|
|
|
+ 'mmf' -> 'application/vnd.smaf'.
|
|
|
+ 'mml' -> 'text/mathml'.
|
|
|
+ 'mmod' -> 'chemical/x-macromodel-input'.
|
|
|
+ 'mng' -> 'video/x-mng'.
|
|
|
+ 'moc' -> 'text/x-moc'.
|
|
|
+ 'mol' -> 'chemical/x-mdl-molfile'.
|
|
|
+ 'mol2' -> 'chemical/x-mol2'.
|
|
|
+ 'moo' -> 'chemical/x-mopac-out'.
|
|
|
+ 'mop' -> 'chemical/x-mopac-input'.
|
|
|
+ 'mopcrt' -> 'chemical/x-mopac-input'.
|
|
|
+ 'mov' -> 'video/quicktime'.
|
|
|
+ 'movie' -> 'video/x-sgi-movie'.
|
|
|
+ 'mp2' -> 'audio/mpeg'.
|
|
|
+ 'mp3' -> 'audio/mpeg'.
|
|
|
+ 'mp4' -> 'video/mp4'.
|
|
|
+ 'mpc' -> 'chemical/x-mopac-input'.
|
|
|
+ 'mpe' -> 'video/mpeg'.
|
|
|
+ 'mpeg' -> 'video/mpeg'.
|
|
|
+ 'mpega' -> 'audio/mpeg'.
|
|
|
+ 'mpg' -> 'video/mpeg'.
|
|
|
+ 'mpga' -> 'audio/mpeg'.
|
|
|
+ 'ms' -> 'application/x-troff-ms'.
|
|
|
+ 'msh' -> 'model/mesh'.
|
|
|
+ 'msi' -> 'application/x-msi'.
|
|
|
+ 'mvb' -> 'chemical/x-mopac-vib'.
|
|
|
+ 'mxu' -> 'video/vnd.mpegurl'.
|
|
|
+ 'nb' -> 'application/mathematica'.
|
|
|
+ 'nc' -> 'application/x-netcdf'.
|
|
|
+ 'nwc' -> 'application/x-nwc'.
|
|
|
+ 'o' -> 'application/x-object'.
|
|
|
+ 'oda' -> 'application/oda'.
|
|
|
+ 'odb' -> 'application/vnd.oasis.opendocument.database'.
|
|
|
+ 'odc' -> 'application/vnd.oasis.opendocument.chart'.
|
|
|
+ 'odf' -> 'application/vnd.oasis.opendocument.formula'.
|
|
|
+ 'odg' -> 'application/vnd.oasis.opendocument.graphics'.
|
|
|
+ 'odi' -> 'application/vnd.oasis.opendocument.image'.
|
|
|
+ 'odm' -> 'application/vnd.oasis.opendocument.text-master'.
|
|
|
+ 'odp' -> 'application/vnd.oasis.opendocument.presentation'.
|
|
|
+ 'ods' -> 'application/vnd.oasis.opendocument.spreadsheet'.
|
|
|
+ 'odt' -> 'application/vnd.oasis.opendocument.text'.
|
|
|
+ 'ogg' -> 'application/ogg'.
|
|
|
+ 'old' -> 'application/x-trash'.
|
|
|
+ 'oth' -> 'application/vnd.oasis.opendocument.text-web'.
|
|
|
+ 'oza' -> 'application/x-oz-application'.
|
|
|
+ 'p' -> 'text/x-pascal'.
|
|
|
+ 'p7r' -> 'application/x-pkcs7-certreqresp'.
|
|
|
+ 'pac' -> 'application/x-ns-proxy-autoconfig'.
|
|
|
+ 'pas' -> 'text/x-pascal'.
|
|
|
+ 'pat' -> 'image/x-coreldrawpattern'.
|
|
|
+ 'pbm' -> 'image/x-portable-bitmap'.
|
|
|
+ 'pcf' -> 'application/x-font'.
|
|
|
+ 'pcf.Z' -> 'application/x-font'.
|
|
|
+ 'pcx' -> 'image/pcx'.
|
|
|
+ 'pdb' -> 'chemical/x-pdb'.
|
|
|
+ 'pdf' -> 'application/pdf'.
|
|
|
+ 'pfa' -> 'application/x-font'.
|
|
|
+ 'pfb' -> 'application/x-font'.
|
|
|
+ 'pgm' -> 'image/x-portable-graymap'.
|
|
|
+ 'pgn' -> 'application/x-chess-pgn'.
|
|
|
+ 'pgp' -> 'application/pgp-signature'.
|
|
|
+ 'pk' -> 'application/x-tex-pk'.
|
|
|
+ 'pl' -> 'text/x-perl'.
|
|
|
+ 'pls' -> 'audio/x-scpls'.
|
|
|
+ 'pm' -> 'text/x-perl'.
|
|
|
+ 'png' -> 'image/png'.
|
|
|
+ 'pnm' -> 'image/x-portable-anymap'.
|
|
|
+ 'pot' -> 'text/plain'.
|
|
|
+ 'ppm' -> 'image/x-portable-pixmap'.
|
|
|
+ 'pps' -> 'application/vnd.ms-powerpoint'.
|
|
|
+ 'ppt' -> 'application/vnd.ms-powerpoint'.
|
|
|
+ 'prf' -> 'application/pics-rules'.
|
|
|
+ 'prt' -> 'chemical/x-ncbi-asn1-ascii'.
|
|
|
+ 'ps' -> 'application/postscript'.
|
|
|
+ 'psd' -> 'image/x-photoshop'.
|
|
|
+ 'psp' -> 'text/x-psp'.
|
|
|
+ 'py' -> 'text/x-python'.
|
|
|
+ 'pyc' -> 'application/x-python-code'.
|
|
|
+ 'pyo' -> 'application/x-python-code'.
|
|
|
+ 'qt' -> 'video/quicktime'.
|
|
|
+ 'qtl' -> 'application/x-quicktimeplayer'.
|
|
|
+ 'ra' -> 'audio/x-realaudio'.
|
|
|
+ 'ram' -> 'audio/x-pn-realaudio'.
|
|
|
+ 'rar' -> 'application/rar'.
|
|
|
+ 'ras' -> 'image/x-cmu-raster'.
|
|
|
+ 'rd' -> 'chemical/x-mdl-rdfile'.
|
|
|
+ 'rdf' -> 'application/rdf+xml'.
|
|
|
+ 'rgb' -> 'image/x-rgb'.
|
|
|
+ 'rm' -> 'audio/x-pn-realaudio'.
|
|
|
+ 'roff' -> 'application/x-troff'.
|
|
|
+ 'ros' -> 'chemical/x-rosdal'.
|
|
|
+ 'rpm' -> 'application/x-redhat-package-manager'.
|
|
|
+ 'rss' -> 'application/rss+xml'.
|
|
|
+ 'rtf' -> 'text/rtf'.
|
|
|
+ 'rtx' -> 'text/richtext'.
|
|
|
+ 'rxn' -> 'chemical/x-mdl-rxnfile'.
|
|
|
+ 'sct' -> 'text/scriptlet'.
|
|
|
+ 'sd' -> 'chemical/x-mdl-sdfile'.
|
|
|
+ 'sd2' -> 'audio/x-sd2'.
|
|
|
+ 'sda' -> 'application/vnd.stardivision.draw'.
|
|
|
+ 'sdc' -> 'application/vnd.stardivision.calc'.
|
|
|
+ 'sdd' -> 'application/vnd.stardivision.impress'.
|
|
|
+ 'sdf' -> 'chemical/x-mdl-sdfile'.
|
|
|
+ 'sdp' -> 'application/vnd.stardivision.impress'.
|
|
|
+ 'sdw' -> 'application/vnd.stardivision.writer'.
|
|
|
+ 'ser' -> 'application/java-serialized-object'.
|
|
|
+ 'sgf' -> 'application/x-go-sgf'.
|
|
|
+ 'sgl' -> 'application/vnd.stardivision.writer-global'.
|
|
|
+ 'sh' -> 'text/x-sh'.
|
|
|
+ 'shar' -> 'application/x-shar'.
|
|
|
+ 'shtml' -> 'text/html'.
|
|
|
+ 'sid' -> 'audio/prs.sid'.
|
|
|
+ 'sik' -> 'application/x-trash'.
|
|
|
+ 'silo' -> 'model/mesh'.
|
|
|
+ 'sis' -> 'application/vnd.symbian.install'.
|
|
|
+ 'sit' -> 'application/x-stuffit'.
|
|
|
+ 'skd' -> 'application/x-koan'.
|
|
|
+ 'skm' -> 'application/x-koan'.
|
|
|
+ 'skp' -> 'application/x-koan'.
|
|
|
+ 'skt' -> 'application/x-koan'.
|
|
|
+ 'smf' -> 'application/vnd.stardivision.math'.
|
|
|
+ 'smi' -> 'application/smil'.
|
|
|
+ 'smil' -> 'application/smil'.
|
|
|
+ 'snd' -> 'audio/basic'.
|
|
|
+ 'spc' -> 'chemical/x-galactic-spc'.
|
|
|
+ 'spl' -> 'application/x-futuresplash'.
|
|
|
+ 'src' -> 'application/x-wais-source'.
|
|
|
+ 'stc' -> 'application/vnd.sun.xml.calc.template'.
|
|
|
+ 'std' -> 'application/vnd.sun.xml.draw.template'.
|
|
|
+ 'sti' -> 'application/vnd.sun.xml.impress.template'.
|
|
|
+ 'stl' -> 'application/vnd.ms-pki.stl'.
|
|
|
+ 'stw' -> 'application/vnd.sun.xml.writer.template'.
|
|
|
+ 'sty' -> 'text/x-tex'.
|
|
|
+ 'sv4cpio' -> 'application/x-sv4cpio'.
|
|
|
+ 'sv4crc' -> 'application/x-sv4crc'.
|
|
|
+ 'svg' -> 'image/svg+xml'.
|
|
|
+ 'svgz' -> 'image/svg+xml'.
|
|
|
+ 'sw' -> 'chemical/x-swissprot'.
|
|
|
+ 'swf' -> 'application/x-shockwave-flash'.
|
|
|
+ 'swfl' -> 'application/x-shockwave-flash'.
|
|
|
+ 'sxc' -> 'application/vnd.sun.xml.calc'.
|
|
|
+ 'sxd' -> 'application/vnd.sun.xml.draw'.
|
|
|
+ 'sxg' -> 'application/vnd.sun.xml.writer.global'.
|
|
|
+ 'sxi' -> 'application/vnd.sun.xml.impress'.
|
|
|
+ 'sxm' -> 'application/vnd.sun.xml.math'.
|
|
|
+ 'sxw' -> 'application/vnd.sun.xml.writer'.
|
|
|
+ 't' -> 'application/x-troff'.
|
|
|
+ 'tar' -> 'application/x-tar'.
|
|
|
+ 'taz' -> 'application/x-gtar'.
|
|
|
+ 'tcl' -> 'text/x-tcl'.
|
|
|
+ 'tex' -> 'text/x-tex'.
|
|
|
+ 'texi' -> 'application/x-texinfo'.
|
|
|
+ 'texinfo' -> 'application/x-texinfo'.
|
|
|
+ 'text' -> 'text/plain'.
|
|
|
+ 'tgf' -> 'chemical/x-mdl-tgf'.
|
|
|
+ 'tgz' -> 'application/x-gtar'.
|
|
|
+ 'tif' -> 'image/tiff'.
|
|
|
+ 'tiff' -> 'image/tiff'.
|
|
|
+ 'tk' -> 'text/x-tcl'.
|
|
|
+ 'tm' -> 'text/texmacs'.
|
|
|
+ 'torrent' -> 'application/x-bittorrent'.
|
|
|
+ 'tr' -> 'application/x-troff'.
|
|
|
+ 'ts' -> 'text/texmacs'.
|
|
|
+ 'tsp' -> 'application/dsptype'.
|
|
|
+ 'tsv' -> 'text/tab-separated-values'.
|
|
|
+ 'txt' -> 'text/plain'.
|
|
|
+ 'udeb' -> 'application/x-debian-package'.
|
|
|
+ 'uls' -> 'text/iuls'.
|
|
|
+ 'ustar' -> 'application/x-ustar'.
|
|
|
+ 'val' -> 'chemical/x-ncbi-asn1-binary'.
|
|
|
+ 'vcd' -> 'application/x-cdlink'.
|
|
|
+ 'vcf' -> 'text/x-vcard'.
|
|
|
+ 'vcs' -> 'text/x-vcalendar'.
|
|
|
+ 'vmd' -> 'chemical/x-vmd'.
|
|
|
+ 'vms' -> 'chemical/x-vamas-iso14976'.
|
|
|
+ 'vor' -> 'application/vnd.stardivision.writer'.
|
|
|
+ 'vrm' -> 'x-world/x-vrml'.
|
|
|
+ 'vrml' -> 'x-world/x-vrml'.
|
|
|
+ 'vsd' -> 'application/vnd.visio'.
|
|
|
+ 'wad' -> 'application/x-doom'.
|
|
|
+ 'wav' -> 'audio/x-wav'.
|
|
|
+ 'wax' -> 'audio/x-ms-wax'.
|
|
|
+ 'wbmp' -> 'image/vnd.wap.wbmp'.
|
|
|
+ 'wbxml' -> 'application/vnd.wap.wbxml'.
|
|
|
+ 'wk' -> 'application/x-123'.
|
|
|
+ 'wm' -> 'video/x-ms-wm'.
|
|
|
+ 'wma' -> 'audio/x-ms-wma'.
|
|
|
+ 'wmd' -> 'application/x-ms-wmd'.
|
|
|
+ 'wml' -> 'text/vnd.wap.wml'.
|
|
|
+ 'wmlc' -> 'application/vnd.wap.wmlc'.
|
|
|
+ 'wmls' -> 'text/vnd.wap.wmlscript'.
|
|
|
+ 'wmlsc' -> 'application/vnd.wap.wmlscriptc'.
|
|
|
+ 'wmv' -> 'video/x-ms-wmv'.
|
|
|
+ 'wmx' -> 'video/x-ms-wmx'.
|
|
|
+ 'wmz' -> 'application/x-ms-wmz'.
|
|
|
+ 'wp5' -> 'application/wordperfect5.1'.
|
|
|
+ 'wpd' -> 'application/wordperfect'.
|
|
|
+ 'wrl' -> 'x-world/x-vrml'.
|
|
|
+ 'wsc' -> 'text/scriptlet'.
|
|
|
+ 'wvx' -> 'video/x-ms-wvx'.
|
|
|
+ 'wz' -> 'application/x-wingz'.
|
|
|
+ 'xbm' -> 'image/x-xbitmap'.
|
|
|
+ 'xcf' -> 'application/x-xcf'.
|
|
|
+ 'xht' -> 'application/xhtml+xml'.
|
|
|
+ 'xhtml' -> 'application/xhtml+xml'.
|
|
|
+ 'xlb' -> 'application/vnd.ms-excel'.
|
|
|
+ 'xls' -> 'application/vnd.ms-excel'.
|
|
|
+ 'xlt' -> 'application/vnd.ms-excel'.
|
|
|
+ 'xml' -> 'application/xml'.
|
|
|
+ 'xpi' -> 'application/x-xpinstall'.
|
|
|
+ 'xpm' -> 'image/x-xpixmap'.
|
|
|
+ 'xsl' -> 'application/xml'.
|
|
|
+ 'xtel' -> 'chemical/x-xtel'.
|
|
|
+ 'xul' -> 'application/vnd.mozilla.xul+xml'.
|
|
|
+ 'xwd' -> 'image/x-xwindowdump'.
|
|
|
+ 'xyz' -> 'chemical/x-xyz'.
|
|
|
+ 'zip' -> 'application/zip'.
|
|
|
+ 'zmt' -> 'chemical/x-mopac-input'.
|
|
|
+ '~' -> 'application/x-trash'
|
|
|
+ }
|
|
|
+!
|
|
|
+
|
|
|
+defaultPort
|
|
|
+ ^ 4000
|
|
|
+!
|
|
|
+
|
|
|
+mimeTypeFor: aString
|
|
|
+ ^ self mimeTypes at: (aString replace: '.*[\.]' with: '') ifAbsent: ['text/plain']
|
|
|
+!
|
|
|
+
|
|
|
+mimeTypes
|
|
|
+ ^ mimeTypes ifNil: [mimeTypes := self defaultMimeTypes]
|
|
|
+!
|
|
|
+
|
|
|
+printHelp
|
|
|
+ console log: 'Available commandline options are:'.
|
|
|
+ console log: '--help'.
|
|
|
+ self commandLineSwitches do: [ :each |
|
|
|
+ console log: each, ' <parameter>']
|
|
|
+!
|
|
|
+
|
|
|
+selectorForCommandLineSwitch: aSwitch
|
|
|
+ "Remove the trailing '--', add ':' at the end
|
|
|
+ and replace all occurences of a lowercase letter preceded by a '-' with
|
|
|
+ the Uppercase letter.
|
|
|
+ Example: --fallback-page becomes fallbackPage:"
|
|
|
+ ^ ((aSwitch replace: '^--' with: '')
|
|
|
+ replace: '-[a-z]' with: [ :each | each second asUppercase ]), ':'
|
|
|
+! !
|
|
|
+
|
|
|
+!FileServer class methodsFor: 'initialization'!
|
|
|
+
|
|
|
+createServerWithArguments: options
|
|
|
+ "If options are empty return a default FileServer instance.
|
|
|
+ If options are given loop through them and set the passed in values
|
|
|
+ on the FileServer instance.
|
|
|
+
|
|
|
+ Commanline options map directly to methods in the 'accessing' protocol
|
|
|
+ taking one parameter.
|
|
|
+ Adding a method to this protocol makes it directly settable through
|
|
|
+ command line options.
|
|
|
+ "
|
|
|
+ | server popFront front optionName optionValue switches |
|
|
|
+
|
|
|
+ switches := self commandLineSwitches.
|
|
|
+
|
|
|
+ server := self new.
|
|
|
+
|
|
|
+ options ifEmpty: [^server].
|
|
|
+
|
|
|
+ (options size even) ifFalse: [
|
|
|
+ console log: 'Using default parameters.'.
|
|
|
+ console log: 'Wrong commandline options or not enough arguments for: ' , options.
|
|
|
+ console log: 'Use any of the following ones: ', switches.
|
|
|
+ ^server].
|
|
|
+
|
|
|
+ popFront := [:args |
|
|
|
+ front := args first.
|
|
|
+ args remove: front.
|
|
|
+ front].
|
|
|
+
|
|
|
+ [options notEmpty] whileTrue: [
|
|
|
+ optionName := popFront value: options.
|
|
|
+ optionValue := popFront value: options.
|
|
|
+
|
|
|
+ (switches includes: optionName) ifTrue: [
|
|
|
+ optionName := self selectorForCommandLineSwitch: optionName.
|
|
|
+ server perform: optionName withArguments: (Array with: optionValue)]
|
|
|
+ ifFalse: [
|
|
|
+ console log: optionName, ' is not a valid commandline option'.
|
|
|
+ console log: 'Use any of the following ones: ', switches ]].
|
|
|
+ ^ server.
|
|
|
+!
|
|
|
+
|
|
|
+main
|
|
|
+ "Main entry point for Amber applications.
|
|
|
+ Creates and starts a FileServer instance."
|
|
|
+ | fileServer args |
|
|
|
+ args := process argv.
|
|
|
+ "Remove the first args which contain the path to the node executable and the script file."
|
|
|
+ args removeFrom: 1 to: 3.
|
|
|
+
|
|
|
+ args detect: [ :each |
|
|
|
+ (each = '--help') ifTrue: [FileServer printHelp]]
|
|
|
+ ifNone: [
|
|
|
+ fileServer := FileServer createServerWithArguments: args.
|
|
|
+ ^ fileServer start]
|
|
|
+! !
|
|
|
+
|
|
|
+Object subclass: #Initer
|
|
|
+ instanceVariableNames: 'path childProcess nmPath'
|
|
|
+ package: 'AmberCli'!
|
|
|
+
|
|
|
+!Initer methodsFor: 'action'!
|
|
|
+
|
|
|
+bowerInstallThenDo: aBlock
|
|
|
+ | child |
|
|
|
+ child := childProcess
|
|
|
+ exec: (path join: nmPath with: '.bin' with: 'bower'), ' install'
|
|
|
+ thenDo: aBlock.
|
|
|
+ child stdout pipe: process stdout options: #{ 'end' -> false }
|
|
|
+!
|
|
|
+
|
|
|
+gruntInitThenDo: aBlock
|
|
|
+ | child |
|
|
|
+ child := childProcess
|
|
|
+ exec: (path join: nmPath with: '.bin' with: 'grunt-init'), ' ', (((path join: nmPath with: 'grunt-init-amber') replace: '\\' with: '\\') replace: ':' with: '\:')
|
|
|
+ thenDo: aBlock.
|
|
|
+ child stdout pipe: process stdout options: #{ 'end' -> false }.
|
|
|
+ process stdin resume.
|
|
|
+ process stdin pipe: child stdin options: #{ 'end' -> false }
|
|
|
+!
|
|
|
+
|
|
|
+start
|
|
|
+ self gruntInitThenDo: [ :error |
|
|
|
+ error ifNotNil: [ console log: 'grunt-init exec error:'; log: error. process exit ]
|
|
|
+ ifNil: [
|
|
|
+ self bowerInstallThenDo: [ :error2 |
|
|
|
+ error2 ifNotNil: [ console log: 'bower install exec error:'; log: error2 ].
|
|
|
+ process exit ]]]
|
|
|
+! !
|
|
|
+
|
|
|
+!Initer methodsFor: 'initialization'!
|
|
|
+
|
|
|
+initialize
|
|
|
+ super initialize.
|
|
|
+ path := require value: 'path'.
|
|
|
+ childProcess := require value: 'child_process'.
|
|
|
+ nmPath := path join: self rootDirname with: 'node_modules'
|
|
|
+! !
|
|
|
+
|
|
|
+!Initer methodsFor: 'private'!
|
|
|
+
|
|
|
+dirname
|
|
|
+ <return __dirname>
|
|
|
+!
|
|
|
+
|
|
|
+rootDirname
|
|
|
+ ^ path join: self dirname with: '..'
|
|
|
+! !
|
|
|
+
|
|
|
+Object subclass: #NodeTestRunner
|
|
|
+ instanceVariableNames: ''
|
|
|
+ package: 'AmberCli'!
|
|
|
+
|
|
|
+!NodeTestRunner class methodsFor: 'not yet classified'!
|
|
|
+
|
|
|
+runTestSuite
|
|
|
+ | suite worker |
|
|
|
+
|
|
|
+ suite := OrderedCollection new.
|
|
|
+ (TestCase allSubclasses select: [ :each | each isAbstract not ])
|
|
|
+ do: [ :each | suite addAll: each buildSuite ].
|
|
|
+
|
|
|
+ worker := TestSuiteRunner on: suite.
|
|
|
+ worker announcer on: ResultAnnouncement do:
|
|
|
+ [ :ann | | result |
|
|
|
+ result := ann result.
|
|
|
+ result runs = result total ifTrue: [
|
|
|
+ console log: result runs asString, ' tests run, ', result failures size asString, ' failures, ', result errors size asString, ' errors.'.
|
|
|
+
|
|
|
+ result failures isEmpty ifFalse: [
|
|
|
+ result failures first runCase.
|
|
|
+ "the line above should throw, normally, but just in case I leave the line below"
|
|
|
+ self throw: result failures first class name, ' >> ', result failures first selector, ' is failing!!!!' ].
|
|
|
+ result errors isEmpty ifFalse: [
|
|
|
+ result errors first runCase.
|
|
|
+ "the line above should throw, normally, but just in case I leave the line below"
|
|
|
+ self throw: result errors first class name, ' >> ', result errors first selector, ' has errors!!!!' ].
|
|
|
+ ]].
|
|
|
+ worker run
|
|
|
+! !
|
|
|
+
|
|
|
+Object subclass: #Repl
|
|
|
+ instanceVariableNames: 'readline interface util session resultCount commands'
|
|
|
+ package: 'AmberCli'!
|
|
|
+!Repl commentStamp!
|
|
|
+I am a class representing a REPL (Read Evaluate Print Loop) and provide a command line interface to Amber Smalltalk.
|
|
|
+On the prompt you can type Amber statements which will be evaluated after pressing <Enter>.
|
|
|
+The evaluation is comparable with executing a 'DoIt' in a workspace.
|
|
|
+
|
|
|
+My runtime requirement is a functional Node.js executable with working Readline support.!
|
|
|
+
|
|
|
+!Repl methodsFor: 'accessing'!
|
|
|
+
|
|
|
+commands
|
|
|
+ ^ commands
|
|
|
+!
|
|
|
+
|
|
|
+prompt
|
|
|
+ ^ 'amber >> '
|
|
|
+! !
|
|
|
+
|
|
|
+!Repl methodsFor: 'actions'!
|
|
|
+
|
|
|
+clearScreen
|
|
|
+ | esc cls |
|
|
|
+ esc := String fromCharCode: 27.
|
|
|
+ cls := esc, '[2J', esc, '[0;0f'.
|
|
|
+ process stdout write: cls.
|
|
|
+ interface prompt
|
|
|
+!
|
|
|
+
|
|
|
+close
|
|
|
+ process stdin destroy
|
|
|
+!
|
|
|
+
|
|
|
+createInterface
|
|
|
+ interface := readline createInterface: process stdin stdout: process stdout.
|
|
|
+ interface on: 'line' do: [:buffer | self processLine: buffer].
|
|
|
+ interface on: 'close' do: [self close].
|
|
|
+ self printWelcome; setupHotkeys; setPrompt.
|
|
|
+ interface prompt
|
|
|
+!
|
|
|
+
|
|
|
+eval: buffer
|
|
|
+ ^ self eval: buffer on: DoIt new.
|
|
|
+!
|
|
|
+
|
|
|
+eval: buffer on: anObject
|
|
|
+ | result |
|
|
|
+ buffer isEmpty ifFalse: [
|
|
|
+ [result := Compiler new evaluateExpression: buffer on: anObject]
|
|
|
+ tryCatch: [:e |
|
|
|
+ e isSmalltalkError
|
|
|
+ ifTrue: [ e resignal ]
|
|
|
+ ifFalse: [ process stdout write: e jsStack ]]].
|
|
|
+ ^ result
|
|
|
+!
|
|
|
+
|
|
|
+printWelcome
|
|
|
+ Transcript show: 'Type :q to exit.'; cr.
|
|
|
+!
|
|
|
+
|
|
|
+setPrompt
|
|
|
+ interface setPrompt: self prompt
|
|
|
+! !
|
|
|
+
|
|
|
+!Repl methodsFor: 'initialization'!
|
|
|
+
|
|
|
+initialize
|
|
|
+ super initialize.
|
|
|
+ session := DoIt new.
|
|
|
+ readline := require value: 'readline'.
|
|
|
+ util := require value: 'util'.
|
|
|
+ self setupCommands
|
|
|
+!
|
|
|
+
|
|
|
+setupCommands
|
|
|
+ commands := Dictionary from: {
|
|
|
+ {':q'} -> [process exit].
|
|
|
+ {''} -> [interface prompt]}
|
|
|
+!
|
|
|
+
|
|
|
+setupHotkeys
|
|
|
+ process stdin on: 'keypress' do: [:s :key | key ifNotNil: [self onKeyPress: key]].
|
|
|
+! !
|
|
|
+
|
|
|
+!Repl methodsFor: 'private'!
|
|
|
+
|
|
|
+addVariableNamed: aString to: anObject
|
|
|
+ | newClass newObject |
|
|
|
+ newClass := self subclass: anObject class withVariable: aString.
|
|
|
+ self encapsulateVariable: aString withValue: anObject in: newClass.
|
|
|
+ newObject := newClass new.
|
|
|
+ self setPreviousVariablesFor: newObject from: anObject.
|
|
|
+ ^ newObject
|
|
|
+!
|
|
|
+
|
|
|
+assignNewVariable: buffer do: aBlock
|
|
|
+ "Assigns a new variable and calls the given block with the variable's name and value
|
|
|
+ if buffer contains an assignment expression. If it doesn't the block is called with nil for
|
|
|
+ both arguments."
|
|
|
+ ^ self parseAssignment: buffer do: [ :name :expr || varName value |
|
|
|
+ varName := name ifNil: [self nextResultName].
|
|
|
+ session := self addVariableNamed: varName to: session.
|
|
|
+ [ value := self eval: varName, ' := ', (expr ifNil: [buffer]) on: session ]
|
|
|
+ on: Error
|
|
|
+ do: [ :e | ConsoleErrorHandler new logError: e. value := nil].
|
|
|
+ aBlock value: varName value: value]
|
|
|
+!
|
|
|
+
|
|
|
+encapsulateVariable: aString withValue: anObject in: aClass
|
|
|
+ "Add getter and setter for given variable to session."
|
|
|
+ | compiler |
|
|
|
+ compiler := Compiler new.
|
|
|
+ compiler install: aString, ': anObject ^ ', aString, ' := anObject' forClass: aClass protocol: 'session'.
|
|
|
+ compiler install: aString, ' ^ ', aString forClass: aClass protocol: 'session'.
|
|
|
+!
|
|
|
+
|
|
|
+executeCommand: aString
|
|
|
+ "Tries to process the given string as a command. Returns true if it was a command, false if not."
|
|
|
+ self commands keysAndValuesDo: [:names :cmd |
|
|
|
+ (names includes: aString) ifTrue: [
|
|
|
+ cmd value.
|
|
|
+ ^ true]].
|
|
|
+ ^ false
|
|
|
+!
|
|
|
+
|
|
|
+instanceVariableNamesFor: aClass
|
|
|
+ "Yields all instance variable names for the given class, including inherited ones."
|
|
|
+ ^ aClass superclass
|
|
|
+ ifNotNil: [
|
|
|
+ aClass instanceVariableNames copyWithAll: (self instanceVariableNamesFor: aClass superclass)]
|
|
|
+ ifNil: [
|
|
|
+ aClass instanceVariableNames]
|
|
|
+!
|
|
|
+
|
|
|
+isIdentifier: aString
|
|
|
+ ^ aString match: '^[a-z_]\w*$' asRegexp
|
|
|
+!
|
|
|
+
|
|
|
+isVariableDefined: aString
|
|
|
+ ^ (self instanceVariableNamesFor: session class) includes: aString
|
|
|
+!
|
|
|
+
|
|
|
+nextResultName
|
|
|
+ resultCount := resultCount
|
|
|
+ ifNotNil: [resultCount + 1]
|
|
|
+ ifNil: [1].
|
|
|
+ ^ 'res', resultCount asString
|
|
|
+!
|
|
|
+
|
|
|
+onKeyPress: key
|
|
|
+ (key ctrl and: [key name = 'l'])
|
|
|
+ ifTrue: [self clearScreen]
|
|
|
+!
|
|
|
+
|
|
|
+parseAssignment: aString do: aBlock
|
|
|
+ "Assigns a new variable if the given string is an assignment expression. Calls the given block with name and value.
|
|
|
+ If the string is not one no variable will be assigned and the block will be called with nil for both arguments."
|
|
|
+ | assignment |
|
|
|
+ assignment := (aString tokenize: ':=') collect: [:s | s trimBoth].
|
|
|
+ ^ (assignment size = 2 and: [self isIdentifier: assignment first])
|
|
|
+ ifTrue: [ aBlock value: assignment first value: assignment last ]
|
|
|
+ ifFalse: [ aBlock value: nil value: nil ]
|
|
|
+!
|
|
|
+
|
|
|
+presentResultNamed: varName withValue: value
|
|
|
+ Transcript show: varName, ': ', value class name, ' = ', value asString; cr.
|
|
|
+ interface prompt
|
|
|
+!
|
|
|
+
|
|
|
+processLine: buffer
|
|
|
+ "Processes lines entered through the readline interface."
|
|
|
+ | show |
|
|
|
+ show := [:varName :value | self presentResultNamed: varName withValue: value].
|
|
|
+ (self executeCommand: buffer) ifFalse: [
|
|
|
+ (self isVariableDefined: buffer)
|
|
|
+ ifTrue: [show value: buffer value: (session perform: buffer)]
|
|
|
+ ifFalse: [self assignNewVariable: buffer do: show]]
|
|
|
+!
|
|
|
+
|
|
|
+setPreviousVariablesFor: newObject from: oldObject
|
|
|
+ (self instanceVariableNamesFor: oldObject class) do: [:each |
|
|
|
+ newObject perform: each, ':' withArguments: {oldObject perform: each}].
|
|
|
+!
|
|
|
+
|
|
|
+subclass: aClass withVariable: varName
|
|
|
+ "Create subclass with new variable."
|
|
|
+ ^ ClassBuilder new
|
|
|
+ addSubclassOf: aClass
|
|
|
+ named: (self subclassNameFor: aClass) asSymbol
|
|
|
+ instanceVariableNames: {varName}
|
|
|
+ package: 'Compiler-Core'
|
|
|
+!
|
|
|
+
|
|
|
+subclassNameFor: aClass
|
|
|
+ ^ (aClass name matchesOf: '\d+$')
|
|
|
+ ifNotNil: [ | counter |
|
|
|
+ counter := (aClass name matchesOf: '\d+$') first asNumber + 1.
|
|
|
+ aClass name replaceRegexp: '\d+$' asRegexp with: counter asString]
|
|
|
+ ifNil: [
|
|
|
+ aClass name, '2'].
|
|
|
+! !
|
|
|
+
|
|
|
+!Repl class methodsFor: 'initialization'!
|
|
|
+
|
|
|
+main
|
|
|
+ self new createInterface
|
|
|
+! !
|
|
|
+
|
