equal
deleted
inserted
replaced
50 ! |
50 ! |
51 |
51 |
52 forStream: aStream |
52 forStream: aStream |
53 "Answers a language for given source stream. If none is found, |
53 "Answers a language for given source stream. If none is found, |
54 SmalltalkLanguage is returned (to provide backward compatibility)" |
54 SmalltalkLanguage is returned (to provide backward compatibility)" |
55 |
55 |
56 aStream isFileStream ifFalse: [ ^ SmalltalkLanguage instance ]. |
56 "JV: yet another kludge, sigh" |
|
57 (aStream isKindOf: EncodedStream) |
|
58 ifTrue: [ ^ self forStream: aStream stream ]. |
|
59 |
|
60 aStream isFileStream |
|
61 ifFalse: [ ^ SmalltalkLanguage instance ]. |
|
62 |
57 ^ self forFile: aStream fileName |
63 ^ self forFile: aStream fileName |
58 |
64 |
59 "Created: / 16-08-2009 / 10:56:26 / Jan Vrany <vranyj1@fel.cvut.cz>" |
65 "Created: / 16-08-2009 / 10:56:26 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
66 "Modified: / 25-02-2010 / 23:26:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
60 ! |
67 ! |
61 |
68 |
62 named: aString |
69 named: aString |
63 ^ self |
70 ^ self |
64 instancesDetect:[:each | each name = aString ] |
71 instancesDetect:[:each | each name = aString ] |
352 ! ! |
359 ! ! |
353 |
360 |
354 !ProgrammingLanguage class methodsFor:'documentation'! |
361 !ProgrammingLanguage class methodsFor:'documentation'! |
355 |
362 |
356 version |
363 version |
357 ^ '$Id: ProgrammingLanguage.st 10482 2009-12-04 20:30:11Z vranyj1 $' |
364 ^ '$Id: ProgrammingLanguage.st 10503 2010-02-25 22:58:21Z vranyj1 $' |
358 ! |
365 ! |
359 |
366 |
360 version_CVS |
367 version_CVS |
361 ^ '§Header: /cvs/stx/stx/libbasic/ProgrammingLanguage.st,v 1.10 2009/12/04 11:21:32 cg Exp §' |
368 ^ '§Header: /cvs/stx/stx/libbasic/ProgrammingLanguage.st,v 1.10 2009/12/04 11:21:32 cg Exp §' |
362 ! |
369 ! |
363 |
370 |
364 version_SVN |
371 version_SVN |
365 ^ '$Id: ProgrammingLanguage.st 10482 2009-12-04 20:30:11Z vranyj1 $' |
372 ^ '$Id: ProgrammingLanguage.st 10503 2010-02-25 22:58:21Z vranyj1 $' |
366 ! ! |
373 ! ! |
367 |
374 |
368 ProgrammingLanguage initialize! |
375 ProgrammingLanguage initialize! |
369 |
|
370 |
|
371 |
|