[tuxdroid-svn] r1360 - in software_suite_v2/software/gadgets: . tuxdroid-pascal-gadget-HelloWorld tuxdroid-pascal-gadget-HelloWorld/tags tuxdroid-pascal-gadget-HelloWorld/trunk tuxdroid-pascal-gadget-HelloWorld/trunk/resources

[jerome <c2m...@c2...>]

Author: jerome
Date: 2008-07-25 23:43:25 +0200 (Fri, 25 Jul 2008)
New Revision: 1360

Added:
   software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/
   software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/branches/
   software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/tags/
   software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/tags/tuxdroid-freepascal-gadget-HelloWorld.tgf
   software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/
   software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/gadgets.xml
   software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/pascalHelloWorld.exe
   software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/project1.lpi
   software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/project1.lpr
   software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/resources/
   software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/resources/HelloWorld.png
Log:
Added pascal hello world gadget with complete lazarus project.

Added: software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/tags/tuxdroid-freepascal-gadget-HelloWorld.tgf
===================================================================
(Binary files differ)


Property changes on: software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/tags/tuxdroid-freepascal-gadget-HelloWorld.tgf
___________________________________________________________________
Name: svn:mime-type
   + application/octet-stream

Added: software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/gadgets.xml
===================================================================
--- software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/gadgets.xml	                        (rev 0)
+++ software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/gadgets.xml	2008-07-25 21:43:25 UTC (rev 1360)
@@ -0,0 +1,24 @@
+<gadgets>
+	<gadget>
+		<interpreter
+			kind="bash">
+			<executable>pascalHelloWorld.exe</executable>
+		</interpreter>
+		<description>
+			<name>HelloWorld free pascal Sample Gadget</name>
+			<description>This gadget throws a simple Hello World notification in pascal</description>
+			<author>jerome conan</author>
+			<version>1.0</version>
+			<iconFile>resources/HelloWorld.png</iconFile>
+			<executionMode>command</executionMode>
+			<uuid>548f7a9a-567c-423e-a0dd-102ff68a4444</uuid>
+		</description>
+		<parameters>
+			<parameter
+				name="message"
+				description="Message sent when I'm saying hello"
+				type="string"
+				defaultValue="Hello world in pascal" />
+		</parameters>
+	</gadget>
+</gadgets>
\ No newline at end of file

Added: software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/pascalHelloWorld.exe
===================================================================
(Binary files differ)


Property changes on: software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/pascalHelloWorld.exe
___________________________________________________________________
Name: svn:mime-type
   + application/octet-stream

Added: software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/project1.lpi
===================================================================
--- software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/project1.lpi	                        (rev 0)
+++ software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/project1.lpi	2008-07-25 21:43:25 UTC (rev 1360)
@@ -0,0 +1,62 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <ProjectOptions>
+    <PathDelim Value="\"/>
+    <Version Value="6"/>
+    <General>
+      <MainUnit Value="0"/>
+      <TargetFileExt Value=".exe"/>
+      <ActiveEditorIndexAtStart Value="0"/>
+    </General>
+    <VersionInfo>
+      <ProjectVersion Value=""/>
+      <Language Value=""/>
+      <CharSet Value=""/>
+    </VersionInfo>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+      </local>
+    </RunParams>
+    <Units Count="1">
+      <Unit0>
+        <Filename Value="project1.lpr"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="project1"/>
+        <CursorPos X="17" Y="1"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="0"/>
+        <UsageCount Value="20"/>
+        <Loaded Value="True"/>
+      </Unit0>
+    </Units>
+    <JumpHistory Count="0" HistoryIndex="-1"/>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="5"/>
+    <PathDelim Value="\"/>
+    <CodeGeneration>
+      <Generate Value="Faster"/>
+    </CodeGeneration>
+    <Other>
+      <CompilerPath Value="$(CompPath)"/>
+    </Other>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions Count="2">
+      <Item1>
+        <Name Value="ECodetoolError"/>
+      </Item1>
+      <Item2>
+        <Name Value="EFOpenError"/>
+      </Item2>
+    </Exceptions>
+  </Debugging>
+</CONFIG>

Added: software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/project1.lpr
===================================================================
--- software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/project1.lpr	                        (rev 0)
+++ software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/project1.lpr	2008-07-25 21:43:25 UTC (rev 1360)
@@ -0,0 +1,76 @@
+program project1;
+
+{$mode objfpc}{$H+}
+
+uses
+  {$IFDEF UNIX}{$IFDEF UseCThreads}
+  cthreads,
+  {$ENDIF}{$ENDIF}
+  Classes, SysUtils, CustApp, dos
+  { you can add units after this };
+
+type
+
+  { TMyApplication }
+
+  TMyApplication = class(TCustomApplication)
+  protected
+    procedure DoRun; override;
+  public
+    constructor Create(TheOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure WriteHelp; virtual;
+  end;
+
+{ TMyApplication }
+
+procedure TMyApplication.DoRun;
+var
+  ErrorMsg: String;
+  messages: String;
+begin
+   messages := 'message ' + GetEnv('tgp_message');
+   writeln(messages);
+  // quick check parameters
+  ErrorMsg:=CheckOptions('h','help');
+  if ErrorMsg<>'' then begin
+    ShowException(Exception.Create(ErrorMsg));
+    Halt;
+  end;
+
+  // parse parameters
+  if HasOption('h','help') then begin
+    WriteHelp;
+    Halt;
+  end;
+
+  // stop program loop
+  Terminate;
+end;
+
+constructor TMyApplication.Create(TheOwner: TComponent);
+begin
+  inherited Create(TheOwner);
+  StopOnException:=False;
+end;
+
+destructor TMyApplication.Destroy;
+begin
+  inherited Destroy;
+end;
+
+procedure TMyApplication.WriteHelp;
+begin
+  { add your help code here }
+  writeln('Usage: ',ExeName,' -h');
+end;
+
+var
+  Application: TMyApplication;
+begin
+  Application:=TMyApplication.Create(nil);
+  Application.Title:='My Application';
+  Application.Run;
+  Application.Free;
+end.
+

Added: software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/resources/HelloWorld.png
===================================================================
(Binary files differ)


Property changes on: software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/resources/HelloWorld.png
___________________________________________________________________
Name: svn:mime-type
   + application/octet-stream