1 ! Copyright (C) 2007, 2010 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
9 combinators vocabs.metadata vocabs.loader ;
10 IN: tools.deploy.macosx
12 : bundle-dir ( -- dir )
14 [ vm parent-directory parent-directory ]
15 [ "resource:Factor.app" ]
18 : copy-bundle-dir ( bundle-name dir -- )
19 [ bundle-dir prepend-path swap ] keep
20 append-path copy-tree ;
22 : app-plist ( icon? executable bundle-name -- assoc )
24 "6.0" "CFBundleInfoDictionaryVersion" set
25 "APPL" "CFBundlePackageType" set
27 file-name "CFBundleName" set
29 [ "CFBundleExecutable" set ]
30 [ "org.factor." prepend "CFBundleIdentifier" set ] bi
32 [ "Icon.icns" "CFBundleIconFile" set ] when
35 : create-app-plist ( icon? executable bundle-name -- )
37 "Contents/Info.plist" append-path
40 : copy-nib ( bundle-name -- )
42 "Contents/Resources/English.lproj/MiniFactor.nib" copy-bundle-dir
45 : copy-icns ( vocab bundle-name -- icon? )
46 swap dup vocab-mac-icon-path vocab-append-path dup exists?
47 [ swap "Contents/Resources/Icon.icns" append-path copy-file t ]
50 : create-app-dir ( vocab bundle-name -- vm )
55 [ "Contents/Resources" append-path make-directories ]
56 [ "Contents/Frameworks" append-path make-directories ] tri
60 [ "Contents/MacOS/" append-path copy-vm ]
62 dup 0o755 set-file-permissions ;
64 : deploy.app-image ( vocab bundle-name -- str )
65 [ % "/Contents/Resources/" % % ".image" % ] "" make ;
67 : bundle-name ( -- string )
68 deploy-name get ".app" append ;
70 : show-in-finder ( path -- )
71 [ NSWorkspace -> sharedWorkspace ]
72 [ normalize-path [ <NSString> ] [ parent-directory <NSString> ] bi ] bi*
73 -> selectFile:inFileViewerRootedAtPath: drop ;
75 M: macosx deploy* ( vocab -- )
78 bundle-name dup exists? [ delete-tree ] [ drop ] if
79 [ bundle-name create-app-dir ] keep
80 [ bundle-name deploy.app-image ] keep
81 namespace make-deploy-image
83 [ "Contents/Resources" copy-resources ]
84 [ "Contents/Frameworks" copy-libraries ] 2bi
85 bundle-name show-in-finder