PC Toledo

Código: Selecionar todos

***********
FUNC AJUSTA
***********
vWIN=0

IF File("C:\CONFIG.SYS")  //WIN98 E 95
   vWIN=1
ENDIF
IF File("C:\WINDOWS\SYSTEM32\CONFIG.NT")  // WIN XP
   vWIN=2
ENDIF
IF File("C:\WINNT\SYSTEM32\CONFIG.NT")   // WIN 2000
   vWIN=3
ENDIF

fflag := .t. // flag para FILES
cflag := .t. // flag para BUFFERS
cline:=''

IF vWIN=1
   fhandle := fopen("C:\CONFIG.SYS")
   d_arq = fcreate("C:\CONFIG.BAK",0)
ELSEIF vWIN=2
   fhandle := fopen("C:\WINDOWS\SYSTEM32\CONFIG.NT")
   d_arq = fcreate("C:\CONFIG.BAK",0)
ELSEIF vWIN=3
   fhandle := fopen("C:\WINNT\SYSTEM32\CONFIG.NT")
   d_arq = fcreate("C:\CONFIG.BAK",0)
ENDIF

do whil freadln(fhandle,@cline,LINE_SIZE)
   if 'FILES'$uppe(cline)
      cline := 'FILES=100'
      fflag := .f.
   elseif 'BUFFERS'$uppe(cline)
      cline := 'BUFFERS=30'
      cflag := .f.
   endif
   fwriteln(d_arq,cline)
enddo
if fflag
   fwriteln(d_arq,'FILES=100')
endi
if cflag
   fwriteln(d_arq,'BUFFERS=30')
endi   

fclose(fhandle)
fclose(d_arq)

IF vWIN=1
   COPY FILE C:\CONFIG.BAK TO C:\CONFIG.SYS
ELSEIF vWIN=2
   COPY FILE C:\CONFIG.BAK TO C:\WINDOWS\SYSTEM32\CONFIG.NT
ELSEIF vWIN=3
   COPY FILE C:\CONFIG.BAK TO C:\WINNT\SYSTEM32\CONFIG.NT
ENDIF

IF vWIN=1
   fhandle := fopen("C:\AUTOEXEC.BAT")
   d_arq = fcreate("C:\AUTOEXEC.BAK",0)
ELSEIF vWIN=2
   fhandle := fopen("C:\WINDOWS\SYSTEM32\AUTOEXEC.NT")
   d_arq = fcreate("C:\AUTOEXEC.BAK",0)
ELSEIF vWIN=3
   fhandle := fopen("C:\WINNT\SYSTEM32\AUTOEXEC.NT")
   d_arq = fcreate("C:\AUTOEXEC.BAK",0)
ENDIF

do whil freadln(fhandle,@cline,LINE_SIZE)
   if 'SET PLL='$uppe(cline)
   elseif 'SET CLIPPER='$uppe(cline)
   elseif 'IF NOT EXIST C:\TEMP MD C:\TEMP'$uppe(cline)
   else
      fwriteln(d_arq,cline)   
   endi
enddo
fwriteln(d_arq,'IF NOT EXIST C:\TEMP MD C:\TEMP')
fwriteln(d_arq,'SET CLIPPER=//F:121//DYNF:8//BADCACHE//SWAPK:65535//SWAPPTAH:"C:\TEMP"//TEMPPATH:"C:\TEMP"')
fclose(fhandle)
fclose(d_arq)

IF vWIN=1
   COPY FILE C:\AUTOEXEC.BAK TO C:\AUTOEXEC.BAT
ELSEIF vWIN=2
   COPY FILE C:\AUTOEXEC.BAK TO C:\WINDOWS\SYSTEM32\AUTOEXEC.NT
ELSEIF vWIN=3
   COPY FILE C:\AUTOEXEC.BAK TO C:\WINNT\SYSTEM32\AUTOEXEC.NT
ENDIF
return nil

Código: Selecionar todos

SCRIPT DE COMPILAÇÃO -> SIS.CLP

prog_0.prg   //programa principal
prog_1.prg
prog_2.prg
....
prog_N.prg

SCRIPT DE LINKEDIÇÃO -> SIS.LNK

FILE SIS,c:\clip53\TIMESLIC   // OBJs utilizados
OUTPUT SIS   // Nome do EXECUTÁVEL
BLINKER INCREMENTAL OFF
BLINKER EXECUTABLE CLIPPER F250
BLINKER PROCEDURE DEPTH 140
BLINKER EXECUTABLE NODELETE
BLINKER EXECUTABLE COMPRESS 1
BLINKER EXECUTABLE EXTENDED 
SEARCH BLXCLP53
//---------------------------------------  LIBs Utilizadas
LIB CLIPPER
LIB EXTEND
LIB DBFNTX
LIB TERMINAL
LIB CTP

SCRIPT DO "BAT" DE COMPILAÇÃO/LINKEDIÇÃO -> SIS.BAT

SET INCLUDE=C:\CLIP53
SET LIB=C:\CLIP53
SET OBJ=C:\CLIP53
SET PLL=C:\CLIP53
\CLIP53\CLIPPER @SIS /M /O
\CLIP53\BLINKER @SIS

Código: Selecionar todos

NOBELL
Blinker Incremental Off
Blinker Cache EMS 50%,50% 
Blinker Cache XMS 50%,50% 
Blinker Link EMS ON 
Blinker Link XMS ON 
Blinker Exec Clipper //Dynf:8 //F:254 
Blinker Exec Comp 1 
Blinker Exec Exte 
Blinker Exec NODELETE 
Blinker Memo Pack 60 
Search BlxRatex 
Search BlxClp53 
Blinker Incr Pad 256 
Blinker Over Page On 
Blinker Over Opsi 60 
Blinker Procedure Depth 70
OutPut Sistema

DEFBEGIN
   name        FatAll 
   description 'Sistema de Auto GestÆo Integrado' 
   #exetype     Windows 3.1 
   code        moveable discardable preload 
   data        preload moveable 
   stacksize   9500 
   heapsize    1024 
   segment     'PLANKTON_TEXT' nondiscardable 
   segment     'EXTEND_TEXT'   nondiscardable 
   segment     'OM_TEXT'       nondiscardable 
   segment     'OSMEM_TEXT'    nondiscardable 
   segment     'SORTOF_TEXT'   nondiscardable 
   segment     'STACK_TEXT'    nondiscardable 
DEFEND 

FILE SAGI
FILE MENUS

FILE __WAIT
FILE WFULLSCR

LIB CLIPPER,EXTEND,VL2,CTP,DBFCDX,_DBFCDX,SYGECOM