loadAll
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 24 Sep 2013 23:18:24 +0200
branchinitialV
changeset 1180 01c6be61f29c
parent 229 5486be368577
permissions -rw-r--r--
checkin from stx browser
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
34
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"/
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
"/ $Header$
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
"/
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
"/ loadAll-file to fileIn code for: stx:libjavascript
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
"/
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
"/ Automatically generated from project definition.
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
"/ DO NOT MODIFY THIS fILE;
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
"/ modify the .prj file instead, and regenerate this file
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
"/ with the ProjectBrowser tool.
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
"/
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"/
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
"/ Prerequisites:
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
"/
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
!
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
"{ package:'stx:libjavascript' }"!
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
|files|
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
'loading package stx:libjavascript ...' infoPrintCR.
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
files := #(
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
    'JavaScriptEnvironment.st'
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
    'JavaScriptFunctionNode.st'
179
3e871a0deddb Cannot stc-compile JavaScriptEnvironment.st
Stefan Vogel <sv@exept.de>
parents: 34
diff changeset
    26
    'JavaScriptVariableNode.st'
34
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
    'JavaScriptScanner.st'
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
    'JavaScriptParser.st'
179
3e871a0deddb Cannot stc-compile JavaScriptEnvironment.st
Stefan Vogel <sv@exept.de>
parents: 34
diff changeset
    29
    'JavaScriptCompiler.st'
3e871a0deddb Cannot stc-compile JavaScriptEnvironment.st
Stefan Vogel <sv@exept.de>
parents: 34
diff changeset
    30
    'JavaScriptSyntaxHighlighter.st'
3e871a0deddb Cannot stc-compile JavaScriptEnvironment.st
Stefan Vogel <sv@exept.de>
parents: 34
diff changeset
    31
    'JavaScriptFunction.st'
3e871a0deddb Cannot stc-compile JavaScriptEnvironment.st
Stefan Vogel <sv@exept.de>
parents: 34
diff changeset
    32
    'JavaScriptInnerFunctionNode.st'
3e871a0deddb Cannot stc-compile JavaScriptEnvironment.st
Stefan Vogel <sv@exept.de>
parents: 34
diff changeset
    33
    'JavaScriptVariable.st'
34
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
) asOrderedCollection.
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
"/ see if there is a classLibrary
229
5486be368577 changed library name
Stefan Vogel <sv@exept.de>
parents: 179
diff changeset
    37
(Smalltalk fileInClassLibrary:'libstx_libjavascript') ifTrue:[
34
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
    |handle loaded|
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
179
3e871a0deddb Cannot stc-compile JavaScriptEnvironment.st
Stefan Vogel <sv@exept.de>
parents: 34
diff changeset
    40
    handle := ObjectFileLoader loadedObjectHandles
34
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
		    detect:[:h | h package = 'stx:libjavascript'] ifNone:nil.
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
    handle ifNotNil:[
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
	loaded := Set new:(handle classes size).
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
	handle classes do:[:c| c isMeta ifFalse:[loaded add:c classFilename]].
229
5486be368577 changed library name
Stefan Vogel <sv@exept.de>
parents: 179
diff changeset
    45
	files := files asOrderedCollection \ loaded.
34
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
    ].
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
].
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
"/ load files which are not in the classLibrary (all if there is none)
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
files size > 0 ifTrue:[
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
  files do:[:f |
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
    '.' infoPrint.
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
    f asFilename exists ifTrue:[
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
	Smalltalk fileIn:f.
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
    ] ifFalse:[
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
	Smalltalk fileIn:('source/' , f)
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
    ]
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
  ].
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
  ' ' infoPrintCR.
15aaba25cc32 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
].
229
5486be368577 changed library name
Stefan Vogel <sv@exept.de>
parents: 179
diff changeset
    61
'done (stx:libjavascript).' infoPrintCR.