Changeset 402

Timestamp:

May 22, 2016, 2:08:43 PM (9 years ago)

Author:

RBRi

Message:

more path fixes

Location:

trunk/Library

Files:

• ACLLibrary.scu (modified) ( previous)
• ACLLibraryTestForm.pas (modified) (4 diffs)
• ACLtest.spr (modified) (9 diffs)

trunk/Library/ACLLibraryTestForm.pas

@@ -7 +7 @@
   StdCtrls,
   ACLFileIOUtility,
-  ACLFileUtility,
-  ACLFindFunctions,
-  ACLProfile,
-  ACLStringUtility,
   ACLUtility,
   PCharList,
@@ -30 +26 @@
     FindButton: TButton;
     Button1: TButton;
+    Button2: TButton;
     Button3: TButton;
     Procedure FindButtonOnClick (Sender: TObject);
     Procedure Button4OnClick (Sender: TObject);
     Procedure Button3OnClick (Sender: TObject);
+    Procedure Button2OnClick (Sender: TObject);
     Procedure ACLLibraryTestFormOnCreate (Sender: TObject);
     Procedure ACLLibraryTestFormOnDestroy (Sender: TObject);
@@ -51 +49 @@
 uses
   SysUtils,
-  ACLString, AStringUtilityUnit,
+  ACLString,
   RunProgramUnit;
 
@@ -77 +75 @@
 End;
 
+const
+  test: string = 'This is the string I want to test the CRC with. Ha ha haa';
+  test2: string = 'HERES ANOTHER #&*#^*& STRING';
+  test3: string = #234#221#014;
+
+Procedure TACLLibraryTestForm.Button2OnClick (Sender: TObject);
+var
+  crc: longword;
+Begin
+  crc := GetCRC32( Addr( test ), Length( test ) + 1 );
+  Memo1.Lines.Add( 'Asm Crc =    ' + IntToStr( crc ) );
+  crc := Pascal_GetCRC32( Addr( test ), Length( test ) + 1 );
+  Memo1.Lines.Add( 'Pascal Crc = ' + IntToStr( crc ) );
+
+  crc := GetCRC32( Addr( test2 ), Length( test2 ) + 1 );
+  Memo1.Lines.Add( 'Asm Crc =    ' + IntToStr( crc ) );
+  crc := Pascal_GetCRC32( Addr( test2 ), Length( test2 ) + 1 );
+  Memo1.Lines.Add( 'Pascal Crc = ' + IntToStr( crc ) );
+
+  crc := GetCRC32( Addr( test3 ), Length( test3 ) + 1 );
+  Memo1.Lines.Add( 'Asm Crc =    ' + IntToStr( crc ) );
+  crc := Pascal_GetCRC32( Addr( test3 ), Length( test3 ) + 1 );
+  Memo1.Lines.Add( 'Pascal Crc = ' + IntToStr( crc ) );
+
+End;
 
 type

trunk/Library/ACLtest.spr

@@ -1 +1 @@
 [Application Options]
 
-ApplicationIcon=
+ApplicationIcon=P:\NEWVIEW_DEV\NewView\NewView.ico
 
 [Browser Files]
@@ -29 +29 @@
 File22=INIFILES
 File23=ACLUTILITY
-File24=ACLSTRINGUTILITY
-File25=ACLFILEIOUTILITY
-File26=ACLFINDFUNCTIONS
-File27=ACLSTRING
-File28=ACLFILEUTILITY
-File29=ACLPROFILE
-File30=PCHARLIST
-File31=ACLRESOURCEUTILITY
-File32=ACLVERSIONUTILITYUNIT
-File33=SEMAPHORES
-File34=SHAREDMEMORYUNIT
-File35=ASTRINGUTILITYUNIT
+File24=CHARUTILSUNIT
+File25=DEBUGUNIT
+File26=STRINGUTILSUNIT
+File27=ACLFILEIOUTILITY
+File28=PCHARLIST
+File29=ACLRESOURCEUTILITY
+File30=ACLVERSIONUTILITYUNIT
+File31=SEMAPHORES
+File32=SHAREDMEMORYUNIT
+File33=BSEDEV
+File34=FILEUTILSUNIT
+File35=ACLSTRING
 File36=RUNPROGRAMUNIT
 File37=ACLLIBRARYTESTFORM
@@ -46 +46 @@
 [Compiler Options]
 
-CodeGeneration=Assertions
+CodeGeneration=
 Syntax=
 Optimize=OptimizeCommonSub,OptimizePeephole
@@ -57 +57 @@
 MaxWarnings=200
 MaxErrors=10
+
+[Component Library OS/2]
+
+CompLibName=D:\progs\develop\SIBYL_FP3\Bin\CompLib.dll
 
 [Debugger Options]
@@ -68 +72 @@
 [Directories]
 
-LastDir=P:\NEWVIEW_DEV
-OutDir=x:\temp\Library
-LibDir=x:\temp\Sibyl
-LibSrcDir=x:\sibyl\rtl;x:\sibyl\spcc
+LastDir=P:\NEWVIEW_DEV\BUILD\LIBRARY
+OutDir=P:\newview_dev\build\library
+LibDir=P:\newview_dev\build\sibyl\lib
+LibSrcDir=P:\newview_dev\sibyl\spcc;P:\newview_dev\sibyl\rtl
 IncSrcDir=
-CompInstallDir=d:\development\sibyl\Compnt
+CompInstallDir=P:\NEWVIEW_DEV\build\components
 
 [Find History]
 
-Find0=crc
+Find0=TTerminateCheck
+Find1=TerminateCheck
+Find2=Check
+Find3=AddAndResize
+Find4=GetMaskedFilesForDir
+Find5=StrRightFrom
 
 [General]
@@ -84 +93 @@
 ProjectName=P:\NEWVIEW_DEV\Library\ACLtest.spr
 ProjectType=Visual
-CompLibName=d:\development\sibyl\Bin\CompLib.dll
-Win32CompLibName=d:\development\sibyl\Bin\CompLib.dll
+CompLibName=D:\progs\develop\SIBYL_FP3\Bin\CompLib.dll
+Win32CompLibName=D:\progs\develop\SIBYL_FP3\Bin\CompLib.dll
 RunParameter=
 InActiveLanguages=
@@ -93 +102 @@
 [Last Open Files]
 
-File0=.\ACLLibraryTestForm.pas
+File0=.\ACLUtility.pas
 File0.Left=-4
-File0.Bottom=-4
-File0.Width=1723
-File0.Height=609
-File0.Column=177
-File0.Line=22
+File0.Bottom=-5
+File0.Width=1388
+File0.Height=582
+File0.Column=14
+File0.Line=141
+File1=.\StringUtilsUnit.pas
+File1.Left=-4
+File1.Bottom=-5
+File1.Width=1388
+File1.Height=582
+File1.Column=7
+File1.Line=865
+File2=.\ACLFileIOUtility.pas
+File2.Left=-4
+File2.Bottom=-5
+File2.Width=1388
+File2.Height=582
+File2.Column=1
+File2.Line=41
+File3=.\CharUtilsUnit.pas
+File3.Left=-4
+File3.Bottom=-5
+File3.Width=1388
+File3.Height=582
+File3.Column=31
+File3.Line=109
+File4=.\ACLLibraryTestForm.pas
+File4.Left=-4
+File4.Bottom=-5
+File4.Width=1388
+File4.Height=582
+File4.Column=87
+File4.Line=141
+File5=.\ACLLibrary.pas
+File5.Left=-4
+File5.Bottom=-5
+File5.Width=1388
+File5.Height=582
+File5.Column=38
+File5.Line=4
+File6=.\FileUtilsUnit.pas
+File6.Left=-4
+File6.Bottom=-5
+File6.Width=1388
+File6.Height=582
+File6.Column=5
+File6.Line=1083
+File7=.\RunProgramUnit.pas
+File7.Left=-4
+File7.Bottom=-5
+File7.Width=1388
+File7.Height=582
+File7.Column=28
+File7.Line=216
 
 [Linker Options]
@@ -127 +185 @@
 
 SCUName=.\ACLLibrary.scu
-MainForm=
+MainForm=ACLLibraryTestForm
 
 [Win32 Application Options]
@@ -135 +193 @@
 [Win32 Compiler Options]
 
-CodeGeneration=Assertions
+CodeGeneration=
 Syntax=
 Optimize=OptimizeCommonSub,OptimizePeephole