source:
git/.gdbinit
@
08a955
| Last change on this file since 08a955 was 21b9ef, checked in by , 11 years ago | |
|---|---|
|
|
| File size: 587 bytes | |
| Rev | Line | |
|---|---|---|
| [ccd333] | 1 | break dErrorBreak |
| [ca5cfe] | 2 | break omReportError |
| [8e3dbb] | 3 | |
| 4 | ||
| 5 | ### http://sourceware.org/gdb/onlinedocs/gdb/Define.html#Define | |
| 6 | ||
| [c11068] | 7 | # print poly ring |
| [8e3dbb] | 8 | define pp |
| [c11068] | 9 | if $argc > 0 |
| 10 | print $arg0 | |
| 11 | if $arg0 != 0 | |
| 12 | print *$arg0 | |
| [8e3dbb] | 13 | |
| [c11068] | 14 | if $argc == 2 |
| 15 | call p_Write($arg0, $arg1) | |
| 16 | else | |
| 17 | call p_Write($arg0, currRing) | |
| 18 | end | |
| 19 | end | |
| [8e3dbb] | 20 | end |
| 21 | end | |
| 22 | ||
| [21b9ef] | 23 | |
| 24 | ||
| 25 | # print number coeffs | |
| 26 | define nn | |
| 27 | if $argc > 0 | |
| 28 | print $arg0 | |
| 29 | if $arg0 != 0 | |
| 30 | print *$arg0 | |
| 31 | ||
| 32 | if $argc == 2 | |
| 33 | call n_Print($arg0, $arg1) | |
| 34 | else | |
| 35 | call n_Print($arg0, currRing->cf) | |
| 36 | end | |
| 37 | end | |
| 38 | end | |
| 39 | end | |
| 40 |
Note: See TracBrowser
for help on using the repository browser.
