loadAll
author Claus Gittinger <cg@exept.de>
Fri, 21 Feb 2020 20:48:14 +0100
changeset 1231 b7d945ef967a
parent 229 5486be368577
permissions -rw-r--r--
#REFACTORING by exept class: JavaScriptParser changed: #forStatement class: JavaScriptParser class added: #forOfAllowed comment/format in: #forInAllowed

"/
"/ $Header$
"/
"/ loadAll-file to fileIn code for: stx:libjavascript
"/
"/ Automatically generated from project definition.
"/ DO NOT MODIFY THIS fILE;
"/ modify the .prj file instead, and regenerate this file
"/ with the ProjectBrowser tool.
"/

"/
"/ Prerequisites:
"/
!

"{ package:'stx:libjavascript' }"!

|files|

'loading package stx:libjavascript ...' infoPrintCR.

files := #(
    'JavaScriptEnvironment.st'
    'JavaScriptFunctionNode.st'
    'JavaScriptVariableNode.st'
    'JavaScriptScanner.st'
    'JavaScriptParser.st'
    'JavaScriptCompiler.st'
    'JavaScriptSyntaxHighlighter.st'
    'JavaScriptFunction.st'
    'JavaScriptInnerFunctionNode.st'
    'JavaScriptVariable.st'
) asOrderedCollection.

"/ see if there is a classLibrary
(Smalltalk fileInClassLibrary:'libstx_libjavascript') ifTrue:[
    |handle loaded|

    handle := ObjectFileLoader loadedObjectHandles
		    detect:[:h | h package = 'stx:libjavascript'] ifNone:nil.
    handle ifNotNil:[
	loaded := Set new:(handle classes size).
	handle classes do:[:c| c isMeta ifFalse:[loaded add:c classFilename]].
	files := files asOrderedCollection \ loaded.
    ].
].

"/ load files which are not in the classLibrary (all if there is none)
files size > 0 ifTrue:[
  files do:[:f |
    '.' infoPrint.
    f asFilename exists ifTrue:[
	Smalltalk fileIn:f.
    ] ifFalse:[
	Smalltalk fileIn:('source/' , f)
    ]
  ].
  ' ' infoPrintCR.
].
'done (stx:libjavascript).' infoPrintCR.