Browse files

Initial commit (SVN history has not been carried over)

  • Loading branch information...
0 parents commit 6d2616324b069289af8bde9e4d452283e0cfdf39 @sanko committed Apr 17, 2009
Showing with 994 additions and 0 deletions.
  1. +2 −0 .gitignore
  2. +39 −0 CHANGES.txt
  3. +202 −0 LICENSE.txt
  4. +125 −0 README.txt
  5. +7 −0 TODO.txt
  6. +125 −0 perl.mrc
  7. +233 −0
  8. +261 −0 perl4mirc.c
@@ -0,0 +1,2 @@
@@ -0,0 +1,39 @@
+Version 0.9.600 (29 Nov 2008)
+ Internal changes:
+ - (undocumented) is now external for hacking, easy updates
+ - (undocumented) perl4mIRC.dll retains basic functionality (perl eval, etc.) without Win32::API (print to mIRC window, mIRC exec, eval, etc.)
+ - (undocumented) Building should be a little easier
+Version 0.9.501 (29 Jan 2008)
+ Internal changes:
+ - Fix magic object in eval_embed
+ - Fix line directives in eval_embed and eval_string
+ - Fix chopped evaluate and execute commands
+ - Makeshift fix for strange race condition in eval and exec commands that
+ would lead to crash
+Version 0.9.500 (29 Jan 2008)
+ General/Interface changes:
+ - FIX: New message and auto-unload (rather than mysterious death) when
+ Win32::API is not installed.
+ Internal changes:
+ - Catches missing Win32::API requirement w/o ruining the interpreter
+ by running an eval_sv.
+Version 0.9.008 (23 Nov 2007)
+ General/Interface changes:
+ - First public release
+ Internal changes:
+ - dropped custom XS module in favor of Win32::API with DLL calls.
+$Id: CHANGES.txt 4 2008-12-05 05:12:08Z $
@@ -0,0 +1,202 @@
+ The Artistic License 2.0
+ Copyright (c) 2000-2006, The Perl Foundation.
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+This license establishes the terms under which a given free software
+Package may be copied, modified, distributed, and/or redistributed.
+The intent is that the Copyright Holder maintains some artistic
+control over the development of that Package while still keeping the
+Package available as open source and free software.
+You are always permitted to make arrangements wholly outside of this
+license directly with the Copyright Holder of a given Package. If the
+terms of this license do not permit the full use that you propose to
+make of the Package, you should contact the Copyright Holder and seek
+a different licensing arrangement.
+ "Copyright Holder" means the individual(s) or organization(s)
+ named in the copyright notice for the entire Package.
+ "Contributor" means any party that has contributed code or other
+ material to the Package, in accordance with the Copyright Holder's
+ procedures.
+ "You" and "your" means any person who would like to copy,
+ distribute, or modify the Package.
+ "Package" means the collection of files distributed by the
+ Copyright Holder, and derivatives of that collection and/or of
+ those files. A given Package may consist of either the Standard
+ Version, or a Modified Version.
+ "Distribute" means providing a copy of the Package or making it
+ accessible to anyone else, or in the case of a company or
+ organization, to others outside of your company or organization.
+ "Distributor Fee" means any fee that you charge for Distributing
+ this Package or providing support for this Package to another
+ party. It does not mean licensing fees.
+ "Standard Version" refers to the Package if it has not been
+ modified, or has been modified only in ways explicitly requested
+ by the Copyright Holder.
+ "Modified Version" means the Package, if it has been changed, and
+ such changes were not explicitly requested by the Copyright
+ Holder.
+ "Original License" means this Artistic License as Distributed with
+ the Standard Version of the Package, in its current version or as
+ it may be modified by The Perl Foundation in the future.
+ "Source" form means the source code, documentation source, and
+ configuration files for the Package.
+ "Compiled" form means the compiled bytecode, object code, binary,
+ or any other form resulting from mechanical transformation or
+ translation of the Source form.
+Permission for Use and Modification Without Distribution
+(1) You are permitted to use the Standard Version and create and use
+Modified Versions for any purpose without restriction, provided that
+you do not Distribute the Modified Version.
+Permissions for Redistribution of the Standard Version
+(2) You may Distribute verbatim copies of the Source form of the
+Standard Version of this Package in any medium without restriction,
+either gratis or for a Distributor Fee, provided that you duplicate
+all of the original copyright notices and associated disclaimers. At
+your discretion, such verbatim copies may or may not include a
+Compiled form of the Package.
+(3) You may apply any bug fixes, portability changes, and other
+modifications made available from the Copyright Holder. The resulting
+Package will still be considered the Standard Version, and as such
+will be subject to the Original License.
+Distribution of Modified Versions of the Package as Source
+(4) You may Distribute your Modified Version as Source (either gratis
+or for a Distributor Fee, and with or without a Compiled form of the
+Modified Version) provided that you clearly document how it differs
+from the Standard Version, including, but not limited to, documenting
+any non-standard features, executables, or modules, and provided that
+you do at least ONE of the following:
+ (a) make the Modified Version available to the Copyright Holder
+ of the Standard Version, under the Original License, so that the
+ Copyright Holder may include your modifications in the Standard
+ Version.
+ (b) ensure that installation of your Modified Version does not
+ prevent the user installing or running the Standard Version. In
+ addition, the Modified Version must bear a name that is different
+ from the name of the Standard Version.
+ (c) allow anyone who receives a copy of the Modified Version to
+ make the Source form of the Modified Version available to others
+ under
+ (i) the Original License or
+ (ii) a license that permits the licensee to freely copy,
+ modify and redistribute the Modified Version using the same
+ licensing terms that apply to the copy that the licensee
+ received, and requires that the Source form of the Modified
+ Version, and of any works derived from it, be made freely
+ available in that license fees are prohibited but Distributor
+ Fees are allowed.
+Distribution of Compiled Forms of the Standard Version
+or Modified Versions without the Source
+(5) You may Distribute Compiled forms of the Standard Version without
+the Source, provided that you include complete instructions on how to
+get the Source of the Standard Version. Such instructions must be
+valid at the time of your distribution. If these instructions, at any
+time while you are carrying out such distribution, become invalid, you
+must provide new instructions on demand or cease further distribution.
+If you provide valid instructions or cease distribution within thirty
+days after you become aware that the instructions are invalid, then
+you do not forfeit any of your rights under this license.
+(6) You may Distribute a Modified Version in Compiled form without
+the Source, provided that you comply with Section 4 with respect to
+the Source of the Modified Version.
+Aggregating or Linking the Package
+(7) You may aggregate the Package (either the Standard Version or
+Modified Version) with other packages and Distribute the resulting
+aggregation provided that you do not charge a licensing fee for the
+Package. Distributor Fees are permitted, and licensing fees for other
+components in the aggregation are permitted. The terms of this license
+apply to the use and Distribution of the Standard or Modified Versions
+as included in the aggregation.
+(8) You are permitted to link Modified and Standard Versions with
+other works, to embed the Package in a larger work of your own, or to
+build stand-alone binary or bytecode versions of applications that
+include the Package, and Distribute the result without restriction,
+provided the result does not expose a direct interface to the Package.
+Items That are Not Considered Part of a Modified Version
+(9) Works (including, but not limited to, modules and scripts) that
+merely extend or make use of the Package, do not, by themselves, cause
+the Package to be a Modified Version. In addition, such works are not
+considered parts of the Package itself, and are not subject to the
+terms of this license.
+General Provisions
+(10) Any use, modification, and distribution of the Standard or
+Modified Versions is governed by this Artistic License. By using,
+modifying or distributing the Package, you accept this license. Do not
+use, modify, or distribute the Package, if you do not accept this
+(11) If your Modified Version has been derived from a Modified
+Version made by someone other than you, you are nevertheless required
+to ensure that your Modified Version complies with the requirements of
+this license.
+(12) This license does not grant you the right to use any trademark,
+service mark, tradename, or logo of the Copyright Holder.
+(13) This license includes the non-exclusive, worldwide,
+free-of-charge patent license to make, have made, use, offer to sell,
+sell, import and otherwise transfer the Package with respect to any
+patent claims licensable by the Copyright Holder that are necessarily
+infringed by the Package. If you institute patent litigation
+(including a cross-claim or counterclaim) against any party alleging
+that the Package constitutes direct or contributory patent
+infringement, then this Artistic License to you shall terminate on the
+date that such litigation is filed.
+(14) Disclaimer of Warranty:
@@ -0,0 +1,125 @@
+ The software provided was written by Sanko Robinson.
+ Please visit for updates.
+ Inspired by the TCL4mIRC[1] and Python4mIRC[2] projects, Perl4mIRC is
+ a DLL for the mIRC chat client[3] that allows a scripter to execute Perl
+ programs from mIRC's edit box and in mIRC's msl script files.
+ any version of mIRC (built on v6.21)
+ Perl (built on v5.10.0)
+ Win32::API
+ To install this script and DLL, it is recommended (but not necessary)
+ to copy the files in this package into a directory within mIRC's
+ installation directory. At that point you can type
+ /load -rs C:\path\to\perl.mrc
+ To load the script file. This will run /perl_hello_world to test the
+ installation. You should see "Hello world" if the test ran successfully.
+ If you receive an error about Win32::API, type the following at the
+ command line:
+ ppm install
+ Use /perl <perl syntax> to execute Perl code.
+ Several examples are in perl.mrc, I'll explain the nifty bits...
+ Midway through perl.mirc, you come upon the following alias...
+ ; Shows how to pass data to and from Perl
+ alias perl_strlen {
+ set %data $1-
+ perl mIRC(q[//echo len:] . length(mIRC->{'data'}));
+ unset %data
+ }
+ We use the pseudo-hash mIRC to get and set variables inside mIRC and the
+ coderef mIRC executes msl inline. You could toss down a banana peel with:
+ /perl use strict; mIRC->{here} = q[TEST];
+ No, it won't die, but it breaks my little fake hash/coderef thing. So,
+ don't.
+ Yes, this is very very misleading in code and a very very bad idea in
+ general practice but until I find a solution as fast and light as this,
+ I'll make use of it. See perldoc perlref to investigate on your own.
+ ...or contact me and I'll do my best to fill you in.
+ Near the bottom of perl.mrc, you'll find this...
+ ; REAL inline C :D
+ ; You asked for it, so here it is...
+ ; Requires you to install this script without spaces in the path
+ alias inlinec {
+ if $($has_perl,2) {
+ use Inline C => q[
+ void greet() {
+ printf("Hello, world\n");
+ }
+ ];
+ greet;
+ }
+ }
+ Yep, C. Inside mIRC. This is made possible with the very crafty
+ Inline::C[4] module available on CPAN[5], you'll find several Inline
+ modules that evaluate assembler[6], Java[7], Lua[8], Python[9], Ruby[10],
+ Tcl[11], and several other[12] languages. Please note, several of these
+ Inline:: modules (Inline::C for sure) require you to install the script
+ to a path WITHOUT spaces. And PLEASE read the docs for these before
+ jumping into it... You'll save yourself some time and effort.
+ See CHANGES.txt
+ For future updates, check
+ Perl4mIRC is released under the Perl/Artistic license. See LICENSE.txt
+ for a very legalese definition of what I'm talking about. To understand
+ what rights I claim to this code and how to handle derivative work, see
+ the Artistic 2.0 Notes[13].
+ All textual content is provided under the Creative Commons Attribution-
+ Share Alike 3.0 United States License[14] as all documentation should
+ be.
+ Now that you're completely confused, you can ask me any time to clarify
+ my licensing choices.
+ mIRC is a registered trademark of mIRC Co. Ltd.[3]
+ [ 1]
+ [ 2]
+ [ 3]
+ [ 4]
+ [ 5]
+ [ 6]
+ [ 7]
+ [ 8]
+ [ 9]
+ [10]
+ [11]
+ [12]
+ [13]
+ [14]
@@ -0,0 +1,7 @@
+- Cache packages according to perlembed
+- bugfixes?
+- See inline TODO comments in perl4mirc.c
+- change output to signals (let user decide what to do with the text) rather
+ than echo calls?
+- handle $ identifiers
Oops, something went wrong.

0 comments on commit 6d26163

Please sign in to comment.