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

SPD - Stikked
Stikked

SPD

From eloaders, 5 Years ago, written in GAMBAS.

A PHP Error was encountered

Severity: Warning

Message: sizeof(): Parameter must be an array or an object that implements Countable

Filename: helpers/language_helper.php

Line Number: 81

Backtrace:

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/helpers/language_helper.php
Line: 81
Function: _error_handler

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/themes/geocities/views/view/view.php
Line: 24
Function: random_expire_msg

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/core/MY_Loader.php
Line: 173
Function: include

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/core/MY_Loader.php
Line: 43
Function: _ci_load

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

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

A PHP Error was encountered

Severity: Notice

Message: Trying to access array offset on value of type null

Filename: helpers/language_helper.php

Line Number: 81

Backtrace:

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/helpers/language_helper.php
Line: 81
Function: _error_handler

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/themes/geocities/views/view/view.php
Line: 24
Function: random_expire_msg

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/core/MY_Loader.php
Line: 173
Function: include

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/core/MY_Loader.php
Line: 43
Function: _ci_load

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

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

This paste will in 1 Second.
URL http://geopaste.scratchbook.ch/view/86740a7a
Embed
Download Paste or View Raw
  1. ' Gambas module file
  2.  
  3. Private spd_i2c_eeprom_dir As String[] = ["/sys/bus/i2c/drivers/eeprom/",
  4.   "/sys/bus/i2c/drivers/ee1004/",
  5.   "/sys/bus/i2c/drivers/at24/",
  6.   "/home/michal/Dokumenty/SPD/"]
  7. Private spd_i2c_eeprom_files As New String[]
  8. Private eeprom_file_name As String = "eeprom"
  9.  
  10. Private Enum UNKNOWN = 0,
  11.   DIRECT_RAMBUS = 1,
  12.   RAMBUS = 2,
  13.   FPM_DRAM = 3,
  14.   EDO = 4,
  15.   PIPELINED_NIBBLE = 5,
  16.   SDR_SDRAM = 6,
  17.   MULTIPLEXED_ROM = 7,
  18.   DDR_SGRAM = 8,
  19.   DDR_SDRAM = 9,
  20.   DDR2_SDRAM = 10,
  21.   DDR3_SDRAM = 11,
  22.   DDR4_SDRAM = 12,
  23.   N_RAM_TYPES = 13
  24.  
  25. Private ram_types As String[] = ["Unknown", "Direct Rambus",
  26.   "Rambus", "FPM DRAM", "EDO",
  27.   "Pipelined Nibble", "SDR SDRAM",
  28.   "Multiplexed ROM", "DDR SGRAM",
  29.   "DDR SDRAM", "DDR2 SDRAM",
  30.   "DDR3 SDRAM", "DDR4 SDRAM"]
  31.  
  32. Public spd_size As New Long[]
  33. Public ram_type_str As New String[]
  34. Public ram_type_int As New Integer[]
  35. Public spd_revision As New String[]
  36. Public part_number As New String[]
  37. Public module_type As New String[]
  38. Public module_speed As New String[]
  39. Public module_size As New String[]
  40. Public voltage As New String[]
  41. Public module_manufacturer As New String[]
  42. Public module_dram_manufacturer As New String[]
  43. Public module_manufacture_date As New String[]
  44. Public eeprom As New Byte[512]
  45.  
  46. Private Function read_spd(file_path As String)
  47.  
  48.   Dim eeprom_file As File
  49.   eeprom_file = Open file_path For Read
  50.   eeprom.Read(eeprom_file, 0, Lof(eeprom_file))
  51.   eeprom_file.Close
  52.  
  54.  
  55. Private Function calculate_spd_size(file_path As String) As Long
  56.  
  57.   If Exist(file_path) Then
  58.     Return Stat(file_path).Size
  59.   Else
  60.     Return Null
  62.  
  64.  
  65. Private Function find_spd_eeprom_file()
  66.  
  67.   Dim eeprom_file As File
  68.   Dim eeprom_byte As New Byte[512]
  70.  
  71.   For i = 0 To spd_i2c_eeprom_dir.Max
  72.     If Exist(spd_i2c_eeprom_dir[i]) Then
  73.       For Each element As String In Dir(spd_i2c_eeprom_dir[i], "*-****")
  74.         If Exist(spd_i2c_eeprom_dir[i] &/ element &/ eeprom_file_name) Then
  75.           eeprom_file = Open (spd_i2c_eeprom_dir[i] &/ element &/ eeprom_file_name) For Read
  76.           eeprom_byte.Read(eeprom_file, 0, Lof(eeprom_file))
  77.           If eeprom_byte[0] > 0 Then
  78.             spd_i2c_eeprom_files.Add(spd_i2c_eeprom_dir[i] &/ element &/ eeprom_file_name)
  79.           Endif
  80.           eeprom_file.Close
  81.         Endif
  82.       Next
  83.     Endif
  84.   Next
  85.  
  87.  
  88. Public Sub Main()
  89.  
  91.   Dim eeprom_file As File
  92.   Dim eeprom_byte As New Byte[]
  93.  
  94.   find_spd_eeprom_file()
  95.  
  96.   For Each Variable As String In spd_i2c_eeprom_files
  97.     spd_size.Add(calculate_spd_size(Variable))
  98.   Next
  99.  
  100.   For i = 0 To spd_i2c_eeprom_files.Max
  101.     read_spd(spd_i2c_eeprom_files[i])
  102.     ram_type_str.Add(ram_types[decode_ram_type(eeprom)])
  103.     ram_type_int.Add(decode_ram_type(eeprom))
  104.    
  105.     Select ram_type_int[i]
  106.       Case SDR_SDRAM
  107.       Case DDR_SDRAM
  108.       Case DDR2_SDRAM
  109.       Case DDR3_SDRAM
  110.         spd_revision.Add(decode_ddr3_spd_revision(eeprom))
  111.         part_number.Add(decode_ddr3_part_number(eeprom))
  112.         module_type.Add(decode_ddr3_module_type(eeprom))
  113.         module_speed.Add(decode_ddr3_module_speed(eeprom))
  114.         module_size.Add(decode_ddr3_module_size(eeprom))
  115.         voltage.Add(decode_ddr3_voltage(eeprom))
  116.         module_manufacturer.Add(decode_ddr3_module_manufacturer(eeprom))
  117.         module_dram_manufacturer.Add(decode_ddr3_module_dram_manufacturer(eeprom))
  118.         module_manufacture_date.Add(decode_ddr3_module_date(eeprom[120], eeprom[121]))
  119.         'Print "Manufacturer:" & Hex(eeprom[117] And &h7F) & " " & Hex(eeprom[118])
  120.         'Print CMemVendors.MemVendors[CString(Hex(eeprom[117] And &h7F))][LCase(Hex(eeprom[118]))]
  121.        
  122.         'decode_ddr34_manufacturer(eeprom[117], eeprom[118])
  123.       Case DDR4_SDRAM
  124.         part_number.Add(decode_ddr4_part_number(eeprom))
  125.         module_type.Add(decode_ddr4_module_type(eeprom))
  126.         module_speed.Add(decode_ddr4_module_speed(eeprom))
  127.         module_size.Add(decode_ddr4_module_size(eeprom))
  128.         module_manufacturer.Add(decode_ddr4_module_manufacturer(eeprom))
  129.         module_dram_manufacturer.Add(decode_ddr4_module_dram_manufacturer(eeprom))
  130.         module_manufacture_date.Add(decode_ddr4_module_date(eeprom, spd_size[i], eeprom[323], eeprom[324]))
  131.     End Select
  132.   Next
  133.   Print
  134.   For i = 0 To spd_size.max
  135.     Try Print ram_type_str[i];;
  136.    
  137.     Try Print module_manufacturer[i];;
  138.     Try Print module_dram_manufacturer[i]
  139.     Try Print "Manufacturing Date: "; module_manufacture_date[i]; " | ";
  140.     Try Print part_number[i]
  141.     Try Print module_type[i];;
  142.    
  143.     Try Print module_speed[i]
  144.     Try Print module_size[i] & " MB";;
  145.     Try Print voltage[i];;
  146.     Try Print spd_size[i];;
  147.    
  148.     Try Print ram_type_int[i];;
  149.     Try Print spd_revision[i]
  150.     Print "\n"
  151.    
  152.   Next
  153.  
  155.  
  156. Private Function decode_ddr3_spd_revision(bytes As Byte[]) As String
  157.  
  158.   Return Mid(Hex(bytes[1]), 1, 1) & "." & Mid(Hex(bytes[1]), 2, 1)
  159.  
  161.  
  162. Private Function decode_ddr3_part_number(bytes As Byte[], Optional partnumber As String) As String
  163.  
  165.   For i = 128 To 145
  166.     partnumber &= Chr(bytes[i])
  167.   Next
  168.   Return partnumber
  169.  
  171.  
  172. Private Function decode_ddr4_part_number(bytes As Byte[], Optional partnumber As String) As String
  174.   For i = 329 To 348
  175.     partnumber &= Chr(bytes[i])
  176.   Next
  177.   Return partnumber
  179.  
  180. Private Function decode_ddr3_module_type(bytes As Byte[]) As String
  181.  
  182.   Dim type As String
  183.   Select bytes[3]
  184.     Case 01
  185.       type = "RDIMM (Registered Long DIMM)"
  186.     Case 02
  187.       type = "UDIMM (Unbuffered Long DIMM)"
  188.     Case 03
  189.       type = "SODIMM (Small Outline DIMM)"
  190.     Default
  191.       type = Null
  193.   Return type
  194.  
  196.  
  197. Private Function decode_ddr4_module_type(bytes As Byte[]) As String
  198.  
  199.   Dim type As String = "Unknown" ''Default Unknown if no detect
  200.   Select Hex(bytes[3], 2)
  201.     Case "01"
  202.       type = "RDIMM (Registered DIMM)"
  203.     Case "02"
  204.       type = "UDIMM (Unbuffered DIMM)"
  205.     Case "03"
  206.       type = "SODIMM (Small Outline Unbuffered DIMM)"
  207.     Case "04"
  208.       type = "LRDIMM (Load-Reduced DIMM)"
  209.     Case "05"
  210.       type = "Mini-RDIMM (Mini Registered DIMM)"
  211.     Case "06"
  212.       type = "Mini-UDIMM (Mini Unbuffered DIMM)"
  213.     Case "08"
  214.       type = "72b-SO-RDIMM (Small Outline Registered DIMM, 72-bit data bus)"
  215.     Case "09"
  216.       type = "72b-SO-UDIMM (Small Outline Unbuffered DIMM, 72-bit data bus)"
  217.     Case "0c"
  218.       type = "16b-SO-UDIMM (Small Outline Unbuffered DIMM, 16-bit data bus)"
  219.     Case "0d"
  220.       type = "32b-SO-UDIMM (Small Outline Unbuffered DIMM, 32-bit data bus)"
  221.     Default
  222.       type = Null
  224.   Return type
  225.  
  227.  
  228. Private Function decode_ddr3_module_speed(bytes As Byte[]) As String
  229.   ' Dim ctime As Float
  230.   ' Dim ddrclk As Float
  231.   ' Dim tbits, pcclk As Integer
  232.   ' Dim mtb As Float = 0.125
  233.   '
  234.   ' If (bytes[10] == 1 And bytes[11] == 8) Then mtb = 0.125
  235.   ' If (bytes[10] == 1 And bytes[11] == 15) Then mtb = 0.0625
  236.   ' ctime = mtb * bytes[12]
  237.   ' ddrclk = 2 * (1000 / ctime)
  238.   '
  239.   ' tbits = 64
  240.   ' Select bytes[8]
  241.   '   Case 1
  242.   '     tbits = 16
  243.   '   Case 4
  244.   '     tbits = 32
  245.   '   Case 3
  246.   '   Case 0
  247.   '     tbits = 64
  248.   ' End Select
  249.   '
  250.   ' pcclk = ddrclk * (tbits / 8)
  251.   ' pcclk -= pcclk % 100
  252.   '
  253.   ' Return Subst("DDR3-&1Mhz PC3-&2", CInt(ddrclk), pcclk)
  254.  
  255.   Dim divisor As Integer = bytes[10]
  256.   Dim dividend As Integer = bytes[11]
  257.   Dim ratio As Integer = bytes[12]
  258.  
  259.   If dividend = 0 And divisor = 0 And ratio = 0 Then
  260.     Return "DDR3-Unknown Mhz"
  261.   Else
  262.     Return Subst("DDR3-&1Mhz", ((2000 * dividend) / (divisor * ratio)))
  264.  
  266.  
  267. Private Function decode_ddr4_module_speed(bytes As Byte[]) As String
  268.  
  269.   Dim mincycle As Integer = bytes[18]
  270.   Dim fineadjust As Integer = Bytes[125]
  271.   Dim frequency As Integer
  272.  
  273.   frequency = (2000000 / (mincycle * 125 + fineadjust))
  274.   Return Subst("DDR4-&1Mhz", frequency)
  275.  
  277.  
  278. Private Function decode_ddr3_module_size(bytes As Byte[]) As String
  279.  
  280.   Dim size As Integer
  281.   ' Dim sdr_capacity As Integer = Lsl(256, Hex(bytes[4]) And &hF)
  282.   ' Dim sdr_width As Integer = Lsl(4, Hex(bytes[7]) And &h7)
  283.   ' Dim bus_width As Integer = Lsl(8, Hex(bytes[8]) And &h7)
  284.   ' Dim ranks As Integer = 1 + Lsr(3, Hex(bytes[7]) And &h7)
  285.  
  286.   ' Print "sdr_capacity = " & Lsl(256, Bytes[4])
  287.   ' Print "sdr_width = " & Lsl(4, bytes[7])
  288.   ' Print "bus_width = " & Lsl(8, bytes[8])
  289.   ' Print "ranks = " & (Lsr(3, bytes[7]) + 1)
  290.  
  291.   ' size = sdr_capacity / 8 * bus_width / sdr_width * ranks
  292.  
  293.   size = ((Hex(bytes[4]) And &h0f) + 28) + ((Hex(bytes[8]) And &h7) + 3)
  294.   size -= (Hex(bytes[7]) And &h7) + 25
  295.   size = (Lsl(1, size)) * (Lsr(3, bytes[7] And &h1f) + 1)
  296.   Return Subst("Module size: &1", size / 1024)
  297.  
  299.  
  300. Private Function decode_ddr4_module_size(bytes As Byte[]) As String
  301.   Dim sdram_width As Integer
  302.   Dim ranks As Integer
  303.   Dim signal_loading As Integer
  304.   Dim die_count As Integer
  305.   Dim cap As Integer
  306.  
  307.   sdram_width = 4 * CInt(2 ^ (bytes[12] And &h07))
  308.   ranks = ((bytes[12] \ CInt(2 ^ 3)) And &h07) + 1
  309.   signal_loading = (bytes[6] And &h03)
  310.   die_count = ((bytes[12] \ CInt(2 ^ 4)) And &h07) + 1
  311.   cap = (256 * CInt(2 ^ (bytes[4] And &h0f))) / 8
  312.   cap *= (8 * CInt(2 ^ (bytes[13] And &h07))) / sdram_width
  313.   cap *= ranks
  314.   If signal_loading = &h02 Then
  315.     cap *= die_count
  317.   ' Print "sdram_width: " & sdram_width
  318.   ' Print "ranks: " & ranks
  319.   ' Print "signal_loading: " & signal_loading
  320.   ' Print "die_count: " & die_count
  321.   ' Print "cap: " & cap
  322.  
  323.   Return Subst("&1", cap)
  324.  
  326. ' # Size computation
  327. '   my $sdram_width = 4 << ($bytes->[12] & 0x07);
  328. '   my $ranks = (($bytes->[12] >> 3) & 0x07) + 1;
  329. '   my $signal_loading = $bytes->[6] & 0x03;
  330. '   my $die_count = (($bytes->[6] >> 4) & 0x07) + 1;
  331. '   my $cap = (256 << ($bytes->[4] & 0x0f)) / 8;
  332. '   $cap *= (8 << ($bytes->[13] & 0x07)) / $sdram_width;
  333. '   $cap *= $ranks;
  334. '   $cap *= $die_count if $signal_loading == 0x02;    # 3DS
  335. '   printl("Size", $cap . " MB");
  336.  
  337. Private Function decode_ddr3_voltage(bytes As Byte[]) As String
  338.  
  339.   Return If(bytes[6] = 4, "1.25V ", "") & If(bytes[6] = 2, "1.35V ", "") & If(bytes[6] = 1, "", "1.5V")
  340.  
  342.  
  343. Private Function decode_ddr3_module_manufacturer(bytes As Byte[]) As String
  344.  
  345.   Return decode_ddr34_manufacturer(bytes[117], bytes[118])
  346.  
  348.  
  349. Private Function decode_ddr3_module_dram_manufacturer(bytes As Byte[]) As String
  350.  
  351.   Return decode_ddr34_manufacturer(bytes[148], bytes[149])
  352.  
  354.  
  355. Private Function decode_ddr4_module_manufacturer(bytes As Byte[]) As String
  356.  
  357.   Return decode_ddr34_manufacturer(bytes[320], bytes[321])
  358.  
  360.  
  361. Private Function decode_ddr4_module_dram_manufacturer(bytes As Byte[]) As String
  362.  
  363.   Return decode_ddr34_manufacturer(bytes[350], bytes[351])
  364.  
  366.  
  367. Private Function decode_ddr34_manufacturer(count As Byte, code As Byte) As String
  368.  
  369.   Dim Manufacturer As String
  370.   Dim bank As String
  372.  
  373.   bank = Hex(count And &h7f, 1)
  374.   index = Hex(code And &h7f, 2)
  375.   Manufacturer = CMemVendors.MemVendors[bank][index]
  376.  
  377.   If Manufacturer = Null Then
  378.     index = LCase(index)
  379.     Manufacturer = CMemVendors.MemVendors[bank][index]
  381.  
  382.   If Manufacturer = Null Then
  383.     index = LCase(Hex(code))
  384.     Manufacturer = CMemVendors.MemVendors[bank][index]
  386.   Return Manufacturer
  387.  
  389.  
  390. Private Function decode_ddr3_module_date(syear As Byte, sweek As Byte) As String
  391.   'Print syear; " "; sweek
  392.   syear = Hex(syear)
  393.   sweek = Hex(sweek)
  394.   'Print syear; " "; sweek
  395.   If (syear And &hf0) <= &h90 Or (syear And &h0f) <= &h09 Or (sweek And &hf0) <= &h90 Or (sweek And &h0f) <= &h09 Then
  396.    
  397.     Return Subst("&1&2 W&3", IIf(syear >= &h80, 19, 20), syear, sweek)
  398.    
  399.   Else If (syear <= 99 Or sweek >= 1 Or sweek <= 53) Then
  400.    
  401.     Return Subst("&1&2 W&3", IIf(syear >= 80, 19, 20), syear, sweek)
  402.  
  403.   Else
  404.  
  405.     Return Subst("&1 W&2", syear, sweek)
  406.    
  408.   Return "UNKNOWN"
  410.  
  411. Private Function decode_ddr4_module_date(Optional bytes As Byte[], Optional spd_size As Long, syear As Byte, sweek As Byte) As String
  412.   'Print "DDR4 Byte"; syear; " "; sweek
  413.   syear = Hex(syear)
  414.   sweek = Hex(sweek)
  415.   'Print "DDR4 Hex"; syear; " "; sweek
  416.   If (spd_size < 324) Then
  417.     Return "Unknown"
  419.   If bytes[323] = &h0 Or bytes[323] = &hff And If bytes[324] = &h0 Or bytes[324] = &hff Then
  420.     Return "Unknown"
  422.  
  423.   Return Subst("&1&2 W&3", IIf(syear >= 80, 19, 20), syear, sweek)
  424.  
  426.  
  427. Private Function decode_ram_type(bytes As Byte[]) As Integer
  428.  
  429.   If bytes[0] < 4 Then
  430.     Select bytes[2]
  431.       Case 1
  432.         Return DIRECT_RAMBUS
  433.       Case 17
  434.         Return RAMBUS
  435.     End Select
  436.   Else
  437.     Select bytes[2]
  438.       Case 1
  439.         Return FPM_DRAM
  440.       Case 2
  441.         Return EDO
  442.       Case 3
  443.         Return PIPELINED_NIBBLE
  444.       Case 4
  445.         Return SDR_SDRAM
  446.       Case 5
  447.         Return MULTIPLEXED_ROM
  448.       Case 6
  449.         Return DDR_SGRAM
  450.       Case 7
  451.         Return DDR_SDRAM
  452.       Case 8
  453.         Return DDR2_SDRAM
  454.       Case 11
  455.         Return DDR3_SDRAM
  456.       Case 12
  457.         Return DDR4_SDRAM
  458.     End Select
  459.     Return UNKNOWN
  461.  
  463.  

Reply to "SPD"