Change 14394: Minor module thingys
[email protected] (Chris Nandor) Wed, 23 Jan 2002 16:18:39 -0500
| Newsgroups | perl.perl5.changes.mac |
|---|---|
| Message-ID | <p05100307b874d92844ca@[10.0.1.177]> |
Change 14394 by pudge@pudge-mobile on 2002/01/23 20:00:35
Minor module thingys
Affected files ...
.... //depot/maint-5.6/macperl/macos/ext/Mac/Controls/Controls.xs#2 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/Files/Files.xs#2 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/Gestalt/Gestalt.pm#3 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/ImageCompression/ImageCompression.xs#2 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/InternetConfig/InternetConfig.pm#3 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/InternetConfig/InternetConfig.xs#2 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/Memory/Memory.pm#3 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/Memory/Memory.xs#4 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/Menus/Menus.pm#4 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MF.xs#2 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFiles.pm#3 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/Movies/Movies.xs#3 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/Navigation/Navigation.pm#3 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/Navigation/Navigation.xs#4 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/Notification/Notification.xs#2 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/OSA/OSA.pm#3 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/Processes/Processes.pm#3 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/Processes/Processes.xs#2 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/QDOffscreen/QDOffscreen.xs#2 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/QuickDraw/QuickDraw.pm#3 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/QuickDraw/QuickDraw.xs#2 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/QuickTimeVR/QuickTimeVR.xs#3 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/Resources/Resources.pm#3 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/Resources/Resources.xs#2 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/SAT/SAT.pm#3 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/SAT/SAT.xs#2 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/Sound/Sound.pm#3 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/Sound/Sound.xs#2 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/Speech/Speech.pm#3 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/SpeechRecognition/SpeechRecognition.pm#3 edit
.... //depot/maint-5.6/macperl/macos/lib/Mac/Glue.pm#5 edit
.... //depot/maint-5.6/macperl/macos/lib/Mac/OSA/Simple.pm#2 edit
Differences ...
==== //depot/maint-5.6/macperl/macos/ext/Mac/Controls/Controls.xs#2 (text) ====
Index: perl/macos/ext/Mac/Controls/Controls.xs
--- perl/macos/ext/Mac/Controls/Controls.xs.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/Controls/Controls.xs Wed Jan 23 13:15:05 2002
@@ -1,4 +1,4 @@
-/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Controls/Controls.xs,v 1.1 2000/08/14 03:39:29 neeri Exp $
+/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Controls/Controls.xs,v 1.2 2002/01/23 05:44:42 pudge Exp $
*
* Copyright (c) 1997 Matthias Neeracher
*
@@ -6,6 +6,9 @@
* as specified in the README file.
*
* $Log: Controls.xs,v $
+ * Revision 1.2 2002/01/23 05:44:42 pudge
+ * Update whitespace etc., from Thomas
+ *
* Revision 1.1 2000/08/14 03:39:29 neeri
* Checked into Sourceforge
*
@@ -75,16 +78,16 @@
A Control structure. Fields are:
- ControlHandle nextControl;
- GrafPtr contrlOwner;
- Rect contrlRect;
- UInt8 contrlVis;
- UInt8 contrlHilite;
- SInt16 contrlValue;
- SInt16 contrlMin;
- SInt16 contrlMax;
- SInt32 contrlRfCon;
- Str255 contrlTitle;
+ ControlHandle nextControl;
+ GrafPtr contrlOwner;
+ Rect contrlRect;
+ UInt8 contrlVis;
+ UInt8 contrlHilite;
+ SInt16 contrlValue;
+ SInt16 contrlMin;
+ SInt16 contrlMax;
+ SInt32 contrlRfCon;
+ Str255 contrlTitle;
=back
@@ -117,7 +120,7 @@
=item NewControl THEWINDOW, BOUNDSRECT, TITLE, VISIBLE, VALUE, MIN, MAX, PROC [, REFCON ]
-Create a new control and return it..
+Create a new control and return it.
=cut
ControlHandle
==== //depot/maint-5.6/macperl/macos/ext/Mac/Files/Files.xs#2 (text) ====
Index: perl/macos/ext/Mac/Files/Files.xs
--- perl/macos/ext/Mac/Files/Files.xs.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/Files/Files.xs Wed Jan 23 13:15:05 2002
@@ -1,4 +1,4 @@
-/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Files/Files.xs,v 1.3 2000/09/12 20:18:57 pudge Exp $
+/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Files/Files.xs,v 1.4 2002/01/23 05:44:42 pudge Exp $
*
* Copyright (c) 1996 Matthias Neeracher
*
@@ -6,6 +6,9 @@
* as specified in the README file.
*
* $Log: Files.xs,v $
+ * Revision 1.4 2002/01/23 05:44:42 pudge
+ * Update whitespace etc., from Thomas
+ *
* Revision 1.3 2000/09/12 20:18:57 pudge
* Added all the new constants for FindFolder
* Make FSMakeFSSpec return FSSpec even if file does not exist
@@ -67,10 +70,10 @@
Information for a file, including:
- OSType fdType the type of the file
- OSType fdCreator file's creator
- U16 fdFlags flags ex. hasbundle,invisible,locked, etc.
- Point fdLocation file's location in folder
+ OSType fdType the type of the file
+ OSType fdCreator file's creator
+ U16 fdFlags flags ex. hasbundle,invisible,locked, etc.
+ Point fdLocation file's location in folder
=cut
STRUCT FInfo
@@ -83,11 +86,11 @@
Further information for a file, including:
- short fdIconID Icon ID
- I8 fdScript Script flag and number
- I8 fdXFlags More flag bits
- short fdComment Comment ID
- long fdPutAway Home Dir ID
+ short fdIconID Icon ID
+ I8 fdScript Script flag and number
+ I8 fdXFlags More flag bits
+ short fdComment Comment ID
+ long fdPutAway Home Dir ID
=cut
STRUCT FXInfo
@@ -101,10 +104,10 @@
Information for a directory, including:
- Rect frRect folder rect
- U16 frFlags Flags
- Point frLocation folder location
- short frView folder view
+ Rect frRect folder rect
+ U16 frFlags Flags
+ Point frLocation folder location
+ short frView folder view
=cut
STRUCT DInfo
@@ -117,12 +120,12 @@
Further information for a directory, including:
- Point frScroll scroll position
- long frOpenChain DirID chain of open folders
- I8 frScript Script flag and number
- I8 frXFlags; More flag bits
- short frComment comment
- long frPutAway; DirID
+ Point frScroll scroll position
+ long frOpenChain DirID chain of open folders
+ I8 frScript Script flag and number
+ I8 frXFlags; More flag bits
+ short frComment comment
+ long frPutAway; DirID
=cut
STRUCT DXInfo
==== //depot/maint-5.6/macperl/macos/ext/Mac/Gestalt/Gestalt.pm#3 (text) ====
Index: perl/macos/ext/Mac/Gestalt/Gestalt.pm
--- perl/macos/ext/Mac/Gestalt/Gestalt.pm.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/Gestalt/Gestalt.pm Wed Jan 23 13:15:05 2002
@@ -1741,6 +1741,8 @@
=item gestaltResourceMgrAttr
+=cut
+
=item gestaltPartialRsrcs
Resource manager.
@@ -1790,7 +1792,7 @@
=item gestaltScriptMgrVersion
-Script manager/
+Script manager.
=cut
sub gestaltScriptMgrVersion () { 'scri'; }
==== //depot/maint-5.6/macperl/macos/ext/Mac/ImageCompression/ImageCompression.xs#2 (text) ====
Index: perl/macos/ext/Mac/ImageCompression/ImageCompression.xs
--- perl/macos/ext/Mac/ImageCompression/ImageCompression.xs.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/ImageCompression/ImageCompression.xs Wed Jan 23 13:15:05 2002
@@ -26,6 +26,10 @@
=over 4
+=item Not yet documented. Please take a look at the code section(s).
+
+=cut
+
long
CodecManagerVersion()
CODE:
==== //depot/maint-5.6/macperl/macos/ext/Mac/InternetConfig/InternetConfig.pm#3 (text) ====
Index: perl/macos/ext/Mac/InternetConfig/InternetConfig.pm
--- perl/macos/ext/Mac/InternetConfig/InternetConfig.pm.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/InternetConfig/InternetConfig.pm Wed Jan 23 13:15:05 2002
@@ -727,13 +727,13 @@
Determine the file type and creator for a newly created file:
- $map = $InternetConfigMap{"output.html"};
-
+ $map = $InternetConfigMap{"output.html"};
+
=item
Determine the extension to use for some type/creator combination:
- $map = $InternetConfigMap{["WDBN", "MSWD"]};
+ $map = $InternetConfigMap{["WDBN", "MSWD"]};
=back
==== //depot/maint-5.6/macperl/macos/ext/Mac/InternetConfig/InternetConfig.xs#2 (text) ====
Index: perl/macos/ext/Mac/InternetConfig/InternetConfig.xs
--- perl/macos/ext/Mac/InternetConfig/InternetConfig.xs.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/InternetConfig/InternetConfig.xs Wed Jan 23 13:15:05 2002
@@ -1,4 +1,4 @@
-/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/InternetConfig/InternetConfig.xs,v 1.2 2000/09/09 22:18:27 neeri Exp $
+/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/InternetConfig/InternetConfig.xs,v 1.3 2002/01/23 05:44:42 pudge Exp $
*
* Copyright (c) 1995 Matthias Neeracher
*
@@ -6,6 +6,9 @@
* as specified in the README file.
*
* $Log: InternetConfig.xs,v $
+ * Revision 1.3 2002/01/23 05:44:42 pudge
+ * Update whitespace etc., from Thomas
+ *
* Revision 1.2 2000/09/09 22:18:27 neeri
* Dynamic libraries compile under 5.6
*
@@ -73,16 +76,16 @@
An entry in the file map. Fields are:
- short version;
- OSType file_type;
- OSType file_creator;
- OSType post_creator;
- long flags;
- Str255 extension;
- Str255 creator_app_name;
- Str255 post_app_name;
- Str255 MIME_type;
- Str255 entry_name;
+ short version;
+ OSType file_type;
+ OSType file_creator;
+ OSType post_creator;
+ long flags;
+ Str255 extension;
+ Str255 creator_app_name;
+ Str255 post_app_name;
+ Str255 MIME_type;
+ Str255 entry_name;
=cut
STRUCT ICMapEntry
@@ -716,8 +719,8 @@
Returns the position of a map entry and the entry itself.
- $map = ICGetIndMapEntry $inst, $entries, 5;
- ($pos, $map) = ICGetIndMapEntry $inst, $entries, 5;
+ $map = ICGetIndMapEntry $inst, $entries, 5;
+ ($pos, $map) = ICGetIndMapEntry $inst, $entries, 5;
=cut
void
==== //depot/maint-5.6/macperl/macos/ext/Mac/Memory/Memory.pm#3 (text) ====
Index: perl/macos/ext/Mac/Memory/Memory.pm
--- perl/macos/ext/Mac/Memory/Memory.pm.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/Memory/Memory.pm Wed Jan 23 13:15:05 2002
@@ -14,9 +14,9 @@
The Memory module defines Ptr and Handle classes, and function interfaces to the
memory management.
- use Mac::Memory;
- $handle = new Handle;
- $handle2 = NewHandle;
+ use Mac::Memory;
+ $handle = new Handle;
+ $handle2 = NewHandle;
=head1 DESCRIPTION
==== //depot/maint-5.6/macperl/macos/ext/Mac/Memory/Memory.xs#4 (text) ====
Index: perl/macos/ext/Mac/Memory/Memory.xs
--- perl/macos/ext/Mac/Memory/Memory.xs.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/Memory/Memory.xs Wed Jan 23 13:15:05 2002
@@ -6,6 +6,12 @@
* as specified in the README file.
*
* $Log: Memory.xs,v $
+ * Revision 1.7 2002/01/23 20:24:58 pudge
+ * Fix silly error
+ *
+ * Revision 1.6 2002/01/23 05:44:42 pudge
+ * Update whitespace etc., from Thomas
+ *
* Revision 1.5 2002/01/05 02:21:54 pudge
* Sync with perforce
*
@@ -65,8 +71,8 @@
Create a new handle and return it. Copy $STRING into the handle if present.
Return a 0 value if a handle could not be created.
- $h = new Handle;
- $hs = new Handle("This string will now exist in hyperspace");
+ $h = new Handle;
+ $hs = new Handle("This string will now exist in hyperspace");
=cut
@@ -90,8 +96,8 @@
Return the size of a handle (i.e., its data portion).
- die unless (new Handle)->size == 0;
- die unless $hs->size == 40;
+ die unless (new Handle)->size == 0;
+ die unless $hs->size == 40;
=cut
@@ -108,8 +114,8 @@
Appends the DATA to the end of the handle
and returns the success as the result.
- $h->append("This string will now exist in hyperspace");
- die unless $h->size == 40;
+ $h->append("This string will now exist in hyperspace");
+ die unless $h->size == 40;
=cut
@@ -138,11 +144,11 @@
$LENGTH (through to the end of the handle contents if not present), starting at
$OFFSET (the beginning if not present).
- $h->set(5, 6, "datum");
-
+ $h->set(5, 6, "datum");
+
yields
- "This datum will now exist in hyperspace"
+ "This datum will now exist in hyperspace"
=cut
@@ -178,7 +184,7 @@
starting at $OFFSET (default zero), of length $LENGTH (default the rest
of the handle).
- die unless $hs->get(5, 6) eq "string";
+ die unless $hs->get(5, 6) eq "string";
=cut
@@ -224,10 +230,10 @@
Return the (locked) state of the handle, or return TRUE if the $NEWSTATE
of the handle is installed.
- my $state = $h->state;
- HLock($h);
- # bunch of operations requiring $h to be locked
- $h->state($state); # so nested locks exit properly
+ my $state = $h->state;
+ HLock($h);
+ # bunch of operations requiring $h to be locked
+ $h->state($state); # so nested locks exit properly
More than the lock state is stored here, so restoring the actual state on leaving
a scope is required.
@@ -254,10 +260,6 @@
NOT DEFINED AT THE MOMENT
-=cut
-
-#ifdef NOT_YET
-
SysRet
_open(hand, mode)
Handle hand
@@ -266,8 +268,6 @@
RETVAL = OpenHandle(hand, mode);
OUTPUT:
RETVAL
-
-#endif
=item dispose
@@ -312,7 +312,7 @@
Return the size of a pointer (i.e., its data portion).
- die unless $ptr->size == 40;
+ die unless $ptr->size == 40;
=cut
@@ -353,7 +353,7 @@
starting at $OFFSET (default zero), of length $LENGTH (default the rest
of the block).
- die unless $ps->get(5, 6) eq "string";
+ die unless $ps->get(5, 6) eq "string";
=cut
@@ -643,7 +643,7 @@
The TempMaxMem function compacts the current heap zone and returns the size of
the largest contiguous block available for temporary allocation.
- $SIZE = &TempMaxMem;
+ $SIZE = &TempMaxMem;
=cut
@@ -665,7 +665,7 @@
it is ordinarily not possible to allocate a single relocatable block of that
size.
- $SIZE = &TempFreeMem;
+ $SIZE = &TempFreeMem;
=cut
@@ -773,7 +773,7 @@
returned are the amount of memory available and the amount by which the zone can
grow.
- ($SIZE, $GROW) = &MaxMem;
+ ($SIZE, $GROW) = &MaxMem;
MaxMemSys does the purge and compact of the system heap zone, and the $GROW value
is set to zero.
@@ -968,7 +968,7 @@
Determine the total amount of free memory and the size of the largest allocatable
block after a purge of the heap.
- ($Total, $Contiguous) = &PurgeSpace;
+ ($Total, $Contiguous) = &PurgeSpace;
=cut
==== //depot/maint-5.6/macperl/macos/ext/Mac/Menus/Menus.pm#4 (text) ====
Index: perl/macos/ext/Mac/Menus/Menus.pm
--- perl/macos/ext/Mac/Menus/Menus.pm.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/Menus/Menus.pm Wed Jan 23 13:15:05 2002
@@ -372,8 +372,6 @@
everything works identically to C<MacMenu>, except that C<insert> always inserts
hierachically.
-=over 4
-
=cut
package MacHierMenu;
==== //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MF.xs#2 (text) ====
Index: perl/macos/ext/Mac/MoreFiles/MF.xs
--- perl/macos/ext/Mac/MoreFiles/MF.xs.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/MoreFiles/MF.xs Wed Jan 23 13:15:05 2002
@@ -1,4 +1,4 @@
-/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/MoreFiles/MF.xs,v 1.3 2001/01/16 21:18:53 pudge Exp $
+/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/MoreFiles/MF.xs,v 1.4 2002/01/23 05:44:42 pudge Exp $
*
* Copyright (c) 1996 Matthias Neeracher
*
@@ -6,6 +6,9 @@
* as specified in the README file.
*
* $Log: MF.xs,v $
+ * Revision 1.4 2002/01/23 05:44:42 pudge
+ * Update whitespace etc., from Thomas
+ *
* Revision 1.3 2001/01/16 21:18:53 pudge
* Update for FSpDirectoryCopy in MoreFiles 1.5. Probably should actually
* add that parameter as an option in the perl glue.
@@ -126,11 +129,11 @@
=item FSpCreateMinimum SPEC
Create a new file with no creator or file type.
- The FSpCreateMinimum function creates a new file without attempting to set
- the the creator and file type of the new file. This function is needed to
- create a file in an AppleShare "dropbox" where the user can make
- changes, but cannot see folder or files. The FSSpec in SPEC is used to create
- the file.
+The FSpCreateMinimum function creates a new file without attempting to set
+the the creator and file type of the new file. This function is needed to
+create a file in an AppleShare "dropbox" where the user can make
+changes, but cannot see folder or files. The FSSpec in SPEC is used to create
+the file.
=cut
MacOSRet
@@ -140,8 +143,8 @@
=item FSpShare SPEC
Establish a local volume or directory as a share point.
- The FSpShare function establishes a local volume or directory as a
- share point. SPEC is an FSSpec record specifying the share point.
+The FSpShare function establishes a local volume or directory as a
+share point. SPEC is an FSSpec record specifying the share point.
=cut
MacOSRet
@@ -160,14 +163,14 @@
=item FSpFileCopy SRCSPEC, DSTSPEC, COPYNAME, PREFLIGHT
The FSpFileCopy function duplicates a file and optionally renames it.
- Since the PBHCopyFile() routine is only available on some
- AFP server volumes under specific conditions, this routine
- either uses PBHCopyFile(), or does all of the work PBHCopyFile()
- does. The SRCSPEC is used to
- determine the location of the file to copy. The DSTSPEC is
- used to determine the location of the
- destination directory. If COPYNAME <> NIL, then it points
- to the name of the new file.
+Since the PBHCopyFile() routine is only available on some
+AFP server volumes under specific conditions, this routine
+either uses PBHCopyFile(), or does all of the work PBHCopyFile()
+does. The SRCSPEC is used to
+determine the location of the file to copy. The DSTSPEC is
+used to determine the location of the
+destination directory. If COPYNAME <> NIL, then it points
+to the name of the new file.
=cut
MacOSRet
@@ -188,7 +191,7 @@
new location. COPYERRHANDLER is the Perl routine name to handle an
error, should one arise. It will be called as:
- $bailout = &$COPYERRHANDLER(ERRORCODE,OPERATION,SRCSPEC,DSTSPEC);
+ $bailout = &$COPYERRHANDLER(ERRORCODE,OPERATION,SRCSPEC,DSTSPEC);
=cut
MacOSRet
@@ -220,7 +223,7 @@
want to access from within the ITERATEFILTER. Your filter function will be
called as:
- $quit = &$filterFunction(YOURDATAPTR, SPEC);
+ $quit = &$filterFunction(YOURDATAPTR, SPEC);
=cut
MacOSRet
==== //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFiles.pm#3 (text) ====
Index: perl/macos/ext/Mac/MoreFiles/MoreFiles.pm
--- perl/macos/ext/Mac/MoreFiles/MoreFiles.pm.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/MoreFiles/MoreFiles.pm Wed Jan 23 13:15:05 2002
@@ -4,9 +4,9 @@
=head1 SYNOPSIS
- use Mac::MoreFiles;
-
- $application = $Application{"MrPL"};
+ use Mac::MoreFiles;
+
+ $application = $Application{"MrPL"};
=head1 DESCRIPTION
==== //depot/maint-5.6/macperl/macos/ext/Mac/Movies/Movies.xs#3 (text) ====
Index: perl/macos/ext/Mac/Movies/Movies.xs
--- perl/macos/ext/Mac/Movies/Movies.xs.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/Movies/Movies.xs Wed Jan 23 13:15:05 2002
@@ -403,6 +403,7 @@
Set the graphics world for a movie.
=cut
+
void
SetMovieGWorld(theMovie, port=nil, gdh=nil)
Movie theMovie
@@ -421,10 +422,10 @@
=end ignore
+=item GetMovieNaturalBoundsRect MOVIE
+
=cut
-=item GetMovieNaturalBoundsRect MOVIE
-
Rect
GetMovieNaturalBoundsRect(theMovie)
Movie theMovie
==== //depot/maint-5.6/macperl/macos/ext/Mac/Navigation/Navigation.pm#3 (text) ====
Index: perl/macos/ext/Mac/Navigation/Navigation.pm
--- perl/macos/ext/Mac/Navigation/Navigation.pm.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/Navigation/Navigation.pm Wed Jan 23 13:15:05 2002
@@ -357,8 +357,6 @@
=head2 Types
-=over 4
-
=cut
package NavTypeListHandle;
@@ -397,6 +395,7 @@
=back
+
=include Navigation.xs
=head1 BUGS/LIMITATIONS
==== //depot/maint-5.6/macperl/macos/ext/Mac/Navigation/Navigation.xs#4 (text) ====
Index: perl/macos/ext/Mac/Navigation/Navigation.xs
--- perl/macos/ext/Mac/Navigation/Navigation.xs.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/Navigation/Navigation.xs Wed Jan 23 13:15:05 2002
@@ -163,13 +163,13 @@
The file information passed to your filter functions. All fields are readonly.
- U16 version;
- Boolean isFolder;
- Boolean visible;
- U32 creationDate;
- U32 modificationDate;
- NavFileInfo fileInfo;
- NavFolderInfo folderInfo;
+ U16 version;
+ Boolean isFolder;
+ Boolean visible;
+ U32 creationDate;
+ U32 modificationDate;
+ NavFileInfo fileInfo;
+ NavFolderInfo folderInfo;
=cut
STRUCT * NavFileOrFolderInfo
@@ -194,13 +194,13 @@
The file specific part of the above structure. All fields are readonly.
- Boolean locked; /* file is locked */
- Boolean resourceOpen; /* resource fork is opened */
- Boolean dataOpen; /* data fork is opened */
- U32 dataSize; /* size of the data fork */
- U32 resourceSize; /* size of the resource fork */
- FInfo finderInfo; /* more file info: */
- FXInfo moreFinderInfo;
+ Boolean locked; /* file is locked */
+ Boolean resourceOpen; /* resource fork is opened */
+ Boolean dataOpen; /* data fork is opened */
+ U32 dataSize; /* size of the data fork */
+ U32 resourceSize; /* size of the resource fork */
+ FInfo finderInfo; /* more file info: */
+ FXInfo moreFinderInfo;
=cut
STRUCT * NavFileInfo
@@ -226,14 +226,14 @@
The folder specific part of the above structure. All fields are readonly.
- Boolean shareable;
- Boolean sharePoint;
- Boolean mounted;
- Boolean readable;
- Boolean writeable;
- U32 numberOfFiles;
- DInfo finderInfo;
- DXInfo moreFinderInfo;
+ Boolean shareable;
+ Boolean sharePoint;
+ Boolean mounted;
+ Boolean readable;
+ Boolean writeable;
+ U32 numberOfFiles;
+ DInfo finderInfo;
+ DXInfo moreFinderInfo;
=cut
STRUCT * NavFolderInfo
@@ -264,12 +264,12 @@
The structure passed to your event procedure. Fields are
- U16 version;
- U32 context; /* used by customization code to call Navigation Services */
- GrafPtr window; /* the dialog */
- Rect customRect; /* local coordinate rectangle of customization area */
- Rect previewRect; /* local coordinate rectangle of the preview area */
- EventRecord event;
+ U16 version;
+ U32 context; /* used by customization code to call Nav. Services */
+ GrafPtr window; /* the dialog */
+ Rect customRect; /* local coordinate rectangle of customization area */
+ Rect previewRect; /* local coordinate rectangle of the preview area */
+ EventRecord event;
=cut
@@ -305,16 +305,21 @@
Options for a Navigation dialog. Fields are:
- U16 version;
- U32 dialogOptionFlags; /* option flags for affecting the dialog's behavior */
- Point location; /* top-left location of the dialog, or {-1,-1} for default position */
- Str255 clientName;
- Str255 windowTitle;
- Str255 actionButtonLabel; /* label of the default button (or null string for default) */
- Str255 cancelButtonLabel; /* label of the cancel button (or null string for default) */
- Str255 savedFileName; /* default name for text box in NavPutFile (or null string for default) */
- Str255 message; /* custom message prompt (or null string for default) */
- U32 preferenceKey; /* a key for to managing preferences for using multiple utility dialogs */
+ U16 version;
+ U32 dialogOptionFlags; /* option flags for affecting the dialog's behavior */
+ Point location; /* top-left location of the dialog, or {-1,-1} for
+ default position */
+ Str255 clientName;
+ Str255 windowTitle;
+ Str255 actionButtonLabel; /* label of the default button (or null string for
+ default) */
+ Str255 cancelButtonLabel; /* label of the cancel button (or null string for
+ default) */
+ Str255 savedFileName; /* default name for text box in NavPutFile (or null
+ string for default) */
+ Str255 message; /* custom message prompt (or null string for default) */
+ U32 preferenceKey; /* a key for to managing preferences for using multiple
+ utility dialogs */
=cut
STRUCT NavDialogOptions
@@ -334,13 +339,18 @@
=item NavReplyRecord
The reply from a navigation dialog. Fields are:
-
- U16 version;
- Boolean validRecord; /* open/save: true if the user confirmed a selection, false on cancel */
- Boolean replacing; /* save: true if the user is overwriting an existing object for save */
- Boolean isStationery; /* save: true if the user wants to save an object as stationery */
- Boolean translationNeeded; /* save: translation is 'needed', open: translation 'has taken place' */
- U16 keyScript; /* open/save: script in which the name of each item in 'selection' is to be displayed */
+
+ U16 version;
+ Boolean validRecord; /* open/save: true if the user confirmed a selection,
+ false on cancel */
+ Boolean replacing; /* save: true if the user is overwriting an existing
+ object for save */
+ Boolean isStationery; /* save: true if the user wants to save an object as
+ stationery */
+ Boolean translationNeeded; /* save: translation is 'needed', open: translation
+ 'has taken place' */
+ U16 keyScript; /* open/save: script in which the name of each item in
+ 'selection' is to be displayed */
=cut
STRUCT * NavReplyRecord
@@ -369,7 +379,7 @@
Counts the number of objects chosen.
- $count = $reply->count;
+ $count = $reply->count;
=cut
long
==== //depot/maint-5.6/macperl/macos/ext/Mac/Notification/Notification.xs#2 (text) ====
Index: perl/macos/ext/Mac/Notification/Notification.xs
--- perl/macos/ext/Mac/Notification/Notification.xs.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/Notification/Notification.xs Wed Jan 23 13:15:05 2002
@@ -48,11 +48,11 @@
The notification record. Fields are:
- short nmMark; /* item to mark in Apple menu*/
- Handle nmIcon; /* handle to small icon*/
- Handle nmSound; /* handle to sound record*/
- Str255 nmStr; /* string to appear in alert*/
- long nmRefCon; /* for application use*/
+ short nmMark; /* item to mark in Apple menu*/
+ Handle nmIcon; /* handle to small icon*/
+ Handle nmSound; /* handle to sound record*/
+ Str255 nmStr; /* string to appear in alert*/
+ long nmRefCon; /* for application use*/
=cut
STRUCT * NMRec
==== //depot/maint-5.6/macperl/macos/ext/Mac/OSA/OSA.pm#3 (text) ====
Index: perl/macos/ext/Mac/OSA/OSA.pm
--- perl/macos/ext/Mac/OSA/OSA.pm.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/OSA/OSA.pm Wed Jan 23 13:15:05 2002
@@ -5,9 +5,9 @@
=head1 SYNOPSIS
- use Mac::OSA;
-
- use Mac::OSA qw(OSALoad OSAStore OSAExecute);
+ use Mac::OSA;
+
+ use Mac::OSA qw(OSALoad OSAStore OSAExecute);
=head1 DESCRIPTION
==== //depot/maint-5.6/macperl/macos/ext/Mac/Processes/Processes.pm#3 (text) ====
Index: perl/macos/ext/Mac/Processes/Processes.pm
--- perl/macos/ext/Mac/Processes/Processes.pm.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/Processes/Processes.pm Wed Jan 23 13:15:05 2002
@@ -5,20 +5,21 @@
=head1 SYNOPSIS
- use Mac::Processes;
-
+ use Mac::Processes;
+
while ( ($psn, $psi) = each(%Process) ) {
- print "$psn\t", $psi->processName,
- " ", $psi->processNumber,
- " ", $psi->processType,
- " ", $psi->processSignature,
- " ", $psi->processSize,
- " ", $psi->processMode,
- " ", $psi->processLocation,
- " ", $psi->processLauncher,
- " ", $psi->processLaunchDate,
- " ", $psi->processActiveTime,
- " ", $psi->processAppSpec, "\n";
+ print "$psn\t",
+ $psi->processName, " ",
+ $psi->processNumber, " ",
+ $psi->processType, " ",
+ $psi->processSignature, " ",
+ $psi->processSize, " ",
+ $psi->processMode, " ",
+ $psi->processLocation, " ",
+ $psi->processLauncher, " ",
+ $psi->processLaunchDate, " ",
+ $psi->processActiveTime, " ",
+ $psi->processAppSpec, "\n";
}
=head1 DESCRIPTION
==== //depot/maint-5.6/macperl/macos/ext/Mac/Processes/Processes.xs#2 (text) ====
Index: perl/macos/ext/Mac/Processes/Processes.xs
--- perl/macos/ext/Mac/Processes/Processes.xs.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/Processes/Processes.xs Wed Jan 23 13:15:05 2002
@@ -1,4 +1,4 @@
-/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Processes/Processes.xs,v 1.3 2000/09/12 19:42:21 pudge Exp $
+/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Processes/Processes.xs,v 1.4 2002/01/23 05:44:42 pudge Exp $
*
* Copyright (c) 1996 Matthias Neeracher
*
@@ -6,6 +6,9 @@
* as specified in the README file.
*
* $Log: Processes.xs,v $
+ * Revision 1.4 2002/01/23 05:44:42 pudge
+ * Update whitespace etc., from Thomas
+ *
* Revision 1.3 2000/09/12 19:42:21 pudge
* Make LaunchApplication return PSN on success, undef on failure
*
@@ -51,18 +54,17 @@
=head2 LaunchParam
-This Perl hash maps onto the fields of a Launch Parameter Block
-I<(Consult the manual)>.
+This Perl hash maps onto the fields of a Launch Parameter Block.
The fields are:
- launchFileFlags
- launchControlFlags
- launchAppSpec
- launchAvailableSize
- launchProcessSN
- launchPreferredSize
- launchMinimumSize
+ launchFileFlags
+ launchControlFlags
+ launchAppSpec
+ launchAvailableSize
+ launchProcessSN
+ launchPreferredSize
+ launchMinimumSize
=cut
@@ -79,9 +81,8 @@
Returns LaunchParam.
- $launch =
- new LaunchParam(
- launchAppSpec => "volume:apps:myapp", launchMinimumSize => 32000);
+ $launch =
+ new LaunchParam(launchAppSpec => "hd:apps:myapp", launchMinimumSize => 32000);
=cut
LaunchParam
@@ -110,21 +111,20 @@
=head2 ProcessInfo
This Perl hash allows access to the C<ProcessInfo> structure.
-B<(Consult your manual)>.
The field names are:
- processName
- processNumber
- processType
- processSignature
- processSize
- processMode
- processLocation
- processLauncher
- processLaunchDate
- processActiveTime
- processAppSpec
+ processName
+ processNumber
+ processType
+ processSignature
+ processSize
+ processMode
+ processLocation
+ processLauncher
+ processLaunchDate
+ processActiveTime
+ processAppSpec
=cut
==== //depot/maint-5.6/macperl/macos/ext/Mac/QDOffscreen/QDOffscreen.xs#2 (text) ====
Index: perl/macos/ext/Mac/QDOffscreen/QDOffscreen.xs
--- perl/macos/ext/Mac/QDOffscreen/QDOffscreen.xs.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/QDOffscreen/QDOffscreen.xs Wed Jan 23 13:15:05 2002
@@ -172,7 +172,7 @@
long
OffscreenVersion()
-=item 32BIT = PixMap32Bit PIXMAP
+=item IS_32BIT = PixMap32Bit PIXMAP
=cut
Boolean
==== //depot/maint-5.6/macperl/macos/ext/Mac/QuickDraw/QuickDraw.pm#3 (text) ====
Index: perl/macos/ext/Mac/QuickDraw/QuickDraw.pm
--- perl/macos/ext/Mac/QuickDraw/QuickDraw.pm.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/QuickDraw/QuickDraw.pm Wed Jan 23 13:15:05 2002
@@ -399,8 +399,6 @@
=head2 Types
-=over 4
-
=cut
package Pattern;
@@ -418,16 +416,16 @@
image, where ".", " ", "_", and "0" are interpreted as clear pixels, everything
else as set pixels. Indent is removed.
- $love = new Pattern q{
- .XX.XX..
- X..X..X.
- X.....X.
- .X...X..
- ..X.X...
- ...X....
- ........
- ........
- };
+ $love = new Pattern q{
+ .XX.XX..
+ X..X..X.
+ X.....X.
+ .X...X..
+ ..X.X...
+ ...X....
+ ........
+ ........
+ };
=back
@@ -461,40 +459,40 @@
strings of length 32 and a hotspot C<Point>, or from two ASCII images similar
to the patterns above, and a hotspot point.
- $sniper = new Cursor q{
- .......@........
- .......@........
- .....@@@@@......
- ....@..@..@.....
- ...@...@...@....
- ..@....@....@...
- ..@.........@...
- @@@@@@...@@@@@@.
- ..@.........@...
- ..@....@....@...
- ...@...@...@....
- ....@..@..@.....
- .....@@@@@......
- .......@........
- .......@........
- ................
+ $sniper = new Cursor q{
+ .......@........
+ .......@........
+ .....@@@@@......
+ ....@..@..@.....
+ ...@...@...@....
+ ..@....@....@...
+ ..@.........@...
+ @@@@@@...@@@@@@.
+ ..@.........@...
+ ..@....@....@...
+ ...@...@...@....
+ ....@..@..@.....
+ .....@@@@@......
+ .......@........
+ .......@........
+ ................
}, q{
- .......@........
- .......@........
- .....@@@@@......
- ....@..@..@.....
- ...@...@...@....
- ..@....@....@...
- ..@.........@...
- @@@@@@...@@@@@@.
- ..@.........@...
- ..@....@....@...
- ...@...@...@....
- ....@..@..@.....
- .....@@@@@......
- .......@........
- .......@........
- ................
+ .......@........
+ .......@........
+ .....@@@@@......
+ ....@..@..@.....
+ ...@...@...@....
+ ..@....@....@...
+ ..@.........@...
+ @@@@@@...@@@@@@.
+ ..@.........@...
+ ..@....@....@...
+ ...@...@...@....
+ ....@..@..@.....
+ .....@@@@@......
+ .......@........
+ .......@........
+ ................
}, new Point(7,7);
=back
==== //depot/maint-5.6/macperl/macos/ext/Mac/QuickDraw/QuickDraw.xs#2 (text) ====
Index: perl/macos/ext/Mac/QuickDraw/QuickDraw.xs
--- perl/macos/ext/Mac/QuickDraw/QuickDraw.xs.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/QuickDraw/QuickDraw.xs Wed Jan 23 13:15:05 2002
@@ -1,4 +1,4 @@
-/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/QuickDraw/QuickDraw.xs,v 1.2 2000/09/09 22:18:28 neeri Exp $
+/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/QuickDraw/QuickDraw.xs,v 1.3 2002/01/23 05:44:42 pudge Exp $
*
* Copyright (c) 1996 Matthias Neeracher
*
@@ -6,6 +6,9 @@
* as specified in the README file.
*
* $Log: QuickDraw.xs,v $
+ * Revision 1.3 2002/01/23 05:44:42 pudge
+ * Update whitespace etc., from Thomas
+ *
* Revision 1.2 2000/09/09 22:18:28 neeri
* Dynamic libraries compile under 5.6
*
@@ -33,7 +36,7 @@
* Revision 1.1 1997/04/07 20:50:36 neeri
* Synchronized with MacPerl 5.1.4a1
*
- */
+ */
#define MAC_CONTEXT
@@ -75,37 +78,37 @@
A QuickDraw graphics port. Fields are:
- short device;
- BitMap portBits;
- PixMapHandle portPixMap; /*For color ports only*/
- RGBColor rgbOpColor; /*color for addPin subPin and average*/
- RGBColor rgbHiliteColor; /*color for hiliting*/
- Fixed412 chExtra;
- Fixed016 pnLocHFrac;
- Rect portRect;
- RgnHandle visRgn;
- RgnHandle clipRgn;
- Pattern bkPat;
- Pattern fillPat;
- RGBColor rgbFgColor;
- RGBColor rgbBkColor;
- Point pnLoc;
- Point pnSize;
- short pnMode;
- Pattern pnPat;
- short pnVis;
- short txFont;
- U8 txFace;
- short txMode;
- short txSize;
- Fixed spExtra;
- long fgColor;
- long bkColor;
- short colrBit;
+ short device;
+ BitMap portBits;
+ PixMapHandle portPixMap; /* For color ports only */
+ RGBColor rgbOpColor; /* color for addPin subPin and average */
+ RGBColor rgbHiliteColor; /* color for hiliting */
+ Fixed412 chExtra;
+ Fixed016 pnLocHFrac;
+ Rect portRect;
+ RgnHandle visRgn;
+ RgnHandle clipRgn;
+ Pattern bkPat;
+ Pattern fillPat;
+ RGBColor rgbFgColor;
+ RGBColor rgbBkColor;
+ Point pnLoc;
+ Point pnSize;
+ short pnMode;
+ Pattern pnPat;
+ short pnVis;
+ short txFont;
+ U8 txFace;
+ short txMode;
+ short txSize;
+ Fixed spExtra;
+ long fgColor;
+ long bkColor;
+ short colrBit;
=cut
STRUCT * GrafPtr
- short device;
+ short device;
BitMap portBits;
PixMapHandle portPixMap;
READ_ONLY
@@ -115,7 +118,7 @@
} else {
XS_OUTPUT(SV *, &PL_sv_undef, $arg);
}
- RGBColor rgbOpColor; /*color for addPin subPin and average*/
+ RGBColor rgbOpColor; /* color for addPin subPin and average */
READ_ONLY
OUTPUT:
if (COLORPORT(STRUCT)) {
@@ -124,7 +127,7 @@
} else {
XS_OUTPUT(SV *, &PL_sv_undef, $arg);
}
- RGBColor rgbHiliteColor; /*color for hiliting*/
+ RGBColor rgbHiliteColor; /* color for hiliting */
READ_ONLY
OUTPUT:
if (COLORPORT(STRUCT)) {
@@ -218,8 +221,8 @@
A bitmap. All accessible fields are read-only:
- short rowBytes;
- Rect bounds;
+ short rowBytes;
+ Rect bounds;
=cut
STRUCT BitMap
@@ -232,8 +235,8 @@
A region. All accessible fields are read-only:
- short rgnSize;
- Rect rgnBBox;
+ short rgnSize;
+ Rect rgnBBox;
=over 4
@@ -245,7 +248,7 @@
=cut
STRUCT ** RgnHandle
- short rgnSize;
+ short rgnSize;
READ_ONLY
Rect rgnBBox;
READ_ONLY
@@ -254,8 +257,8 @@
A QuickDraw picture. All accessible fields are read-only:
- short picSize
- Rect picFrame
+ short picSize
+ Rect picFrame
=over 4
@@ -278,8 +281,8 @@
A polygon. All accessible fields are read-only:
- short polySize;
- Rect polyBBox;
+ short polySize;
+ Rect polyBBox;
=cut
STRUCT ** PolyHandle
@@ -292,15 +295,15 @@
A RGB color value. The color components are accessible
- U16 red;
- U16 green;
- U16 blue;
+ U16 red;
+ U16 green;
+ U16 blue;
=cut
STRUCT RGBColor
- U16 red;
- U16 green;
- U16 blue;
+ U16 red;
+ U16 green;
+ U16 blue;
=over 4
@@ -314,10 +317,10 @@
A structure with the following members:
- Point pnLoc;
- Point pnSize;
- short pnMode;
- Pattern pnPat;
+ Point pnLoc;
+ Point pnSize;
+ short pnMode;
+ Pattern pnPat;
=cut
STRUCT PenState
@@ -332,8 +335,8 @@
A point, featuring the following fields
- short h;
- short v;
+ short h;
+ short v;
=cut
STRUCT Point
@@ -366,12 +369,12 @@
A rectangle, featuring the following fields
- short top
- short left
- short bottom
- short right
- Point topLeft
- Point botRight
+ short top
+ short left
+ short bottom
+ short right
+ Point topLeft
+ Point botRight
=cut
STRUCT Rect
@@ -413,176 +416,176 @@
A pixel map, the color equivalent to a bitmap.
- short rowBytes; /*offset to next line*/
- Rect bounds; /*encloses bitmap*/
- short pmVersion; /*pixMap version number*/
- short packType; /*defines packing format*/
- long packSize; /*length of pixel data*/
- Fixed hRes; /*horiz. resolution (ppi)*/
- Fixed vRes; /*vert. resolution (ppi)*/
- short pixelType; /*defines pixel type*/
- short pixelSize; /*# bits in pixel*/
- short cmpCount; /*# components in pixel*/
- short cmpSize; /*# bits per component*/
- long planeBytes; /*offset to next plane*/
- CTabHandle pmTable; /*color map for this pixMap*/
+ short rowBytes; /* offset to next line */
+ Rect bounds; /* encloses bitmap */
+ short pmVersion; /* pixMap version number */
+ short packType; /* defines packing format */
+ long packSize; /* length of pixel data */
+ Fixed hRes; /* horiz. resolution (ppi) */
+ Fixed vRes; /* vert. resolution (ppi) */
+ short pixelType; /* defines pixel type */
+ short pixelSize; /* bits in pixel */
+ short cmpCount; /* components in pixel */
+ short cmpSize; /* bits per component */
+ long planeBytes; /* offset to next plane */
+ CTabHandle pmTable; /* color map for this pixMap */
=cut
STRUCT PixMap
- short rowBytes; /*offset to next line*/
- Rect bounds; /*encloses bitmap*/
- short pmVersion; /*pixMap version number*/
- short packType; /*defines packing format*/
- long packSize; /*length of pixel data*/
- Fixed hRes; /*horiz. resolution (ppi)*/
- Fixed vRes; /*vert. resolution (ppi)*/
- short pixelType; /*defines pixel type*/
- short pixelSize; /*# bits in pixel*/
- short cmpCount; /*# components in pixel*/
- short cmpSize; /*# bits per component*/
- long planeBytes; /*offset to next plane*/
- CTabHandle pmTable; /*color map for this pixMap*/
+ short rowBytes; /* offset to next line */
+ Rect bounds; /* encloses bitmap */
+ short pmVersion; /* pixMap version number */
+ short packType; /* defines packing format */
+ long packSize; /* length of pixel data */
+ Fixed hRes; /* horiz. resolution (ppi) */
+ Fixed vRes; /* vert. resolution (ppi) */
+ short pixelType; /* defines pixel type */
+ short pixelSize; /* # bits in pixel */
+ short cmpCount; /* # components in pixel */
+ short cmpSize; /* # bits per component */
+ long planeBytes; /* offset to next plane */
+ CTabHandle pmTable; /* color map for this pixMap */
=item PixMapHandle
A pixel map, the color equivalent to a bitmap.
- short rowBytes; /*offset to next line*/
- Rect bounds; /*encloses bitmap*/
- short pmVersion; /*pixMap version number*/
- short packType; /*defines packing format*/
- long packSize; /*length of pixel data*/
- Fixed hRes; /*horiz. resolution (ppi)*/
- Fixed vRes; /*vert. resolution (ppi)*/
- short pixelType; /*defines pixel type*/
- short pixelSize; /*# bits in pixel*/
- short cmpCount; /*# components in pixel*/
- short cmpSize; /*# bits per component*/
- long planeBytes; /*offset to next plane*/
- CTabHandle pmTable; /*color map for this pixMap*/
+ short rowBytes; /* offset to next line */
+ Rect bounds; /* encloses bitmap */
+ short pmVersion; /* pixMap version number */
+ short packType; /* defines packing format */
+ long packSize; /* length of pixel data */
+ Fixed hRes; /* horiz. resolution (ppi) */
+ Fixed vRes; /* vert. resolution (ppi) */
+ short pixelType; /* defines pixel type */
+ short pixelSize; /* bits in pixel */
+ short cmpCount; /* components in pixel */
+ short cmpSize; /* bits per component */
+ long planeBytes; /* offset to next plane */
+ CTabHandle pmTable; /* color map for this pixMap */
=cut
STRUCT ** PixMapHandle
- short rowBytes; /*offset to next line*/
- Rect bounds; /*encloses bitmap*/
- short pmVersion; /*pixMap version number*/
- short packType; /*defines packing format*/
- long packSize; /*length of pixel data*/
- Fixed hRes; /*horiz. resolution (ppi)*/
- Fixed vRes; /*vert. resolution (ppi)*/
- short pixelType; /*defines pixel type*/
- short pixelSize; /*# bits in pixel*/
- short cmpCount; /*# components in pixel*/
- short cmpSize; /*# bits per component*/
- long planeBytes; /*offset to next plane*/
- CTabHandle pmTable; /*color map for this pixMap*/
+ short rowBytes; /* offset to next line */
+ Rect bounds; /* encloses bitmap */
+ short pmVersion; /* pixMap version number */
+ short packType; /* defines packing format */
+ long packSize; /* length of pixel data */
+ Fixed hRes; /* horiz. resolution (ppi) */
+ Fixed vRes; /* vert. resolution (ppi) */
+ short pixelType; /* defines pixel type */
+ short pixelSize; /* # bits in pixel */
+ short cmpCount; /* # components in pixel */
+ short cmpSize; /* # bits per component */
+ long planeBytes; /* offset to next plane */
+ CTabHandle pmTable; /* color map for this pixMap */
=item PixPatHandle
A pixel pattern.
- short patType; /*type of pattern*/
- PixMapHandle patMap; /*the pattern's pixMap*/
- Handle patData; /*pixmap's data*/
- Handle patXData; /*expanded Pattern data*/
- short patXValid; /*flags whether expanded Pattern valid*/
- Handle patXMap; /*Handle to expanded Pattern data*/
- Pattern pat1Data; /*old-Style pattern/RGB color*/
+ short patType; /* type of pattern */
+ PixMapHandle patMap; /* the pattern's pixMap */
+ Handle patData; /* pixmap's data */
+ Handle patXData; /* expanded Pattern data */
+ short patXValid; /* flags whether expanded Pattern valid */
+ Handle patXMap; /* Handle to expanded Pattern data */
+ Pattern pat1Data; /* old-Style pattern/RGB color */
=cut
STRUCT ** PixPatHandle
- short patType; /*type of pattern*/
- PixMapHandle patMap; /*the pattern's pixMap*/
- Handle patData; /*pixmap's data*/
- Handle patXData; /*expanded Pattern data*/
- short patXValid; /*flags whether expanded Pattern valid*/
- Handle patXMap; /*Handle to expanded Pattern data*/
- Pattern pat1Data; /*old-Style pattern/RGB color*/
+ short patType; /* type of pattern */
+ PixMapHandle patMap; /* the pattern's pixMap */
+ Handle patData; /* pixmap's data */
+ Handle patXData; /* expanded Pattern data */
+ short patXValid; /* flags whether expanded Pattern valid */
+ Handle patXMap; /* Handle to expanded Pattern data */
+ Pattern pat1Data; /* old-Style pattern/RGB color */
=item CTabHandle
A color table. Currently, the colors are not yet accessible, but the following are:
- long ctSeed; /*unique identifier for table*/
- short ctFlags; /*high bit: 0 = PixMap; 1 = device*/
- short ctSize; /*number of entries in CTTable*/
+ long ctSeed; /* unique identifier for table */
+ short ctFlags; /* high bit: 0 = PixMap; 1 = device */
+ short ctSize; /* number of entries in CTTable */
=cut
STRUCT ** CTabHandle
- long ctSeed; /*unique identifier for table*/
- short ctFlags; /*high bit: 0 = PixMap; 1 = device*/
- short ctSize; /*number of entries in CTTable*/
+ long ctSeed; /* unique identifier for table */
+ short ctFlags; /* high bit: 0 = PixMap; 1 = device */
+ short ctSize; /* number of entries in CTTable */
=item CCrsrHandle
A color cursor.
- short crsrType; /*type of cursor*/
- PixMapHandle crsrMap; /*the cursor's pixmap*/
- Handle crsrData; /*cursor's data*/
- Handle crsrXData; /*expanded cursor data*/
- short crsrXValid; /*depth of expanded data (0 if none)*/
- Cursor crsr1; /*one-bit cursor and hotspot*/
+ short crsrType; /* type of cursor */
+ PixMapHandle crsrMap; /* the cursor's pixmap */
+ Handle crsrData; /* cursor's data */
+ Handle crsrXData; /* expanded cursor data */
+ short crsrXValid; /* depth of expanded data (0 if none) */
+ Cursor crsr1; /* one-bit cursor and hotspot */
=cut
STRUCT ** CCrsrHandle
- short crsrType; /*type of cursor*/
- PixMapHandle crsrMap; /*the cursor's pixmap*/
- Handle crsrData; /*cursor's data*/
- Handle crsrXData; /*expanded cursor data*/
- short crsrXValid; /*depth of expanded data (0 if none)*/
- Cursor crsr1; /*one-bit cursor and hotspot*/
+ short crsrType; /* type of cursor */
+ PixMapHandle crsrMap; /* the cursor's pixmap */
+ Handle crsrData; /* cursor's data */
+ Handle crsrXData; /* expanded cursor data */
+ short crsrXValid; /* depth of expanded data (0 if none) */
+ Cursor crsr1; /* one-bit cursor and hotspot */
ALIAS *(Cursor *)&STRUCT[0]->crsr1Data
=item CIconHandle
A color icon
- PixMap iconPMap; /*the icon's pixMap*/
- BitMap iconMask; /*the icon's mask*/
- BitMap iconBMap; /*the icon's bitMap*/
- Handle iconData; /*the icon's data*/
+ PixMap iconPMap; /* the icon's pixMap */
+ BitMap iconMask; /* the icon's mask */
+ BitMap iconBMap; /* the icon's bitMap */
+ Handle iconData; /* the icon's data */
=cut
STRUCT ** CIconHandle
- PixMap iconPMap; /*the icon's pixMap*/
- BitMap iconMask; /*the icon's mask*/
- BitMap iconBMap; /*the icon's bitMap*/
- Handle iconData; /*the icon's data*/
+ PixMap iconPMap; /* the icon's pixMap */
+ BitMap iconMask; /* the icon's mask */
+ BitMap iconBMap; /* the icon's bitMap */
+ Handle iconData; /* the icon's data */
=item GDHandle
A graphics device
- short gdRefNum; /*driver's unit number*/
- short gdID; /*client ID for search procs*/
- short gdType; /*fixed/CLUT/direct*/
- short gdResPref; /*preferred resolution of GDITable*/
- short gdFlags; /*grafDevice flags word*/
- PixMapHandle gdPMap; /*describing pixMap*/
- long gdRefCon; /*reference value*/
- GDHandle gdNextGD; /*GDHandle Handle of next gDevice*/
- Rect gdRect; /* device's bounds in global coordinates*/
- long gdMode; /*device's current mode*/
- short gdCCBytes; /*depth of expanded cursor data*/
- short gdCCDepth; /*depth of expanded cursor data*/
+ short gdRefNum; /* driver's unit number */
+ short gdID; /* client ID for search procs */
+ short gdType; /* fixed/CLUT/direct */
+ short gdResPref; /* preferred resolution of GDITable */
+ short gdFlags; /* grafDevice flags word */
+ PixMapHandle gdPMap; /* describing pixMap */
+ long gdRefCon; /* reference value */
+ GDHandle gdNextGD; /* GDHandle Handle of next gDevice */
+ Rect gdRect; /* device's bounds in global coordinates */
+ long gdMode; /* device's current mode */
+ short gdCCBytes; /* depth of expanded cursor data */
+ short gdCCDepth; /* depth of expanded cursor data */
=cut
STRUCT ** GDHandle
- short gdRefNum; /*driver's unit number*/
- short gdID; /*client ID for search procs*/
- short gdType; /*fixed/CLUT/direct*/
- short gdResPref; /*preferred resolution of GDITable*/
- short gdFlags; /*grafDevice flags word*/
- PixMapHandle gdPMap; /*describing pixMap*/
- long gdRefCon; /*reference value*/
- GDHandle gdNextGD; /*Handle of next gDevice*/
+ short gdRefNum; /* driver's unit number */
+ short gdID; /* client ID for search procs */
+ short gdType; /* fixed/CLUT/direct */
+ short gdResPref; /* preferred resolution of GDITable */
+ short gdFlags; /* grafDevice flags word */
+ PixMapHandle gdPMap; /* describing pixMap */
+ long gdRefCon; /* reference value */
+ GDHandle gdNextGD; /* Handle of next gDevice */
INPUT:
XS_INPUT(GDHandle, *(GDHandle *)&STRUCT[0]->gdNextGD, $arg);
- Rect gdRect; /* device's bounds in global coordinates*/
- long gdMode; /*device's current mode*/
- short gdCCBytes; /*depth of expanded cursor data*/
- short gdCCDepth; /*depth of expanded cursor data*/
+ Rect gdRect; /* device's bounds in global coordinates */
+ long gdMode; /* device's current mode */
+ short gdCCBytes; /* depth of expanded cursor data */
+ short gdCCDepth; /* depth of expanded cursor data */
=back
@@ -2301,7 +2304,7 @@
Return the resolution of the screen.
- ($hres, $vres) = ScreenRes;
+ ($hres, $vres) = ScreenRes;
=cut
void
@@ -2336,8 +2339,8 @@
Map a pixel position into a character position.
- ($characterPosition, $leadingEdge, $widthRemaining) =
- PixelToChar("Hello, World", 0, 35, smMiddleStyleRun);
+ ($characterPosition, $leadingEdge, $widthRemaining) =
+ PixelToChar("Hello, World", 0, 35, smMiddleStyleRun);
=cut
void
@@ -2524,7 +2527,7 @@
Get measurements for a font.
- ($ascent, $descend, $maxWidth, $leading) = GetFontInfo();
+ ($ascent, $descend, $maxWidth, $leading) = GetFontInfo();
=cut
void
==== //depot/maint-5.6/macperl/macos/ext/Mac/QuickTimeVR/QuickTimeVR.xs#3 (text) ====
Index: perl/macos/ext/Mac/QuickTimeVR/QuickTimeVR.xs
--- perl/macos/ext/Mac/QuickTimeVR/QuickTimeVR.xs.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/QuickTimeVR/QuickTimeVR.xs Wed Jan 23 13:15:05 2002
@@ -783,7 +783,7 @@
=item QTVRPtToAngles QTVR, PT
- ($panAngle, $tiltAngle) = QTVRPtToAngles($qtvr, $pt);
+ ($panAngle, $tiltAngle) = QTVRPtToAngles($qtvr, $pt);
=cut
void
@@ -805,7 +805,7 @@
=item QTVRCoordToAngles QTVR, COORD
- ($panAngle, $tiltAngle) = QTVRCoordToAngles($qtvr, $coord);
+ ($panAngle, $tiltAngle) = QTVRCoordToAngles($qtvr, $coord);
=cut
void
@@ -1001,7 +1001,7 @@
=item QTVRGetViewingLimits QTVR, KIND
- ($minValue, $maxValue) = QTVRGetViewingLimits($qtvr, $kind);
+ ($minValue, $maxValue) = QTVRGetViewingLimits($qtvr, $kind);
=cut
void
@@ -1031,7 +1031,7 @@
=item QTVRGetConstraints QTVR, KIND
- ($minValue, $maxValue) = QTVRGetConstraints($qtvr, $kind);
+ ($minValue, $maxValue) = QTVRGetConstraints($qtvr, $kind);
=cut
void
@@ -1078,7 +1078,7 @@
=item QTVRGetCacheMemInfo QTVR, RESOLUTION, CACHEDEPTH
- ($minCache, $suggestedCache, $maxCache) = QTVRGetCacheMemInfo($qtvr, $res, $depth);
+ ($minCache, $suggestedCache, $maxCache) = QTVRGetCacheMemInfo($qtvr, $res, $depth);
=cut
void
@@ -1103,7 +1103,7 @@
=item QTVRGetCacheSettings QTVR
- ($resolution, $cacheDepth, $cacheSize) = QTVRGetCacheSettings($qtvr);
+ ($resolution, $cacheDepth, $cacheSize) = QTVRGetCacheSettings($qtvr);
=cut
void
==== //depot/maint-5.6/macperl/macos/ext/Mac/Resources/Resources.pm#3 (text) ====
Index: perl/macos/ext/Mac/Resources/Resources.pm
--- perl/macos/ext/Mac/Resources/Resources.pm.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/Resources/Resources.pm Wed Jan 23 13:15:05 2002
@@ -4,8 +4,8 @@
=head1 SYNOPSIS
- use Mac::Memory;
- use Mac::Resources;
+ use Mac::Memory;
+ use Mac::Resources;
=head1 DESCRIPTION
@@ -131,7 +131,7 @@
=item kResFileNotOpened
-Returned after an unsuccessful call to C<OpenResFile()>
+Returned after an unsuccessful call to C<OpenResFile()>.
=cut
sub kResFileNotOpened () { -1; }
==== //depot/maint-5.6/macperl/macos/ext/Mac/Resources/Resources.xs#2 (text) ====
Index: perl/macos/ext/Mac/Resources/Resources.xs
--- perl/macos/ext/Mac/Resources/Resources.xs.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/Resources/Resources.xs Wed Jan 23 13:15:05 2002
@@ -1,4 +1,4 @@
-/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Resources/Resources.xs,v 1.2 2000/09/09 22:18:28 neeri Exp $
+/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Resources/Resources.xs,v 1.3 2002/01/23 05:44:42 pudge Exp $
*
* Copyright (c) 1996 Matthias Neeracher
*
@@ -6,6 +6,9 @@
* as specified in the README file.
*
* $Log: Resources.xs,v $
+ * Revision 1.3 2002/01/23 05:44:42 pudge
+ * Update whitespace etc., from Thomas
+ *
* Revision 1.2 2000/09/09 22:18:28 neeri
* Dynamic libraries compile under 5.6
*
@@ -83,7 +86,7 @@
(before opening the resource fork of any other file) to get the file reference
number of your application's resource fork.
- $RFD = CurResFile;
+ $RFD = CurResFile;
=cut
short
@@ -98,7 +101,7 @@
resource is in the System file's resource fork. If HomeResFile returns 1, the
resource is ROM-resident.
- $RFD = HomeResFile($Resource);
+ $RFD = HomeResFile($Resource);
=cut
short
@@ -111,11 +114,11 @@
The CreateResFile procedure creates an empty resource file.
- if ( CreateResFile("Resource.rsrc")) {
- # error occurred
- } else {
- # proceed
- }
+ if ( CreateResFile("Resource.rsrc")) {
+ # error occurred
+ } else {
+ # proceed
+ }
=cut
void
@@ -129,11 +132,11 @@
The OpenResFile function opens an existing resource file. It also makes this file
the current resource file.
- if ( defined($RFD = OpenResFile("Resource.rsrc")) ) {
- # proceed
- } else {
- # error occurred
- }
+ if ( defined($RFD = OpenResFile("Resource.rsrc")) ) {
+ # proceed
+ } else {
+ # error occurred
+ }
=cut
short
@@ -151,11 +154,11 @@
UseResFile does nothing. To set the current resource file to the System file, use
0 for the refNum parameter.
- if (UseResFile($RFD)) {
- # error occurred
- } else {
- # proceed
- }
+ if (UseResFile($RFD)) {
+ # error occurred
+ } else {
+ # proceed
+ }
=cut
void
@@ -173,7 +176,7 @@
(the current resource fork) open to your application. It returns an integer representing the
total number of unique resource types.
- $types = Count1Types;
+ $types = Count1Types;
=cut
short
@@ -195,10 +198,10 @@
index isn't in the range from 1 to the number of resource types as returned by
CountTypes, undef() is returned.
- # Load up @resourceTypes with the types from the current file.
- for (1 .. Count1Types) {
- $resourceTypes[$_-1] = Get1IndType($_);
- }
+ # Load up @resourceTypes with the types from the current file.
+ for (1 .. Count1Types) {
+ $resourceTypes[$_-1] = Get1IndType($_);
+ }
=cut
OSType
@@ -238,7 +241,7 @@
Get the total number of available resources of a given type. Count1Resources
looks only at the current resource fork.
- $totalDialogsAvailable = CountResources "DITL";
+ $totalDialogsAvailable = CountResources "DITL";
=cut
short
@@ -260,10 +263,10 @@
entire range of the index, it returns handles to all resources of the given type
in all resource forks open to your application.
- # Load up handles of this type of resource
- for (1 .. CountResources("DITL")) {
- $dialogs[$_] = GetIndResource("DITL", $_);
- }
+ # Load up handles of this type of resource
+ for (1 .. CountResources("DITL")) {
+ $dialogs[$_] = GetIndResource("DITL", $_);
+ }
=cut
Handle
@@ -286,10 +289,10 @@
Get resource data for a resource specified by resource type and resource ID.
- $SFGdialog = GetResource("DITL", 6042);
- if ( defined $SFGdialog ) {
- # proceed
- }
+ $SFGdialog = GetResource("DITL", 6042);
+ if ( defined $SFGdialog ) {
+ # proceed
+ }
=cut
Handle
@@ -313,10 +316,10 @@
The GetNamedResource (Get1NamedResource) function searches the resource maps in memory for the
resource specified by the parameters $TYPE and $NAME.
- $SFGdialog = GetNamedResource("DITL", "Standard Get");
- if ( defined $SFGdialog ) {
- # proceed
- }
+ $SFGdialog = GetNamedResource("DITL", "Standard Get");
+ if ( defined $SFGdialog ) {
+ # proceed
+ }
=cut
Handle
@@ -339,11 +342,11 @@
If the HANDLE parameter doesn't contain a handle to a resource, then LoadResource
returns undef.
- if (LoadResource($HANDLE) ) {
- # proceed
- } else {
- # error occurred
- }
+ if (LoadResource($HANDLE) ) {
+ # proceed
+ } else {
+ # error occurred
+ }
=cut
void
@@ -361,11 +364,11 @@
subsequently calls the Resource Manager to get the released resource, the
Resource Manager assigns a new handle.
- if ( ReleaseResource($HANDLE) ) {
- # proceed
- } else {
- # error occurred
- }
+ if ( ReleaseResource($HANDLE) ) {
+ # proceed
+ } else {
+ # error occurred
+ }
=cut
void
@@ -383,11 +386,11 @@
subsequently calls the Resource Manager to get the released resource, the
Resource Manager assigns a new handle.
- if ( DetachResource($HANDLE) ) {
- # proceed
- } else {
- # error occurred
- }
+ if ( DetachResource($HANDLE) ) {
+ # proceed
+ } else {
+ # error occurred
+ }
=cut
void
@@ -406,7 +409,7 @@
ensure that you don't duplicate a resource ID and override an existing resource.
Unique1ID ensures uniqueness within the current resource fork.
- $id = Unique1ID("DITL");
+ $id = Unique1ID("DITL");
=cut
short
@@ -424,10 +427,10 @@
attributes as recorded in its entry in the resource map in memory. If the value
of the theResource parameter isn't a handle to a valid resource, undef is returned.
- $resAttrs = GetResAttrs($HANDLE);
- if ( defined $resAttrs ) {
- # proceed
- }
+ $resAttrs = GetResAttrs($HANDLE);
+ if ( defined $resAttrs ) {
+ # proceed
+ }
=cut
short
@@ -442,10 +445,10 @@
resource ID, resource type, and resource name. If the handle isn't a valid handle
to a resource, undef is returned.
- ($id, $type, $name) = GetResInfo($HANDLE);
- if ( defined $id ) {
- # proceed
- }
+ ($id, $type, $name) = GetResInfo($HANDLE);
+ if ( defined $id ) {
+ # proceed
+ }
=cut
void
@@ -531,10 +534,10 @@
of a resource on disk, either call &GetResourceSizeOnDisk or call &UpdateResFile
before calling GetMaxResourceSize.
- $size = GetMaxResourceSize($HANDLE);
- if ( defined $size ) {
- # proceed
- }
+ $size = GetMaxResourceSize($HANDLE);
+ if ( defined $size ) {
+ # proceed
+ }
=cut
long
@@ -551,10 +554,10 @@
returns the result code resNotFound. If you pass a handle whose value is NIL,
RsrcMapEntry returns arbitrary data.
- $offset = RsrcMapEntry($HANDLE);
- if ( defined $offset ) {
- # proceed
- }
+ $offset = RsrcMapEntry($HANDLE);
+ if ( defined $offset ) {
+ # proceed
+ }
=cut
long
@@ -572,11 +575,11 @@
effect the next time the specified resource is read into memory but are not made
permanent until the Resource Manager updates the resource fork.
- if ( SetResAttrs($HANDLE, $ATTRS) ) {
- # proceed
- } else {
- # error
- }
+ if ( SetResAttrs($HANDLE, $ATTRS) ) {
+ # proceed
+ } else {
+ # error
+ }
=cut
void
@@ -597,11 +600,11 @@
attribute for a resource has been set and your application calls &WriteResource,
the Resource Manager writes only the resource data for that resource to disk.
- if ( ChangedResource($HANDLE) ) {
- # proceed
- } else {
- # error
- }
+ if ( ChangedResource($HANDLE) ) {
+ # proceed
+ } else {
+ # error
+ }
=cut
void
@@ -616,11 +619,11 @@
the resource entry (resource type, resource ID, resource name, if any, and
resource attributes) from the current resource file's resource map in memory.
- if ( RemoveResource($HANDLE) ) {
- # proceed
- } else {
- # error
- }
+ if ( RemoveResource($HANDLE) ) {
+ # proceed
+ } else {
+ # error
+ }
=cut
void
@@ -639,11 +642,11 @@
procedure calls the &WriteResource procedure to write changed or added resources
to the resource fork.
- if ( UpdateResFile($RFD) ) {
- # proceed
- } else {
- # error
- }
+ if ( UpdateResFile($RFD) ) {
+ # proceed
+ } else {
+ # error
+ }
=cut
void
@@ -660,11 +663,11 @@
resource data in memory to the resource fork, then clears the resChanged
attribute in the resource's resource map in memory.
- if ( WriteResource($HANDLE) ) {
- # proceed
- } else {
- # error
- }
+ if ( WriteResource($HANDLE) ) {
+ # proceed
+ } else {
+ # error
+ }
=cut
void
@@ -687,11 +690,11 @@
Memory Manager purges resource data when it needs to without calling the Resource
Manager.
- if ( SetResPurge(1) ) {
- # proceed
- } else {
- # error
- }
+ if ( SetResPurge(1) ) {
+ # proceed
+ } else {
+ # error
+ }
=cut
void
@@ -707,10 +710,10 @@
the attributes of the System file's resource fork. If there's no open resource
fork for the given file reference number, undef is returned.
- $rfa = GetResFileAttrs($RFD);
- if ( defined $rfa ) {
- # proceed
- }
+ $rfa = GetResFileAttrs($RFD);
+ if ( defined $rfa ) {
+ # proceed
+ }
=cut
short
@@ -728,11 +731,11 @@
there's no resource fork with the given reference number, SetResFileAttrs does
nothing, and the ResError function returns the result code noErr.
- if ( SetResFileAttrs($RFD, $ATTRS) ) {
- # proceed
- } else {
- # error
- }
+ if ( SetResFileAttrs($RFD, $ATTRS) ) {
+ # proceed
+ } else {
+ # error
+ }
=cut
void
@@ -758,10 +761,10 @@
time it looks in the resource map of the ROM-resident resources before searching
the resource map of the System file.
- $handle = RGetResource("DITL", 6042);
- if ( defined $handle ) {
- # proceed
- }
+ $handle = RGetResource("DITL", 6042);
+ if ( defined $handle ) {
+ # proceed
+ }
=cut
Handle
@@ -776,10 +779,10 @@
The FSpOpenResFile function opens the resource fork of the file identified by the
spec parameter. It also makes this file the current resource file.
- $sp = FSpOpenResFile($SPEC);
- if ( defined $sp ) {
- # proceed
- }
+ $sp = FSpOpenResFile($SPEC);
+ if ( defined $sp ) {
+ # proceed
+ }
In addition to opening the resource fork for the file with the specified name,
FSpOpenResFile lets you specify in the permission parameter the read/write permission
@@ -800,11 +803,11 @@
designated by the spec parameter. (An empty resource fork contains no resource
data but does include a resource map.)
- if ( FSpCreateResFile($SPEC, $CREATOR, $FILETYPE, $SCRIPTTAG) ) {
- # proceed
- } else {
- # error
- }
+ if ( FSpCreateResFile($SPEC, $CREATOR, $FILETYPE, $SCRIPTTAG) ) {
+ # proceed
+ } else {
+ # error
+ }
=cut
void
@@ -821,7 +824,7 @@
The ReadPartialResource procedure reads the resource subsection identified by the
theResource, offset, and count parameters.
- $data = ReadPartialResource($rsrc, 2000, 256);
+ $data = ReadPartialResource($rsrc, 2000, 256);
=cut
SV *
@@ -841,11 +844,11 @@
The WritePartialResource procedure writes the data specified by DATA
to the resource subsection identified by the HANDLE and OFFSET parameters.
- if ( WritePartialResource($HANDLE, $OFFSET, $DATA) ) {
- # proceed
- } else {
- # error
- }
+ if ( WritePartialResource($HANDLE, $OFFSET, $DATA) ) {
+ # proceed
+ } else {
+ # error
+ }
=cut
void
@@ -867,11 +870,11 @@
specified resource on disk without writing the resource data. You can change the
size of any resource, regardless of the amount of memory you have available.
- if ( SetResource($HANDLE, $SIZE) ) {
- # proceed
- } else {
- # error
- }
+ if ( SetResource($HANDLE, $SIZE) ) {
+ # proceed
+ } else {
+ # error
+ }
=cut
void
==== //depot/maint-5.6/macperl/macos/ext/Mac/SAT/SAT.pm#3 (text) ====
Index: perl/macos/ext/Mac/SAT/SAT.pm
--- perl/macos/ext/Mac/SAT/SAT.pm.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/SAT/SAT.pm Wed Jan 23 13:15:05 2002
@@ -131,7 +131,7 @@
=head2 Constants
-=over 4
+Not yet documented.
=cut
@@ -152,8 +152,9 @@
=head1 AUTHOR(S)
-Sprite Animation Toolkit by Ingemar Ragnemalm <[email protected]>
-MacPerl SAT glue by Matthias Ulrich Neeracher <[email protected]>
+Sprite Animation Toolkit by Ingemar Ragnemalm <[email protected]>
+
+MacPerl SAT glue by Matthias Ulrich Neeracher <[email protected]>
=cut
==== //depot/maint-5.6/macperl/macos/ext/Mac/SAT/SAT.xs#2 (text) ====
Index: perl/macos/ext/Mac/SAT/SAT.xs
--- perl/macos/ext/Mac/SAT/SAT.xs.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/SAT/SAT.xs Wed Jan 23 13:15:05 2002
@@ -183,6 +183,8 @@
=head2 Functions
+Not yet documented.
+
=over 4
=cut
==== //depot/maint-5.6/macperl/macos/ext/Mac/Sound/Sound.pm#3 (text) ====
Index: perl/macos/ext/Mac/Sound/Sound.pm
--- perl/macos/ext/Mac/Sound/Sound.pm.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/Sound/Sound.pm Wed Jan 23 13:15:05 2002
@@ -349,6 +349,8 @@
=head2 Constants
+Not yet documented.
+
=over 4
=cut
==== //depot/maint-5.6/macperl/macos/ext/Mac/Sound/Sound.xs#2 (text) ====
Index: perl/macos/ext/Mac/Sound/Sound.xs
--- perl/macos/ext/Mac/Sound/Sound.xs.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/Sound/Sound.xs Wed Jan 23 13:15:05 2002
@@ -54,6 +54,8 @@
=head2 Structures
+Not yet documented.
+
=over 4
=cut
@@ -100,6 +102,8 @@
=head2 Functions
+Not yet documented.
+
=over 4
=cut
@@ -621,6 +625,7 @@
=end ignore
+=cut
long
SPBMillisecondsToBytes(inRefNum)
long inRefNum
==== //depot/maint-5.6/macperl/macos/ext/Mac/Speech/Speech.pm#3 (text) ====
Index: perl/macos/ext/Mac/Speech/Speech.pm
--- perl/macos/ext/Mac/Speech/Speech.pm.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/Speech/Speech.pm Wed Jan 23 13:15:05 2002
@@ -4,7 +4,7 @@
=head1 SYNOPSIS
- use Mac::Speech;
+ use Mac::Speech;
=head1 DESCRIPTION
@@ -45,7 +45,7 @@
SetSpeechRate
GetSpeechRate
GetSpeechPitch
- SetSpeechPitch
+ SetSpeechPitch
TextToPhonemes
kTextToSpeechSynthType
@@ -62,7 +62,7 @@
kMale
kFemale
- %Voice
+ %Voice
);
}
==== //depot/maint-5.6/macperl/macos/ext/Mac/SpeechRecognition/SpeechRecognition.pm#3 (text) ====
Index: perl/macos/ext/Mac/SpeechRecognition/SpeechRecognition.pm
--- perl/macos/ext/Mac/SpeechRecognition/SpeechRecognition.pm.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/ext/Mac/SpeechRecognition/SpeechRecognition.pm Wed Jan 23 13:15:05 2002
@@ -4,7 +4,7 @@
=head1 SYNOPSIS
- use Mac::SpeechRecognition;
+ use Mac::SpeechRecognition;
=head1 DESCRIPTION
==== //depot/maint-5.6/macperl/macos/lib/Mac/Glue.pm#5 (text) ====
Index: perl/macos/lib/Mac/Glue.pm
--- perl/macos/lib/Mac/Glue.pm.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/lib/Mac/Glue.pm Wed Jan 23 13:15:05 2002
@@ -38,7 +38,7 @@
);
#=============================================================================#
-# $Id: Glue.pm,v 1.5 2002/01/15 14:12:43 pudge Exp $
+# $Id: Glue.pm,v 1.5 2002/01/15 05:16:59 pudge Exp $
($REVISION) = ' $Revision: 1.5 $ ' =~ /\$Revision:\s+([^\s]+)/;
$VERSION = '1.01';
@ISA = 'Exporter';
==== //depot/maint-5.6/macperl/macos/lib/Mac/OSA/Simple.pm#2 (text) ====
Index: perl/macos/lib/Mac/OSA/Simple.pm
--- perl/macos/lib/Mac/OSA/Simple.pm.~1~ Wed Jan 23 13:15:05 2002
+++ perl/macos/lib/Mac/OSA/Simple.pm Wed Jan 23 13:15:05 2002
@@ -17,7 +17,8 @@
load_osa_script %ScriptComponents);
@EXPORT_OK = @Mac::OSA::EXPORT;
%EXPORT_TAGS = (all => [@EXPORT, @EXPORT_OK]);
-$VERSION = '0.51';
+$REVISION = '$Id: Simple.pm,v 1.2 2002/01/23 05:45:12 pudge Exp $';
+$VERSION = '1.00';
tie %ScriptComponents, 'Mac::OSA::Simple::Components';
@@ -233,6 +234,7 @@
package Mac::OSA::Simple; # odd "fix" for AutoSplit
1;
+
__END__
=head1 NAME
@@ -316,12 +318,6 @@
script from FILE using RESOURCEID (which is 128 by default). Returns
Mac::OSA::Simple object.
- **NOTE**
- This function uses FSpOpenResFile, which has a bug in it
- that causes it to treat $ENV{MACPERL} as the current
- directory. For safety, always pass FILE as an absolute
- path, for now.
-
Example:
use Mac::OSA::Simple qw(:all);
@@ -380,21 +376,9 @@
defaults to "MacPerl Script". DANGEROUS! Will overwrite
existing resource!
- **NOTE**
- This function uses FSpOpenResFile, which has a bug in it
- that causes it to treat $ENV{MACPERL} as the current
- directory. For safety, always pass FILE as an absolute
- path, for now.
-
-
=back
-=head1 BUGS
-
-C<load_osa_script> function and C<save> method require absolute
-paths. Problem in Mac::Resources itself.
-
=head1 TODO
Work on error handling. We don't want to die when a toolbox function
@@ -415,6 +399,8 @@
=over 4
+=item v1.00, Tuesday, January 22, 2002
+
Changed TEXT to SOURCE in internal hash storing text source of script.
Added C<source> method (finish adding docs).
@@ -422,6 +408,8 @@
Made calls for generic scripting component to C<%ScriptComponents>
make new call to OpenComponent each time.
+Bump version info.
+
=item v0.51, Saturday, March 20, 1999
Fixed silly bug in return from execute, where multiline
@@ -453,9 +441,9 @@
Chris Nandor E<lt>[email protected]<gt>, http://pudge.net/
-Copyright (c) 1999 Chris Nandor. All rights reserved. This program is
-free software; you can redistribute it and/or modify it under the terms
-of the Artistic License, distributed with Perl.
+Copyright (c) 1998-2002 Chris Nandor. All rights reserved. This program
+is free software; you can redistribute it and/or modify it under the same
+terms as Perl itself.
=head1 SEE ALSO
@@ -463,6 +451,6 @@
=head1 VERSION
-Version 0.51 (Saturday, March 20, 1999)
+v1.00, Tuesday, January 22, 2002
=cut
End of Patch.