Commit 16c4fbf7 authored by luc.moulinier's avatar luc.moulinier

first commmit of ordalie sources

parents

Too many changes to show.

To preserve performance only 1000 of 1000+ files are displayed.

This source diff could not be displayed because it is too large. You can view the blob instead.
# CriTcl parameters for Darwin-ppc
namespace eval critcl {
proc compiling args {return 1}
proc scripting args {return 0}
proc failed args {return 0}
}
# CriTcl parameters for Darwin-ppc
namespace eval critcl {
proc compiling args {return 1}
proc scripting args {return 0}
proc failed args {return 0}
}
# CriTcl parameters for Darwin-x86
namespace eval critcl {
proc compiling args {return 1}
proc scripting args {return 0}
proc failed args {return 0}
}
# CriTcl parameters for Linux-x86
namespace eval critcl {
proc compiling args {return 1}
proc scripting args {return 0}
proc failed args {return 0}
}
# CriTcl parameters for Linux-x86
namespace eval critcl {
proc compiling args {return 1}
proc scripting args {return 0}
proc failed args {return 0}
}
# CriTcl parameters for Windows-x86
namespace eval critcl {
proc compiling args {return 1}
proc scripting args {return 0}
proc failed args {return 0}
}
#
# CriTcl - build C extensions on-the-fly
#
# Copyright (c) 2001-2004 Jean-Claude Wippler
# Copyright (c) 2002-2004 Steve Landers
#
# See http://www.purl.org/tcl/wiki/critcl
namespace eval ::critcl {
proc check args {}
proc config args {}
proc cheaders args {}
proc csources args {}
proc clibraries args {}
proc cinit args {}
proc ccode args {}
proc ccommand args {}
proc cproc args {}
proc cdata args {}
proc tk args {}
proc tsources args {}
proc cheaders args {}
proc cdefines args {}
proc done args {return 1}
proc check args {return 0}
proc loadlib {dir package version} {
global tcl_platform
set path [file join $dir [critcl::platform]]
set lib [file join $path $package[info sharedlibextension]]
set plat [file join $path critcl.tcl]
set provide "package provide $package $version"
append provide "; [list load $lib $package]; [list source $plat]"
foreach t [glob -nocomplain [file join $dir Tcl *.tcl]] {
append provide "; [list source $t]"
}
package ifneeded $package $version $provide
package ifneeded critcl 0.0 "package provide critcl 0.0; [list source [file join $dir critcl.tcl]]"
}
proc platform {} {
global tcl_platform
set plat [lindex $tcl_platform(os) 0]
set mach $tcl_platform(machine)
switch -glob -- $mach {
sun4* { set mach sparc }
intel -
i*86* { set mach x86 }
"Power Macintosh" { set mach ppc }
}
switch -- $plat {
AIX { set mach ppc }
HP-UX { set mach hppa }
}
return "$plat-$mach"
}
}
source [file join $dir critcl.tcl]
critcl::loadlib $dir LRIPhoto 1.1
This diff is collapsed.
# LRIPhoto.tcl
#
# Xavier Garreau , xavier@larochelle-innovation.com, Sep. 7 2005
# XG: Sep. 9 2005
# - added scalex and scaley args
#
package provide LRIPhoto 1.1
package require critcl
critcl::tk
switch $::tcl_platform(platform) {
windows {set platform "win"}
unix {set platform "unix"}
}
set tcl_prefix [file normalize [file join [pwd] tcl8.4.18]]
set tk_prefix [file normalize [file join [pwd] tk8.4.18]]
switch $::tcl_platform(platform) {
windows {
critcl::cheaders -I$tk_prefix/generic -I$tk_prefix/xlib -I$tk_prefix/$platform -I$tk_prefix -I$tcl_prefix/generic -I$tcl_prefix/$platform -I$tcl_prefix -I[pwd]
}
default {
# critcl::cheaders -I$tk_prefix/generic -I$tk_prefix/xlib -I$tk_prefix/$platform -I$tk_prefix -I$tcl_prefix/generic -I$tcl_prefix/$platform -I$tcl_prefix -I[pwd] -L/usr/lib64 -lX11
# critcl::clibraries -lX11 -L/usr/lib64
}
}
# Functions are stored in this file
::critcl::csources LRIPhoto.c
# put everything in LRI namespace
namespace eval LRI {
critcl::ccommand imgtransform {dummy interp objc objv} {
Tk_PhotoHandle destimg;
int scale=-1;
int scalex=-1;
int scaley=-1;
int angle=-1;
int bw = 0;
int gray = 0; </