compiler/TFilesystemProvider.st
changeset 16 17a2d1d9f205
parent 11 6d39860d0fdb
equal deleted inserted replaced
15:10a95d798b36 16:17a2d1d9f205
       
     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