在我用C完成的一些项目中,我喜欢使用以下宏,它们的工作方式类似于Perl的warn和die子程序:
#include <stdio.h>
#include <stdlib.h>

#define warn(...) \
    fprintf(stderr,__VA_ARGS__); \
    fprintf(stderr," at %s line %d\n",__FILE__,__LINE__)

#define die(...) \
    warn(__VA_ARGS__); \
    exit(0xFF)

从Carp开始,像Perl的鲤鱼,呱呱叫,咯咯和忏悔子程序一样存在吗?我想从用户角度报告错误.

如果没有,我知道glibc中有backtrace()和backtrace_symbols()函数,它们与-rdynamic gcc选项一起可以为我提供函数名和代码地址的回溯.但我想要一些更好的东西;可以访问调用堆栈中的文件,行和函数名称,如Perl的调用者子例程.我可以编写自己的libcarp用于我的c程序.

编辑:2009-10-19

我正在考虑在basename(argv [0])上创建使用gdb的东西,然后处理堆栈跟踪以生成我想要的不同类型的消息.它应该能够确定我是不是在可调试的可执行文件中,还是没有gdb的系统,在这种情况下,carp和cluck将变成警告并且Craok和confess将会死亡.

我之前从未使用过这样的gdb(我只在开始时用我的程序运行它,而不是在它已经运行时).但我发现glib中的一些函数(g_on_error_stack_trace和stack_trace)看起来非常接近我想要做的事情:它使用参数basename(argv [0])和进程id分配gdb进程,然后写入其stdin(已被重定向到管道)命令“backtrace”后跟“退出”.然后它从结果中读取并按照它喜欢的方式解析它.这几乎就是我需要做的.

解决方法

好吧,我从未试图显示调用堆栈,但对于我的程序,我曾经做过以下操作.

首先,我定义了一个执行实际日志记录的函数.这只是一个例子;请注意,此功能是非常不安全的(缓冲区溢出任何人?)

void strLog(char *file,char *function,int line,char *fmt,...)
{
     char buf[1024];
     va_list args;

     va_start(args,fmt);
     vsprintf(buf,fmt,args);
     va_end(args);

     fprintf(stderr,"%s:%s:%d:%s\n",file,function,line,buf);
}

但是,这不太实用.可行的是使用宏来调用此函数.

#define die( ... ) \
        strLog( __FILE__,__PRETTY_FUNCTION__,\
        __LINE__,__VA_ARGS__ )

然后你可以像printf()一样调用.

if (answer == 42) die("Oh,%d of course.",answer);

你会得到这样的东西:

main.c:10:somefunc: Oh,42 of course.

好吧,没有回溯,但有些东西.

Perl的Carp模块是否有C等价物?的更多相关文章

  1. 更改Xcode中的工作目录

    我设法使用cmake-GXcode在Xcode中运行C项目.现在我想调试它,因为它提供了很好的gdb.但是,我需要更改gdb执行的工作目录,否则它将无法工作.我可以做的是在gdb停止键入cdworking_dir之后,然后手动输入r.这是有效的,但Xcode将不断投诉,也不是一个优雅的解决方案.所以在构建设置的某个地方我应该能够设置工作目录.但在哪里?解决方法在Xcode中,在可执行文件上执行“获取信息”,并查看第一个选项卡–有一个工作目录的设置.

  2. Swift快速入门五集合

    相关文章Swift快速入门(一)第一个Swift程序Swift快速入门(二)基本数据类型Swift快速入门(三)运算符Swift快速入门(四)流程控制前言Swift提供了数组和字典两种集合类型来存储数据,Swift的数组用来存储顺序相同类型相同的类型,字典则采用kay-value的形式存储数据。修改字典字典提供了updataValue()方法来修改字典的value值,该方法会返回一个Sting?

  3. PHP与Perl之间知识点区别整理

    在本篇文章里小编给大家分享了关于PHP与Perl的却别以及相关知识点整理,有兴趣的朋友们学习下。

  4. GBD:如何查看存储在内存中的一系列值

    作为我正在学习的一个大型项目的一部分,我需要破译大量的程序集。要判断这一点,我需要通过调试代码找到“炸弹”不同“阶段”的答案。目标是不引爆炸弹。看完之后,我决定需要查看read_six_numbers中的内容,如下所示:这导致我想知道0x3409中的内容,如下所示。所以我想我的答案应该是存储在不同%d中的六个数字。然而,当我在gdb中键入print0x3409时,我得到了13321,这是0x3409的十进制数,而不是实际存储在内存中的值。

  5. windows – 如何从Perl程序中设置cmd.exe窗口的大小?

    我有一个在Windows中运行的Perl脚本,显示屏幕很长的行.我不想永久修复我的控制台大小.我只是希望它在这个脚本运行时很大.有没有办法在这个窗口内运行的Perl脚本中定义控制台的大小?您可以使用mode命令设置正在运行的控制台的控制台大小:更改将仅持续到控制台窗口关闭.

  6. 尝试在Windows 7上安装MinGW和Tk for Perl

    我一直试图让这个工作几个星期了.我可以通过.exe安装MinGW,但不管我做什么我似乎无法获得支持或ppm安装MinGW以这样的方式工作,以便我的编译Tk-804.029将正确使用’make’命令.(安装Perl模块:>perlMakeFile.PL–工作正常>make或dmake–我无法让MinGW正确关联Make或DMake(在MinGW/bin目录中找不到正确的.exe…我尝试过使用-32bitmingw32-make.exe但是这会导致与编译的头文件有关的错误.)ppm安装MinGW也不行,似乎觉

  7. 哪个单元测试框架用于Windows上的C开发?

    在WindowsXP上,使用TDM’sGCC/MinGW32进行基本开发,即使用gdb的gcc4.4.x.哪个单元测试框架用于测试驱动开发?

  8. windows – 在perl中的fork实现

    我想在perl中执行子进程.我还希望我的代码与平台无关.问题是在Windows中perl实现fork,是一个伪进程,实际上是一个线程.请参阅windowshere的perlfork仿真.它还提到了在伪进程上执行kill和exec命令时出现的问题.在不同平台上使用两个不同版本的fork是否安全,还是应该使用特定于操作系统的API?

  9. 在Windows上处理Perl中的unicode目录和文件名

    我有Perl和Windows的编码问题.在运行Perl的Windows7(草莓5.16)和简单的TKGUI上,我需要打开文件和/或访问名称/路径中包含非英文字符的目录.对于打开文件我已经提出这个解决方案似乎工作正常:这会正确打开Поиск/Поиск.txt等文件我不能做的只是获取目录路径而不是处理它.我想我应该使用Win32::Unicode::Dir,但我真的无法理解文档.它应该是这样的:在以

  10. Emacs / GDB:始终使用gdb-many-windows在特定窗口中显示源代码

    我在Emacs24中使用GDB,gdb-many-windows设置为t,通常在自己的框架中.我喜欢有一个单独的编辑框架.它看起来像这样(为我粗略的ASCII图表道歉):除了一个大问题外,这种方法效果很好.每当gdb需要显示不同的源缓冲区时,例如,在上/下/步之后,它并不总是在“源”窗口中显示它.例如,如果我在不同帧的窗口中打开相同的缓冲区,它将提升该帧,同时将键盘焦点保持在gdb帧中.当帧相互覆

随机推荐

  1. 数组 – Perl中有什么神奇的数组?

    在Perldocumentationforreverse中,我发现:“请注意,将数组反转到自身(如@a=reverse@a)将尽可能保留不存在的元素;即对于非魔法数组或具有EXISTS和DELETE方法的绑定数组.什么属性区分神奇和非魔法阵列?解决方法一个神奇的阵列是一个执行它的操作不仅仅是改变内容.只有内置的魔术阵列是@ISA,而且这是非常不明显的.正如句子所暗示的,魔术阵列主要是一个绑定的阵列

  2. perl – 使用“isa”方法的最佳方式?

    什么是“最好的”使用方式“isa()”可靠?解决方法Scalar::Util实现明确更好.它避免了eval{}的开销,它总是导致设置一个附加变量.Scalar::Util实现更容易阅读.如果eval也失败了,我相信发生的是你在树之前向后走到eval之前的状态–这是如何实现复位状态.这带来了额外的故障开销.基准根本不是一个对象对象传递isa检查对象出现故障现象检查测试代码:我使用这是为i486-linux-gnu-thread-multi建立的perl,v5.10.1(*),以及Scalar::Util,1

  3. 在CORE :: GLOBAL中哪些Perl内置函数不能被覆盖?

    解决方法toke.c中任何值为负的值都可以被覆盖;所有其他人可能不会.你可以看源码here.例如,我们来看看第10,396行的waitpid:由于waitpid为负数,因此可能会被覆盖.grep怎么样?这是积极的,所以不能被覆盖.这意味着以下关键字不能被覆盖:chop,defined,delete,do,dump,each,else,elsif,eval,exists,for,foreach,format,glob,goto,grep,if,keys,last,local,m,map,my,next,no

  4. 如何在Perl中打印由换行符分隔的列表元素?

    什么是最简单的打印所有列表的元素以Perl中的换行符分隔的元素?解决方法在Perl5.10中:其他方式:或:或者怎么样?

  5. 使用Perl如何获取文件大小(以兆字节为单位)?

    我想以磁盘的形式获取磁盘上的文件大小.使用-s运算符给出了以字节为单位的大小,但是我将假设,然后将其除以魔术数字是一个坏主意:我应该使用只读变量来定义1024,还是有一种编程方式来获取一千字节的字节数?

  6. perl – 如何测试/分类CPAN模块的utf8正确性

    例如:File::Slurp,如果你将读取该文件您将根据命令行开关获得不同的结果,并且perl-CSDA将无法正常工作.伤心.(是的,我知道比Encode::decode(“utf8”,read_file($file,binmode=>’:raw’));将帮助,但是SAD.我的问题:>在这里任何首选方式,如何测试/分类什么CPAN模块是utf8安全/准备/正确?>这里是像Perl::Criticforutf8这样的东西–什么将检查模块源可能的utf8不正确?总结以上是DEVMAX为你收集整理的perl–如

  7. 如何删除Perl字符串中的空格?

    如果我声明一个值为’3’的变量$myString.是否有任何功能来删除返回值的空格.有点像SomeFun然后返回’3′.输出:你可以注意到’vid’=>‘0’,上面的代码从theanswer.我正在研究它.总结以上是DEVMAX为你收集整理的如何删除Perl字符串中的空格?如果觉得DEVMAX网站内容还不错,欢迎将DEVMAX网站推荐给好友。

  8. 如何在mod_perl2下运行Devel :: Cover?

    Unfortunately,Devel::Coverdoesnotyetworkwiththreads.它也不适用于prefork.在startup.pl中使用,Devel::Cover问题perl5.8.9,Apache2.2.13.我的操作系统是FreeBSD,如果重要.同样的问题是reportedforwin32.更新:PerlTrace全部输出解决方法邪恶之源似乎是Apache::DBI.

  9. 如何使用Perl中的C类?

    我有一套用C写的课.从Perl脚本中调用它们的最佳方法是什么?

  10. perl – 在Emacs中以双模式更好的缩进

    我正在使用Emacs来修改Perl和Verilog交织的代码.我正在使用two-mode-mode在两者之间切换,这样可以预期.问题是perl代码与//一行一行地表示;如下图所示:而双模式则认识到它是Perl,它是逐行的,所以缩进等在线上无意义.我想做的是使Perl代码像往常一样格式化,但忽略//;字符.有什么想法吗?我刚刚开始偷看模式文件,它们是可以理解的复杂的,所以任何提示都不会感激!

返回
顶部