equal
deleted
inserted
replaced
11 hereby transferred. |
11 hereby transferred. |
12 " |
12 " |
13 "{ Package: 'stx:libcomp' }" |
13 "{ Package: 'stx:libcomp' }" |
14 |
14 |
15 Object subclass:#STCCompilerInterface |
15 Object subclass:#STCCompilerInterface |
16 instanceVariableNames:'originator parserFlags initName theNonMetaclassToCompileFor |
16 instanceVariableNames:'originator parserFlags initName theNonMetaclassToCompileFor |
17 classToCompileFor stFileName cFileName oFileName stcFlags cFlags |
17 classToCompileFor stFileName cFileName oFileName stcFlags cFlags |
18 stcPath ccPath requestor methodCategory executionStatus package' |
18 stcPath ccPath requestor methodCategory executionStatus package' |
19 classVariableNames:'SequenceNumber Verbose KeepIntermediateFiles' |
19 classVariableNames:'SequenceNumber Verbose KeepIntermediateFiles' |
20 poolDictionaries:'' |
20 poolDictionaries:'' |
21 category:'System-Compiler' |
21 category:'System-Compiler' |
22 ! |
22 ! |
23 |
23 |
24 !STCCompilerInterface class methodsFor:'documentation'! |
24 !STCCompilerInterface class methodsFor:'documentation'! |
25 |
25 |
26 copyright |
26 copyright |
614 |mP t s| |
614 |mP t s| |
615 |
615 |
616 (mP := parserFlags stcModulePath asFilename) exists ifFalse:[ |
616 (mP := parserFlags stcModulePath asFilename) exists ifFalse:[ |
617 mP makeDirectory |
617 mP makeDirectory |
618 ]. |
618 ]. |
619 (mP isDirectory and:[ mP isReadable and:[ mP isWritable ] ]) ifFalse:[ |
619 (mP isWritableDirectory and:[mP isReadable]) ifFalse:[ |
620 ParseError raiseErrorString:('No access to temporary module directory: ' , mP pathName). |
620 ParseError raiseErrorString:('No access to temporary module directory: ' , mP pathName). |
621 ]. |
621 ]. |
622 "/ create a small README there ... |
622 "/ create a small README there ... |
623 |
623 |
624 (t := mP construct:'README') exists ifFalse:[ |
624 (t := mP construct:'README') exists ifFalse:[ |
905 ! ! |
905 ! ! |
906 |
906 |
907 !STCCompilerInterface class methodsFor:'documentation'! |
907 !STCCompilerInterface class methodsFor:'documentation'! |
908 |
908 |
909 version |
909 version |
910 ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.36 2013-05-21 20:31:03 cg Exp $' |
910 ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.37 2013-07-29 14:08:48 stefan Exp $' |
911 ! |
911 ! |
912 |
912 |
913 version_CVS |
913 version_CVS |
914 ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.36 2013-05-21 20:31:03 cg Exp $' |
914 ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.37 2013-07-29 14:08:48 stefan Exp $' |
915 ! ! |
915 ! ! |
916 |
916 |
917 |
917 |
918 STCCompilerInterface initialize! |
918 STCCompilerInterface initialize! |