Cross the Sea

Character Code and Different System Language

2010-11-25T20:10:00.000+09:00

When AppleScript Editor saves a script file including Japanese words as TEXT file format, that character code is UTF-16LE. I figure out so. But in a different system language, the character code is not the same one. Would you look at following a screenshot;

A file that was saved in Japanese language environment is Shift-JIS. The same contents’ file that was saved in English language is UTF-16LE. Each file was saved as different character code.

I’m working usually in English language system. When I receive files that were saved in Japanese language environment, I have to be wary though the scripts are able to run.

UTF16-BE or UTF16-LE?

2010-11-24T22:16:00.001+09:00

I hope that character code of files AppleScript Editor saves would be only UTF16-LE. I hate a mixed state of ascii and it. Honestly speaking, UTF8 is the best. I tweeted like so.

After I tweeted, there was a person who send message me about my tweet. He said that the character code of AppleScript Editor as text file format is UTF16-BE. Uhhh... but the result of hexdump shows little-endian BOM.

What am I missing here? Which is correct?

Associated Script With Emacs Again

2010-09-29T23:22:00.005+09:00

I remade a script to open selected files on Finder with Emacs. The script has two mode; one is after making a new process then add files there and another one is add files to already existing process. When selecting “make new process mode,” if there were any process in the most front of terminal window, will prepare for a new tab.
My blog have stopped updating for a long time. The last subject was the same one; about associated script with Emacs. I thought that it’s good subject to proceed with my blog again.

Script Editor opens a new window with following the script.

property editor : "emacs"

on run
  
  (* Selecting some text files. *)
  tell application "Finder" to set file_objects to selection
  filefilter of me given selected_items:a reference to file_objects
  if file_objects is {} then return
  
  (* Make user select mode which adds buffers to an new process or already existing process? *)
  set msg to "Which do you intend to add buffers to a new process or already exists process?"
  display alert "Select a mode." message msg ¬
    buttons {"Cancel", "New process", "Existing process"} default button 3 cancel button 1
  set the_mode to button returned of result
  
  (* Launching a terminal. *)
  tell application "Terminal" to activate
  
  
  if the_mode is "Existing process" then
    (* Change mode to find file on Emacs. *)
    repeat with a_file in file_objects
      find_file() of me
      enter_filePath(a_file) of me
    end repeat
    
  else if the_mode is "New process" then
    repeat with a_file in file_objects
      set contents of a_file to quoted form of (a_file as Unicode text)
    end repeat
    
    (* Serializing file names.  *)
    set default_delimit to text item delimiters of AppleScript
    set text item delimiters of AppleScript to " "
    set posix_paths to every item of file_objects as text
    set text item delimiters of AppleScript to default_delimit
    
    (* I didn't get the how to make a new window.
           So I’m using a command of making a new tab. *)
    new_open_tab() of me
    
    (* Openning files. *)
    set cmd to editor & " " & posix_paths as Unicode text
    tell application "Terminal"
      tell window 1
        do script cmd in selected tab
      end tell
    end tell
  else
    -- do nothing
  end if
  file_objects
end run

------------------------------------------------------------------------------------------
-- Filefilter
------------------------------------------------------------------------------------------
on filefilter given selected_items:file_objects_ref
  set swap to contents of file_objects_ref
  set contents of file_objects_ref to {}
  repeat with f in swap
    set the_alias to f as alias
    if not (folder of (info for the_alias)) ¬
      and (name of (info for the_alias)) does not end with ¬
      "~" and (name of (info for the_alias)) does not start with "." then
      set contents of file_objects_ref to contents of file_objects_ref ¬
        & POSIX path of (the_alias as Unicode text)
    end if
  end repeat
end filefilter

------------------------------------------------------------------------------------------
-- Terminal
------------------------------------------------------------------------------------------
on new_open_tab()
  tell application "Terminal"
    tell window 1
      try
        if selected tab is busy then
          add_newTab() of me
        end if
      on error
        -- This handling is a case of no window of Terminal.
        (* I didn't get the how to make a new window.
                                 So I’m using a command of making a new tab. *)
        add_newTab() of me
      end try
    end tell
  end tell
end new_open_tab

------------------------------------------------------------------------------------------
-- System Events
------------------------------------------------------------------------------------------
on add_newTab()
  tell application "System Events"
    tell window 1 of application "Terminal" to activate
    key code 17 using {command down}
  end tell
end add_newTab

on view_tab() -- unused subroutine
  tell application "System Events"
    tell window 1 of application "Terminal" to activate
    key code 17 using {shift down, command down}
  end tell
end view_tab

------------------------------------------------------------------------------------------
-- Change mode on Emacs
------------------------------------------------------------------------------------------
on find_file()
  tell application "System Events"
    tell window 1 of application "Terminal" to activate
    key code 7 using {control down} -- cntrol + x
    key code 3 using {control down} -- cntrol + f
    key code 0 using {control down} -- cntrol + a
    key code 40 using {control down} -- cntrol + k
  end tell
end find_file

------------------------------------------------------------------------------------------
-- Enter the file path
------------------------------------------------------------------------------------------
on enter_filePath(a_file)
  set the clipboard to a_file as Unicode text
  tell application "System Events"
    tell window 1 of application "Terminal" to activate
    key code 9 using {command down} -- command + v
    key code 36 -- return
  end tell
end enter_filePath

Select Files in Finder And Open Them Using Emacs

2010-04-10T17:09:00.005+09:00

At a mention message on Twitter, I was asked a question that whether there is or not a way to open a text file that was selected on Finder using with Emacs editor on a terminal. I thought that perhaps it may be able to do that if someone write an Applescript for it. And I answered so. After tweeting that, I tried to write a script to implement it.

A feature of the following script is to open some text files you selected within a Finder window. At the time, if a process is running in the current tab, a new tab is made and a file is opened by emacs in the new tab. If there are some folder items in items you selected, they are excluded from the list.

Script Editor opens a new window with following the script.

property editor : "emacs"

(* Selecting some text files. *)
tell application "Finder" to set file_objects to selection
filefilter of me given selected_items:a reference to file_objects
if file_objects is {} then
  set msg to "Would you select some text files." & return & return & ¬
    " If there are some folder items in items you selected, they are excluded from the list."
  display alert "There are no text files in items you selected." message msg buttons {"Close"}
  return
end if

(* Openning using with Editor. *)
tell application "Terminal" to activate
repeat with f in file_objects
  new_open_tab() of me
  open_file_withEditor given file_path:f
end repeat

------------------------------------------------------------------------------------------
-- Terminal
------------------------------------------------------------------------------------------
on new_open_tab()
  tell application "Terminal"
    tell window 1
      try
        if selected tab is busy then
          add_newTab() of me
        end if
      on error
        -- This handling is a case of no window of Terminal.
        (* I didn’t get the how to make a new window.
            So I’m using a command of making a new tab. *)
        add_newTab() of me
      end try
    end tell
  end tell
end new_open_tab

on open_file_withEditor given file_path:posix_path
  set cmd to editor & " " & posix_path as Unicode text
  tell application "Terminal"
    tell window 1
      do script cmd in selected tab
    end tell
  end tell
end open_file_withEditor

------------------------------------------------------------------------------------------
-- System Events
------------------------------------------------------------------------------------------
on add_newTab()
  tell application "System Events"
    tell window 1 of application "Terminal" to activate
    key code 17 using {command down}
  end tell
end add_newTab

on view_tab() -- unused subroutine
  tell application "System Events"
    tell window 1 of application "Terminal" to activate
    key code 17 using {shift down, command down}
  end tell
end view_tab

------------------------------------------------------------------------------------------
-- Filefilter
------------------------------------------------------------------------------------------
on filefilter given selected_items:file_objects_ref
  set swap to contents of file_objects_ref
  set contents of file_objects_ref to {}
  repeat with f in swap
    set the_alias to f as alias
    if not (folder of (info for the_alias)) then
      set contents of file_objects_ref to contents of file_objects_ref ¬
        & quoted form of (POSIX path of (the_alias as Unicode text))
    end if
  end repeat
end filefilter

IDML: About Self of Attribute and ID of Property

2010-01-10T00:03:00.008+09:00

Is it possible to select page items on an InDesign document associated with elements of IDML? It is written like this on idml-specification.pdf :

8.2 IDML Component Names An IDML component name can only be defined for a spread, story, or master spread. In an IDML package, each instance of these elements appears as a separate file. The component name is used as the file name for an object instance and it’s also used to refer to the file in designmap.xml. Note the component name does not change the value of the self attribute of the element.

8.2.4 Scripting Interface Component names can be accessed through the IDMLComponentName property on spread, story, and master spread objects.

Are they only spread, story and master spread objects? If so, can’t we mutually refer to other objects and their elements? For example text frame, rectangle and other things. I tried to test the matter with scripts.

Selected any element of page items had attribute “Self” and got the value.
Removed a character, u or U that was the first value of the attribute.
Treated the value as hexadecimal digit sequence, and converted it to decimal digit sequence.
Selected a page item using the decimal number on the document of InDesign. Used following the script:

Script Editor opens a new window with following the script.

display dialog "Enter a number for searching a page item." default answer ""
set id_number to (text returned of result) as integer

tell application "Adobe InDesign CS4"
  tell active document
    try
      set a_object to page item id id_number
    on error
      tell application "Finder" to display dialog "It seemed that you entered the wrong."
      error number -128
    end try
    
    if not (show_object of me given a_reference:a_object) then
      tell application "Finder" to display dialog "It failed selecting the page item."
      error number -128
    end if
  end tell
end tell

--------------------------------------------------------------------------------
on show_object given a_reference:a_object
  tell application "Adobe InDesign CS4"
    try
      tell active window to set current_zoom_oar to zoom percentage
      tell active document to select a_object
      tell active window to set zoom percentage to current_zoom_oar
    on error
      return false
    end try
    return true
  end tell
end show_object

The test was successful. It’s possible to access the page item using the value of Self attribute. But note when the IDML package was opened by InDesign, there are cases that a different UID was created on the document. Read following the paragraph:

8.2.3 Reset Component Name on Import When an IDML package is opened by InDesign, user-defined component names will be saved in the document so they can be used when the document is exported (that is, they are preserved for round-trip). Default names are not saved with the document because the object created during import may have a different UID. A new default name is generated when the document is exported.

It seems that when the document is exported is when an IDML package file is opened by InDesign application. In other words, when a IDML package is opened by InDesign application, there are nothing way to access page items(InDesign’s objects) on the document from elements I myself newly added to spread XML. The elements have not a key for accessing directly. If we try to find a page item associated with an element I made, it seems that we should make up a absolute path tracing a relative reference from spread’s, story’s and master spread’s element.

In a case of an element of IDML package that was exported from already existing InDesign’s document, of course it’s possible to access from the element. The opposite is true.

Would anybody tell me whether above my understanding is true or false?

Environment Variables on Remote Machines

2009-12-25T18:43:00.001+09:00

I realized that it is not able to get a clone in remote Git server running on Mac OS X last week. Git said that command git-upload-pack was not found, though I can confirm a path of environment variable on both of my local machine and remote server. It seems to need the option to access the git server via SSH at the time using clone command. So I added an alias to ~/.gitconfig file.

[alias]
rclone = clone --upload-pack=/usr/local/git/bin/git-upload-pack
rpush  = push  --receive-pack=/usr/local/git/bin/git-receive-pack

But this way needs to also make other aliases: push, fetch and perhaps pull. Maybe there are and much more. I think that to setting aliases is not ultimate solution. I searched google for sshd_config and PermitUserEnvironment but I couldn’t resolve this problem, environment variable via SSH.

ssh my_account@my_domain echo \$PATH

Not including needful path in the result of above command is the point of occasion.

I read this blog. I made symbolic links in /usr/bin but I couldn’t fixed. I have suffered all through the day. That‘s enough! I have abandoned to fix it.

Package Method of IDMLTOOLS.jar

2009-12-07T18:15:00.004+09:00

I resumed researching IDML from today and brushed up things I checked out until this spring. Once I wrote an entry about package of IDML. The script in that page is to generate a package from the frontmost document. The following script is to decompress an idml package file. It doesn’t need a system environment that is installed InDesign. I prepared a perl script to understand how to use java applets. It’s verbosity because I want to write an explicit script.

Package method with '-d' option of idmltools.jar makes me confused many times when a destination directory doesn’t exist. So this script automatically makes the destination directory.

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use open ":utf8";
use open ":std";
use File::Path;

my $IDMLTOOLS_HOME = `printenv IDMLTOOLS_HOME`;
my $command        = 'java';
my @java_argv      = ();
chomp $IDMLTOOLS_HOME;
$java_argv[0] = '-classpath';
$java_argv[1] = "$IDMLTOOLS_HOME/jars/idmltools.jar";
$java_argv[2] = 'com.adobe.idml.Package';

map { utf8::decode( $_ ) } @ARGV;
if ( $ARGV[0] eq '-h' ){
    `$command @java_argv '-h'`;
    exit;
}
elsif ( ! $IDMLTOOLS_HOME ) {
    die "Please define the environment variable IDMLTOOLS_HOME.\n";
}

if( $ARGV[0] eq '-c' and $ARGV[2] !~ /\.idml$/ ){
    $ARGV[2] .= '.idml';
}
elsif( $ARGV[0] eq '-d' and  ! -e $ARGV[2] ){
    umask 0;
    mkpath( ( $ARGV[2] ), {verbose => 0, mode => 0777} ) or die $!;
}

`$command @java_argv @ARGV`;

I Recommend Text Format for AppleScript

2009-11-26T12:22:00.002+09:00

When you save AppleScript’s files, I recommend saving scripts as “text” format. Because there is not much different of the implementation time between application or script format and text one on a program about one hundred lines scale. If you save AppleScript’s files as text format, you can get the benefit of Spotlight of OS X and multi-file searching with plain text editor, and it’s also possible to do version control in Git.

Actually, won’t anyone write script of many thousand lines? Is there someone who is writing a script like that? I guess that the line count in one script file is perhaps less than one hundred lines. Then that’s easy enough. There is not frustration to wait compiling every running script. So, we should save scripts as text format.

Almost of AppleScript I wrote are short files. They are used via osascript like a command to control any application in Perl, or using NSAppleScript. Because I don’t think it is suitability to develop a application that is controlled by AppleScrip. It’s difficult to debug a script that has a lot of steps. So, I never try to control complicated process in AppleScript.

That's why I have none big script files and I have saved AppleScript’s files as text format. What I want to say is it is better that AppleScript is also treated as one of the many interpreter languages than compiler languages.

Make TextWrangler Open Some Files using AppleScript

2009-09-08T18:37:00.004+09:00

I wrote a script of AppleScript with TextWrangler to open some perl’s script files inside one document. The script will open some files that have extentions ‘.pl’ and ‘.pm’ in a folder you select. Every file in some nested folders is target.

You don’t need to drop the same folder since second time, only click the applet. The applet remembers the folder you dropped.

Before making the below script run, you may should check and rewrite bounds data of window in the fourth line from the bottom of script to adjust to your monitor.

Script Editor opens a new window with following the script.

property jobFolder : null

on open ARGV
  set jobFolder to item 1 of ARGV as alias
  run of me
end open

on run
  if jobFolder is null then
    set jobFolder to choose folder with prompt "Select a  folder including some perl’s script files."
  end if
  
  set targetFiles to {}
  getScriptFiles(jobFolder, a reference to targetFiles) of me
  openTextWranglerWindow(targetFiles) of me
end run

on getScriptFiles(jobFolder, targetFiles_ref)
  tell application "Finder"
    set scriptFiles to every item of jobFolder ¬
      whose ((name of it) ends with ".pm") or ((name of it) ends with ".pl")
  end tell
  repeat with a_file in scriptFiles
    set contents of targetFiles_ref to contents of targetFiles_ref & (a_file as alias) as list
  end repeat
  
  set innerFolders to {}
  tell application "Finder" to set innerFolders to every item of jobFolder whose (class of it) is folder
  if innerFolders is not {} then
    repeat with f in innerFolders
      getScriptFiles(f, targetFiles_ref) of me
    end repeat
  end if
end getScriptFiles

on openTextWranglerWindow(targetFiles)
  tell application "TextWrangler"
    activate
    open targetFiles opening in new_window with properties {bounds:{0, 20, 800, 1000}}
    set show documents drawer of text window 1 to true
  end tell
end openTextWranglerWindow

Libxml2 and LibXML Module

2009-08-08T12:07:00.002+09:00

If we output a serialized XML node using a combination of Perl’s LibXML and libxml2 library which remain an environment installed from Leopard OS install DVD, Japanese of element contents are output as numeric character reference.

Two weeks ago, I wrote an entry about decoding with entities() of HTML::Entities module. When debugging a program, that doesn't matter. But when their decoded XML element are output as xml documents and we’ll use them, there is a problem. Example, it is the time when an InDesign document imports the XML document. After serializing with toString() if the result is decoded by decode_entities(), every general-entity reference will be replaced their characters; as ‘<’, ‘>’ and ‘&’. In that case, InDesign can’t accurately treat. I failed due to it.

Though, if both of libxml2 and Perl’s LibXML are updated, we’ll come good without decoding them.

I updated them yesterday. The libxml2’s version is 2.7.3 and I compiled it using a source file downloaded from xmlsoft.org. And the LibXML module is 1.69_2. I downloaded it from CPAN site without using CPAN module.

About an Alert Message of RegexKit.framework

2009-07-28T18:09:00.008+09:00

In November last year, I wrote an entry about the RegexKit.framework on my another blog. A program I wrote returns correct results, but show an alert message, too.

CFPropertyListCreateFromXMLData(): Old-style plist parser: missing semicolon in dictionary.

I couldn’t find the cause of it. I wonder how should I search the “missing semicolon” in the framework. I had trouble finding it. In the end, I couldn’t find it.

A few day ago, alex told me where is a file has the reason for the errors in.

The file /Developer/Local/Frameworks/RegexKit.framework/Versions/A/Resources/English.lproj/Localizable.strings is missing a semi colon on line 160.

Above the file path was hiding behind the side menu. I want you to join the following two lines,

/Developer/Local/Frameworks/RegexKit.framework/Versions/A
/Resources/English.lproj/Localizable.strings

The RegexKit’s version is 0.6.0 Beta. I edited line 160 as he say. Then, the error disappeared. Thank alex for his advice.

How to Dump XML and Structure on Perl

2009-07-22T12:14:00.004+09:00

Until now when I made InDesign to import a XML document, all objects had been placed on a document. And after did that, InDesign had imported the whole of XML at one time. So I didn’t realize that it needs decode the data for exporting a node partly using toString() on XML::LibXML.

For exampl;

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Root>
    <column firstChar="あ">
        <hiragana>あいうえお</hiragana>
        <katakana>アイウエオ</katakana>
    </column>
    <column firstChar="か">
        <hiragana>かきくけこ</hiragana>
        <katakana>カキクケコ</katakana>
    </column>
</Root>

In case that output partly without decoding above XML;

<column firstChar="あ">
        <hiragana>&#x3042;&#x3044;&#x3046;&#x3048;&#x304A;</hiragana>
        <katakana>&#x30A2;&#x30A4;&#x30A6;&#x30A8;&#x30AA;</katakana>
    </column>

Wide character are outputed as numeric character reference. I therefore checked about a way to decode them. It seems that the easiest way is to use decode_entities() of HTML::Entities.

By the way, Data::Dumper also needs decoding to dump structure. Here, I’m going to write down its way of decoding.

#!/usr/bin/perl
use strict;
use utf8;
use open ":utf8";
use open ":std";
use XML::LibXML;
use HTML::Entities;
use Data::Dumper;

my $decode = 1;

# Dump a node in utf8.
print "___________________ Dump a node in utf8.\n";
my $XMLDocument = '/Users/*****/Desktop/sample.xml';
my $XPath       = "//column[attribute::firstChar='あ']";

my $parser = XML::LibXML->new;
my $root   = $parser->parse_file( $XMLDocument );
my @nodes  = $root->findnodes( $XPath );
my $a_node = $nodes[0];
$decode ? nDumper ( $a_node )
        : print $a_node->toString();

# Dump a structure in utf8.
print "\n___________________ Dump a structure in utf8.\n";
my %hash = ( 'first'  => [ 'あいうえお', 'アイウエオ' ], 
             'second' => [ 'かきくけこ', 'カキクケコ' ] );
$decode ? jDumper ( Dumper %hash )
        : print Dumper ( %hash );

#=============================================================================
sub nDumper{
    my $the_node  = shift;
    my $serialize = $the_node->toString();
    print decode_entities( $serialize );
}
sub jDumper{
    foreach my $a_variable ( @_ ){
        $a_variable =~ s/\\x{([0-9a-z]+)}/chr(hex($1))/ge;
        print $a_variable;
    }
}

If $decode is 0;

___________________ Dump a node in utf8.
<column firstChar="あ">
        <hiragana>&#x3042;&#x3044;&#x3046;&#x3048;&#x304A;</hiragana>
        <katakana>&#x30A2;&#x30A4;&#x30A6;&#x30A8;&#x30AA;</katakana>
    </column>
___________________ Dump a structure in utf8.
$VAR1 = 'first';
$VAR2 = [
          "\x{3042}\x{3044}\x{3046}\x{3048}\x{304a}",
          "\x{30a2}\x{30a4}\x{30a6}\x{30a8}\x{30aa}"
        ];
$VAR3 = 'second';
$VAR4 = [
          "\x{304b}\x{304d}\x{304f}\x{3051}\x{3053}",
          "\x{30ab}\x{30ad}\x{30af}\x{30b1}\x{30b3}"
        ];

If $decode is 1;

___________________ Dump a node in utf8.
<column firstChar="あ">
        <hiragana>あいうえお</hiragana>
        <katakana>アイウエオ</katakana>
    </column>
___________________ Dump a structure in utf8.
$VAR1 = 'first';
$VAR2 = [
          "あいうえお",
          "アイウエオ"
        ];
$VAR3 = 'second';
$VAR4 = [
          "かきくけこ",
          "カキクケコ"
        ];

An Announcement of A Seminar

2009-06-22T12:22:00.007+09:00

「DTPの勉強部屋」で告知がありましたように、平成21年7月25日（土）の『第14回勉強会』でスピーチさせて頂くことになりました。テーマは“自動組版システム構築” のための「はじめの一歩」です。私は英語を全くしゃべれません。日本語オンリーでございます。安心してご参加ください！(^^) 資料もすべて日本語です。

上記サイトの案内文より引用

InDesignのドキュメント中のオブジェクトの操作に限らず、ファイル管理やDataBase接続を含めた “自動組版システム構築” のための「はじめの一歩」としてスクリプトを紹介します。XMLの解析とか、SQL Data Baseに対するクエリーのスクリプトを紹介するわけではないので、ビギナーレベルの方にも十分に分かる内容になる予定です。

主な内容

はじめに、自動組版についての心得
AppleScriptの短所と長所
自動組版システムを構築する際のアドバイス
AppleScriptの弱点を克服するためのスクリプト紹介（← これがメイン）
XMLによる自動組版について（← 時間があれば...）

　紹介するスクリプトのサンプルは、デザイン・編集の現場で明日からすぐに役に立つようなものはありません。しかし、DTPから開発業務へ勤務内容をシフトされたばかりのビギナーの方には、明日からでも利用できるサンプルを多数用意するつもりです。スクリプトの内容は基本的に “AppleScriptとPerlの連携” にスポットを当てています。具体的な例はPerlのコードになりますが、現在、学習者人口の最も多いRubyに置き換えても参考になると思います。

　え〜、みなさん。人前でしゃべるのは初めてのことなので、分りにくい点があるかもしれませんが、よろしくお願いいたします。

後日追記：レジュメと参考スクリプトを掲載しているURL

Script Text Book：http://psychocat.net/note/ScriptTextBook/

Cappuccino 0.7 beta

2009-05-14T11:05:00.004+09:00

I wanted to use a tableView on Cappuccino but my AppKit didn’t have CPTableView.j. If I searched the Google for CPTableView.j, I could find the word on the result page. Why didn’t my framework have the resource file? I had been reading a tutorial site of Objective-J with thinking that.

After that, on a page of the site, I knew that CPTableView was supported from “Cappuccino 0.7 beta”. Immediately I tried to install new version the framework. However I could not download the version archive as a package. I needed to downlaod from another site and build it. It seemed more easy to use git command. Then first installing failed because there was not “ojunit” in the Cappuccino source by default. But “ojunit” is required to compile Cappuccino.

To install these sources, let’s look at this page on creanium.net. Maybe it was more good if we also would refer to this page.

A Tutorial Site to Learn Objective-J

2009-05-13T17:25:00.001+09:00

If you bothered over learning Cappuccino, I would encourage you to read this site. There aren’t available finished applications and description writing is a few lines, but there are some sample code to carefully explain how to use the cappuccino’s framework in my eyes. We could see also how to HTTP Basic authentification and user interface for login with MySQL.

How to Get a Reference of Page Item

2009-05-11T11:42:00.006+09:00

This morning, on Google Group ‘adobe.scripting.indesign’ I found a question that “How can I get a Graphic or Text frame associated to a XMLElement from this XMLElement?” I’m using the following script code when I get a reference of a page item which is linking with a XML element. Run the script after selecting any element. If a page item associated exists, the page item will be selected.

Script Editor opens a new window with following the script.

tell application "Adobe InDesign CS4"
  tell active document
    set a_element to object reference of item 1 of selection
    set the_item to get_pageItem_linkWith_theElement of me given reference:a_element
    if the_item is not missing value then
      select the_item
    end if
  end tell
end tell

the_item

---------------------------------------------------------------------------------------------------------------------------------
(*get reference of page item using XMLelement*)
on get_pageItem_linkWith_theElement given reference:element_reference
  set targetFrame to null
  tell application "Adobe InDesign CS4"
    tell active document
      set targetFrame to item 1 of (every item of all page items) ¬
        whose (object reference of associated XML element of it) is element_reference
      try
        if targetFrame is not null then return object reference of targetFrame
      on error
        return missing value
      end try
    end tell
  end tell
end get_pageItem_linkWith_theElement

Ebook on Stanza

2009-05-10T10:51:00.019+09:00

I purchase a Ebook at an online shopping. The book was “JavaScript: The Definitive Guide, Fifth Edition”. I purchased some paperback book for English-learner before this, however, to purchase a technical document which is written in English was the first for me. Of course there is a book which is written in Japanese, but I want to try to read one which is written in English, also if I purchase Ebooks with using the application Stanza, it will be discounted. Above all things, I’m pleased that it’s possible to read on my iPod Touch. So I purchased the Ebook which is written in English.

Digital format of Japanese’s Ebook is only PDF. It’s certainly possible to read some PDF documents on iPod/iPod Touch. But PDF documents that are not optimized are very very difficult to read. If I make font size bigger, I frequency must scroll a view left and right. A reason that I purchased it on Stanza is one of several reasons.

Core Data and Bindings

2009-04-30T11:41:00.007+09:00

I had tried to understand Core Data from last week. I had a hard time to catch on to bindings operation because I haven't been using the bindings until now. Especially the faltering start; what I was feeling difficult to understand was to organize some Array Controllers that have the same name. My skills of Objective-C had stopped improving at 2003. Even so if I couldn’t get perfect understanding, at anyhow I want to run my application with Core Data. After removing a Array Controller, I must bind relationships to another the same Array Controller. I failed to do it many times.

So I sought and thought a procedure to do bindings for sure on Core Data. I read some documents and archives of mailing list on Internet, and tried the bindings many times. And I realized there is a way to bind relationships without question.

To bind again after removing a Array Controller is to transcribe relationships to another Array Controller. Then I should have captured a HUD Window of a Array Controller I would remove. There is information of bindings in the HUD Window. Leave the view of it. Even if I don’t well understand some binding information I removed, I can bind with looking the capture.

Before I didn’t understand bindings well and referred nothing, nevertheless I would try to bind relationships. That’s why I failed them.

Shifting A Main Language

2009-04-10T18:38:00.002+09:00

I have been usually writing programs with Perl language. I have seldom made a new project file of Objective-C for many years since I made a few applications six or seven years ago, I did nothing other than fixing and extending them only a bit. I begin to forget how to use Interface Builder and to have a bit of bother of even launching Xcode. If nothing is done here, I will really forget Objective-C.

But I intend to shift main a language from Perl to Objective-C. That’s why I have been writing with Objective-C in nearly a week. So I made ready to briefly implement NSAppleScript, NSTask, and osascript for controlling other applications. Now I think that script code in text files and NSTextView can be used easily. And I also tested RegexKit.framework. After all this effort, perhaps I can shift my environment.

By the way, NSTextField’s delegate method, textDidEndEditing was not called but controlTextDidEndEditing was OK. I got into a mess. What is correct use?

The Beginning Script for InDesign

2009-03-30T00:04:00.007+09:00

Always when I make a new window of Script Editor for InDesign, am using following script. And when I want to know an attribute’s names and practical values, too. There is a script to access InDeign there. It’s very simple and elementary content but I think it’s useful. This script itself doesn’t operate InDesign but makes another window of Script Editor. A script I actually want is in the second window. I want to get the script from Script menu in menu bar. Of course I know that if I select the script file in Script menu with the option key, am able to open the file. But immediately the script must be saved as another file name, otherwise the file is updated by me. I failed many times because of forgetting to do that.

Script Editor opens a new window with following the script.

property window_size : {800, 500}

on getContents()
  return "tell application \"Adobe InDesign CS4\"
  tell active document
    set a_object to object reference of item 1 of selection
    properties of a_object
  end tell
end tell"
end getContents

on get_window_bounds()
  tell application "Finder" to set bounds_data to bounds of window of desktop
  set {x, y} to {(item 3 of bounds_data) / 2, (item 4 of bounds_data) / 2}
  return {x - ((item 1 of window_size) / 2), y - ((item 2 of window_size) / 2)}
end get_window_bounds

on run
  set {location_X, location_Y} to get_window_bounds() of me
  tell application "Script Editor"
    set contents_text to getContents() of me
    make new document at beginning with properties {contents:contents_text}
    tell window 1 to set bounds to {location_X, location_Y, ¬
      (location_X + (item 1 of window_size)), ¬
      (location_Y + (item 2 of window_size))}
  end tell
end run

Three Tips About Perl I Have Known in Recent Days

2009-03-25T09:50:00.004+09:00

Three tips about perl I have known in recent days.

1. about File::Path module

The latest version of it is 2.07 and the default version the Leopard installed is 1.08. They have a point of difference in argument of mkpath function between two versions. The first argument of mkpath function is the path to create. If they are plural number, send an anonymous arrays as a argument. But that is the case that the version of File::Path module is 1.08. We must not use a reference in the version 2.07.

-legacy
mkpath( ['/foo/bar/baz', 'blurfl/quux'], {verbose => 1, mode => 0777} );
-newness
mkpath( '/foo/bar/baz', 'blurfl/quux', {verbose => 1, mode => 0777} );

I took notice of the difference when I ran my program on an another Mac. I have no recollection of updating of the module on the Mac. It's strange.

2. about file handle

I think many people already has known this but haven’t known until recently. To store a file handle in a scalar variable, this way is able to check which a file handle is defined or not defined. It is only necessary to open a file handle when it is only time a script requires for outputting any data. So I don’t have to make a needless file.

if ( $error_contents ){
  unless ( defined $fh ){
    open ($fh, ">$dir_store/report.txt");
  }
  print $fh "$error_contents\n";
}

3. about a directory where a script file is in

It’s very easy to know that.

use FindBin;
$boot_dir = "$FindBin::Bin";
print "$boot_dir\n";

Space Characters at Different Width

2009-03-18T12:37:00.006+09:00

The InDesign has some space characters at different width.

Ideographics Space
EM Space
EN Space
Nonbreaking Space
Nonbreaking Space (Fixed Width)
Hair Space
Sixth Space
Thin Space
Quarter Space
Third Space
Punctuation Space
Figure Space
Flush Space

I checked those English names using this page. Maybe the Ideographics Space doesn’t exist in the version except Japanese one.

If you want to know Japanese names of them, see below the figure:

The following script creates unicode characters from code number and outputs a file with the result to your desktop. Even if you open the file, you can see nothing but there are some spaces there as invisible characters. If you would like to do hexdump. You can confirm the character codes.

Script Editor opens a new window with following the script.

global decordCommand
global speaces

set speaces_encode to {"0x3000", "0x2003", "0x2002", ¬
  "0x00A0", "0x202F", ¬
  "0x200A", "0x2006", "0x2009", "0x2005", "0x2004", ¬
  "0x2008", "0x2007", "0x2001"}
set result_file_path to (path to desktop folder as Unicode text) & "spaces.txt" as Unicode text
set speaces to {}

make_perlScript() of me
repeat with encode in speaces_encode
  set speaces to speaces & decode_unicode(encode) of me as Unicode text
end repeat

exists_file of me given mac_path:result_file_path
write speaces as Unicode text to file result_file_path -- No BOM, big endian
--write speaces as «class utf8» to file result_file_path

(*
tell application "Adobe InDesign CS4"
  tell active document
    set contents of selection to speaces
  end tell
end tell
*)

speaces

--=========================================

on decode_unicode(encode_data)
  do shell script decordCommand & " " & encode_data
end decode_unicode

on make_perlScript()
  set perlScript to quoted form of "binmode(STDOUT, ':utf8'); print pack 'U', (eval $ARGV[0]); "
  set decordCommand to "perl -e " & perlScript
end make_perlScript

on exists_file given mac_path:a_path
  tell application "Finder"
    set posix_path to quoted form of (POSIX path of a_path)
    if (exists file a_path) then do shell script "unlink " & " " & posix_path
    do shell script "touch" & " " & posix_path
  end tell
end exists_file

As next step, there is a thing I want somebody to test. That is to enable a part of comment out with “(* *)” to run, and after selecting one text frame on a document of InDesign, run the script. I expect some space characters will be inputted into the text frame. Those characters are correct, aren’t them?

But but but ... A case that the data in result area of Script Editor are done “copy & paste” into the text frame, it seems strange. Flush Space is the same character with EM Space.

Why does that occur? When the data goes through the clipboard, something happens.

The IDMLWiki

2009-03-11T18:48:00.004+09:00

Today we have opened a Mediawiki site about InDesign’s IDML that have been preparing with two buddies for a month. That’s the IDMLWiki/ja. Now mainly, we are translating some public documents of Adobe Systems Inc. into Japanese. That means, the site doesn’t have enough pages in English for English native speakers: IDMLWiki. But we intend to write some pages for you and will make the effort to do so.

I hope that more author members and more readers increase, then wish it grew up as a portal site of IDML.

Resume Finder Windows

2009-02-17T16:42:00.009+09:00

During working with Mac, anyone open a lot of Finder Windows on your desktop. After the operation, all windows are closed. And then, I think that there are times when we want to put the same windows with the same condition many times at a later date. In a case like that, How about using the following script? This script resumes Finder Windows with operation condition on your desktop.

But I want you to take care of “Universal Access” and “Keyboard Viewer.” The script requires to check “Enable access for assistive device.” Then I also want you to read my blog article “Is Option Key Pressed?”

How to use:

Save this script as application or application bundle.
When you make this script memorize the infomation of Finder Windows, Double-clicking the applet with the option key.
When you resume Finder Windows, only double-clicking the applet.

Script Editor opens a new window with following the script.

property folder_properties : {}
-- If the option key is pressed when this script runs, call record_properties().
if checkOptionKeyDown() of me then
  set folder_properties to {}
  record_properties() of me
else
  repeat with a_folder in folder_properties
    tell a_folder to resume()
  end repeat
end if


--　------------------------------------------------------------------------
on record_properties()
  tell application "Finder"
    set every_window to every Finder window
    repeat with a_window in every_window
      set folder_properties to folder_properties & (new_ResumeFolder of me given window_ref:a_window)
    end repeat
    display dialog "Recording was completed."
  end tell
end record_properties

on checkOptionKeyDown()
  try
    tell application "System Events"
      if not ((some process whose name contains "KeyboardViewerServer") exists) then
        tell application "KeyboardViewerServer" to activate
      end if
    end tell
  on error
    tell application "KeyboardViewerServer" to activate
  end try
  
  tell application "System Events"
    set optionKeyDown to (get value of checkbox "⌥" of window 1 of application process "KeyboardViewerServer") as boolean
  end tell
  if optionKeyDown then
    return true
  else
    return false
  end if
end checkOptionKeyDown


-- ========================================
-- Script Object
-- ========================================
on new_ResumeFolder given window_ref:a_window
  script ResumeFolder
    
    property the_alias : null
    property the_bounds : null
    property the_position : null
    property the_zoomed : null
    property the_collapsed : null
    property the_currentView : null
    property the_toolbarVisible : null
    property the_statusbarVisible : null
    property the_sidebarWidth : null
    
    -- record
    on record_windows given window_ref:a_window
      tell application "Finder"
        set the_alias to (target of a_window) as alias
        set {the_bounds, the_position, the_zoomed, the_collapsed, the_currentView, ¬
          the_toolbarVisible, the_statusbarVisible, the_sidebarWidth} ¬
          to {bounds, position, zoomed, collapsed, current view, ¬
          toolbar visible, statusbar visible, sidebar width} of a_window
        
        if statusbar visible of a_window is false then ¬
          set item 4 of the_bounds to (item 4 of the_bounds) + 20
      end tell
    end record_windows
    
    -- resume
    on resume()
      tell application "Finder"
        try
          open the_alias
          set properties of window 1 to {bounds:the_bounds, position:the_position, zoomed:the_zoomed, collapsed:the_collapsed, current view:the_currentView, toolbar visible:the_toolbarVisible, statusbar visible:the_statusbarVisible, sidebar width:the_sidebarWidth}
        on error
          set msg to "Failure to open a folder."
          set msgDescription to ("The folder path is \"" & the_alias as Unicode text) & "\"."
          set msgDescription to msgDescription & "Maybe, it had been deleted."
          display alert msg message msgDescription buttons {"Proceed"} ¬
            default button 1 giving up after 5 as warning
        end try
      end tell
    end resume
    
    ---------------------------------------------------------------------------------------------------------------------------------
    -- run handler of this script object
    record_windows of me given window_ref:a_window
    
  end script
  
  tell ResumeFolder to run
  return ResumeFolder
end new_ResumeFolder

A Figure of a Hierarchy in The Scrapbook App

2009-02-13T15:07:00.007+09:00

I read scrapbook-tutorial-1 but I couldn’t imagine a hierarchy of some objects in the scrapbook application. So I drew a figure to view the hierarchy of them.

There are three files as implementation but the number of class is four. The PaneLayer is written in the PageView.j file.
A CPImage is set in a CPLayer.
A CALayer is similar to a CPView, but with the ability to have a transform applied to it.
The _borderlayer become translucence during editing.
The _borderlayer and the _paneLayer are set in the _rootlayer as sub-layer.
The inspectore retains a reference of the _paneLayer.

I’m pleased that I saw a bit prospect of understanding Cappuccino.

Mount_afp And Mount_smbfs

2009-02-11T23:23:00.008+09:00

I wrote an article about a way to mount a shared directory in a pgae of “Mount Volume using Script.” AppleScript is used in the script there. After then I realized that that script has an trouble.

Certainly that script is able to mount a shared folder. There isn’t any trouble to access some files via Finder. But there are times when there is a trouble to try to access files using Perl and shell command. A mount point directory name is indeterminate. Typically a directory is made with the same name as a shared folder’s name just beneath Volumes directory. But sometimes, the mount point directory’s name doesn’t equal the shared directory’s one. The name is added with a number that is “-1”, “-2”, etc. as postfix. AppleScript’s command “mount volume” doesn’t tell me the name as result. Then I can’t know the mount point directory’s name and can’t write the full path of the directory.

That's why I’ll use a shell command “mount_afp” and “mount_smbfs.” I intend I don’t use AppleScript to mount a shared directory on a server. Before mounting, these shell command require the mount point directory’s path and existing the directory. In other words, I need to make the new directory but can name for free. Consequently I certainly know the mount point directory’s name.

If you don’t want the mounted point directory to appear in Finder, add an option “-o automounted.” For example:

mkdir /Volumes/mntpnt
mount_afp [-o automounted] afp://username:userpass@foo.local/volumename/ /Volumes/mntpnt

When you use SMB, look at following sample:

mkdir /Volumes/mntpnt
mount_smbfs [-o automounted] //username:userpass@foo.local/volumename/ /Volumes/mntpnt

And that’s another thing. How do we eject it?

umount /Volumes/mntpnt

The Best Way When Using the Filter Reference Form

2009-02-03T15:29:00.022+09:00

Before I wrote a script how to get references of text frames that include table objects. This is here. I had thought it was possible to get those by doing that. But there is a better way and it’s the best way.

Script Editor opens a new window with following the script.

tell application "Adobe InDesign CS4"
  tell active document
    try
      set fill color of every item of all page items ¬
        whose (ASCII character 22) is in contents of it ¬
        to swatch "Black"
    end try
  end tell
end tell

I want you to focus attention on “every item of all page items.” It’s not every text frame, but every item. I had been using also every page item instead of every text frame until now. It wasn’t correct, either. If you want all reference of objects lower level on the told object, you should write “every item of all page items” together with the filter reference form. And you can get some references at one time.

Export IDML and Decompress it without IDMLTools

2009-01-29T15:26:00.008+09:00

The following script exports a IDML package using active document on InDesign CS4 and decompressed it without IDMLTools. It means this script works on a machine that doesn’t have development environment, perhaps.

A IDML file is outputed in the same folder with the .indd file. Then after making a new folder in the same folder, the script stores decompressed UCF files in the folder.

This script was done checking of operations on Leopard. I don’t recommend using on Tiger. I think that especially this script may not works on Tiger with Japanese system.

#!/usr/bin/perl -w
use strict;
use utf8;
use open ":utf8";
use open ":std";

# Make osascripts.
my $InD_path_osa = new_InD_path();
my $export_osa   = new_export();
my $package_osa  = new_package();

# Get a file path that is active document of InDesign.
my ( $dir_path, $docu_name ) = get_active_document_path();

# Export a IDML package.
my $IDML_name = $docu_name;
$IDML_name =~ s/\.indd$/\.idml/;
# If you want to export a IDML to another directory else, rewrite $dir_path.
# Then, don’t forget that $dir_path is Mac path.
# And a colon is needed on the end.
export_IDML( $dir_path, $IDML_name );

# Decompress the IDML package.
decompress( $dir_path, $IDML_name );


#-----------------------------------------------------------------------------
sub get_active_document_path{
  my $result = readpipe $InD_path_osa;
  if( $? != 0 ){ die "error : the ". __LINE__. "th line of “$0.”\n" };

  utf8::decode($result);
  chomp $result;
  if ( $result eq 'missing value' ){
    print "There isn’t even one document.";
    exit;
  }
  my ( $the_path, $the_name ) = split /, /, $result;
  return ( $the_path, $the_name );
}

#-----------------------------------------------------------------------------
sub export_IDML{
  my ( $destination_path, $idml_name ) = @_;
  my $idml_path = "$destination_path$idml_name";
  my $result = readpipe "$export_osa '$idml_path'";
  if( $? != 0 ){ die "error : the ". __LINE__. "th line of “$0.”\n" };

  utf8::decode($result);
  chomp $result;
  if ( $result ne 'true' ){
    print "AppleScript error : export_IDML() $result\n";
    exit;
  }  
}

#-----------------------------------------------------------------------------
sub decompress{
  my ( $idml_dir_path, $idml_name ) = @_;
  my $idml_path = "$idml_dir_path$idml_name";
  my ( $destination_path, $source_dir_name ) = ('', '');
  my @ARGV_for_as;  

  $source_dir_name = $idml_name;
  $source_dir_name =~ s/\.idml$//;
  $destination_path = "$idml_dir_path$source_dir_name";

  push @ARGV_for_as, 'd';
  push @ARGV_for_as, "'$idml_path'";
  push @ARGV_for_as, "'$destination_path'";
  $package_osa .= " @ARGV_for_as"; 

  my $result = readpipe "$package_osa";
  if( $? != 0 ){ die "error : the ". __LINE__. "th line of “$0.”\n" };

  utf8::decode($result);
  chomp $result;
  if ( $result ne 'true' ){
    print "AppleScript error : decompress() $result\n";
    exit;
  }  
}

#-----------------------------------------------------------------------------
# Make osascripts.
#-----------------------------------------------------------------------------
sub compress_osa{
  my $source_ref = shift;
  my $osascript = 'osascript ';
  map{
    s/^[\t ]*//g;
    s/"/\\"/g;
    $osascript .= ' -e "'. $_. '"';
  } @$source_ref;
  return $osascript;
}

sub new_InD_path{
  my @AS = <<"__EOD__" =~ m/(.*)\n/g;
  on run ARGV
    tell application "Adobe InDesign CS4"
      if (count of document) = 0 then return missing value
      set a_dir_path to (file path of active document) as Unicode text
      set a_docu_name to (name of active document) as Unicode text
    end tell
    return {a_dir_path, a_docu_name}
  end run
__EOD__
  return compress_osa( \@AS );
}

sub new_export{
  my @AS = <<"__EOD__" =~ m/(.*)\n/g;
  on run ARGV
    set idml_path to ARGV as Unicode text
    tell application "Adobe InDesign CS4"
      tell active document
        export format InDesign markup to idml_path without showing options
      end tell
    end tell
    return true
  end run
__EOD__
  return compress_osa( \@AS );
}

sub new_package{
  my @AS = <<"__EOD__" =~ m/(.*)\n/g;
  on run ARGV
    set {operation_mode, source_path, destination_path} to {item 1 of ARGV, item 2 of ARGV, item 3 of ARGV}
    tell application "Adobe InDesign CS4"
      if operation_mode is "c" then
        package UCF source folder source_path UCF file destination_path
      else if operation_mode is "d" then
        unpackage UCF UCF file source_path destination folder destination_path
      else
        return "The operation mode is wrong."
      end if
    end tell
    return true
  end run
__EOD__
  return compress_osa( \@AS );
}

Schema Checking

2009-01-28T17:08:00.013+09:00

Oh, I’m sorry that I skipped a step. I sholud check a IDML using a schema before the IDML will be opened by the InDesign. I have forgotten to do that.

Today, I tried to check the helloworld-2.idml file. This file wasn’t exported by the InDesign but edited by a text editor. The InDesign properly opened this IDML package. However the IDML wasn’t validated and there were some error in the results. According to the INXErrorLogging plugin, error is nothing.

Also I tried to check with Schema.zip on the Adobe site: http://www.adobe.com/devnet/indesign/docs/idml-schema.zip. The result was the same. Well, I’ll find out the cause next.

The Debugger for IDML

2009-01-23T18:27:00.012+09:00

When we do developing software, if there isn’t a debugger we must be arduous. It’s time when a IDML package has errors, nevertheless InDesign CS4 opens the package. It is silent. Unexpected data and scripting errors are ignored. Otherwise correct IDML packages aren’t treated in continuity. The progress is stopped. So, I appreciate that errors are ignored. But this behavior makes it difficult to debug IDML files. If there isn’t the error information, to find where wrong deta is in is difficult. I think that it’s better to install a debugger for IDML before starting to generate xml files.

Let’s look a COOKBOOK PDF. There is a description at 14th page. The debugger for IDML is provided to us as plugins. We need to compile the source files but without coding. I’m a mac user, therefore I will introduce only the way forward to making plugins with Xcode.

The project files are in <SDK>/build/mac/prj/. The file names of them are INXErrorLogging.sdk.xcodeproj and INXErrorLoggingUI.sdk.xcodeproj.

After one of them will be opened, at first select Release mode from popup menu at the top-left on window.

Then click a build button. The plugin will be made on <sdk>/build/mac/release/SDK/. To show the completed plugin on Finder is easy. Look at the following picture.

Select the name of Products folder on left of window, in this case INXErrorLogging.sdk.InDesignPlugin, and select “Reveal in Finder” using context menu. After then move it to Plug-Ins folder of Indesign CS4; /Applications/Adobe InDesign CS4/Plug-Ins/UI/. Of course, don’t forget INXErrorLoggingUI.sdk.xcodeproj, too.

At the last, we need to tell InDesign CS4 a reference of log file. Make an empty text file and display a dialog to select the file from menu bar as below.

So, let’s mistake for effect (^.^) and try to out put error log! I used the most simple IDML package. I edited Spread_spread1.xml. I deleted one character of attribute name, then compressed the folder and opened the IDML package.

<PathPointArray>
 <PathPoint Anchor="36 36" LeftDirection="36 36" RightDirection="36 36"/>
 <PathPoint Anchor="36 186" LeftDirection="36 186" RightDirection="36 186"/>
 <PathPoint Ancho="172 186" LeftDirection="172 186" RightDirection="172 186"/>
 <PathPoint Anchor="172 36" LeftDirection="172 36" RightDirection="172 36"/>
</PathPointArray>

This was the result.

Begin a new INX Import Error Log

Scripting Property Error: set property 'path geometry' on object 'text frame' failed with error 0x770d 'セットのプロパティ 'PathGeometry' の値が無効です。予想される値は Array of GeometryPathType ですが、値 (((((36.0, 36.0), (36.0, 36.0), (36.0, 36.0)), ((36.0, 186.0), (36.0, 186.0), (36.0, 186.0)), (nothing, (172.0, 186.0), (172.0, 186.0)), ((172.0, 36.0), (172.0, 36.0), (172.0, 36.0))), FALSE)) を受け取りました。'
End of a session

Java Isn’t Essential

2009-01-21T18:32:00.002+09:00

The samples use Java to accomplish those tasks that are not easily achieved in XLSLT. Another programming language could be substituted easily.

Those phrase are at the 22th page in a document “idml-cookbook.pdf.” I was so relieved when I have read those lines. To learn Java besides IDML is bitter for me. I’m glad it became clear that Java isn’t essential. From now on, I’ll concentrate on understanding the format specification.

Reading Scrapbook Part 1

2009-01-16T17:35:00.003+09:00

I’m going to read “Scrapbook Part 1” on cappuccino.org and writing memos to each line on ~~AppleFarm~~(closed). But all of them are Japanese language because I don't have the ability to write ones in English. I’m tied up with trying to understand cappuccino’s framework.

I feel that _borderLayer is difficult for me to understand. Especially, CGContext... It seems to be descended from Quartz of Cocoa framework. I have never handled Quartz till now.

There are PhotoInspector.j as rest and also “Scrapbook Part 2”, “Automatic Layout Support”, “XMLHTTPRequest, JSONP & Cappuccino” and so on. I should like to make my time more to learn.

RELAX NG, Jing and Java

2009-01-08T12:25:00.002+09:00

I was the first to check some source files of Java because of anxiety.

There was a code that called some files of Java in addcatalogpages.sh. I was not sure that “.jar” were class files of Java: idmltest.jar, idmltools.jar, xercesImpl.jar and all the rest. I thought it was like including libraries. But even if those files was opened, I wouldn't understand them because of bainary files. Then where were those source files? What did “com.adobe.idml.samples.AddCatalogPages” means? It seemed to look like a file path. I searched Spotlight for “AddCatalogPages.” There was a file “AddCatalogPages.java” in a dirctory “/devtools/sdktools/idmltools/src/com/adobe/idml/samples/.” I read those sources and felt a bit reassured. I don’t know Java but dimly understood it. If I spend a lot of time reading, perhaps I would understand it.

After that, I unachieved “/devtools/sdktools/idmltools/docs.zip” and browsed docs/api/index.html. It’s “Overview (IDML Tools).” How to use was here.

I thought I would need to check two keywords: RELAX NG(English, Japanese) and Jing, and learn Java a little.

The First Step of IDML

2009-01-06T16:42:00.007+09:00

Yesterday, I had installed InDesign CS4 and began to learn IDML from today.

At first, I accessed InDesign Developer Center. There were two tabs there: [HOME] and [DOCUMENTATION]. Then I clicked [DOCUMENTATION] tab and downloaded three PDF files and a zip file at the most bottom of the page.

InDesign CS4 IDML ReadMe
Adobe InDesign CS4 IDML Language Specification
Adobe InDesign CS4 IDML Cookbook
Adobe InDesign CS4 DML Schema.zip

And after I clicked a link “Download the InDesign CS4 Products SDK” on [HOME] tab, downloaded follwing the zip file:

fileadobe_indesign_cs4_products_sdk_352mac.dmg

I read idml-specification.pdf about 22 pages, eight chapters, then changed the document and started reading idml-cookbook.pdf.

Knowledge of Java is necessary or not? Now that’s what I’m afraid of. I intend to look some sample codes tomorrow.

Setting of MediaWiki

2008-12-25T17:01:00.006+09:00

Even if the latest version of MediaWiki was installed, MediaWiki can’t show contents and isn’t available for some functions like Wikipedia. We have to install some extensions, write setup in LocalSettings.php and if necessary, make new pages as Template. It’s mean MediaWiki is not Wikipedia whitout contents but Wikipedia is a system that was customized from MediaWiki. I had been under the misconception.

Here, I’m going to list what I went over to a MediaWiki on my work.

Extensions added
- ParserFunctions (Enhances parser with logical functions.)
- Cite (Add footnotes in a document.)
- SyntaxHighlight_GeSHi (Display preformatted code with coloring.)
Templates
- Template:Languages (Display the other language page that have the same name.)
- Template:Languages/Lang (a sub template of above this one.)
- Template:Note (Display a note.)
- Template:Stub (Display visited people that this page is working article.)
CSS
- MediaWiki:Common.css

As a whole, it’s difficult to know things to do for using functions on MediaWiki. And almost what I wanted to do were not available as I listed above. I was tired. But I think MediaWiki is exciting.

By the way, I’m using the XREA for private MediaWiki. Its server’s PHP runs in safe mode. This mode is a troublemaker. I experienced some troubles when I deleted pages and image files. On these occasions, MediaWiki trys to make some directories. However PHP fails because of file permission problems. I read support pages in XREA but I couldn’t solve it. After all, I found the solution in this page.

And one more point, if you want to use URL PROTOCOL SUPPORT of AppleScript, you need to write $wgUrlProtocols in LocalSettings.php as following:

$wgUrlProtocols[] = "applescript:";

Is Option Key Pressed?

2008-12-18T15:34:00.015+09:00

For a long time, I really have wanted to know how to use modified key when an AppleScript’s application starts. Because I want to change behavior of the application. But it seemed impossible. Only using "System Events" isn’t enough to detect which any key is pressed.

Today I have found the way to do that on Apple Mailing Lists. It worked well to my expectation! Oh, was I happy!!!!

ScriptEditor opens a new window with following the script.

try
  tell application "System Events"
    if not ((some process whose name contains "KeyboardViewerServer") exists) then
      tell application "KeyboardViewerServer" to activate
    end if
  end tell
on error
  tell application "KeyboardViewerServer" to activate
end try

tell application "System Events"
  set optionKeyDown to (get value of checkbox "⌥" of window 1 of application process "KeyboardViewerServer") as boolean
end tell

tell application "Finder"
  activate
  if optionKeyDown then
    display dialog "The option key was pressed."
  else
    display dialog "The option key wasn’t pressed."
  end if
end tell

But the script didn’t work on some co-worker’s Mac the same Leopard. What was different to compare my mac to their ones? I was asked where was “KeyboardViewerServer” by a dialog. I didn’t know the appliction called such a name but knew if it was “Keyboard Viewer.” I couldn’t find the “KeyboardViewerServer” in the choose application window. After checking in on those machine, the riddle became clear. Apparently, application “Keyboard Viewer” was never used on those Mac, not once.

Let’s open [System Preference] and select [International] -> [Input Menu] tab and check [Keyboard Viewer].

Then select [Show Keyboard Viewer] from Input Menu Bar. After “Keyboard Viewer” was used once, this script worked well. You don’t need to show the Keyboard Viewer hereafter.

When this script run on Tiger, the Keyboard Viewer was displayed. I wondered this is not available on Tiger.

A Color Gradation and Angle

2008-12-15T15:53:00.018+09:00

In InDesign, when we want to fill a page item: text frames or rectangle etc. with a color gradation and angle, we need three values. They are a base point, hypotenuse and angle. It’s easy to get coordinates of the base point. And to get the hypotenuse is possible in only AppleScript even without any OSAX. For example:

set hypotenuse to ((width ^ 2) + (height ^ 2)) ^ 0.5

But It’s impossible to calculate only angle in AppleScript. Of course if I could make me write the function, it would be good. However I don’t have such ability. There is a good way more than do that. Make the Perl to work out the angle. Let’s prepare the one liner just below:

perl -MMath::Trig -e 'print atan($ARGV[0]/$ARGV[1]) *(180 /pi)'

Functions AppleScript has in oneself are poorly-function, nevertheless linkage working between other languages is very smooth.

By the way, when you try this sample script, don’t forget to prepare a swatch color in a document.

ScriptEditor opens a new window with following the script.

-- require two values.
set gradation_swatch_name to "G_M100"
set direction to "rightDown" -- rightUp or rightDown
--
set one_liner to "perl -MMath::Trig -e 'print atan($ARGV[0]/$ARGV[1]) *(180 /pi)'"

tell application "Adobe InDesign CS2"
 tell active document
   set a_rectangle to item 1 of selection
   set gradation_swatch_obj to swatch gradation_swatch_name
   tell a_rectangle
     set bounds_data to visible bounds
     set W to (item 4 of bounds_data) - (item 2 of bounds_data)
     set H to (item 3 of bounds_data) - (item 1 of bounds_data)
    
     set hypotenuse to ((W ^ 2) + (H ^ 2)) ^ 0.5 --　"^ 0.5" is  instead of √.
     set atan_command to one_liner & " " & H & " " & W
     set theAngle to (do shell script atan_command) as number
    
     if direction is "rightUp" then
       set gradient_start_point to {item 2 of bounds_data, item 3 of bounds_data}
     else if direction is "rightDown" then
       set theAngle to 0 - theAngle
       set gradient_start_point to {item 2 of bounds_data, item 1 of bounds_data}
     else
       set msg to "A value you enterd is \"" & direction & ".\"" & return & ¬
         "Reqiure \"rightUp\" or \"rightDown.\""
       display alert "Error : direction is wrong." message msg
       error number -128
     end if
    
     set fill color to gradation_swatch_obj
     set gradient fill start to gradient_start_point
     set gradient fill angle to theAngle
     set gradient fill length to hypotenuse
   end tell
 end tell
end tell

{W, H, hypotenuse, theAngle}

Every Text Frame Including Table Objects

2008-12-11T15:34:00.007+09:00

How do you get some references of text frames that include teble objects? The following code seems to do well at first glance. But even if certainly table objects exists, the thing you want to do will be fail.

ScriptEditor opens a new window with following the script.

set textFrames to {}
tell application "Adobe InDesign CS2"
  tell active document
    try
      set textFrames to ¬
        every text frame whose (count of every table of it) > 0
    end try
  end tell
end tell

{count of textFrames, textFrames}

The “count” of “(count of every table of it)” isn’t a property of the object. I guess, in my understanding, the filter reference form has to evaluate some values of properties and asks for the truth-value. Then, does a text frame have any property that indicates including some table objects else? I wondered what was that? For example, it is like isIncludingTable:true. However it seemed there wasn’t such a property in the application’s dictionary of InDesign.

After a while, I came up with an idea. If a text frame had a table object, was there a control character in contents of a text frame? Just as I expected, there was ascii code 22 there. Then we can use “is in.”

ScriptEditor opens a new window with following the script.

tell application "Adobe InDesign CS2"
  tell active document
    try
      set textFrames to  ¬
        every text frame whose (ASCII character 22) is in contents of it
    end try
  end tell
end tell

But this isn't enough to get every objects have table objects. It’s impossible to get ones in group objects. In this case, let’s use “all page items”, and fill background with swatch color “Black” instead of getting references for obviously checking result.

ScriptEditor opens a new window with following the script.

tell application "Adobe InDesign CS2"
  tell active document
    try
      set fill color of (every text frame whose (ASCII character 22) is in contents of it) ¬
        to swatch "Black"
    end try
    try
      set fill color of (every text frame of all page items whose (ASCII character 22) is in contents of it) ¬
        to swatch "Black"
    end try
  end tell
end tell

Is there anyway else?

Postscript:
The Best Way When Using the Filter Reference Form

How to Access to MySQL with AppleScript

2008-12-09T12:20:00.007+09:00

There is a past page that is accessed every day every day in my diary blog. The title is “AppleScript and MySQL.” Its body has about only 70 words. There are almost never beneficial tips. So I have been sorry some people visited my blog. I think, at the very least, I should have shown a sample script. But it isn’t the code I wrote. I got the tips from http://macscripter.net/ and don’t know the permanent link. But let’s share that code.

As additional if your MySQL was made with a option “--with-charset=utf8” by yourself, “--default-character-set=utf8” is the unnecessary option. But If it was downloaded MySQL as a compiled package, the option is perhaps necessary. And following the code was modified from original by me.

ScriptEditor opens a new window with following the script.

global mysql
--==========
set mysql to "/usr/local/mysql/bin/mysql"
set user_name to "mysql’s account"
set pass_word to "mysql’s pass word"
set host_name to "hoge.local"
set DB_name to "foo"
set table_name to "any table name"
set field_name to "any filed name1,any filed name2" -- Of course, a delimiter character is “,”
set limit to 100
--==========

set mysql to mysql & " -u" & user_name & " -p" & pass_word & " -D" & DB_name & " -h" & host_name ¬
  & " --default-character-set=utf8" & " -e " as Unicode text
set query to "SELECT " & field_name & " FROM " & table_name & " LIMIT " & limit
set DB_DATA to {}
send_query of me given string:query, reference:a reference to DB_DATA
DB_DATA

on send_query given string:query, reference:data_ref
  set query to "\"" & query & "\""
  set db_records to paragraphs of (do shell script mysql & query)
  set {default_delimita, AppleScript's text item delimiters} to {AppleScript's text item delimiters, tab}
  repeat with i from 1 to (count db_records)
    set the end of data_ref to every text item of item i of db_records
  end repeat
  set AppleScript's text item delimiters to default_delimita
end send_query

Learning of Cappuccino Is Quite Primitive

2008-12-06T09:59:00.009+09:00

My work during this year were almost finished. At last I have been starting Cappuccino. This week I checked Build Tools of Cappuccino I haven’t understood. There are several commands in the Build Tools; objjc, steam, press and bake. And ant command that is written in a page of the blog, Cappuccino Tools: “objjc” and “steam” is enigma, too.

This was the first question. Do I need to compile my Cappuccino appliction to run it? Why I had such a question. Because a application in the Starter Package can run without compiling, even after editing the source files. But There are some things called “Build Tools.” On SproutCore, I’m not sure the compiler seemed to delete comment lines and some spaces for reducing the amount of code. Is it a similar thing that the build tool of Cappuccino does? But It's impossible. SproutCore is JavaScript in first place. Objective-J needs to be transformed to JavaScript code certainly.

I read a page of cappuccino.org’s blog that is The Cappuccino and Objective-J Build Tools.

If you’re just getting started with Objective-J and Cappuccino you don’t even need to worry about the build tools, they’re entirely optional.

A staff of cappuccino.org said that you don’t even need to worry. All right, I’ll get it out of my mind for a while. I think it's enough that even I know how to create a new form of cappuccino application using steam command.

Learning of Cappuccino is quite primitive.

Mount Volume using Script

2008-12-04T16:50:00.012+09:00

Since I shifted my development environmen from Tiger to Leopard, there were a few scripts didn’t work. So I fixed them. This is one of them. This script mounts server and opens the folder specified as a command of menu bar; “Connect to Server.” This script works well on Leopard.

#!/usr/bin/perl
use strict;
use utf8;
use open ":utf8";
use open ":std";

my $protocol    = 'afp';           # choose afp or smb.
my $account     = 'foo';
my $pass_word   = 'bar';
my $server_name = 'foobar.local';  # If a server name is not available, use an IP address.
my $volume_name = 'hoge';          # Don’t add slash characters to front of the name and end.
my $directory   = '/common/DTP';   # Don’t forget to add a slash character to front of them.

$volume_name =~ s/\/$//;
$directory   =~ s/\/$//;
if ( $directory !~ /^\// ){ $directory = "/$directory" }

if ( mount_server( $protocol, $account, $pass_word, $server_name, $volume_name, $directory ) != 1 ){
  print "Mounting failed.\n";
}

# ----------------------------------------------------------------------------
sub mount_server{
  my @ARGV = @_;
  my $AppleScript = 'osascript ';

  map { $_ = "'$_'" } @ARGV;

  while (<data>){
    chomp;
    s/"/\\"/g;
    $AppleScript .= " -e \"$_\"";
  }
  $AppleScript .= " @ARGV";

  my $result = readpipe $AppleScript;
  utf8::decode($result);
  chop $result;

  return $result;
}

__DATA__
on run argv
  set {protocol, user_name, pass_word, server_name, volume_name, directory} to argv
  set connection to protocol & "://" & user_name & ":" & pass_word & "@" & server_name & "/" & volume_name as Unicode text
  set tried_count to 1
  set try_limit to 3

  tell application "Finder"
    repeat until exists disk volume_name
      try
        mount volume connection
      on error
        if tried_count ≥ try_limit then return 0
        set tried_count to tried_count + 1
        delay 1
      end try
    end repeat
    --(* If you don’t want to open a window of Finder, comment out following three lines code.
    activate
    tell me to set target_folder to POSIX file ("/Volumes/" & volume_name & directory)
    if exists target_folder then open target_folder
    --*)
  end tell

  return 1
end run

On the Leopard, almost trouble with osascript are about POSIX file or POSIX path as for me. POSIX file and POSIX path mainly are tied to Finder. But They are’t available command in a block; tell application "Finder." So I have placed them outside the block. It means POSIX file and POSIX path aren’t bound up by a tell block. They are naked. I should have fixed only that point, nevertheless remade all lines. Then I had another trouble.

The osascript is able to handle texts encoded as utf-8 from the Leopard. So I cut out encoding to Shift-JIS and instead made another script else for the Tiger.

I didn't recognize a character “≥”. This character is not available on Shift-JIS. I had typed “>=” on AppleScript but the character changed “≥” by itself after compiling the script. In consequence, I have to retype “>=” on Perl script.

Now, I desire to sort out the same volume names that are already mounting to eject the selected volume. But it seems difficult.

AppleScript

ScriptEditor opens a new window with following the script.

global try_limit

set protocol to "afp" --  choose afp or smb.
set user_name to "foo"
set pass_word to "bar"
set server_name to "foobar.local" -- If a server name is not available, use an IP address.
set volume_name to "hoge" -- Don’t add slash characters to front of the name and end.
set directory to "/common/DTP" -- Don’t forget to add a slash character to front of them.
set try_limit to 3

set account_info to {protocol, user_name, pass_word, server_name, volume_name, directory}
mount_volume(account_info) of me

-- ----------------------------------------------------------------------------
on mount_volume(argv)
  set {protocol, user_name, pass_word, server_name, volume_name, directory} to argv
  set connection to protocol & "://" & user_name & ":" & pass_word & "@" & server_name & "/" & volume_name as Unicode text
  set tried_count to 1

  tell application "Finder"
    repeat until exists disk volume_name
      try
        mount volume connection
      on error
        if tried_count ≥ try_limit then return false
        set tried_count to tried_count + 1
        delay 1
      end try
    end repeat
    --(* If you don’t want to open a window of Finder, comment out following three lines code.
    activate
    tell me to set target_folder to POSIX file ("/Volumes/" & volume_name & directory)
    if exists target_folder then open target_folder
    --*)
  end tell

  return true
end mount_volume

postscript:
Mount_afp And Mount_smbfs

About This Blog - Japanese

2008-11-28T19:10:00.006+09:00

　私のニックネームは PsychoCat だ。「さいちょきゃっと」と読んではいけない。「さいこきゃっと」だ。

　以前、four というハンドルで別のブログを書いていた。名古屋で同じような仕事に従事している “DTP出身者のMac環境でのプログラマー” を見つけるのが目的だった。１年半ほど、かなりの時間をさいて更新を続けたが、ただのひとりも見つけられなかった。名古屋の人からはメールのひとつも、コメントすらもらえなかった。それでもネット上では数人の知り合いができた。この業界でとても有名な方とも知り合いになれたし、Objective-Cの開発者なら必ず一度は訪れているだろうサイトの運営者とも知りあいになれた。ただ、すべてが関東、関西だ。名古屋からのコンタクトは一人もいなかった。意気消沈した上、さらにDTPの自動組版環境も Windows が大半を占めるようになってきた。プロのプログラマーが自動組版を手がけ始めたためだ。さらにスクリプト自体も JavaScript に勢いを感じ「もう、潮時か...」とブログの更新を止めてしまった。そしてブログやSNSへの書き込みもろくにしなくなった。

　ネット引きこもりが１年ほど続いた。最近、寂しさ感じ始め「ブログを再開しよかな？」と思い始めた。その意思をポロッとあるブログに書き込んだら、快く向かい入れていただけるレスを頂いたので再開を決心した。

　以前のブログでは、“地元でリアルな同業者を探すこと” に意識し過ぎたあまり、とても狭い視野になってしまった。その反動というわけでもないが、このブログでは海外に目を向けてみようと考えている。せっかく世界につながっているインターネットを利用しているのだから、海外の情報に接しない手はない。それに開発者である以上、日々眺めているのが日本語のサイトばかりでは情けない。

　再開を決心したときは、海外のDTP情報などを読んで回り、それをネタにしようと考えた。背伸びをして目標を立てるとしたら、Mac DTP Developer版 “maclalala2” だ。無理だけど... 。私の遠〜い最終目標なんだから構わないだろう？ ^.^

　… と目ろんでいたら、どうも雲行きが怪しい。私のブログ再開を「待っているよ」と応援していただいた方のブログが、海外サイトの紹介ブログになりつつあるではないか。これはまずい。私は競争には弱いのだ。しかも内容がダブりまくるのは目に見えている。内容を変更しなくてはいけなくなった。しかし日本語でブログを書くことに多くの時間を取られたくない。英語学習は話すにしても書くにしてもアウトプットする習慣を保つことが大切だと実感しているので、英語学習を絡めてブログを続けたい。それなら、いっそのことすべて英語で書くか？そんなことできるのか？

　悩んだ末、私は腹を括った。新しく始める技術系ブログも英語で書くことにした。みんなは「気負い過ぎだ」と感じるかもしれないが、本人は気楽な気持ちでいる。英語日記のProgrammingカテゴリーをこちらに書き込むと思えば気も楽だ。私の英語日記は未熟な英文だし、テキスト量も少ないからネイティヴからコメントをもらうこともないだろう。だから、それを期待した文章を書かない。しかしせめて英語日記よりはもう少し情報量を多く書くことを目標にしたい。

　英語日記は恥ずかしいが意外と続いている。それは気負いがないからだと思っている。２週間３週間程度だったら更新できなくてもかまわないつもりでいる。なんだか消極的な話だが “志” だけは立派なんだよ（笑）

　あ、そうだ。願い事が一つある。
「どうか私に、海外サイトに書き込みをする勇気をお与えください」
　いつになったら英語でコメントできるんだろう？

　そんなわけで、たぶん少なくなりつつある DTP出身の Macプログラマー（スクリプター）の生き残りとして恥を晒していくので応援して欲しい。

About This Blog - English

2008-11-28T18:45:00.006+09:00

This blog is mentioning of developments for auto publishing system. Mainly AppleScript, Perl, Objective-C and JavaScript are leveraged as programming languages. And the platform they move on is OS X.

And I recently got an interest in Cappuccino that is a framework like Objective-C to make web applications, and MediaWiki of Wikipedia’s engine. One more thing I have an interest in is IDML of InDesgin CS4. I’ll also writing them.

A list of languages covered in this blog
- AppleScript
- Perl
- Objective-C (Cocoa)
- Objective-J (Cappuccino)
- JavaScript
A list of what I’m interested in right now
- Cappuccino
- MediaWiki
- IDML (But I haven’t had the CS4 yet.)

And, I’m Japanese who uses English as second language. So I’m afraid I can’t describe those topics. There may be wrong contents and expression. If you can't bear to see my poor English, I may want you to tell me one of the better qualities.

About the URL Encode of AppleScript

On this blog, I’m using URL Encode of AppleScript with a herf link. If you click a link text above a sample script, immediately you can try to run the sample script.

ScriptEditor opens a new window with following the script.

set dir_completed_path to "/Users/(your account)/Documents/Apple/Orange_Peach" as Unicode text
set perlScript to "utf8::decode($ARGV[0]); if( ! -e $ARGV[0] ){ mkpath [$ARGV[0]] or die $! }" & " print 1;" as Unicode text
set perlScript to quoted form of perlScript
set shellCommand to "perl -Mutf8 -MFile::Path -e " & perlScript & " " & quoted form of dir_completed_path
do shell script shellCommand