A PHP Error was encountered

Severity: 8192

Message: Function create_function() is deprecated

Filename: geshi/geshi.php

Line Number: 4698

Backtrace:

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 4698
Function: _error_handler

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 4621
Function: _optimize_regexp_list_tokens_to_string

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 1655
Function: optimize_regexp_list

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 2029
Function: optimize_keyword_group

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 2168
Function: build_parse_cache

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/Process.php
Line: 45
Function: parse_code

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/models/Pastes.php
Line: 517
Function: syntax

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/controllers/Main.php
Line: 693
Function: getPaste

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/index.php
Line: 315
Function: require_once

Technology_DB - Stikked
Stikked

Technology_DB

From eloaders, 5 Years ago, written in GAMBAS.
URL http://geopaste.scratchbook.ch/view/fcd03fa2
Embed
Download Paste or View Raw
  1. ' Gambas module file
  2.  
  4.  
  5. Private Enum VENDOR_INTEL = 0,      '' Intel CPU */
  6.              VENDOR_AMD = 1,        '' AMD CPU */
  7.              VENDOR_CYRIX = 2,      '' Cyrix CPU */
  8.              VENDOR_NEXGEN = 3,     '' NexGen CPU */
  9.              VENDOR_TRANSMETA = 4,  '' Transmeta CPU */
  10.              VENDOR_UMC = 5,        '' x86 CPU by UMC */
  11.              VENDOR_CENTAUR = 6,    '' x86 CPU by IDT */
  12.              VENDOR_RISE = 7,       '' x86 CPU by Rise Technology */
  13.              VENDOR_SIS = 8,        '' x86 CPU by SiS */
  14.              VENDOR_NSC = 9,        '' x86 CPU by National Semiconductor */
  15.              VENDOR_HYGON = 10      '' Hygon CPU */
  16.  
  17. Private Enum DB_CPU_MODEL = 0,
  18.              DB_CPU_EXT_MODEL = 1,
  19.              DB_CPU_EXT_FAMILY = 2,
  20.              DB_CPU_PROCESS = 3
  21.              
  22. ''Model | E. Model |E. Family |Process
  23. Private technology_intel As String[][] = [
  24.     ["0", "0", "-1", "180"],    '' P4 Willamette
  25.     ["1", "1", "6", "350"],     '' Pentium Pro
  26.     ["1", "1", "15", "180"],    '' P4 Willamette
  27.     ["2", "2", "-1", "130"],    '' P4 Northwood / Gallatin
  28.     ["3", "3", "5", "350"],     '' PII Overdrive
  29.     ["3", "3", "6", "350"],     '' PII Klamath
  30.     ["3", "3", "15", "90"],     '' P4 Prescott
  31.     ["4", "4", "-1", "90"],     '' P4 Prescott/Irwindale / PD Smithfield
  32.     ["5", "5", "6", "250"],     '' PII Deschutes / Tonga / Xeon Drake / Celeron Covington
  33.     ["5", "37", "-1", "32"],    '' Westmere
  34.     ["5", "53", "-1", "32"],    '' Atom Cloverview
  35.     ["5", "69", "-1", "22"],    '' Haswell
  36.     ["5", "85", "-1", "14"],    '' Skylake (Xeon Scalable)
  37.     ["6", "6", "6", "250"],     '' PII Dixon / Celeron Mendocino
  38.     ["6", "6", "15", "65"],     '' P4 Cedar Mill / PD Presler
  39.     ["6", "22", "-1", "65"],    '' C2 Conroe-L
  40.     ["6", "54", "-1", "32"],    '' Atom Cedarview
  41.     ["6", "70", "-1", "22"],    '' Haswell (Crystalwell"," L4 cache)
  42.     ["7", "7", "-1", "250"],    '' PIII Katmai
  43.     ["7", "23", "-1", "45"],    '' C2 Wolfdale / Yorkfield / Penryn
  44.     ["7", "55", "-1", "22"],    '' Atom Bay Trail
  45.     ["7", "71", "-1", "14"],    '' Broadwell
  46.     ["8", "0", "0", "180"],     '' PIII Coppermine-T
  47.     ["8", "8", "-1", "180"],    '' PIII Coppermine
  48.     ["9", "9", "-1", "130"],    '' Pentium M Banias
  49.     ["10", "26", "-1", "45"],   '' Nehalem
  50.     ["10", "30", "-1", "45"],   '' Nehalem
  51.     ["10", "42", "-1", "32"],   '' Sandy Bridge
  52.     ["10", "58", "-1", "22"],   '' Ivy Bridge
  53.     ["11", "11", "-1", "130"],  '' PIII Tualatine
  54.     ["12", "28", "-1", "45"],   '' Atom Diamondville / Pineview / Silverthorne
  55.     ["12", "44", "-1", "32"],   '' Westmere
  56.     ["12", "60", "-1", "22"],   '' Haswell
  57.     ["12", "76", "-1", "14"],   '' Atom Cherry Trail
  58.     ["13", "13", "-1", "90"],   '' Pentium M Dothan
  59.     ["13", "45", "-1", "32"],   '' Sandy Bridge-E
  60.     ["13", "61", "-1", "14"],   '' Broadwell-U
  61.     ["14", "14", "-1", "65"],   '' Yonah (Core Solo)
  62.     ["14", "30", "-1", "45"],   '' Nehalem (Lynnfield)
  63.     ["14", "62", "-1", "22"],   '' Ivy Bridge-E
  64.     ["14", "78", "-1", "14"],   '' Skylake
  65.     ["14", "94", "-1", "14"],   '' Skylake
  66.     ["14", "158", "-1", "14"],  '' Kaby Lake / Coffee Lake
  67.     ["15", "15", "-1", "65"],   '' C2 Conroe / Allendale / Kentsfield / Merom
  68.     ["15", "63", "-1", "22"],   '' Haswell-E
  69.     ["15", "79", "-1", "14"],   '' Broadwell-E
  70.     ["-1", "-1", "-1", "-1"]
  71. ]
  72.  
  73. Private technology_amd As String[][] = [
  74.     ["0", "16", "21", "32"],   '' Bulldozer (Piledriver: Trinity)
  75.     ["0", "48", "21", "28"],   '' Bulldozer (Steamroller: Kaveri)
  76.     ["0", "112", "21", "28"],  '' Bulldozer (Excavator: Stoney Ridge)
  77.     ["0", "-1", "22", "28"],   '' Jaguar (Kabini/Mullins)
  78.     ["1", "-1", "18", "32"],   '' K10 (Llano)
  79.     ["1", "-1", "20", "40"],   '' Bobcat (Brazos Zacate)
  80.     ["1", " 1", "21", "32"],   '' Bulldozer
  81.     ["1", "96", "21", "28"],   '' Bulldozer (Excavator: Carrizo)
  82.     ["1", " 1", "23", "14"],   '' Zen (Naples/Whitehaven/Summit Ridge)
  83.     ["1", "17", "23", "14"],   '' Zen (Raven Ridge)
  84.     ["1", "113", "23", " 7"],  '' Zen 2 (Rome/Matisse)
  85.     ["2", "-1", "16", "65"],   '' K10 (Kuma/Agena)
  86.     ["2", "-1", "20", "40"],   '' Bobcat (Brazos Desna/Ontario)
  87.     ["2", "-1", "21", "32"],   '' Bulldozer (Piledriver: Vishera)
  88.     ["3", "-1", "15", "90"],   '' K8 (Toledo)
  89.     ["3", "-1", "21", "32"],   '' Bulldozer (Piledriver: Richland)
  90.     ["4", "-1", "15", "90"],   '' K8 (Lancaster)
  91.     ["4", "-1", "16", "45"],   '' K10 (Deneb/Heka)
  92.     ["5", "-1", "16", "45"],   '' K10 (Propus)
  93.     ["5", "-1", "21", "28"],   '' Bulldozer (Excavator: Bristol Ridge)
  94.     ["6", "-1", "16", "45"],   '' K10 (Champlain/Sargas/Regor)
  95.     ["8", "-1", " 6", "130"],  '' K7 (Thoroughbred/Applebred)
  96.     ["8", "-1", "15", "65"],   '' K8 (Tyler)
  97.     ["8", "-1", "21", "28"],   '' Bulldozer (Steamroller: Godavari)
  98.     ["8", " 8", "23", "12"],   '' Zen+ (Colfax/Pinnacle Ridge)
  99.     ["8", "24", "23", "12"],   '' Zen+ (Picasso)
  100.     ["9", "-1", "16", "45"],   '' Magny-Cours (Opteron)
  101.     ["10", "-1", " 6", "130"], '' K7 (Barton)
  102.     ["10", "-1", "16", "45"],  '' K10 (Thuban)
  103.     ["11", "-1", "15", "65"],  '' K8 (Brisbane)
  104.     ["12", "-1", "15", "90"],  '' K8 (Venice/Sonora)
  105.     ["15", "79", "15", "90"],  '' K8 (Manila)
  106.     ["15", "127", "15", "65"], '' K8 (Sparta)
  107.     ["-1", "-1", "-1", "-1"]
  108. ]
  109.  
  110. Public Sub _get(model As String, ext_model As String, ext_family As String, cpu_vendor As Byte) As String
  111.   Dim technology_count As Byte
  112.   Dim technology_db As New String[][]
  113.  
  114.   Select cpu_vendor
  115.     Case VENDOR_INTEL
  116.       technology_db = technology_intel
  117.       Goto RECOGNIZE
  118.     Case VENDOR_AMD
  119.       technology_db = technology_amd
  120.       Goto RECOGNIZE
  121.     Case Else
  122.       Return
  124.  
  125.   RECOGNIZE:
  126.   For technology_count = 0 To technology_db.Max
  127.     'Print technology_intel[j][0], technology_intel[j][1], technology_intel[j][2], technology_intel[j][3]
  128.     If technology_db[technology_count][DB_CPU_MODEL] Like model Or technology_db[technology_count][DB_CPU_MODEL] Like "-1" Then
  129.      
  130.       If technology_db[technology_count][DB_CPU_EXT_MODEL] Like ext_model Or technology_db[technology_count][DB_CPU_EXT_MODEL] Like "-1" Then
  131.        
  132.         If technology_db[technology_count][DB_CPU_EXT_FAMILY] Like ext_family Or technology_db[technology_count][DB_CPU_EXT_FAMILY] Like "-1" Then
  133.          
  134.           If technology_db[technology_count][DB_CPU_PROCESS] Not Like "-1" Then
  135.             Finally
  136.             Return technology_db[technology_count][DB_CPU_PROCESS]
  137.           Endif
  138.          
  139.         Endif
  140.        
  141.       Endif
  142.    
  143.     Endif
  144.    
  145.   Next
  146.  
  148.  
  149.   Return ""
  151.  

Reply to "Technology_DB"