糯米

TI DaVinci, gstreamer, ffmpeg
随笔 - 167, 文章 - 0, 评论 - 47, 引用 - 0
数据加载中……

置顶随笔

[置顶]个人说明


关于写博客的目的
引用一句话“如果每个程序员都写博客,中国的技术水平就不是现在这个样子”。
对,这就是我写博客的目的。我必须尽量保证博客里的每一篇文章都清晰明了,适于阅读,能让他人在最短时间能获得想要的东西。
因此我以后不会把废话放上来,保证发表的文章都是关于技术,并且有利于他人。

关于我
豆瓣:http://www.douban.com/people/nuomihaochi/

posted @ 2011-08-24 09:55 糯米 阅读(154) | 评论 (1)编辑 收藏

2012年3月25日

TI8168EVM 调试总结


硬件:
是TI原厂的EVM8168开发板,公司买的,价格貌似近1w,国内貌似还没有人做开发板出来卖啊。(但貌似已经有产品使用它了)

单路解码:
将hdmi线插入四个音频接口旁边的那个hdmi口。
终端执行命令:runDecodeDisplayHDMI
代码位置:/usr/bin/runDecodeDisplayHDMI

posted @ 2012-03-25 09:14 糯米 阅读(336) | 评论 (0)编辑 收藏

2012年2月13日

使用 VNC display 0


用 x11vnc 软件包代替 vnc4server 软件包即可。
在 ubuntu 下 apt-get install x11vnc 。
然后 x11vnc :0 即可。

posted @ 2012-02-13 09:29 糯米 阅读(291) | 评论 (0)编辑 收藏

2012年2月1日

一次难忘的调试


今天在 buildroot 上交叉编译 gstreamer 的时候,发现一个诡异的问题。
版本:
buildroot 2011.11-rc3
gstreamer-0.10.35
arm-none-linux-gnueabi-gcc-4.5.2

编译出来之后调用 gst-inspect shmsrc,发现信息没有打印完就出现 Abort 错误。
而 gst-inspect mpegtsmux 或者 v4l2src 还有其他的组件也有类似的错误。
如下所示:


这可能是收到了一个 Abort 信号导致退出的,而不是程序正常结束。
于是在 buildroot 上选中 gdb 并且选择带调试信息编译(-g3)。
用 gdb 调试的时候,定位到出错位置,堆栈打印如下:



可见它是在 print_element_info 内发生的错误,而上面打印的信息也是在 “Element Implementation:” 这一句话后终止的。
接下来的 g_strdup_printf 以及一系列的 g 打头的函数都是 glib 里面的代码。
奇怪了,这类常用的函数怎么可能会出错呢?
历经周折,最后发现最底层调用的是 sprintf 函数。


而在 sprintf 的断点处,确发现函数的参数都是正常的。
真是十分诡异的现象。


而 lib 的 sprintf 已经没有源码了,于是用 si 逐指令跟踪。按了半分多种忽然有重大发现!
一开始一直在 vfprintf 里面,然后跳转到一个底层的 __parse_one_specmb 函数。
居然瞬间又跳转到一个 gstreamer 中的函数 _gst_info_printf_extension_arginfo!


这个函数究竟是何方神圣,看起来像是一个 printf 扩展类的回调函数。
发现了真身,这到底是什么东西?

搜了一下,找到了 GNU 的官网,发现是 printf 的扩展功能。是 glibc 2.0 版本以后的新东西。

发现它是可有可无的。
在 configure 里注释掉它,在 buildroot 的 package 里加了一个 patch,然后重新 make。



一切正常了!哈哈!


最后发现早在2011年1月份就有老外发现了这个问题。https://bugzilla.gnome.org/show_bug.cgi?id=638599
貌似是跟 glib 的一些机制相关。
可能是影响范围不够广,还没有导致到要取消掉这个机制。



虽然说为了一个莫名其妙的问题忙活了半天,但学了一些 gdb 命令,而且还知道了 printf 原来还能扩展。很神奇的东西。

posted @ 2012-02-01 12:43 糯米 阅读(480) | 评论 (0)编辑 收藏

2011年9月14日

str_fastcmp

摘自:luajit源码lj_str.c

/* Fast string data comparison. Caveat: unaligned access to 1st string! */
static LJ_AINLINE int str_fastcmp(const char *a, const char *b, MSize len)
{
  MSize i 
= 0;
  lua_assert(len 
> 0);
  lua_assert((((uintptr_t)a 
+ len) & (LJ_PAGESIZE-1)) <= LJ_PAGESIZE-4);
  
do {  /* Note: innocuous access up to end of string + 3. */
    uint32_t v 
= lj_getu32(a+i) ^ *(const uint32_t *)(b+i);
    
if (v) {
      i 
-= len;
#if LJ_LE
      
return (int32_t)i >= -3 ? (v << (32+(i<<3))) : 1;
#else
      
return (int32_t)i >= -3 ? (v >> (32+(i<<3))) : 1;
#endif
    }
    i 
+= 4;
  } 
while (i < len);
  
return 0;
}

posted @ 2011-09-14 22:00 糯米 阅读(204) | 评论 (0)编辑 收藏

2011年9月13日

标记-清除( Mark-Sweep )算法

第一种实用和完善的垃圾收集算法是 J. McCarthy 等人在 1960 年提出并成功地应用于 Lisp 语言的标记-清除算法。仍以餐巾纸为例,标记-清除算法的执行过程是这样的:  

午餐过程中,餐厅里的所有人都根据自己的需要取用餐巾纸。当垃圾收集机器人想收集废旧餐巾纸的时候,它会让所有用餐的人先停下来,然后,依次询问餐厅里的每一个人:“你正在用餐巾纸吗?你用的是哪一张餐巾纸?”机器人根据每个人的回答将人们正在使用的餐巾纸画上记号。询问过程结束后,机器人在餐厅里寻找所有散落在餐桌上且没有记号的餐巾纸(这些显然都是用过的废旧餐巾纸),把它们统统扔到垃圾箱里。  

正如其名称所暗示的那样,标记-清除算法的执行过程分为“标记”和“清除”两大阶段。这种分步执行的思路奠定了现代垃圾收集算法的思想基础。与引用计数算法不同的是,标记-清除算法不需要运行环境监测每一次内存分配和指针操作,而只要在“标记”阶段中跟踪每一个指针变量的指向——用类似思路实现的垃圾收集器也常被后人统称为跟踪收集器( Tracing Collector )  

伴随着 Lisp 语言的成功,标记-清除算法也在大多数早期的 Lisp 运行环境中大放异彩。尽管最初版本的标记-清除算法在今天看来还存在效率不高(标记和清除是两个相当耗时的过程)等诸多缺陷,但在后面的讨论中,我们可以看到,几乎所有现代垃圾收集算法都是标记-清除思想的延续,仅此一点, J. McCarthy 等人在垃圾收集技术方面的贡献就丝毫不亚于他们在 Lisp 语言上的成就了。  

posted @ 2011-09-13 10:34 糯米 阅读(1443) | 评论 (0)编辑 收藏

2011年8月27日

去除dvsdk安装的Ubuntu版本限制

今天偶然间发现的一个小hack:)

我要安装dvsdk的4.0版本。它的安装包是一个单个的可执行文件:


它提示,只能在Ubuntu 10.04上面安装。


我自己的Ubuntu是11.04,文件系统resierfs,如果resize的话貌似会清空。当然也不愿意再装一个旧版的。
所以琢磨着怎么把这个限制去掉。
首先我估计它是读了某个文件来获取的发行版本号。
所以先用 strace 命令看一下。加一个 -f 表示跟踪 fork 出来的子进程。
这个工具可以打印出程序所有的 syscall。因此 open,read,write,select 之类的调用都会被打印出来。



这时候出来很多结果,好比大海捞针一般,要仔细看哦。
突然发现一行显眼的:


“natty”是Ubuntu 11.04的代号,也就是说这个程序在某个地方读到了Ubuntu的版本号。
我对这些不了解,于是google了一下,发现是通过调用 lsb_release 这个工具来读到的。


然后又发现一个好消息,这个工具是 python 写的。
于是加了半句优雅的代码:


其中“lucid”是 Ubuntu 10.04 的版本号。如果 /tmp/lucidhack 这个文件存在,就输出 lucid 。
看看效果吧:



创建 /tmp/lucidhack,然后重新运行安装程序。
大功告成!




其实很多时候问题很简单,完全没有必要大动干戈。

posted @ 2011-08-27 09:43 糯米 阅读(1738) | 评论 (1)编辑 收藏

2011年8月26日

WTFPL - Do What The Fuck You Want To Public License


翻译自:http://en.wikipedia.org/wiki/WTFPL

WTFPL (Do What The Fuck You Want To Public License) 是一个很少使用的,极端自由的自由软件协议。
WTFPL 最初的 1.0 版本许可证发布于 2000 年 3 月份。发布者是 Banlu Kemiyatorn,最初用于 WindowMaker 软件。
Samuel “Sam” Hocevar,2007 年和 2008 年间的 Debian 项目负责人,发布了 WTFPL 的 2.0 版本。
WTFPL 允许代码在任何协议下都被能任意修改和发布 --- 也就是“do what the fuck [they] want to do”(做你他妈想做的)。
WTFPL 被自由软件组织认可为 GPL 兼容。

协议内容
           DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
                   Version 2, December 2004
Copyright (C) 2004 Sam Hocevar <sam@hocevar.net>
Everyone is permitted to copy and distribute verbatim or modified
copies of this license document, and changing it is allowed as long
as the name is changed.
           DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
  TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
 0. You just DO WHAT THE FUCK YOU WANT TO.

posted @ 2011-08-26 18:56 糯米 阅读(1586) | 评论 (0)编辑 收藏

perl 常用函数


摘自 perldoc.perl.org

map BLOCK LIST
map EXPR, LIST
对于 LIST 里的每一个元素按照 BLOCK 或者 EXPR 里的操作进行求值。
返回求值结果组成的数组。
如果返回值是 scalar 类型,则返回结果数组的大小。
例子:
返回一组数字对应的字符
@chars = map(chr, @numbers);
返回一组数字的平方
my @squares = map { $_ > 5 ? ($_ * $_) : () } @numbers;
返回大于5的数字的平方
my @squares = map { $_ > 5 ? ($_ * $_) : () } @numbers;
由于 map 总是返回一个列表,因此可以赋值给哈希类型的变量:
%hash = map { get_a_key_for($_) => $_ } @array;
也可以这样写:
%hash = ();
foreach (@array) {
    $hash{get_a_key_for($_)} = $_;
}

-X FILEHANDLE
文件测试函数:
-r  File is readable by effective uid/gid.
-w  File is writable by effective uid/gid.
-x  File is executable by effective uid/gid.
-o  File is owned by effective uid.
-R  File is readable by real uid/gid.
-W  File is writable by real uid/gid.
-X  File is executable by real uid/gid.
-O  File is owned by real uid.
-e  File exists.
-z  File has zero size (is empty).
-s  File has nonzero size (returns size in bytes).
-f  File is a plain file.
-d  File is a directory.
-l  File is a symbolic link.
-p  File is a named pipe (FIFO), or Filehandle is a pipe.
-S  File is a socket.
-b  File is a block special file.
-c  File is a character special file.
-t  Filehandle is opened to a tty.
-u  File has setuid bit set.
-g  File has setgid bit set.
-k  File has sticky bit set.
-T  File is an ASCII text file (heuristic guess).
-B  File is a "binary" file (opposite of -T).
-M  Script start time minus file modification time, in days.
-A  Same for access time.
-C  Same for inode change time (Unix, may differ for other platforms)

delete EXPR
EXPR 为哈希变量的 slice 或者是单个元素。
返回值为删除掉元素的值,可以是列表。
如果返回值被要求为 scalar 类型,则返回被删除的最后一个值。
delete 也可以用于数组类型的变量,不过它的行为可能不是你所预想的那样。
例子:
%hash = (foo => 11, bar => 22, baz => 33);
$scalar = delete $hash{foo};             # $scalar is 11
$scalar = delete @hash{qw(foo bar)};     # $scalar is 22
@array  = delete @hash{qw(foo bar baz)}; # @array  is (undef,undef,33)

each HASH
each ARRAY
each EXPR
返回哈希的每个 (key, value) 所组成的数组。
例子:
while (($key, $value) = each %hash) {
    print $key, "\n";
    delete $hash{$key};   # This is safe
}

eof FILEHANDLE
eof ()
eof
注意 eof() 与 eof 的区别:
eof():如果到达了 <> 的最后一个文件的末尾,则返回1
eof:如果到达了当前文件的末尾,则返回1
# reset line numbering on each input file
while (<>) {
    next if /^\s*#/;  # skip comments
    print "$.\t$_";
} continue {
    close ARGV if eof;  # Not eof()!
}
# insert dashes just before last line of last file
while (<>) {
    if (eof()) {  # check for end of last file
        print "--------------\n";
    }
    print;
    last if eof();          # needed if we're reading from a terminal
}


posted @ 2011-08-26 18:25 糯米 阅读(413) | 评论 (0)编辑 收藏

2011年8月24日

perl 特殊变量

翻译自:perldoc.perl.org

== 常用变量 ==

$ARG
$_
默认模式搜索变量
下列函数使用它作为默认参数:
abs, alarm, chomp, chop, chr, chroot, cos, defined, eval, exp, glob, hex, int, lc, lcfirst,
length, log, lstat, mkdir, oct, ord, pos, print, quotemeta, readlink, readpipe, ref, require,
reverse (in scalar context only), rmdir, sin, split (on its second argument), sqrt, stat,
study, uc, ucfirst, unlink, unpack.
用于文件测试 (-f, -d)
用于模式匹配操作 m//, s/// 和 tr// (又名 y///)
用于 foreach, grep, map
用于 given 语句

@ARG
@_
对于函数来说,@_ 包含了传递给该函数的参数。在函数中,@_ 是 push, pop, shift, unshift 的默认参数。

$LIST_SEPARATOR
$"
当一个数组被引用在 "" 中或者 // 中。数组的值变为所有元素被 $" 连接起来的值。
$" 默认值为空格。
print "The array is: @array\n";
print "The array is: " . join($", @array) . "\n";
它们是相等的。
@a = (1, 3, 4);
print "@a\n";
$" = ",";
print "@a\n";
print "1,3,4" =~ /@a/;
输出为
1 3 4
1,3,4
1

$PROCESS_ID
$PID
$$
运行 perl 脚本的当前进程的 pid 值。等同于 getpid()。

$REAL_GROUP_ID
$GID
$(
该进程的 real gid 。由 getgid() 获得。
如果运行在一个支持用户同时属于多个组的操作系统上,$( 将返回由空格分隔的多个 gid。由 getgroups() 获得。
只能给 $( 赋予单个整数。

$EFFECTIVE_GROUP_ID
$EGID
$)
该进程的 effective gid。
$< = $>;            # set real to effective uid
($<,$>) = ($>,$<);  # swap real and effective uids

$PROGRAM_NAME
$0
当前程序的名字。

$SUBSCRIPT_SEPARATOR
$SUBSEP
$;
如果这样访问一个哈系表:
$foo{$a,$b,$c}
等同于:
$foo{join($;, $a, $b, $c)}
例子:
%h = ('123', 'test');
$; = '';
print $h{1,2,3}; # 输出 test

%ENV
存放环境变量哈希表。

@F
当指定了 -a 参数的时候,@F 中保存着每一行被分隔后的数组:
perl -ane 'print pop(@F), "\n";'
等同于
while (<>) {
    @F = split(' ');
    print pop(@F), "\n";
}

$OSNAME
$^O
当前操作系统的名字。
# perl -e "print $^O"
# linux

%SIG
哈希 %SIG 中保存了信号的处理函数。例子如下:
sub handler {   # 1st argument is signal name
    my($sig) = @_;
    print "Caught a SIG$sig--shutting down\n";
    close(LOG);
    exit(0);
    }
$SIG{'INT'}  = \&handler;
$SIG{'QUIT'} = \&handler;
...
$SIG{'INT'}  = 'DEFAULT';   # restore default action
$SIG{'QUIT'} = 'IGNORE';    # ignore SIGQUIT
赋值为 'IGNORE' 则忽略该信号,除了 CHLD 信号。
下面是指定处理函数的其他方式:
$SIG{"PIPE"} = "Plumber";   # 指定为 main::Plumber (不推荐)
$SIG{"PIPE"} = \&Plumber;   # 推荐的方式
$SIG{"PIPE"} = *Plumber;    # 有点奇怪
$SIG{"PIPE"} = Plumber();   # 错误的做法,Plumber() 会返回什么??
部分内部的 hook 也可以通过设置 SIG 来指定。比如说:
local $SIG{__WARN__} = sub { die $_[0] };
eval $proggie;
当一个 warning 被抛出的时候,$SIG{__WARN__} 所指向的函数将被调用。
warning 消息的内容为函数的第一个参数。

$BASETIME
$^T
程序开始运行的时间(时间戳)
# perl -e "print $^T"
1314234806

$PERL_VERSION
$^V
perl 的版本号
warn "Hashes not randomized!\n" if !$^V or $^V lt v5.8.1

== 和正则表达式相关的变量 ==

$<digits> ($1, $2, ...)
匹配中 () 匹配的部分。

$&
$MATCH
前一次成功匹配的字符串。

$`
$PREMATCH
位于前一次成功匹配字符串前面的字符串。

$'
$POSTMATCH
位于前一次成功匹配字符串后面的字符串。

local $_ = 'abcdefghi';
/def/;
print "$`:$&:$'\n";      # 输出 abc:def:ghi

$LAST_PAREN_MATCH
$+
前一次成功匹配中最后一个 () 中的内容。
/Version: (.*)|Revision: (.*)/ && ($rev = $+);

@LAST_MATCH_END
@+
前一次成功匹配中每个 () 匹配的偏移量。
$+[0] 为整个匹配末尾的偏移量
$+[1] 为 $1 末尾的偏移量
$+[2] 为 $2 末尾的偏移量
...
$#+ 为前一次成功匹配的 () 数量

%LAST_PAREN_MATCH
%+
前一次成功匹配中命名匹配(即为 (?<name>...) 的形式)的哈系表。
如:
'foo' =~ /(?<foo>foo)/; # $+{foo} 和 $1 中都存放着 'foo'

另外一个例子:
$_ = "testing1234end";
/^testing(.)(.)(..)end/;
print "@+"; # 输出 14 8 9 11
/^(?<foo>[a-z]+)(?<num>\d+)/;
print "$+{foo}"; # 输出 testing
print "$+{num}"; # 输出 1234

@LAST_MATCH_START
@-
和 @+ 类似:
$-[0] 为整个匹配头部的偏移量
$-[1] 为 $1 头部的偏移量
$-[2] 为 $2 头部的偏移量
...
$` 等同于 substr($var, 0, $-[0])
$& 等同于 substr($var, $-[0], $+[0] - $-[0])
$' 等同于 substr($var, $+[0])
$1 等同于 substr($var, $-[1], $+[1] - $-[1])
$2 等同于 substr($var, $-[2], $+[2] - $-[2])
$3 等同于 substr($var, $-[3], $+[3] - $-[3])

%LAST_MATCH_START
%-
类似于 %+,通过 %- 可以访问到上一次成功匹配中所有的命名匹配。
每个命名匹配的名字都与一个数组相关联。
比如说:
if ('1234' =~ /(?<A>1)(?<B>2)(?<A>3)(?<B>4)/) {
    foreach my $bufname (sort keys %-) {
        my $ary = $-{$bufname};
        foreach my $idx (0..$#$ary) {
            print "\$-{$bufname}[$idx] : ",
                  (defined($ary->[$idx]) ? "'$ary->[$idx]'" : "undef"),
                  "\n";
        }
    }
}
会输出:
$-{A}[0] : '1'
$-{A}[1] : '3'
$-{B}[0] : '2'
$-{B}[1] : '4'

== 和文件句柄相关的变量 ==

$ARGV
<> 中正在被读取的文件的名字
例子:
# cat c
1
2
# cat d
1
2
3
4
# cat a.pl 
while (<>) {
    print "$ARGV\n";
}
# perl a.pl c d
c
c
d
d
d
d

@ARGV
命令行参数,$ARGV[0] 代表第一个参数(而不是程序的名字)。

$OUTPUT_FIELD_SEPARATOR
$OFS
$,
print 函数的输出分隔符,默认值为 undef。
例子:
print "a", "c"; # 输出 ac
$, = "|";
print "a", "c"; # 输出 a|c

$INPUT_LINE_NUMBER
$NR
$.
上一次读取文件的行号。
$. 在文件句柄关闭的时候重置。
由于 <> 操作符不会关闭文件,因此在连续从 ARGV 读取文件的时候,$. 会不断增加。
例子:
# cat a.pl
while (<>) {
    print "$.\n";
}
# perl a.pl c d
1
2
3
4
5
6
其中 c d 的长度分别为 2, 4 行。

$INPUT_RECORD_SEPARATOR
$RS
$/
类似于 awk 的 RS 变量。它决定了 perl 如何分割行。
例子:
# cat c
1|2|3
# cat a.pl 
$/ = "|";
while (<>) {
    print "line:$_\n";
}
# perl a.pl c
line:1|
line:2|
line:3

$OUTPUT_RECORD_SEPARATOR
$ORS
$\
print 函数输出的分隔符。默认值为 undef,如果定义了,则在 print 完所有参数后输出 $\。
例子:
$\ = "|";
print "a";
print "b";
# 将输出 a|b|

$OUTPUT_AUTOFLUSH
$|
如果设置为非0的值,将强制的 flush 当前 selected 的文件句柄。
(类似于 setbuf(xx, NULL) ?)

== 和错误信息有关的变量 ==

$ERRNO
$!
等同于 libc 中的 errno。可以转换为 int 和 string 两种形式:
open '/a';
print int($!) . ": $!\n"; # 输出 2: 没有那个文件或目录

$CHILD_ERROR
$?
类似于 shell 中的 $?。可以为下列操作的返回值:
- 最后一次管道关闭
- `` 或者 system() 语句
- wait() 或者 waitpid()
$? >> 8 为子进程的返回值

$EVAL_ERROR
$@
上一次 eval() 操作的语法错误信息。
例子:
# cat a.pl
eval "my a";
print "$@";
# perl a.pl
No such class a at (eval 1) line 1, near "my a"
syntax error at (eval 1) line 2, at EOF

posted @ 2011-08-24 23:45 糯米 阅读(515) | 评论 (0)编辑 收藏

perl 范围操作符

摘自:perldoc.perl.org

当".."操作符返回bool型变量的时候,有如下几个例子:
while (<>) {
    print if (2 .. 6);
}
将会打印文件的 2 ~ 6 行。

同样的:
next if (1 .. /^$/); # 跳过前面的空白行
s/^/> / if (/^$/ .. eof); # 在正文前面加上 > 

还可以这样使用:
# parse mail messages
while (<>) {
    $in_header =   1  .. /^$/;
    $in_body   = /^$/ .. eof;
    if ($in_header) {
        # do something
    } else { # in body
        # do something else
    }
} 

下面的例子展示了".."和"..."的区别:
@lines = ("   - Foo",
          "01 - Bar",
          "1  - Baz",
          "   - Quux");
foreach (@lines) {
    if (/0/ .. /1/) {
        print "$_\n";
    }
}
这个程序只输出Bar那行。如果将".."换成"...",则还会输出Baz那行。

下面展示".."操作符返回列表型变量时候的几个例子:
for (101 .. 200) { print; }    # print $_ 100 times
@foo = @foo[0 .. $#foo];    # an expensive no-op
@foo = @foo[$#foo-4 .. $#foo];    # slice last 5 items

同样可以用于字符串:
@alphabet = ("A" .. "Z");
$hexdigit = (0 .. 9, "a" .. "f")[$num & 15];
@z2 = ("01" .. "31");  print $z2[$mday];

还可以用于单个字符:
use charnames "greek";
my @greek_small =  ("\N{alpha}" .. "\N{omega}");

use charnames "greek";
my @greek_small =  map { chr } ord "\N{alpha}" .. ord "\N{omega}";

posted @ 2011-08-24 17:00 糯米 阅读(433) | 评论 (0)编辑 收藏