如何用 Linux 開發 Palm 程式

接下來

cp /usr/include/unistd.h tools/

把 unistd.h 複製到 tools 下面,再把 unistd.h 改動一下

最後 

vim tools/unistd.h

把第 441 行的 extern int dup (int __fd) __THROW;
給 mark 起來
// extern int dup (int __fd) __THROW;

cp pilrc-2.9.tar.gz /tmp

然後解壓縮：

tar vxfz pilrc-2.9.tar.gz

收先打開 main.c 在倒數第三行會看到

ParseFile(szInputFile, szOutputPath, szResFile, szIncFile, fontType);

把這行刪除不要,改成下面的這行, 我們要用 FreeRcpfile 來叫 ParseFile

FreeRcpfile(ParseFile(szInputFile, szOutputPath, szResFile, szIncFile, fontType));

然後存檔離開.再打開 pilrc.c 把倒數第五行的
FreeRcpfile(prcpfile);
給 mark 起來
//FreeRcpfile(prcpfile);
這行我們不要.

現在就可以執行 ./configure 程式了, 然後執行 
make 
make install

現在我們就已經在 linux 下安裝好了一個 palm 的開發環境了.

hello.rpc:

#include "hello.h"
VERSION ID 1 "1.00"
MENU ID MainMenu
BEGIN
        PULLDOWN "Help"
        BEGIN
                MENUITEM "About..." ID HelpMenuAbout
        END
END
FORM HelloForm AT (0 0 160 160)
        MENUID MainMenu
        USABLE
BEGIN
        LABEL "Hello, world!" AUTOID AT (CENTER 50)
END
ALERT ID AboutAlert
BEGIN
        TITLE "About..."
        MESSAGE "Hello, world! demo app\nVersion 1.00\n\nCopyright \251 2003\nStudy-Area.\n"
        BUTTONS "OK"
END

hello.h:

#define MainMenu 1000

#define HelpMenuAbout 1010

#define HelloForm 1100

#define AboutAlert 2000

hello.c:

#include <PalmOS.h>
#include <PalmUtils.h>
#include "hello.h"
static FormPtr gpForm;
static Err StartApplication() 
{
	FrmGotoForm(HelloForm);
	return 0;
}
static void StopApplication() 
{
	FrmCloseAllForms();
}
Boolean HelloFormEventHandler(EventPtr event) 
{
	Boolean handled = false;

	switch (event->eType) {
		case frmOpenEvent: {
			gpForm = FrmGetActiveForm();
			FrmDrawForm(gpForm);
			handled = true;
			break;
		}

		case frmCloseEvent:
			FrmEraseForm(gpForm);
			FrmDeleteForm(gpForm);
			gpForm = 0;
			handled = true;
			break;

		default:
			break;
		}

	return handled;
}
static Boolean ApplicationEventHandler(EventPtr event) 
{
	Boolean handled = false;

	switch (event->eType) {
		case frmLoadEvent: {
			FormPtr pForm = FrmInitForm(event->data.frmLoad.formID);
			FrmSetActiveForm(pForm);
			FrmSetEventHandler(pForm, HelloFormEventHandler);
			handled = true;
			break;
	   			   }
		case menuEvent:
	   			   switch (event->data.menu.itemID) {
		   			   case HelpMenuAbout:
			   			   FrmAlert(AboutAlert);
						   break;
				   }
				   handled = true;
				   break;
		default:
		break;
	}

	return handled;
}
static void EventLoop() 
{
	EventType event;
	UInt16 error;
	do {
	EvtGetEvent(&event, evtWaitForever);

		if (!SysHandleEvent(&event)) {
		if (!MenuHandleEvent(0, &event, &error)) {
		if (!ApplicationEventHandler(&event)) {
			FrmDispatchEvent(&event);
				}
			}
		}
	}
	while (event.eType != appStopEvent);
}
UInt32 PilotMain(UInt16 launchCode, MemPtr cmdPBP, UInt16 launchFlags) 
{
Err err = 0;

	if (launchCode == sysAppLaunchCmdNormalLaunch) {
		if ((err = StartApplication()) == 0) {
		EventLoop();
		StopApplication();
		}
		}

	return err;
}

最後寫一個 Makefile:

PROGRAM=hello
CC=m68k-palmos-gcc
PILRC=pilrc
OBJRES=m68k-palmos-obj-res
ICONTEXT='hello'
BUILDPRC=build-prc
APID=TEST
CFLAGS=-palmos -Wall -g
LFLAGS=-g

SOURCES=hello.c
OBJS=hello.o
PRC=$(PROGRAM).prc
RESOURCES=$(PROGRAM).rcp

all: $(PRC)

$(PRC): $(PROGRAM) bin.res
        $(BUILDPRC) $(PRC) $(ICONTEXT) $(APID) *.bin *.grc

$(PROGRAM): $(OBJS)
        $(CC) -o $(PROGRAM) $(OBJS) $(LFLAGS)
        $(OBJRES) $(PROGRAM)

bin.res: $(RESOURCES) hello.h icon.bmp
        $(PILRC) $(RESOURCES)
        touch bin.res

ctags:
        ctags $(SOURCES)

clean:
        rm -f *.bak *.bin *.grc *.o bin.res tags $(PRC) $(PROGRAM)

hello.o: hello.c hello.h

然後我們打 make 最後看到成功了：
m68k-palmos-gcc -palmos -Wall -g   -c -o hello.o hello.c
m68k-palmos-gcc -o hello hello.o -g
m68k-palmos-obj-res hello
pilrc hello.rcp
PilRC v2.9 patch release 2
  Copyright 1997-1999 Wes Cherry   (wesc@ricochet.net)
  Copyright 2000-2001 Aaron Ardiri (aaron@ardiri.com)

Generating 68K resources from 'hello.rcp'.
Writing tver0001.bin
5 bytes
Writing MBAR03e8.bin
86 bytes
Writing tFRM044c.bin
102 bytes
Writing Talt07d0.bin
90 bytes
touch bin.res
build-prc hello.prc 'hello' TEST *.bin *.grc