PerforceSourceCodeManager.st
changeset 3273 0c422ba66340
parent 3266 bb7eddd40b2e
child 3285 90f2f3083f51
child 3304 450629f3fecf
equal deleted inserted replaced
3272:6ce72ad3d416 3273:0c422ba66340
  1290 !
  1290 !
  1291 
  1291 
  1292 perforceTmpDirectory
  1292 perforceTmpDirectory
  1293     "return the name of the tmp repository.
  1293     "return the name of the tmp repository.
  1294      That's the directory, where temporary files are created for checkin/checkout.
  1294      That's the directory, where temporary files are created for checkin/checkout.
  1295      If nil, the system's default tempDirectory is used."
  1295      If nil, a directory under the system's default tempDirectory is used."
  1296 
  1296 
  1297     ^ (PerforceTempDir ? Filename tempDirectory pathName)
  1297     |d|
       
  1298 
       
  1299     PerforceTempDir notNil ifTrue:[^ PerforceTempDir].
       
  1300     d := Filename tempDirectory / 'stx_p4'.
       
  1301     d exists ifFalse:[
       
  1302         d recursiveMakeDirectory.
       
  1303     ].
       
  1304     ^ d pathName
  1298 
  1305 
  1299     "
  1306     "
  1300      PerforceTempDir := nil
  1307      PerforceTempDir := nil
  1301     "
  1308     "
  1302 
  1309 
  1806      versionInfo date:s contents.
  1813      versionInfo date:s contents.
  1807      s := CharacterWriteStream on:(String basicNew:40).    
  1814      s := CharacterWriteStream on:(String basicNew:40).    
  1808      Timestamp now printOn:s format:'%h-%m-%s.%i'.
  1815      Timestamp now printOn:s format:'%h-%m-%s.%i'.
  1809      versionInfo time:s contents.
  1816      versionInfo time:s contents.
  1810      PerforceVersionInfo fromRCSString:versionInfo getVersionString.
  1817      PerforceVersionInfo fromRCSString:versionInfo getVersionString.
  1811      PerforceVersionInfo fromRCSString:'$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.32 2013-05-07 18:37:43 cg Exp $'
  1818      PerforceVersionInfo fromRCSString:'$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.33 2013-05-15 10:47:42 cg Exp $'
  1812     "
  1819     "
  1813 
  1820 
  1814     "Modified: / 01-06-2012 / 13:32:40 / cg"
  1821     "Modified: / 01-06-2012 / 13:32:40 / cg"
  1815 !
  1822 !
  1816 
  1823 
  1907 ! !
  1914 ! !
  1908 
  1915 
  1909 !PerforceSourceCodeManager class methodsFor:'documentation'!
  1916 !PerforceSourceCodeManager class methodsFor:'documentation'!
  1910 
  1917 
  1911 version
  1918 version
  1912     ^ '$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.32 2013-05-07 18:37:43 cg Exp $'
  1919     ^ '$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.33 2013-05-15 10:47:42 cg Exp $'
  1913 !
  1920 !
  1914 
  1921 
  1915 version_CVS
  1922 version_CVS
  1916     ^ '$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.32 2013-05-07 18:37:43 cg Exp $'
  1923     ^ '$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.33 2013-05-15 10:47:42 cg Exp $'
  1917 ! !
  1924 ! !
  1918 
  1925