임시

#!/usr/bin/env perl

# ----------------------------------------------------------------------

# mkknlimg by Phil Elwell for Raspberry Pi

# based on extract-ikconfig Dick Streefland

#

# (c) 2009,2010 Dick Streefland <dick@streefland.net>

# (c) 2014,2015 Raspberry Pi (Trading) Limited <info@raspberrypi.org>

#

# Licensed under the terms of the GNU General Public License.

# ----------------------------------------------------------------------

use strict;

use warnings;

use integer;

my $trailer_magic = 'RPTL';

my $tmpfile1 = "/tmp/mkknlimg_$$.1";

my $tmpfile2 = "/tmp/mkknlimg_$$.2";

my $dtok = 0;

while (@ARGV && ($ARGV[0] =~ /^-/))

{

    my $arg = shift(@ARGV);

    if ($arg eq '--dtok')

    {

$dtok = 1;

    }

    else

    {

print ("* Unknown option '$arg'\n");

usage();

    }

}

usage() if (@ARGV != 2);

my $kernel_file = $ARGV[0];

my $out_file = $ARGV[1];

if (! -r $kernel_file)

{

    print ("* File '$kernel_file' not found\n");

    usage();

}

my @wanted_config_lines =

(

'CONFIG_BCM2708_DT'

);

my @wanted_strings =

(

'bcm2708_fb',

'brcm,bcm2708-pinctrl',

'brcm,bcm2835-gpio',

'of_find_property'

);

my $res = try_extract($kernel_file, $tmpfile1);

$res = try_decompress('\037\213\010', 'xy',    'gunzip', 0,

     $kernel_file, $tmpfile1, $tmpfile2) if (!$res);

$res = try_decompress('\3757zXZ\000', 'abcde', 'unxz --single-stream', -1,

     $kernel_file, $tmpfile1, $tmpfile2) if (!$res);

$res = try_decompress('BZh',          'xy',    'bunzip2', 0,

     $kernel_file, $tmpfile1, $tmpfile2) if (!$res);

$res = try_decompress('\135\0\0\0',   'xxx',   'unlzma', 0,

     $kernel_file, $tmpfile1, $tmpfile2) if (!$res);

$res = try_decompress('\211\114\132', 'xy',    'lzop -d', 0,

     $kernel_file, $tmpfile1, $tmpfile2) if (!$res);

$res = try_decompress('\002\041\114\030', 'xy',    'lz4 -d', 1,

     $kernel_file, $tmpfile1, $tmpfile2) if (!$res);

my $append_trailer;

my $trailer;

my $kver = '?';

$append_trailer = $dtok;

if ($res)

{

    $kver = $res->{''} || '?';

    print("Version: $kver\n");

    $append_trailer = $dtok;

    if (!$dtok)

    {

if (config_bool($res, 'bcm2708_fb'))

{

   $dtok ||= config_bool($res, 'CONFIG_BCM2708_DT');

   $dtok ||= config_bool($res, 'brcm,bcm2708-pinctrl');

   $dtok ||= config_bool($res, 'brcm,bcm2835-gpio');

   $append_trailer = 1;

}

else

{

   print ("* This doesn't look like a Raspberry Pi kernel. In pass-through mode.\n");

}

    }

}

elsif (!$dtok)

{

    print ("* Is this a valid kernel? In pass-through mode.\n");

}

if ($append_trailer)

{

    printf("DT: %s\n", $dtok ? "y" : "n");

    my @atoms;

    push @atoms, [ $trailer_magic, pack('V', 0) ];

    push @atoms, [ 'KVer', $kver ];

    push @atoms, [ 'DTOK', pack('V', $dtok) ];

    $trailer = pack_trailer(\@atoms);

    $atoms[0]->[1] = pack('V', length($trailer));

    $trailer = pack_trailer(\@atoms);

}

my $ofh;

my $total_len = 0;

if ($out_file eq $kernel_file)

{

    die "* Failed to open '$out_file' for append\n"

if (!open($ofh, '>>', $out_file));

    $total_len = tell($ofh);

}

else

{

    die "* Failed to open '$kernel_file'\n"

if (!open(my $ifh, '<', $kernel_file));

    die "* Failed to create '$out_file'\n"

if (!open($ofh, '>', $out_file));

    my $copybuf;

    while (1)

    {

my $bytes = sysread($ifh, $copybuf, 64*1024);

last if (!$bytes);

syswrite($ofh, $copybuf, $bytes);

$total_len += $bytes;

    }

    close($ifh);

}

if ($trailer)

{

    # Pad to word-alignment

    syswrite($ofh, "\x000\x000\x000", (-$total_len & 0x3));

    syswrite($ofh, $trailer);

}

close($ofh);

exit($trailer ? 0 : 1);

END {

unlink($tmpfile1) if ($tmpfile1);

unlink($tmpfile2) if ($tmpfile2);

}

sub usage

{

print ("Usage: mkknlimg [--dtok] <vmlinux|zImage|bzImage> <outfile>\n");

exit(1);

}

sub try_extract

{

my ($knl, $tmp) = @_;

my $ver = `strings "$knl" | grep -a -E "^Linux version [1-9]"`;

return undef if (!$ver);

chomp($ver);

my $res = { ''=>$ver };

my $string_pattern = '^('.join('|', @wanted_strings).')$';

my @matches = `strings \"$knl\" | grep -E \"$string_pattern\"`;

foreach my $match (@matches)

{

   chomp($match);

   $res->{$match} = 1;

}

my $config_pattern = '^('.join('|', @wanted_config_lines).')=(.*)$';

my $cf1 = 'IKCFG_ST\037\213\010';

my $cf2 = '0123456789';

my $pos = `tr "$cf1\n$cf2" "\n$cf2=" < "$knl" | grep -abo "^$cf2"`;

if ($pos)

{

$pos =~ s/:.*[\r\n]*$//s;

$pos += 8;

my $err = (system("tail -c+$pos \"$knl\" | zcat > $tmp 2> /dev/null") >> 8);

if (($err == 0) || ($err == 2))

{

if (open(my $fh, '<', $tmp))

{

while (my $line = <$fh>)

{

chomp($line);

$res->{$1} = $2 if ($line =~ /$config_pattern/);

}

close($fh);

}

}

}

return $res;

}

sub try_decompress

{

my ($magic, $subst, $zcat, $idx, $knl, $tmp1, $tmp2) = @_;

my $pos = `tr "$magic\n$subst" "\n$subst=" < "$knl" | grep -abo "^$subst"`;

if ($pos)

{

chomp($pos);

$pos = (split(/[\r\n]+/, $pos))[$idx];

return undef if (!defined($pos));

$pos =~ s/:.*[\r\n]*$//s;

my $cmd = "tail -c+$pos \"$knl\" | $zcat > $tmp2 2> /dev/null";

my $err = (system($cmd) >> 8);

return undef if (($err != 0) && ($err != 2));

return try_extract($tmp2, $tmp1);

}

return undef;

}

sub pack_trailer

{

my ($atoms) = @_;

my $trailer = pack('VV', 0, 0);

for (my $i = $#$atoms; $i>=0; $i--)

{

my $atom = $atoms->[$i];

$trailer .= pack('a*x!4Va4', $atom->[1], length($atom->[1]), $atom->[0]);

}

return $trailer;

}

sub config_bool

{

my ($configs, $wanted) = @_;

my $val = $configs->{$wanted} || 'n';

return (($val eq 'y') || ($val eq '1'));

}

#include <linux/kernel.h>

#include <linux/init.h>

static int __init hello_init(void)

{

        pr_info("Hello world.\n");

        return 0;

}

static void __exit hello_exit(void)

{

        pr_info("Goodbye world.\n");

}

module_init(hello_init);

module_exit(hello_exit);

KERNEL_DIR := /home/kkn/raspberry_pi2_backup/modules_install/lib/modules/4.0.9-v7+/build

PWD := $(shell pwd)

obj-m := hello.o

all:

$(MAKE) ARCH=arm CROSS_COMPILE=/home/kkn/tools/arm-bcm2708/gcc-linaro-arm-linux-gnueabihf-raspbian-x64/bin/arm-linux-gnueabihf- -C $(KERNEL_DIR) SUBDIRS=$(PWD) modules

clean:

$(MAKE) ARCH=arm CROSS_COMPILE=/home/kkn/tools/arm-bcm2708/gcc-linaro-arm-linux-gnueabihf-raspbian-x64/bin/arm-linux-gnueabihf- -C $(KERNEL_DIR) SUBDIRS=$(PWD) clean

PACKAGE_NAME="hello"

PACKAGE_VERSION="0.2"

CLEAN="make clean"

MAKE[0]="make all KVERSION=$kernelver"

BUILT_MODULE_NAME[0]="hello"

DEST_MODULE_LOCATION[0]="/updates"

AUTOINSTALL="yes"

kkn@kkn-virtual-machine:~/linux$ sudo dosfsck -w -r -l -a -v -t /dev/sdb1

[sudo] password for kkn: 

fsck.fat 3.0.26 (2014-03-07)

fsck.fat 3.0.26 (2014-03-07)

Checking we can access the last sector of the filesystem

0x25: Dirty bit is set. Fs was not properly unmounted and some data may be corrupt.

 Automatically removing dirty bit.

Boot sector contents:

System ID "mkfs.fat"

Media byte 0xf8 (hard disk)

       512 bytes per logical sector

      8192 bytes per cluster

         1 reserved sector

First FAT starts at byte 512 (sector 1)

         2 FATs, 16 bit entries

     16384 bytes per FAT (= 32 sectors)

Root directory starts at byte 33280 (sector 65)

       512 root directory entries

Data area starts at byte 49664 (sector 97)

      7161 data clusters (58662912 bytes)

63 sectors/track, 255 heads

         0 hidden sectors

    114688 sectors total

Checking file /boot

Checking file /COPYING.linux (COPYIN~1.LIN)

Checking file /LICENCE.broadcom (LICENC~1.BRO)

Checking file /bcm2708-rpi-b-plus.dtb (BCM270~1.DTB)

Checking file /bcm2708-rpi-b.dtb (BCM270~2.DTB)

Checking file /bcm2709-rpi-2-b.dtb (BCM270~3.DTB)

Checking file /bootcode.bin (BOOTCODE.BIN)

Checking file /cmdline.txt (CMDLINE.TXT)

Checking file /config.txt (CONFIG.TXT)

Checking file /fixup.dat (FIXUP.DAT)

Checking file /fixup_cd.dat (FIXUP_CD.DAT)

Checking file /fixup_db.dat (FIXUP_DB.DAT)

Checking file /fixup_x.dat (FIXUP_X.DAT)

Checking file /kernel.img (KERNEL.IMG)

Checking file /overlays (OVERLAYS)

Checking file /start.elf (START.ELF)

Checking file /start_cd.elf (START_CD.ELF)

Checking file /start_db.elf (START_DB.ELF)

Checking file /start_x.elf (START_X.ELF)

Checking file /issue.txt (ISSUE.TXT)

Checking file /LICENSE.oracle (LICENS~1.ORA)

Checking file /.Trash-1000 (TRASH-~1)

Checking file /kernel7.img (KERNEL7.IMG)

Checking file /kernel7_backup.img (KERNEL~1.IMG)

Checking file /kernel7_erase_150818.img (KERNEL~2.IMG)

Checking file /overlays/.

Checking file /overlays/..

Checking file /overlays/hifiberry-amp-overlay.dtb (HIFIBE~1.DTB)

Checking file /overlays/tinylcd35-overlay.dtb (TINYLC~1.DTB)

Checking file /overlays/bmp085_i2c-sensor-overlay.dtb (BMP085~1.DTB)

Checking file /overlays/hifiberry-digi-overlay.dtb (HIFIBE~2.DTB)

Checking file /overlays/i2c-rtc-overlay.dtb (I2C-RT~1.DTB)

Checking file /overlays/pcf2127-rtc-overlay.dtb (PCF212~1.DTB)

Checking file /overlays/rpi-display-overlay.dtb (RPI-DI~1.DTB)

Checking file /overlays/ds1307-rtc-overlay.dtb (DS1307~1.DTB)

Checking file /overlays/mcp2515-can0-overlay.dtb (MCP251~1.DTB)

Checking file /overlays/hifiberry-dac-overlay.dtb (HIFIBE~3.DTB)

Checking file /overlays/pcf8523-rtc-overlay.dtb (PCF852~1.DTB)

Checking file /overlays/hy28b-overlay.dtb (HY28B-~1.DTB)

Checking file /overlays/rpi-proto-overlay.dtb (RPI-PR~1.DTB)

Checking file /overlays/hy28a-overlay.dtb (HY28A-~1.DTB)

Checking file /overlays/ads7846-overlay.dtb (ADS784~1.DTB)

Checking file /overlays/mz61581-overlay.dtb (MZ6158~1.DTB)

Checking file /overlays/iqaudio-dacplus-overlay.dtb (IQAUDI~1.DTB)

Checking file /overlays/lirc-rpi-overlay.dtb (LIRC-R~1.DTB)

Checking file /overlays/w1-gpio-overlay.dtb (W1-GPI~1.DTB)

Checking file /overlays/pps-gpio-overlay.dtb (PPS-GP~1.DTB)

Checking file /overlays/README

Checking file /overlays/iqaudio-dac-overlay.dtb (IQAUDI~2.DTB)

Checking file /overlays/rpi-dac-overlay.dtb (RPI-DA~1.DTB)

Checking file /overlays/piscreen-overlay.dtb (PISCRE~1.DTB)

Checking file /overlays/spi-bcm2835-overlay.dtb (SPI-BC~1.DTB)

Checking file /overlays/w1-gpio-pullup-overlay.dtb (W1-GPI~2.DTB)

Checking file /overlays/pitft28-resistive-overlay.dtb (PITFT2~1.DTB)

Checking file /overlays/enc28j60-overlay.dtb (ENC28J~1.DTB)

Checking file /overlays/hifiberry-dacplus-overlay.dtb (HIFIBE~4.DTB)

Checking file /overlays/dht11-overlay.dtb (DHT11-~1.DTB)

Checking file /overlays/gpio-poweroff-overlay.dtb (GPIO-P~1.DTB)

Checking file /overlays/i2s-mmap-overlay.dtb (I2S-MM~1.DTB)

Checking file /overlays/mcp2515-can1-overlay.dtb (MCP251~2.DTB)

Checking file /overlays/mmc-overlay.dtb (MMC-OV~1.DTB)

Checking file /overlays/rpi-ft5406-overlay.dtb (RPI-FT~1.DTB)

Checking file /overlays/rpi-sense-overlay.dtb (RPI-SE~1.DTB)

Checking file /overlays/sdhost-overlay.dtb (SDHOST~1.DTB)

Checking file /overlays/spi-bcm2708-overlay.dtb (SPI-BC~2.DTB)

Checking file /overlays/spi-dma-overlay.dtb (SPI-DM~1.DTB)

Checking file /overlays/uart1-overlay.dtb (UART1-~1.DTB)

Checking file /overlays/vga666-overlay.dtb (VGA666~1.DTB)

Checking file /.Trash-1000/.

Checking file /.Trash-1000/..

Checking file /.Trash-1000/info (INFO)

Checking file /.Trash-1000/files (FILES)

Checking file /.Trash-1000/info/.

Checking file /.Trash-1000/info/..

Checking file /.Trash-1000/info/kernel7.img.trashinfo (KERNEL~1.TRA)

Checking file /.Trash-1000/info/kernel7.trashinfo (KERNEL~2.TRA)

Checking file /.Trash-1000/files/.

Checking file /.Trash-1000/files/..

Checking file /.Trash-1000/files/kernel7.img (KERNEL7.IMG)

Checking file /.Trash-1000/files/kernel7 (KERNEL7)

/.Trash-1000  and

/.Trash-1000/files/kernel7.img

  share clusters.

  Truncating second to 0 bytes.

/.Trash-1000/files/kernel7.img

  File size is 3989328 bytes, cluster chain length is 0 bytes.

  Truncating file to 0 bytes.

Checking file /.Trash-1000/files/kernel7/.

Checking file /.Trash-1000/files/kernel7/..

Checking for bad clusters.

Reclaiming unconnected clusters.

Reclaimed 974 unused clusters (7979008 bytes) in 2 chains.

Performing changes.

/dev/sdb1: 74 files, 4394/7161 clusters

     -a Automatically repair the file system. No user intervention is

              necessary.   Whenever  there  is more than one method to solve a
              problem, the least destructive approach is used.

       -A     Use Atari variation of the MS-DOS filesystem. This is default if
              dosfsck  is  run  on  an Atari, then this option turns off Atari
              format. There are some minor differences in Atari  format:  Some
              boot  sector  fields are interpreted slightly different, and the
              special FAT entries for end-of-file and bad cluster can be  dif-
              ferent.  Under  MS-DOS  0xfff8 is used for EOF and Atari employs
              0xffff by default, but both systems recognize  all  values  from
              0xfff8...0xffff as end-of-file.  MS-DOS uses only 0xfff7 for bad
              clusters, where on Atari values  0xfff0...0xfff7  are  for  this
              purpose (but the standard value is still 0xfff7).

       -d     Drop  the  specified  file. If more that one file with that name
              exists, the first one is dropped.

       -f     Salvage unused cluster chains to files. By default, unused clus-
              ters  are added to the free disk space except in auto mode (-a).

       -l     List path names of files being processed.

       -r     Interactively repair the file system.  The  user  is  asked  for
              advice whenever there is more than one approach to fix an incon-
              sistency.  This is the default behaviour.

       -t     Mark unreadable clusters as bad.

       -u     Try to undelete the specified file. dosfsck tries to allocate  a
              chain  of  contiguous  unallocated  clusters  beginning with the
              start cluster of the undeleted file.

       -v     Verbose mode. Generates slightly more output.

       -V     Perform a verification pass. The file system check  is  repeated
              after  the  first  run.  The second pass should never report any
              fixable errors. It may take considerably longer than  the  first
              pass,  because  the  first  pass may have generated long list of
              modifications that have to be scanned for each disk read.

       -w     Write changes to disk immediately.

       -y     Same as -a (automatically repair filesystem)  for  compatibility
              with other fsck tools.

       If  -a  and  -r  are  absent,  the file system is only checked, but not
       repaired.

#include <linux/init.h> 

#include <linux/kernel.h> 

#include <linux/module.h> 

#include <linux/syscalls.h> 

#include <asm/unistd.h> 

unsigned long **sys_call_table=0x8000ed48;

asmlinkage long (*ref_sys_open)(const char *file, int flags, int mode);

asmlinkage long new_syscall(const char *file, int flags, int mode) 

{ 

   printk(KERN_INFO "new_syscall() was called=> %s\n", file);      

   return ref_sys_open(file, flags, mode);

} 

int __init m_init( void ) 

{ 

printk(KERN_INFO "sys_call_table: %pS\n", sys_call_table );

ref_sys_open = (void *)sys_call_table[__NR_open];

sys_call_table[__NR_open] = (unsigned long *)new_syscall; 

        return 0; 

} 

void __exit m_exit( void ) 

{ 

printk( KERN_INFO "Module exit\n" ); 

sys_call_table[__NR_open] = (unsigned long *)ref_sys_open;

} 

module_init( m_init ); 

module_exit( m_exit ); 

`

MODULE_LICENSE("GPL");