view release on metacpan or  search on metacpan

DungeonMaker_wrap.cxx  view on Meta::CPAN

#include <string.h>
#ifdef __cplusplus
}
#endif

/* Macro to call an XS function */

#ifdef PERL_OBJECT 
#  define SWIG_CALLXS(_name) _name(cv,pPerl) 
#else 
#  ifndef MULTIPLICITY 

DungeonMaker_wrap.cxx  view on Meta::CPAN

  va_start(args, fmt);
  sv_vsetpvfn(perl_get_sv("@", TRUE), fmt, strlen(fmt), &args, Null(SV**), 0, Null(bool*));
  va_end(args);
}

/* Macros for low-level exception handling */
#define SWIG_fail       goto fail
#define SWIG_croak(x)   { SWIG_SetError(x); goto fail; }
#define SWIG_croakSV(x) { SWIG_SetErrorSV(x); goto fail; }
/* most preprocessors do not support vararg macros :-( */
/* #define SWIG_croakf(x...) { SWIG_SetErrorf(x); goto fail; } */

 view release on metacpan or  search on metacpan

manual.tex  view on Meta::CPAN

The FF4 specification for SGF files allows {\tt SZ[X:Y]} where {\tt X} and
{\tt Y} are arbitrary numbers.  {\tt sgf2dg} supports this syntax.

\vfil\eject
\centerline{\titlefont\TeX\ Macros}

\bigbreak
Using the {\tt sgf2dg} translator one need not worry about writing \TeX\
code. Nevertheless with some understanding of how \TeX\ works, GOOE/{\tt
sgf2dg} becomes a more powerful system. One method is to use {\tt sgf2dg

 view release on metacpan or  search on metacpan

lib/Games/PetalsAroundTheRose.pm  view on Meta::CPAN

these different ways of looking can yield different answers. In
"Petals Around the Rose" there is always one correct answer. The
problem is how we define the problem.

"Petals Around the Rose" is traditionally played with 5 six-sided
dice. I developed this version using Macromedia Flash as both an
exercise for me to learn Flash and as a way to share the game with the
world. Let me know what you think!

Chris can be reached at C<chris.davis@baker.edu>

 view release on metacpan or  search on metacpan

t/sandbox/pkg-files.lst  view on Meta::CPAN

/usr/share/gtk-doc/html/gtk/glossary.html
/usr/share/gtk-doc/html/gtk/gtk-Accelerator-Maps.html
/usr/share/gtk-doc/html/gtk/gtk-Bindings.html
/usr/share/gtk-doc/html/gtk/gtk-Clipboards.html
/usr/share/gtk-doc/html/gtk/gtk-Drag-and-Drop.html
/usr/share/gtk-doc/html/gtk/gtk-Feature-Test-Macros.html
/usr/share/gtk-doc/html/gtk/gtk-General.html
/usr/share/gtk-doc/html/gtk/gtk-Graphics-Contexts.html
/usr/share/gtk-doc/html/gtk/gtk-GtkTextIter.html
/usr/share/gtk-doc/html/gtk/gtk-GtkTreeView-drag-and-drop.html
/usr/share/gtk-doc/html/gtk/gtk-Keyboard-Accelerators.html

 view release on metacpan or  search on metacpan

Doxyfile  view on Meta::CPAN

ENABLE_PREPROCESSING   = NO

# If the MACRO_EXPANSION tag is set to YES doxygen will expand all macro names
# in the source code. If set to NO only conditional compilation will be
# performed. Macro expansion can be done in a controlled way by setting
# EXPAND_ONLY_PREDEF to YES.
# The default value is: NO.
# This tag requires that the tag ENABLE_PREPROCESSING is set to YES.

MACRO_EXPANSION        = NO

 view release on metacpan or  search on metacpan

lib/Getopt/EX/Module.pm  view on Meta::CPAN

=item B<define> I<name> I<string>

Define string macro.  This is similar to B<option>, but argument is
not processed by I<shellwords> and treated just a simple text, so
meta-characters can be included without escape.  Macro expansion is
done for option definition and other macro definition.  Macro is not
evaluated in command line option.  Use option directive if you want to
use in command line,

    define (#kana) \p{InKatakana}
    option --kanalist --nocolor -o --join --re '(#kana)+(\n(#kana)+)*'

 view release on metacpan or  search on metacpan

GETOPTLONG.md  view on Meta::CPAN

#### 4.2.5. Hash Options (`%`)

Accept `key=value` pairs as an associative array (hash).

*   **Definition Example:** `[define|D% # Macro definition (e.g., KEY=VALUE)]`

*   **How to Specify Values:**
    *   Specify the option multiple times: `--define OS=Linux --define VER=1.0`, `-D OS=Linux -D VER=1.0`
    *   Specify multiple pairs with a single option (delimiter controlled by `DELIM` setting; defaults to comma):
        *   `--define OS=Linux,VER=1.0`

 view release on metacpan or  search on metacpan

po/de.po  view on Meta::CPAN

msgid "<Image>/Guides/Remove Guides"
msgstr "<Image>/Hilfslinien/Hilfslinien entfernen"

msgid "function/macro \"$name\" not found in $class"
msgstr "Funktion oder Macro \"$name\" existiert nicht in $class"

msgid " (press Tab to complete)"
msgstr " (Tab-Taste zum Ergänzen)"

msgid "/Xtns/Render/Logos"

 view release on metacpan or  search on metacpan

deps/libgit2/deps/http-parser/http_parser.c  view on Meta::CPAN

  , s_http_host_v6_end
  , s_http_host_port_start
  , s_http_host_port
};

/* Macros for character classes; depends on strict-mode  */
#define CR                  '\r'
#define LF                  '\n'
#define LOWER(c)            (unsigned char)(c | 0x20)
#define IS_ALPHA(c)         (LOWER(c) >= 'a' && LOWER(c) <= 'z')
#define IS_NUM(c)           ((c) >= '0' && (c) <= '9')

 view release on metacpan or  search on metacpan

xs/libgit2/deps/http-parser/http_parser.c  view on Meta::CPAN

  , h_connection_keep_alive
  , h_connection_close
  };


/* Macros for character classes; depends on strict-mode  */
#define CR                  '\r'
#define LF                  '\n'
#define LOWER(c)            (unsigned char)(c | 0x20)
#define TOKEN(c)            (tokens[(unsigned char)c])
#define IS_ALPHA(c)         (LOWER(c) >= 'a' && LOWER(c) <= 'z')

 view release on metacpan or  search on metacpan

cpanfile.snapshot  view on Meta::CPAN

      PDL::PP::ComplexThreadLoop undef
      PDL::PP::GenericLoop undef
      PDL::PP::GentypeAccess undef
      PDL::PP::Ind undef
      PDL::PP::Loop undef
      PDL::PP::MacroAccess undef
      PDL::PP::NaNSupport undef
      PDL::PP::OtherAccess undef
      PDL::PP::PDLStateBadAccess undef
      PDL::PP::PPBadAccess undef
      PDL::PP::PdlAccess undef

 view release on metacpan or  search on metacpan

lib/.gooskel/nanorc  view on Meta::CPAN

# color green "(\\|\\\\)\*\(.."
# color green start="(\\|\\\\)\*\[" end="]"
## Characters
# color brightred "\\\(.."
# color brightred start="\\\[" end="]"
## Macro arguments
# color brightcyan "\\\\\$[1-9]"

## Here is an example for perl
## Hybrid perl5 / perl6 syntax highlighting
syntax "perl" "\.p[lm]$"

 view release on metacpan or  search on metacpan

carton.lock  view on Meta::CPAN

               "file" : "PDL/PP/Dims.pm"
            },
            "PDL::PP::Loop" : {
               "file" : "PDL/PP/PDLCode.pm"
            },
            "PDL::PP::MacroAccess" : {
               "file" : "PDL/PP/PDLCode.pm"
            },
            "PDL::PP::NaNSupport" : {
               "file" : "PDL/PP/PDLCode.pm"
            },

 view release on metacpan or  search on metacpan

devel/pictures.tex  view on Meta::CPAN

\makeatletter
\g@addto@macro\th@plain{\thm@postskip=1\baselineskip}
\makeatother

%------------------------------------------------------------------------------
% Generic Macros

% GP-DEFINE  default(strictargs,1);

\newcommand\MySlash{\slash\hspace{0pt}}
\newcommand\MyTightDots{.\kern.1em.\kern.1em.}

 view release on metacpan or  search on metacpan

t/gen.macro.1.t  view on Meta::CPAN

my $id    = '1';
my $graph = GraphViz2->new(
	edge   => {color => 'grey'},
	global => {directed => 1},
	graph  => {label => "Macro demo $id - Non-cluster sub-graphs", rankdir => 'TB'},
);

macro($graph, 'One', 'Chadstone', 'Waverley');
macro($graph, 'Two', 'Hughesdale', 'Notting Hill');

 view release on metacpan or  search on metacpan

MNG.xs  view on Meta::CPAN

#endif



//==============================================================================
//                   Min / Max Macros
//==============================================================================
#ifndef min
#define min(x,y) ((x)<(y)?(x):(y))
#endif

MNG.xs  view on Meta::CPAN

#define max(x,y) ((x)>(y)?(x):(y))
#endif


//==============================================================================
//                   Convenience Macros
//==============================================================================

// this is used in the typemap file
#define _MNG_GET_HANDLE(arg) (*(hv_fetch((HV*)SvRV((arg)), _MNG_HANDLE, strlen(_MNG_HANDLE), 0)))

MNG.xs  view on Meta::CPAN

// in memory and return that array as a reference.
#define CHAR_PTR_CAST(x) ((char*)x)


//==============================================================================
//                   Macros for writing callback functionality
//==============================================================================
static void my_warn( const char *pat, ... )
{
   // do warnings if:
   // 1.  (PL_dowarn & G_WARN_ALL_OFF) is false and 

MNG.xs  view on Meta::CPAN

}



//==============================================================================
//                   Macros for writing callback functionality
//==============================================================================

#define VERIFY_CBFN_OR_RETURN( hHandle, error, fnname )                       \
   SV * cbfn = _MNG_GETPRIVATE(hHandle, fnname);                              \
                                                                              \

MNG.xs  view on Meta::CPAN

      // this space intentionally left blank



//==============================================================================
//                   Function and Macro for writing Perl XS code
//==============================================================================

int check_cbfn( mng_handle hHandle, const char * fnname )
{
   VERIFY_CBFN_OR_RETURN( hHandle, 0, fnname );

MNG.xs  view on Meta::CPAN

      }                                                                       \
      // this space intentionally left blank


//==============================================================================
//  Macro to fix NULL return pointers that will be represented as PERL strings
//==============================================================================

// We often make a PERL string by specifying the pointer and length.
// if that length is zero, PERL will go off and call strlen() on the string.
// That's bad.  Make sure that PERL gets a NUL terminated empty string in this

 view release on metacpan or  search on metacpan

Common/Makefile.PL  view on Meta::CPAN

my %configHash = %vtkConfigMacro;

$configHash{INC} = '-I../ '.$configHash{INC}; # Add another dir to include path


WriteMakefile(

 view release on metacpan or  search on metacpan

egg-macros.h  view on Meta::CPAN

#include <glib/gmacros.h>

G_BEGIN_DECLS

/* Macros for defining classes.  Ideas taken from Nautilus and GOB. */

/* Define the boilerplate type stuff to reduce typos and code size.  Defines
 * the get_type method and the parent_class static variable. */

#define EGG_BOILERPLATE(type, type_as_function, corba_type,		\

 view release on metacpan or  search on metacpan

gtk-demo/stock_browser.pl  view on Meta::CPAN

      my $treeview = Gtk2::TreeView->new_with_model ($model);

      $sw->add ($treeview);
      
      my $column = Gtk2::TreeViewColumn->new;
      $column->set_title ("Macro");

      my $cell_renderer = Gtk2::CellRendererPixbuf->new;
      $column->pack_start ($cell_renderer, FALSE);
### this doesn't work for 2.0.x, because stock_id isn't an attribute for the
### renderer until 2.2.x

 view release on metacpan or  search on metacpan

eg/01_hello_hp.pl  view on Meta::CPAN

# Cleanup
unlink File::Spec->catfile($tmpdir, 'base.html');
rmdir $tmpdir;

######################################################################
# Example 5: Macro
######################################################################
print "\n=== Example 5: Macro ===\n";

my $src5 = <<'TMPL';
{% macro button(label, type="button") %}<button type="{{ type }}">{{ label }}</button>{% endmacro %}
{{ button("Submit", "submit") }}
{{ button("Cancel") }}

 view release on metacpan or  search on metacpan

share/html-2-strict.dtd  view on Meta::CPAN

<!ENTITY % HTTP-Method "GET | POST"
        -- as per HTTP specification, in progress
        -->

<!--========= DTD "Macros" =====================-->

<!ENTITY % heading "H1|H2|H3|H4|H5|H6">

<!ENTITY % list " UL | OL | DIR | MENU " >

 view release on metacpan or  search on metacpan

Simple.pm  view on Meta::CPAN

#  Copyright (c) 2002 by S.D. Campbell <whytwolf@spots.ab.ca>
#
#  Created 13 March 2002, Modified 05 April 2002
#
#  A perl module designed to parse a simple HTML template file
#  generated by Macromedia Dreamweaver and replace fields in the
#  template with values from a CGI script.
#
#############################################################
#  This program is free software; you can redistribute it and/or
#  modify it under the terms of the GNU General Public License

Simple.pm  view on Meta::CPAN

  $html = $template->output();

=head1 DESCRIPTION

A perl module designed to parse a simple HTML template file
generated by Macromedia Dreamweaver and replace fields in the
template with values from a CGI script.  

=head1 METHODS

=head2 new()

 view release on metacpan or  search on metacpan

DWT.pm  view on Meta::CPAN

#  Copyright (c) 2002 by S.D. Campbell <whytwolf@spots.ab.ca>
#
#  Created 03 March 2000; Revised 04 March  2002 by SDC
#
#  A perl module designed to parse a simple HTML template file
#  generated by Macromedia Dreamweaver and replace fields in the
#  template with values from a CGI script.
#
#############################################################
#  This program is free software; you can redistribute it and/or
#  modify it under the terms of the GNU General Public License

DWT.pm  view on Meta::CPAN

  $html = $template->output();

=head1 DESCRIPTION

A perl module designed to parse a simple HTML template file
generated by Macromedia Dreamweaver and replace fields in the
template with values from a CGI script.  

=head1 METHODS

=head2 Options

DWT.pm  view on Meta::CPAN

    <item name="leftcont"><![CDATA[Testing]]></item>
    <item name="rightcont"><![CDATA[Testing]]></item>
  </templateItems>

These documents can be automaticly generated both by HTML::DWT based 
on template data using export(), or by Macromedia Dreamweaver.

=head2 fill()

  $template->fill(\%dataHash);

 view release on metacpan or  search on metacpan

lib/HTML/Dojo/editions.pm  view on Meta::CPAN

var _375=new dojo.flash.Embed(false);
_375.write(8,true);
_375.setVisible(true);
_375.center();
}else{
alert("This content requires a more recent version of the Macromedia "+" Flash Player.");
window.location.href=+dojo.flash.Embed.protocol()+"://www.macromedia.com/go/getflashplayer";
}
}
},_onInstallStatus:function(msg){
if(msg=="Download.Complete"){
dojo.flash._initialize();
}else{
if(msg=="Download.Cancelled"){
alert("This content requires a more recent version of the Macromedia "+" Flash Player.");
window.location.href=dojo.flash.Embed.protocol()+"://www.macromedia.com/go/getflashplayer";
}else{
if(msg=="Download.Failed"){
alert("There was an error downloading the Flash Player update. "+"Please try again later, or visit macromedia.com to download "+"the latest version of the Flash plugin.");
}

 view release on metacpan or  search on metacpan

epchar.c  view on Meta::CPAN

        { 'ª' ,   "ª"  },    /* 	Feminine ordinal  */
        { '«' ,   "«" },    /* 	Left angle quote, guillemot left  */
        { '¬' ,   "€"   },    /*	Euro sign  */
        { '­' ,   "­"    },    /* 	Soft hyphen  */
        { '®' ,   "®"    },    /* 	Registered trademark  */
/*        { '¯' ,   "¯"   },    / *  	Macron accent  */
        { '¯' ,   "&hibar;"  },    /* 	Macron accent  */
        { '°' ,   "°"    },    /* 	Degree sign  */
        { '±' ,   "±" },    /* 	Plus or minus  */
        { '²' ,   "²"   },    /* 	Superscript two  */
        { '³' ,   "³"   },    /* 	Superscript three  */
        { '´' ,   "´"  },    /* 	Acute accent  */

epchar.c  view on Meta::CPAN

        { 'ª' ,   ""  },    /* 	Feminine ordinal  */
        { '«' ,   "" },    /* 	Left angle quote, guillemot left  */
        { '¬' ,   ""   },    /*	Not sign  */
        { '­' ,   ""    },    /* 	Soft hyphen  */
        { '®' ,   ""    },    /* 	Registered trademark  */
        { '¯' ,   ""  },    /* 	Macron accent  */
        { '°' ,   ""    },    /* 	Degree sign  */
        { '±' ,   "" },    /* 	Plus or minus  */
        { '²' ,   ""   },    /* 	Superscript two  */
        { '³' ,   ""   },    /* 	Superscript three  */
        { '´' ,   ""  },    /* 	Acute accent  */

epchar.c  view on Meta::CPAN

        { '¬' ,   "&euro"   },    /*	Euro sign  */
        { '½' ,   "&frac12" },    /* 	Fraction one-half  */
        { '¼' ,   "&frac14" },    /* 	Fraction one-fourth  */
        { '¾' ,   "&frac34" },    /* 	Fraction three-fourths  */
        { '>' ,   "&gt"     },    /* 	Greater than  */
        { '¯' ,   "&hibar"  },    /* 	Macron accent  */
        { 'í' ,   "&iacute" },    /* 	Small i, acute accent  */
        { 'î' ,   "&icirc"  },    /* 	Small i, circumflex  */
        { '¡' ,   "&iexcl"  },    /* 	Inverted exclamation  */
        { 'ì' ,   "&igrave" },    /* 	Small i, grave accent  */
        { '¿' ,   "&iquest" },    /* 	Inverted question mark  */
        { 'ï' ,   "&iuml"   },    /* 	Small i, diæresis / umlaut  */
        { '«' ,   "&laquo" },    /* 	Left angle quote, guillemot left  */
        { '<' ,   "&lt"     },    /* 	Less than  */
        { '¯' ,   "&macr"   },    /*  	Macron accent  */
        { 'µ' ,   "&micro"  },    /* 	Micro sign  */
        { '·' ,   "&middot" },    /* 	Middle dot  */
        { ' ' ,   "&nbsp"   },    /* 	Non-breaking Space  */
        { 'ñ' ,   "&ntilde" },    /* 	Small n, tilde  */
        { 'ó' ,   "&oacute" },    /* 	Small o, acute accent  */

 view release on metacpan or  search on metacpan

LBI.pm  view on Meta::CPAN

#
#  Created 03 February 2002; Revised 12 February 2002 by SDC
#
#  Description:
#	A perl module for use with CGI scripts that opens a 
#	Macromedia Dreamweaver library file (.lbi) and returns
#	the resulting HTML code snippet.
#
#############################################################
#
#  Construction:

LBI.pm  view on Meta::CPAN

=head1 DESCRIPTION

A perl module for use with CGI scripts that opens a 
Macromedia Dreamweaver library file (.lbi) and returns
the resulting HTML code snippet.

=head1 METHODS

=head2 Creation

 view release on metacpan or  search on metacpan

Loop/Loop.pm  view on Meta::CPAN

# HTML::Macro::Loop; Loop.pm
# Copyright (c) 2001,2002 Michael Sokolov and Interactive Factory. All rights
# reserved. This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.

package HTML::Macro::Loop;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;

Loop/Loop.pm  view on Meta::CPAN

sub push_array ($@)
# values must be pushed in the same order as they were declared, and all
# must be present
{
    my ($self, @vals) = @_;
    die "HTML::Macro::Loop::push_array: number of vals pushed(" . (@vals+0) . ") does not match number declared: " . (@ {$$self{'vars'}} + 0)
        if (@vals + 0 != @ {$$self{'vars'}});
    my $row = &new_row;
    my $i = 0;
    foreach my $var (@ {$$self{'vars'}})
    {

Loop/Loop.pm  view on Meta::CPAN

}

sub new_row
{
    my ($self) = @_;
    my $row = new HTML::Macro;
    $row->set ('@parent', $self);
    $row->{'@attr'} = $self->{'@parent'}->{'@attr'};
    $row->{'@incpath'} = $self->{'@parent'}->{'@incpath'};
    return $row;
}

Loop/Loop.pm  view on Meta::CPAN

    }
    return undef;
}

sub doloop ($$$$ )
# perform repeated processing a-la HTML::Macro on the loop body $body,
# concatenate the results and return that.
{
    my ($self, $body, $separator, $separator_final, $collapse) = @_;
    my $buf = '';
    my $markup_seen;

Loop/Loop.pm  view on Meta::CPAN

{
    my ($self, $name, @loop_vars) = @_;

    my $rows = $$self{'rows'};
    die "HTML::Loop::new_loop: no rows in loop - call a push method" if !@$rows;
    my $new_loop = new HTML::Macro::Loop ($$rows [$#$rows]);

    if ($name) {
        $self->set ($name, $new_loop);
    }
    if (@loop_vars) {

Loop/Loop.pm  view on Meta::CPAN

__END__
# Below is the stub of documentation for your module. You better edit it!

=head1 NAME

HTML::Macro::Loop - looping construct for repeated HTML blocks

=head1 SYNOPSIS

  use HTML::Macro;
  use HTML::Macro::Loop;
  $htm = HTML::Macro->new();
  $loop = $htm->new_loop('loop-body', 'id', 'name', 'phone');
  $loop->push_array (1, 'mike', '222-2389');
  $loop->push_hash ({ 'id' => 2, 'name' => 'lou', 'phone' => '111-2389'});
  $htm->print ('test.html');

=head1 DESCRIPTION

  HTML::Macro::Loop processes tags like 

<loop id="loop-tag"> loop body </loop>

    Each loop body is treated as a nested HTML::Macro within which variable
substitutions, conditions and nested loops are processed as described under
HTML::Macro. For complete documentation see HTML::Macro.
=head1 AUTHOR

Michael Sokolov, sokolov@ifactory.com

=head1 SEE ALSO HTML::Macro

perl(1).

=cut

 view release on metacpan or  search on metacpan

lib/HTML/Merge/Compile.pm  view on Meta::CPAN

		eval <<EOM;
		package HTML::Merge::Ext;

		sub API_$tag$proto 
		{
			Macro("$text", \@_);
		}
EOM
	}

	foreach my $api (qw(API OUT)) 

lib/HTML/Merge/Compile.pm  view on Meta::CPAN

		return 1;
	}
	undef;
}
#####################################
sub Macro {
	my ($self, $text) = @_;
	my $length = length($self->{'source'});
	my $lennow;

	$self->{'source'} = $text . $self->{'source'};

lib/HTML/Merge/Compile.pm  view on Meta::CPAN

}


package HTML::Merge::Ext;

sub Macro {
	my $text = shift;
	$text =~ s/(?<!\\)\$(\d+)/\000$_[$1 - 1]\000/g;

	$HTML::Merge::Ext::COMPILER->Macro($text);
	return "";
}

1;