Changeset e514ee in git for Singular/iparith.cc


Ignore:
Timestamp:
Nov 24, 1999, 6:09:39 PM (25 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd25190065115c859833252500a64cfb7b11e3a50')
Children:
5d32fdb9ecb9fff4978a30bd8fb80b5e9fcdb7b0
Parents:
17b9209be23f46743b20ed712fa0ce186bc1a6ae
Message:
* hannes; moved breakpoint from extra.cc to iparith.cc (new command breakpoint)


git-svn-id: file:///usr/local/Singular/svn/trunk@3916 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/iparith.cc

    r17b920 re514ee  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.189 1999-11-24 14:07:22 obachman Exp $ */
     4/* $Id: iparith.cc,v 1.190 1999-11-24 17:09:35 Singular Exp $ */
    55
    66/*
     
    2121#include "mmemory.h"
    2222#include "febase.h"
     23#include "sdb.h"
    2324#include "longalg.h"
    2425#include "polys.h"
     
    130131  { "betti",       0, BETTI_CMD ,         CMD_12},
    131132  { "break",       0, BREAK_CMD ,         BREAK_CMD},
     133  { "breakpoint",  0, BREAKPOINT_CMD ,    CMD_M},
    132134  { "char",        0, CHARACTERISTIC_CMD ,CMD_1},
    133135  { "char_series", 0, CHAR_SERIES_CMD ,   CMD_1},
     
    43664368};
    43674369/*=================== operations with many arg.: static proc =================*/
     4370static BOOLEAN jjBREAK0(leftv res, leftv v)
     4371{
     4372  sdb_show_bp();
     4373  return FALSE;
     4374}
     4375static BOOLEAN jjBREAK1(leftv res, leftv v)
     4376{
     4377  if(v->Typ()==PROC_CMD)
     4378  {
     4379    int lineno=0;
     4380    if((v->next!=NULL) && (v->next->Typ()==INT_CMD))
     4381    {
     4382      lineno=(int)v->next->Data();
     4383    }
     4384    return sdb_set_breakpoint(v->Name(),lineno);
     4385  }
     4386  return TRUE;
     4387}
    43684388static BOOLEAN jjCALL1ARG(leftv res, leftv v)
    43694389{
     
    48774897// proc         cmd               res            number_of_args
    48784898 {jjKLAMMER_PL,  '(',           ANY_TYPE,           -2  }
     4899,{jjBREAK0,    BREAKPOINT_CMD,  NONE,               0  }
     4900,{jjBREAK1,    BREAKPOINT_CMD,  NONE,               -2  }
    48794901,{jjCALL2ARG,  COEF_CMD,        MATRIX_CMD,         2  }
    48804902,{jjCOEF_M,    COEF_CMD,        NONE,               4  }
Note: See TracChangeset for help on using the changeset viewer.