Index: Daodan/MinGW/libexec/gcc/mingw32/5.3.0/install-tools/fixinc.sh =================================================================== --- Daodan/MinGW/libexec/gcc/mingw32/5.3.0/install-tools/fixinc.sh (revision 1046) +++ (revision ) @@ -1,2 +1,0 @@ -#! /bin/sh -exit 0 Index: Daodan/MinGW/libexec/gcc/mingw32/5.3.0/install-tools/mkheaders =================================================================== --- Daodan/MinGW/libexec/gcc/mingw32/5.3.0/install-tools/mkheaders (revision 1046) +++ (revision ) @@ -1,104 +1,0 @@ -#!/bin/sh - -# Copyright (C) 2002, 2007, 2009 Free Software Foundation, Inc. - -#This file is part of GCC. - -#GCC is free software; you can redistribute it and/or modify it under -#the terms of the GNU General Public License as published by the Free -#Software Foundation; either version 3, or (at your option) any later -#version. - -#GCC is distributed in the hope that it will be useful, but WITHOUT -#ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or -#FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -#for more details. - -#You should have received a copy of the GNU General Public License -#along with GCC; see the file COPYING3. If not see -#. - -# Basic information -target=i686-pc-mingw32 -target_noncanonical=mingw32 -version=5.3.0 - -VERBOSE=0 -while [ x$1 = x-v ] ; do - shift - VERBOSE=`expr $VERBOSE + 1` -done -export VERBOSE - -if [ x$1 = x--help ] ; then - echo "Usage: mkheaders [options] [prefix [isysroot]]" - echo "Options:" - echo " -v Print more output (may be repeated for even more output)" - echo " --help This help" - echo " --version Print version information" - exit 0 -fi - -if [ x$1 = x--version ] ; then - echo "mkheaders (GCC) version $version" - echo "Copyright 2002, 2007, 2009 Free Software Foundation, Inc." - echo "This program is free software; you may redistribute it under the" - echo "terms of the GNU General Public License. This program has" - echo "absolutely no warranty." - exit 0 -fi - -# Common prefix for installation directories. -if [ x$1 != x ] ; then - prefix=$1 - shift -else - prefix=/mingw -fi - -# Allow for alternate isysroot in which to find headers -if [ x$1 != x ] ; then - isysroot=$1 - shift -else - isysroot= -fi - -# Directory in which to put host dependent programs and libraries -exec_prefix=${prefix} -# Directory in which to put the directories used by the compiler. -libdir=${exec_prefix}/lib -libexecdir=${exec_prefix}/libexec -# Directory in which the compiler finds libraries, etc. -libsubdir=${libdir}/gcc/${target_noncanonical}/${version} -# Directory in which the compiler finds executables -libexecsubdir=${libexecdir}/gcc/${target_noncanonical}/${version} - -itoolsdir=${libexecsubdir}/install-tools -itoolsdatadir=${libsubdir}/install-tools -incdir=${libsubdir}/include-fixed -mkinstalldirs="/bin/bash ${itoolsdir}/mkinstalldirs" - -cd ${itoolsdir} -rm -rf ${incdir}/* - -for ml in `cat ${itoolsdatadir}/fixinc_list`; do - sysroot_headers_suffix=`echo ${ml} | sed -e 's/;.*$//'` - multi_dir=`echo ${ml} | sed -e 's/^[^;]*;//'` - subincdir=${incdir}${multi_dir} - . ${itoolsdatadir}/mkheaders.conf - if [ x${STMP_FIXINC} != x ] ; then - TARGET_MACHINE="${target}" target_canonical="${target}" \ - MACRO_LIST="${itoolsdatadir}/macro_list" \ - /bin/bash ./fixinc.sh ${subincdir} \ - ${isysroot}${SYSTEM_HEADER_DIR} ${OTHER_FIXINCLUDES_DIRS} - rm -f ${subincdir}/syslimits.h - if [ -f ${subincdir}/limits.h ]; then - mv ${subincdir}/limits.h ${subincdir}/syslimits.h - else - cp ${itoolsdatadir}/gsyslimits.h ${subincdir}/syslimits.h - fi - fi - - cp ${itoolsdatadir}/include${multi_dir}/limits.h ${subincdir} -done Index: Daodan/MinGW/libexec/gcc/mingw32/5.3.0/install-tools/mkinstalldirs =================================================================== --- Daodan/MinGW/libexec/gcc/mingw32/5.3.0/install-tools/mkinstalldirs (revision 1046) +++ (revision ) @@ -1,162 +1,0 @@ -#! /bin/sh -# mkinstalldirs --- make directory hierarchy - -scriptversion=2009-04-28.21; # UTC - -# Original author: Noah Friedman -# Created: 1993-05-16 -# Public domain. -# -# This file is maintained in Automake, please report -# bugs to or send patches to -# . - -nl=' -' -IFS=" "" $nl" -errstatus=0 -dirmode= - -usage="\ -Usage: mkinstalldirs [-h] [--help] [--version] [-m MODE] DIR ... - -Create each directory DIR (with mode MODE, if specified), including all -leading file name components. - -Report bugs to ." - -# process command line arguments -while test $# -gt 0 ; do - case $1 in - -h | --help | --h*) # -h for help - echo "$usage" - exit $? - ;; - -m) # -m PERM arg - shift - test $# -eq 0 && { echo "$usage" 1>&2; exit 1; } - dirmode=$1 - shift - ;; - --version) - echo "$0 $scriptversion" - exit $? - ;; - --) # stop option processing - shift - break - ;; - -*) # unknown option - echo "$usage" 1>&2 - exit 1 - ;; - *) # first non-opt arg - break - ;; - esac -done - -for file -do - if test -d "$file"; then - shift - else - break - fi -done - -case $# in - 0) exit 0 ;; -esac - -# Solaris 8's mkdir -p isn't thread-safe. If you mkdir -p a/b and -# mkdir -p a/c at the same time, both will detect that a is missing, -# one will create a, then the other will try to create a and die with -# a "File exists" error. This is a problem when calling mkinstalldirs -# from a parallel make. We use --version in the probe to restrict -# ourselves to GNU mkdir, which is thread-safe. -case $dirmode in - '') - if mkdir -p --version . >/dev/null 2>&1 && test ! -d ./--version; then - echo "mkdir -p -- $*" - exec mkdir -p -- "$@" - else - # On NextStep and OpenStep, the 'mkdir' command does not - # recognize any option. It will interpret all options as - # directories to create, and then abort because '.' already - # exists. - test -d ./-p && rmdir ./-p - test -d ./--version && rmdir ./--version - fi - ;; - *) - if mkdir -m "$dirmode" -p --version . >/dev/null 2>&1 && - test ! -d ./--version; then - echo "mkdir -m $dirmode -p -- $*" - exec mkdir -m "$dirmode" -p -- "$@" - else - # Clean up after NextStep and OpenStep mkdir. - for d in ./-m ./-p ./--version "./$dirmode"; - do - test -d $d && rmdir $d - done - fi - ;; -esac - -for file -do - case $file in - /*) pathcomp=/ ;; - *) pathcomp= ;; - esac - oIFS=$IFS - IFS=/ - set fnord $file - shift - IFS=$oIFS - - for d - do - test "x$d" = x && continue - - pathcomp=$pathcomp$d - case $pathcomp in - -*) pathcomp=./$pathcomp ;; - esac - - if test ! -d "$pathcomp"; then - echo "mkdir $pathcomp" - - mkdir "$pathcomp" || lasterr=$? - - if test ! -d "$pathcomp"; then - errstatus=$lasterr - else - if test ! -z "$dirmode"; then - echo "chmod $dirmode $pathcomp" - lasterr= - chmod "$dirmode" "$pathcomp" || lasterr=$? - - if test ! -z "$lasterr"; then - errstatus=$lasterr - fi - fi - fi - fi - - pathcomp=$pathcomp/ - done -done - -exit $errstatus - -# Local Variables: -# mode: shell-script -# sh-indentation: 2 -# eval: (add-hook 'write-file-hooks 'time-stamp) -# time-stamp-start: "scriptversion=" -# time-stamp-format: "%:y-%02m-%02d.%02H" -# time-stamp-time-zone: "UTC" -# time-stamp-end: "; # UTC" -# End: Index: Daodan/MinGW/libexec/mingw-get/setup.lua =================================================================== --- Daodan/MinGW/libexec/mingw-get/setup.lua (revision 1046) +++ (revision ) @@ -1,80 +1,0 @@ --- --- setup.lua --- --- $Id: setup.lua,v 49e57abe7f83 2013/09/21 08:35:52 keithmarshall $ --- --- Lua 5.2 module providing common setup hooks for mingw-get. --- --- --- This file is a component of mingw-get. --- --- Written by Keith Marshall --- Copyright (C) 2012, 2013, MinGW.org Project --- --- --- Permission is hereby granted, free of charge, to any person obtaining a --- copy of this software and associated documentation files (the "Software"), --- to deal in the Software without restriction, including without limitation --- the rights to use, copy, modify, merge, publish, distribute, sublicense, --- and/or sell copies of the Software, and to permit persons to whom the --- Software is furnished to do so, subject to the following conditions: --- --- The above copyright notice and this permission notice shall be included --- in all copies or substantial portions of the Software. --- --- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, --- FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL --- THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER --- LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING --- FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER --- DEALINGS IN THE SOFTWARE. --- - local M = {} - local wsh = require "wsh" --- - function M.libexec_path( script, subsystem ) - if not subsystem - then - subsystem = "mingw-get" - end - return wsh.libexec_path( script, subsystem ) - end --- - function M.argwrap( arglist, ... ) - for argind, argval in ipairs {...} - do - arglist = arglist .. " " .. argval - end - return arglist - end --- - function M.shlink( args, ... ) - if args - then - wsh.execute( M.argwrap( M.libexec_path( "shlink.js" ), args, ... ) ) - end - end --- - function M.unlink( args, ... ) - if args - then - wsh.execute( M.argwrap( M.libexec_path( "unlink.js" ), args, ... ) ) - end - end --- - function M.create_shortcuts( ... ) - M.shlink( os.getenv( "MINGW_GET_DESKTOP_HOOK" ), ... ) - M.shlink( os.getenv( "MINGW_GET_START_MENU_HOOK" ), ... ) - end --- - function M.delete_shortcuts( ... ) - M.unlink( "--desktop", ... ) - M.unlink( "--all-users --desktop", ... ) - M.unlink( "--all-users --start-menu", ... ) - M.unlink( "--start-menu", ... ) - end --- - return M --- --- $RCSfile: setup.lua,v $: end of file */ Index: Daodan/MinGW/libexec/mingw-get/shlink.js =================================================================== --- Daodan/MinGW/libexec/mingw-get/shlink.js (revision 1046) +++ (revision ) @@ -1,385 +1,0 @@ -/* - * shlink.js - * - * $Id: shlink.js,v 0f864a5cad9e 2012/04/06 22:49:36 keithmarshall $ - * - * Invoke the Windows Scripting Host to create or modify a windows shortcut, - * with specified parameters. - * - * Usage: - * cscript -nologo shlink.js [--option[=value] ...] target name - * - * Options: - * --verbose report shortcut parameter assignments on stdout - * - * --all-users - * create the shortcut in the start menu, or on the - * desktop available to all users; (has no effect, - * unless --start-menu or --desktop is specified) - * - * --desktop create the shortcut on the desktop of the current - * user, (or for all users, with --all-users) - * - * --start-menu - * create the shortcut in the user's start menu, (or - * all users' start menu, with --all-users) - * - * --arguments="argument list ..." - * specify arguments to be passed to the command - * invoked by the shortcut - * - * --description="text ..." - * specify the "tool tip" for the shortcut - * - * --hotkey="[SHIFT+][CTRL+][ALT+]key" - * specify a hot-key combination which may be used - * to invoke the shortcut command - * - * --icon="d:\path\to\icon\file[,index]" - * specify an icon to associate with the shortcut; - * if unspecified, the first icon in the target file, - * or failing that, a system default is used - * - * --show=normal|maximised|minimised - * specify the style of window in which the program - * invoked by the shortcut will start running - * - * --workingdir="d:\path\to\working\directory" - * specify the absolute path name for the directory - * which will become the current working directory when - * the program invoked by the shortcut is started - * - * Parameters: - * target the path name to the program to invoke, or the file - * to be opened, when the shortcut is activated. - * - * name the path name for the shortcut file itself; if this - * does not end with either a ".lnk" or ".url" extension, - * then ".lnk" will be appended, so creating a regular - * file system link type shortcut. - * - * - * This file is a component of mingw-get. - * - * Written by Keith Marshall - * Copyright (C) 2012, MinGW Project - * - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER - * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING - * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER - * DEALINGS IN THE SOFTWARE. - * - */ -var cmdName = WScript.ScriptName; -var WinShell = WScript.CreateObject("WScript.Shell"); - -/* Properties for the shortcut may be specified as arguments - * to command line options, each of which is represented in the - * GNU long option form, by keywords with property associations - * as specified by: - */ -var options = Array( - "name", /* File name/path of .lnk file */ - "all-users", - "start-menu", - "desktop", - "verbose", - /* - * Option Property - * ------------- ------------------------- - */ - "arguments", /* Shortcut.Arguments */ - "description", /* Shortcut.Description */ - "hotkey", /* Shortcut.HotKey */ - "icon", /* Shortcut.IconLocation */ - "show", /* Shortcut.WindowStyle */ - "target", /* Shortcut.TargetPath */ - "workingdir" /* Shortcut.WorkingDirectory */ - ); - -/* The "complain" function provides a mechanism for writing - * diagnostic messages to stderr, and optionally aborting the - * calling script. - */ -function complain( condition, message ) -{ - WScript.StdErr.WriteLine( cmdName + ": " + message ); - if( condition < 0 ) - WScript.Quit( -condition ); - return condition; -} - -/* Strip ".js" suffix from command name. - */ -var i = cmdName.lastIndexOf( ".js" ); -if( (i > 0) && (cmdName.substr( i ) == ".js") ) - cmdName = cmdName.substr( 0, i ); - -/* Initialise all options to "unassigned" state. - */ -var target = -1; -var lnkname = -1; -var desktop = -1; -var allusers = -1; -var startmenu = -1; -var verbosity = -1; -var unassigned = "+++unassigned+++"; -var assigned = Array( options.length ); -for( var k = 0; k < assigned.length; k++ ) -{ - switch( options[k] ) - { - case "name": - lnkname = k; - break; - - case "desktop": - desktop = k; - break; - - case "start-menu": - startmenu = k; - break; - - case "all-users": - allusers = k; - break; - - case "target": - target = k; - break; - - case "verbose": - verbosity = k; - } - assigned[k] = unassigned; -} - -/* Define the prefix, which will qualify the location - * of the shortcut; initialise it to nothing, so that by - * default shortcuts will be located by absolute path name, - * as specified, or relative to current working directory. - */ -var prefix = ""; - -var j; -function assign_option( name, value ) -{ - switch( name ) - { - case "desktop": - case "start-menu": - case "all-users": - case "verbose": - j = i; - return "set"; - } - return value; -} - -/* Parse the command line. - */ -var argv = WScript.Arguments; -for( i = 0; i < argv.length; i++ ) -{ - if( argv( i ).indexOf( "--" ) == 0 ) - { - /* Handle arguments specifying options... - */ - if( (optind = argv( j = i ).indexOf( "=" ) + 1) > 3 ) - { - optnam = argv( j ).substr( 2, optind - 3 ); - optarg = argv( j ).substr( optind ); - } - else - { - optnam = argv( j ).substr( 2 ); - if( ++j < argv.length ) - optarg = argv( j ); - else - optarg = unassigned; - } - - var matched = 0; - for( var k = 0; k < options.length; k++ ) - { - if( optnam == options[k] ) - { - matched = 1; - assigned[k] = assign_option( options[k], optarg ); - k = options.length; - } - else if( options[k].indexOf(optnam) == 0 ) - { - if( ++matched > 1 ) - complain( -2, cmdName + "option '" + argv( i ) + "' is ambiguous" ); - assigned[k] = assign_option( options[k], optarg ); - } - } - if( matched == 1 ) - { - i = j; - } - else - complain( -2, "option '" + argv( i ) + "' is not supported" ); - } - - /* Handle non-option arguments... - */ - else if( (target >= 0) && (assigned[target] == unassigned) ) - /* - * ...the first of which is the target to which the - * (shortcut) link is to refer... - */ - assigned[target] = argv( i ); - - else if( (lnkname >= 0) && (assigned[lnkname] == unassigned) ) - /* - * ...the second is the file system path name at which - * the link file itself is to be saved... - */ - assigned[lnkname] = argv( i ); - - else - /* ...and any more than two is an error. - */ - complain( -2, "too many arguments" ); -} - -/* Verify that mandatory arguments have been specified... - */ -if( assigned[target] == unassigned ) - /* - * First of these, the TargetPath specification, is required; - * diagnose and abort, if missing. - */ - complain( -2, "missing argument: no target path specified" ); - -if( assigned[lnkname] == unassigned ) - /* - * Second, the path name for the link file itself is essential; - * again, diagnose and abort if missing. - */ - complain( -2, "missing argument: no shortcut name specified" ); - -/* We have both the mandatory arguments; check that the link name - * is properly terminated by a ".lnk" or ".url" suffix... - */ -var suffix = ""; -if( (i = assigned[lnkname].length - 4) > 0 ) - suffix = assigned[lnkname].substr( i ); - -/* ...and append ".lnk" as default, if not already present. - */ -if( (suffix != ".lnk") && (suffix != ".url") ) - assigned[lnkname] += ".lnk"; - -/* Add the appropriate prefix for '--desktop' or '--start-menu' shortcuts. - */ -if( assigned[desktop] != unassigned ) -{ - if( assigned[startmenu] != unassigned ) - complain( -2, "options '--desktop' and '--start-menu' are incompatible" ); - else prefix = WinShell.SpecialFolders( (assigned[allusers] == unassigned) - ? "Desktop" : "AllUsersDesktop" ) + "\\"; -} -else if( assigned[startmenu] != unassigned ) - prefix = WinShell.SpecialFolders( (assigned[allusers] == unassigned) - ? "StartMenu" : "AllUsersStartMenu" ) + "\\"; - -else if( assigned[allusers] != unassigned ) - complain( -2, - "option '--all-users' also requires '--desktop' or '--start-menu'" - ); - -/* Handle verbosity... - */ -function verbose_assignment( property, value ) -{ - if( assigned[verbosity] == "set" ) - WScript.Echo( cmdName + ": set " + property + " = " + value ); -} - -/* Initialise the shortcut entity reference. - */ -if( assigned[verbosity] == "set" ) - WScript.Echo( cmdName + ": create shortcut: " + prefix + assigned[lnkname] ); - -var Shortcut = WinShell.CreateShortcut( prefix + assigned[lnkname] ); - -for( var k = 0; k < options.length; k++ ) -{ - if( assigned[k] != unassigned ) - switch( options[k] ) - { - case "arguments": - verbose_assignment( "Shortcut.Arguments", assigned[k] ); - Shortcut.Arguments = assigned[k]; - break; - - case "description": - verbose_assignment( "Shortcut.Description", assigned[k] ); - Shortcut.Description = assigned[k]; - break; - - case "hotkey": - verbose_assignment( "Shortcut.HotKey", assigned[k] ); - Shortcut.HotKey = assigned[k]; - break; - - case "icon": - verbose_assignment( "Shortcut.IconLocation", assigned[k] ); - Shortcut.IconLocation = assigned[k]; - break; - - case "show": - verbose_assignment( "Shortcut.WindowStyle", assigned[k] ); - var style = Array( - "normal", 1, - "maximised", 3, - "maximized", 3, - "minimised", 7, - "minimized", 7 - ); - for( j = 0; j < style.length; j++ ) - if( style[j++].indexOf( assigned[k] ) == 0 ) - { - Shortcut.WindowStyle = style[j]; - j = 100; - } - if( j < 100 ) - complain( 1, "unrecognised mode '--show=" + assigned[k] + "' ignored" ); - break; - - case "target": - verbose_assignment( "Shortcut.TargetPath", assigned[k] ); - Shortcut.TargetPath = assigned[k]; - break; - - case "workingdir": - verbose_assignment( "Shortcut.WorkingDirectory", assigned[k] ); - Shortcut.WorkingDirectory = assigned[k]; - } - else if( assigned[verbosity] == "set" ) - WScript.Echo( cmdName + ": option '--" + options[k] + "' is unassigned" ); -} - -/* Commit the shortcut entity to disk. - */ -Shortcut.Save(); - -/* $RCSfile: shlink.js,v $: end of file */ Index: Daodan/MinGW/libexec/mingw-get/unlink.js =================================================================== --- Daodan/MinGW/libexec/mingw-get/unlink.js (revision 1046) +++ (revision ) @@ -1,245 +1,0 @@ -/* - * unlink.js - * - * $Id: unlink.js,v cd9a9ac85727 2013/09/20 08:43:04 keithmarshall $ - * - * Invoke the Windows Scripting Host to remove specified files, typically - * from the user's or all users' start menu or desktop directories. - * - * Usage: - * cscript -nologo unlink.js [--option ...] file ... - * - * Options: - * --all-users - * references to desktop or start menu files apply - * to the directories serving all users - * - * --desktop remove files from the user's desktop directory, (or - * from all users' desktop directory, with --all-users) - * - * --start-menu - * remove files from the user's start menu directory, (or - * from all users' start menu directory, with --all-users) - * - * --if-linked=target_path - * do not remove any matched file which is not a shortcut - * (.lnk or .url) referring to the specified target path; - * when this option is specified, any specified file name - * which does not already have a .lnk or .url extension - * will have .lnk appended, before seeking any match - * - * --force override read-only attributes when removing files. - * - * Parameters: - * file the path name for a file to be removed; if --desktop - * or --start-menu is specified, it should be a relative - * path name, which will then be resolved relative to the - * appropriate system directory path. - * - * - * This file is a component of mingw-get. - * - * Written by Keith Marshall - * Copyright (C) 2012, 2013, MinGW.org Project - * - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER - * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING - * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER - * DEALINGS IN THE SOFTWARE. - * - */ -var cmdName = WScript.ScriptName; -var FileSystem = WScript.CreateObject("Scripting.FileSystemObject"); -var WinShell = WScript.CreateObject("WScript.Shell"); - -/* Strip ".js" suffix from command name. - */ -var i = cmdName.lastIndexOf( ".js" ); -if( (i > 0) && (cmdName.substr( i ) == ".js") ) - cmdName = cmdName.substr( 0, i ); - -/* Specify the keywords which identify command line options. - */ -var options = Array( - /* - * Option Effect - * ------------- ------------------------- - */ - "all-users", /* Resolve file path names in all-users domain... */ - "start-menu", /* ...relative to user's or all-users' start menu... */ - "desktop", /* ...or desktop directories. */ - "if-linked", /* Only delete shortcuts with specified target path */ - "force" /* Forcibly override read-only attribute */ - ); - -/* Initialise all options as "unassigned". - */ -var unassigned = "+++unassigned+++"; -var assigned = Array( options.length ); -for( i = 0; i < assigned.length; i++ ) - assigned[i] = unassigned; - -/* The "complain" function provides a mechanism for writing - * diagnostic messages to stderr, and optionally aborting the - * calling script. - */ -function complain( condition, message ) -{ - WScript.StdErr.WriteLine( cmdName + ": " + message ); - if( condition < 0 ) - WScript.Quit( -condition ); - return condition; -} - -/* Parse the command line, to identify any specified options. - */ -var chklink = ""; -var argv = WScript.Arguments; -for( i = 0; i < argv.length; i++ ) -{ - if( argv( i ).indexOf( "--" ) == 0 ) - { - /* Handle arguments specifying options... - */ - var optind; - var matched = 0; - var optname = argv( i ).substr( 2 ); - var optarg = ""; - for( var k = 0; k < options.length; k++ ) - { - /* Try to match each defined option in turn... - */ - var argind = optname.indexOf( "=" ); - if( argind > 0 ) - { - optarg = optname.substr( argind + 1 ); - optname = optname.substr( 0, argind ); - } - - if( optname == options[k] ) - { - /* A exact (complete) match trumps any possible abbreviation... - */ - matched = 1; - assigned[optind = k] = optname; - k = options.length; - } - - else if( options[k].indexOf( optname ) == 0 ) - { - /* Otherwise abbreviations are allowed, but must uniquely - * identify only one defined option name... - */ - if( matched++ > 0 ) - complain( -2, "option '" + argv( i ) + "' is ambiguous" ); - assigned[optind = k] = options[k]; - } - } - if( matched == 0 ) - /* - * Bail out, if no match identified. - */ - complain( -2, "option '" + argv( i ) + "' is undefined" ); - - if( assigned[optind] == "if-linked" ) - chklink = optarg; - } -} - -/* Establish prefix for resolving paths relative to desktop - * or start menu directories, and handle the --force option. - */ -var prefix = ""; -var allusers = false; -var force = false; -for( i = 0; i < options.length; i++ ) -{ - switch( assigned[i] ) - { - case "force": - force = true; - break; - - case "all-users": - allusers = true; - break; - - case "start-menu": - prefix = WinShell.SpecialFolders( allusers ? "AllUsersStartMenu" - : "StartMenu" - ) + "\\"; - break; - - case "desktop": - if( prefix != "" ) - complain( -2, "options '--start-menu' and '--desktop' are incompatible" ); - prefix = WinShell.SpecialFolders( allusers ? "AllUsersDesktop" - : "Desktop" - ) + "\\"; - } -} - -/* Parse the command line again, to process path name arguments, - * and delete the specified files. - */ -for( i = 0; i < argv.length; i++ ) -{ - if( argv( i ).indexOf( "--" ) != 0 ) - { - /* Not an option argument, so assume it's a path name. - */ - var filename = prefix + argv( i ); - if( chklink != "" ) - { - /* The "--if-linked" option is in effect, and a viable - * target path has been defined. The file to be deleted - * MUST be a shortcut file, (i.e. it MUST bear a ".lnk" or - * ".url" extension); supply ".lnk" as default, if this is - * not so. - */ - var l = filename.length - 4; - var suffix = (l > 0) ? filename.substr( l ) : 0; - if( (suffix != ".lnk") && (suffix != ".url") ) - filename += ".lnk"; - } - if( FileSystem.FileExists( filename ) ) - { - /* The requisite file DOES exist... - */ - if( chklink != "" ) - { - /* ...but when "--if-linked is in effect, we must verify that - * the link target is matched (case-insensitively), before... - */ - var ref = WinShell.CreateShortcut( filename ); - var chk = WinShell.CreateShortcut( filename ); chk.TargetPath = chklink; - if( ref.TargetPath.toLowerCase() == chk.TargetPath.toLowerCase() ) - /* - * ...we may proceed with deletion. - */ - FileSystem.DeleteFile( filename, force ); - } - else - /* When "--if-linked" is NOT in effect, we may simply - * proceed with deletion, without further ado. - */ - FileSystem.DeleteFile( filename, force ); - } - } -} - -/* $RCSfile: unlink.js,v $: end of file */