1 ! Copyright (C) 2007, 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: io io.files io.files.info.unix io.pathnames
4 io.directories io.directories.hierarchy kernel namespaces make
5 sequences system tools.deploy.backend tools.deploy.config
6 tools.deploy.config.editor assocs hashtables prettyprint
7 io.backend.unix cocoa io.encodings.utf8 io.backend
8 cocoa.application cocoa.classes cocoa.plists
10 IN: tools.deploy.macosx
12 : bundle-dir ( -- dir )
13 vm parent-directory parent-directory ;
15 : copy-bundle-dir ( bundle-name dir -- )
16 bundle-dir over append-path -rot
17 "Contents" prepend-path append-path copy-tree ;
19 : app-plist ( executable bundle-name -- assoc )
21 "6.0" "CFBundleInfoDictionaryVersion" set
22 "APPL" "CFBundlePackageType" set
24 file-name "CFBundleName" set
26 [ "CFBundleExecutable" set ]
27 [ "org.factor." prepend "CFBundleIdentifier" set ] bi
30 : create-app-plist ( executable bundle-name -- )
32 "Contents/Info.plist" append-path
35 : copy-dll ( bundle-name -- )
36 "Frameworks/libfactor.dylib" copy-bundle-dir ;
38 : copy-freetype ( bundle-name -- )
39 deploy-ui? get [ "Frameworks" copy-bundle-dir ] [ drop ] if ;
41 : copy-nib ( bundle-name -- )
43 "Resources/English.lproj/MiniFactor.nib" copy-bundle-dir
46 : create-app-dir ( vocab bundle-name -- vm )
52 [ "Contents/Resources/" copy-fonts ]
53 [ "Contents/Resources" append-path make-directories ]
57 [ "Contents/MacOS/" append-path "" copy-vm ] 2tri
58 dup OCT: 755 set-file-permissions ;
60 : deploy.app-image ( vocab bundle-name -- str )
61 [ % "/Contents/Resources/" % % ".image" % ] "" make ;
63 : bundle-name ( -- string )
64 deploy-name get ".app" append ;
66 : show-in-finder ( path -- )
67 [ NSWorkspace -> sharedWorkspace ]
68 [ normalize-path [ <NSString> ] [ parent-directory <NSString> ] bi ] bi*
69 -> selectFile:inFileViewerRootedAtPath: drop ;
71 M: macosx deploy* ( vocab -- )
72 ".app deploy tool" assert.app
75 bundle-name dup exists? [ delete-tree ] [ drop ] if
76 [ bundle-name create-app-dir ] keep
77 [ bundle-name deploy.app-image ] keep
78 namespace make-deploy-image
79 bundle-name show-in-finder