Procedure    URPOSE

Uses Dos,Crt;

Const

  VersionNum = 'V1.0 BETA';

  ProgNameStr = 'NEWPROJ.EXE';

  ProgNameShortStr = 'NP.EXE';

  copyRightStr = ProgNameStr+' ' + VersionNum +

                ', Copyright 1992 - 1993, Ken Fox. All Rights Reserved.';

  DefaultFileName = 'NEWPROJ.DAT';

Const

SwitchLength = ;   {   maxlegth of a switch to be tested for}

ArgLength = ;     {   max length of an argument from the commandline}

DelimLength = ;     {   maxlength of delimiter if used}

SwitchNum = ;      {   the number of switches and hence the size of the Array}

                    {      of switches  without arguments                  }

ArgdSwitchNum = ;  {   the number of switches and hence the size of the Array}

                    {      of switches  With arguments                 }

DelimNum = ;       {   number of args With delimited Strings          }

Type

SwitchType = String[Switchlength];

ArgType = String[ArgLength];

DelimType = String[DelimLength];

SwitchesType = Record

         Switch : Array[..SwitchNum] of SwitchType;

         Present : Array[..switchNum] of Boolean

         end;

SwitchWithArgType = Record

              Switch  : Array[..ArgdSwitchNum] Of SwitchType;

              Arg     : Array[..ArgdSwitchNum] Of ArgType;

              Present : Array[..ArgdSwitchNum] of Boolean

              end;

SwitchedArgWithEmbeddedSpacesType = Record

              Switch     : Array[..DelimNum] Of SwitchType;

              StartDelim : Array[..DelimNum] of DelimType;

              Arg        : Array[..DelimNum] Of ArgType;

              endDelim   : Array[..DelimNum] of DelimType;

              Present    : Array[..DelimNum] of Boolean

              end;

CommandLineArrayType = Record

           Switches : SwitchesType;

           ArgDSw   : SwitchWithArgType;

           {    DelimSw  : SwitchedArgWithEmbeddedSpacesType; }

           NoParams : Boolean           {True if nothing on commandline}

           end;

Var

NoCase,

ConvertArgsToUpper

                  : Boolean;

CmdArray                : CommandLineArrayType;

Procedure   initCmdArray(Var CmdArray : CommandLineArrayType);

begin

   {DEFAULT VALUES SET}

   NoCase := True;

   ConvertArgsToUpper := True;

with CmdArray do

   begin

   Switches.Switch[] := '/?' ;     {default help String}

   Switches.Switch[] := '/h' ;     {default help String}

   Switches.Switch[] := '/H' ;     {default help String}

   Switches.Switch[] := 'HELP' ;   {default help String}

   Switches.Switch[] := 'help' ;   {default help String}

   Switches.Switch[] := 'INFO'     {show author contact Info}

{   Switches.Switch[6] := '  ' ;}   {NOT USED}

{   Switches.Switch[7] := '  ' ;}   {NOT USED}

{   Switches.Switch[8] := '  ' ;}   {NOT USED}

{   Switches.Switch[9] := '  ' ;}   {NOT USED}

{   Switches.Switch[10] := '  ' ;}  {NOT USED}

{   Switches.Switch[11] := '  ' ;}  {NOT USED}

{   Switches.Switch[12] := '  ' ;}  {NOT USED}

{  ArgDSw.Switch[1] := '' ;}       {not used}

{  ArgDSw.Switch[2] := '' ;}       {not used}

{  ArgDSw.Switch[3] := '' ;}       {NOT USED}

{  ArgDSw.Switch[4] := '' ;}       {NOT USED}

{  ArgDSw.Switch[5] := '' ;}       {NOT USED}

{  ArgDSw.Switch[6] := '' ;}       {NOT USED}

{  ArgDSw.Switch[7] := '' ;}       {NOT USED}

{  ArgDSw.Switch[8] := '' ;}       {NOT USED}

{  ArgDSw.Switch[9] := '' ;}       {NOT USED}

{  ArgDSw.Switch[10] := '' ;}      {NOT USED}

{  ArgDSw.Switch[11] := '' ;}      {NOT USED}

{  ArgDSw.Switch[12] := '' ;}      {NOT USED}

{  ArgDSw.Switch[13] := '' ;}      {NOT USED}

(*

With DelimSw Do

{     Switch[1]     := '' ;     }  {NOT USED}

{     StartDelim[1] := '' ;     }  {NOT USED}

{     endDelim[1]   := '' ;     }  {NOT USED}

{     Switch[2] := '' ;         }  {NOT USED}

{     StartDelim[2] := '' ;     }  {NOT USED}

{     endDelim[2]   := '' ;     }  {NOT USED}

{     Switch[3] := '' ;         }  {NOT USED}

{     StartDelim[3] := '' ;     }  {NOT USED}

{     endDelim[3]   := '' ;     }  {NOT USED}

{     Switch[4] := '' ;         }  {NOT USED}

{     StartDelim[4] := '' ;     }  {NOT USED}

{     endDelim[4]   := '' ;     }  {NOT USED}

{     Switch[5] := '' ;         }  {NOT USED}

{     StartDelim[5] := '' ;     }  {NOT USED}

{     endDelim[5]   := '' ;     }  {NOT USED}

{     Switch[6] := '' ;         }  {NOT USED}

{     StartDelim[6] := '' ;     }  {NOT USED}

{     endDelim[6]   := '' ;     }  {NOT USED}

{     Switch[7] := '' ;         }  {NOT USED}

{     StartDelim[7] := '' ;     }  {NOT USED}

{     endDelim[7]   := '' ;     }  {NOT USED}

{     Switch[8] := '' ;         }  {NOT USED}

{     StartDelim[8] := '' ;     }  {NOT USED}

{     endDelim[8]   := '' ;     }  {NOT USED}

{     Switch[9] := '' ;         }  {NOT USED}

{     StartDelim[9] := '' ;     }  {NOT USED}

{     endDelim[9]   := '' ;     }  {NOT USED}

{     Switch[10] := '' ;        }  {NOT USED}

{     StartDelim[10] := '' ;    }  {NOT USED}

{     endDelim[10]   := '' ;    }  {NOT USED}

{     Switch[11] := '' ;        }  {NOT USED}

{     StartDelim[11] := '' ;    }  {NOT USED}

{     endDelim[11]   := '' ;    }  {NOT USED}

( min left), (H)elp, More?

{     Switch[12] := '' ;        }  {NOT USED}

{     StartDelim[12] := '' ;    }  {NOT USED}

{     endDelim[12]   := '' ;    }  {NOT USED}

{     Switch[13] := '' ;        }  {NOT USED}

{     StartDelim[13] := '' ;    }  {NOT USED}

{     endDelim[13]   := '' ;    }  {NOT USED}

{     Switch[14] := '' ;        }  {NOT USED}

{     StartDelim[14] := '' ;    }  {NOT USED}

{     endDelim[14]   := '' ;    }  {NOT USED}

end {with DelimSw }

*)

end; {WITH CmdArray}

end;

Procedure CmdParse(Var CmdArray : CommandLineArrayType;

                             NoCase,

                             ConvertArgsToUpper   : Boolean );

{ Procedure to handle all commandline Parameters With or without regard }

{to Case -- selected by the Boolean Var Nocase -- if True then  everrything}

{is converted to uppercase prior to testing}

{all arguments returned from switches are left in whatever Case they were }

{entered on the commandline unless ConvertArgsToUpper is set to True.}

Const

   Blank = ' ';

Var

   counter                 : Integer;

   Blanks                  : ArgType;

{+++++++++++++++++++++++  Private Procedures to CmdParse Main  +++++++++++++}

Procedure ConvertArgsToUpperCase(Var CmdArray:CommandLineArrayType);

Var

  Counter,

  Counter2   : Integer;

begin   {--------->>>> ConvertArgsToUpperCase <<<<------------}

  For Counter :=  to ArgDSwitchNum Do

      For Counter2 :=  to Length(CmdArray.ArgDSw.Arg[counter]) DO

          CmdArray.ArgDSw.Arg[counter,Counter2] :=

                UPCASE(CmdArray.ArgDSw.Arg[counter,Counter2] );

end;    {--------->>>> ConvertArgsToUpperCase <<<<------------}

{----------------------------------------------------------------------}

Procedure ConvertSwitchesToUpperCase(Var CmdArray:CommandLineArrayType);

Var

  Counter,

  Counter2   : Integer;

begin  {--------->>>> ConvertSwitchesToUpperCase  <<<<------------}

   For Counter :=  to SwitchNum Do

      begin

      For Counter2 :=  to Length(CmdArray.Switches.Switch[counter]) DO

          CmdArray.Switches.Switch[counter,Counter2] :=

             UPCASE(CmdArray.Switches.Switch[counter,Counter2]);

      end;

   For Counter :=  to ArgDSwitchNum Do

      For Counter2 :=  to Length(CmdArray.ArgDSw.Switch[counter]) DO

          CmdArray.ArgDSw.Switch[counter,Counter2] :=

                UPCASE(CmdArray.ArgDSw.Switch[counter,Counter2] );

end;  {--------->>>> ConvertSwitchesToUpperCase  <<<<------------}

{----------------------------------------------------------------------}

Procedure InitializeArrays(Var CmdArray:CommandLineArrayType;

                           Var Nocase : Boolean  );

Var

   Counter

          : Integer;

begin     {--------->>>> InitializeArrays  <<<<------------}

  cmdArray.NoParams := False;

  For Counter :=  to SwitchNum Do

    CmdArray.Switches.present[counter] := False;

  For Counter :=  to ArgDSwitchNum Do

    begin

       CmdArray.ArgDSw.present[counter] := False;

       CmdArray.ArgDSw.Arg[counter] := Blanks;

    end;

  if NoCase then                           {convert all Switches in CmdArray}

     ConvertSwitchesToUpperCase(CmdArray); {to uppercaseif nocase is set to }

                                           {True}

end;       {--------->>>> InitializeArrays  <<<<------------}

{----------------------------------------------------------------------}

Procedure ParseNow(Var CmdArray:CommandLineArrayType;

                           Var Nocase : Boolean  );

Var

Counter,Counter2,

Start,

SwitLen,CurrentArgLen   : Integer;

Blanks                  : ArgType;

TestStr                 : SwitchType;

WorkStr                 : String;

Label

   Next_Parameter;

begin   {--------->>>> ParseNow <<<<------------}

  {check For switches without args first}

  For counter :=  to ParamCount Do

    begin  {number of Parameters Loop}

       TestStr:= ParamStr(counter);

       if Nocase Then    { covert paramStr(counter) to upper Case if NoCase}

          begin          { is set to True}

            WorkStr := TestStr;

            For Counter2 :=  to SwitchLength DO

                TestStr[counter2]  := UPCASE((WorkStr[counter2]));

          end;

      For Counter2 :=  to SwitchNum Do

           begin  { Switches without arguments loop }

              SwitLen := Length(CmdArray.Switches.Switch[Counter2]);

              if CmdArray.Switches.Switch[Counter2] =

                    Copy(TestStr,,SwitLen) then

                    begin

                       CmdArray.Switches.Present[Counter2] := True;

                       Goto Next_Parameter;

                     end;

           end; { Switches without arguments loop }

       For counter2 :=  to ArgDSwitchNum  Do

           begin     { Switches With arguments test loop }

              SwitLen := Length(CmdArray.ArgDSw.Switch[Counter2]);

              if CmdArray.ArgDSw.Switch[Counter2] =

                    Copy(TestStr,,SwitLen) then

                 begin

                    CmdArray.ArgDSw.present[Counter2] := True;

                    Start := length(CmdArray.ArgDSw.Switch[Counter2]) + ;

                    CurrentArgLen := length(paramStr(counter)) - (start-);

                    CmdArray.ArgDSw.Arg[Counter2] :=

                          Copy(ParamStr(Counter),Start,CurrentArgLen);

                    Goto Next_Parameter; {used inplace of an Exit}

                 end;

           end;     { Switches With arguments test loop }

    next_parameter:; {used to speed up execution -- Exit doesn't work here}

    end;        {number of Parameters Loop}

end;    {--------->>>> ParseNow <<<<------------}

Procedure Parsedelimited(Var CmdArray : CommandLineArrayType;

                             NoCase,

                             ConvertArgsToUpper   : Boolean );

{this Procedure will bag any String on the commandline With embedded spaces}

(*  and is delimited by Characters such as "" , {}, [], (), <>, ^^, etc ...*)

begin    {--------->>>> Parsedelimited <<<<------------}

end;     {--------->>>> Parsedelimited <<<<------------}

{----------------------------------------------------------------------}

{+++++++++++++++++++ end  Private Procedures to CmdParse Main  +++++++++++++}

{==================================== MAIN Procedure ===================}

begin           {+++++++++>>>> Procedure CmdParse  <<<<++++++++++++}

  {Init Arrays}

  For counter :=  to ArgLength do      {  the String Blanks needs to be }

      Blanks[Counter] := Blank;         {  global because most routines  }

                                        {  are useing it                 }

  InitCmdArray(CmdArray); { this Procedure located in the cmdparse.h File}

                          { assigns values to switches, etc.}

  InitializeArrays(CmdArray,NoCase);

  If ParamCount =  then                { check command line For null String}

     begin                              { if nullString then set No Params  }

        cmdArray.NoParams := True;      { and return to the calling routine }

        Exit;

     end;

   ParseNow(CmdArray, Nocase);           { routine parses the commandline   }

                                         { passing through the switches w/o }

                                         { arguments first. When Delimited  }

 { If Not(NoDelimited) then }            { switch parsing is added, it will }

   { Parsedelimited(CmdArray,NoCase);}   { occur after all other parsing    }

                                         { as a seperate routine to follow  }

                                         { PARSENOW -- additionally -- add  }

                                         { Boolean Value "NoDelimited" to   }

                                         { calling routine and Cmdparse.h   }

                                         { to bypass checking For delimited }

  if ConvertArgsToUpper then

       ConvertArgsToUpperCase(CmdArray);

end;     {+++++++++>>>> Procedure CmdParse  <<<<++++++++++++}

{======================  end CmdParse MAIN Procedure ===================}

{ /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}

{                    Parser Utility routines                            }

{ /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}

Procedure ConvertArgtoNumber(ArgNum : Integer;

                             Var  CmdArray : CommandLineArrayType;

                             Var  ResultNumber: Word);

Var

  code : Integer;

begin    {----------->>>> ConvertArgtoNumber <<<<---------------}

  Val(CmdArray.ArgDsw.Arg[ArgNum],ResultNumber,code);

    if code <>  then

       begin

          WriteLn('Error commandline argument: ',

                       CmdArray.ArgDsw.Switch[ArgNum],'  ',

                       CmdArray.ArgDsw.Arg[ArgNum]);

          Writeln('press enter to continue');

          readln;

          HelpUser;  {see notes}

       end;

end;     {----------->>>> ConvertArgtoNumber <<<<---------------}

{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}

Procedure FnameCheck(progname, progname2 :pathStr;

                     errorlevel : Byte);

Var

teststr1,teststr2 :pathStr;

begin    {----------->>>> FnameCheck <<<<---------------}

teststr1 := copy(paramstr(),(length(paramstr()) - (Length(progname)-) ),

                             Length(progname));

teststr2 := copy(paramstr(),(length(paramstr()) - (Length(progname2)-) ),

                             Length(progname2));

if ((teststr1 <> ProgName) and (teststr2 <> ProgName2))

   then

     begin

     WriteLn('Unrecoverable Error in ',progname, ', Check FileNAME');

     halt(Errorlevel);

     end;

end;     {----------->>>> FnameCheck <<<<---------------}

{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}

Procedure DispCmdline;

     { use For debugging -- displays the command line parameters}

     { readln at end shows screen Until enter is pressed}

VAr Count : Integer;

begin

ClrScr;

For Count :=  to  SwitchNum do

    if CmdArray.Switches.present[count] then

       WriteLn(CmdArray.Switches.Switch[count],'    Present');

For Count :=  to ArgdSwitchNum  do

    if CmdArray.ArgDsw.present[count] then

       begin

          WriteLn(CmdArray.ArgDsw.Switch[count],'   Present.');

          WriteLn('Value of:  ',CmdArray.ArgDsw.Arg[count]);

       end;

Writeln;

Write('press ENTER to continue');

ReadLn;

Halt();

end;

Procedure CheckHelp;

Var

   COUNT : Byte;

begin

   For count :=  to  do

     if cmdArray.Switches.Present[Count] then

        helpUser;

   if cmdArray.Switches.Present[] then

     displayinfo;

end;

{---------------------------Helpuser --------------------------}

Procedure HelpUser;

begin

   ClrScr;

   Writeln (CopyRightStr);

   WriteLn;

   WriteLn('USAGE: ');

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   Writeln;

   Writeln('Press Enter to continue.');

   ReadLn;

   Writeln;

   WriteLn('EXAMPLE:...............................');

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   WriteLn;

   Writeln (CopyRightStr);

   halt();

 end;

{-------------------------------------------------------------------------}

Procedure DisplayInfo;

   begin

      ClrScr;

      Writeln(copyrightStr);

      Writeln;

      Writeln('Ken Fox');

      WriteLn('1449 Maple Rd.');

      Writeln('Kintnersville Pa. 18930');

      WriteLn('215 672-9713       9 - 5 EST');

      Writeln;

      Writeln('Contact on shareware conference on Internet  -- KEN FOX');

      Writeln;

      halt();

   end;

{--------------------------------------------------------------------------}

this info is For all of the PASCAL conference people:

to use the rotuines in this Program you need to do the following

{$I path.......\Progname.h}

{$I Path.......\Helpuser.PAS}

{$I path.......\CMDPARSE.PAS}

 progname.H is a copy of the CMDPARSE.H File which contains the specific

 settings For the Program you are writing .

 HELPUSER.PAS is a Program specific help routine which get called by

 the routie CHECKHELP in CMDPARSE.PAS if the CheckHelp Procedure is

 used in the main Program. crude but effective.

 CMDPARSE.PAS -- this File contains all of the parsing routines. I keep this

 File in my .....\TP\INCLUDE directory .

 I set up a sepearte directory below the tp directory For each Program

 and copy the Files Helpuser.Pas and cmdparse.h into it thusly each

 copy of these two Files is customized For the give application While

 the actual parsing routines are kept in the INCLUDED FileS directory.

 there's no need to modify CMDPARSE.PAS

 using the parser..

       ) in the CMDPARSE.H File there are templates For all of the Array

 initializations. the switches to search For are manually inserted in to

 each Array item. additionally the Array sizes must be set where indicated

 in the CMDPARSE.H File.

{-------------------------------------------------------------------------}

  THE FOLLOWING ARE THE SETTINGS For Array SIZES

{-------------------------------------------------------------------------}

Const

SwitchLength = ;   {   maxlegth of a switch to be tested for}

ArgLength = ;     {   max length of an argument from the commandline}

DelimLength = ;     {   maxlength of delimiter if used}

SwitchNum = ;      {   the number of switches and hence the size of the Array}

                    {      of switches  without arguments                  }

ArgdSwitchNum = ;  {   the number of switches and hence the size of the Array}

                    {      of switches  With arguments                 }

DelimNum = ;       {   number of args With delimited Strings          }

{-------------------------------------------------------------------------}

     THE FOLLOWING SHOW HOW to INIT THE Array SEARCH VarIABLES..

     THESE LINES ARE ALL CONTAINED in  ---->>>> CMDPARSE.H

{-------------------------------------------------------------------------}

   Switches.Switch[] := '/?' ;     {default help String}

   Switches.Switch[] := '/h' ;     {default help String}

   Switches.Switch[] := '/H' ;     {default help String}

   Switches.Switch[] := 'HELP' ;   {default help String}

   Switches.Switch[] := 'help' ;   {default help String}

   Switches.Switch[] := 'INFO'     {show author contact Info}

{   Switches.Switch[6] := '  ' ;}   {NOT USED}

{---------------------------------}

THE FOLLOWING ARE For SWITCHES WHICH WILL CAPTURE A VALUE AS WELL AS

TEST For THE PRESENCE of THE ARGUMENT

{---------------------------------}

{  ArgDSw.Switch[1] := '' ;}       {not used}

{  ArgDSw.Switch[2] := '' ;}       {not used}

{  ArgDSw.Switch[3] := '' ;}       {NOT USED}

{  ArgDSw.Switch[4] := '' ;}       {NOT USED}

{  ArgDSw.Switch[5] := '' ;}       {NOT USED}

{  ArgDSw.Switch[6] := '' ;}       {NOT USED}

{  ArgDSw.Switch[7] := '' ;}       {NOT USED}

{-------------------------------------------------------------------------}

       ) if you intend to use the routines in HELPUSER.PAS or to perform

a Filename validation  -- there is a template at the beginning of CMDPARSE.H

with Certain Constants which must be set.

Uses Dos,Crt;

Const

  VersionNum = 'V1.0 BETA';

  ProgNameStr = 'NEWPROJ.EXE';

  ProgNameShortStr = 'NP.EXE';

  copyRightStr = ProgNameStr+' ' + VersionNum +

                ', Copyright 1992 - 1993, Ken Fox. All Rights Reserved.';

  DefaultFileName = 'NEWPROJ.DAT';

{-------------------------------------------------------------------------}

      ) To call the Various routines in  the CMDPARSE.PAS File there are

Templates which you can cut and paste into you Program from  CMDPARSE.H

{--------------------------------------------------------------------------}

{                          procs Available in CmdParse.Pas                 }

{ additional info on the following procs may be found in the cmdparse.Pas  }

{ File in the ....\tp\include directory..                                  }

{                                                                          }

{ Procedure DispCmdline;                                                   }

{                                                                          }

{ Procedure CmdParse(Var CmdArray : CommandLineArrayType;                  }

{                            NoCase,                                       }

{                            ConvertArgsToUpper   : Boolean );             }

{                                                                          }

{ Procedure ConvertArgtoNumber(ArgNum : Integer;                           }

{                             Var  CmdArray : CommandLineArrayType;        }

{                             Var  ResultNumber: Word);                    }

{                                                                          }

{ Procedure FnameCheck(progname , progname2 :pathStr;                      }

{                      errorlevel : Byte);                                 }

{                                                                          }

{ Procedure CheckHelp;                                                     }

{                                                                          }

{--------------------------------------------------------------------------}

      ) To test whether an ON/OFF switch is present (such as /?) on the

commandline  use the following:

             if CmdArray.Switches.Present[number] then

                begin

                end;

      ) to get the argument from a switch .

            if CmdArray.ArgDsw.Present[number] then

               WhatEverVariable := CmdArray.ArgDsw.Arg[number];

      ) the Procedure ConvertArgtoNumber is avail to convert a

String on the command line to a decimal number.. this is only good for

for whole numbers w/o nnn. etc.

hope this stuff is useful -- there are other notes and comments sprinkled

throughout so please check those before calling..

finally - in the interest traversing the command tail only once the most

henious of Programming Constructs -- the Goto statement -- has been used.

please forgive me in advance....

questions comments and suggestions are welcome..

see the address in the CMDPASE.DOC File..

CmdParse的更多相关文章

  1. linux 捕获信号处理中遇到的死锁

    tag: 信号 signal  sigchld  死锁 堆栈 我们的程序需要捕获信号自己处理,所以尝试对1-32的信号处理(后面33-64的信号不处理).但是在调试代码时,发现一个线程死锁的问题.程序 ...

  2. debian上安装tmux

    1.安装ncurses库 1.1.获取源码 wget https://invisible-island.net/datafiles/release/ncurses.tar.gz tar xvf ncu ...

随机推荐

  1. 【搜索引擎Jediael开发笔记1】搜索引擎初步介绍及网络爬虫

    详细可参考 (1)书箱:<这就是搜索引擎><自己动手写网络爬虫><解密搜索引擎打桩实践> (2)[搜索引擎基础知识1]搜索引擎的技术架构 (3)[搜索引擎基础知识2 ...

  2. Android的消息机制

    一.简介 ①.我们不能在子线程中去访问UI空控件,这是时候只能通过Handler将更新UI的操作放到主线程中去执行 ②.Handler的组成:messageQueue和Looper的支持 ③.Mess ...

  3. CRAHNs: Cognitive radio ad hoc networks

    2009 Elsevier 综述了认知无线AD Hoc网络中的各个方面的研究进展及面临的挑战.包括传输层.网络层.链路层的协议设计. 根据CCC(common control channel)的实现思 ...

  4. How to delete the icons of Win7 desktop shortcuts

    1. Copy the following bat code in txt type file, 2. save it as file extension type bat, run it as ad ...

  5. 如何有效地配置基于Spring的应用系统

    Spring为应用系统的开发提供了极大的方便,其IoC反向注入(或DI依赖注入)的概念也彻底地改变了旧的编程方式,让我们只需关注如何使用对象,而创建对象交给Spring去完成,即把使用对象和创建对象分 ...

  6. Centos下编译Linux内核

    Linux内核编译是一件简单却费事的事.但是独立的编译linux内核会帮助你很好的理解Linux内核的工作机理. 首先编译linux内核我们需要在当前linux操作系统下安装gcc编译器,因为我是Ce ...

  7. linux之SQL语句简明教程---LIKE

    LIKE 是另一个在 WHERE 子句中会用到的指令.基本上,LIKE 能让我们依据一个套式 (pattern) 来找出我们要的资料.相对来说,在运用 IN 的时候,我们完全地知道我们需要的条件:在运 ...

  8. 悼念512汶川大地震遇难同胞――珍惜现在，感恩生活 分类： dp 2015-05-21 10:50 14人阅读 评论(0) 收藏

    Description 急!灾区的食物依然短缺! 为了挽救灾区同胞的生命,心系灾区同胞的你准备自己采购一些粮食支援灾区,现在假设你一共有资金n元,而市场有m种大米,每种大米都是袋装产品,其价格不等,并 ...

  9. DevC++ 工程没有调试信息的解决办法

    DevC++4.9.9.2中,按 F8 开始调试.提示信息为:工程没有调试信息,您想打开工程的调试选项并重新生成吗?选择是后,再按F8,仍旧是这个信息.什么原因呢? 按照帮助,Frequently A ...

  10. IE 下a标签在 position:absolute 后无法点击的问题

    IE 下 a 标签在 position:absolute 后无法点击的问题 条件 : DOCTYPE 为 XHTML. IE 浏览器 现象 : 将 a 的 position 指定为 absolute, ...