equal
deleted
inserted
replaced
|
1 " |
|
2 Copyright (C) 2015-now Jan Vrany |
|
3 |
|
4 This code is not an open-source (yet). You may use this code |
|
5 for your own experiments and projects, given that: |
|
6 |
|
7 * all modification to the code will be sent to the |
|
8 original author for inclusion in future releases |
|
9 * this is not used in any commercial software |
|
10 |
|
11 This license is provisional and may (will) change in |
|
12 a future. |
|
13 " |
1 "{ Package: 'jv:tea/compiler' }" |
14 "{ Package: 'jv:tea/compiler' }" |
2 |
15 |
3 "{ NameSpace: Smalltalk }" |
16 "{ NameSpace: Smalltalk }" |
4 |
17 |
5 TEnvironmentProvider subclass:#TFilesystemProvider |
18 TEnvironmentProvider subclass:#TFilesystemProvider |
7 classVariableNames:'' |
20 classVariableNames:'' |
8 poolDictionaries:'' |
21 poolDictionaries:'' |
9 category:'Languages-Tea-Compiler-Model-Provider' |
22 category:'Languages-Tea-Compiler-Model-Provider' |
10 ! |
23 ! |
11 |
24 |
|
25 !TFilesystemProvider class methodsFor:'documentation'! |
|
26 |
|
27 copyright |
|
28 " |
|
29 Copyright (C) 2015-now Jan Vrany |
|
30 |
|
31 This code is not an open-source (yet). You may use this code |
|
32 for your own experiments and projects, given that: |
|
33 |
|
34 * all modification to the code will be sent to the |
|
35 original author for inclusion in future releases |
|
36 * this is not used in any commercial software |
|
37 |
|
38 This license is provisional and may (will) change in |
|
39 a future. |
|
40 " |
|
41 ! ! |
12 |
42 |
13 !TFilesystemProvider class methodsFor:'instance creation'! |
43 !TFilesystemProvider class methodsFor:'instance creation'! |
14 |
44 |
15 new |
45 new |
16 "return an initialized instance" |
46 "return an initialized instance" |
47 ]. |
77 ]. |
48 unit := TSourceReader read:file. |
78 unit := TSourceReader read:file. |
49 ^ unit classes detect:[:class | class name = name ] ifNone:[ nil ] |
79 ^ unit classes detect:[:class | class name = name ] ifNone:[ nil ] |
50 |
80 |
51 "Created: / 14-09-2015 / 15:10:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
81 "Created: / 14-09-2015 / 15:10:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
82 ! |
|
83 |
|
84 classpath |
|
85 ^ classpath |
|
86 |
|
87 "Created: / 24-09-2015 / 16:45:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
52 ! ! |
88 ! ! |
53 |
89 |
54 !TFilesystemProvider methodsFor:'initialization'! |
90 !TFilesystemProvider methodsFor:'initialization'! |
55 |
91 |
56 initialize |
92 initialize |