90 lines
3.2 KiB
Plaintext
90 lines
3.2 KiB
Plaintext
(* ***** BEGIN LICENSE BLOCK *****
|
|
* Version: MPL 1.1/GPL 2.0/LGPL 2.1
|
|
*
|
|
* The contents of this file are subject to the Mozilla Public License Version
|
|
* 1.1 (the "License"); you may not use this file except in compliance with
|
|
* the License. You may obtain a copy of the License at
|
|
* http://www.mozilla.org/MPL/
|
|
*
|
|
* Software distributed under the License is distributed on an "AS IS" basis,
|
|
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
|
* for the specific language governing rights and limitations under the
|
|
* License.
|
|
*
|
|
* The Original Code is Mozilla Communicator client code, released
|
|
* March 31, 1998.
|
|
*
|
|
* The Initial Developer of the Original Code is
|
|
* Netscape Communications Corporation.
|
|
* Portions created by the Initial Developer are Copyright (C) 1999
|
|
* the Initial Developer. All Rights Reserved.
|
|
*
|
|
* Contributor(s):
|
|
* Samir Gehani <sgehani@netscape.com>
|
|
*
|
|
* Alternatively, the contents of this file may be used under the terms of
|
|
* either of the GNU General Public License Version 2 or later (the "GPL"),
|
|
* or the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
|
|
* in which case the provisions of the GPL or the LGPL are applicable instead
|
|
* of those above. If you wish to allow use of your version of this file only
|
|
* under the terms of either the GPL or the LGPL, and not to allow others to
|
|
* use your version of this file under the terms of the MPL, indicate your
|
|
* decision by deleting the provisions above and replace them with the notice
|
|
* and other provisions required by the GPL or the LGPL. If you do not delete
|
|
* the provisions above, a recipient may use your version of this file under
|
|
* the terms of any one of the MPL, the GPL or the LGPL.
|
|
*
|
|
* ***** END LICENSE BLOCK ***** *)
|
|
|
|
--
|
|
-- Simple demo script of ASEncoder's usage from a a script component/client
|
|
--
|
|
-- Commands supported by ASEncoder:
|
|
--
|
|
----------------------------------------
|
|
-- Required Suite:
|
|
----------------------------------------
|
|
-- quit
|
|
-- Description: Quit ASEncoder (you can open it using activate)
|
|
-- Params: No params
|
|
-- Return value: No retval
|
|
--
|
|
----------------------------------------
|
|
-- ASEncoder Suite:
|
|
----------------------------------------
|
|
-- encode
|
|
-- Description: Encode a file in AppleSingle format in place
|
|
-- Params: A file system specification
|
|
-- Return value: A success boolean (false also returned if file didn't have a res fork)
|
|
--
|
|
-- decode
|
|
-- Description: Decode an AppleSingle file in place
|
|
-- Params: A file system specification
|
|
-- Return value: A success boolean (false also returned if file wasn't in AS format)
|
|
--
|
|
|
|
on run
|
|
set kTargetFile to "HD:genJS:ASEncoder"
|
|
set kTargetFolder to "HD:genJS"
|
|
tell application "ASEncoder"
|
|
activate
|
|
|
|
-- pre-condition: kTargetFile is set to a local un-encoded (containing a res fork) file
|
|
|
|
-- encode should succeed
|
|
set bSuccess to encode file kTargetFolder
|
|
SUCCESS_MSG(kTargetFolder, "encode", bSuccess)
|
|
|
|
-- post-condition: kTargetFile is a decoded (containing a res fork) file as it originally was
|
|
|
|
quit
|
|
end tell
|
|
end run
|
|
|
|
on SUCCESS_MSG(target, method, retval)
|
|
|
|
display dialog "ASEncoder's " & method & " command
|
|
of file " & target & "
|
|
returned success value: " & retval
|
|
|
|
end SUCCESS_MSG |